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: