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/DOC/DOC_FUNC_LAUNCH_EXITCARE.mlm
+++ b/MLMStripper/bin/Debug/DOC/DOC_FUNC_LAUNCH_EXITCARE.mlm
@@ -0,0 +1,123 @@
+maintenance:
+
+	title:    Doc_Func_Launch_ExitCare;;
+	mlmname:  Doc_Func_Launch_ExitCare;;
+	arden: version 2.5;;
+	version: 5.05;;
+	institution:  St.Clair Hospital;;
+	author:  Peggy Karish;;
+	specialist: Don Warnick ;;
+	date: 2013-03-12;;
+	validation:  testing;;
+
+library:
+	purpose:  Standardize the document mlm responsible for initiation.
+	;;
+	explanation: none
+	Change history 
+
+	03.12.2013   DJW  CSR# 31118 Created from a sample MLM shared by Dr. Mansour
+	07.15.2019   STH  CSR# 37676 18.4 Upgrade requires changing "getconnectionstring" to "getsecureconnectionstring".
+	;;
+	keywords:   RTF, Document Called MLM , list
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+		(this_documentCommunication) := argument;
+		/*******************Make Changes To Spelling And Flags In This Section******************/
+
+		/* Set to true if a decision.log is needed.*/
+		log_execution_info := false;
+		/* Create variable for tab*/
+		TAB := 9 formatted with "%c"   ;			
+		/***************************************************************************************/
+
+		//*** Variable  Declaration ***//
+		(this_structuredNoteDoc) := this_documentCommunication.DocumentConfigurationObj;
+		(this_parameters)        := this_structuredNoteDoc.ParametersList;
+		(this_chartedObservationsList) := this_structuredNoteDoc.ChartedObservationsList;
+		(this_authoredDateTime)	 := this_structuredNoteDoc.AuthoredDateTime ;
+		(this_authoredByGuid)	 := this_structuredNoteDoc.AuthoredByGuid ;
+		(this_Doc_IsNew)	 	:= this_structuredNoteDoc.IsNew ;
+		(this_Doc_IsIncomplete)	:= this_structuredNoteDoc.IsIncomplete ;
+		(this_Doc_IsResultsPending)	 	:= this_structuredNoteDoc.IsResultsPending ;
+		(this_Doc_IsPriority)	 	:= this_structuredNoteDoc.IsPriority ;
+
+		(this_event)  			 := this_documentCommunication.EventType    ;
+		(this_currentObj)        := this_documentCommunication.CurrentObservationObj     ;
+		(client_guid)            := this_documentCommunication.ClientGUID;
+		(client_chart_guid)		 := this_documentCommunication.ChartGUID;
+		(client_visit_guid)      := this_documentCommunication.ClientVisitGUID;
+		(client_document_guid)   := this_documentCommunication.DocumentConfigurationObj.ClientDocumentGUID  ;
+		(this_document_name) 	 := this_documentCommunication.DocumentName   ;		
+		(this_parameters_display_name) 	 := this_parameters.DisplayName      ;
+
+
+		IF this_event = "ChartObservation" THEN  // could be "DocumentOpening", "ChartObservation", OR "DocumentClosing"
+	 		current_parameter 		 := FIRST OF (this_Parameters 
+	                       	 			WHERE this_parameters.ParameterGUID =  this_CurrentObj.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_currentObj.ValueObj.value;
+			ELSEIF current_parameter_DataType = "ListValue" THEN
+			selectedItems := (this_currentObj.ValueObj.ListItemsList
+	                        WHERE this_currentObj.ValueObj.ListItemsList.IsSelected = 
+	                        true);
+			currentObj_selectedItems 	:= selectedItems.value   ;
+			countOf_selectedItems		:= count of currentObj_selectedItems ;
+			current_value := FIRST OF currentObj_selectedItems ;
+			ENDIF;
+		ENDIF;
+
+	    standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+        include standard_libs;
+		
+			Debug:=FALSE;
+
+			try	
+				using "SCMLib";
+				using namespace "SCMLib.HVCLogon";
+				using 			"SXA.ED.DischargeInstructions";
+				using namespace "SXA.ED.DischargeInstructions";
+		
+				using 				"SXA.Framework" ; 
+				using Namespace   	"Eclipsys.SunriseXA.Framework.WinClient" ;
+				shellinterface :=  new NET_OBJECT {{{SINGLE-QUOTE}}}XAShellInterface{{{SINGLE-QUOTE}}}  ;
+				shellinterface :=  new NET_OBJECT {{{SINGLE-QUOTE}}}XAShellInterface{{{SINGLE-QUOTE}}}  ;
+				connstring := call {{{SINGLE-QUOTE}}}HVCLogonObj{{{SINGLE-QUOTE}}}.GetSecureConnectionString;	
+				dis_instr :=  new NET_OBJECT {{{SINGLE-QUOTE}}}DischargeInstructions{{{SINGLE-QUOTE}}}  ;
+				Exit_Care_Diaglog := call dis_instr.LaunchDischargeInstructions 
+					with  (shellinterface, true) ;
+			endtry;
+
+			catch Exception ex
+				error_occurred := true;
+				error_message := "{{+R}}Cannot start ExitCare Application: {{-R}}\n" 
+					|| ex.Message || "\n\n";
+				msg := error_message || msg;
+
+				if ( dis_instr is NOT NULL ) then
+					void:= call dis_instr.Dispose;
+					dis_instr:= null;
+				endif;
+			endcatch;
+		
+				If Debug = TRUE THEN									
+		 		 	this_documentCommunication.DisplayMessage := FALSE;
+				 	this_documentCommunication.Message :=    sMessage ;
+				ENDIF;
+	;;
+	evoke:  
+	;;
+	logic:
+			conclude true;
+	;;
+	action:
+			return this_documentCommunication;
+	;;
+Urgency: 50;;
+end: