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
IGSET
ASKSEL	;
HELP	; Help for scroll-stop
QUIT
SS	; Scroll-stop for last page of 80 column reports
ASKIG
PSGWDT()	;Find current date and time
HELPSEL	;
SEL	; Ask if reports are to print by Inventory Group or AOU
IG	; Reset Sort Keys for inventory groups

Name	Line Occurrences
Function Call: READ	Prompt: !! Timeout: ",SS:DTIME Variable: "END OF REPORT! Press <RETURN> to return to Menu 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	Timeout: DTIME Variable: ANS 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	Timeout: DTIME Variable: SEL 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	DIE Line Location: IGSET+1
Routine Call	DIC Line Location: ASKIG

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