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

100
MLMStripper/bin/Debug/FORM/FORM_MODIFY_REASON.mlm Normal file
View File

@@ -0,0 +1,100 @@
maintenance:
title: require modify reason field;;
mlmname: FORM_modify_reason;;
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-18;;
validation: testing;;
library:
purpose:
Require a modification reason field on every order modify.
;;
explanation:
Change History
12-04-2008 RS Changed form field for respiratory to RESP Order Modify Reason Dict
12-03-2009 RS Fix from the change 12-04-2008 for other order forms
01-26-2015 TMS Added a call to FORM_ED_Resp_Page MLM on form open. CSR # 33099
;;
keywords:
;;
knowledge:
type: data-driven;;
data:
/***********************Make Changes To Spelling And Flags In This Section*********************/
/***********************************************************************************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:
gen_mand := mlm {{{SINGLE-QUOTE}}}FORM_LAB_GENERIC_MANDITORY{{{SINGLE-QUOTE}}};
gen_eo_mand := mlm {{{SINGLE-QUOTE}}}FORM_GENERIC_EITHER_OR_MANDITORY{{{SINGLE-QUOTE}}};
Ed_Page := mlm {{{SINGLE-QUOTE}}}FORM_ED_Resp_Page{{{SINGLE-QUOTE}}};
// Make mandatory any realated fields first:
(this_communication, this_form) := call gen_mand
with this_communication, this_form, client_info_obj;
(this_communication, this_form) := call gen_eo_mand
with this_communication, this_form, client_info_obj;
// Assigns fields passed in the Form object to the Field object
field_list:= this_form.fields;
CallingForm := this_form.name;
CallingEvent := this_communication.CallingEvent;
ItemEvent := this_communication.ItemEvent;
CallingField := this_communication.CallingFieldName;
wasteme :=0;
mod_reason_field := first of
(field_list where field_list.DataItemName = "RESP Order Modify Reason Dict");
if exists mod_reason_field then
wasteme := 1;
else
mod_reason_field := first of
(field_list where field_list.DataItemName = "RESP_Order Modify Reason");
endif;
if exists mod_reason_field and ItemEvent = "UserModify" then
mod_reason_field.control_visible := true;
mod_reason_field.control_read_only := false;
mod_reason_field.control_mandatory := true;
mod_reason_field.value := "";
else //do not display
mod_reason_field.control_visible := false;
mod_reason_field.control_mandatory := false;
mod_reason_field.value := "";
endif;
If CallingEvent = "FormOpen" then
(this_communication, this_form) := call Ed_Page
with this_communication, this_form, client_info_obj;
endif;
;;
evoke:
;;
logic:
Conclude true;
;;
action:
// This MLM returns two parameters, of types
//communication_type and form_type respectively.
return this_communication, this_form;
;;
Urgency: 50;;
end: