maintenance:

	title:  ;;
	mlmname:  FORM_POST_UTERINE_FIBEM_OS;;
	arden: version 2.5;;
	version:  0.00;;
	institution:  St. Clair Hospital;;
	author:  Shawn Head x7468;;
	specialist:  Michelle Palmer;;
	date:  2018-12-07;;
	validation:  testing;;

library:
	purpose:  
		This MLM will be called from the form{{{SINGLE-QUOTE}}}s CPOE_IVPCAManagement when triggered from the Order Set Post Uterine Fibroid Embolization
	;;
	explanation:  
		12-7-2018 - STH - CSR#: 37085 - Created {Go-Live 1/8/2018}
	;;
	keywords:
	;;
	citations: 
	;;
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;
	
	
		// Assigns fields passed in the Form object to the Field object
		field_list:= this_form.fields;
	
		CallingForm := this_form.name;
	    CallingEvent := this_communication.CallingEvent;
		ItemEvent := this_communication.ItemEvent;
		CallingField := this_communication.CallingFieldName;
		OCS_GUID := this_communication.CatalogOrderSetGUID;
		OCS_Name := read last {"select name from cv3ordercatalogset	with (Nolock)
									where guid = " || sql(OCS_GUID)};

		if(OCS_Name = "Post Uterine Fibroid Embolization") then
			if(this_communication.ItemTable = "CV3OrderCatalogMasterItem") then

				OC_GUID := this_communication.ItemID;
				OC_Name := read last {"select name from CV3OrderCatalogMasterItem
											where guid = " || sql(OC_GUID)};

				if(OC_Name in ("IV Management","Discontinue Foley Catheter")) then
					
					if(CallingForm = "CPOE_IVPCAManagement") then
						tstfldlst := field_list.DataItemName;
						IVMgt_StopDate_Field := first of 
								(field_list where field_list.DataItemName = "StopDate");
						DCPCA_field := first of 
								(field_list where field_list.DataItemName = "NUR_IVPCADC");
						DCPCA_Value := DCPCA_field.Value;
						if(DCPCA_Value matches pattern "%discontinue%") then
							IVMgt_StopDate_Field.Control_Mandatory := true;	
							//StopTime_Field.Control_Mandatory := true;
						endif;
					endif;
					
					if(CallingForm = "CPOE_DC_Foley") then
						Foley_StopDate_Field := first of 
								(field_list where field_list.DataItemName = "RequestedDate");
						Foley_StopDate_Field.Control_Mandatory := true;
					endif;
				endif;
			endif;
		endif;

	;;
	priority: 50
	;;
	evoke:  
	;;
	logic:
		conclude true;
	;;
	action:
		return this_communication, this_form;
	;;
Urgency: 50;;
end: