68 lines
1.9 KiB
Plaintext
68 lines
1.9 KiB
Plaintext
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:
|