106 lines
3.1 KiB
Plaintext
106 lines
3.1 KiB
Plaintext
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:
|