Routine: IS00018C

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

 ;Part 4

 ;Copyright 2006 SAIC

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

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

 K DXS

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

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

 S @INV@("PID17")=$G(X)

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

 K DXS

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

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

 S @INV@("PID18")=$G(X)

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

 K DXS

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

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

 S @INV@("PID19")=$G(X)

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

 K DXS

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

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

 S @INV@("PID20")=$G(X)

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

 K DXS

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

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

 S @INV@("PID21")=$G(X)

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

 K DXS

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

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

 S @INV@("PID22")=$G(X)

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

 K DXS

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

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

 S @INV@("PID23")=$G(X)

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

 K DXS

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

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

 S @INV@("PID24")=$G(X)

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

 K DXS

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

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

 S @INV@("PID25")=$G(X)

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

 K DXS

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

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

 S @INV@("PID26")=$G(X)

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

 K DXS

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

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

 S @INV@("PID27")=$G(X)

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

 K DXS

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

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

 S @INV@("PID28")=$G(X)

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

 K DXS

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

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

 S @INV@("PID29")=$G(X)

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

 K DXS

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

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

 S @INV@("PID30")=$G(X)

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

 K DXS

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

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

 S @INV@("PID31")=$G(X)

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

 K DXS

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

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

 S @INV@("PID32")=$G(X)

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

 K DXS

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

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

 S @INV@("PID33")=$G(X)

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

 K DXS

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

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

 S @INV@("PID34")=$G(X)

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

 K DXS

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

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

 S @INV@("PID35")=$G(X)

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

 K DXS

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

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

 S @INV@("PID36")=$G(X)

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

 K DXS

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

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

 S @INV@("PID37")=$G(X)

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

 K DXS

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

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

 S @INV@("PID38")=$G(X)

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

 K DXS

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

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

 D:$T

 .S INI(1)=0 F  S INI(1)=$O(@INV@("NTE4",INI(1))) Q:'INI(1)  S INI=INI(1) D

 ..S INI(2)=0 F  S INI(2)=$O(@INV@("NTE4",INI(1),INI(2))) Q:'INI(2)  S INI=INI(2) D

 ...S INI(3)=0 F  S INI(3)=$O(@INV@("NTE4",INI(1),INI(2),INI(3))) Q:'INI(3)  S INI=INI(3) D

 ....S (INX,X)=@INV@("NTE4",INI(1),INI(2),INI(3))

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

 ....S @INV@("NTE4",INI(1),INI(2),INI(3))=$G(X) I '$D(X) D ERROR^INHS("Variable 'NTE4' failed input transform in iteration #"_INI(1)_","_INI(2)_","_INI(3)_". Processing continues.",0),ERROR^INHS("  Value = '"_INX_"'",0)

 ....Q

 ...Q

..Q

 .K DXS

.Q

F1 ;IF $D(@INV@("PV11"))

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

 D:$T

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

9 .D EN^IS00018D

 G G1^IS00018E

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

 +1       ;Part 4

 +2       ;Copyright 2006 SAIC

EN         KILL DXS

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

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

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

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

 +4        IF '$DATA(X)

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

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

 +5        KILL DXS

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

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

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

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

 +9        IF '$DATA(X)

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

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

 +10       KILL DXS

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

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

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

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

 +14       IF '$DATA(X)

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

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

 +15       KILL DXS

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

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

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

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

 +19       IF '$DATA(X)

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

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

 +20       KILL DXS

 +21       SET (INX,X)=$GET(@INV@("PID17"))

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

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

 +23       SET @INV@("PID17")=$GET(X)

 +24       IF '$DATA(X)

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

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

 +25       KILL DXS

 +26       SET (INX,X)=$GET(@INV@("PID18"))

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

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

 +28       SET @INV@("PID18")=$GET(X)

 +29       IF '$DATA(X)

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

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

 +30       KILL DXS

 +31       SET (INX,X)=$GET(@INV@("PID19"))

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

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

 +33       SET @INV@("PID19")=$GET(X)

 +34       IF '$DATA(X)

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

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

 +35       KILL DXS

 +36       SET (INX,X)=$GET(@INV@("PID20"))

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

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

 +38       SET @INV@("PID20")=$GET(X)

 +39       IF '$DATA(X)

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

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

 +40       KILL DXS

 +41       SET (INX,X)=$GET(@INV@("PID21"))

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

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

 +43       SET @INV@("PID21")=$GET(X)

 +44       IF '$DATA(X)

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

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

 +45       KILL DXS

 +46       SET (INX,X)=$GET(@INV@("PID22"))

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

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

 +48       SET @INV@("PID22")=$GET(X)

 +49       IF '$DATA(X)

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

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

 +50       KILL DXS

 +51       SET (INX,X)=$GET(@INV@("PID23"))

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

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

 +53       SET @INV@("PID23")=$GET(X)

 +54       IF '$DATA(X)

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

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

 +55       KILL DXS

 +56       SET (INX,X)=$GET(@INV@("PID24"))

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

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

 +58       SET @INV@("PID24")=$GET(X)

 +59       IF '$DATA(X)

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

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

 +60       KILL DXS

 +61       SET (INX,X)=$GET(@INV@("PID25"))

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

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

 +63       SET @INV@("PID25")=$GET(X)

 +64       IF '$DATA(X)

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

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

 +65       KILL DXS

 +66       SET (INX,X)=$GET(@INV@("PID26"))

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

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

 +68       SET @INV@("PID26")=$GET(X)

 +69       IF '$DATA(X)

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

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

 +70       KILL DXS

 +71       SET (INX,X)=$GET(@INV@("PID27"))

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

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

 +73       SET @INV@("PID27")=$GET(X)

 +74       IF '$DATA(X)

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

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

 +75       KILL DXS

 +76       SET (INX,X)=$GET(@INV@("PID28"))

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

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

 +78       SET @INV@("PID28")=$GET(X)

 +79       IF '$DATA(X)

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

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

 +80       KILL DXS

 +81       SET (INX,X)=$GET(@INV@("PID29"))

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

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

 +83       SET @INV@("PID29")=$GET(X)

 +84       IF '$DATA(X)

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

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

 +85       KILL DXS

 +86       SET (INX,X)=$GET(@INV@("PID30"))

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

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

 +88       SET @INV@("PID30")=$GET(X)

 +89       IF '$DATA(X)

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

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

 +90       KILL DXS

 +91       SET (INX,X)=$GET(@INV@("PID31"))

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

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

 +93       SET @INV@("PID31")=$GET(X)

 +94       IF '$DATA(X)

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

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

 +95       KILL DXS

 +96       SET (INX,X)=$GET(@INV@("PID32"))

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

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

 +98       SET @INV@("PID32")=$GET(X)

 +99       IF '$DATA(X)

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

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

 +100      KILL DXS

 +101      SET (INX,X)=$GET(@INV@("PID33"))

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

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

 +103      SET @INV@("PID33")=$GET(X)

 +104      IF '$DATA(X)

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

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

 +105      KILL DXS

 +106      SET (INX,X)=$GET(@INV@("PID34"))

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

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

 +108      SET @INV@("PID34")=$GET(X)

 +109      IF '$DATA(X)

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

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

 +110      KILL DXS

 +111      SET (INX,X)=$GET(@INV@("PID35"))

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

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

 +113      SET @INV@("PID35")=$GET(X)

 +114      IF '$DATA(X)

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

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

 +115      KILL DXS

 +116      SET (INX,X)=$GET(@INV@("PID36"))

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

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

 +118      SET @INV@("PID36")=$GET(X)

 +119      IF '$DATA(X)

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

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

 +120      KILL DXS

 +121      SET (INX,X)=$GET(@INV@("PID37"))

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

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

 +123      SET @INV@("PID37")=$GET(X)

 +124      IF '$DATA(X)

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

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

 +125      KILL DXS

 +126      SET (INX,X)=$GET(@INV@("PID38"))

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

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

 +128      SET @INV@("PID38")=$GET(X)

 +129      IF '$DATA(X)

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

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

 +130      KILL DXS

 +131     ;IF $D(@INV@("NTE1"))

 +132      IF $DATA(@INV@("NTE1"))

 +133      IF $TEST

               Begin DoDot:1

 +134              SET INI(1)=0

FOR

                       SET INI(1)=$ORDER(@INV@("NTE4",INI(1)))

                       IF 'INI(1)

                           QUIT

                       SET INI=INI(1)

                       Begin DoDot:2

 +135                      SET INI(2)=0

FOR

                               SET INI(2)=$ORDER(@INV@("NTE4",INI(1),INI(2)))

                               IF 'INI(2)

                                   QUIT

                               SET INI=INI(2)

                               Begin DoDot:3

 +136                              SET INI(3)=0

FOR

                                       SET INI(3)=$ORDER(@INV@("NTE4",INI(1),INI(2),INI(3)))

                                       IF 'INI(3)

                                           QUIT

                                       SET INI=INI(3)

                                       Begin DoDot:4

 +137                                      SET (INX,X)=@INV@("NTE4",INI(1),INI(2),INI(3))

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

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

 +139                                      SET @INV@("NTE4",INI(1),INI(2),INI(3))=$GET(X)

                                           IF '$DATA(X)

                                               DO ERROR^INHS("Variable 'NTE4' failed input transform in iteration #"_INI(1)_","_INI(2)_","_INI(3)_". Processing continues.",0)

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

 +140                                      QUIT

                                       End DoDot:4

 +141                              QUIT

                               End DoDot:3

 +142                      QUIT

                       End DoDot:2

 +143              KILL DXS

 +144              QUIT

               End DoDot:1

 +145      QUIT

F1        ;IF $D(@INV@("PV11"))

 +1        IF $DATA(@INV@("PV11"))

 +2        IF $TEST

               Begin DoDot:1

 +3                SET (INX,X)=$GET(@INV@("PV11"))

9                  DO EN^IS00018D

               End DoDot:1

 +1        GOTO G1^IS00018E

IS00018C.m