Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_POST_PERMANENT_PACEMAKER_PHARMACYGRID.mlm

@@ -0,0 +1,79 @@
+maintenance:
+
+	title:  Form_Post_Permanent_Pacemaker_PharmacyGrid;;
+	mlmname:  Form_Post_Permanent_Pacemaker_PharmacyGrid;;
+	arden: version 2.5;;
+	version:  6.10;;
+	institution: SCH ;;
+	author:  Shivprasad Jadhav;;
+	specialist:  Shubha Rai;;
+	date:  2014-12-30;;
+	validation:  testing;;
+
+library:
+	purpose:  If one of the Cephalexin order is checked then the other Cephalexin order should be inactivated on Post Permanent Pacemaker or ICD Insertion Orderset	;;
+	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;
+			field_list2 := this_form.fields;
+			//field_list3 := this_form.fields;
+		
+		Client_GUID := this_communication.ClientGUID;
+		ClientVisit_GUID := this_communication.ClientVisitGUID;
+		Chart_GUID := this_communication.ChartGUID;
+		form_name := this_form.Name;
+		
+	
+
+						/* If any item is selected then select all grid items */
+						
+						Selected_Flag := False;
+						Multi_Grid := First of ( field_list2 where field_list.DataItemName = "MultiOrderGrid" and field_list.Label = "Pharmacy - Medications") ;
+						Multi_Grid_fields := Multi_Grid.Value;
+						item1 := Multi_Grid_fields[1];
+						item2 := Multi_Grid_fields[2];
+						
+
+					if item1.IsSelected = TRUE Then
+						item2.IsReadonly := TRUE ; 
+					EndIF;
+					if item1.IsSelected = FALSE Then
+						item2.IsReadonly := FALSE ; 
+					EndIF;
+
+
+					if item2.IsSelected = TRUE Then
+						item1.IsReadonly := TRUE ; 
+					EndIF;
+					if item2.IsSelected = FALSE Then
+						item1.IsReadonly := FALSE ; 
+					EndIF;
+
+  
+
+
+
+	;;
+	priority: 50
+	;;
+	evoke:  
+	;;
+	logic: conclude true;
+	;;
+	action: return this_communication, this_form;
+	;;
+Urgency: 50;;
+end: