Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/FORM/FORM_POST_OP_APPENDECTOMY_MORPHINE.mlm

@@ -0,0 +1,157 @@
+maintenance:
+
+	title: FORM_POST_OP_APPENDECTOMY_MORPHINE ;;
+	mlmname:  FORM_POST_OP_APPENDECTOMY_MORPHINE ;;
+	arden: version 2.5;;
+	version:  6.10;;
+	institution:  St. Clair Hospital;;
+	author:  Shivprasad Jadhav;;
+	specialist:  Shivprasad Jadhav;;
+	date:  2015-02-16;;
+	validation:  testing;;
+
+library:
+      purpose:  
+
+				;;
+
+	explanation: 
+
+				Change History
+				-----------------
+				12.10.2014	 JML  CSR# 33051: Created
+	;;
+	keywords: Called MLMs
+	;;
+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;
+
+
+			/*******************Make Changes To Spelling And Flags In This Section*******************/
+
+			/* Set to true if a decision.log is needed.*/
+			log_execution_info := FALSE;
+
+			/***************************************************************************************/
+
+			// Initialize error message
+			error_message:="";
+
+			// Assigns fields passed in the Form object to the Field object
+			field_list:= this_form.fields;
+			
+
+			
+
+			CallingEvent := this_communication.CallingEvent;
+			CallingField := this_communication.CallingFieldName;
+
+			//Retrieve relevant form fields
+			Medication1 := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+									and field_list.Control_MultiFieldOccNum = 59);
+			Medication1_Val := Medication1.Value;
+
+			Medication2 := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+									and field_list.Control_MultiFieldOccNum = 60);
+			Medication2_Val := Medication2.Value;
+			
+		
+			Item_1 := Medication1_Val[1]; //Hydromorphone Inj
+			Item_2 := Medication1_Val[2];//Morphine  Inj
+			Item_3 := Medication2_Val[1]; //PCA - Morphine Order Set
+			Item_4 := Medication2_Val[2]; //PCA - Hydromorphone Order Set
+			/*Item_5 := Medication_Val[5]; //Ondansetron Inj
+			Item_6 := Medication_Val[6]; //Promethazine Inj
+			Item_7 := Medication_Val[7]; 
+			Item_8 := Medication_Val[8]; 
+			Item_9 := Medication_Val[9]; */
+
+
+			MedVal1:=NULL;
+			MedVal2 :=NULL;
+			for i in 1 seqto 2 do
+			If Medication1_Val[i].IsSelected = True Then 
+				MedVal1 := i;
+			
+			EndIf;
+			If Medication2_Val[i].IsSelected = True   Then
+				MedVal2 := i;
+					
+			Endif;
+			EndDo;
+
+
+
+			
+
+					
+							
+							If ( Item_1.IsSelected= true or Item_2.IsSelected= true or Item_3.IsSelected= true or Item_4.IsSelected= true  )Then
+								Item_1.IsReadOnly := true;
+								Item_2.IsReadOnly := true;
+								Item_3.IsReadOnly := true;	
+								Item_4.IsReadOnly := true;
+							endif;
+						
+
+
+		
+
+			If (MedVal1 is NULL) And ( MedVal2 Is Null ) Then 
+						Medication1_Val[1].IsReadOnly := false;
+						Medication1_Val[2].IsReadOnly := false;
+						Medication2_Val[1].IsReadOnly := false;	
+						Medication2_Val[2].IsReadOnly := false;
+		
+			EndIf;
+
+			for i in 1 seqto 2 do
+			
+			If Medication1_Val[i].IsSelected = True Then
+				Val1 := i;
+			EndIf;
+			If Medication2_Val[i].IsSelected = True Then
+				Val2 := i;
+			EndIf;
+			Enddo;
+			
+			If Val1 is not NULL Then 
+				Medication1_Val[Val1].IsReadOnly := false ; 
+
+				/*If  Val1=1 Then 
+						Item_1.IsReadOnly := False ;
+				ElseIf Val2 Then 
+						Item_2.IsReadOnly := False ;
+				Endif;*/
+						
+
+			EndIf;
+			If Val2 Is not Null Then
+			    Medication2_Val[Val2].IsReadOnly := false ;
+
+			EndIf;
+
+			
+
+
+	;;
+	evoke:  // No evoke statement
+	;;
+	logic:  
+
+			conclude true;
+	;;
+	action:
+        	// This MLM returns two parameters, of types communication_type and form_type respectively.
+			return this_communication, this_form;
+	;;
+end: