Routine: ASUL19EN

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN DQ^DICQ ^DIE ^DIR
Supply	3	TR^ASULALGO (FINDAREA,SETAREA)^ASULARST USR^ASULDIRR

Package	Total	Caller Graph
Supply	2	ASU3219USR ASUL20EN

Entry Points

Name	Comments	DBIA/ICR reference
USRHLP	;----- HELP FOR 'SELECT USER' PROMPT
USRCODE	;----- PROMPT FOR USER CODE
USRNAME	;----- PROMPT FOR USER NAME
AREA	;----- PROMPT USER FOR AREA
EDIT	;EP -- EDIT EXISTING USER
USRPROG	;----- PROMPT FOR USER PROGRAM CODE
INIT	;----- SET UP REQUIRED VARIABLES
A1	;EP -- PROMPT FOR USER - ADD NEW ONE IF NOT ONE
E2(DA)	;----- EDIT ENTRY
ADD	;EP -- MAIN ENTRY POINT TO ADD NEW 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: *7," ??" Line Location: A1+21
Function Call: WRITE	Prompt: *7,!,"User codes do not match, try again." Line Location: A1+28
Function Call: WRITE	Prompt: !,"User "_ASUIEN_" already exists in the ASUTBL USER file.",!,"Please check user codes and try again." Line Location: A1+29
Function Call: WRITE	Prompt: *7," ??" Line Location: A1+35
Function Call: WRITE	Prompt: !,"User "_ASUUSR_" "_ASUNAME_" ADDED" Line Location: A1+36
Function Call: WRITE	Prompt: ! Line Location: EDIT+6
Function Call: WRITE	Prompt: ! Line Location: E1+8
Function Call: WRITE	Prompt: !?10,"DIVISION NOT SET, PLEASE SEE SITE MANAGER" Line Location: INIT+2
Routine Call	DIE Line Location: E2+6
Routine Call	DIC Line Location: A1+12 E1+4
Routine Call	DIR Line Location: A1+9 A1+18 USRNAME+5 USRPROG+5 USRCODE+6

FileNo	Call Tags
^ASUL(19 - [#9002039.19]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(19 - [#9002039.19]	A1+29

Name	Field # of Occurrence
ASUAREA	A1+4~, A1+6*, A1+26
ASUCODE	A1+4~, A1+24, A1+25, A1+26, USRCODE+7, USRCODE+8
ASUIEN	A1+4~, A1+26*, A1+27, A1+28, A1+29
ASUL	ADD+2~, EDIT+2~
ASUL(1	A1+5, A1+6, INIT+3, INIT+4
ASUL(19	E2+3!
ASUL65	ADD+2~, EDIT+2~, INIT+4*, AREA+2
ASUNAME	A1+4~, A1+15, A1+16, A1+20, A1+22, A1+32, A1+36, USRNAME+4, USRNAME+6, USRNAME+7
ASUOUT	ADD+2~, ADD+3, ADD+4, ADD+6, A1+10, EDIT+2~, EDIT+3, EDIT+4, EDIT+5, E1+5 , INIT+2, AREA+4
ASUPROG	A1+4~, A1+23, A1+30, USRPROG+6, USRPROG+7*
ASUUSR	A1+4~, A1+20, A1+21, A1+27, A1+28, A1+29, A1+32, A1+36, A1+37
D	USRHLP+2~, USRHLP+4*
DA	A1+4~, A1+32, E1+2~, E1+6, E1+7, E2~, E2+4
DD	A1+4~, A1+31!
DIC	A1+4~, A1+11, A1+32, USRHLP+2~, USRHLP+3, E1+2~, E1+3
DIC("A"	E1+3*
DIC("DR"	A1+33*
DIC("S"	USRHLP+3*
DIC(0	A1+11, USRHLP+4, E1+3*
DIE	A1+4~, E2+2~, E2+5*
DINUM	A1+4~, A1+32*
DIR	A1+4~, A1+9!, A1+18!, USRNAME+2~, USRPROG+2~, USRCODE+2~
DIR("?"	A1+8, USRCODE+5
DIR("A"	A1+7, A1+16, USRNAME+3, USRPROG+4, USRCODE+4*
DIR("B"	A1+17, USRNAME+4
DIR(0	A1+7, A1+16, USRNAME+3, USRPROG+3, USRCODE+3*
DIRUT	A1+4~, A1+10
DO	A1+4~, A1+31!
DR	A1+4~, E2+2~, E2+5*
DTOUT	A1+4~, A1+10, A1+13
DUOUT	A1+4~, A1+10, A1+13
DUZ(2	INIT+2
DZ	A1+4~, USRHLP+2~, USRHLP+4*
X	A1+4~, A1+15, A1+32*, USRNAME+2~, USRPROG+2~, USRCODE+2~, USRHLP+2~, E1+2~, E2+2~
Y	A1+4~, A1+14, A1+19, A1+25*, A1+26, A1+35, USRNAME+2~, USRNAME+6, USRNAME+7, USRPROG+2~ , USRPROG+6, USRPROG+7, USRCODE+2~, USRCODE+7, USRCODE+8, USRHLP+2~, E1+2~, E1+5, E1+6, E2+2~ , AREA+4
Z	A1+4~