Routine: PSGWXREF

Package	Total	Call Graph
Kernel	2	HOME^%ZIS ^%ZTLOAD
VA Fileman	2	^%DT YN^DICN
Auto Replenishment Ward Stock	1	(OD,QD,RET)^PSGWUTL

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW RE-INDEX AMIS

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
SETRET	;
ASK1
HELP	;
ASK2
INV	; Re-index Inventories
SETOND
OND	; Re-index On-Demands
SETINV	;
START	; Entry point from queue ; Delete existing "AMIS" xref
RET	; Re-index Returns

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will re-index the ""AMIS"" cross-reference for Inventories, On-Demand",!,"Requests, and Returns for a date range beginning with the START DATE you specify",!,"to the time the job runs." Line Location: PSGWXREF+3
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: PSGWXREF+4
Function Call: WRITE	Prompt: ! Line Location: ASK1+0
Function Call: WRITE	Prompt: !!,"The ""AMIS"" cross-reference will now be re-indexed starting from ",Y,"." Line Location: ASK2+0
Function Call: WRITE	Prompt: !!,"Are you SURE that is what you want to do" Line Location: ASK2+1
Function Call: WRITE	Prompt: !!,"""AMIS"" cross reference re-indexing queued!" Line Location: ASK2+3
Function Call: WRITE	Prompt: !?5,"Enter 'YES' if you are satisfied with the selected date range.",!?5,"Enter 'NO' or '^' if you wish to abort the re-indexing." Line Location: HELP+1
Routine Call	%ZIS Line Location: ASK2+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASK2
^PSI(58.1 - [#58.1]	INV+1, SETINV+1, OND+1, SETOND, RET+1, SETRET+1
^PSI(58.19 - [#58.19]	INV+1
^PSI(58.5 - [#58.5]	START+2, START+3, QUIT

Name	Field # of Occurrence
^(	START+3!, RET+1
^(0	INV+1

Name	Field # of Occurrence
%	ASK2+1*, ASK2+2, QUIT!
%DT	ASK1*, QUIT!
%DT("A"	ASK1*
%DT(0	ASK1*
%H	QUIT!
%I	QUIT!
ADA	QUIT!, INV+1, SETINV+1, OND+1, SETOND, RET+1*, SETRET+1
ANS	QUIT!
DA	QUIT!, SETINV+1, SETOND, SETRET+1*
DA(1	SETINV+1, SETOND, SETRET+1*
DA(2	SETINV+1, SETOND, SETRET+1*
DDA	QUIT!, INV+1, SETINV+1, OND+1, SETOND, RET+1*, SETRET+1
INV	QUIT!, INV+1*, SETINV+1
JJ	ASK2+1, START+3, QUIT!
KDT	START+3*, QUIT!
ODA	QUIT!, OND+1*, SETOND
ODT	QUIT!, OND+1*
QD	QUIT!, SETINV+1, SETOND, SETRET+1*
RET	QUIT!, RET+1*, SETRET+1
START	ASK1*, ASK2+2, START+3, QUIT!, INV+1, OND+1, RET+1
SUB1	START+3*, QUIT!
X	QUIT!, SETINV+1, SETOND, SETRET+1*
Y	ASK1, ASK2, QUIT!
>> ZTDESC	ASK2+2*
ZTIO	ASK2+2*, QUIT!
>> ZTQUEUED	QUIT+1
>> ZTREQ	QUIT+1*
>> ZTRTN	ASK2+2*
>> ZTSAVE("START"	ASK2+2*
ZTSK	ASK2+3!, QUIT!