Routine: PSGWOLD

Information

PSGWOLD ;BHAM ISC/PTD,CML-Purge Old Inventory Data (Auto Replenish, On-Demands, Returns & Backorder Data) ; 21 Jul 93 / 3:16 PM

Source file <PSGWOLD.m>

Name	Comments	DBIA/ICR reference
BDT
EDT
ASK
ENQ	;ENTRY POINT WHEN QUEUED
DTLP
DTDA
AOULP
DRGLP
AR	;DELETE DATA IN THE INVENTORY SUBFILE 58.12
RETURNS	;DELETE DATA IN THE RETURNS SUBFILE 58.15
RETLP
OD	;DELETE DATA IN THE ON-DEMAND REQUEST SUBFILE 58.28
ODLP
BO	;DELETE DATA IN FILE 58.3 - BACKORDER FILE
BXREF
BODTLP
BODRGLP
BOAOULP
BOINVLP
INVK	;DELETE DATA IN FILE 58.19 - PHARMACY AOU INVENTORY FILE
BODEL	;IF ALL BACKORDER DATES DELETED FOR BO AOU, THEN DELETE AOU FROM SUBFILE. IF ALL AOUS DELETED FOR DRUG, THEN DELETE DRUG FROM FILE.
DONE
END

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will purge data from files PSI(58.1), PSI(58.3), and PSI(58.19).",!,"You should retain the data for at least 1 quarter.",!,"Therefore, the option will NOT ALLOW DELETION of data newer than ""T-100"".",!! Line Location: PSGWOLD+2
Function Call: WRITE	Prompt: ?34,"WARNING",!?22,"Since this option is CPU intensive,",!?17,"it should be QUEUED to run in the ""off"" hours!",!! Line Location: PSGWOLD+3
Function Call: WRITE	Prompt: !,"There is NO data in the Pharmacy AOU Inventory file.",!! Line Location: BDT+0
Function Call: WRITE	Prompt: !!,"Data less than 100 days old may NOT BE DELETED!",!! Line Location: EDT+1
Function Call: WRITE	Prompt: !!,"No INVENTORY data to purge in selected date range.",!! Line Location: EDT+2
Function Call: WRITE	Prompt: !!,"I will now delete INVENTORY data that is older than (and including) ",Y,!,"Are you SURE that is what you want to do? NO// " Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Answer ""yes"" if you wish to purge INVENTORY data.",!,"Answer ""no"" or <return> if you do not.",!! Line Location: ASK+2
Function Call: WRITE	Prompt: !,"INVENTORY purge queued!" Line Location: ASK+4

FileNo	Call Tags
^PSI(58.19 - [#58.19]	Classic Fileman Calls
^PSI(58.3 - [#58.3]	Classic Fileman Calls