ORGMRC ;SP/WAT - GMRC Parameter Values for CPRS GUI ;Oct 27, 2023@13:04:24
;;3.0;ORDER ENTRY/RESULTS REPORTING;**608**;Dec 17, 1997;Build 15
Q
; Reference to ^XPAR supported by ICR #2263
;;Load any parameter values for CPRS GUI
;;This routine replaces ORDSTCTB that was exported in OR*3.0*519, and 539.
;;Called from JSYSPARM^ORWU
GETPAR(ORRESULTS,ORUSER) ;get parameters
D CONSPARM,GETCTB
Q
CONSPARM ;get consult order params
S ORRESULTS("consultFutureDateLimit")=$$GET^XPAR("ALL","ORCDGMRC FUTURE DATE LIMIT",1,"I")
Q
GETCTB ;load values into array
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[HORGMRC 1889 printed Oct 16, 2024@18:31:26 Page 2
ORGMRC ;SP/WAT - GMRC Parameter Values for CPRS GUI ;Oct 27, 2023@13:04:24
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**608**;Dec 17, 1997;Build 15
+2 QUIT
+3 ; Reference to ^XPAR supported by ICR #2263
+4 ;;Load any parameter values for CPRS GUI
+5 ;;This routine replaces ORDSTCTB that was exported in OR*3.0*519, and 539.
+6 ;;Called from JSYSPARM^ORWU
GETPAR(ORRESULTS,ORUSER) ;get parameters
+1 DO CONSPARM
DO GETCTB
+2 QUIT
CONSPARM ;get consult order params
+1 SET ORRESULTS("consultFutureDateLimit")=$$GET^XPAR("ALL","ORCDGMRC FUTURE DATE LIMIT",1,"I")
+2 QUIT
GETCTB ;load values into array
+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
