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_PSYCHIATRY_ADMISSION_ORDERSET.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_PSYCHIATRY_ADMISSION_ORDERSET.mlm
@@ -0,0 +1,114 @@
+maintenance:
+
+	title: FORM_Psychiatry_Admission_Orderset;;
+	mlmname:  FORM_Psychiatry_Admission_Orderset;;
+	arden: version 2.5;;
+	version:  6.10;;
+	institution:  St. Clair Hospital;;
+	author:  Shivprasad Jadhav;;
+	specialist:  Shivprasad Jadhav Allscripts Corporation;;
+	date:  2014-12-10;;
+	validation:  testing;;
+
+library:
+      purpose:  
+
+				;;
+
+	explanation: 
+
+				Change History
+				-----------------
+				12.10.2014	 JML  CSR# 33053: Created
+				Look back the current visit on a patient in Emergeny room for the lab orders with the Status as "Specimen Recieved by performing Department" 
+                of the level "60" and if order is not there then preselect the same.
+					1)TSH - 3rd Gen
+					2)Comprehensive Basic Metabolic Panel
+					3)Drug Screen Urine-Medical Purpose Only
+					4)CBC (Includes Diff)
+					5) Rotine/Microscopic Urinalysis
+					6) B-hCG Quantitative Plasma/Serum
+	;;
+	keywords: Called MLMs, Newborn, Admission, Hepatitis B
+	;;
+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;
+			client_guid := this_communication.ClientGUID;
+			visit_guid := this_communication.ClientVisitGUID;
+			chart_guid := this_communication.ChartGUID;
+			CallingEvent := this_communication.CallingEvent;
+			CallingField := this_communication.CallingFieldName;
+
+			//Retrieve relevant form fields
+			Labs_NotDoneED := last of ( field_list WHERE field_list.DataItemName = "MultiOrderCheckbox"
+									and field_list.Control_MultiFieldOccNum = 6);
+			Labs_NotDoneED_Val := Labs_NotDoneED.Value;
+
+		/*****************************Call to Base form MLM******************************************/
+ 					Mdecical_Imaging_MLM:= MLM {{{SINGLE-QUOTE}}}FORM_Medical_Imaging_Indications_for_OS{{{SINGLE-QUOTE}}};
+                    this_communication,this_form := call Mdecical_Imaging_MLM with this_communication,this_form,client_info_obj ; 
+ 
+		/*****************************Call to Base form MLM******************************************/
+		
+
+					//Check to see if patient had these labs drawn in current visit till date
+						 ( lab_name ) := read {"SELECT o.Name "
+									 || "  FROM CV3ClientVisit cv WITH (NOLOCK) JOIN CV3Order o WITH (NOLOCK) "
+									 || " 	ON cv.GUID = o.ClientVisitGUID "
+									 || "  AND cv.ClientGUID = o.ClientGUID "
+									 || "  AND cv.ChartGUID = o.ChartGUID "
+									 || " WHERE cv.ClientGUID =  " || Sql(client_guid) 
+									 || " And cv.GUID =  " || Sql(visit_guid) 
+									 || " AND o.NAME IN ({{{SINGLE-QUOTE}}}TSH-3rd Gen{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Comprehensive Metabolic Panel{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Drug Screen Urine-Medical Purpose Only{{{SINGLE-QUOTE}}}, "
+									 || " {{{SINGLE-QUOTE}}}CBC (Includes Diff){{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}Routine/Microscopic Urinalysis{{{SINGLE-QUOTE}}})"
+									 || "  AND o.OrderStatusCode IN ({{{SINGLE-QUOTE}}}SPRV{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}RESF{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}RESI{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}RESC{{{SINGLE-QUOTE}}})"};
+					Bhg := "B-hCG Quantitative Plasma/Serum" ;  
+				lab_name := (lab_name , Bhg );  
+				if ( exists lab_name ) then
+					for lab in 1 seqto ( count Labs_NotDoneED_Val ) do
+						if ( Labs_NotDoneED_Val[lab].Name Not IN lab_name ) then
+							Labs_NotDoneED_Val[lab].IsSelected := true;
+						else
+							Labs_NotDoneED_Val[lab].IsSelected := false;
+						endif;						
+					enddo;
+				else
+					//No labs exist for this patient, select all labs
+					Labs_NotDoneED_Val.IsSelected := ( true, true, true, true, true, true );
+
+				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: