267 lines
7.9 KiB
Plaintext
267 lines
7.9 KiB
Plaintext
maintenance:
|
|
|
|
title: ED Respiratory Page Mapping Dyspnea Grids;;
|
|
mlmname: FORM_Set_ED_Respiratory_Dysp;;
|
|
arden: version 2;;
|
|
version: 4.50;;
|
|
institution: St Clair ED Respiratory;;
|
|
author: Robert Spence, Eclipsys Corp Ext 7461;;
|
|
specialist: Lisa Hancher, Eclipsys Corp ext PINT;;
|
|
date: 2008-03-17;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: When user selects items on an order set, fill in a summary line (special instructions)
|
|
This field is to be mapped to one on the pager form.
|
|
This MLM will then fill in the data based on the selected checkboxes, having the interface only need to
|
|
look at the data within the pager form (not every order in the set)
|
|
|
|
;;
|
|
|
|
explanation: This MLM is called from the ED Dyspnea Order Set (ED_Dyspnea), on change and close
|
|
|
|
Change history
|
|
|
|
06.24.2010 DW Added code for 2 new orderset items
|
|
07.26.2017 AnkitM CSR 33723: Changed all wording from {{{SINGLE-QUOTE}}}Xopenex{{{SINGLE-QUOTE}}} to {{{SINGLE-QUOTE}}}Levalbuterol{{{SINGLE-QUOTE}}}
|
|
07.26.2017 AnkitM CSR 33723: Changed "Levalbuterol 10 mg/hr" to "Levalbuterol 5 mg/hr" and "Levalbuterol 15 mg/hr" to "Levalbuterol 7.5 mg/hr" as per asked by Robert.
|
|
;;
|
|
keywords: Called MLMs, Dyspnea Order Set, ED
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
// This MLM is passed three arguments, of types
|
|
// communication_type, form_type and client info object respectively.
|
|
|
|
(this_communication, // Communication object
|
|
this_form, // Form object
|
|
client_info_obj //Arden ClientInfo object
|
|
) := argument;
|
|
|
|
|
|
/*******************Make Changes To Spelling And Flags In This Section*******************/
|
|
|
|
/* Set to true if a decision.log is needed.*/
|
|
log_execution_info := FALSE;
|
|
|
|
|
|
/***************************************************************************************/
|
|
|
|
// Initialize error message
|
|
error_message:="";
|
|
|
|
// Assigns fields passed in the Form object to the Field object
|
|
field_list:= this_form.fields;
|
|
|
|
CallingEvent := this_communication.CallingEvent;
|
|
CallingField := this_communication.CallingFieldName;
|
|
ClientGuid:=this_communication.ClientGUID;
|
|
ClientChartGUID:=this_communication.ChartGUID;
|
|
|
|
//Associate Mapped Fields
|
|
SpecInst_fld := last of (field_list where field_list.DataItemName = "SpecialInstructions");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//*** Get values from First grid
|
|
//*** SA (Albuterol/Atrovent/Xopenex)
|
|
|
|
SAAAX_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
|
|
and field_List.Control_MultiFieldOccNum = 11);
|
|
SAAAX_list :=SAAAX_fld.Value;
|
|
SAAAX_Sel :=SAAAX_list.IsSelected;
|
|
|
|
Albuterol_1 := Last(First 1 from SAAAX_Sel);
|
|
Albuterol_2 := Last(First 2 from SAAAX_Sel);
|
|
Albuterol_Atrovent_1 := Last(First 3 from SAAAX_Sel);
|
|
Atrovent_1 := Last(First 4 from SAAAX_Sel);
|
|
Atrovent_2 := Last(First 5 from SAAAX_Sel);
|
|
Levalbuterol_1 := Last(First 6 from SAAAX_Sel);
|
|
Levalbuterol_2 := Last(First 7 from SAAAX_Sel);
|
|
|
|
|
|
//*** Get values from 2nd grid
|
|
//*** SA (Racepinephrine/Pulmicort)
|
|
|
|
SARP_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
|
|
and field_List.Control_MultiFieldOccNum = 13);
|
|
SARP_list :=SARP_fld.Value;
|
|
SARP_Sel :=SARP_list.IsSelected;
|
|
|
|
Race_1 := Last(First 1 from SARP_Sel);
|
|
Pulm_1 := Last(First 2 from SARP_Sel);
|
|
Pulm_2 := Last(First 3 from SARP_Sel);
|
|
|
|
//*** Get values from 3rd grid
|
|
//*** Spontaneous Aerosol Unspecified Dose
|
|
|
|
SAUD_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
|
|
and field_List.Control_MultiFieldOccNum = 12);
|
|
SAUD_list :=SAUD_fld.Value;
|
|
SAUD_Sel :=SAUD_list.IsSelected;
|
|
|
|
Albuterol_3 := Last(First 1 From SAUD_Sel);
|
|
Atrovent_3 := Last(First 2 From SAUD_Sel);
|
|
Lidocaine_1 := Last(First 3 From SAUD_Sel);
|
|
Mucomyst_1 := Last(First 4 From SAUD_Sel);
|
|
|
|
|
|
//*** Get values from 4th grid
|
|
//*** Continuous Bronchodilators
|
|
|
|
CB_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
|
|
and field_List.Control_MultiFieldOccNum = 22);
|
|
CB_list :=CB_fld.Value;
|
|
CB_Sel :=CB_list.IsSelected;
|
|
|
|
CB_Alb_10mg := Last(First 1 From CB_Sel);
|
|
CB_Alb_15mg := Last(First 2 From CB_Sel);
|
|
CB_Atr_1mg := Last(First 3 From CB_Sel);
|
|
CB_Xop_10mg := Last(First 4 From CB_Sel);
|
|
CB_Xop_15mg := Last(First 5 From CB_Sel);
|
|
CB_AlbAt_10mg := Last(First 6 From CB_Sel);
|
|
CB_AlbAt_15mg := Last(First 7 From CB_Sel);
|
|
|
|
ListSA_Text:="";
|
|
ListCB_Text:="";
|
|
|
|
Spec_All_Text :="";
|
|
|
|
// Now make the special instructions used for the beeper.
|
|
|
|
// SPONTANEOUS AEROSOLS
|
|
|
|
If (Albuterol_1 = True) or (Albuterol_2 = True) or (Albuterol_3 = True) then
|
|
Spontaneous:=True;
|
|
ListSA_Text := ListSA_Text || "Albuterol, ";
|
|
endif;
|
|
|
|
If (Albuterol_Atrovent_1) = True then
|
|
Spontaneous := True;
|
|
ListSA_Text := ListSa_Text || "Albuterol /Atrovent, ";
|
|
endif;
|
|
|
|
IF (Atrovent_1 =True) or (Atrovent_2 = True) or (Atrovent_3=True) then
|
|
Spontaneous:=True;
|
|
ListSA_Text := ListSA_Text || "Atrovent, ";
|
|
endif;
|
|
|
|
If (Levalbuterol_1 = True) or (Levalbuterol_2 = True) then
|
|
Spontaneous := True;
|
|
ListSA_Text := ListSA_Text || "Levalbuterol, ";
|
|
endif;
|
|
|
|
IF (Race_1 = True) then
|
|
Spontaneous := True;
|
|
ListSA_Text := ListSA_Text || "Racepinephrine, ";
|
|
endif;
|
|
|
|
IF (Pulm_1 = True) or (Pulm_2 =True) then
|
|
SPontaneous := True;
|
|
ListSA_Text := ListSA_Text || "Pulmicort, ";
|
|
endif;
|
|
|
|
If (Lidocaine_1 = True) then
|
|
SPontaneous := True;
|
|
ListSA_Text := ListSA_Text || "Lidocaine, ";
|
|
endif;
|
|
|
|
If (Mucomyst_1 = True) then
|
|
SPontaneous := True;
|
|
ListSA_Text := ListSA_Text || "Mucomyst, ";
|
|
endif;
|
|
|
|
// CONTINUOUS BRONCHODILATORS
|
|
|
|
If (CB_Alb_10mg) = True then
|
|
ContBronc :=True;
|
|
ListCB_Text := ListCB_Text || "Albuterol 10 mg/hr, ";
|
|
endif;
|
|
|
|
If (CB_Alb_15mg ) = True then
|
|
ContBronc :=True;
|
|
ListCB_Text := ListCB_Text || "Albuterol 15 mg/hr, ";
|
|
endif;
|
|
|
|
If (CB_Atr_1mg) = True then
|
|
ContBronc :=True;
|
|
ListCB_Text := ListCB_Text || "Atrovent 1 mg/hr, ";
|
|
endif;
|
|
|
|
If (CB_Xop_10mg ) = True then
|
|
ContBronc :=True;
|
|
ListCB_Text := ListCB_Text || "Levalbuterol 5 mg/hr, ";
|
|
endif;
|
|
|
|
If (CB_Xop_15mg ) = True then
|
|
ContBronc :=True;
|
|
ListCB_Text := ListCB_Text || "Levalbuterol 7.5 mg/hr, ";
|
|
endif;
|
|
|
|
If (CB_AlbAt_10mg ) = True then
|
|
ContBronc :=True;
|
|
ListCB_Text := ListCB_Text || "Albuterol 10 mg / Atrovent 1mg/hr, ";
|
|
endif;
|
|
|
|
If (CB_AlbAt_15mg ) = True then
|
|
ContBronc :=True;
|
|
ListCB_Text := ListCB_Text || "Albuterol 15 mg / Atrovent 1mg/hr, ";
|
|
endif;
|
|
|
|
|
|
If Spontaneous = True then
|
|
Spec_All_Text := Spec_All_Text || "SPONTANEOUS AEROSOL: " || ListSA_Text;
|
|
endif;
|
|
|
|
If ContBronc = True then
|
|
Spec_All_Text := Spec_All_Text || "CONT. BRONCHODILATOR: " || ListCB_Text;
|
|
endif;
|
|
|
|
SpecInst_fld.Value := Spec_All_Text;
|
|
|
|
//Now set the ed respiratory page, changed 06/17 to deselect if spont and cont. not selected
|
|
|
|
EDResp_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
|
|
and field_List.Control_MultiFieldOccNum = 7);
|
|
|
|
EDResp_list :=EDResp_fld.Value;
|
|
|
|
If (Spontaneous = True) or (ContBronc=True) then
|
|
|
|
EDResp_list.IsSelected := True;
|
|
Else
|
|
EDResp_List.IsSelected := False;
|
|
endif;
|
|
|
|
|
|
|
|
/* Debugging Messages
|
|
this_communication.DisplayForm := "Yes";
|
|
this_communication.Message := "Grid one is " || Albuterol_1 || ", " ||
|
|
Albuterol_2 || ", " ||
|
|
Albuterol_Atrovent_1|| ", " ||
|
|
Atrovent_1|| ", " ||
|
|
Atrovent_2|| ", " ||
|
|
Xopenex_1 || ", " ||
|
|
Xopenex_2 ;
|
|
this_communication.MessageType := "Informational";
|
|
|
|
*/
|
|
;;
|
|
evoke: // No evoke statement
|
|
;;
|
|
logic:
|
|
|
|
conclude true;
|
|
;;
|
|
action:
|
|
// This MLM returns two parameters, of types communication_type and form_type respectively.
|
|
return this_communication, this_form;
|
|
;;
|
|
end:
|