sub CamPatData
{
	my $obj = shift;
	Date_Init("TZ=EST");

	
	if (@_)
	{
		my $file = shift;
		my $parser = XML::DOM::Parser->new();
		my $doc = $parser->parsefile($file);
		my (@patdemo);
		
		my ($ln, $fn, $sex, $dob, $htu, $htn, $wtu, $wtn, $patnum, $patient);
		
		#Get Patient Data
		foreach $patient($doc->getElementsByTagName('SA_PATIENT'))
		{
				    
			$ln = $patient->getElementsByTagName('MY_LAST_NAME')->item(0)->getFirstChild->getNodeValue;
			$fn = $patient->getElementsByTagName('MY_FIRST_NAME')->item(0)->getFirstChild->getNodeValue; 
			$dob = $patient->getElementsByTagName('MY_BIRTH_DATE')->item(0)->getFirstChild->getNodeValue;
			$sex = $patient->getElementsByTagName('MY_GENDER')->item(0)->getFirstChild->getNodeValue; 
			$dob = $patient->getElementsByTagName('MY_BIRTH_DATE')->item(0)->getFirstChild->getNodeValue;	
		}
			
			
			
			
		foreach $patient($doc->getElementsByTagName('CathStudy'))
		{
				    
			$htn = $patient->getElementsByTagName('PatHeight')->item(0)->getFirstChild->getNodeValue;
			$htu = $patient->getElementsByTagName('PatHeight')->item(0)->getAttribute('Units');
			$wtn = $patient->getElementsByTagName('PatWeight')->item(0)->getFirstChild->getNodeValue; 
			$wtu = $patient->getElementsByTagName('PatWeight')->item(0)->getAttribute('Units');
			$patnum = $patient->getElementsByTagName('StudyID')->item(0)->getFirstChild->getNodeValue;
			
		}		
		
		#Rounding Off 

		$wtn = ceil($wtn);
		$htn = ceil($htn);
		
		my $date = ParseDate($dob);	
		$dob = UnixDate($date,"%m/%d/%Y");
		
		@patdemo = ($ln, $fn, $dob, $sex, $htn, $htu, $wtn, $wtu, $patnum);

}


##</code><code>##

</CathStudy>

<SA_PATIENT>
<MY_PATIENT_ID>XXXXX</MY_PATIENT_ID>
<MY_BIRTH_DATE>123-45-6789</MY_BIRTH_DATE>

<MY_FIRST_NAME>BERT</MY_FIRST_NAME>

<MY_GENDER>M</MY_GENDER>

<MY_LAST_NAME>PUPPET</MY_LAST_NAME>

<Address>123 SESAME ST</Address>

<City>NEW YORK</City>

<State>NY</State>

<Zip>10110</Zip>

<Race>Caucasian</Race>

</SA_PATIENT>