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>

Package	Total	Call Graph
VA Fileman	4	^%DT (,NOW)^%DTC ^DIE ^DIK
Kernel	2	HOME^%ZIS ^%ZTLOAD
Auto Replenishment Ward Stock	1	^PSGWOLD1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW PURGE FILES

Name	Comments	DBIA/ICR reference
BODRGLP
DRGLP
BO	;DELETE DATA IN FILE 58.3 - BACKORDER FILE
BODTLP
DONE
ODLP
INVK	;DELETE DATA IN FILE 58.19 - PHARMACY AOU INVENTORY FILE
BOINVLP
ASK
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.
END
AOULP
ENQ	;ENTRY POINT WHEN QUEUED
RETURNS	;DELETE DATA IN THE RETURNS SUBFILE 58.15
AR	;DELETE DATA IN THE INVENTORY SUBFILE 58.12
DTLP
DTDA
BDT
BXREF
OD	;DELETE DATA IN THE ON-DEMAND REQUEST SUBFILE 58.28
EDT
RETLP
BOAOULP

Name	Field # of Occurrence
^%DT	EDT
^%DTC	EDT+1
NOW^%DTC	EDT+1
HOME^%ZIS	ASK+4
^%ZTLOAD	ASK+4
^DIE	AR+1, RETLP+1, ODLP+1, BXREF, BOINVLP+1, BODEL+1, BODEL+2
^DIK	INVK+1
^PSGWOLD1	DONE

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
Routine Call	%ZIS Line Location: ASK+4
Routine Call	DIE Line Location: AR+1 RETLP+1 ODLP+1 BXREF BOINVLP+1 BODEL+1 BODEL+2

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASK
^PSI(58.1 - [#58.1]	AOULP, DRGLP, AR+1, RETLP, ODLP
^PSI(58.19 - [#58.19]	BDT, BDT+1, DTLP, DTDA
^PSI(58.3 - [#58.3]	BXREF, BODTLP, BODRGLP, BOAOULP, BOINVLP, BOINVLP+1, BODEL+1, BODEL+2

Name	Field # of Occurrence
%	EDT+1, END!
%DT	EDT*!
%DT("A"	EDT*
%DT("B"	EDT*
%H	END!
%I	END!
AOUDA	DTDA, AOULP, DRGLP, AR+1, RETLP, RETLP+1, ODLP, ODLP+1, END!
BDT	BDT!, BDT+1, EDT+2, ENQ+1, END!
BOAOU	BODRGLP, BOAOULP, BOINVLP, BOINVLP+1, BODEL+1, END!
BODRG	BODTLP, BODRGLP, BOAOULP, BOINVLP, BOINVLP+1, BODEL+1, BODEL+2, END!
BODTDA	BO+1, BODTLP, BODRGLP, BOAOULP, BOINVLP, INVK+1, END!
BOINV	BOAOULP, BOINVLP, BOINVLP+1, END!
DA	AR+1, RETLP+1, ODLP+1, BXREF, BOINVLP+1, INVK+1, BODEL+1, BODEL+2, END!
DA(1	AR+1, RETLP+1, ODLP+1, BOINVLP+1, BODEL+1*
DA(2	AR+1, RETLP+1, ODLP+1, BOINVLP+1
DATDA	ENQ+1, DTDA, AR+1, INVK+1, END!
DELFL	DTDA, BODTLP, BOINVLP+2*, INVK+1, END!
DIE	AR+1!, RETLP+1!, ODLP+1!, BXREF!, BOINVLP+1!, BODEL+1!, BODEL+2*!
DIK	INVK+1*!
DR	AR+1, RETLP+1, ODLP+1, BXREF, BOINVLP+1, BODEL+1, BODEL+2*, END!
DRG	BO+1, BXREF, END!
DRGDA	AOULP, DRGLP, AR+1, RETLP, RETLP+1, ODLP, ODLP+1, END!
DTIME	ASK
EDT	EDT*, EDT+2, ASK, DTLP, RETLP+1, ODLP+1, BOINVLP+1, END!
G	ASK+3*, END!
INVDA	END!
JJ	BXREF*, END!
LPDT	ENQ+1, DTLP, DTDA, END!
ODA	OD+1, ODLP, ODLP+1, END!
ODT	ODLP*, ODLP+1, END!
RETDT	RETURNS+1, RETLP, RETLP+1, END!
X	EDT+1, ASK*, ASK+1, ASK+2, END!
>> X1	EDT+1*
>> X2	EDT*
Y	EDT, ASK*, END!
>> ZTDESC	ASK+3*
ZTIO	ASK+3*, END!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	ASK+3*
>> ZTSAVE(	ASK+3*
ZTSK	ASK+4!, END!