IS00003G.m

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

 ;Part 8

 ;Copyright 2002 SAIC

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

 K DXS

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

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

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

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

 K DXS

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

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

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

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

 K DXS

 Q

R1 ;IF $D(@INV@("TRN1"))

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

 D:$T

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

 .Q

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

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

 D:$T

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

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

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

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

 .K DXS

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

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

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

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

 .K DXS

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

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

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

 .I '$D(X) D ERROR^INHS("Variable 'CUR3' 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@("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@("DTM1"))

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

9 ..D EN^IS00003H

 .D W2^IS00003H

 G W1^IS00003H

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

 +1       ;Part 8

 +2       ;Copyright 2002 SAIC

EN         IF '$DATA(X)

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

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

 +1        KILL DXS

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

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

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

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

 +5        IF '$DATA(X)

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

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

 +6        KILL DXS

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

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

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

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

 +10       IF '$DATA(X)

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

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

 +11       KILL DXS

 +12       QUIT 

R1        ;IF $D(@INV@("TRN1"))

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

 +2        IF $TEST

               Begin DoDot:1

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

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

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

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

 +6                IF '$DATA(X)

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

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

 +7                KILL DXS

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

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

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

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

 +11               IF '$DATA(X)

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

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

 +12               KILL DXS

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

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

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

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

 +16               IF '$DATA(X)

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

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

 +17               KILL DXS

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

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

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

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

 +21               IF '$DATA(X)

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

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

 +22               KILL DXS

 +23               QUIT 

               End DoDot:1

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

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

 +26       IF $TEST

               Begin DoDot:1

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

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

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

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

 +30               IF '$DATA(X)

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

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

 +31               KILL DXS

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

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

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

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

 +35               IF '$DATA(X)

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

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

 +36               KILL DXS

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

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

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

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

 +40               IF '$DATA(X)

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

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

 +41               KILL DXS

 +42               QUIT 

               End DoDot:1

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

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

 +45       IF $TEST

               Begin DoDot:1

 +46               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

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

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

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

 +50                       QUIT 

                       End DoDot:2

 +51               KILL DXS

 +52               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

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

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

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

 +56                       QUIT 

                       End DoDot:2

 +57               KILL DXS

 +58               QUIT 

               End DoDot:1

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

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

 +61       IF $TEST

               Begin DoDot:1

 +62               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

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

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

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

 +66                       QUIT 

                       End DoDot:2

 +67               KILL DXS

 +68               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

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

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

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

 +72                       QUIT 

                       End DoDot:2

 +73               KILL DXS

 +74               QUIT 

               End DoDot:1

 +75      ;IF $D(@INV@("DTM1"))

 +76       IF $DATA(@INV@("DTM1"))

 +77       IF $TEST

               Begin DoDot:1

 +78               SET INI(1)=0

                   FOR 

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

                       IF 'INI(1)

                           QUIT 

                       SET INI=INI(1)

                       Begin DoDot:2

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

9                          DO EN^IS00003H

                       End DoDot:2

 +1                DO W2^IS00003H

               End DoDot:1

 +2        GOTO W1^IS00003H