- ASUCOUTP ; IHS/ITSC/LMH -CLOSEOUT PROCESS ;
- ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- ;This routine controls the closeout processing
- S ASUP("CKP")=+($G(ASUP("CKP")))
- I ASUP("CKP")=0 S ASUP("CKP")=1 D SETSP^ASUCOSTS
- I ASUP("TYP")=2,ASUP("CKP")=1 D G:ASUP("HLT") KILL
- .;Yearly closeout
- .D CLYR^ASUMKBPS
- .I ASUP("CKY")'=5 S ASUP("HLT")=1
- .Q:ASUP("HLT")
- .S ASUP("CKY")=0 D SETSY^ASUCOSTS S ASUP("CKP")=2 D SETSP^ASUCOSTS
- E I ASUP("CKP")=1 S ASUP("CKP")=2 D SETSP^ASUCOSTS
- D ^ASUCOHKP Q:ASUP("HLT")
- I ASUP("CKP")=3 D
- .S ASUP("CKP")=4 D SETSP^ASUCOSTS
- I ASUP("TYP")=1,ASUP("CKP")=4 D
- .;Monthly Update
- .D ^ASUCOMOR
- .I ASUP("CKM")=16 D
- ..S ASUP("CKP")=5 D SETSTAT^ASUCOSTS
- .E D
- ..S ASUP("HLT")=1
- E D
- .;not monthly update
- .S ASUP("CKP")=5 D SETSTAT^ASUCOSTS
- G:$G(ASUP("HLT"))=1 KILL
- I ASUP("CKP")=5 D
- .;Sort report extracts
- .D ^ASUCORPX
- .I ASUP("CKX")=0 D
- ..S ASUP("CKP")=6 D SETSTAT^ASUCOSTS
- .E D
- ..S ASUP("HLT")=1
- Q
- KILL ;
- D SETSTAT^ASUCOSTS
- D ^ASUCOKIL
- K ASUP("LST"),ASUF
- Q
- ASUCOUTP ; IHS/ITSC/LMH -CLOSEOUT PROCESS ;
- +1 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- +2 ;This routine controls the closeout processing
- +3 SET ASUP("CKP")=+($GET(ASUP("CKP")))
- +4 IF ASUP("CKP")=0
- SET ASUP("CKP")=1
- DO SETSP^ASUCOSTS
- +5 IF ASUP("TYP")=2
- IF ASUP("CKP")=1
- Begin DoDot:1
- +6 ;Yearly closeout
- +7 DO CLYR^ASUMKBPS
- +8 IF ASUP("CKY")'=5
- SET ASUP("HLT")=1
- +9 IF ASUP("HLT")
- QUIT
- +10 SET ASUP("CKY")=0
- DO SETSY^ASUCOSTS
- SET ASUP("CKP")=2
- DO SETSP^ASUCOSTS
- End DoDot:1
- IF ASUP("HLT")
- GOTO KILL
- +11 IF '$TEST
- IF ASUP("CKP")=1
- SET ASUP("CKP")=2
- DO SETSP^ASUCOSTS
- +12 DO ^ASUCOHKP
- IF ASUP("HLT")
- QUIT
- +13 IF ASUP("CKP")=3
- Begin DoDot:1
- +14 SET ASUP("CKP")=4
- DO SETSP^ASUCOSTS
- End DoDot:1
- +15 IF ASUP("TYP")=1
- IF ASUP("CKP")=4
- Begin DoDot:1
- +16 ;Monthly Update
- +17 DO ^ASUCOMOR
- +18 IF ASUP("CKM")=16
- Begin DoDot:2
- +19 SET ASUP("CKP")=5
- DO SETSTAT^ASUCOSTS
- End DoDot:2
- +20 IF '$TEST
- Begin DoDot:2
- +21 SET ASUP("HLT")=1
- End DoDot:2
- End DoDot:1
- +22 IF '$TEST
- Begin DoDot:1
- +23 ;not monthly update
- +24 SET ASUP("CKP")=5
- DO SETSTAT^ASUCOSTS
- End DoDot:1
- +25 IF $GET(ASUP("HLT"))=1
- GOTO KILL
- +26 IF ASUP("CKP")=5
- Begin DoDot:1
- +27 ;Sort report extracts
- +28 DO ^ASUCORPX
- +29 IF ASUP("CKX")=0
- Begin DoDot:2
- +30 SET ASUP("CKP")=6
- DO SETSTAT^ASUCOSTS
- End DoDot:2
- +31 IF '$TEST
- Begin DoDot:2
- +32 SET ASUP("HLT")=1
- End DoDot:2
- End DoDot:1
- +33 QUIT
- KILL ;
- +1 DO SETSTAT^ASUCOSTS
- +2 DO ^ASUCOKIL
- +3 KILL ASUP("LST"),ASUF
- +4 QUIT
