maintenance:

	title:  ;;
	mlmname:  FORM_VITAL_SIGN_FREQUENCY;;
	arden: version 2.5;;
	version:  0.00;;
	institution: St.Clair Hospital ;;
	author: Sandy Zhang ;;
	specialist: Janet Nordin ;;
	date:  2017-07-14;;
	validation:  testing;;

library:
	purpose:  Send the value {{{SINGLE-QUOTE}}}Routine{{{SINGLE-QUOTE}}} to the column {{{SINGLE-QUOTE}}}VS Frequency{{{SINGLE-QUOTE}}} in Patient list Department: IMC and view: IMC CNA. If the order selected is {{{SINGLE-QUOTE}}}Vital Signs: Routine{{{SINGLE-QUOTE}}} then send the value {{{SINGLE-QUOTE}}}Routine{{{SINGLE-QUOTE}}} to the column.
			This lets the CNA know to routinely monitor the patient{{{SINGLE-QUOTE}}}s vital sign. 
	;;
	explanation:  

	Change History

 	07.14.2017	 SZ    CSR#35481 - MEWS Score Column Update - lumped into same project on status boards
	
	;;
	keywords: vital signs frequency, vital signs order, VS frequency column
	;;
	citations: Model: DOC_SEPSIS_STATUS_BOARD_COLUMN_ED
	;;
knowledge:
	type: data-driven;;
	data:

		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
	    include standard_libs;

		using "ObjectsPlusXA.SCM.Forms";
		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";

		// 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;
		
		// grab relevant guids
		ClientGuid   := this_communication.ClientGUID;
		ChartGuid    := this_Communication.ChartGUID;
		UserGuid 	 := this_communication.UserGUID;
		VisitGuid 	 := this_communication.ClientVisitGUID;
		comm_obj 	 := this_communication.primaryobj;

		form_fields := this_form.Fields;

		(frequency_field) := first(form_fields where form_fields.label = "Frequency");
		(frequency_field_value) := first(frequency_field.value.FrequencySummary where frequency_field.label = "Frequency");

		// if the order selected is {{{SINGLE-QUOTE}}}Vital Signs: Routine{{{SINGLE-QUOTE}}} then send the value {{{SINGLE-QUOTE}}}Routine{{{SINGLE-QUOTE}}} to the column
		if (comm_obj.Name = "Vital Signs: Routine") then
			frequency_field_value := "Routine";
		endif;
		
		IF(frequency_field_value is not NULL OR frequency_field_value Is nOt "") THEN // added By Shami 
		// send the total MEWS score to the column
			create_column := MLM {{{SINGLE-QUOTE}}}SCH_FUNC_CREATE_ENTERPRISE_DEFINED_COLUMN{{{SINGLE-QUOTE}}};                     //  MLM that creates the Enterprise Defined Column in the "Action" section of the MLM 		
	  		EDCObj := OBJECT [column_name,column_value,client_guid,chart_guid,client_visit_guid];    //  Create Enterprise Defined Column Obj
			
			VS_frequency_column:= NEW EDCObj WITH 
				[
					column_name := "Vital Signs Frequency", 
					column_value := frequency_field_value, 
					client_guid       := ClientGUID,																		
					chart_guid        := ChartGUID,																		
					client_visit_guid := VisitGuid	
				]; 

			return_value := call create_column with ( VS_frequency_column );
		ENDIF;


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