maintenance:

	title:  DOC_BIPAP_CPAP ;;
	mlmname:  DOC_BIPAP_CPAP ;;
	arden: version 2.5;;
	version:  6.00;;
	institution:  St. Clair Hospital ;;
	author:  Shivprasad Jadhav;;
	specialist:  Shubha Rai;;
	date:  2015-11-16;;
	validation:  testing;;

library:
	purpose:  When BiPAP or CPAP is selected, auto select the instruction to patient to bring in home device in [Adult Patient Profile], [Pediatric Patient Profile],[OB Patient Profile];;
	explanation:  
			Change History
	-------------------------------------------------
	18-11-2015   GOS  MLM  Created CSR :33757- BIPAP/CPAP change in [Adult Patient Profile],[Adult Patient Profile-Behavirol Health], 
						   [Pediatric Patient Profile],[OB Patient Profile]

	;;
	keywords:
	;;
	citations: 
	;;
knowledge:
	type: data-driven;;
	data:
		(this_documentCommunication) := argument;

		// Extract interesting parts of the object model
		 DocumentName := this_documentCommunication.DocumentName ;
		(thisStructuredNoteDoc) := this_documentCommunication.DocumentConfigurationObj;
		(thisParameters) := thisStructuredNoteDoc.ParametersList;
		(thisObservations) := thisStructuredNoteDoc.ChartedObservationsList;
		
		(UserGUID) := this_documentCommunication.UserGUID ;
        (this_curr_valobj) := this_currentObs.valueobj;
		// Get the client and visit GUIDs
		clientGuid := this_documentCommunication.ClientGUID;
		visitGuid := this_documentCommunication.ClientVisitGUID;
		chartGuid := this_documentCommunication.ChartGUID;
		Client_Document_GUID := this_FS_doc.ClientDocumentGUID;

		//z:=thisParameters.Records__;
		If ( DocumentName = "Adult Patient Profile" ) or ( DocumentName = "Adult Patient Profile - Behavioral Health" ) Then
	       this_parametername := first of (thisParameters where thisParameters.Name = "PRO resp device");
	       theObservation := first of (thisobservations where thisobservations.ParameterGUID = this_parametername.ParameterGUID);
	
				  If true in (theObservation.ValueObj.ListItemsList.IsSelected where
				                       theObservation.ValueObj.ListItemsList.Value = "BiPAP..." ) then  chronic := "BIPAP"; 	
				  Endif;
				  If chronic Is Null Then 
				   If true in (theObservation.ValueObj.ListItemsList.IsSelected where
				                       theObservation.ValueObj.ListItemsList.Value = "CPAP..." ) then  chronic := "CPAP"; 	
				   Endif;
			      EndIf;

			     If chronic in ("BIPAP","CPAP") Then 
					MLM_DIPA := MLM {{{SINGLE-QUOTE}}}UTIL_OBJECT_Customize_DIPA_MLM{{{SINGLE-QUOTE}}};	
			
					prm_Resp_Device := First of (thisParameters where thisParameters.Name = "SCH_resp home device instruction");
					Var1 := "Instructed patient to bring in home device.";
			
					If exists Var1 then
			
						Obs_Comf_Vi := CALL MLM_DIPA WITH this_DocumentCommunication,prm_Resp_Device, Var1  as string ;	
						this_documentCommunication.DocumentConfigurationObj.ChartedObservationsList := (
				        this_documentCommunication.DocumentConfigurationObj.ChartedObservationsList,Obs_Comf_Vi );
		         	Endif;	
		
		      	 Endif;
		ElseIf DocumentName = "Pediatric Patient Profile" Then

		  this_parametername := first of (thisParameters where thisParameters.Name = "PRO resp device peds");
	      theObservation 	 := first of (thisobservations where thisobservations.ParameterGUID = this_parametername.ParameterGUID);
	
				  If true in (theObservation.ValueObj.ListItemsList.IsSelected where
				                       theObservation.ValueObj.ListItemsList.Value = "BiPAP..." ) then  chronic := "BIPAP"; 	
				  Endif;
				  If chronic Is Null Then 
				   If true in (theObservation.ValueObj.ListItemsList.IsSelected where
				                       theObservation.ValueObj.ListItemsList.Value = "CPAP..." ) then  chronic := "CPAP"; 	
				   Endif;
			      EndIf;

			     If chronic in ("BIPAP","CPAP") Then 
				    MLM_DIPA := MLM {{{SINGLE-QUOTE}}}UTIL_OBJECT_Customize_DIPA_MLM{{{SINGLE-QUOTE}}};	
		
				    prm_Resp_Device := First of (thisParameters where thisParameters.Name = "SCHCK_PRO resp home device ped");
				    Var1 := "Instructed patient to bring in home device.";
		
				    if exists Var1 then
			
					 Obs_Comf_Vi := CALL MLM_DIPA WITH this_DocumentCommunication,prm_Resp_Device, Var1  as string ;	
					 this_documentCommunication.DocumentConfigurationObj.ChartedObservationsList := (
			         this_documentCommunication.DocumentConfigurationObj.ChartedObservationsList,Obs_Comf_Vi );
		            Endif;	
		
		         Endif;
		ElseIf DocumentName = "OB Patient Profile" Then

		  this_parametername := first of (thisParameters where thisParameters.Name = "PRO resp device ob");
	      theObservation 	 := first of (thisobservations where thisobservations.ParameterGUID = this_parametername.ParameterGUID);
	
				  If true in (theObservation.ValueObj.ListItemsList.IsSelected where
				                       theObservation.ValueObj.ListItemsList.Value = "BiPAP..." ) then  chronic := "BIPAP"; 	
				  Endif;
				  If chronic Is Null Then 
				   If true in (theObservation.ValueObj.ListItemsList.IsSelected where
				                       theObservation.ValueObj.ListItemsList.Value = "CPAP..." ) then  chronic := "CPAP"; 	
				   Endif;
			      EndIf;

			     If chronic in ("BIPAP","CPAP") Then 
				    MLM_DIPA := MLM {{{SINGLE-QUOTE}}}UTIL_OBJECT_Customize_DIPA_MLM{{{SINGLE-QUOTE}}};	
		
				    prm_Resp_Device := First of (thisParameters where thisParameters.Name = "SCHCK_PRO resp home device OB");
				    Var1 := "Instructed patient to bring in home device.";
		
				    if exists Var1 then
			
					 Obs_Comf_Vi := CALL MLM_DIPA WITH this_DocumentCommunication,prm_Resp_Device, Var1  as string ;	
					 this_documentCommunication.DocumentConfigurationObj.ChartedObservationsList := (
			         this_documentCommunication.DocumentConfigurationObj.ChartedObservationsList,Obs_Comf_Vi );
		            Endif;	
		
		         Endif;
		EndIf;

	;;
	priority: 50
	;;
	evoke:  
	;;
	logic:	conclude true;
	;;
	action:	return this_documentCommunication;
	;;
Urgency: 50;;
end: