set serveroutput on;
set long 10000000;
set pagesize 0;


create or replace procedure HCS as
        
   prXML1 CLOB;
  
   BEGIN
   prXML1 := '<Patient id="p1">       
		<PersonalInformation>	  
			<Name>Kevin</Name>	  
			<Address>				              
				<Street>120 Northwestern Ave</Street>          
				<Apt>22</Apt>	    
				<City>W. Lafayette</City>	    
				<Zip>47907</Zip>        
			</Address>	  
			<Contact>             
				<Phone type="home">765-999-9999</Phone>          
				<Phone type="cell">765-888-8888</Phone>        
			</Contact>       
		</PersonalInformation>       
		<MedicalHistory>        
			<Record id="record1p1">  	   
				<Date>2007 02 10</Date>  	   
				<Physician id="d1">Smith</Physician>  	   
				<Diagnosis>Fever</Diagnosis>	  
			</Record>        
			<Record id="record2p1">  	   
				<Date>2007 01 01</Date>  	   
				<Physician id="d2">Paul</Physician>  	   
				<Diagnosis>Fever</Diagnosis>	  
			</Record>       
			<Record id="record3p1">  	   
				<Date>2007 02 13</Date>  	   
				<Physician id="d1">Smith</Physician>  	   
				<Diagnosis>Fever</Diagnosis>	  
			</Record>       

		</MedicalHistory>      
	</Patient>'  ;
       INSERT INTO prTable (patientRecord) VALUES (XMLTYPE(prXML1));


END;
/
show error


exec HCS;

select p.patientRecord.getClobVal() from prTable p;