Routine: PSGWUTL1

Package	Total	Call Graph
VA FileMan	3	NOW^%DTC ^DIC ^DIE

Package	Total	Caller Graph
Auto Replenishment Ward Stock	33	PSGWAIO PSGWARP PSGWATR1 PSGWBOA PSGWBOIP PSGWBOS PSGWCCP PSGWCHG PSGWCLP PSGWCPA PSGWCPA1 PSGWDR PSGWEXR PSGWEXR1 PSGWEXR2 PSGWHC1 PSGWHV1 PSGWLSI PSGWNU PSGWNU1 PSGWODP PSGWODPR PSGWPIG PSGWPOST PSGWRAC PSGWSC PSGWSC1 PSGWSIG PSGWSTD PSGWTOT1 PSGWTOT2 PSGWVW PSGWWRD

Entry Points

Name	Comments	DBIA/ICR reference
SS	; Scroll-stop for last page of 80 column reports
HELP	; Help for scroll-stop
IG	; Reset Sort Keys for inventory groups
IGSET
SEL	; Ask if reports are to print by Inventory Group or AOU
ASKSEL	;
ASKIG
QUIT
HELPSEL	;
PSGWDT()	;Find current date and time

Name	Line Occurrences
Function Call: READ	Prompt: !! Variable: "END OF REPORT! Press <RETURN> to return to Menu Timeout: ",SS:DTIME Line Location: SS+1
Function Call: WRITE	Prompt: *7,!,"Please Enter: <RETURN> to continue viewing report or ""^"" to Exit report: " Line Location: HELP+1
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: HELP+2
Function Call: WRITE	Prompt: "." Line Location: IG+1
Function Call: WRITE	Prompt: !!?5,"You may select a single AOU, several AOUs,",!?5,"or enter ""^ALL"" to select all AOUs.",!?20,"-OR-",!?5,"You may select an Inventory Group." Line Location: SEL+1
Function Call: READ	Variable: SEL Timeout: DTIME Line Location: ASKSEL+1
Function Call: WRITE	Prompt: *7,"??" Line Location: ASKSEL+2
Function Call: WRITE	Prompt: ! Line Location: ASKSEL+3
Function Call: WRITE	Prompt: *7,!!,"There are no AOUs defined for this Inventory Group!" Line Location: ASKIG+1
Function Call: WRITE	Prompt: !!,"This Inventory Group contains the following AOU(s):" Line Location: ASKIG+3
Function Call: WRITE	Prompt: " * INACTIVE *" Line Location: ASKIG+3
Function Call: WRITE	Prompt: !!?5,"Enter an 'A' if you wish to select individual AOUs (one, several or ^ALL).",!?5,"Enter an 'I' if you wish to select all AOUs in an Inventory Group.",!?5,"Or enter ""^"" to Exit." Line Location: HELPSEL+1
Routine Call	DIC Line Location: ASKIG
Routine Call	DIE Line Location: IGSET+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSGWDT+3
^PSI(58.1 - [#58.1]	ASKIG+3
^PSI(58.2 - [#58.2]	IG+1, IGSET, ASKIG+1, ASKIG+2

Name	Field # of Occurrence
^("I"	ASKIG+3

Name	Field # of Occurrence
%	QUIT!, PSGWDT+2
>> ANS	HELP+2*
AOU	IGSET*, IGSET+2!
AOULP	IGSET+2!
AOULP(	IGSET, IGSET+1, ASKIG+2, ASKIG+3
CNT	IGSET*, IGSET+2!
D	IGSET+2!
D0	IGSET+2!
DA	IGSET+1*, IGSET+2!
DA(1	IGSET+1*
DI	IGSET+2!
DIC	IGSET+2!, ASKIG*!, QUIT!
DIC("S"	ASKIG*
DIC(0	ASKIG*
DIE	IGSET+1*, IGSET+2!
DQ	IGSET+2!
DR	IGSET+1*, IGSET+2!
DT	ASKIG+3
DTIME	SS+1, HELP+2, ASKSEL+1
IGAOU	ASKIG+2, ASKIG+3, QUIT!
>> IGDA	ASKIG+1*, ASKIG+2
INVGRP	IG+1*, IG+2!, IGSET, IGSET+1
NSK	IGSET+1*, IGSET+2!
SEL	ASKSEL+1*, ASKSEL+2, ASKIG!, QUIT!
SK	IGSET, IGSET+1, IGSET+2!
SS	SS+1*!
X	IGSET+2!, QUIT!
Y	ASKIG, ASKIG+1, QUIT!, PSGWDT+2*, PSGWDT+4