IS00026A.m

IS00026A ;Compiled from script 'Generated: HL IHS IZV04 V02VXX IN-I' on AUG 15, 2018

 ;Part 2

 ;Copyright 2018 SAIC

EN 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^BHLV02I

 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)

IS00026A  ;Compiled from script 'Generated: HL IHS IZV04 V02VXX IN-I' on AUG 15, 2018

 +1       ;Part 2

 +2       ;Copyright 2018 SAIC

EN         IF $DATA(@INV@("QRD1"))#2

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

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

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

                   SET INREQERR=2

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

 +4        IF $GET(INSTERR)

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

           DO MAIN^BHLV02I

 +5        IF $GET(INSTERR)

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

 +6       ;Entering END section.

 +7        IF $GET(INSTERR)

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

 +8        KILL @INV,INV,INDA,DIPA

           QUIT +$GET(INREQERR)