maintenance:

	title:  CALLED_DOC_FS_DEFINITION_MLM;;
	mlmname:  CALLED_DOC_FS_DEFINITION_MLM;;
	arden: version 2.5;;
	version:  5.50;;
	institution:  St. Clair Hospital;;
	author:  Juliet M. Law;;
	specialist:  ;;
	date:  2011-09-22;;
	validation:  testing;;

library:
	purpose:  Standardize the document mlm responsible for variable assignment and debugging.
				Specific to flowsheets.
	;;
	explanation:  
	;;
	keywords:  RTF, Document Called MLM , list, debug, displayMessageFlag
	;;
knowledge:
	type: data-driven;;
	data:
			(this_documentCommunication) := argument;

			log_execution_info := false;

			(displayMessageFlag) := false;
			(client_guid) := this_documentCommunication.ClientGUID;
			(client_visit_guid) := this_documentCommunication.ClientVisitGUID;
			(chart_guid) := this_documentCommunication.ChartGUID;
			(user_guid) := this_documentCommunication.UserGUID;
			(document_type) := this_documentCommunication.DocumentType;
			(document_name) := this_documentCommunication.DocumentName;
			(event_type) := this_documentCommunication.EventType;
			(configuration_guid) := this_documentCommunication.ConfigurationGUID;
			(this_currentObs) := this_documentCommunication.CurrentObservationObj;
			(CancelEventFlag) := this_documentCommunication.CancelEvent;
			(this_fs_doc) := this_documentCommunication.DocumentConfigurationObj;

			(authored_by_guid) := this_fs_doc.AuthoredByGUID;
			(isIOFlowsheetFlag) := this_fs_doc.IsIOFlowsheet;
			(client_document_guid) := this_fs_doc.CurrentColumn.ClientDocumentGUID;
			(this_parameters) := this_fs_doc.ParametersList;
			(this_columnList) := this_fs_doc.ColumnsList;
			(this_currentColumn) := this_fs_doc.CurrentColumn;
			(this_chartedObservationsList) := this_fs_doc.CurrentColumn.ChartedObservationsList;
			
			(this_parameters_displayName) := this_parameters.DisplayName;

			if (event_type = "DocumentClosing") then
				current_parameter := first of (this_parameters WHERE 
										this_parameters.ParameterGUID = this_currentObs.ParameterGUID);
				current_parameter_name := current_parameter.Name;
				current_parameter_guid := current_parameter.ParameterGUID;
				current_parameter_datatype := current_parameter.DataType;

				if (current_parameter_datatype IS IN ("FreeTextValue", "NumericValue", "DateValue")) then
					current_value := this_currentObs.ValueObj.Value;
				elseif (current_parameter_datatype = "ListValue") then
					selectedItems := (this_currentObs.ValueObj.ListItemsList
										WHERE this_currentObs.ValueObj.ListItemsList.IsSelected = true);

					selectedItems_Value := selectedItems.Value;
					countOf_selectedItems := count of selectedItems_Value;
					current_value := first of selectedItems_Value;
				endif;

				if (current_parameter_name = "debug_message" AND exists current_value) then
					displayMessageFlag := true;
				endif;
			endif;

			diagnostic_message := ("CALLED_DOC_FS_DEFINITION_MLM \n"
					|| "\n client guid: " || client_guid
					|| "\n client visit guid: " || client_visit_guid
					|| "\n chart guid: " || chart_guid
					|| "\n user guid: " || user_guid
					|| "\n document type: " || document_type
					|| "\n document name: " || document_name
					|| "\n event type: " || event_type
					|| "\n configuration guid: " || configuration_guid
					|| "\n current obs: " || this_currentObs
					|| "\n cancel event flag: " || CancelEventFlag
					|| "\n this flowsheet doc: " || this_fs_doc
					|| "\n authored by guid: " || authored_by_guid
					|| "\n IO flowsheet flag: " || isIOFlowsheetFlag
					|| "\n client document guid: " || client_document_guid
					|| "\n current parameter: " || current_parameter
					|| "\n current parameter name: " || current_parameter_name
					|| "\n current parameter guid: " || current_parameter_guid
					|| "\n current parameter datatype: " || current_parameter_datatype
					|| "\n current value: " || current_value
					|| "\n selected items: " || selectedItems
					|| "\n selected items value: " || selectedItems_Value
					|| "\n count of selected items value: " || countOf_selectedItems
					|| "\n"
					);					
	;;
	priority: 50
	;;
	evoke:  
	;;
	logic:
			conclude true;
	;;
	action:
			return (this_documentCommunication,
					client_guid,
					client_visit_guid,
					chart_guid,
					user_guid,
					document_type,
					document_name,
					event_type,
					configuration_guid,
					this_currentObs,
					CancelEventFlag,
					this_fs_doc,
					authored_by_guid,
					isIOFlowsheetFlag,
					client_document_guid,
					this_parameters,
					this_columnList,
					this_currentColumn,
					this_chartedObservationsList,
					this_parameters_displayName,
					current_parameter,
					current_parameter_name,
					current_parameter_guid,
					current_parameter_datatype,
					selectedItems,
					selectedItems_Value,
					current_value,
					diagnostic_message,
					displayMessageFlag
				);
	;;
Urgency: 50;;
end: