Initial Checking with all 820 MLMs
This commit is contained in:
67
MLMStripper/bin/Debug/SCH/SCH_LAUNCH_ORDER_MANAGEMENT.mlm
Normal file
67
MLMStripper/bin/Debug/SCH/SCH_LAUNCH_ORDER_MANAGEMENT.mlm
Normal file
@@ -0,0 +1,67 @@
|
||||
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:
|
||||
Reference in New Issue
Block a user