IS00003U.m

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

 ;Part 22

 ;Copyright 2002 SAIC

EN I $D(@INV@("DTM1"))

 D:$T

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

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

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

 ..S @INV@("DTM1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'DTM1' 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@("DTM2",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

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

 ..Q

 .K DXS

 .Q

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

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

 D:$T

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

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

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

 ..S @INV@("PER1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER1' 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@("PER2",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("PER2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER2' 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@("PER3",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("PER3",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER3' 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@("PER4",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("PER4",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER4' 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@("PER5",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("PER5",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER5' 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@("PER6",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("PER6",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER6' 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@("PER7",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("PER7",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER7' 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@("PER8",INI(1))) Q:'INI(1)  S INI=INI(1) D

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

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

 ..S @INV@("PER8",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'PER8' 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))

9 ..D EN^IS00003V

 .D x2^IS00003V

 G x1^IS00003V

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

 +1       ;Part 22

 +2       ;Copyright 2002 SAIC

EN         IF $DATA(@INV@("DTM1"))

 +1        IF $TEST

               Begin DoDot:1

 +2                SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +3                        SET (INX,X)=@INV@("DTM1",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +6                        QUIT 

                       End DoDot:2

 +7                KILL DXS

 +8                SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +9                        SET (INX,X)=@INV@("DTM2",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +12                       QUIT 

                       End DoDot:2

 +13               KILL DXS

 +14               QUIT 

               End DoDot:1

 +15      ;IF $D(@INV@("PER1"))

 +16       IF $DATA(@INV@("PER1"))

 +17       IF $TEST

               Begin DoDot:1

 +18               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +19                       SET (INX,X)=@INV@("PER1",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +22                       QUIT 

                       End DoDot:2

 +23               KILL DXS

 +24               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +25                       SET (INX,X)=@INV@("PER2",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +28                       QUIT 

                       End DoDot:2

 +29               KILL DXS

 +30               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +31                       SET (INX,X)=@INV@("PER3",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +34                       QUIT 

                       End DoDot:2

 +35               KILL DXS

 +36               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +37                       SET (INX,X)=@INV@("PER4",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +40                       QUIT 

                       End DoDot:2

 +41               KILL DXS

 +42               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +43                       SET (INX,X)=@INV@("PER5",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +46                       QUIT 

                       End DoDot:2

 +47               KILL DXS

 +48               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +49                       SET (INX,X)=@INV@("PER6",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +52                       QUIT 

                       End DoDot:2

 +53               KILL DXS

 +54               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +55                       SET (INX,X)=@INV@("PER7",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +58                       QUIT 

                       End DoDot:2

 +59               KILL DXS

 +60               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

 +61                       SET (INX,X)=@INV@("PER8",INI(1))

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

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

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

                           IF '$DATA(X)

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

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

 +64                       QUIT 

                       End DoDot:2

 +65               KILL DXS

 +66               QUIT 

               End DoDot:1

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

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

 +69       IF $TEST

               Begin DoDot:1

 +70               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

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

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

 +73                       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)

 +74                       QUIT 

                       End DoDot:2

 +75               KILL DXS

 +76               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

9                          DO EN^IS00003V

                       End DoDot:2

 +1                DO x2^IS00003V

               End DoDot:1

 +2        GOTO x1^IS00003V