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_SET_ET_STANDING_ORDERS.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_SET_ET_STANDING_ORDERS.mlm
@@ -0,0 +1,125 @@
+maintenance:
+
+	title: FORM_SET_ET_STANDING_ORDERS;;
+	mlmname:  FORM_SET_ET_STANDING_ORDERS;;
+	arden: version 2.5;;
+	version:  5.50;;
+	institution:  St Clair Hospital;;
+	author:  Courtney Carr;;
+	specialist:  Don Warnick;;
+	date:  2016-08-04;;
+	validation:  testing;;
+
+library:
+      purpose:  Select the appropriate ET treatment and medications for the selected wound type checkbox. 
+				;;
+
+	explanation:  This MLM is called from the ET Standing Orders Order Set
+	
+	
+ 	Change history 
+
+    08.04.2016 - DJW   CSR# 34898 - Created 
+
+
+	;;
+	keywords: Called MLMs, 
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+       	(this_communication, this_form,	client_info_obj) := argument;
+
+		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+	    include standard_libs;
+
+		using "ObjectsPlusXA.SCM.Forms";
+		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+
+		log_execution_info := FALSE;
+		error_message:="";
+
+		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;
+	
+		// Define the checkbox that was selected
+		
+        checkboxnumber:= substring 2 characters starting at 14 from this_communication.CallingFieldName;
+		selectedcheckbox := first of (field_list where field_list.DataItemName = "NUR_Checkbox" and field_List.Control_MultiFieldOccNum = (checkboxnumber as number));
+		
+		// Define the 2 grids
+
+	    ETOrderGrid  := first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 1);
+	    MedOrderGrid := first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 2);		
+
+		// Map the row number(s) in the grid(s) related to each of the checkboxes
+
+		et_griditem := 999;
+		rx_griditem := 999;
+
+		if     checkboxnumber = "1"  then et_griditem := 1;  					// Diabetic foot ulcer
+		elseif checkboxnumber = "2"  then et_griditem := 2; rx_griditem := 1; 	// Diabetic foot ulcer - gangrenous
+		elseif checkboxnumber = "3"  then et_griditem := 3;  					// Dechiced surgical wound 
+		elseif checkboxnumber = "4"  then et_griditem := 4; rx_griditem := 2; 	// Leg wounds
+		elseif checkboxnumber = "5"  then et_griditem := 5;  					// Heavy exudating wounds
+		elseif checkboxnumber = "6"  then et_griditem := 6;  					// Ischemic wounds
+		elseif checkboxnumber = "7"  then et_griditem := 7;  					// Fissures on heels of feet
+		elseif checkboxnumber = "8"  then et_griditem := 8; rx_griditem := 3;	// Auto immune wounds
+		elseif checkboxnumber = "9"  then et_griditem := 9; rx_griditem := 2; 	// Radiation burns
+		elseif checkboxnumber = "10" then et_griditem := 11; 					// Blisters
+		elseif checkboxnumber = "11" then et_griditem := 12; 					// Herpes shingles
+		elseif checkboxnumber = "12" then et_griditem := 13; 					// Fungating lesions - brest
+		elseif checkboxnumber = "13" then et_griditem := 14; 					// Fistula wounds
+		elseif checkboxnumber = "14" then et_griditem := 15; rx_griditem := 4; 	// Partial full thickness wound
+		elseif checkboxnumber = "15" then et_griditem := 16; rx_griditem := 5; 	// Full thickness wound
+		elseif checkboxnumber = "16" then et_griditem := 17; rx_griditem := 6; 	// Stasis dermatitis
+		elseif checkboxnumber = "17" then et_griditem := 18; 				 	// Venous stasis ulcers
+		elseif checkboxnumber = "18" then et_griditem := 10; 					// Hematoms to lower extremities
+		endif;
+	
+
+		// Set the trufalse value to determine if the grid item is to be checked or unchecked
+
+	 	if selectedcheckbox.Value = true 
+			then truefalse := true; 
+			else truefalse := false; 
+		endif;	
+	
+
+		// Update the ET Grid
+
+		index_list := 1 seqto (count ETOrderGrid.Value); 
+		for I in index_list do
+			if et_griditem = I
+				then  ETOrderGrid.Value[et_griditem].IsSelected := truefalse;
+			endif;
+		enddo;
+
+		// Update the Medications Grid
+
+		index_list := 1 seqto (count MedOrderGrid.Value); 
+		for I in index_list do
+			if rx_griditem = I
+				then  MedOrderGrid.Value[rx_griditem].IsSelected := truefalse;
+			endif;
+		enddo;
+
+
+	;;
+	evoke:  
+	;;
+	logic:  
+
+		conclude true;
+	;;
+	action:
+
+		return this_communication, this_form;
+	;;
+end: