IS00003X.m

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

 ;Part 25

 ;Copyright 2002 SAIC

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

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

 Q

AB2 K DXS

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

 .S (INX,X)=@INV@("CAS15",INI(1))

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

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

 .Q

 K DXS

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

 .S (INX,X)=@INV@("CAS16",INI(1))

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

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

 .Q

 K DXS

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

 .S (INX,X)=@INV@("CAS17",INI(1))

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

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

 .Q

 K DXS

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

 .S (INX,X)=@INV@("CAS18",INI(1))

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

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

 .Q

 K DXS

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

 .S (INX,X)=@INV@("CAS19",INI(1))

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

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

 .Q

 K DXS

 Q

AB1 ;IF $D(@INV@("REF1"))

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

 D:$T

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

 ..S (INX,X)=@INV@("REF1",INI(1))

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

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

 ..Q

 .K DXS

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

 ..S (INX,X)=@INV@("REF2",INI(1))

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

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

 ..Q

 .K DXS

 .Q

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

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

 D:$T

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

 ..S (INX,X)=@INV@("REF1",INI(1))

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

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

 ..Q

 .K DXS

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

 ..S (INX,X)=@INV@("REF2",INI(1))

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

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

 ..Q

 .K DXS

 .Q

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

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

 D:$T

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

 ..S (INX,X)=@INV@("AMT1",INI(1))

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

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

 ..Q

 .K DXS

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

 ..S (INX,X)=@INV@("AMT2",INI(1))

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

9 ..D EN^IS00003Y

 .D AE2^IS00003Y

 G AE1^IS00003Y

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

 +1       ;Part 25

 +2       ;Copyright 2002 SAIC

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

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

 +1        SET @INV@("CAS14",INI(1))=$GET(X)

           IF '$DATA(X)

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

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

 +2        QUIT 

AB2        KILL DXS

 +1        SET INI(1)=0

           FOR 

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

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +2                SET (INX,X)=@INV@("CAS15",INI(1))

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

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

 +4                SET @INV@("CAS15",INI(1))=$GET(X)

                   IF '$DATA(X)

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

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

 +5                QUIT 

               End DoDot:1

 +6        KILL DXS

 +7        SET INI(1)=0

           FOR 

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

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +8                SET (INX,X)=@INV@("CAS16",INI(1))

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

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

 +10               SET @INV@("CAS16",INI(1))=$GET(X)

                   IF '$DATA(X)

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

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

 +11               QUIT 

               End DoDot:1

 +12       KILL DXS

 +13       SET INI(1)=0

           FOR 

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

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +14               SET (INX,X)=@INV@("CAS17",INI(1))

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

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

 +16               SET @INV@("CAS17",INI(1))=$GET(X)

                   IF '$DATA(X)

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

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

 +17               QUIT 

               End DoDot:1

 +18       KILL DXS

 +19       SET INI(1)=0

           FOR 

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

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +20               SET (INX,X)=@INV@("CAS18",INI(1))

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

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

 +22               SET @INV@("CAS18",INI(1))=$GET(X)

                   IF '$DATA(X)

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

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

 +23               QUIT 

               End DoDot:1

 +24       KILL DXS

 +25       SET INI(1)=0

           FOR 

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

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

 +26               SET (INX,X)=@INV@("CAS19",INI(1))

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

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

 +28               SET @INV@("CAS19",INI(1))=$GET(X)

                   IF '$DATA(X)

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

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

 +29               QUIT 

               End DoDot:1

 +30       KILL DXS

 +31       QUIT 

AB1       ;IF $D(@INV@("REF1"))

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

 +2        IF $TEST

               Begin DoDot:1

 +3                SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +4                        SET (INX,X)=@INV@("REF1",INI(1))

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

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

 +6                        SET @INV@("REF1",INI(1))=$GET(X)

                           IF '$DATA(X)

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

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

 +7                        QUIT 

                       End DoDot:2

 +8                KILL DXS

 +9                SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +10                       SET (INX,X)=@INV@("REF2",INI(1))

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

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

 +12                       SET @INV@("REF2",INI(1))=$GET(X)

                           IF '$DATA(X)

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

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

 +13                       QUIT 

                       End DoDot:2

 +14               KILL DXS

 +15               QUIT 

               End DoDot:1

 +16      ;IF $D(@INV@("REF1"))

 +17       IF $DATA(@INV@("REF1"))

 +18       IF $TEST

               Begin DoDot:1

 +19               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +20                       SET (INX,X)=@INV@("REF1",INI(1))

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

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

 +22                       SET @INV@("REF1",INI(1))=$GET(X)

                           IF '$DATA(X)

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

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

 +23                       QUIT 

                       End DoDot:2

 +24               KILL DXS

 +25               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +26                       SET (INX,X)=@INV@("REF2",INI(1))

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

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

 +28                       SET @INV@("REF2",INI(1))=$GET(X)

                           IF '$DATA(X)

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

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

 +29                       QUIT 

                       End DoDot:2

 +30               KILL DXS

 +31               QUIT 

               End DoDot:1

 +32      ;IF $D(@INV@("AMT1"))

 +33       IF $DATA(@INV@("AMT1"))

 +34       IF $TEST

               Begin DoDot:1

 +35               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +36                       SET (INX,X)=@INV@("AMT1",INI(1))

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

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

 +38                       SET @INV@("AMT1",INI(1))=$GET(X)

                           IF '$DATA(X)

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

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

 +39                       QUIT 

                       End DoDot:2

 +40               KILL DXS

 +41               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +42                       SET (INX,X)=@INV@("AMT2",INI(1))

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

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

9                          DO EN^IS00003Y

                       End DoDot:2

 +1                DO AE2^IS00003Y

               End DoDot:1

 +2        GOTO AE1^IS00003Y