Routine: ASUAUDIR

Information

ASUAUDIR ;DSD/DFM - STANDARD POINTER TYPE READ ROUTINE WITH SCREENING; [ 04/15/98 2:50 PM ]

Source file <ASUAUDIR.m>

Package	Total	Call Graph
VA Fileman	1	^DIC

Package	Total	Caller Graph
Supply	1	ASUAUAST

Name	Field # of Occurrence
^DIC	READ+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DIR("A"),": " Line Location: DIR+2
Function Call: WRITE	Prompt: !!,"This is a required entry. Enter '^' to exit or '?' to see valid codes.",!! Line Location: DIR+11
Function Call: WRITE	Prompt: !,"Previous entry not available" Line Location: NOSAVE+1
Function Call: WRITE	Prompt: *7,!!,DIR("?"),!,"Enter '^' to exit or '?' to see valid codes",!! Line Location: READ+4
Function Call: WRITE	Prompt: $P(Y,U,2) Line Location: READ+5
Routine Call	DIC Line Location: READ+3

Name	Line Occurrences (* Changed, ! Killed)
^ASUTB07(	HELP7+4, HELP7+5
^ASUTB07("D"	HELP7+2, HELP7+3
^DIC - [#1]	DIR+18
^DISV(	CKDISV+1

Name	Field # of Occurrence
ASUDIC	DIR+16, DIR+17, DIR+18*, DIR+19, DIR+20, CKDISV+1, EXIT+1!
>> ASUTR(0	DIR+7, HELP7+4
>> ASUTR(7	HELP7+1, HELP7+2, HELP7+3*, HELP7+4, HELP7+5, HELP7+6!
>> ASUTRNS	DIR+7, HELP7+2, HELP7+3
>> ASUTRNS(	DIR+7, HELP7+2, HELP7+3
DIC	DIR+6, DIR+7, DIR+16, DIR+17, DIR+18, READ+1, EXIT+1!
DIC("S"	DIR+1*
DIC(0	READ+2*
>> DIR("?"	READ+4
>> DIR("A"	DIR+2
>> DIR("B"	DIR+3, DIR+9!
>> DIR("S"	DIR+1
>> DIR(0	DIR+6, DIR+11, READ+2
>> DIROUT	DIR+13*
DTIME	DIR+4
>> DTOUT	DIR+5*
>> DUOUT	DIR+12*
DUZ	DIR+15, CKDISV+1
U	DIR+6, DIR+11, DIR+17, READ+1, READ+2, READ+5, HELP7+4, HELP7+5
X	DIR+4, DIR+7, DIR+8, DIR+9, DIR+10, DIR+11, DIR+12!, DIR+13!, DIR+14, READ+3 , READ+5
>> Y	DIR+11*, READ+4, READ+5