Initial Checking with all 820 MLMs

2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
--- a/MLMStripper/bin/Debug/FORM/FORM_SET_STOOL_SHIGA_TOXIN.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_SET_STOOL_SHIGA_TOXIN.mlm
@@ -0,0 +1,132 @@
+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: