maintenance: title: SCH_LAUNCH_ORDER_MANAGEMENT;; mlmname: SCH_LAUNCH_ORDER_MANAGEMENT;; arden: version 2;; version: 4.00;; institution: St Clair Memorial Hospital;; author: Don Warnick;; specialist: Don Warnick;; date: 2015-10-05;; validation: testing;; library: purpose: This MLM calls an Objects+ DLL that permit users to delete orders ;; explanation: Change history DEV 10.05.2015 DW CSR# 33465 - Create an Objects+ application to permit users to delete orders ;; keywords: ;; knowledge: type: data-driven;; data: log_execution_info:=FALSE; if (Called_By_Editor = true) then triggerme := false; else triggerme := true; endif; (OrderInformation) := ARGUMENT; // Sample OrderInformation - Codeine 30mg Tab|Q|{{{SINGLE-QUOTE}}}9001415601100680{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}9001415601100680{{{SINGLE-QUOTE}}}|{{{SINGLE-QUOTE}}}Per Written{{{SINGLE-QUOTE}}}|9000001090119001|Pharmacy| // Fields Components This Order Name | Form Type | Conflicting Order GUIDS | Order Source | Requesting Provider GUID | Order Type | if OrderInformation is null then OrderInformation := "||||||"; endif; standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}}; include standard_libs; using "ObjectsPlusXA.SCM.Forms"; using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms"; using "OrderManagement"; /* DLL Name */ test:= new net_object {{{SINGLE-QUOTE}}}OrderManagement.OrderManagementForm{{{SINGLE-QUOTE}}} with (OrderInformation); /* Namespace.Form */ ;; evoke: ;; logic: if (triggerme = true) then oeUnsigned:=CALL test.ShowDialog; return_string:= test.text; conclude true; else conclude false; endif; ;; action: return (return_string); ;; Urgency: 50;; end: