Routine: PSDGSK

Information

PSDGSK ;BIR/CML,JPW-Build Sort Key for NAOUs in Inven. Grp ; 2 Aug 94

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC YN^DICN ^DIE EN1^DIP
Controlled Substances	2	^PSDSET IGSET^PSDUTL

Package	Total	Caller Graph
Controlled Substances	1	PSD NAOU INV GROUP SORT

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 NAOU you wish to move to another location.",!,"Enter <RET> 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 NAOU you wish ",NAOUM," to follow.",!,"Enter <RET> or ""^"" to EXIT.",! Line Location: ASK2+0
Function Call: WRITE	Prompt: !!,"Do you wish to print the NAOU 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: !,"NAOU Inventory Group List",?60,PSDT,!!,"Current NAOU 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)
^DD("DD"	PSDGSK+3
^PSI(58.2 - [#58.2]	NEW, BOTTOM, HDR

Name	Field # of Occurrence
%	PSDGSK+3, BOTTOM*, BOTTOM+1, END!
%H	END!
%I	END!
%Y	END!
A	END!
B	END!
BY	END!, PRINT*
C	END!
D	END!
D0	END!
D1	END!
DA	DIE*, END!
DHD	END!, PRINT*
DI	END!
DIC	DIC!, ASK1+1!, ASK2+1!, END!, PRINT
DIC("A"	DIC*
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
DTOUT	END!
FLDS	END!, PRINT*
FR	END!, PRINT*
INVGRP	DIC*, ASK1+1, ASK2+1, NEW, DIE, BOTTOM, END!, PRINT, HDR
L	END!, PRINT*
LN	PSDGSK+3!*, END!, HDR
NAOUDA	ASK1+1*, END!
NAOUM	ASK1+1*, ASK2, DIE, END!
POP	END!
PSDFGRP	END!
PSDNSORT	NEW, NEW+1, DIE, END!
>> PSDSITE	PSDGSK+2
PSDSORT	NEW*, NEW+1, END!
PSDSORTN	NEW*, NEW+1, END!
PSDT	PSDGSK+3*, END!, HDR
TO	END!, PRINT*
X	ASK1, ASK2, END!
Y	PSDGSK+3*, DIC, ASK1+1, ASK2+1, END!
Y(0	ASK1+1, NEW