IS00016B.m

IS00016B ;Compiled from script 'Generated: HL IHS LAB R01 QUEST IN-I' on AUG 14, 2006

 ;Part 3

 ;Copyright 2006 SAIC

EN S:DO @("@INV@(""NTE4"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,5)

 Q

B3 Q

B2 Q

B1 D:'INVS MC^INHS

 ;Entering TRANS section.

 ;IF $D(@INV@("MSH1"))

 I $D(@INV@("MSH1"))

 D:$T

 .S (INX,X)=$G(@INV@("MSH1"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("MSH1")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH1' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH2"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("MSH2")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH2' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH3"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("MSH3")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH3' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH4"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("MSH4")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH4' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH5"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("MSH5")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH5' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH6"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("MSH6")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH6' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH7"))

 .I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)

 .S @INV@("MSH7")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH7' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH8"))

 .I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)

 .S @INV@("MSH8")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH8' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH10"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("MSH10")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH10' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH12"))

 .S:$L(X) X=+X

 .S @INV@("MSH12")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH12' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH13"))

 .S:$L(X) X=+X

 .S @INV@("MSH13")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH13' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("MSH14"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("MSH14")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'MSH14' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .Q

 ;IF $D(@INV@("PID1"))

 I $D(@INV@("PID1"))

 D:$T

 .S (INX,X)=$G(@INV@("PID1"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID1")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID1' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID2"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID2")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID2' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID3"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID3")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID3' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID4"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID4")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID4' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID5"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID5")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID5' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID6"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID6")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID6' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID7"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID7")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID7' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID8"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID8")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID8' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID9"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID9")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID9' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID10"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID10")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID10' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID11"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID11")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID11' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID12"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID12")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID12' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID13"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID13")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID14"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID14")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID15"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID15")=$G(X)

 .I '$D(X) D ERROR^INHS("Variable 'PID15' failed input transform. Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 .K DXS

 .S (INX,X)=$G(@INV@("PID16"))

 .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 .S @INV@("PID16")=$G(X)

9 .D EN^IS00016C

 G D1^IS00016C

IS00016B  ;Compiled from script 'Generated: HL IHS LAB R01 QUEST IN-I' on AUG 14, 2006

 +1       ;Part 3

 +2       ;Copyright 2006 SAIC

EN         IF DO

               SET @("@INV@(""NTE4"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,5)

 +1        QUIT 

B3         QUIT 

B2         QUIT 

B1         IF 'INVS

               DO MC^INHS

 +1       ;Entering TRANS section.

 +2       ;IF $D(@INV@("MSH1"))

 +3        IF $DATA(@INV@("MSH1"))

 +4        IF $TEST

               Begin DoDot:1

 +5                SET (INX,X)=$GET(@INV@("MSH1"))

 +6                IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +7                SET @INV@("MSH1")=$GET(X)

 +8                IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH1' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +9                KILL DXS

 +10               SET (INX,X)=$GET(@INV@("MSH2"))

 +11               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +12               SET @INV@("MSH2")=$GET(X)

 +13               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH2' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +14               KILL DXS

 +15               SET (INX,X)=$GET(@INV@("MSH3"))

 +16               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +17               SET @INV@("MSH3")=$GET(X)

 +18               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH3' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +19               KILL DXS

 +20               SET (INX,X)=$GET(@INV@("MSH4"))

 +21               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +22               SET @INV@("MSH4")=$GET(X)

 +23               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH4' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +24               KILL DXS

 +25               SET (INX,X)=$GET(@INV@("MSH5"))

 +26               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +27               SET @INV@("MSH5")=$GET(X)

 +28               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH5' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +29               KILL DXS

 +30               SET (INX,X)=$GET(@INV@("MSH6"))

 +31               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +32               SET @INV@("MSH6")=$GET(X)

 +33               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH6' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +34               KILL DXS

 +35               SET (INX,X)=$GET(@INV@("MSH7"))

 +36               IF X]""

                       SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)

 +37               SET @INV@("MSH7")=$GET(X)

 +38               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH7' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +39               KILL DXS

 +40               SET (INX,X)=$GET(@INV@("MSH8"))

 +41               IF X]""

                       SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)

 +42               SET @INV@("MSH8")=$GET(X)

 +43               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH8' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +44               KILL DXS

 +45               SET (INX,X)=$GET(@INV@("MSH10"))

 +46               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +47               SET @INV@("MSH10")=$GET(X)

 +48               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH10' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +49               KILL DXS

 +50               SET (INX,X)=$GET(@INV@("MSH12"))

 +51               IF $LENGTH(X)

                       SET X=+X

 +52               SET @INV@("MSH12")=$GET(X)

 +53               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH12' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +54               KILL DXS

 +55               SET (INX,X)=$GET(@INV@("MSH13"))

 +56               IF $LENGTH(X)

                       SET X=+X

 +57               SET @INV@("MSH13")=$GET(X)

 +58               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH13' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +59               KILL DXS

 +60               SET (INX,X)=$GET(@INV@("MSH14"))

 +61               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +62               SET @INV@("MSH14")=$GET(X)

 +63               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'MSH14' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +64               KILL DXS

 +65               QUIT 

               End DoDot:1

 +66      ;IF $D(@INV@("PID1"))

 +67       IF $DATA(@INV@("PID1"))

 +68       IF $TEST

               Begin DoDot:1

 +69               SET (INX,X)=$GET(@INV@("PID1"))

 +70               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +71               SET @INV@("PID1")=$GET(X)

 +72               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID1' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +73               KILL DXS

 +74               SET (INX,X)=$GET(@INV@("PID2"))

 +75               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +76               SET @INV@("PID2")=$GET(X)

 +77               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID2' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +78               KILL DXS

 +79               SET (INX,X)=$GET(@INV@("PID3"))

 +80               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +81               SET @INV@("PID3")=$GET(X)

 +82               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID3' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +83               KILL DXS

 +84               SET (INX,X)=$GET(@INV@("PID4"))

 +85               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +86               SET @INV@("PID4")=$GET(X)

 +87               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID4' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +88               KILL DXS

 +89               SET (INX,X)=$GET(@INV@("PID5"))

 +90               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +91               SET @INV@("PID5")=$GET(X)

 +92               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID5' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +93               KILL DXS

 +94               SET (INX,X)=$GET(@INV@("PID6"))

 +95               IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +96               SET @INV@("PID6")=$GET(X)

 +97               IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID6' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +98               KILL DXS

 +99               SET (INX,X)=$GET(@INV@("PID7"))

 +100              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +101              SET @INV@("PID7")=$GET(X)

 +102              IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID7' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +103              KILL DXS

 +104              SET (INX,X)=$GET(@INV@("PID8"))

 +105              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +106              SET @INV@("PID8")=$GET(X)

 +107              IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID8' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +108              KILL DXS

 +109              SET (INX,X)=$GET(@INV@("PID9"))

 +110              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +111              SET @INV@("PID9")=$GET(X)

 +112              IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID9' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +113              KILL DXS

 +114              SET (INX,X)=$GET(@INV@("PID10"))

 +115              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +116              SET @INV@("PID10")=$GET(X)

 +117              IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID10' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +118              KILL DXS

 +119              SET (INX,X)=$GET(@INV@("PID11"))

 +120              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +121              SET @INV@("PID11")=$GET(X)

 +122              IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID11' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +123              KILL DXS

 +124              SET (INX,X)=$GET(@INV@("PID12"))

 +125              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +126              SET @INV@("PID12")=$GET(X)

 +127              IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID12' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +128              KILL DXS

 +129              SET (INX,X)=$GET(@INV@("PID13"))

 +130              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +131              SET @INV@("PID13")=$GET(X)

 +132              IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +133              KILL DXS

 +134              SET (INX,X)=$GET(@INV@("PID14"))

 +135              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +136              SET @INV@("PID14")=$GET(X)

 +137              IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +138              KILL DXS

 +139              SET (INX,X)=$GET(@INV@("PID15"))

 +140              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +141              SET @INV@("PID15")=$GET(X)

 +142              IF '$DATA(X)

                       DO ERROR^INHS("Variable 'PID15' failed input transform. Processing continues.",0)

                       DO ERROR^INHS("  Value = '"_INX_"'",0)

 +143              KILL DXS

 +144              SET (INX,X)=$GET(@INV@("PID16"))

 +145              IF $PIECE($GET(INTHL7F2),U,4)

                       SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")

 +146              SET @INV@("PID16")=$GET(X)

9                  DO EN^IS00016C

               End DoDot:1

 +1        GOTO D1^IS00016C