Routine: ASUAUAST

Package	Total	Call Graph
Supply	1	^ASUAUDIR
VA Fileman	1	^DIC

Package

Total

Call Graph

^DIC

Package	Total	Caller Graph
Supply	5	ASUADCOR ASUADNTR ASUAPCOR ASUAPDUP ASUAPNTR

Package

Total

Caller Graph

Name	Field # of Occurrence
^ASUAUDIR	READDST+5
^DIC	AREA+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"2. ENTER AREA CODE: ",ASUK("AREA","ACCPT") Line Location: AREA+2
Function Call: WRITE	Prompt: !,"3. ENTER STATION CODE ",ASUTRNS(ASUTRNS,"STATION") Line Location: STAFOUND+1
Function Call: WRITE	Prompt: ?30,ASUK("STATION","NAME") Line Location: STAFOUND+3
Function Call: WRITE	Prompt: ?30,ASUK("STATION","NAME") Line Location: SETSTNM+2
Routine Call	DIC Line Location: AREA+3

Name	Line Occurrences (* Changed, ! Killed)
^ASUTB01(	STAT+3, STAT+4, STAT+6, STAT+7, SETSTNM+1

Name	Field # of Occurrence
>> ASUK("AREA"	AREA+2, AREA+3
>> ASUK("STATION"	STAT+7, STAFOUND+2, STAFOUND+3, SETSTNM+1, SETSTNM+2
>> ASUTR(1	AREA+3, STAT+3, STAT+4, STAT+6, STAT+7, READDST+4, READDST+7*, SETSTNM+1
>> ASUTRNS	STAT+2, STAT+6, STAFOUND+1, READDST+7
>> ASUTRNS(	STAT+2, STAT+6, STAFOUND+1, READDST+7
>> ASUTRNS("TRAN	SACTION CODE" , STAT+1
ASUTRSST	READDST+1!
ASUTRSTN	STAT+4*!, STAT+5!
>> DA(1	READDST+4*
DIC	ASUAUAST+2!, AREA+1!*
DIC("S"	STAT+1!, READSTA+1*
DIC(0	AREA+1*
DIR	ASUAUAST+2!
DIR("?"	READDST+3*
DIR("A"	READDST+2*
DIR(0	READDST+4*
>> DIROUT	READDST+6
>> DTOUT	READDST+6
>> DUOUT	READDST+6
U	STAT+6, STAT+7, READDST+7, SETSTNM+1
X	ASUAUAST+2!, AREA+3*
Y	ASUAUAST+2!, AREA+3, READDST+7

Information