IS00003S.m

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

 ;Part 20

 ;Copyright 2002 SAIC

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

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

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

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

9 G EN^IS00003T

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

 +1       ;Part 20

 +2       ;Copyright 2002 SAIC

EN         IF '$DATA(X)

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

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

 +1        KILL DXS

 +2        SET (INX,X)=$GET(@INV@("MIA7"))

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

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

 +4        SET @INV@("MIA7")=$GET(X)

 +5        IF '$DATA(X)

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

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

 +6        KILL DXS

 +7        SET (INX,X)=$GET(@INV@("MIA8"))

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

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

 +9        SET @INV@("MIA8")=$GET(X)

 +10       IF '$DATA(X)

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

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

 +11       KILL DXS

 +12       SET (INX,X)=$GET(@INV@("MIA9"))

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

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

 +14       SET @INV@("MIA9")=$GET(X)

 +15       IF '$DATA(X)

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

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

 +16       KILL DXS

 +17       SET (INX,X)=$GET(@INV@("MIA10"))

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

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

 +19       SET @INV@("MIA10")=$GET(X)

 +20       IF '$DATA(X)

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

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

 +21       KILL DXS

 +22       SET (INX,X)=$GET(@INV@("MIA11"))

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

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

 +24       SET @INV@("MIA11")=$GET(X)

 +25       IF '$DATA(X)

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

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

 +26       KILL DXS

 +27       SET (INX,X)=$GET(@INV@("MIA12"))

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

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

 +29       SET @INV@("MIA12")=$GET(X)

 +30       IF '$DATA(X)

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

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

 +31       KILL DXS

 +32       SET (INX,X)=$GET(@INV@("MIA13"))

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

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

 +34       SET @INV@("MIA13")=$GET(X)

 +35       IF '$DATA(X)

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

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

 +36       KILL DXS

 +37       SET (INX,X)=$GET(@INV@("MIA14"))

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

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

 +39       SET @INV@("MIA14")=$GET(X)

 +40       IF '$DATA(X)

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

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

 +41       KILL DXS

 +42       SET (INX,X)=$GET(@INV@("MIA15"))

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

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

 +44       SET @INV@("MIA15")=$GET(X)

 +45       IF '$DATA(X)

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

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

 +46       KILL DXS

 +47       SET (INX,X)=$GET(@INV@("MIA16"))

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

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

 +49       SET @INV@("MIA16")=$GET(X)

 +50       IF '$DATA(X)

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

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

 +51       KILL DXS

 +52       SET (INX,X)=$GET(@INV@("MIA17"))

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

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

 +54       SET @INV@("MIA17")=$GET(X)

 +55       IF '$DATA(X)

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

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

 +56       KILL DXS

 +57       SET (INX,X)=$GET(@INV@("MIA18"))

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

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

 +59       SET @INV@("MIA18")=$GET(X)

 +60       IF '$DATA(X)

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

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

 +61       KILL DXS

 +62       SET (INX,X)=$GET(@INV@("MIA19"))

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

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

 +64       SET @INV@("MIA19")=$GET(X)

 +65       IF '$DATA(X)

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

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

 +66       KILL DXS

 +67       SET (INX,X)=$GET(@INV@("MIA20"))

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

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

 +69       SET @INV@("MIA20")=$GET(X)

 +70       IF '$DATA(X)

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

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

 +71       KILL DXS

 +72       SET (INX,X)=$GET(@INV@("MIA21"))

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

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

 +74       SET @INV@("MIA21")=$GET(X)

 +75       IF '$DATA(X)

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

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

 +76       KILL DXS

 +77       SET (INX,X)=$GET(@INV@("MIA22"))

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

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

 +79       SET @INV@("MIA22")=$GET(X)

 +80       IF '$DATA(X)

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

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

 +81       KILL DXS

 +82       SET (INX,X)=$GET(@INV@("MIA23"))

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

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

 +84       SET @INV@("MIA23")=$GET(X)

9          GOTO EN^IS00003T