Routine: PSGWSIG

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE EN1^DIP
Auto Replenishment Ward Stock	1	($$PSGWDT,IGSET)^PSGWUTL1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW AOU INV GROUP SORT

Entry Points

Name	Line Occurrences
Function Call: READ	Prompt: "Make..... " Formatting: !! Timeout: DTIME Variable: X Line Location: ASK1+0
Function Call: WRITE	Prompt: !!,"Enter the name of the AOU you wish to move to another location.",!,"Enter <RETURN> or ""^"" to Exit." Line Location: ASK1+0
Function Call: READ	Prompt: "Follow... " Formatting: ! Timeout: DTIME Variable: X Line Location: ASK2+0
Function Call: WRITE	Prompt: !!,"Enter the name of the AOU you wish ",AOUM," to follow.",!,"Enter <RETURN> or ""^"" to Exit.",! Line Location: ASK2+0
Function Call: WRITE	Prompt: !!,"Do you wish to print the AOU List again " Line Location: BOTTOM+0
Function Call: WRITE	Prompt: !?5,"Enter 'YES' if you wish to see the current AOU sort order for ",!?5,$P(^PSI(58.2,INVGRP,0),"^") Line Location: BOTTOM+0
Function Call: WRITE	Prompt: !,"AOU Inventory Group List",?60,PSGWDT,!!,"Current AOU Sort Order for ",$P(^PSI(58.2,INVGRP,0),"^"),!,LN Line Location: HDR+0
Routine Call	DIE Line Location: DIE
Routine Call	DIC Line Location: DIC ASK1+1 ASK2+1

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

Name	Line Occurrences (* Changed, ! Killed)
^PSI(58.2 - [#58.2]	NEW, BOTTOM, HDR

Name	Field # of Occurrence
%	BOTTOM*, BOTTOM+1, END!
%H	END!
%I	END!
%Y	END!
A	END!
AOUDA	ASK1+1*, END!
AOUM	ASK1+1*, ASK2, DIE, END!
B	END!
BY	END!, PRINT*
C	END!
D	END!
D0	END!
D1	END!
DA	DIE*, END!
>> DHD	PRINT*
DI	END!
DIC	DIC!, ASK1+1!, ASK2+1!, END!, PRINT
DIC("S"	DIC, ASK2+1
DIC(0	DIC, ASK1+1, ASK2+1*
DIE	DIE*, END!
DIJ	END!
DISYS	END!
DP	END!
DQ	END!
DR	DIE*, END!
DR(2	DIE*
DTIME	ASK1, ASK2
FLDS	END!, PRINT*
FR	END!, PRINT*
INVGRP	DIC*, ASK1+1, ASK2+1, NEW, DIE, BOTTOM, END!, PRINT, HDR
L	END!, PRINT*
LN	PSGWSIG+2*, END!, HDR
>> POP	DIC
PSGFGRP	END!
PSGNSORT	NEW, NEW+1, DIE, END!
PSGSORT	NEW*, NEW+1, END!
PSGSORTN	NEW*, NEW+1, END!
PSGWDT	PSGWSIG+2*, END!, HDR
TO	END!, PRINT*
X	ASK1, ASK2, END!
Y	DIC, ASK1+1, ASK2+1, END!
Y(0	ASK1+1, NEW