- ASUCORPX ; IHS/ITSC/LMH -PROCESS REPORT EXTRACTS ;
- ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- ;This routine controls 'Compute' or 'Sort' step in preparing extracts
- ;for all reports created for any daily (including monthly and yearly)
- ;update.
- D DATE^ASUUDATE,TIME^ASUUDATE
- S ASURX="W !,""S.A.M.S Report Extracts build Begun "_ASUK("DT","TIME")_"""" D ^ASUUPLOG
- D:$G(ASUN("TYP"))']"" ^ASUURANG
- S ASUP("CKX")=+($G(ASUP("CKX")))
- I ASUP("CKX")=0 S ASUP("CKX")=1 D SETSX^ASUCOSTS
- I ASUP("CKX")=1 D
- .S ASUP("CKX")=6 D SETSX^ASUCOSTS
- I ASUP("CKX")=6 D
- .S ASURX="W !?5,""Report 10V extracts building""" D ^ASUUPLOG
- .D CMPT^ASURD10V S ASUP("CKX")=7 D SETSX^ASUCOSTS
- I ASUP("CKX")=7 D
- .S ASURX="W !?5,""Report 7A extracts building""" D ^ASUUPLOG
- .D CMPT^ASURD07A S ASUP("CKX")=8 D SETSX^ASUCOSTS
- I ASUP("CKX")=8 D
- .S ASURX="W !?5,""Report 08 extracts building""" D ^ASUUPLOG
- .D CMPT^ASURD08P S ASUP("CKX")=9 D SETSX^ASUCOSTS
- I ASUP("CKX")=9 D
- .S ASURX="W !?5,""Report 09 extracts building""" D ^ASUUPLOG
- .D CMPT^ASURD09P S ASUP("CKX")=10 D SETSX^ASUCOSTS
- I ASUP("CKX")=10 D
- .S ASURX="W !?5,""Report 10 extracts building""" D ^ASUUPLOG
- .D CMPT^ASURD10P S ASUP("CKX")=11 D SETSX^ASUCOSTS
- I ASUP("CKX")=11 D
- .S ASURX="W !?5,""Report 11 extracts building""" D ^ASUUPLOG
- .D CMPT^ASURD11P S ASUP("CKX")=13
- I $G(ASUD("R13","SEL")) D
- .S ASURX="W !?5,""Report 13 extracts building""" D ^ASUUPLOG
- .I ASUP("CKX")=13 D CMPT^ASURD13P S ASUP("CKX")=14 D SETSX^ASUCOSTS
- E D
- .I ASUP("CKX")=13 S ASUP("CKX")=70 D SETSX^ASUCOSTS
- I ASUP("CKX")=70 D
- .S ASURX="W !?5,""Report 70 extracts building""" D ^ASUUPLOG
- .D ^ASURD700 S ASUP("CKX")=71 D SETSX^ASUCOSTS
- I ASUP("CKX")=71 D
- .S ASURX="W !?5,""Report 71 extracts building""" D ^ASUUPLOG
- .D CMPT^ASURD71P S ASUP("CKX")=72 D SETSX^ASUCOSTS
- I ASUP("CKX")=72 D
- .D CMPT^ASURD72P S ASUP("CKX")=73 D SETSX^ASUCOSTS
- .S ASURX="W !?5,""Report 72 extracts building""" D ^ASUUPLOG
- I ASUP("CKX")=73 D
- .S ASURX="W !?5,""Report 73 extracts building""" D ^ASUUPLOG
- .D CMPT^ASURD73P S ASUP("CKX")=74 D SETSX^ASUCOSTS
- I $G(ASUP("TYP"))=1 D ;Monthly reports
- .I ASUP("CKX")=74 D
- ..S ASURX="W !?5,""Report 74 extracts building""" D ^ASUUPLOG
- ..D CMPT^ASURM74P S ASUP("CKX")=76,ASUF("RPT75")=1 D SETSX^ASUCOSTS
- .I ASUP("CKX")=76 D
- ..S ASURX="W !?5,""Report 76 extracts building""" D ^ASUUPLOG
- ..D ^ASURO76D S ASUP("CKX")=79 D SETSX^ASUCOSTS
- .I ASUP("CKX")=79 D
- ..S ASURX="W !?5,""Report 79 extracts building""" D ^ASUUPLOG
- ..D CMPT^ASURM79P S ASUP("CKX")=83 D SETSX^ASUCOSTS
- .I ASUP("CKX")=83 D
- ..S ASURX="W !?5,""Report 83 extracts building""" D ^ASUUPLOG
- ..D CMPT^ASURM83P S ASUP("CKX")=90 D SETSX^ASUCOSTS
- .I ASUP("CKX")=90 D
- ..S ASUP("CKX")=0 D SETSX^ASUCOSTS
- E D
- .I ASUP("CKX")=74 D
- ..S ASUP("CKX")=0 D SETSX^ASUCOSTS
- I ASUP("CKX")'=0 S ASUP("HLT")=1
- D DATE^ASUUDATE,TIME^ASUUDATE
- S ASURX="W !,""S.A.M.S Report Extracts Build Ended "_ASUK("DT","TIME")_"""" D ^ASUUPLOG
- Q
- ASUCORPX ; IHS/ITSC/LMH -PROCESS REPORT EXTRACTS ;
- +1 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- +2 ;This routine controls 'Compute' or 'Sort' step in preparing extracts
- +3 ;for all reports created for any daily (including monthly and yearly)
- +4 ;update.
- +5 DO DATE^ASUUDATE
- DO TIME^ASUUDATE
- +6 SET ASURX="W !,""S.A.M.S Report Extracts build Begun "_ASUK("DT","TIME")_""""
- DO ^ASUUPLOG
- +7 IF $GET(ASUN("TYP"))']""
- DO ^ASUURANG
- +8 SET ASUP("CKX")=+($GET(ASUP("CKX")))
- +9 IF ASUP("CKX")=0
- SET ASUP("CKX")=1
- DO SETSX^ASUCOSTS
- +10 IF ASUP("CKX")=1
- Begin DoDot:1
- +11 SET ASUP("CKX")=6
- DO SETSX^ASUCOSTS
- End DoDot:1
- +12 IF ASUP("CKX")=6
- Begin DoDot:1
- +13 SET ASURX="W !?5,""Report 10V extracts building"""
- DO ^ASUUPLOG
- +14 DO CMPT^ASURD10V
- SET ASUP("CKX")=7
- DO SETSX^ASUCOSTS
- End DoDot:1
- +15 IF ASUP("CKX")=7
- Begin DoDot:1
- +16 SET ASURX="W !?5,""Report 7A extracts building"""
- DO ^ASUUPLOG
- +17 DO CMPT^ASURD07A
- SET ASUP("CKX")=8
- DO SETSX^ASUCOSTS
- End DoDot:1
- +18 IF ASUP("CKX")=8
- Begin DoDot:1
- +19 SET ASURX="W !?5,""Report 08 extracts building"""
- DO ^ASUUPLOG
- +20 DO CMPT^ASURD08P
- SET ASUP("CKX")=9
- DO SETSX^ASUCOSTS
- End DoDot:1
- +21 IF ASUP("CKX")=9
- Begin DoDot:1
- +22 SET ASURX="W !?5,""Report 09 extracts building"""
- DO ^ASUUPLOG
- +23 DO CMPT^ASURD09P
- SET ASUP("CKX")=10
- DO SETSX^ASUCOSTS
- End DoDot:1
- +24 IF ASUP("CKX")=10
- Begin DoDot:1
- +25 SET ASURX="W !?5,""Report 10 extracts building"""
- DO ^ASUUPLOG
- +26 DO CMPT^ASURD10P
- SET ASUP("CKX")=11
- DO SETSX^ASUCOSTS
- End DoDot:1
- +27 IF ASUP("CKX")=11
- Begin DoDot:1
- +28 SET ASURX="W !?5,""Report 11 extracts building"""
- DO ^ASUUPLOG
- +29 DO CMPT^ASURD11P
- SET ASUP("CKX")=13
- End DoDot:1
- +30 IF $GET(ASUD("R13","SEL"))
- Begin DoDot:1
- +31 SET ASURX="W !?5,""Report 13 extracts building"""
- DO ^ASUUPLOG
- +32 IF ASUP("CKX")=13
- DO CMPT^ASURD13P
- SET ASUP("CKX")=14
- DO SETSX^ASUCOSTS
- End DoDot:1
- +33 IF '$TEST
- Begin DoDot:1
- +34 IF ASUP("CKX")=13
- SET ASUP("CKX")=70
- DO SETSX^ASUCOSTS
- End DoDot:1
- +35 IF ASUP("CKX")=70
- Begin DoDot:1
- +36 SET ASURX="W !?5,""Report 70 extracts building"""
- DO ^ASUUPLOG
- +37 DO ^ASURD700
- SET ASUP("CKX")=71
- DO SETSX^ASUCOSTS
- End DoDot:1
- +38 IF ASUP("CKX")=71
- Begin DoDot:1
- +39 SET ASURX="W !?5,""Report 71 extracts building"""
- DO ^ASUUPLOG
- +40 DO CMPT^ASURD71P
- SET ASUP("CKX")=72
- DO SETSX^ASUCOSTS
- End DoDot:1
- +41 IF ASUP("CKX")=72
- Begin DoDot:1
- +42 DO CMPT^ASURD72P
- SET ASUP("CKX")=73
- DO SETSX^ASUCOSTS
- +43 SET ASURX="W !?5,""Report 72 extracts building"""
- DO ^ASUUPLOG
- End DoDot:1
- +44 IF ASUP("CKX")=73
- Begin DoDot:1
- +45 SET ASURX="W !?5,""Report 73 extracts building"""
- DO ^ASUUPLOG
- +46 DO CMPT^ASURD73P
- SET ASUP("CKX")=74
- DO SETSX^ASUCOSTS
- End DoDot:1
- +47 ;Monthly reports
- IF $GET(ASUP("TYP"))=1
- Begin DoDot:1
- +48 IF ASUP("CKX")=74
- Begin DoDot:2
- +49 SET ASURX="W !?5,""Report 74 extracts building"""
- DO ^ASUUPLOG
- +50 DO CMPT^ASURM74P
- SET ASUP("CKX")=76
- SET ASUF("RPT75")=1
- DO SETSX^ASUCOSTS
- End DoDot:2
- +51 IF ASUP("CKX")=76
- Begin DoDot:2
- +52 SET ASURX="W !?5,""Report 76 extracts building"""
- DO ^ASUUPLOG
- +53 DO ^ASURO76D
- SET ASUP("CKX")=79
- DO SETSX^ASUCOSTS
- End DoDot:2
- +54 IF ASUP("CKX")=79
- Begin DoDot:2
- +55 SET ASURX="W !?5,""Report 79 extracts building"""
- DO ^ASUUPLOG
- +56 DO CMPT^ASURM79P
- SET ASUP("CKX")=83
- DO SETSX^ASUCOSTS
- End DoDot:2
- +57 IF ASUP("CKX")=83
- Begin DoDot:2
- +58 SET ASURX="W !?5,""Report 83 extracts building"""
- DO ^ASUUPLOG
- +59 DO CMPT^ASURM83P
- SET ASUP("CKX")=90
- DO SETSX^ASUCOSTS
- End DoDot:2
- +60 IF ASUP("CKX")=90
- Begin DoDot:2
- +61 SET ASUP("CKX")=0
- DO SETSX^ASUCOSTS
- End DoDot:2
- End DoDot:1
- +62 IF '$TEST
- Begin DoDot:1
- +63 IF ASUP("CKX")=74
- Begin DoDot:2
- +64 SET ASUP("CKX")=0
- DO SETSX^ASUCOSTS
- End DoDot:2
- End DoDot:1
- +65 IF ASUP("CKX")'=0
- SET ASUP("HLT")=1
- +66 DO DATE^ASUUDATE
- DO TIME^ASUUDATE
- +67 SET ASURX="W !,""S.A.M.S Report Extracts Build Ended "_ASUK("DT","TIME")_""""
- DO ^ASUUPLOG
- +68 QUIT
