Initial Checking with all 820 MLMs
This commit is contained in:
68
MLMStripper/bin/Debug/SCH/SCH_FUNC_PAGE.mlm
Normal file
68
MLMStripper/bin/Debug/SCH/SCH_FUNC_PAGE.mlm
Normal file
@@ -0,0 +1,68 @@
|
||||
maintenance:
|
||||
|
||||
title: SCH_FUNC_PAGE;;
|
||||
mlmname: SCH_FUNC_PAGE;;
|
||||
arden: version 2;;
|
||||
version: 4.00;;
|
||||
institution: St Clair Memorial Hospital;;
|
||||
author: Don Warnick;;
|
||||
specialist: Don Warnick;;
|
||||
date: 2014-12-01;;
|
||||
validation: testing;;
|
||||
|
||||
library:
|
||||
purpose: This MLM calls an Objects+ DLL (SCMPage.DLL)which processes SCM paging requests
|
||||
;;
|
||||
explanation:
|
||||
|
||||
Change history
|
||||
|
||||
12.01.2014 DW CSR# 32793 - Foreign Travel Alert (created this new generic alert to be used for future SCM text messaging processess)
|
||||
|
||||
;;
|
||||
keywords:
|
||||
;;
|
||||
knowledge:
|
||||
type: data-driven;;
|
||||
data:
|
||||
|
||||
log_execution_info:=FALSE;
|
||||
if (Called_By_Editor = true) then triggerme := false; else triggerme := true; endif;
|
||||
|
||||
(PhoneNumber, MessageSubject, MessageBody) := ARGUMENT;
|
||||
|
||||
PhoneNumber := "" || PhoneNumber;
|
||||
MessageSubject:= "" || MessageSubject;
|
||||
MessageBody := "" || MessageBody;
|
||||
|
||||
using "SCMPage"; /* DLL Name */
|
||||
using namespace "ResultsQuickViewerx"; /* Do not understand purpose...DLL funcional even if this is misspelled */
|
||||
|
||||
standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
|
||||
include standard_libs;
|
||||
using "ObjectsPlusXA.SCM.Forms";
|
||||
using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
|
||||
|
||||
/* Namespace.Form */
|
||||
test:= new net_object {{{SINGLE-QUOTE}}}SCMPageFromMLM.SCMPageForm{{{SINGLE-QUOTE}}} with (PhoneNumber , MessageSubject , MessageBody);
|
||||
|
||||
;;
|
||||
evoke: /* Call MLM */
|
||||
;;
|
||||
logic:
|
||||
|
||||
if (triggerme = true)
|
||||
then
|
||||
oeUnsigned:=CALL test.ShowDialog;
|
||||
// oeUnsigned:=CALL test.Show;
|
||||
conclude true;
|
||||
else
|
||||
conclude false;
|
||||
endif;
|
||||
|
||||
|
||||
;;
|
||||
action: //all of the action is done by the call to the FFI
|
||||
;;
|
||||
Urgency: 50;;
|
||||
end:
|
||||
Reference in New Issue
Block a user