IS00003K.m

IS00003K ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002

 ;Part 12

 ;Copyright 2002 SAIC

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

 Q

h1 ;IF $D(@INV@("TS21"))

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

 D:$T

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

9 .D EN^IS00003L

 G i1^IS00003L

IS00003K  ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002

 +1       ;Part 12

 +2       ;Copyright 2002 SAIC

EN         IF $PIECE($GET(INTHL7F2),U,4)

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

 +1        SET @INV@("TS310")=$GET(X)

 +2        IF '$DATA(X)

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

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

 +3        KILL DXS

 +4        SET (INX,X)=$GET(@INV@("TS311"))

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

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

 +6        SET @INV@("TS311")=$GET(X)

 +7        IF '$DATA(X)

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

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

 +8        KILL DXS

 +9        SET (INX,X)=$GET(@INV@("TS312"))

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

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

 +11       SET @INV@("TS312")=$GET(X)

 +12       IF '$DATA(X)

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

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

 +13       KILL DXS

 +14       SET (INX,X)=$GET(@INV@("TS313"))

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

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

 +16       SET @INV@("TS313")=$GET(X)

 +17       IF '$DATA(X)

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

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

 +18       KILL DXS

 +19       SET (INX,X)=$GET(@INV@("TS314"))

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

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

 +21       SET @INV@("TS314")=$GET(X)

 +22       IF '$DATA(X)

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

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

 +23       KILL DXS

 +24       SET (INX,X)=$GET(@INV@("TS315"))

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

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

 +26       SET @INV@("TS315")=$GET(X)

 +27       IF '$DATA(X)

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

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

 +28       KILL DXS

 +29       SET (INX,X)=$GET(@INV@("TS316"))

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

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

 +31       SET @INV@("TS316")=$GET(X)

 +32       IF '$DATA(X)

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

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

 +33       KILL DXS

 +34       SET (INX,X)=$GET(@INV@("TS317"))

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

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

 +36       SET @INV@("TS317")=$GET(X)

 +37       IF '$DATA(X)

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

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

 +38       KILL DXS

 +39       SET (INX,X)=$GET(@INV@("TS318"))

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

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

 +41       SET @INV@("TS318")=$GET(X)

 +42       IF '$DATA(X)

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

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

 +43       KILL DXS

 +44       SET (INX,X)=$GET(@INV@("TS319"))

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

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

 +46       SET @INV@("TS319")=$GET(X)

 +47       IF '$DATA(X)

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

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

 +48       KILL DXS

 +49       SET (INX,X)=$GET(@INV@("TS320"))

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

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

 +51       SET @INV@("TS320")=$GET(X)

 +52       IF '$DATA(X)

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

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

 +53       KILL DXS

 +54       SET (INX,X)=$GET(@INV@("TS321"))

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

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

 +56       SET @INV@("TS321")=$GET(X)

 +57       IF '$DATA(X)

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

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

 +58       KILL DXS

 +59       SET (INX,X)=$GET(@INV@("TS322"))

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

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

 +61       SET @INV@("TS322")=$GET(X)

 +62       IF '$DATA(X)

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

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

 +63       KILL DXS

 +64       SET (INX,X)=$GET(@INV@("TS323"))

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

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

 +66       SET @INV@("TS323")=$GET(X)

 +67       IF '$DATA(X)

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

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

 +68       KILL DXS

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

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

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

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

 +72       IF '$DATA(X)

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

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

 +73       KILL DXS

 +74       QUIT 

h1        ;IF $D(@INV@("TS21"))

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

 +2        IF $TEST

               Begin DoDot:1

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

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

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

 +5                SET @INV@("TS21")=$GET(X)

 +6                IF '$DATA(X)

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

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

 +7                KILL DXS

 +8                SET (INX,X)=$GET(@INV@("TS22"))

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

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

 +10               SET @INV@("TS22")=$GET(X)

 +11               IF '$DATA(X)

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

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

 +12               KILL DXS

 +13               SET (INX,X)=$GET(@INV@("TS23"))

9                  DO EN^IS00003L

               End DoDot:1

 +1        GOTO i1^IS00003L