Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_PRE_PACEMAKER_ICDINSERTION_ANESTHESIA.mlm

@@ -0,0 +1,67 @@
+maintenance:
+
+	title:  FORM_PRE_PACEMAKER_ICDINSERTION_ANESTHESIA;;
+	mlmname:  FORM_PRE_PACEMAKER_ICDINSERTION_ANESTHESIA;;
+	arden: version 2.5;;
+	version:  6.10;;
+	institution: St. Clair Hospital ;;
+	author:  Shivprasad Jadhav;;
+	specialist:  Shivprasad Jadhav, Allscripts;;
+	date:  2015-01-21;;
+	validation:  testing;;
+
+library:
+	purpose:  	If any Anesthesia Consult is ordered then precheck the ‘Nursing Instructions:Call OR Scheduling’. ;;
+	explanation:  
+	;;
+	keywords:
+	;;
+	citations: 
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+		(this_communication,   	// Communication object
+			this_form,				// Form object
+			client_info_obj			//Arden ClientInfo object	
+			) := argument;
+		field_list:= this_form.Fields;
+
+			field_list := this_form.fields;
+			CallingEvent := this_communication.CallingEvent;
+			CallingField := this_communication.CallingFieldName;
+		
+
+			Anesthesia_Consult := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+											and field_list.Control_MultiFieldOccNum = 57 );
+			Anesthesia_Consult_Val := Anesthesia_Consult.Value;
+
+			Nursing_Instr := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+										and field_list.Control_MultiFieldOccNum = 48 );
+			Nursing_Instr_Val := Nursing_Instr.Value;
+			
+
+			if ( CallingEvent = "FieldChange" ) then
+				if ( CallingField = "MultiOrderGrid|57") then
+					if ( true IN Anesthesia_Consult_Val.IsSelected ) then
+						Nursing_Instr_Val[1].IsSelected := true;
+						Nursing_Instr_Val[1].IsReadonly := true ;
+					else
+						Nursing_Instr_Val[1].IsSelected := false;
+						Nursing_Instr_Val[1].IsReadonly := false ;
+					endif;
+				endif;
+			endif; 
+
+
+	;;
+	priority: 50
+	;;
+	evoke:  
+	;;
+	logic: conclude true;
+	;;
+	action: return this_communication, this_form;
+	;;
+Urgency: 50;;
+end: