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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORDSTCTB 1578 printed Mar 13, 2024@23:37:57 Page 2
ORDSTCTB ;SP/WAT - Decision Support Tool & Consult Toolbox Code ;Dec 08, 2020@13:21:31
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**519,539**;Dec 17, 1997;Build 41
+2 ;;ICR 2263 $$GET^XPAR
+3 QUIT
GETPAR(ORRESULTS,ORUSER) ;return DST/CTB system params for use in CPRS GUI
+1 SET ORRESULTS("ctbOrderConsult")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB ORDER CNSLT",1,"I")
+2 SET ORRESULTS("ctbReceive")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB RECEIVE",1,"I")
+3 SET ORRESULTS("ctbSchedule")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB SCHEDULE",1,"I")
+4 SET ORRESULTS("ctbCancel")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB CANCEL",1,"I")
+5 SET ORRESULTS("ctbEditRes")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB EDITRES",1,"I")
+6 SET ORRESULTS("ctbDC")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB DC",1,"I")
+7 SET ORRESULTS("ctbForward")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB FORWARD",1,"I")
+8 SET ORRESULTS("ctbComment")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB COMMENT",1,"I")
+9 SET ORRESULTS("ctbSigFind")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB SIGFIND",1,"I")
+10 SET ORRESULTS("ctbAdminComp")=+$$GET^XPAR("SYS^PKG","ORQQCN CTB ADMIN COMP",1,"I")
+11 SET ORRESULTS("dstCtbSwitch")=$$GET^XPAR("ALL","ORQQCN DST/CTB FEATURE SWITCH",1,"I")
+12 SET ORRESULTS("dstProdUrl")=$$GET^XPAR("ALL","ORQQCN DST PROD URL",1,"I")
+13 SET ORRESULTS("dstTestUrl")=$$GET^XPAR("ALL","ORQQCN DST TEST URL",1,"I")
+14 SET ORRESULTS("dstPath")=$$GET^XPAR("ALL","ORQQCN DST PATH",1,"I")
+15 SET ORRESULTS("ctbPath")=$$GET^XPAR("ALL","ORQQCN CTB PATH",1,"I")
+16 SET ORRESULTS("dstDecisionApi")=$$GET^XPAR("ALL","ORQQCN DST CONS DECISION",1,"I")
+17 SET ORRESULTS("dstSaveApi")=$$GET^XPAR("ALL","ORQQCN DST CONS SAVE",1,"I")
+18 QUIT