138 lines
3.6 KiB
Plaintext
138 lines
3.6 KiB
Plaintext
maintenance:
|
|
|
|
title: CCM Thoracentesis Orderset;;
|
|
mlmname: FORM_Set_CCM_Thoracentesis ;;
|
|
arden: version 2;;
|
|
version: 4.50;;
|
|
institution: St Clair;;
|
|
author: Robert Spence, Eclipsys Corp Ext 7461;;
|
|
specialist: ;;
|
|
date: 2009-09-22;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: Used to select labs per left / right or both Thoracentesis
|
|
|
|
;;
|
|
|
|
explanation: This MLM is called from the CCM Thoracentesis Orderset
|
|
|
|
|
|
;;
|
|
keywords: Called MLMs,CCM Thoracentesis Orderset
|
|
;;
|
|
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*******************/
|
|
|
|
/* 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;
|
|
|
|
fldleft := last of (field_list where field_list.DataItemName = "CCM Left Thoracentesis");
|
|
fldright := last of (field_list where field_list.DataItemName = "CCM Right Thoracentesis");
|
|
fldleftright := last of (field_list where field_list.DataItemName = "CCM L/R Thoracentesis");
|
|
|
|
listcbs:= ();
|
|
allvalue := false;
|
|
|
|
|
|
|
|
if Callingfield = "CCM Left Thoracentesis|1" then
|
|
allvalue := fldleft.Value;
|
|
listcbs:=(2);
|
|
|
|
if fldleft.Value = True then
|
|
fldright.control_read_only := True;
|
|
fldleftright.control_read_only := True;
|
|
else
|
|
fldright.control_read_only := False;
|
|
fldleftright.control_read_only := False;
|
|
endif;
|
|
elseif Callingfield = "CCM Right Thoracentesis|1" then
|
|
allvalue := fldright.Value;
|
|
listcbs:=(3);
|
|
if fldright.Value = True then
|
|
fldleft.control_read_only := True;
|
|
fldleftright.control_read_only := True;
|
|
|
|
// set grid here, name of grid to change or list and to change to.
|
|
|
|
else
|
|
fldleft.control_read_only := False;
|
|
fldleftright.control_read_only := False;
|
|
|
|
// set grid here, name of grid to change or list and to change to.
|
|
endif;
|
|
elseif Callingfield = "CCM L/R Thoracentesis|1" then
|
|
allvalue := fldleftright.Value;
|
|
listcbs:=(2,3);
|
|
if fldleftright.Value = True then
|
|
fldleft.control_read_only := True;
|
|
fldright.control_read_only := True;
|
|
|
|
// set grid here, name of grid to change or list and to change to.
|
|
|
|
else
|
|
fldleft.control_read_only := False;
|
|
fldright.control_read_only := False;
|
|
|
|
// set grid here, name of grid to change or list and to change to.
|
|
endif;
|
|
endif;
|
|
|
|
listcbsproc:= count listcbs;
|
|
|
|
|
|
for k in (1 seqto listcbsproc) do
|
|
gridwork := listcbs[k];
|
|
Grid_fld := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox"
|
|
and field_List.Control_MultiFieldOccNum = gridwork);
|
|
Grid_list :=Grid_fld.Value;
|
|
Grid_SelList := Grid_List.IsSelected;
|
|
|
|
ListMembs:= count Grid_SelList;
|
|
setlist := ();
|
|
for j in (1 seqto ListMembs) do
|
|
setlist := setlist, allvalue;
|
|
enddo;
|
|
Grid_List.IsSelected:= setlist;
|
|
|
|
enddo;
|
|
|
|
|
|
|
|
;;
|
|
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:
|