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_NUR_CONSULTS.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_NUR_CONSULTS.mlm
@@ -0,0 +1,137 @@
+maintenance:
+
+	title: Consult Doctors, pick one;;
+	mlmname:  FORM_NUR_Consults;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Consult Docs MLM;;
+	author:  Robert Spence, Eclipsys Corp;;
+	specialist:  ;;
+	date:  2006-09-18;;
+	validation:  testing;;
+
+library:
+	purpose:  This MLM restricts the doctor list, based on the type of consult selected
+
+	;;
+	explanation:  This MLM restricts the doctor list, based on the type of consult selected
+		
+
+	;;
+	keywords: Called MLMs, Form fields, Consults
+	;;
+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;
+	
+		Info_field := last of (field_list 
+					where field_list.DataItemName = "MD_Consult_ Choosing a Physician" );
+
+		//Starts with:
+		StartString:= "Please select the correct checkbox for the order: " ||
+								"Physician Consult, Anesthesia Consult, or Rehabilitation Consult.";
+		
+		PhysCheck_field := last of (field_list 
+					where field_list.DataItemName = "MD_Consult_PhysicianCB" );
+		
+		AnesCheck_field := last of (field_list
+					where field_list.DataItemName = "Anesthesia Consult");
+
+		RehabCheck_field := last of (field_list
+					where field_list.DataItemName = "Rehabilitation Consult");
+
+		Doctor_field := last of (field_list
+					where field_list.DataItemName = "Obj_Plus_Consult");
+
+
+	//				this_communication.DisplayForm := "Yes";
+	//				this_communication.Message := "MLM Field :" || CallingField || "\n" || 
+	//													"MLM Event :" || CallingEvent || "\n" ||
+	//													"Form type :" || FormType;
+	//				this_communication.MessageType := "Informational";
+
+		If CallingEvent ="FieldChange" 
+		then
+			If CallingField = "MD_Consult_PhysicianCB"
+			then
+				If PhysCheck_Field.Value = True 
+				then
+					AnesCheck_field.Control_Read_Only := True;
+					RehabCheck_Field.Control_Read_Only := True;
+					Doctor_Field.Value :="";
+					Info_field.Value :="Please Choose a Physician From the Physician List";
+				else
+					AnesCheck_field.Control_Read_Only := False;
+					RehabCheck_Field.Control_Read_Only := False;
+					Doctor_Field.Value :="";
+					Info_field.Value := StartString;
+				endif;
+			elseif CallingField = "Anesthesia Consult"
+			then
+				If AnesCheck_field.Value = True 
+				then
+					PhysCheck_Field.Control_Read_Only := True;
+					RehabCheck_Field.Control_Read_Only := True;
+					Doctor_Field.Value :="Keystone Anesthesia Consultants, LTD       (KACL)";
+					Info_field.Value :="Physician Group Has Been Filled In For This Anesthesia Consult";
+				else
+					PhysCheck_Field.Control_Read_Only := False;
+					RehabCheck_Field.Control_Read_Only := False;
+					Doctor_Field.Value :="";
+					Info_field.Value := StartString;
+				endif;
+			elseif CallingField = "Rehabilitation Consult"
+			then
+				If RehabCheck_field.Value = True 
+				then
+					PhysCheck_Field.Control_Read_Only := True;
+					AnesCheck_Field.Control_Read_Only := True;
+					Doctor_Field.Value :="Medical Rehabilitation, Inc.      (MRI)";
+					Info_field.Value :="Physician Group Has Been Filled In For This Rehabilitation Consult";
+				else
+					PhysCheck_Field.Control_Read_Only := False;
+					AnesCheck_Field.Control_Read_Only := False;
+					Doctor_Field.Value :="";
+					Info_field.Value := StartString;
+				endif;
+			endif;	//Calling fields endif
+		endif;	 	//Events 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: