- ASURDSTD ; IHS/ITSC/LMH -DAILY STD REPORTS SERIES ; [ 08/15/2000 10:58 AM ]
- ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- ;This routine controls the formatting and printing of the Daily
- ;Closeout Standard reports series - Reports 1,7A,8,9,10,10A,11,13
- ;and 73. It involkes routines ^ASURD01P,^ASURD07A,^ASURD08P,^ASURD09P
- ;^ASURD10P,^ASURD10V,^ASURD11P,^ASURD13P and ^ASURD73P
- S ASUP("HLT")=$G(ASUP("HLT"))
- 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^ASURDSRT",ZTDESC="SAMS STD DAILY REPORTS"
- S ZTRTN="PSER^ASURDSTD",ZTDESC="SAMS STD DAILY REPORTS" ;IHS/ITSC/MRS 8/15/2000
- ;Added call to ASUURANG before run
- D DATE^ASUUDATE
- D ^ASUURANG
- S ASUK("PTR")="SRPT"
- D O^ASUUZIS
- 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. Standard Reports Procedure Begun "_ASUK("DT","TIME")_"""" D ^ASUUPLOG
- D U^ASUUZIS
- D ^ASURD01P
- F ASUP("SR")=0:1 S ASUSV("TRCD")=$T(@"SEQ"+ASUP("SR")) Q:ASUSV("TRCD")["999" D Q:$G(ASUP("HLT"))=1
- .S ASUG("RTN")="^"_$P(ASUSV("TRCD"),";",3)
- .I ASUG("RTN")["13P",$G(ASUP("A13"))=0 Q
- .D @(ASUG("RTN"))
- .Q:$G(ASUP("HLT"))=1
- D TIME^ASUUDATE
- U IO(0)
- D TIME^ASUUDATE
- S ASURX="W !,""S.A.M.S. Standard Reports Procedure Begun "_ASUK("DT","TIME")_"""" D ^ASUUPLOG
- K ASUP("SR")
- I ASUK(ASUK("PTR"),"Q")'=1 D C^ASUUZIS,^ASUCOKIL K ASUSV
- Q
- SEQ ;;ASURD07A;REPORT 7A ;ASUP("CKS")=6
- ;;ASURD08P;REPORT 8 ;ASUP("CKS")=7
- ;;ASURD09P;REPORT 9 ;ASUP("CKS")=8
- ;;ASURD10P;REPORT 10A;ASUP("CKS")=9
- ;;ASURD10V;REPORT 10 ;ASUP("CKS")=10
- ;;ASURD11P;REPORT 11 ;ASUP("CKS")=11
- ;;ASURD13P;REPORT 13 ;ASUP("CKS")=12
- ;;ASURD73P;REPORT 73 ;ASUP("CKS")=13
- ;;999;END OF SEQ ;
- ASURDSTD ; IHS/ITSC/LMH -DAILY STD REPORTS SERIES ; [ 08/15/2000 10:58 AM ]
- +1 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- +2 ;This routine controls the formatting and printing of the Daily
- +3 ;Closeout Standard reports series - Reports 1,7A,8,9,10,10A,11,13
- +4 ;and 73. It involkes routines ^ASURD01P,^ASURD07A,^ASURD08P,^ASURD09P
- +5 ;^ASURD10P,^ASURD10V,^ASURD11P,^ASURD13P and ^ASURD73P
- +6 SET ASUP("HLT")=$GET(ASUP("HLT"))
- +7 IF '$DATA(IO)
- DO HOME^%ZIS
- +8 IF '$DATA(DUZ(2))
- WRITE !,"Report must be run from Kernel option"
- QUIT
- +9 IF '$DATA(ASUL(1,"AR","AP"))
- DO SETAREA^ASULARST
- +10 SET ASUK("PTR")="IRPT"
- +11 ;S ZTRTN="PSER^ASURDSRT",ZTDESC="SAMS STD DAILY REPORTS"
- +12 ;IHS/ITSC/MRS 8/15/2000
- SET ZTRTN="PSER^ASURDSTD"
- SET ZTDESC="SAMS STD DAILY REPORTS"
- +13 ;Added call to ASUURANG before run
- +14 DO DATE^ASUUDATE
- +15 DO ^ASUURANG
- +16 SET ASUK("PTR")="SRPT"
- +17 DO O^ASUUZIS
- +18 IF POP
- SET IOP=$IO
- DO ^%ZIS
- QUIT
- +19 IF ASUK(ASUK("PTR"),"Q")
- QUIT
- +20 SET ASUK("PTRSEL")=1
- PSER ;EP;FOR TASKMAN QUEUE OF PRINT
- +1 DO TIME^ASUUDATE
- +2 SET ASURX="W !,""S.A.M.S. Standard Reports Procedure Begun "_ASUK("DT","TIME")_""""
- DO ^ASUUPLOG
- +3 DO U^ASUUZIS
- +4 DO ^ASURD01P
- +5 FOR ASUP("SR")=0:1
- SET ASUSV("TRCD")=$TEXT(@"SEQ"+ASUP("SR"))
- IF ASUSV("TRCD")["999"
- QUIT
- Begin DoDot:1
- +6 SET ASUG("RTN")="^"_$PIECE(ASUSV("TRCD"),";",3)
- +7 IF ASUG("RTN")["13P"
- IF $GET(ASUP("A13"))=0
- QUIT
- +8 DO @(ASUG("RTN"))
- +9 IF $GET(ASUP("HLT"))=1
- QUIT
- End DoDot:1
- IF $GET(ASUP("HLT"))=1
- QUIT
- +10 DO TIME^ASUUDATE
- +11 USE IO(0)
- +12 DO TIME^ASUUDATE
- +13 SET ASURX="W !,""S.A.M.S. Standard Reports Procedure Begun "_ASUK("DT","TIME")_""""
- DO ^ASUUPLOG
- +14 KILL ASUP("SR")
- +15 IF ASUK(ASUK("PTR"),"Q")'=1
- DO C^ASUUZIS
- DO ^ASUCOKIL
- KILL ASUSV
- +16 QUIT
- SEQ ;;ASURD07A;REPORT 7A ;ASUP("CKS")=6
- +1 ;;ASURD08P;REPORT 8 ;ASUP("CKS")=7
- +2 ;;ASURD09P;REPORT 9 ;ASUP("CKS")=8
- +3 ;;ASURD10P;REPORT 10A;ASUP("CKS")=9
- +4 ;;ASURD10V;REPORT 10 ;ASUP("CKS")=10
- +5 ;;ASURD11P;REPORT 11 ;ASUP("CKS")=11
- +6 ;;ASURD13P;REPORT 13 ;ASUP("CKS")=12
- +7 ;;ASURD73P;REPORT 73 ;ASUP("CKS")=13
- +8 ;;999;END OF SEQ ;
