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_WOUND_CARE.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_WOUND_CARE.mlm
@@ -0,0 +1,88 @@
+maintenance:
+
+	title: FORM_WOUND_CARE;;
+	mlmname:  FORM_WOUND_CARE;;
+	arden: version 2;;
+	version:  4.50;;
+	institution:  St Clair Hospital;;
+	author:       Courtney Carr Allscripts Corp;;
+	specialist: Don Warnick Allscripts Corp ;;
+	date:  2016-04-26;;
+	validation:  testing;;
+
+library:
+      purpose:  Wound Care Form Logic 
+				
+	;;
+
+	explanation:  This MLM is called from the Wound Care Form
+                  
+ 
+	Change history 
+
+	04.26.2016   DW  CSR# 34286  Created 
+           
+
+	;;
+	keywords: Called MLMs
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+   	(this_communication, this_form,	client_info_obj) := argument;
+     error_message:="";
+
+	 field_list:= this_form.fields;
+	 CallingEvent:= this_communication.CallingEvent;
+	 Visit_Guid  := this_communication.ClientVisitGuid;
+	 Chart_Guid  := this_communication.ChartGuid;
+	 Client_Guid := this_communication.ClientGuid;
+
+     ApplyDressing:= last of (field_list where field_list.DataItemName = "DISC_Dressing Apply" );
+     Instructions := last of (field_list where field_list.DataItemName = "Disc_DressWndInstruct" ); 
+
+	
+	MeplexApplyLocation:= find "apply Mepilex protective dressing to coccyx for hip fracture patient"   in string ApplyDressing.Value;
+	MeplexInstrLocation:= find "Change Mepilex dressing every 3 days as needed and remove at discharge" in string Instructions.value;
+	
+	
+	
+	if MeplexInstrLocation = 0 or MeplexInstrLocation is null  
+		
+		then	                                          // If the Meplex Instruction box is not already checked, then proceed                
+	
+		if MeplexApplyLocation > 0 and MeplexApplyLocation is not null  
+	
+	       then                                                    // If the Meplex Apply box is checked, then proceed
+	
+			if Instructions.value is null                                  
+
+				then                                                     // If there are no other Instruction boxes checked, then simply check the Meplex Instructions box
+
+				 Instructions.value := "Change Mepilex dressing every 3 days as needed and remove at discharge";
+
+			    else                                                             // If there are other Instruction boxes checked, then re-check them and check the Meplex Instructions box
+
+			      Instructions.value := Instructions.value || "; Change Mepilex dressing every 3 days as needed and remove at discharge";
+
+			endif;
+		
+		endif;
+	
+	endif;
+
+
+	;;
+	evoke:  // No evoke statement
+	;;
+	logic:  
+
+		conclude true;
+	;;
+	action:
+
+		return this_communication, this_form;
+
+	;;
+end: