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/STD/STD_VR_CHART_PACKAGE_PRINT.mlm
+++ b/MLMStripper/bin/Debug/STD/STD_VR_CHART_PACKAGE_PRINT.mlm
@@ -0,0 +1,102 @@
+maintenance:
+
+	title:  Visit Record Package at Print;;
+	mlmname:  STD_VR_CHART_PACKAGE_PRINT;;
+	arden:  version 2.5;;
+	version:  18.4;;
+	institution:  Allscripts, Standard MLM;;
+	author: Allscripts Healthcare Solutions, Inc.;;
+	specialist:  ;;
+	date:  2018-10-26;;
+	validation:  testing;;
+
+/* P r o p r i e t a r y  N o t i c e */
+/* Unpublished (c) 2016 - 2018 Allscripts Healthcare, LLC.  and/or its affiliates. All Rights Reserved.
+
+P r o p r i e t a r y  N o t i c e: This software has been provided pursuant to a License Agreement, with
+Allscripts Healthcare, LLC.  and/or its affiliates, containing restrictions on its use. This software contains
+valuable trade secrets and proprietary information of Allscripts Healthcare, LLC.  and/or its affiliates and is
+protected by trade secret and copyright law. This software may not be copied or distributed in any form or medium,
+disclosed to any third parties, or used in any manner not provided for in said License Agreement except with prior
+written authorization from Allscripts Healthcare, LLC.  and/or its affiliates. Notice to U.S. Government Users:
+This software is {{{SINGLE-QUOTE}}}Commercial Computer Software{{{SINGLE-QUOTE}}}.
+
+All product names are the trademarks or registered trademarks of Allscripts Healthcare, LLC.  and/or its affiliates.
+*/
+/* P r o p r i e t a r y  N o t i c e */
+
+library:
+	purpose:  If all components are configured, this MLM generates an external file of the Visit Record when it is printed from the application. The file 
+			  is encrypted. It will have the same content and formatting as if it were printed. 
+	;;
+	explanation: Several settings must be configured this MLM to be evoked.
+					1. Site must have an SFTP server.
+					2. A package definition must be defined in the Visit Record Configuration tool (Chart Packaging Definition).
+					3. In Visit Record Definition, the package definition name must be selected from the Package at Print area.
+				 See the Visit Record Installation and Configuration Guide for more details.
+	;;
+	keywords: Visit Record;Chart Package;Package
+	;;
+	citations: 
+{{+B}}Development{{-B}}: Allscripts Healthcare Solutions, Inc.  Clinical Information can be customized and configured by local facility.
+{{+B}}Funding{{-B}}: None specific to the development of this alert
+{{+B}}Release{{-B}}: None
+{{+B}}Revision Date{{-B}}: 2017-04-21
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+		standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+                    include standard_libs;
+
+		//*** calling the package Logic ***//
+		//
+		// Specify which .NET assemblies need to be loaded for ObjectsPlus                   
+
+			//Defines the alert in case of error
+			Error_occurred := false;
+            error_destination := destination { Alert } with [
+                    alert_type := "Warning", 
+                    short_message := "Chart Packaging at Print Error from MLM", 
+                    priority := "low", 
+                    scope := "chart",
+                    Rule_group := "Chart Packaging at Print Error from MLM",
+                    Rule_number := 1003,
+                    Rule_subgroup := "",
+                    Send_with_order := "",
+                    Alert_dialog_settings := "",
+                   Display_alert := true ];                    
+
+			//***********************************************************************************************			
+               clientVisitObject := read last { ClientVisit: this };
+			   stateInfoObject := read last { StateInfo: this};
+
+			//Call Chart Packaging at Printing here
+			using "Sunrise.ChartPackaging.Processor";
+			using namespace  "Sunrise.ChartPackaging.Processor";
+			try
+				PackagingClass := NEW NET_Object {{{SINGLE-QUOTE}}}Packaging{{{SINGLE-QUOTE}}}; 
+				ApplicationName := "Emergency Care";
+				void := call PackagingClass.CreatePackageFromPrintJob with (clientVisitObject.GUID);				
+			endtry; 
+			catch exception ex0
+                Error_occurred := true;
+                error_message := ex0.Message;
+			endcatch;
+		
+
+	;;
+	priority: 50
+	;;
+	evoke:  
+	;;
+	logic:
+			conclude true;
+	;;
+	action:
+			if (Error_occurred) then
+				write error_message AT error_destination;
+			endif;
+	;;
+Urgency: 50;;
+end: