Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_POST_UTERINE_FIBEM_OS.mlm

@@ -0,0 +1,91 @@
+maintenance:
+
+	title:  ;;
+	mlmname:  FORM_POST_UTERINE_FIBEM_OS;;
+	arden: version 2.5;;
+	version:  0.00;;
+	institution:  St. Clair Hospital;;
+	author:  Shawn Head x7468;;
+	specialist:  Michelle Palmer;;
+	date:  2018-12-07;;
+	validation:  testing;;
+
+library:
+	purpose:  
+		This MLM will be called from the form{{{SINGLE-QUOTE}}}s CPOE_IVPCAManagement when triggered from the Order Set Post Uterine Fibroid Embolization
+	;;
+	explanation:  
+		12-7-2018 - STH - CSR#: 37085 - Created {Go-Live 1/8/2018}
+	;;
+	keywords:
+	;;
+	citations: 
+	;;
+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;
+	
+	
+		// Assigns fields passed in the Form object to the Field object
+		field_list:= this_form.fields;
+	
+		CallingForm := this_form.name;
+	    CallingEvent := this_communication.CallingEvent;
+		ItemEvent := this_communication.ItemEvent;
+		CallingField := this_communication.CallingFieldName;
+		OCS_GUID := this_communication.CatalogOrderSetGUID;
+		OCS_Name := read last {"select name from cv3ordercatalogset	with (Nolock)
+									where guid = " || sql(OCS_GUID)};
+
+		if(OCS_Name = "Post Uterine Fibroid Embolization") then
+			if(this_communication.ItemTable = "CV3OrderCatalogMasterItem") then
+
+				OC_GUID := this_communication.ItemID;
+				OC_Name := read last {"select name from CV3OrderCatalogMasterItem
+											where guid = " || sql(OC_GUID)};
+
+				if(OC_Name in ("IV Management","Discontinue Foley Catheter")) then
+					
+					if(CallingForm = "CPOE_IVPCAManagement") then
+						tstfldlst := field_list.DataItemName;
+						IVMgt_StopDate_Field := first of 
+								(field_list where field_list.DataItemName = "StopDate");
+						DCPCA_field := first of 
+								(field_list where field_list.DataItemName = "NUR_IVPCADC");
+						DCPCA_Value := DCPCA_field.Value;
+						if(DCPCA_Value matches pattern "%discontinue%") then
+							IVMgt_StopDate_Field.Control_Mandatory := true;	
+							//StopTime_Field.Control_Mandatory := true;
+						endif;
+					endif;
+					
+					if(CallingForm = "CPOE_DC_Foley") then
+						Foley_StopDate_Field := first of 
+								(field_list where field_list.DataItemName = "RequestedDate");
+						Foley_StopDate_Field.Control_Mandatory := true;
+					endif;
+				endif;
+			endif;
+		endif;
+
+	;;
+	priority: 50
+	;;
+	evoke:  
+	;;
+	logic:
+		conclude true;
+	;;
+	action:
+		return this_communication, this_form;
+	;;
+Urgency: 50;;
+end: