Initial Checking with all 820 MLMs

This commit is contained in:
2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions

View 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: