ORY553 ;EDE/WCJ - OR*3*553 Post-Install ;Mar 18, 2021@14:58
;;3.0;ORDER ENTRY/RESULTS REPORTING;**553**;Dec 17, 1997;Build 3
;
Q
;
POST ; Set Parameter Values
D BMES("Setting Default DST Parameters")
D SETPARAM
D BMES("Done setting Default DST Parameters")
Q
;
SETPARAM ;
N ORERR,ORPAR,ORVAL,ORINST,ORX
;
;#1a
S ORPAR="ORQQCN CTB ORDER CNSLT",ORVAL="YES"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#1b
S ORPAR="ORQQCN CTB RECEIVE",ORVAL="YES"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#1c
S ORPAR="ORQQCN CTB SCHEDULE",ORVAL="NO"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#1d
S ORPAR="ORQQCN CTB CANCEL",ORVAL="YES"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#1e
S ORPAR="ORQQCN CTB EDITRES",ORVAL="NO"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#1f
S ORPAR="ORQQCN CTB DC",ORVAL="YES"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#1g
S ORPAR="ORQQCN CTB FORWARD",ORVAL="YES"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#1h
S ORPAR="ORQQCN CTB COMMENT",ORVAL="YES"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#1i
S ORPAR="ORQQCN CTB SIGFIND",ORVAL="YES"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#1j
S ORPAR="ORQQCN CTB ADMIN COMP",ORVAL="YES"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
D SETPARVAL(ORPAR,1,"SYS",ORVAL)
;#2a
S ORPAR="ORQQCN DST TEST URL",ORVAL="https://dst-beta.domain.ext"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
;#2b
S ORPAR="ORQQCN DST PROD URL",ORVAL="https://dst.domain.ext"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
;#2c
S ORPAR="ORQQCN DST CONS DECISION",ORVAL="/cprs-api/v2/dst-decision/"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
;#2d
S ORPAR="ORQQCN DST CONS SAVE",ORVAL="/cprs-api/v2/consult/save"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
;#2e
S ORPAR="ORQQCN DST PATH",ORVAL="/v2/"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
;#2f
S ORPAR="ORQQCN CTB PATH",ORVAL="/ctb/"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
;#3
S ORPAR="ORQQCN DST/CTB FEATURE SWITCH",ORVAL="CTB"
D SETPARVAL(ORPAR,1,"PKG",ORVAL)
;
Q
;
;
SETPARVAL(ORPAR,ORINST,ORENT,ORVAL) ;
;
N ORERR
;
D BMES("Setting "_$G(ORENT)_" value for parameter "_ORPAR_" ("_ORINST_")...")
;
D EN^XPAR(ORENT,ORPAR,ORINST,.ORVAL,.ORERR)
I +$G(ORERR)>0 D MES(" ERROR #"_$P(ORERR,U)_": "_$P(ORERR,U,2)) Q
D MES(" DONE")
;
Q
;
BMES(STR) ;
; Write string
D BMES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$G(IOM,80)),"R"," "))
Q
MES(STR) ;
; Write string
D MES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$G(IOM,80)),"R"," "))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY553 2735 printed Oct 16, 2024@18:43:16 Page 2
ORY553 ;EDE/WCJ - OR*3*553 Post-Install ;Mar 18, 2021@14:58
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**553**;Dec 17, 1997;Build 3
+2 ;
+3 QUIT
+4 ;
POST ; Set Parameter Values
+1 DO BMES("Setting Default DST Parameters")
+2 DO SETPARAM
+3 DO BMES("Done setting Default DST Parameters")
+4 QUIT
+5 ;
SETPARAM ;
+1 NEW ORERR,ORPAR,ORVAL,ORINST,ORX
+2 ;
+3 ;#1a
+4 SET ORPAR="ORQQCN CTB ORDER CNSLT"
SET ORVAL="YES"
+5 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+6 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+7 ;#1b
+8 SET ORPAR="ORQQCN CTB RECEIVE"
SET ORVAL="YES"
+9 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+10 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+11 ;#1c
+12 SET ORPAR="ORQQCN CTB SCHEDULE"
SET ORVAL="NO"
+13 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+14 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+15 ;#1d
+16 SET ORPAR="ORQQCN CTB CANCEL"
SET ORVAL="YES"
+17 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+18 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+19 ;#1e
+20 SET ORPAR="ORQQCN CTB EDITRES"
SET ORVAL="NO"
+21 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+22 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+23 ;#1f
+24 SET ORPAR="ORQQCN CTB DC"
SET ORVAL="YES"
+25 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+26 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+27 ;#1g
+28 SET ORPAR="ORQQCN CTB FORWARD"
SET ORVAL="YES"
+29 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+30 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+31 ;#1h
+32 SET ORPAR="ORQQCN CTB COMMENT"
SET ORVAL="YES"
+33 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+34 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+35 ;#1i
+36 SET ORPAR="ORQQCN CTB SIGFIND"
SET ORVAL="YES"
+37 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+38 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+39 ;#1j
+40 SET ORPAR="ORQQCN CTB ADMIN COMP"
SET ORVAL="YES"
+41 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+42 DO SETPARVAL(ORPAR,1,"SYS",ORVAL)
+43 ;#2a
+44 SET ORPAR="ORQQCN DST TEST URL"
SET ORVAL="https://dst-beta.domain.ext"
+45 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+46 ;#2b
+47 SET ORPAR="ORQQCN DST PROD URL"
SET ORVAL="https://dst.domain.ext"
+48 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+49 ;#2c
+50 SET ORPAR="ORQQCN DST CONS DECISION"
SET ORVAL="/cprs-api/v2/dst-decision/"
+51 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+52 ;#2d
+53 SET ORPAR="ORQQCN DST CONS SAVE"
SET ORVAL="/cprs-api/v2/consult/save"
+54 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+55 ;#2e
+56 SET ORPAR="ORQQCN DST PATH"
SET ORVAL="/v2/"
+57 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+58 ;#2f
+59 SET ORPAR="ORQQCN CTB PATH"
SET ORVAL="/ctb/"
+60 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+61 ;#3
+62 SET ORPAR="ORQQCN DST/CTB FEATURE SWITCH"
SET ORVAL="CTB"
+63 DO SETPARVAL(ORPAR,1,"PKG",ORVAL)
+64 ;
+65 QUIT
+66 ;
+67 ;
SETPARVAL(ORPAR,ORINST,ORENT,ORVAL) ;
+1 ;
+2 NEW ORERR
+3 ;
+4 DO BMES("Setting "_$GET(ORENT)_" value for parameter "_ORPAR_" ("_ORINST_")...")
+5 ;
+6 DO EN^XPAR(ORENT,ORPAR,ORINST,.ORVAL,.ORERR)
+7 IF +$GET(ORERR)>0
DO MES(" ERROR #"_$PIECE(ORERR,U)_": "_$PIECE(ORERR,U,2))
QUIT
+8 DO MES(" DONE")
+9 ;
+10 QUIT
+11 ;
BMES(STR) ;
+1 ; Write string
+2 DO BMES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$GET(IOM,80)),"R"," "))
+3 QUIT
MES(STR) ;
+1 ; Write string
+2 DO MES^XPDUTL($$TRIM^XLFSTR($$CJ^XLFSTR(STR,$GET(IOM,80)),"R"," "))
+3 QUIT
