IS00025A.m

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

 ;Part 2

 ;Copyright 2013 SAIC

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

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

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

 K DXS

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

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

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

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

 K DXS

 Q

D1 ;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^BHLV01I

 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)

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

 +1       ;Part 2

 +2       ;Copyright 2013 SAIC

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

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

 +1        SET @INV@("QRF1")=$GET(X)

 +2        IF '$DATA(X)

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

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

 +3        KILL DXS

 +4        SET (INX,X)=$GET(@INV@("QRF5"))

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

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

 +6        SET @INV@("QRF5")=$GET(X)

 +7        IF '$DATA(X)

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

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

 +8        KILL DXS

 +9        QUIT 

D1        ;Entering REQUIRED section.

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

 +13       IF $GET(INSTERR)

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

           DO MAIN^BHLV01I

 +14       IF $GET(INSTERR)

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

 +15      ;Entering END section.

 +16       IF $GET(INSTERR)

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

 +17       KILL @INV,INV,INDA,DIPA

           QUIT +$GET(INREQERR)