142 lines
5.9 KiB
Plaintext
142 lines
5.9 KiB
Plaintext
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:
|