89 lines
3.3 KiB
Plaintext
89 lines
3.3 KiB
Plaintext
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:
|