maintenance:

	title: FORM_NURSING_INSTRUCTIONS;;
	mlmname:  FORM_NURSING_INSTRUCTIONS;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair Hospital;;
	author:       Janet Nordin;;
	specialist: Don Warnick ;;
	date:  2018-04-26;;
	validation:  testing;;

library:
      purpose:  Nursing Instructions Form Logic 				
	;;

	explanation:  This MLM is called from the Nursing Instructions Form
                  
 
	Change history 

	05.18.2018   DW  CSR# 36411  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;

	Communication_obj:= this_communication.primaryobj;
	Order_set_name   := Communication_obj.OrderSetName;
	Order_set_heading:= Communication_obj.OrderSetHeading;

	Order_Field  := last of (field_list where field_list.DataItemName = "NUR_GenAdditionalTxt" );
	Order_Field_Value := Order_Field.Value;

	// If the form is called from these order sets make the order field "read only"

	If Order_set_name = "Admission Orders -  Acute Ischemic Stroke/TIA" and Order_set_heading = "DirectAdmit or IP w/New Stroke"
	
		then

			Order_Field.Control_Read_Only := true;
	
	endif;

	;;
	evoke:  
	;;
	logic:  

		conclude true;
	;;
	action:

		return this_communication, this_form;

	;;
end: