IS00003H.m

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

 ;Part 9

 ;Copyright 2002 SAIC

EN 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

W2 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

W1 ;IF $D(@INV@("N11"))

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

 D:$T

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

 .Q

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

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

 D:$T

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

 .Q

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

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

 D:$T

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .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@("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

9 ..D EN^IS00003I

 .D b2^IS00003I

 G b1^IS00003I

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

 +1       ;Part 9

 +2       ;Copyright 2002 SAIC

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

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

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

 +2        QUIT 

W2         KILL DXS

 +1        SET INI(1)=0

           FOR 

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

               IF 'INI(1)

                   QUIT 

               SET INI=INI(1)

               Begin DoDot:1

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

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

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

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

 +5                QUIT 

               End DoDot:1

 +6        KILL DXS

 +7        QUIT 

W1        ;IF $D(@INV@("N11"))

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

 +2        IF $TEST

               Begin DoDot:1

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

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

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

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

 +6                IF '$DATA(X)

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

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

 +7                KILL DXS

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

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

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

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

 +11               IF '$DATA(X)

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

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

 +12               KILL DXS

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

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

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

 +15               SET @INV@("N13")=$GET(X)

 +16               IF '$DATA(X)

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

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

 +17               KILL DXS

 +18               SET (INX,X)=$GET(@INV@("N14"))

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

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

 +20               SET @INV@("N14")=$GET(X)

 +21               IF '$DATA(X)

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

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

 +22               KILL DXS

 +23               QUIT 

               End DoDot:1

 +24      ;IF $D(@INV@("N31"))

 +25       IF $DATA(@INV@("N31"))

 +26       IF $TEST

               Begin DoDot:1

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

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

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

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

 +30               IF '$DATA(X)

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

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

 +31               KILL DXS

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

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

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

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

 +35               IF '$DATA(X)

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

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

 +36               KILL DXS

 +37               QUIT 

               End DoDot:1

 +38      ;IF $D(@INV@("N41"))

 +39       IF $DATA(@INV@("N41"))

 +40       IF $TEST

               Begin DoDot:1

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

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

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

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

 +44               IF '$DATA(X)

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

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

 +45               KILL DXS

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

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

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

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

 +49               IF '$DATA(X)

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

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

 +50               KILL DXS

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

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

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

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

 +54               IF '$DATA(X)

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

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

 +55               KILL DXS

 +56               QUIT 

               End DoDot:1

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

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

 +59       IF $TEST

               Begin DoDot:1

 +60               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

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

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

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

 +64                       QUIT 

                       End DoDot:2

 +65               KILL DXS

 +66               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

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

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

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

 +70                       QUIT 

                       End DoDot:2

 +71               KILL DXS

 +72               QUIT 

               End DoDot:1

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

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

 +75       IF $TEST

               Begin DoDot:1

 +76               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

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

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

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

 +80                       QUIT 

                       End DoDot:2

 +81               KILL DXS

 +82               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

9                          DO EN^IS00003I

                       End DoDot:2

 +1                DO b2^IS00003I

               End DoDot:1

 +2        GOTO b1^IS00003I