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")
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
;;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 Sep 02, 2024@19:24:30 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 ;;******************************************************************