Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_POST_PERMANENT_PACEMAKER_DRESSING.mlm

@@ -0,0 +1,98 @@
+maintenance:
+
+	title:  Form_Post_Permanent_Pacemaker_Dressing;;
+	mlmname:  Form_Post_Permanent_Pacemaker_Dressing;;
+	arden: version 2.5;;
+	version:  6.10;;
+	institution: SCH ;;
+	author:  Shivprasad Jadhav;;
+	specialist:  Shubha Rai;;
+	date:  2014-12-30;;
+	validation:  testing;;
+
+library:
+	purpose:  If upper Dressing Item Get selected then auto select Lower Dressing Item. If Upper dressing Get deselected then it remain as is on Post Permanent Pacemaker or ICD Insertion Orderset form	;;
+	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;
+				
+		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 = "Dressing") ;
+						Multi_Grid_fields := Multi_Grid.Value;
+						item1 := Multi_Grid_fields[1];
+						item2 := Multi_Grid_fields[2];
+
+					   item3 := Multi_Grid_fields[3];
+						item4 := Multi_Grid_fields[4];
+						
+					A:=0;
+					if item2.IsSelected = TRUE Then
+                       A:=11;
+						//item3.IsSelected := TRUE ; 
+					EndIF;
+               
+					if item3.IsSelected = FALSE Then
+						A:=33;
+					EndIf;
+
+
+					if item2.IsSelected = FALSE Then
+						A:=22;
+					EndIF;
+
+
+					if item2.IsSelected = FALSE And  item3.IsSelected = TRUE  Then
+						A:=1;
+					EndIF;
+
+					If A=11 Then 
+						item3.IsSelected := TRUE ; 
+  					ENDIF;
+					If A=22 Then 
+						item3.IsSelected := FALSE ; 
+						item3.IsReadonly :=FALSE;
+					EndIf;
+					If A=33 Then
+					 item3.IsSelected := TRUE ;
+					EndIF;
+                     If A=1 Then
+						item3.IsSelected := FALSE ; 
+						item3.IsReadonly :=FALSE;
+					EndIf;
+					
+ 
+	;;
+	priority: 50
+	;;
+	evoke:  
+	;;
+	logic: conclude true;
+	;;
+	action: return this_communication, this_form;
+	;;
+Urgency: 50;;
+end: