ASURDINV.m

ASURDINV ; IHS/ITSC/LMH -DAILY UPDATE INV REPORTS ; 

 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 ;This routine is used to print the daily update Invoice series of

 ;reports - R70, R71.  It is involked both by the Daily update option

 ;and by the Invoice series print option.  It involks routines

 ;^ASURD70P and ^ASURD71P.

 I '$D(IO) D HOME^%ZIS

 I '$D(DUZ(2)) W !,"Report must be run from Kernel option" Q

 I '$D(ASUL(1,"AR","AP")) D SETAREA^ASULARST

 S ASUK("PTR")="IRPT"

 S ZTRTN="PSER^ASURDINV",ZTDESC="SAMS INVOICE REPORTS"

 D O^ASUUZIS Q:$D(DTOUT)  Q:$D(DUOUT)  ;DFM P1 9/15/98

 I POP S IOP=$I D ^%ZIS Q

 I ASUK(ASUK("PTR"),"Q") Q

 S ASUK("PTRSEL")=1

PSER ;EP;FOR TASKMAN QUEUE OF PRINT

 D TIME^ASUUDATE

 S ASURX="W !,""S.A.M.S. Invoice Reports Procedure Begun "_ASUK("DT","TIME")_"""" D ^ASUUPLOG

 D U^ASUUZIS

 D:$G(ASUP("TYP"))']"" SETCTRL^ASUCOSTS

 S ASUP("CKI")=+$G(ASUP("CKI"))

 I ASUP("CKI")=0 S ASUP("CKI")=1 D SETSI^ASUCOSTS

 I ASUP("CKI")=1 D ^ASURD70P S ASUP("CKI")=2 D SETSI^ASUCOSTS

 I ASUP("CKI")=2 D ^ASURD71P S ASUP("CKI")=3 D SETSI^ASUCOSTS

 I ASUP("CKI")=3 D

 .I $D(ASUV("R72 LAST DT")) D

 ..D REPRINT^ASURD72P S ASUP("CKI")=0 D SETSI^ASUCOSTS

 .E  D

 ..D ^ASURD72P S ASUP("CKI")=0 D SETSI^ASUCOSTS

 D TIME^ASUUDATE

 D C^ASUUZIS

 U IO(0)

 S ASURX="W !,""S.A.M.S. Invoice Reports Procedure Ended "_ASUK("DT","TIME")_"""" D ^ASUUPLOG

 I ASUP("CKI")=0 D

 .S ASUP("IVR")="Y",ASUP("CKP")=7 D SETSTAT^ASUCOSTS

 Q

ASURDINV  ; IHS/ITSC/LMH -DAILY UPDATE INV REPORTS ; 

 +1       ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 +2       ;This routine is used to print the daily update Invoice series of

 +3       ;reports - R70, R71.  It is involked both by the Daily update option

 +4       ;and by the Invoice series print option.  It involks routines

 +5       ;^ASURD70P and ^ASURD71P.

 +6        IF '$DATA(IO)

               DO HOME^%ZIS

 +7        IF '$DATA(DUZ(2))

               WRITE !,"Report must be run from Kernel option"

               QUIT 

 +8        IF '$DATA(ASUL(1,"AR","AP"))

               DO SETAREA^ASULARST

 +9        SET ASUK("PTR")="IRPT"

 +10       SET ZTRTN="PSER^ASURDINV"

           SET ZTDESC="SAMS INVOICE REPORTS"

 +11      ;DFM P1 9/15/98

           DO O^ASUUZIS

           IF $DATA(DTOUT)

               QUIT 

           IF $DATA(DUOUT)

               QUIT 

 +12       IF POP

               SET IOP=$IO

               DO ^%ZIS

               QUIT 

 +13       IF ASUK(ASUK("PTR"),"Q")

               QUIT 

 +14       SET ASUK("PTRSEL")=1

PSER      ;EP;FOR TASKMAN QUEUE OF PRINT

 +1        DO TIME^ASUUDATE

 +2        SET ASURX="W !,""S.A.M.S. Invoice Reports Procedure Begun "_ASUK("DT","TIME")_""""

           DO ^ASUUPLOG

 +3        DO U^ASUUZIS

 +4        IF $GET(ASUP("TYP"))']""

               DO SETCTRL^ASUCOSTS

 +5        SET ASUP("CKI")=+$GET(ASUP("CKI"))

 +6        IF ASUP("CKI")=0

               SET ASUP("CKI")=1

               DO SETSI^ASUCOSTS

 +7        IF ASUP("CKI")=1

               DO ^ASURD70P

               SET ASUP("CKI")=2

               DO SETSI^ASUCOSTS

 +8        IF ASUP("CKI")=2

               DO ^ASURD71P

               SET ASUP("CKI")=3

               DO SETSI^ASUCOSTS

 +9        IF ASUP("CKI")=3

               Begin DoDot:1

 +10               IF $DATA(ASUV("R72 LAST DT"))

                       Begin DoDot:2

 +11                       DO REPRINT^ASURD72P

                           SET ASUP("CKI")=0

                           DO SETSI^ASUCOSTS

                       End DoDot:2

 +12              IF '$TEST

                       Begin DoDot:2

 +13                       DO ^ASURD72P

                           SET ASUP("CKI")=0

                           DO SETSI^ASUCOSTS

                       End DoDot:2

               End DoDot:1

 +14       DO TIME^ASUUDATE

 +15       DO C^ASUUZIS

 +16       USE IO(0)

 +17       SET ASURX="W !,""S.A.M.S. Invoice Reports Procedure Ended "_ASUK("DT","TIME")_""""

           DO ^ASUUPLOG

 +18       IF ASUP("CKI")=0

               Begin DoDot:1

 +19               SET ASUP("IVR")="Y"

                   SET ASUP("CKP")=7

                   DO SETSTAT^ASUCOSTS

               End DoDot:1

 +20       QUIT