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_CASEMANAGEMENT.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_CASEMANAGEMENT.mlm
@@ -0,0 +1,148 @@
+maintenance:
+
+	title: Patient Type Change;;
+	mlmname:  FORM_CaseManagement;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Charger MLM;;
+	author:  Robert Spence, Eclipsys Corp;;
+	specialist:  ;;
+	date:  2008-08-08;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM restricts the user only select one checkbox on the Patient Type Change order
+
+	;;
+	explanation:  See above
+
+	;;
+	keywords: Called MLMs, Form fields, Case Management, Restrict form
+	;;
+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;
+		CallingField :=this_communication.CallingFieldName;
+		CallingEvent := this_communication.CallingEvent;
+		FormType := this_communication.FormType;
+	
+		
+
+
+
+
+				Obs_field := last of (field_list 
+							where field_list.DataItemName = "NUR_ADTObsvStatusCBx" );
+				
+				SSop_field := last of (field_list 
+							where field_list.DataItemName = "NUR_ADTSsopStatusCBx" );
+				
+				Inp_field := last of (field_list
+							where field_list.DataItemName = "NUR_ADTInptStatusCBx");
+
+				Surgery_field := last of (field_list
+							where field_list.DataItemName = "NUR_ADTsdcstatusCBx");
+
+				Denied_field := last of (field_list
+							where field_list.DataItemName = "NUR_ADTAdmDeniedCBx");
+
+		If callingField = "NUR_ADTObsvStatusCBx" then
+			If Obs_field.Value = True then
+				SSop_field.control_read_only := True;
+				Inp_field.control_read_only := True;
+				Surgery_field.control_read_only := True;
+				Denied_field.control_read_only := True;
+			else
+				SSop_field.control_read_only := False;
+				Inp_field.control_read_only := False;
+				Surgery_field.control_read_only := False;
+				Denied_field.control_read_only := False;
+			endif;
+		elseif callingField = "NUR_ADTSsopStatusCBx" then
+			If SSop_field.Value = True then
+				Obs_field.control_read_only := True;
+				Inp_field.control_read_only := True;
+				Surgery_field.control_read_only := True;
+				Denied_field.control_read_only := True;
+			else
+				Obs_field.control_read_only := False;
+				Inp_field.control_read_only := False;
+				Surgery_field.control_read_only := False;
+				Denied_field.control_read_only := False;
+			endif;
+		elseif callingField = "NUR_ADTInptStatusCBx" then
+			If Inp_field .Value = True then
+				Obs_field.control_read_only := True;
+				SSop_field.control_read_only := True;
+				Surgery_field.control_read_only := True;
+				Denied_field.control_read_only := True;
+			else
+				Obs_field.control_read_only := False;
+				SSop_field.control_read_only := False;
+				Surgery_field.control_read_only := False;
+				Denied_field.control_read_only := False;
+			endif;
+		elseif callingField = "NUR_ADTsdcstatusCBx" then
+			If Surgery_field.Value = True then
+				Obs_field.control_read_only := True;
+				Inp_field.control_read_only := True;
+				SSop_field.control_read_only := True;
+				Denied_field.control_read_only := True;
+			else
+				Obs_field.control_read_only := False;
+				Inp_field.control_read_only := False;
+				SSop_field.control_read_only := False;
+				Denied_field.control_read_only := False;
+			endif;
+		elseif callingField = "NUR_ADTAdmDeniedCBx" then
+			If Denied_field .Value = True then
+				Obs_field.control_read_only := True;
+				Inp_field.control_read_only := True;
+				Surgery_field.control_read_only := True;
+				SSop_field.control_read_only := True;
+			else
+				Obs_field.control_read_only := False;
+				Inp_field.control_read_only := False;
+				Surgery_field.control_read_only := False;
+				SSop_field.control_read_only := False;
+			endif;
+
+		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: