Routine: PSGWAOUI

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIE

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW AOU INACTIVATION

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
HELP	;
CHK	; Do checks on AOU inactivation date
ITMCHK	; Look for any currently active items or items with an inactive date AFTER TODAY
REACT	; Reactivate items
ASK	; Ask if currently active items are to be inactivated
INACT	; Inactivate items

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter AOU Inactivation Dates" Line Location: PSGWAOUI+2
Function Call: WRITE	Prompt: ! Line Location: PSGWAOUI+3
Function Call: WRITE	Prompt: !,"...One moment, please..." Line Location: CHK+2
Function Call: WRITE	Prompt: !,"...Hmm, one moment..." Line Location: CHK+4
Function Call: WRITE	Prompt: !!,"There are items in this AOU that are currently active.",!,"You may, at this time, inactivate all of them as of ",Y,"." Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"Do you want to do this" Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"Now inactivating all currently active items as of ",PRTDT Line Location: INACT+1
Function Call: WRITE	Prompt: "." Line Location: INACT+2
Function Call: WRITE	Prompt: !!,"Now deleting the inactivation dates for any items that were inactivated when",!,"this AOU was inactivated" Line Location: REACT+1
Function Call: WRITE	Prompt: "." Line Location: REACT+2
Function Call: WRITE	Prompt: *7," ...None found!" Line Location: REACT+3
Function Call: WRITE	Prompt: !!?5,"Enter 'Y' if you want to inactivate all currently active items.",!?5,"Enter 'N' if you do not wish to inactivate all currently active items.",!?5,"Enter ""^"" to Exit." Line Location: HELP+1
Routine Call	DIE Line Location: PSGWAOUI+3 INACT+2 REACT+2
Routine Call	DIC Line Location: PSGWAOUI+3

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASK+1
^PSI(58.1 - [#58.1]	PSGWAOUI+3, CHK+1, ITMCHK+1, INACT+2, REACT+2

Name	Field # of Occurrence
^("I"	PSGWAOUI+3, CHK+1
^(0	ITMCHK+1, INACT+2, REACT+2

Name	Field # of Occurrence
%	QUIT!, ASK+2*, ASK+3
%DT	QUIT!
%Y	QUIT!
AOU	PSGWAOUI+3*, QUIT!, CHK+1, ITMCHK+1, INACT+1, INACT+2, REACT+1, REACT+2
ASKFLG	QUIT!, CHK+2, CHK+4, ITMCHK+1*
C	QUIT!
D0	QUIT!
DA	PSGWAOUI+3, QUIT!, INACT+2, REACT+2*
DA(1	INACT+1, REACT+1
DI	QUIT!
DIC	PSGWAOUI+3!*, QUIT!
DIC(0	PSGWAOUI+3*
DIE	PSGWAOUI+3, QUIT!, INACT+1, REACT+1*
DIYS	QUIT!
DQ	QUIT!
DR	PSGWAOUI+3, QUIT!, INACT+1, REACT+1*
DT	ITMCHK+1, INACT+2
FOUND	QUIT!, REACT+1, REACT+2, REACT+3
INDT	QUIT!, ASK+1*
ITM	QUIT!, ITMCHK+1, INACT+2, REACT+2*
JJ	QUIT!, ASK+2*
POST	QUIT!, CHK+1*, CHK+2, CHK+3, CHK+4, ASK+1
PRE	PSGWAOUI+3*, QUIT!, CHK+1, CHK+2, CHK+3, CHK+4
PRTDT	QUIT!, ASK+1*, INACT+1
Q	PSGWAOUI+3*, QUIT!
QFLG	PSGWAOUI+2, PSGWAOUI+3, QUIT!, ASK+3
X	QUIT!
Y	PSGWAOUI+3, QUIT!, ASK+1*