96 lines
3.8 KiB
Plaintext
96 lines
3.8 KiB
Plaintext
maintenance:
|
|
|
|
title: FORM_LAB_PRIORITY_OPTIONS;;
|
|
mlmname: FORM_LAB_PRIORITY_OPTIONS;;
|
|
arden: version 2;;
|
|
version: 4.50;;
|
|
institution: St Clair Isolation Set MLM;;
|
|
author: Eclipsys Corp;;
|
|
specialist: Shawn Head;;
|
|
date: 2014-11-24;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: MLM will display either the custom priorities or system priorites and assign the proper schedule to the lab orders.
|
|
|
|
;;
|
|
|
|
explanation: This MLM can be called from any fields on a form that need to trigger the custom priority fields added to the lab forms.
|
|
This MLM will display a custom UDDI that has "user fiendly" descriptions. The called MLM SCH_LAB_PRIORITY_OPTIONS_CALLED
|
|
is the MLM that actually does all the logic. If there are other MLM{{{SINGLE-QUOTE}}}s already attached to form fields on the MLM then their is a section
|
|
commented out below that can be copied/pasted into other MLM{{{SINGLE-QUOTE}}}s to call the MLM properly. There are configuration pieces that Maria Pest
|
|
put in place for all this to work properly with the MLM. See the CSR request details for more information. This logic will work on both
|
|
Order forms and Order Set Forms.
|
|
|
|
Change History
|
|
|
|
2014.11.24 - STH CSR#: 32765 - Created MLM
|
|
2015.03.09 - STH CSR#: 32765 - Issues addressed based on users feed back (showing the time field disabled instead of hidding it,adding section for
|
|
order set calling, and making sure all fields are working from both order entry and being called from Order Sets).
|
|
|
|
|
|
;;
|
|
keywords: Called MLMs, Form fields, schedule
|
|
;;
|
|
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;
|
|
|
|
|
|
/*******************Make Changes To Spelling And Flags In This Section*******************/
|
|
|
|
/* These variables must containt he same wording as the options in the drop down list */
|
|
|
|
/***************************************************************************************/
|
|
|
|
// Initialize error message
|
|
error_message:="";
|
|
|
|
call_field := this_communication.CallingFieldName;
|
|
field_list:= this_form.fields;
|
|
|
|
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);
|
|
endif;
|
|
//testmlm := mlm {{{SINGLE-QUOTE}}}SCH_LAB_PRIORITY_OPTIONS_CALLED{{{SINGLE-QUOTE}}};
|
|
// (this_communication,this_form) := call testmlm with (this_communication,this_form,client_info_obj);
|
|
|
|
|
|
//--------THIS SECTION CAN BE COPIED TO OTHER MLM{{{SINGLE-QUOTE}}}S IF YOU NEED TO CALL THE CUSTOM LAB PRIORITIES MLM
|
|
/*
|
|
//-----------BEGIN COPY SECTION-------------------
|
|
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);
|
|
endif;
|
|
//-----------END COPY SECTION-------------------
|
|
//--------THIS SECTION CAN BE COPIED TO OTHER MLM{{{SINGLE-QUOTE}}}S IF YOU NEED TO CALL THE CUSTOM LAB PRIORITIES MLM*/
|
|
;;
|
|
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:
|