Routine: ASUL20EN

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
Supply	3	A1^ASUL19EN (FINDAREA,SETAREA)^ASULARST REQ^ASULDIRR

Package	Total	Caller Graph
Supply	2	ASU3120REQ ASU3220REQ

Entry Points

Name	Comments	DBIA/ICR reference
AREA	;----- PROMPT USER FOR AREA
EDIT	;EP -- ENTRY POINT TO EDIT EXISTING REQUISITIONER ENTRY
INIT	;----- SET UP REQUIRED VARIABLES
A1	;----- ADD NEW ENTRY
E2(DA)	;----- EDIT ENTRY
ADD	;EP -- ENTRY POINT TO ADD NEW ENTRY
DIC(F,D,A,Y)
USR	;----- PROMPT FOR USER
E1	;----- LOOK UP ENTRY

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+4
Function Call: WRITE	Prompt: ! Line Location: ADD+5
Function Call: WRITE	Prompt: !,"Sub-station "_+Y_" "_$P(Y,U,2)_" ADDED" Line Location: A1+8
Function Call: WRITE	Prompt: !,"Requisitioner "_ASUREQ_" "_ASUNM Line Location: A1+13
Function Call: WRITE	Prompt: *7," ??" Line Location: A1+19
Function Call: WRITE	Prompt: ! Line Location: A1+24
Function Call: WRITE	Prompt: ! Line Location: EDIT+6
Function Call: WRITE	Prompt: ! Line Location: E1+7
Routine Call	DIE Line Location: E2+7
Routine Call	DIC Line Location: DIC+12
Routine Call	DIR Line Location: INIT+4

FileNo	Call Tags
^ASUL(20 - [#9002039.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(18 - [#9002039.18]	A1+12
^ASUL(19 - [#9002039.19]	A1+12
^ASUL(20 - [#9002039.2]	A1+14

Name	Field # of Occurrence
A	DIC~, DIC+11
ASUAREA	A1+2~, A1+4*
ASUL	ADD+2~, EDIT+2~
ASUL(1	A1+3, A1+4, INIT+6, INIT+7
ASUL(19	USR+2!, USR+4
ASUL(20	E2+3!
ASUL65	ADD+2~, EDIT+2~, INIT+7*, AREA+2
ASUNM	A1+2~, A1+12*, A1+13, A1+16
ASUOUT	ADD+2~, ADD+3, ADD+4, ADD+6, A1+6, A1+7, A1+14, A1+19, A1+22, EDIT+2~ , EDIT+3, EDIT+4, EDIT+5, E1+4, INIT+3, AREA+4
ASUREQ	A1+2~, A1+11, A1+13, A1+14, A1+16, A1+21, A1+23, EDIT+2~
ASUSST	A1+2~, A1+9*, A1+11, A1+12
ASUUSR	A1+2~, A1+10, A1+11, A1+12, USR+4*
D	DIC~, DIC+10
DA	A1+2~, A1+16, E1+2~, E1+5, E1+6, E2~, E2+4
DD	A1+2~, A1+15!
DIC	A1+2~, A1+16, E1+2~, DIC+8~, DIC+9
DIC("A"	DIC+11*
DIC("DR"	A1+17*
DIC(0	A1+16, DIC+10
DIE	E2+2~, E2+5*
DINUM	A1+2~, A1+16*
>> DIR(0	INIT+4*
DO	A1+2~, A1+15!
DR	E2+2~, E2+6*
>> DTOUT	A1+6
>> DUOUT	A1+6
DUZ(2	INIT+2
F	DIC~, DIC+9
U	A1+8, A1+12
X	A1+2~, A1+16*, E1+2~, E2+2~
Y	A1+2~, A1+5, A1+7, A1+8, A1+9, A1+19, A1+21, E1+2~, E1+3, E1+4 , E1+5, E2+2~, DIC~, AREA+4