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/FORM/FORM_NURSE_INSTRUCTION_ALERT.mlm
+++ b/MLMStripper/bin/Debug/FORM/FORM_NURSE_INSTRUCTION_ALERT.mlm
@@ -0,0 +1,127 @@
+maintenance:
+
+	title: ;;
+	mlmname: FORM_Nurse_Instruction_Alert;;
+	arden: version 2.5;;
+	version:  5.50;;
+	institution: St.Clair;;
+	author: vikas Yadav;;
+	specialist:  ;;
+	date: 2015-05-07;;
+	validation: testing;;
+library:
+	purpose:
+	ALERT FOR NURSE_INSTRUCTION 
+
+
+	;;
+explanation:
+		
+	 change history
+     	06.04.2015  TMS  CSR-33506	Updated Message to Include instructions for Non Formulary Medication Entry. 
+		10/07.2015  TMS  Removed from production per PRISM recommendation September meeting.  CSR 33794
+		04.27.2016  TMS	 Reactivated per request from PRISM and Risk Management.  CSR 34486
+	;;
+
+keywords: 
+
+
+	;;
+
+knowledge:
+
+	type: data-driven;;
+	data:
+	
+		// Specify which .NET assemblies need to be loaded for ObjectsPlus
+        standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+   	    include standard_libs;
+
+	 
+
+	event_OrderInit := event{OrderInit User Order: WHERE Name in ( "Nurse Instruction:")};
+
+	
+	
+
+	//Added by Vishal Motwani on 2014-12-01
+	Harddest_var  := DESTINATION {Alert} WITH
+	[alert_type := "Warning", 
+	 short_message := "PATIENT SAFETY RISK",
+	 Priority := "Medium",
+     Scope := "Chart",
+	 rule_number:= 1015, 
+     render_as := "HTML",
+        send_with_order := send_alert,
+        alert_dialog_settings := sync_alert_dialog, 
+        async_alert_dialog_settings := async_alert_dialog,
+        document_name := alert_override_document_name, 
+        document_conditional_text:= document_conditional_text_list,
+                                   
+                                    
+		  ];					
+
+
+
+
+	eventName := EvokingEventType;
+	
+
+
+	if called_by_editor then
+		if eventName = "OrderInit" then
+			order_obj:= read last {Order:  This };
+			EvokingObject:= order_obj;
+		
+		EndIf;
+	endif;
+
+/*
+  	  MSG := "<p style={{{SINGLE-QUOTE}}}font-family:segoe ui;font-size:16px;{{{SINGLE-QUOTE}}}> <b>***PATIENT SAFETY RISK*** </b> </p> <p style={{{SINGLE-QUOTE}}}font-family:segoe ui;font-size:15px;  color:red; {{{SINGLE-QUOTE}}}> <b>DO NOT USE Nurse Instructions for medication, diagnostic, diet or consult orders.</b> 
+If you are unable to enter an order, please ask for  assistance or call support @ 8600.</p>" ;
+
+*/
+	header := " <p style ={{{SINGLE-QUOTE}}}font-family:segoe ui;font-size:16px;{{{SINGLE-QUOTE}}}>  " || "<b>***PATIENT SAFETY RISK*** </b> <br>";
+	infomsg := " <font color = red>  "|| "<b> DO NOT USE Nurse Instructions for medication, diagnostic, diet or consult orders.  </b> </font>  "||
+		  "<font color = blue> " || "  If unable to locate a medication order, please enter using  <b><i> Non Formulary Medication.</b></i>  " || "</font> ";
+	helpmsg := " <font color = black > "  ||"  If you are unable to enter an order, please ask for  assistance or call support @ 8600. "|| "</font></p>";
+
+	MSG := header || infomsg ||  helpmsg;    
+	
+	
+	//break;
+
+	;;
+
+	evoke:  
+		event_OrderInit;
+		
+
+	;;
+
+	logic:
+
+	Conclude True;
+	;;
+
+	action:
+
+		//Write "msgNoVacNoInfoOrder" as Softdest_var;
+		
+			If EventName = "OrderInit"  and EVOKINGOBJECT.OrderSetName is null   //and TypeCode_Trim = "Inpatient"  
+			   then
+				if EXISTS MSG then
+					Write MSG at Harddest_var ;
+		
+			 
+				endif;
+			
+			EndIf; 
+	
+		
+		
+
+	;;
+
+Urgency: 70;;
+end: