Initial Checking with all 820 MLMs

2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
--- a/MLMStripper/bin/Debug/FORM/FORM_KNEE_ASPIRATION_OS_CHECK.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_KNEE_ASPIRATION_OS_CHECK.mlm
@@ -0,0 +1,113 @@
+maintenance:
+
+	title:  FORM_KNEE_ASPIRATION_OS_Check;;
+	mlmname:  FORM_KNEE_ASPIRATION_OS_Check;;
+	arden: version 2.5;;
+	version:  6.10;;
+	institution: St. Clair Hospital ;;
+	author:  Shivprasad Jadhav;;
+	specialist:  Shivprasad Jadhav, Allscripts;;
+	date:  2015-01-29;;
+	validation:  testing;;
+
+library:
+	purpose:  	Ø	User should be able to select only one out of 3 Knee aspiartion Orders      ;;
+	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;
+			CallingItem := CallingField.Records_;
+
+
+/**********************************  Added By Shivprasad *****************************************************/
+
+					 Set_Generic_MLM:= MLM {{{SINGLE-QUOTE}}}FORM_Set_Generic_Item_Control{{{SINGLE-QUOTE}}};
+			         this_communication,this_form := call Set_Generic_MLM with this_communication,this_form,client_info_obj ;  
+					  
+
+/***************************************************************************************/
+
+
+			Knee_Left := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+											and field_list.Control_MultiFieldOccNum = 2 );
+			Knee_Left_Val := Knee_Left.Value;
+			Knee_Right := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+											and field_list.Control_MultiFieldOccNum = 1 );
+			Knee_Right_Val := Knee_Right.Value;
+			Knee_Bilateral := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+											and field_list.Control_MultiFieldOccNum = 5 );
+			Knee_Bilateral_Val := Knee_Bilateral.Value;
+			
+
+// *********** Objects for first flow *************
+					item1 := Knee_Left_Val[1];
+					item2 := Knee_Right_Val[1];
+					item3 := Knee_Bilateral_Val[1];
+
+//********* objects for Second Flow  **********
+			Knee_Left:= first of (Knee_Left_Val where Knee_Left_Val.Name = "Knee Aspiration");// 
+			Knee_right:= first of (Knee_Right_Val where Knee_Right_Val.Name = "Knee Aspiration");// 
+			Knee_BiLateral := first of (Knee_Bilateral_Val where Knee_Bilateral_Val.Name = "Knee Aspiration");// 
+		
+
+
+
+	//  first flow  ***************************************************************************************************
+				
+				If Knee_Left.IsSelected = True Then 
+						Knee_right.IsReadonly := True;
+						Knee_BiLateral.IsReadonly := True;
+
+				EndIf;
+
+				If Knee_right.IsSelected  = True Then 
+
+						Knee_Left.IsReadonly := True;
+						Knee_BiLateral.IsReadonly := True;
+
+				EndIf;
+
+				If Knee_BiLateral.IsSelected = True Then 
+						Knee_Left.IsReadonly := True;
+						Knee_right.IsReadonly := True;
+
+				EndIf;
+							
+					
+				
+
+				If (Knee_Left.IsSelected  = False  And Knee_right.IsSelected  = False And Knee_BiLateral.IsSelected = False )  Then 
+
+				
+						Knee_Left.IsReadonly := False; 
+						Knee_right.IsReadonly := False; 
+						Knee_BiLateral.IsReadonly := False;
+						
+					
+				EndIf;
+
+	;;
+	priority: 50
+	;;
+	evoke:  
+	;;
+	logic: conclude true;
+	;;
+	action: return this_communication, this_form;
+	;;
+Urgency: 50;;
+end: