ORY290.m

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 ---ORY290   1894     printed  Mar 13, 2025@21:45:43                                                                                                                                                                                                      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