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

226
MLMStripper/bin/Debug/FORM/FORM_GENERIC_EITHER_OR_MANDITORY.mlm Normal file
View File

@@ -0,0 +1,226 @@
maintenance:
title: Ordering either one or another Manditory field;;
mlmname: FORM_GENERIC_EITHER_OR_MANDITORY;;
arden: version 2;;
version: 4.50;;
institution: St Clair Hospital;;
author: Claudia Benson, Claudia.Benson@stclair.org, (412) 942-1307;;
specialist: Eclipsys Corporation;;
date: 2006-10-11;;
validation: testing;;
library:
purpose: To make a list of fields all manditory until one is filled out.
;;
explanation: This generic MLM can be called from several Micro order forms:
- Resp CPAP
- Resp BiPAP
- (others?)
It will make ALL of the specified fields as manditory, unless one is filled in
with a value. Then, it will make all of the other, formerly manditory, fields
into non-manditory fields.
Trigger on formopen or fieldchange.
Rules:
Use lists of
forms,
list of fields to make manditory.
change history
09.11.2007 TMS added 3 new fields to order from to change from mandatory to non-mandatory. (LAB_RC_BGCMT_LV_RespNasalMaskLPM, LAB_RC_BGCMT_LO_RespPartRebreather, LAB_RC_BGCMT_LO_RespNonRebreather)
02.11.2007 DW added a new form, LAB ChemBloodGas_Tmp.
01.28.2009 DW added logic to end the MLM if the MLM_Form_Update_Flag is on the form and is unchecked (will check the field to indicate open for modification)
02.25.2009 DW revised the 01.28.2009 logic to bypass the edits if the form is accessd by a physician
02.26.2015 STH CSR# 32765 - updated to call the user lab priority options MLM to display the user friendly lab priorities when appropriate.
05.29.2015 MJP CSR# 33459: added new field to form to change from mandatory to non (LAB_RC_BGCMT_LV_HiFloNCLPM)
;;
keywords: Called MLMs, Form fields, generic, manditory
;;
knowledge:
type: data-driven;;
data:
/***********************Make Changes To Spelling And Flags In This Section************************/
//NOTE: THE RELATIVE ORDER OF ITEMS MUST BE MAINTAINED WITHIN LISTS!!!
//MUST HAVE THE FOLLOWING ORDER FOR EACH ELEMENT ITEM:
//"FORM_NAME|FIELDS_TO_MAKE_MANDITORY"
form_map_list :=
("Resp CPAP|Resp BIPAP/CPAP O2%,Resp CPAP LPM"
,"Resp BIPAP|Resp BIPAP/CPAP O2%,Resp CPAP LPM"
,"LAB Chem Blood Gas|LAB_RC_BGCMT_LV_RespNCLPM" ||
",LAB_RC_BGCMT_LV_RespFaceMaskLPM,LAB_RC_BGCMT_LV_RespVenturiMaskFIO2" ||
",LAB_RC_BGCMT_LV_HiFloNCLPM" ||
",LAB_RC_BGCMT_LV_RESP Oximizer LPM,LAB_RC_BGCMT_RespAerosolMode,LAB_RC_BGCMT_BIPAP_CPAP" ||
",LAB_RC_BGCMT_LV_RespVentMode,LAB_RC_BGCMT_LO_RespRoomAir,LAB_RC_BGCMT_LO_Resp100 02" ||
",LAB_RC_BGCMT_LV_RespNasalMaskLPM,LAB_RC_BGCMT_LO_RespPartRebreather,LAB_RC_BGCMT_LO_RespNonRebreather"
,"LAB ChemBloodGas_Tmp|LAB_RC_BGCMT_LV_RespNCLPM" ||
",LAB_RC_BGCMT_LV_RespFaceMaskLPM,LAB_RC_BGCMT_LV_RespVenturiMaskFIO2" ||
",LAB_RC_BGCMT_LV_HiFloNCLPM" ||
",LAB_RC_BGCMT_LV_RESP Oximizer LPM,LAB_RC_BGCMT_RespAerosolMode,LAB_RC_BGCMT_BIPAP_CPAP" ||
",LAB_RC_BGCMT_LV_RespVentMode,LAB_RC_BGCMT_LO_RespRoomAir,LAB_RC_BGCMT_LO_Resp100 02" ||
",LAB_RC_BGCMT_LV_RespNasalMaskLPM,LAB_RC_BGCMT_LO_RespPartRebreather,LAB_RC_BGCMT_LO_RespNonRebreather"
,"YOUR_FORM_NAME_HERE|MANDITORY_FIELD_1,MANDITORY_FIELD_2,MANDITORY_FIELD_3,...etc."
);
/**************************************************************************************JAB********/
// 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;
//Initialize MLM pointers:
str_parse := mlm {{{SINGLE-QUOTE}}}UTIL_STRING_PARSE{{{SINGLE-QUOTE}}};
gen_ungray := mlm {{{SINGLE-QUOTE}}}FORM_GENERIC_un_gray{{{SINGLE-QUOTE}}};
// Display any field related to others:
(this_communication, this_form) := call gen_ungray
with this_communication, this_form, client_info_obj;
// Initialize lists
test_manditory_field_list := ();
// Assigns fields passed in the Form object to the Field object
field_list:= this_form.fields;
//*****BEGIN ***** STH 2.10.2015 - Added for CSR 32765 to display user friendly lab priorities
Call_UserFriendly_Lab_Priorities := mlm {{{SINGLE-QUOTE}}}SCH_LAB_PRIORITY_OPTIONS_CALLED{{{SINGLE-QUOTE}}};
DisplayNewScheduled := first of (field_list.Value
where field_list.DataItemName = "LAB_CB_Alternate Priorities");
//*****END ***** STH 2.10.2015 - Added for CSR 32765 to display user friendly lab priorities
CallingForm := this_form.name;
CallingEvent := this_communication.CallingEvent;
CallingField := this_communication.CallingFieldName;
if called_by_editor then
CallingForm := "Resp CPAP";
endif;
// 2.25.2009 DW bypass logic
//
// Bypass this MLM{{{SINGLE-QUOTE}}}s logi when a form is opened by a physician
orderroletype:= this_communication.primaryobj.enterrole;
orderrole := orderroletype matches pattern "%Physician%";
userguid:= this_communication.UserGUID;
user_orderrole := read last { "Select orderroletype from CV3User where guid = " || SQL(userguid) };
user_orderrolephysicain := user_orderrole matches pattern "%Physician%";
If user_orderrolephysicain = true
then; // Go to the end of the MLM
else // Continue with the MLM logic
for i in 1 seqto count form_map_list do
// Initialize value counter
value_in_mand_field_counter := 0;
// initialize vars:
manditory_field := null;
trigger_field := null;
// parse the form mapper:
form_element_list := call str_parse with form_map_list[i], "|";
test_form_name := form_element_list[1]; //Lookup form name from map list
// Test for proper form
if CallingForm = test_form_name then
//Lookup manditory fields, from map list
test_manditory_field_list := call str_parse with form_element_list[2], ",";
for j in 1 seqto count test_manditory_field_list do
// Test for proper field
test_manditory_field := test_manditory_field_list[j];
manditory_field := first of
(field_list where field_list.DataItemName = test_manditory_field);
if exists manditory_field then
if (manditory_field.datatype <> "checkbox"
and manditory_field.value is not null)
or (manditory_field.datatype = "checkbox"
and manditory_field.value = true) then
value_in_mand_field_counter := value_in_mand_field_counter + 1;
endif;
endif;
enddo; // for j in 1 seq to count test_manditory_field_list
for k in 1 seqto count test_manditory_field_list do
test_manditory_field := test_manditory_field_list[k];
manditory_field := first of
(field_list where field_list.DataItemName = test_manditory_field);
if exists manditory_field then
if value_in_mand_field_counter <= 0 then // Set open form defaults
// Mandate the field and, if necessary, make it visible
manditory_field.control_visible := true;
manditory_field.control_mandatory := True;
manditory_field.control_read_only := False;
else
manditory_field.control_mandatory := False;
manditory_field.control_read_only := False;
endif; // value_in_mand_field_counter <= 0
endif; // exists manditory_field
enddo; // for k in 1 seq to count test_manditory_field_list
endif; // CallingForm = test_form_name
enddo; // for i in 1 seqto count form_map_list
endif; // If exist FormUpdateCheckbox and FormUpdateCheckbox.value = False
//****BEGIN***** STH 2.10.2015 Added for CSR 32765 only display user friendly lab priorities if the opbservation is added to the form AND selected/checked
if (DisplayNewScheduled) then
//Call_UserFriendly_Lab_Priorities := mlm {{{SINGLE-QUOTE}}}SCH_LAB_PRIORITY_OPTIONS_CALLED{{{SINGLE-QUOTE}}};
(this_communication,this_form) := call Call_UserFriendly_Lab_Priorities with (this_communication,this_form,client_info_obj);
endif;
//****END***** STH 2.10.2015 Added for CSR 32765 only display user friendly lab priorities if the opbservation is added to the form AND selected/checked
;;
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: