71 lines
1.7 KiB
Plaintext
71 lines
1.7 KiB
Plaintext
maintenance:
|
|
|
|
title: SCH_FUNC_PRINT;;
|
|
mlmname: SCH_FUNC_PRINT;;
|
|
arden: version 2;;
|
|
version: 4.00;;
|
|
institution: St Clair Memorial Hospital;;
|
|
author: Don Warnick;;
|
|
specialist: ;;
|
|
date: 2012-10-25;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose: This MLM calls an Objects+ DLL (SCMPRINT.DLL)which processes SCM report requests
|
|
;;
|
|
explanation:
|
|
|
|
Change history
|
|
|
|
10.25.2012 DW Created
|
|
|
|
;;
|
|
keywords:
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
log_execution_info:=FALSE;
|
|
if (Called_By_Editor = true) then triggerme := false; else triggerme := true; endif;
|
|
|
|
(reportname, logicalprinter, physicalprinter) := ARGUMENT;
|
|
|
|
reportname := "" || reportname;
|
|
logicalprinter := "" || logicalprinter;
|
|
physicalprinter:= "" || physicalprinter;
|
|
|
|
if physicalprinter <> "" then physicalprinter:= "\\sc1drp1\" || physicalprinter; endif;
|
|
|
|
using "SCMPrint"; /* 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}}}SCMPrintFromMLM.SCMPrintForm{{{SINGLE-QUOTE}}} with (reportname , logicalprinter , physicalprinter);
|
|
|
|
;;
|
|
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:
|