135 lines
4.0 KiB
Plaintext
135 lines
4.0 KiB
Plaintext
maintenance:
|
|
|
|
title: FORM_ACETYLCYSTEINE_NEW_ORDER;;
|
|
mlmname: FORM_ACETYLCYSTEINE_NEW_ORDER;;
|
|
arden: version 2.5;;
|
|
version: 5.50;;
|
|
institution: St Clair Hospital;;
|
|
author: Juliet M. Law, Allscripts ;;
|
|
specialist: Bryan Berkeybile, Allscripts;;
|
|
date: 2013-06-17;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose:
|
|
;;
|
|
|
|
explanation: This MLM is called from ...
|
|
|
|
Change history
|
|
2013.06.17 JML CSR 30931: Created
|
|
2013.07.19 BDB Updated the Rate Data Item as original was not crossing to WORx. Then updated BaseSolution Dose, as the
|
|
calculation did not need to occur on the Form. Then updated Rate value, as the calculation changed
|
|
due to the BaseSolution change.
|
|
|
|
|
|
|
|
;;
|
|
keywords: Called MLMs
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
|
|
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
|
include standard_libs;
|
|
|
|
using "ObjectsPlusXA.SCM.Forms";
|
|
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
|
|
|
HoldOrder_RequestedTime := mlm {{{SINGLE-QUOTE}}}FORM_HOLDORDER_REQUESTEDTIME{{{SINGLE-QUOTE}}};
|
|
|
|
// 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;
|
|
|
|
/*******************Make Changes To Spelling And Flags In This Section*******************/
|
|
|
|
/* Set to true if a decision.log is needed.*/
|
|
log_execution_info := FALSE;
|
|
|
|
|
|
/***************************************************************************************/
|
|
|
|
// Initialize error message
|
|
error_message:="";
|
|
|
|
// Assigns fields passed in the Form object to the Field object
|
|
field_list:= this_form.fields;
|
|
CallingEvent := this_communication.CallingEvent;
|
|
CallingField := this_communication.CallingFieldName;
|
|
ClientGuid := this_communication.ClientGUID;
|
|
ChartGuid := this_communication.ChartGUID;
|
|
FormName := this_form.Name;
|
|
|
|
//Retrieve Fields
|
|
Dosage_Low := first of (field_list WHERE field_list.DataItemName = "DosageLow");
|
|
Dosage_Low_fld := Dosage_Low.Value;
|
|
|
|
Rate_fld := first of (field_list WHERE field_list.DataItemName = "PRX_IVRATE"); //[BB changed to test updates to UDDI - Was: "OrderIVRate"]
|
|
Order_IV_Rate := Rate_fld.Value;
|
|
|
|
Instructions_fld := first of (field_list WHERE field_list.DataItemName = "AdminInstructions");
|
|
|
|
|
|
//Add call to FORM_HOLDORDER_REQUESTEDTIME MLM to handle conflict of both MLMs need called on Form Open
|
|
(this_communication, this_form) := call HoldOrder_RequestedTime WITH this_communication, this_form, client_info_obj;
|
|
|
|
if (CallingEvent = "FormOpen") then
|
|
if (Instructions_fld.Value = "Run for 1 hour") then
|
|
if (Dosage_Low_fld > 0) then
|
|
|
|
Rate_fld.Value := ROUND( ( Dosage_Low_fld / 200 ) + 200 );
|
|
|
|
endif;
|
|
elseif (Instructions_fld.Value = "Run for 4 hours") then
|
|
if (Dosage_Low_fld > 0) then
|
|
|
|
Rate_fld.Value := ROUND( ( ( Dosage_Low_fld / 200 ) + 500 ) / 4 );
|
|
|
|
endif;
|
|
elseif (Instructions_fld.Value = "Run for 16 hours") then
|
|
if (Dosage_Low_fld > 0) then
|
|
|
|
Rate_fld.Value := ROUND( ( ( Dosage_Low_fld / 200 ) + 1000 ) / 16 );
|
|
|
|
endif;
|
|
|
|
endif;
|
|
elseif (CallingEvent = "FieldChange") then
|
|
|
|
if (CallingField = "DosageLow") then
|
|
|
|
if (Instructions_fld.Value = "Run for 1 hour") then
|
|
|
|
Rate_fld.Value := ROUND (( Dosage_Low_fld / 200 ) + 200 );
|
|
|
|
elseif (Instructions_fld.Value = "Run for 4 hours") then
|
|
|
|
Rate_fld.Value := ROUND( ( ( Dosage_Low_fld / 200 ) + 500 ) / 4 );
|
|
|
|
elseif (Instructions_fld.Value = "Run for 16 hours") then
|
|
|
|
Rate_fld.Value := ROUND( ( ( Dosage_Low_fld / 200 ) + 1000 ) / 16 );
|
|
|
|
endif;
|
|
endif;
|
|
endif;
|
|
;;
|
|
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:
|