92 lines
2.5 KiB
Plaintext
92 lines
2.5 KiB
Plaintext
maintenance:
|
|
|
|
title: ;;
|
|
mlmname: FORM_POST_UTERINE_FIBEM_OS;;
|
|
arden: version 2.5;;
|
|
version: 0.00;;
|
|
institution: St. Clair Hospital;;
|
|
author: Shawn Head x7468;;
|
|
specialist: Michelle Palmer;;
|
|
date: 2018-12-07;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose:
|
|
This MLM will be called from the form{{{SINGLE-QUOTE}}}s CPOE_IVPCAManagement when triggered from the Order Set Post Uterine Fibroid Embolization
|
|
;;
|
|
explanation:
|
|
12-7-2018 - STH - CSR#: 37085 - Created {Go-Live 1/8/2018}
|
|
;;
|
|
keywords:
|
|
;;
|
|
citations:
|
|
;;
|
|
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;
|
|
|
|
|
|
// 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;
|
|
OCS_GUID := this_communication.CatalogOrderSetGUID;
|
|
OCS_Name := read last {"select name from cv3ordercatalogset with (Nolock)
|
|
where guid = " || sql(OCS_GUID)};
|
|
|
|
if(OCS_Name = "Post Uterine Fibroid Embolization") then
|
|
if(this_communication.ItemTable = "CV3OrderCatalogMasterItem") then
|
|
|
|
OC_GUID := this_communication.ItemID;
|
|
OC_Name := read last {"select name from CV3OrderCatalogMasterItem
|
|
where guid = " || sql(OC_GUID)};
|
|
|
|
if(OC_Name in ("IV Management","Discontinue Foley Catheter")) then
|
|
|
|
if(CallingForm = "CPOE_IVPCAManagement") then
|
|
tstfldlst := field_list.DataItemName;
|
|
IVMgt_StopDate_Field := first of
|
|
(field_list where field_list.DataItemName = "StopDate");
|
|
DCPCA_field := first of
|
|
(field_list where field_list.DataItemName = "NUR_IVPCADC");
|
|
DCPCA_Value := DCPCA_field.Value;
|
|
if(DCPCA_Value matches pattern "%discontinue%") then
|
|
IVMgt_StopDate_Field.Control_Mandatory := true;
|
|
//StopTime_Field.Control_Mandatory := true;
|
|
endif;
|
|
endif;
|
|
|
|
if(CallingForm = "CPOE_DC_Foley") then
|
|
Foley_StopDate_Field := first of
|
|
(field_list where field_list.DataItemName = "RequestedDate");
|
|
Foley_StopDate_Field.Control_Mandatory := true;
|
|
endif;
|
|
endif;
|
|
endif;
|
|
endif;
|
|
|
|
;;
|
|
priority: 50
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic:
|
|
conclude true;
|
|
;;
|
|
action:
|
|
return this_communication, this_form;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|