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

105
MLMStripper/bin/Debug/FORM/FORM_ED_GO_PACK.mlm Normal file
View File

@@ -0,0 +1,105 @@
maintenance:
title: FORM_ED_GO_PACK;;
mlmname: FORM_ED_GO_PACK;;
arden: version 2.5;;
version: 6.10;;
institution: St. Clair Hospital ;;
author: Shivprasad Jadhav;;
specialist: Shivprasad Jadhav, Allscripts;;
date: 2015-10-23;;
validation: testing;;
library:
purpose:
If user clicks on the HIV PEP Regimen checkbox, then include order details for Truvada and Isentress medications.
If check box is not selected then do not include order details for Truvada and Isentress medications.;;
explanation:
Change History
============================================
20-04-2015 CSR-33616 : Created
24-01-2019 CSR 37702: Added logic to support new HIV PEP Go Pack order for ED.
;;
keywords:
;;
citations:
;;
knowledge:
type: data-driven;;
data:
( this_communication, // Communication object
this_form, // Form object
client_info_obj //Arden ClientInfo object
) := argument;
field_list:= this_form.Fields;
CallingEvent := this_communication.CallingEvent;
CallingField := this_communication.CallingFieldName;
F_HIV_PEP := last of ( field_list WHERE field_list.DataItemName = "ED_HIV PEP Regimen" );
F_Truvada := last of ( field_list WHERE field_list.DataItemName = "ED_Truvada" );
F_Isentress := last of ( field_list WHERE field_list.DataItemName = "ED_Isentress 400mg" );
F_HIV_PEP_2 := last of ( field_list WHERE field_list.DataItemName = "ED_HIV PEP Regimen (2)" );
F_Truvada_2 := last of ( field_list WHERE field_list.DataItemName = "ED_Truvada (2)" );
F_Isentress_2 := last of ( field_list WHERE field_list.DataItemName = "ED_Isentress 400mg (2)" );
Truvada_txt := "Truvada (Emtricitabine 200 mg/Tenofovir 300 mg Tab) (7 Tablets) Take 1 tablet by mouth daily for 7 days.";
Esentress_txt := "Isentress 400mg (Raltegravir 400mg Tab) (14 Tablets) Take 1 tablet by mouth two times a day for 7 days." ;
//=========================================================================================================
if ( CallingEvent = "FormOpen" ) then
If F_HIV_PEP.Value = True Then
F_Truvada.Value := Truvada_txt ;
F_Isentress.Value := Esentress_txt ;
Elseif F_HIV_PEP.Value = False Then
F_Truvada.Value := "" ;
F_Isentress.Value := "" ;
Endif;
if ( F_HIV_PEP_2.Value = true ) then
F_Truvada_2.Value := Truvada_txt ;
F_Isentress_2.Value := Esentress_txt ;
Elseif ( F_HIV_PEP_2.Value = false ) then
F_Truvada_2.Value := "" ;
F_Isentress_2.Value := "" ;
endif;
Elseif ( CallingEvent = "FieldChange" ) then
If F_HIV_PEP.Value = True Then
F_Truvada.Value := Truvada_txt ;
F_Isentress.Value := Esentress_txt ;
Elseif F_HIV_PEP.Value = False Then
F_Truvada.Value := "" ;
F_Isentress.Value := "" ;
Endif;
if ( F_HIV_PEP_2.Value = true ) then
F_Truvada_2.Value := Truvada_txt ;
F_Isentress_2.Value := Esentress_txt ;
Elseif ( F_HIV_PEP_2.Value = false ) then
F_Truvada_2.Value := "" ;
F_Isentress_2.Value := "" ;
endif;
Endif;
;;
priority: 50
;;
evoke:
;;
logic: conclude true;
;;
action: return this_communication, this_form;
;;
Urgency: 50;;
end: