Routine: ORY212P

ORY212P ;SLC/MKB - Export Package Level Parameters ;2/11/08  11:07

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**212**;Dec 17, 1997;Build 24

MAIN ; main (initial) 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)_","

 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

 . 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)

 K ^TMP($J,"XPARRSTR")

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

DATA ; parameter data

 ;;9338,"KEY")

 ;;OR VBECS COMPONENT ORDER^5

 ;;9338,"VAL")

 ;;RED BLOOD CELLS

 ;;9339,"KEY")

 ;;OR VBECS COMPONENT ORDER^10

 ;;9339,"VAL")

 ;;FRESH FROZEN PLASMA

 ;;9340,"KEY")

 ;;OR VBECS COMPONENT ORDER^15

 ;;9340,"VAL")

 ;;PLATELETS

 ;;9341,"KEY")

 ;;OR VBECS COMPONENT ORDER^20

 ;;9341,"VAL")

 ;;CRYOPRECIPITATE

 ;;9342,"KEY")

 ;;OR VBECS COMPONENT ORDER^25

 ;;9342,"VAL")

 ;;WHOLE BLOOD

 ;;9343,"KEY")

 ;;OR VBECS COMPONENT ORDER^30

 ;;9343,"VAL")

 ;;OTHER

 ;;9344,"KEY")

 ;;OR VBECS MODIFIERS^5

 ;;9344,"VAL")

 ;;Washed

 ;;9345,"KEY")

 ;;OR VBECS MODIFIERS^10

 ;;9345,"VAL")

 ;;Irradiated

 ;;9346,"KEY")

 ;;OR VBECS MODIFIERS^15

 ;;9346,"VAL")

 ;;Leuko Reduced

 ;;9347,"KEY")

 ;;OR VBECS MODIFIERS^20

 ;;9347,"VAL")

 ;;Volume Reduced

 ;;9348,"KEY")

 ;;OR VBECS MODIFIERS^25

 ;;9348,"VAL")

 ;;Divided

 ;;12731,"KEY")

 ;;OR VBECS MODIFIERS^30

 ;;12731,"VAL")

 ;;Leuko Reduced/Irradiated

 ;;12732,"KEY")

 ;;OR VBECS REASON FOR REQUEST^5

 ;;12732,"VAL")

 ;;Transfuse

 ;;12733,"KEY")

 ;;OR VBECS REASON FOR REQUEST^10

 ;;12733,"VAL")

 ;;Hold for OR

 ;;12734,"KEY")

 ;;OR VBECS REASON FOR REQUEST^15

 ;;12734,"VAL")

 ;;Hold until MD gives order

 ;;12735,"KEY")

 ;;OR VBECS REASON FOR REQUEST^20

 ;;12735,"VAL")

 ;;See COMMENT for justification

 ;;13450,"KEY")

 ;;OR VBECS ON^1

 ;;13450,"VAL")

 ;;YES

 ;;13561,"KEY")

 ;;OR VBECS ERROR MESSAGE^1

 ;;13561,"VAL")

 ;;Default VistaLink Error

 ;;13561,"VAL",1,0)

 ;;******************************************************************

 ;;13561,"VAL",2,0)

 ;;*                                                                *

 ;;13561,"VAL",3,0)

 ;;*          Patient data is not available at this time            *

 ;;13561,"VAL",4,0)

 ;;*            due to a VistALink connection failure.              *

 ;;13561,"VAL",5,0)

 ;;*                                                                *

 ;;13561,"VAL",6,0)

 ;;*       Contact IRM and/or the Blood Bank for assistance.        *

 ;;13561,"VAL",7,0)

 ;;*                                                                *

 ;;13561,"VAL",8,0)

 ;;******************************************************************

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY212P   3052     printed  Feb 19, 2025@00:05:44                                                                                                                                                                                                     Page 2

ORY212P   ;SLC/MKB - Export Package Level Parameters ;2/11/08  11:07

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**212**;Dec 17, 1997;Build 24

 +2       ;

MAIN      ; main (initial) parameter transport routine

 +1        KILL ^TMP($JOB,"XPARRSTR")

 +2        NEW ENT,IDX,ROOT,REF,VAL,I

 +3        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

 +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                DO EN^XPAR(ENT,PAR,INST,.ORVAL,.ORERR)

               End DoDot:1

 +6        KILL ^TMP($JOB,"XPARRSTR")

 +7        QUIT

 +8       ;

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

 +5       ;

DATA      ; parameter data

 +1       ;;9338,"KEY")

 +2       ;;OR VBECS COMPONENT ORDER^5

 +3       ;;9338,"VAL")

 +4       ;;RED BLOOD CELLS

 +5       ;;9339,"KEY")

 +6       ;;OR VBECS COMPONENT ORDER^10

 +7       ;;9339,"VAL")

 +8       ;;FRESH FROZEN PLASMA

 +9       ;;9340,"KEY")

 +10      ;;OR VBECS COMPONENT ORDER^15

 +11      ;;9340,"VAL")

 +12      ;;PLATELETS

 +13      ;;9341,"KEY")

 +14      ;;OR VBECS COMPONENT ORDER^20

 +15      ;;9341,"VAL")

 +16      ;;CRYOPRECIPITATE

 +17      ;;9342,"KEY")

 +18      ;;OR VBECS COMPONENT ORDER^25

 +19      ;;9342,"VAL")

 +20      ;;WHOLE BLOOD

 +21      ;;9343,"KEY")

 +22      ;;OR VBECS COMPONENT ORDER^30

 +23      ;;9343,"VAL")

 +24      ;;OTHER

 +25      ;;9344,"KEY")

 +26      ;;OR VBECS MODIFIERS^5

 +27      ;;9344,"VAL")

 +28      ;;Washed

 +29      ;;9345,"KEY")

 +30      ;;OR VBECS MODIFIERS^10

 +31      ;;9345,"VAL")

 +32      ;;Irradiated

 +33      ;;9346,"KEY")

 +34      ;;OR VBECS MODIFIERS^15

 +35      ;;9346,"VAL")

 +36      ;;Leuko Reduced

 +37      ;;9347,"KEY")

 +38      ;;OR VBECS MODIFIERS^20

 +39      ;;9347,"VAL")

 +40      ;;Volume Reduced

 +41      ;;9348,"KEY")

 +42      ;;OR VBECS MODIFIERS^25

 +43      ;;9348,"VAL")

 +44      ;;Divided

 +45      ;;12731,"KEY")

 +46      ;;OR VBECS MODIFIERS^30

 +47      ;;12731,"VAL")

 +48      ;;Leuko Reduced/Irradiated

 +49      ;;12732,"KEY")

 +50      ;;OR VBECS REASON FOR REQUEST^5

 +51      ;;12732,"VAL")

 +52      ;;Transfuse

 +53      ;;12733,"KEY")

 +54      ;;OR VBECS REASON FOR REQUEST^10

 +55      ;;12733,"VAL")

 +56      ;;Hold for OR

 +57      ;;12734,"KEY")

 +58      ;;OR VBECS REASON FOR REQUEST^15

 +59      ;;12734,"VAL")

 +60      ;;Hold until MD gives order

 +61      ;;12735,"KEY")

 +62      ;;OR VBECS REASON FOR REQUEST^20

 +63      ;;12735,"VAL")

 +64      ;;See COMMENT for justification

 +65      ;;13450,"KEY")

 +66      ;;OR VBECS ON^1

 +67      ;;13450,"VAL")

 +68      ;;YES

 +69      ;;13561,"KEY")

 +70      ;;OR VBECS ERROR MESSAGE^1

 +71      ;;13561,"VAL")

 +72      ;;Default VistaLink Error

 +73      ;;13561,"VAL",1,0)

 +74      ;;******************************************************************

 +75      ;;13561,"VAL",2,0)

 +76      ;;*                                                                *

 +77      ;;13561,"VAL",3,0)

 +78      ;;*          Patient data is not available at this time            *

 +79      ;;13561,"VAL",4,0)

 +80      ;;*            due to a VistALink connection failure.              *

 +81      ;;13561,"VAL",5,0)

 +82      ;;*                                                                *

 +83      ;;13561,"VAL",6,0)

 +84      ;;*       Contact IRM and/or the Blood Bank for assistance.        *

 +85      ;;13561,"VAL",7,0)

 +86      ;;*                                                                *

 +87      ;;13561,"VAL",8,0)

 +88      ;;******************************************************************

ORY212P.m