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

146
MLMStripper/bin/Debug/FORM/FORM_SET_ED_DYSPNEA_RESPIRATORY.mlm Normal file
View File

@@ -0,0 +1,146 @@
maintenance:
title: ED Dyspnea Respiratory Page Mapping;;
mlmname: FORM_Set_ED_Dyspnea_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 Dyspnea Order Set (ED_Rx Dyspnea) on form close
;;
keywords: Called MLMs, Respiratory 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
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");
//*** Get the ED Page Values from Grid
// Note: If ED Page has not been selected, blank out all order set mapped check boxes
// This way the child form of ED Page does not have data within it.
RespPage_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
and field_List.Control_MultiFieldOccNum = 7);
RespPage_list :=RespPage_fld.Value;
RespPage_Sel :=RespPage_list.IsSelected;
//*** Get the Respiratory Values From Grid
RespPage_Val := Last (First 1 From RespPage_Sel);
If RespPage_Val=False Then
SponAer_fld.Value := False;
SponAerAtro_fld .Value := False;
SponAerAtr_fld.Value := False;
SponAerRac_Fld.Value :=False;
Bronch10_Fld.Value := False;
Bronch15_Fld.Value := False;
Else
RespGrid_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
and field_List.Control_MultiFieldOccNum = 5);
RespGrid_list :=RespGrid_fld.Value;
RespGrid_Sel :=RespGrid_list.IsSelected;
Albuterol:= Last (First 1 from RespGrid_Sel);
Atrovent:= Last (First 2 from RespGrid_Sel);
AlbuterolAtrovent:= Last (First 3 from RespGrid_Sel);
RacePine:= Last (First 4 from RespGrid_Sel);
Bron10 := Last (First 5 From RespGrid_Sel);
Bron15 := Last (First 6 From RespGrid_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;
Endif;
/* this_communication.DisplayForm := "Yes";
this_communication.Message := "RespValue Is " || RespPage_Val || "n" ||
"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: