IS00005C ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
;Part 4
;Copyright 2006 SAIC
EN I '$D(X) D ERROR^INHS("Variable 'ZP227' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZP228"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ZP228")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZP228' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZP229"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ZP229")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZP229' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZP230"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("ZP230")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZP230' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZP231"))
S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"I")
S @INV@("ZP231")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZP231' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZP232"))
I $L(X) S:$P(X,INSUBDEL,4)="" $P(X,INSUBDEL,4)=INSUBDEL
S @INV@("ZP232")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZP232' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("ZP233"))
I $L(X) S:$P(X,INSUBDEL,4)="" $P(X,INSUBDEL,4)=INSUBDEL
S @INV@("ZP233")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'ZP233' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
Q
E1 ;IF $D(@INV@("PV11"))
I $D(@INV@("PV11"))
D:$T
.S (INX,X)=$G(@INV@("PV144"))
.I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
.S @INV@("PV144")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PV144' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PV145"))
.I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
.S @INV@("PV145")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PV145' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("ZV11"))
I $D(@INV@("ZV11"))
D:$T
.S (INX,X)=$G(@INV@("ZV11"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZV11")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV12"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV12")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV14"))
.I X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.S @INV@("ZV14")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV15"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV15")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV15' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV16"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV16")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV16' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV17"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV17")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV17' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV18"))
.S:$L(X) X=+X
.S @INV@("ZV18")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV18' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV19"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV19")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV19' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV110"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV110")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV110' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV111"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV111")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV111' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV112"))
.S:$L(X) X=+X
.S @INV@("ZV112")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV112' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV116"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV116")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV116' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV117"))
.S:$L(X) X=+X
.S @INV@("ZV117")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV117' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV118"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV118")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV118' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV119"))
.S:$L(X) X=+X
.S @INV@("ZV119")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV119' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV120"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV120")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV120' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV121"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZV121")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV121' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV122"))
.S:$L(X) X=+X
.S @INV@("ZV122")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV122' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZV123"))
.S:$L(X) X=+X
.S @INV@("ZV123")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZV123' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("ZHR1"))
I $D(@INV@("ZHR1"))
D:$T
.S (INX,X)=$G(@INV@("ZHR1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZHR1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ZHR1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ZHR2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ZHR2")=$G(X)
9 .D EN^IS00005D
G H1^IS00005D
IS00005C ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
+1 ;Part 4
+2 ;Copyright 2006 SAIC
EN IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP227' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+1 KILL DXS
+2 SET (INX,X)=$GET(@INV@("ZP228"))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("ZP228")=$GET(X)
+5 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP228' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+6 KILL DXS
+7 SET (INX,X)=$GET(@INV@("ZP229"))
+8 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+9 SET @INV@("ZP229")=$GET(X)
+10 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP229' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+11 KILL DXS
+12 SET (INX,X)=$GET(@INV@("ZP230"))
+13 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+14 SET @INV@("ZP230")=$GET(X)
+15 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP230' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+16 KILL DXS
+17 SET (INX,X)=$GET(@INV@("ZP231"))
+18 IF X]""
SET X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$PIECE($GET(INTHL7F2),U,4),"I")
+19 SET @INV@("ZP231")=$GET(X)
+20 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP231' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+21 KILL DXS
+22 SET (INX,X)=$GET(@INV@("ZP232"))
+23 IF $LENGTH(X)
IF $PIECE(X,INSUBDEL,4)=""
SET $PIECE(X,INSUBDEL,4)=INSUBDEL
+24 SET @INV@("ZP232")=$GET(X)
+25 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP232' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+26 KILL DXS
+27 SET (INX,X)=$GET(@INV@("ZP233"))
+28 IF $LENGTH(X)
IF $PIECE(X,INSUBDEL,4)=""
SET $PIECE(X,INSUBDEL,4)=INSUBDEL
+29 SET @INV@("ZP233")=$GET(X)
+30 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZP233' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+31 KILL DXS
+32 QUIT
E1 ;IF $D(@INV@("PV11"))
+1 IF $DATA(@INV@("PV11"))
+2 IF $TEST
Begin DoDot:1
+3 SET (INX,X)=$GET(@INV@("PV144"))
+4 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+5 SET @INV@("PV144")=$GET(X)
+6 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV144' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 KILL DXS
+8 SET (INX,X)=$GET(@INV@("PV145"))
+9 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+10 SET @INV@("PV145")=$GET(X)
+11 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV145' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+12 KILL DXS
+13 QUIT
End DoDot:1
+14 ;IF $D(@INV@("ZV11"))
+15 IF $DATA(@INV@("ZV11"))
+16 IF $TEST
Begin DoDot:1
+17 SET (INX,X)=$GET(@INV@("ZV11"))
+18 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+19 SET @INV@("ZV11")=$GET(X)
+20 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV11' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+21 KILL DXS
+22 SET (INX,X)=$GET(@INV@("ZV12"))
+23 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+24 SET @INV@("ZV12")=$GET(X)
+25 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV12' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+26 KILL DXS
+27 SET (INX,X)=$GET(@INV@("ZV14"))
+28 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+29 SET @INV@("ZV14")=$GET(X)
+30 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+31 KILL DXS
+32 SET (INX,X)=$GET(@INV@("ZV15"))
+33 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+34 SET @INV@("ZV15")=$GET(X)
+35 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV15' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+36 KILL DXS
+37 SET (INX,X)=$GET(@INV@("ZV16"))
+38 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+39 SET @INV@("ZV16")=$GET(X)
+40 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV16' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+41 KILL DXS
+42 SET (INX,X)=$GET(@INV@("ZV17"))
+43 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+44 SET @INV@("ZV17")=$GET(X)
+45 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV17' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+46 KILL DXS
+47 SET (INX,X)=$GET(@INV@("ZV18"))
+48 IF $LENGTH(X)
SET X=+X
+49 SET @INV@("ZV18")=$GET(X)
+50 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV18' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+51 KILL DXS
+52 SET (INX,X)=$GET(@INV@("ZV19"))
+53 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+54 SET @INV@("ZV19")=$GET(X)
+55 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV19' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+56 KILL DXS
+57 SET (INX,X)=$GET(@INV@("ZV110"))
+58 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+59 SET @INV@("ZV110")=$GET(X)
+60 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV110' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+61 KILL DXS
+62 SET (INX,X)=$GET(@INV@("ZV111"))
+63 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+64 SET @INV@("ZV111")=$GET(X)
+65 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV111' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+66 KILL DXS
+67 SET (INX,X)=$GET(@INV@("ZV112"))
+68 IF $LENGTH(X)
SET X=+X
+69 SET @INV@("ZV112")=$GET(X)
+70 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV112' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+71 KILL DXS
+72 SET (INX,X)=$GET(@INV@("ZV116"))
+73 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+74 SET @INV@("ZV116")=$GET(X)
+75 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV116' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+76 KILL DXS
+77 SET (INX,X)=$GET(@INV@("ZV117"))
+78 IF $LENGTH(X)
SET X=+X
+79 SET @INV@("ZV117")=$GET(X)
+80 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV117' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+81 KILL DXS
+82 SET (INX,X)=$GET(@INV@("ZV118"))
+83 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+84 SET @INV@("ZV118")=$GET(X)
+85 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV118' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+86 KILL DXS
+87 SET (INX,X)=$GET(@INV@("ZV119"))
+88 IF $LENGTH(X)
SET X=+X
+89 SET @INV@("ZV119")=$GET(X)
+90 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV119' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+91 KILL DXS
+92 SET (INX,X)=$GET(@INV@("ZV120"))
+93 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+94 SET @INV@("ZV120")=$GET(X)
+95 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV120' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+96 KILL DXS
+97 SET (INX,X)=$GET(@INV@("ZV121"))
+98 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+99 SET @INV@("ZV121")=$GET(X)
+100 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV121' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+101 KILL DXS
+102 SET (INX,X)=$GET(@INV@("ZV122"))
+103 IF $LENGTH(X)
SET X=+X
+104 SET @INV@("ZV122")=$GET(X)
+105 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV122' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+106 KILL DXS
+107 SET (INX,X)=$GET(@INV@("ZV123"))
+108 IF $LENGTH(X)
SET X=+X
+109 SET @INV@("ZV123")=$GET(X)
+110 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZV123' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+111 KILL DXS
+112 QUIT
End DoDot:1
+113 ;IF $D(@INV@("ZHR1"))
+114 IF $DATA(@INV@("ZHR1"))
+115 IF $TEST
Begin DoDot:1
+116 SET (INX,X)=$GET(@INV@("ZHR1"))
+117 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+118 SET @INV@("ZHR1")=$GET(X)
+119 IF '$DATA(X)
DO ERROR^INHS("Variable 'ZHR1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+120 KILL DXS
+121 SET (INX,X)=$GET(@INV@("ZHR2"))
+122 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+123 SET @INV@("ZHR2")=$GET(X)
9 DO EN^IS00005D
End DoDot:1
+1 GOTO H1^IS00005D
