Routine: DGPTLMU3

Information

DGPTLMU3 ;ALB/MTC - PTF ARCHIVE/PURGE LIST MAN UTILITIES CONT ; 9-23-92

Source file <DGPTLMU3.m>

Package	Total	Call Graph
Registration	1	PAUSE^VALM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Registration	2	DGPTLMU1 DGPTLMU4

Name	Comments	DBIA/ICR reference
ASK	;--ask for entries
ENQ
SEL	; -- select routine for range of numbers not in continuous sequence
VAL	;-- check for valid range

Name	Field # of Occurrence
^DIR	SEL+4
PAUSE^VALM1	ASK+1, VAL+7, VAL+10

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"There are no '",VALM("ENTITY"),"s' to select.",! Line Location: SEL+4
Function Call: READ	Timeout: DTIME Variable: Y Line Location: ASK+1
Function Call: WRITE	Prompt: !,!,*7,"Selection '",J,"' is not a valid range." Line Location: VAL+3
Function Call: WRITE	Prompt: !,!,*7,"Selection '",J,"' is not a valid choice." Line Location: VAL+6
Function Call: WRITE	Prompt: !,*7,"Selection '",J,"' is not a valid range." Line Location: VAL+12
Routine Call	DIR Line Location: SEL+4

Name	Field # of Occurrence
BG	SEL+2*, SEL+4, ASK+1, VAL+3, VAL+6, VAL+10, ENQ!
DGX	SEL+1~, VAL+11*
DIR	SEL+4!
DIR(0	SEL+4*
DIROUT	ENQ!
DIRUT	ENQ!
DTIME	ASK+1
DTOUT	ENQ!
DUOUT	ENQ!
>> I	VAL+2, VAL+5, VAL+10, VAL+15
>> J	VAL+2, VAL+3, VAL+5, VAL+6, VAL+10*, VAL+11, VAL+12
>> L	VAL+11*
LST	SEL+3*, ASK+1, VAL+3, VAL+6, VAL+10, ENQ!
SDERR	VAL+1, VAL+3, VAL+6, VAL+7, VAL+10, VAL+11, VAL+12, ENQ!
>> VALM("ENTITY"	SEL+4
>> VALMAR	SEL+2, SEL+3, VAL+11
>> VALMBG	SEL+2, VAL+11
>> VALMLST	SEL+3, VAL+11
VALMY	SEL+1!
VALMY(	VAL+15*
X	VAL+10, VAL+15, ENQ!
>> XQORNOD(0	SEL+6
Y	SEL+6, ASK+1, VAL+2, VAL+5, VAL+7, VAL+10, VAL+11, VAL+15, ENQ!