Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_NURSING_INSTRUCTIONS.mlm

@@ -0,0 +1,69 @@
+maintenance:
+
+	title: FORM_NURSING_INSTRUCTIONS;;
+	mlmname:  FORM_NURSING_INSTRUCTIONS;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Hospital;;
+	author:       Janet Nordin;;
+	specialist: Don Warnick ;;
+	date:  2018-04-26;;
+	validation:  testing;;
+
+library:
+      purpose:  Nursing Instructions Form Logic 				
+	;;
+
+	explanation:  This MLM is called from the Nursing Instructions Form
+                  
+ 
+	Change history 
+
+	05.18.2018   DW  CSR# 36411  Created          
+
+	;;
+	keywords: Called MLMs
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+   	(this_communication, this_form,	client_info_obj) := argument;
+    error_message:="";
+
+	field_list  := this_form.fields;
+	CallingEvent:= this_communication.CallingEvent;
+	Visit_Guid  := this_communication.ClientVisitGuid;
+	Chart_Guid  := this_communication.ChartGuid;
+	Client_Guid := this_communication.ClientGuid;
+
+	Communication_obj:= this_communication.primaryobj;
+	Order_set_name   := Communication_obj.OrderSetName;
+	Order_set_heading:= Communication_obj.OrderSetHeading;
+
+	Order_Field  := last of (field_list where field_list.DataItemName = "NUR_GenAdditionalTxt" );
+	Order_Field_Value := Order_Field.Value;
+
+	// If the form is called from these order sets make the order field "read only"
+
+	If Order_set_name = "Admission Orders -  Acute Ischemic Stroke/TIA" and Order_set_heading = "DirectAdmit or IP w/New Stroke"
+	
+		then
+
+			Order_Field.Control_Read_Only := true;
+	
+	endif;
+
+	;;
+	evoke:  
+	;;
+	logic:  
+
+		conclude true;
+	;;
+	action:
+
+		return this_communication, this_form;
+
+	;;
+end: