Initial Checking with all 820 MLMs

2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
--- a/MLMStripper/bin/Debug/CALLED/CALLED_DOC_FS_DEFINITION_MLM.mlm
+++ b/MLMStripper/bin/Debug/CALLED/CALLED_DOC_FS_DEFINITION_MLM.mlm
@@ -0,0 +1,140 @@
+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: