133 lines
3.6 KiB
Plaintext
133 lines
3.6 KiB
Plaintext
maintenance:
|
|
|
|
title: Lab Stool Culture on Order Set Must Order Shiga Toxin 1 and 2;;
|
|
mlmname: FORM_Set_Stool_Shiga_Toxin;;
|
|
arden: version 2;;
|
|
version: 4.50;;
|
|
institution: St Clair Isolation Set MLM;;
|
|
author: Robert Spence, Eclipsys Corp Ext 7461;;
|
|
specialist: Bryan Berkeybile, Eclipsys Corp ext 7469;;
|
|
date: 2007-11-21;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: When selecting Stool Culture on the Order Set, Make Shiga Toxin Mandatory (check it for the user)
|
|
Deselecting Stool Culture will deselect Shiga Toxin
|
|
Selecting Shiga Toxin when Stool Culture is not selected, pop up message and select Stool Culture
|
|
Note: Stool Culture cannot be false at this time
|
|
Deselecting Shiga Toxin when Stool Culture is true will pop up message and deselect Stool
|
|
Note: Stool Culture cannot be true at this time
|
|
|
|
;;
|
|
|
|
explanation: This MLM is called from the Stool Order set (Lab Stool Order Set)
|
|
|
|
|
|
Change history
|
|
|
|
11.21.2007 RS Created
|
|
08.23.2016 DW CSR# 34947 - GI Pathogen changes
|
|
|
|
;;
|
|
keywords: Called MLMs, Stool order set, Lab
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
|
|
(this_communication, this_form, client_info_obj) := argument;
|
|
|
|
log_execution_info := FALSE;
|
|
|
|
error_message:="";
|
|
|
|
|
|
field_list:= this_form.fields;
|
|
|
|
CallingEvent := this_communication.CallingEvent;
|
|
CallingField := this_communication.CallingFieldName;
|
|
ClientGuid:=this_communication.ClientGUID;
|
|
ClientChartGUID:=this_communication.ChartGUID;
|
|
|
|
|
|
StoolCB:= last of (field_list where field_list.DataItemName = "Lab_CB_Stool" );
|
|
ClonicCB:= last of (field_list where field_list.DataItemName = "Lab_CB_Clonic_Fluid" );
|
|
|
|
Multi_fld3 := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox" and field_List.Control_MultiFieldOccNum = 3 );
|
|
Multi_list3 :=Multi_fld3.Value;
|
|
|
|
Multi_fld4 := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox" and field_List.Control_MultiFieldOccNum = 4 );
|
|
Multi_list4 :=Multi_fld4.Value;
|
|
|
|
Rotavirus_Order:= first of (Multi_list3 where Multi_list3.Name = "Rotavirus Antigen, Stool (Mayo)");
|
|
Fecal_Order := first of (Multi_list4 where Multi_list4.Name = "Fecal Fat Quantitative (Mayo)");
|
|
Reducing_Order := first of (Multi_list4 where Multi_list4.Name = "Reducing Substance Stool (Mayo)");
|
|
|
|
Type1Fld := last of (field_list where field_list.DataItemName = "Lab_M_VO_OBR15_SpecT_StolColFl" );
|
|
Type2Fld := last of (field_list where field_list.DataItemName = "LAB_RC_SDES_MicroSource_Stool" );
|
|
|
|
|
|
|
|
If CallingField = "Lab_CB_Stool|1"
|
|
|
|
then
|
|
|
|
If StoolCB.Value = True
|
|
|
|
then
|
|
ClonicCB.Value := False;
|
|
ClonicCB.control_read_only := True;
|
|
Type1Fld.Value := "Stool (STOL)";
|
|
Type2Fld.Value := "Stool (STOL)";
|
|
else
|
|
ClonicCB.control_read_only :=False;
|
|
Type1Fld.Value := "";
|
|
Type2Fld.Value := "";
|
|
endif;
|
|
|
|
elseif CallingField = "Lab_CB_Clonic_Fluid|1"
|
|
|
|
then
|
|
|
|
If ClonicCB.Value = True
|
|
then
|
|
StoolCB.Value := False;
|
|
StoolCB.control_read_only := True;
|
|
Type1Fld.Value := "Colonic Fluid (COLFLD)";
|
|
Type2Fld.Value := "Colonic Fluid (COLFLD)";
|
|
|
|
Rotavirus_Order.IsReadonly:=True;
|
|
Reducing_Order.IsReadonly:=True;
|
|
Fecal_Order.IsReadonly:=True;
|
|
|
|
else
|
|
StoolCB.control_read_only := False;
|
|
Type1Fld.Value := "";
|
|
Type2Fld.Value := "";
|
|
|
|
Rotavirus_Order.IsReadonly:=False;
|
|
Reducing_Order.IsReadonly:=False;
|
|
Fecal_Order.IsReadonly:=False;
|
|
endif;
|
|
|
|
|
|
endif; // Calling Field
|
|
|
|
|
|
;;
|
|
|
|
evoke:
|
|
;;
|
|
|
|
logic:
|
|
|
|
conclude true;
|
|
;;
|
|
|
|
action:
|
|
|
|
return this_communication, this_form;
|
|
;;
|
|
end:
|