DanielR78/St.Clair
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Checking with all 820 MLMs

Browse Source
This commit is contained in:
Daniel Romischer
2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

141
MLMStripper/bin/Debug/DOC/DOC_BIPAP_CPAP.mlm Normal file
View File

@@ -0,0 +1,141 @@
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: