IS00005C.m

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