ORY290 ;SLCOIFO - Post-init for patch OR*3*336 ; 8/3/10 1:41pm
;;3.0;ORDER ENTRY/RESULTS REPORTING;**336**;Dec 17, 1997;Build 24
;
; DBIA 2336 EN^XPAR ^TMP($J,"XPARRSTR")
;
PRE ; initiate pre-init environment check
N A,I,X
S X="VEXRX" X ^%ZOSF("TEST") E Q
X "ZL VEXRX F I=1:1 S A=$T(+I) Q:A="""" I A[""^APU"" W !!,""Wrong version of VEXRX is installed."" S XPDABORT=1 Q"
Q
POST ; initiate post-init processes
;
D PARAM
Q
;
PARAM ; parameter transport routine
K ^TMP($J,"XPARRSTR")
N ENT,IDX,ROOT,REF,VAL,I
S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_"," ;DBIA 2336
D LOAD
XX2 S IDX=0,ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
. N PAR,INST,ORVAL,ORERR K ORVAL
. S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
. M ORVAL=^TMP($J,"XPARRSTR",IDX,"VAL")
. D EN^XPAR(ENT,PAR,INST,.ORVAL,.ORERR) ;DBIA 2336
K ^TMP($J,"XPARRSTR")
Q
LOAD ; load data into ^TMP (expects ROOT to be defined)
S I=1 F S REF=$T(DATA+I) Q:REF="" S VAL=$T(DATA+I+1) D
. S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
. S @(ROOT_REF)=VAL
Q
DATA ; parameter data
;;7340,"KEY")
;;ORB ARCHIVE PERIOD^OP RX RENEWAL REQUEST
;;7340,"VAL")
;;30
;;7341,"KEY")
;;ORB DELETE MECHANISM^OP RX RENEWAL REQUEST
;;7341,"VAL")
;;All Recipients
;;7342,"KEY")
;;ORB FORWARD BACKUP REVIEWER^OP RX RENEWAL REQUEST
;;7342,"VAL")
;;0
;;7343,"KEY")
;;ORB FORWARD SUPERVISOR^OP RX RENEWAL REQUEST
;;7343,"VAL")
;;0
;;7344,"KEY")
;;ORB FORWARD SURROGATES^OP RX RENEWAL REQUEST
;;7344,"VAL")
;;0
;;7345,"KEY")
;;ORB PROCESSING FLAG^OP RX RENEWAL REQUEST
;;7345,"VAL")
;;Disabled
;;7346,"KEY")
;;ORB PROVIDER RECIPIENTS^OP RX RENEWAL REQUEST
;;7346,"VAL")
;;OAPT
;;7347,"KEY")
;;ORB URGENCY^OP RX RENEWAL REQUEST
;;7347,"VAL")
;;High
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY290 1894 printed Apr 09, 2024@21:35:05 Page 2
ORY290 ;SLCOIFO - Post-init for patch OR*3*336 ; 8/3/10 1:41pm
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**336**;Dec 17, 1997;Build 24
+2 ;
+3 ; DBIA 2336 EN^XPAR ^TMP($J,"XPARRSTR")
+4 ;
PRE ; initiate pre-init environment check
+1 NEW A,I,X
+2 SET X="VEXRX"
XECUTE ^%ZOSF("TEST")
IF '$TEST
QUIT
+3 XECUTE "ZL VEXRX F I=1:1 S A=$T(+I) Q:A="""" I A[""^APU"" W !!,""Wrong version of VEXRX is installed."" S XPDABORT=1 Q"
+4 QUIT
POST ; initiate post-init processes
+1 ;
+2 DO PARAM
+3 QUIT
+4 ;
PARAM ; parameter transport routine
+1 KILL ^TMP($JOB,"XPARRSTR")
+2 NEW ENT,IDX,ROOT,REF,VAL,I
+3 ;DBIA 2336
SET ROOT=$NAME(^TMP($JOB,"XPARRSTR"))
SET ROOT=$EXTRACT(ROOT,1,$LENGTH(ROOT)-1)_","
+4 DO LOAD
XX2 SET IDX=0
SET ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
+1 FOR
SET IDX=$ORDER(^TMP($JOB,"XPARRSTR",IDX))
if 'IDX
QUIT
Begin DoDot:1
+2 NEW PAR,INST,ORVAL,ORERR
KILL ORVAL
+3 SET PAR=$PIECE(^TMP($JOB,"XPARRSTR",IDX,"KEY"),U)
SET INST=$PIECE(^("KEY"),U,2)
+4 MERGE ORVAL=^TMP($JOB,"XPARRSTR",IDX,"VAL")
+5 ;DBIA 2336
DO EN^XPAR(ENT,PAR,INST,.ORVAL,.ORERR)
End DoDot:1
+6 KILL ^TMP($JOB,"XPARRSTR")
+7 QUIT
LOAD ; load data into ^TMP (expects ROOT to be defined)
+1 SET I=1
FOR
SET REF=$TEXT(DATA+I)
if REF=""
QUIT
SET VAL=$TEXT(DATA+I+1)
Begin DoDot:1
+2 SET I=I+2
SET REF=$PIECE(REF,";",3,999)
SET VAL=$PIECE(VAL,";",3,999)
+3 SET @(ROOT_REF)=VAL
End DoDot:1
+4 QUIT
DATA ; parameter data
+1 ;;7340,"KEY")
+2 ;;ORB ARCHIVE PERIOD^OP RX RENEWAL REQUEST
+3 ;;7340,"VAL")
+4 ;;30
+5 ;;7341,"KEY")
+6 ;;ORB DELETE MECHANISM^OP RX RENEWAL REQUEST
+7 ;;7341,"VAL")
+8 ;;All Recipients
+9 ;;7342,"KEY")
+10 ;;ORB FORWARD BACKUP REVIEWER^OP RX RENEWAL REQUEST
+11 ;;7342,"VAL")
+12 ;;0
+13 ;;7343,"KEY")
+14 ;;ORB FORWARD SUPERVISOR^OP RX RENEWAL REQUEST
+15 ;;7343,"VAL")
+16 ;;0
+17 ;;7344,"KEY")
+18 ;;ORB FORWARD SURROGATES^OP RX RENEWAL REQUEST
+19 ;;7344,"VAL")
+20 ;;0
+21 ;;7345,"KEY")
+22 ;;ORB PROCESSING FLAG^OP RX RENEWAL REQUEST
+23 ;;7345,"VAL")
+24 ;;Disabled
+25 ;;7346,"KEY")
+26 ;;ORB PROVIDER RECIPIENTS^OP RX RENEWAL REQUEST
+27 ;;7346,"VAL")
+28 ;;OAPT
+29 ;;7347,"KEY")
+30 ;;ORB URGENCY^OP RX RENEWAL REQUEST
+31 ;;7347,"VAL")
+32 ;;High
