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_HH_PHCO.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_HH_PHCO.mlm
@@ -0,0 +1,97 @@
+maintenance:
+
+	title: St.Clair: Home Health Services PHCO info;;
+	mlmname:  FORM_HH_PHCO;;
+	arden: version 2;;
+	version:  5.50;;
+	institution:  St Clair;;
+	author: Debbie Eiler/Kathy B.;;
+	specialist:  Shawn Head;;
+	date:  2012-03-14;;
+	validation:  testing;;
+
+library:
+      purpose:  Determines what informational info to display on the "Home Health Service" order for patients.
+	
+	;;
+
+	explanation:  This MLM is called from the HHS Home Care Ord form.
+
+                It set the value of HH-Instructions to either.....
+					1.  "Your Physician has ordered Home Health Services.  If you have not spoken with someone before you leave we will be contacting you within 24 hours."
+					OR
+					2.  "Call the Home Health Agency if they have not contacted you with 24 hours."
+				(NOTE: 1.  is used when there is no "Home Care Provider" selected on the entered order.)
+				(NOTE: 2.  is used when there is an active provider selected. )
+
+
+	CHANGE HISTORY
+		3-14-2012 STH - Created this MLM net-new 
+	
+	;;
+	keywords: Called MLMs, Form fields, HH, Home Health, PHCO HH, PHCO Home Health
+	;;
+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;
+			
+			//Set the 2 messages below to what to display to the patient on the order details/summary line.	
+			PHCO_msg_with_hcp := "Call the Home Health Agency if they have not contacted you within 24 hours.";
+			PHCO_msg_without_hcp := "Your Physician has ordered Home Health Services.  If you have not spoken with someone before you leave we will be contacting you within 24 hours.";
+		
+	
+		/***************************************************************************************/
+
+
+	
+		// Initialize error message
+		error_message:="";
+
+		// Assigns fields passed in the Form object to the Field object
+		field_list:= this_form.fields;
+		
+		// Value the Home Care Provider current selected
+		hcp_value := last of (field_list where field_list.DataItemName = "Obj_Plus_Home Care list" );
+		phco_msg := last of (field_list where field_list.DataItemName = "HH-Instructions");
+
+					
+					//this_communication.DisplayForm := "Yes";
+					//this_communication.Message := "You have entered " ||  hcp_value || " diets " || "\n" || "\n" || StopMessage;
+					//this_communication.MessageType := "Error";
+
+//Checks to see if the hcp_value (Health Care Provider) on the order form is blank.  If blank show PHCO_msg_without_hcp else show PHCO_msg_with_hcp
+		If hcp_value.value is  null or hcp_value.value = ""
+			then
+		
+				phco_msg.value := PHCO_msg_without_hcp;
+			else
+				phco_msg.value := PHCO_msg_with_hcp;
+		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: