Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORDSTCTB

ORDSTCTB.m

Go to the documentation of this file.
ORDSTCTB ;SP/WAT - Decision Support Tool & Consult Toolbox Code ;Dec 08, 2020@13:21:31
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**519,539**;Dec 17, 1997;Build 41
 ;;ICR 2263 $$GET^XPAR
 Q
GETPAR(ORRESULTS,ORUSER) ;return DST/CTB system params for use in CPRS GUI
 S ORRESULTS("ctbOrderConsult")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB ORDER CNSLT",1,"I")
 S ORRESULTS("ctbReceive")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB RECEIVE",1,"I")
 S ORRESULTS("ctbSchedule")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB SCHEDULE",1,"I")
 S ORRESULTS("ctbCancel")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB CANCEL",1,"I")
 S ORRESULTS("ctbEditRes")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB EDITRES",1,"I")
 S ORRESULTS("ctbDC")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB DC",1,"I")
 S ORRESULTS("ctbForward")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB FORWARD",1,"I")
 S ORRESULTS("ctbComment")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB COMMENT",1,"I")
 S ORRESULTS("ctbSigFind")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB SIGFIND",1,"I")
 S ORRESULTS("ctbAdminComp")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB ADMIN COMP",1,"I")
 S ORRESULTS("dstCtbSwitch")=$$GET^XPAR("ALL","ORQQCN DST/CTB FEATURE SWITCH",1,"I")
 S ORRESULTS("dstProdUrl")=$$GET^XPAR("ALL","ORQQCN DST PROD URL",1,"I")
 S ORRESULTS("dstTestUrl")=$$GET^XPAR("ALL","ORQQCN DST TEST URL",1,"I")
 S ORRESULTS("dstPath")=$$GET^XPAR("ALL","ORQQCN DST PATH",1,"I")
 S ORRESULTS("ctbPath")=$$GET^XPAR("ALL","ORQQCN CTB PATH",1,"I")
 S ORRESULTS("dstDecisionApi")=$$GET^XPAR("ALL","ORQQCN DST CONS DECISION",1,"I")
 S ORRESULTS("dstSaveApi")=$$GET^XPAR("ALL","ORQQCN DST CONS SAVE",1,"I")
 Q