Initial Checking with all 820 MLMs

MLMStripper/bin/Debug/SCH/SCH_RELEASE_ORDERS_SCHEDULE_CHECK.mlm

@@ -0,0 +1,74 @@
+maintenance:
+
+	title: Release check for orders without schedules;;
+	filename:  SCH_Release_Orders_Schedule_Check;;
+	arden: version 4.5;;
+	version:  2.00;;
+	institution:  St Clair;;
+	author:  Debbie Eiler;;
+	specialist:  Don Warnick;;
+	date:  2010-10-06;;
+	validation:  testing;;
+
+library:
+	purpose:      When releasing orders, check for orders without schedules
+	;;
+	explanation:  Orders entered by the ED in a hold session were being released by inpatient staff without properly 
+                  scheduling it.
+
+    change history 
+
+	10.06.2010   DW    Created 
+	11.03.2010   DW    Removed from Production  
+
+	;;
+	keywords: Release, schedule
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+
+	
+		/*******************Make Changes To Spelling And Flags In This Section*******************/
+		/* Set to true if logging is needed.*/
+			log_execution_info:= false;
+
+		// Set the text for this variable to indicate whether to send the message or not.
+		send_alert := "DoNotSend";
+
+		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+  		include standard_libs;
+		using "ObjectsPlusXA.SCM.Forms";
+		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+
+
+//--------------------------------------------------------------------------
+   		local_session := cds_session.local;
+//--------------------------------------------------------------------------
+         
+		visit_alert:= destination { Alert: reminder, "Order Schedule Reminder", high, chart,	"Cannot Place Cancel Order", 14005, send_alert};
+		any_released_order:= event {OrderRelease User Order};
+
+
+
+	;;
+	evoke: any_released_order ;
+	;;
+	logic:	
+
+            if local_session.SessionReleseOrderAlertFired is null then 
+            local_session.SessionReleseOrderAlertFired := "has fired";            
+            conclude true;	
+    		endif;	
+
+	;;
+	action:
+
+
+
+	//	write "The schedule of all released orders must be adressed. \n\n To adjust the schedule select the {{{SINGLE-QUOTE}}}Go Back{{{SINGLE-QUOTE}}} button and then select the {{{SINGLE-QUOTE}}}Change Date{{{SINGLE-QUOTE}}} button." at visit_alert;
+	    dialogResult := call {{{SINGLE-QUOTE}}}MessageBox{{{SINGLE-QUOTE}}}.Show with "Medications marked as PACU ONLY or OPSU ONLY are to be released by those department personnel only" ,"Release Order Reminder","OK" as {{{SINGLE-QUOTE}}}MessageBoxButtons{{{SINGLE-QUOTE}}};
+     
+    ;;
+
+end: