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_COLECTOMYCOLON_RESCTION_POST_OP.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_COLECTOMYCOLON_RESCTION_POST_OP.mlm
@@ -0,0 +1,145 @@
+maintenance:
+
+	title:  FORM_COLECTOMYCOLON_RESCTION_POST_OP;; 
+	mlmname:  FORM_COLECTOMYCOLON_RESCTION_POST_OP;;
+	arden: version 2.5;;
+	version:  6.10;;
+	institution: St. Clair Hospital ;;
+	author:  Shivprasad Jadhav;;
+	specialist:  Shivprasad Jadhav, Allscripts;;
+	date:  2015-02-23;;
+	validation:  testing;;
+
+library:
+	purpose:  	Scenario 1 : Only one can be selected from the highlighted 5 Order item/order set. As all are given for same reason[mild to moderate pain].
+                            
+                Scenario 2 : Only one can be selected from the highlighted two order item as both are given for same reason[nausea/vomiting];;
+	explanation:  
+				11-03-2015 - CSR:33066 : Created 
+	;;
+	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;
+
+			CallingEvent := this_communication.CallingEvent;
+			CallingField := this_communication.CallingFieldName;
+
+			
+			Medication_Morphine := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+											and field_list.Control_MultiFieldOccNum = 62 );
+		    Medication_HydroMorphine := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+											and field_list.Control_MultiFieldOccNum = 63 );
+			Medication_Pharmacy := last of ( field_list WHERE field_list.DataItemName = "MultiOrderGrid"
+											and field_list.Control_MultiFieldOccNum = 49 );
+
+	
+			Morphine_Value  := Medication_Morphine.Value ;
+			HydroMorphine_Value := Medication_HydroMorphine.Value;
+			Pharmacy_Value := Medication_Pharmacy.Value;
+
+		  
+			
+// *********** Objects for first flow *************
+			  
+		
+			Morphine1 := first of (Morphine_Value where Morphine_Value.Name = "Morphine  Inj"); 
+			//Morphine2 := first of (Morphine_Value where Morphine_Value.Name = "PCA - Morphine Order Set"); //PCA - Morphine Order Set
+			Morphine2 := Morphine_Value[2];
+	    	HydroMorphine1 := first of (HydroMorphine_Value where HydroMorphine_Value.Name = "Hydromorphone Inj"); // D5W  1000ml
+			//HydroMorphine2 := first of (HydroMorphine_Value where HydroMorphine_Value.Name = "PCA - Hydromorphone Order Set");
+ 			HydroMorphine2 := HydroMorphine_Value[2];
+			//OxyCodon := first of (Pharmacy_Value where Pharmacy_Value.Name = "OxyCODONE  5mg/Acetaminophen 325mg Tab"); 
+
+			//Second Scope in MLM
+			Ondansetron := first of (Pharmacy_Value where Pharmacy_Value.Name = "Ondansetron Inj"); 
+			Promethazine := first of (Pharmacy_Value where Pharmacy_Value.Name = "Promethazine Inj"); 
+			
+				
+			If Morphine1.IsSelected = True Then 
+							
+			    Morphine2.IsReadonly := True;
+				HydroMorphine1.IsReadonly := True ;
+				HydroMorphine2.IsReadonly := True;
+				//OxyCodon.IsReadonly := True ;
+
+			Endif;
+			If Morphine2.IsSelected = True Then 
+							
+			    Morphine1.IsReadonly := True;
+				HydroMorphine1.IsReadonly := True ;
+				HydroMorphine2.IsReadonly := True;
+				//OxyCodon.IsReadonly := True ;
+
+			Endif;
+			If HydroMorphine1.IsSelected = True Then 
+				Morphine1.IsReadonly := True;			
+			    Morphine2.IsReadonly := True;
+				HydroMorphine2.IsReadonly := True;
+				//OxyCodon.IsReadonly := True ;
+
+			Endif;
+			If HydroMorphine2.IsSelected = True Then 
+				
+				Morphine1.IsReadonly := True;				
+			    Morphine2.IsReadonly := True;
+				HydroMorphine1.IsReadonly := True ;
+				//OxyCodon.IsReadonly := True ;
+
+			Endif;
+			/*If OxyCodon.IsSelected = True Then 
+				Morphine1.IsReadonly := True;					
+			    Morphine2.IsReadonly := True;
+				HydroMorphine1.IsReadonly := True ;
+				HydroMorphine2.IsReadonly := True;
+
+		    Endif;*/
+			If  HydroMorphine2.IsSelected = False And HydroMorphine1.IsSelected = False And Morphine2.IsSelected = False And Morphine1.IsSelected = False Then
+
+				Morphine1.IsReadonly := False;					
+			    Morphine2.IsReadonly := False;
+				HydroMorphine1.IsReadonly := False ;
+				HydroMorphine2.IsReadonly := False;
+				//OxyCodon.IsReadonly := False ;
+
+			EndIf;
+
+
+//  Second flow  ******************************************************************************
+					If Ondansetron.IsSelected = True Then 
+						Promethazine.IsReadonly := True;					
+		
+				    Endif;
+			        If Promethazine.IsSelected = True Then 
+						Ondansetron.IsReadonly := True;					
+
+				    Endif;
+					If Promethazine.IsSelected = False And Ondansetron.IsSelected = False Then
+		
+						Promethazine.IsReadonly := False;					
+					    Ondansetron.IsReadonly := False;
+				
+					EndIf;
+
+
+			
+
+;;
+	priority: 50
+	;;
+	evoke:  
+	;;
+	logic: conclude true;
+	;;
+	action: return this_communication, this_form;
+	;;
+Urgency: 50;;
+end: