Routine: IS00027C

IS00027C ;Compiled from script 'Generated: HL IHS IZV04 V03VXR IN-I' on FEB 28, 2013

 ;Part 4

 ;Copyright 2013 SAIC

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

M3 K DXS

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

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

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

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

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

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

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

.Q

 K DXS

M2 Q

M1 ;IF $D(@INV@("ORC1"))

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

 D:$T

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

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

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

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

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

 ..I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)

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

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

 ..I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)

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

..Q

 .K DXS

 .;IF $D(@INV@("RXA1"))

 .I $D(@INV@("RXA1"))

 .D:$T

..Q

.Q

 ;Entering REQUIRED section.

 I $D(@INV@("MSH1"))#2,$G(@INV@("MSH1"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL FIELD SEPARATOR")

 I $D(@INV@("MSH1"))#2,$G(@INV@("MSH2"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL ENCODING CHARACTERS")

 I $D(@INV@("MSH1"))#2,$G(@INV@("MSH9"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL MESSAGE TYPE")

 I $D(@INV@("MSH1"))#2,$G(@INV@("MSH11"))="" S INREQERR=2 D KILL^INHVA1("MSH","HL PROCESSING ID")

 I $D(@INV@("QRD1"))#2,$G(@INV@("QRD1"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QDTM (QRD-1)")

 I $D(@INV@("QRD1"))#2,$G(@INV@("QRD2"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QFC (QRD-2)")

 I $D(@INV@("QRD1"))#2,$G(@INV@("QRD3"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QP (QRD-3)")

 I $D(@INV@("QRD1"))#2,$G(@INV@("QRD4"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QID (QRD-4)")

 I $D(@INV@("QRD1"))#2,$G(@INV@("QRD7"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN QTY (QRD-7)")

 I $D(@INV@("QRD1"))#2,$G(@INV@("QRD8"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN WHO (QRD-8)")

 I $D(@INV@("QRD1"))#2,$G(@INV@("QRD9"))="" S INREQERR=2 D KILL^INHVA1("QRD","HL IHS QRD IN WHAT (QRD-9)")

 I $D(@INV@("QRF1"))#2,$G(@INV@("QRF1"))="" S INREQERR=2 D KILL^INHVA1("QRF","HL IHS QRF IN WHERE (QRF-1)")

 Q:$G(INSTERR) $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)  D MAIN^BHLI

 I $G(INSTERR) Q $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 ;Entering END section.

 I $G(INSTERR) Q $S($G(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 K @INV,INV,INDA,DIPA Q +$G(INREQERR)

IS00027C  ;Compiled from script 'Generated: HL IHS IZV04 V03VXR IN-I' on FEB 28, 2013

 +1       ;Part 4

 +2       ;Copyright 2013 SAIC

EN         SET @INV@("IN23",INI(1))=$GET(X)

           IF '$DATA(X)

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

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

 +1        QUIT

M3         KILL DXS

 +1        SET INI(1)=0

FOR

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

               IF 'INI(1)

                   QUIT

               SET INI=INI(1)

               Begin DoDot:1

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

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

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

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

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'IN26' 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@("IN28",INI(1)))

               IF 'INI(1)

                   QUIT

               SET INI=INI(1)

               Begin DoDot:1

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

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

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

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

                   IF '$DATA(X)

                       DO ERROR^INHS("Variable 'IN28' 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       QUIT

M2         QUIT

M1        ;IF $D(@INV@("ORC1"))

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

 +2        IF $TEST

               Begin DoDot:1

 +3                SET INI(1)=0

FOR

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

                       IF 'INI(1)

                           QUIT

                       SET INI=INI(1)

                       Begin DoDot:2

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

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

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

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

                           IF '$DATA(X)

                               DO ERROR^INHS("Variable 'ORC5' 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@("ORC9",INI(1)))

                       IF 'INI(1)

                           QUIT

                       SET INI=INI(1)

                       Begin DoDot:2

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

 +11                       IF X]""

                               SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)

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

                           IF '$DATA(X)

                               DO ERROR^INHS("Variable 'ORC9' 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               SET INI(1)=0

FOR

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

                       IF 'INI(1)

                           QUIT

                       SET INI=INI(1)

                       Begin DoDot:2

 +16                       SET (INX,X)=@INV@("ORC15",INI(1))

 +17                       IF X]""

                               SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)

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

                           IF '$DATA(X)

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

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

 +19                       QUIT

                       End DoDot:2

 +20               KILL DXS

 +21      ;IF $D(@INV@("RXA1"))

 +22               IF $DATA(@INV@("RXA1"))

 +23               IF $TEST

                       Begin DoDot:2

 +24                       QUIT

                       End DoDot:2

 +25               QUIT

               End DoDot:1

 +26      ;Entering REQUIRED section.

 +27       IF $DATA(@INV@("MSH1"))#2

               IF $GET(@INV@("MSH1"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("MSH","HL FIELD SEPARATOR")

 +28       IF $DATA(@INV@("MSH1"))#2

               IF $GET(@INV@("MSH2"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("MSH","HL ENCODING CHARACTERS")

 +29       IF $DATA(@INV@("MSH1"))#2

               IF $GET(@INV@("MSH9"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("MSH","HL MESSAGE TYPE")

 +30       IF $DATA(@INV@("MSH1"))#2

               IF $GET(@INV@("MSH11"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("MSH","HL PROCESSING ID")

 +31       IF $DATA(@INV@("QRD1"))#2

               IF $GET(@INV@("QRD1"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("QRD","HL IHS QRD IN QDTM (QRD-1)")

 +32       IF $DATA(@INV@("QRD1"))#2

               IF $GET(@INV@("QRD2"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("QRD","HL IHS QRD IN QFC (QRD-2)")

 +33       IF $DATA(@INV@("QRD1"))#2

               IF $GET(@INV@("QRD3"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("QRD","HL IHS QRD IN QP (QRD-3)")

 +34       IF $DATA(@INV@("QRD1"))#2

               IF $GET(@INV@("QRD4"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("QRD","HL IHS QRD IN QID (QRD-4)")

 +35       IF $DATA(@INV@("QRD1"))#2

               IF $GET(@INV@("QRD7"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("QRD","HL IHS QRD IN QTY (QRD-7)")

 +36       IF $DATA(@INV@("QRD1"))#2

               IF $GET(@INV@("QRD8"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("QRD","HL IHS QRD IN WHO (QRD-8)")

 +37       IF $DATA(@INV@("QRD1"))#2

               IF $GET(@INV@("QRD9"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("QRD","HL IHS QRD IN WHAT (QRD-9)")

 +38       IF $DATA(@INV@("QRF1"))#2

               IF $GET(@INV@("QRF1"))=""

                   SET INREQERR=2

                   DO KILL^INHVA1("QRF","HL IHS QRF IN WHERE (QRF-1)")

 +39       IF $GET(INSTERR)

               QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)

           DO MAIN^BHLI

 +40       IF $GET(INSTERR)

               QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 +41      ;Entering END section.

 +42       IF $GET(INSTERR)

               QUIT $SELECT($GET(INREQERR)>INSTERR:INREQERR,1:INSTERR)

 +43       KILL @INV,INV,INDA,DIPA

           QUIT +$GET(INREQERR)

IS00027C.m