150 lines
5.7 KiB
Plaintext
150 lines
5.7 KiB
Plaintext
maintenance:
|
|
|
|
title: Lab Stool Culture on Order Set Must Order Shiga Toxin 1 and 2;;
|
|
mlmname: FORM_Set_ED_Respiratory;;
|
|
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 Respiratory Order Set (ED_Respiratory)
|
|
|
|
;;
|
|
keywords: Called MLMs, Respiratory ORder Sert, 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
|
|
SponAer_fld := last of (field_list where field_list.DataItemName = "Spontaneous Aerosol");
|
|
SponAerAtro_fld := last of (field_list where field_list.DataItemName ="Spontaneous Aerosol Atrovent");
|
|
SponAerAtr_fld := last of (field_list where field_list.DataItemName = "Spontaneous Aerosol DuoNeb");
|
|
SponAerRac_fld := last of (field_list where field_list.DataItemName = "Spontaneous Aerosol Racepinephrine");
|
|
Bronch10_Fld := last of (field_list where field_list.DataItemName = "Cont. Bronchodilator Albuterol 10mg/hr");
|
|
Bronch15_Fld := last of (field_list where field_list.DataItemName = "Cont. Bronchodilator Albuterol 15mg/hr");
|
|
MDI_fld := last of (field_list where field_list.DataItemName = "MDI Instruction");
|
|
Incent_fld := last of (field_list where field_list.DataItemName = "Incentive Spirometry Instruction");
|
|
|
|
//*** Get the Aerosols Values From Grid
|
|
|
|
Aerosols_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
|
|
and field_List.Control_MultiFieldOccNum = 4);
|
|
Aerosols_list :=Aerosols_fld.Value;
|
|
Aerosols_Sel :=Aerosols_list.IsSelected;
|
|
|
|
|
|
Albuterol:= Last (First 1 from Aerosols_Sel);
|
|
Atrovent:= Last (First 2 from Aerosols_Sel);
|
|
AlbuterolAtrovent:= Last (First 3 from Aerosols_Sel);
|
|
RacePine:= Last (First 4 from Aerosols_Sel);
|
|
|
|
|
|
//*** Get the Bronchodilator Values from Grid
|
|
Broncho_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
|
|
and field_List.Control_MultiFieldOccNum = 6);
|
|
Broncho_list :=Broncho_fld.Value;
|
|
Broncho_Sel :=Broncho_list.IsSelected;
|
|
|
|
Bron10 := Last (First 1 From Broncho_Sel);
|
|
Bron15 := Last (First 2 From Broncho_Sel);
|
|
|
|
|
|
//*** Get the Education Values from Grid
|
|
Educate_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
|
|
and field_List.Control_MultiFieldOccNum = 5);
|
|
Educate_list :=Educate_fld.Value;
|
|
Educate_Sel :=Educate_list.IsSelected;
|
|
|
|
EducateMDI := Last (First 1 From Educate_Sel);
|
|
EducateInc:= Last (First 2 From Educate_Sel);
|
|
|
|
//*** Now set the mapped fields
|
|
SponAer_fld.Value := Albuterol;
|
|
SponAerAtro_fld .Value := Atrovent;
|
|
SponAerAtr_fld.Value := AlbuterolAtrovent;
|
|
SponAerRac_Fld.Value :=RacePine;
|
|
Bronch10_Fld.Value := Bron10;
|
|
Bronch15_Fld.Value := Bron15;
|
|
MDI_fld.Value := EducateMDI;
|
|
Incent_fld.Value := EducateInc;
|
|
|
|
|
|
|
|
|
|
/* Debugging Messages
|
|
this_communication.DisplayForm := "Yes";
|
|
this_communication.Message := "Aerosol Selected is " || Aerosols_Sel || "\n" ||
|
|
" Albuterol is set to " || Albuterol || "\n" ||
|
|
" Albuterol Atrovent is set to " || AlbuterolAtrovent || "\n" ||
|
|
" RacePine is set to " || RacePine || "\n" || "\n" ||
|
|
"Broncho Selected is " || Broncho_Sel || "\n" ||
|
|
" Bronch 10 is set to " || Bron10 || "\n" ||
|
|
" Bronch 15 is set to " || Bron15 || "\n" || "\n" ||
|
|
"Educate Selects is " || EDucate_Sel || "\n" ||
|
|
" Educate MDI is set to " || EducateMDI || "\n" ||
|
|
" Educate Incentive is " || EducateINC || "\n" || "\n" ||
|
|
"Mapped Field Values Are " || "\n" ||
|
|
" SponAer is " || SponAer_fld.value || "\n" ||
|
|
" SponAerAtr is " || SponAerAtr_fld.Value || "\n" ||
|
|
" SponAerRac is " || SponAerRac_Fld.Value || "\n" ||
|
|
" Bronch10 is " || Bronch10_Fld.Value || "\n" ||
|
|
" Bronch15 is " || Bronch15_Fld.Value || "\n" ||
|
|
" MDI is " || MDI_fld.Value || "\n" ||
|
|
" Incent is " || Incent_fld.Value;
|
|
|
|
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:
|