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

88
MLMStripper/bin/Debug/FORM/FORM_LAB_CONDITIONALORDER_PRIORITYTIME.mlm Normal file
View File

@@ -0,0 +1,88 @@
maintenance:
title: Form_Lab_ConditionalOrder_PriorityTime ;;
mlmname: Form_Lab_ConditionalOrder_PriorityTime ;;
arden: version 2;;
version: 4.50;;
institution: St. Clair Hospital;;
author: Shivprasad Jadhav ;;
specialist: Allscripts Corporation ;;
date: 2015-09-09;;
validation: testing;;
library:
purpose: possible to create an MLM that can be used generically on lab forms – attached to the Conditional field – so that any time a Condition is populated,
the order is permitted to be entered without a priority (removes the mandatory).
The priority would then be mandatory upon activation. This would be similar to what your team did with the Gentamicin Peak orders.
;;
explanation: ( )
CHANGE HISTORY
09/09/2015 - CSR# 32480 - Created MLM {GO-Live targeted for 4/26/2016};;
keywords:
Hold, requested Time, Start time;
;;
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;
comm_obj := this_communication.primaryobj;
called_by := this_communication.CallingEvent;
call_field := this_communication.CallingFieldName;
CallingEvent := this_communication.CallingEvent;
client_guid := this_communication.ClientGUID;
visit_guid := this_communication.ClientVisitGUID;
chart_guid := this_communication.ChartGuid;
orderid := this_communication.ItemID;
field_list:= this_form.fields;
session_type := comm_obj.internalprocessingtype;
Prm_Conditional := First of (field_list where field_list.DataItemName = "ConditionalOrder" );
Prm_PriorityTime_New := First of (field_list where field_list.DataItemName = "LAB_Order Priorities" );
Prm_PriorityTime := First of (field_list where field_list.DataItemName = "RequestedTime" );
if ((Prm_Conditional.Value.IsConditional = True)) Then
Prm_PriorityTime.Control_Mandatory := False;
Prm_PriorityTime_New.Control_Mandatory := False;
endif;
/*
Else
//****BEGIN***** STH 2.10.2015 CSR 32765 - show user friendly lab priorities
DisplayNewScheduled := first of (field_list.Value
where field_list.DataItemName = "LAB_CB_Alternate Priorities");
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);
Prm_PriorityTime_New.Control_Mandatory := True; //Prm_PriorityTime.Control_Mandatory
Prm_PriorityTime.Control_Mandatory := false;
else
//****END***** STH 2.10.2015 CSR 32765 - show user friendly lab priorities
Prm_PriorityTime_New.Control_Mandatory := false; //Prm_PriorityTime.Control_Mandatory
Prm_PriorityTime.Control_Mandatory := true;
endif;
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: