Routine: ASUL19IT

Package	Total	Call Graph
Supply	5	READNAME^ASUL19IT (IEN,USR)^ASULALGO SETAREA^ASULARST USR^ASULDIRA USR^ASULDIRR
VA Fileman	3	DQ^DICQ ^DIE ^DIR

Package	Total	Caller Graph
Supply	3	ASUL19IT ASUL20IT ^ASUL(19

Entry Points

Name	Comments	DBIA/ICR reference
NMIT	;EP ; INPUT TRANSFORM FOR NAME (.01) FIELD
NAME	;
ERR	;
ASUL19RC	;EP;WITH LOCAL ARRAY KILL
DIC	;EP; SET DIC
HLPPGLST	;
HLPUSADD	;
EN2	;EP; DIC ALREADY SET
PGIT	;EP;;PROGRAM POINTER INPUT TRANSFORM FOR FILEMAN
READUSR	;Get User to be processed
FILE	;
HLPUSLST	;
X	;
CDIT	;EP;;USER CODE INPUT TRANSFORM FOR FILEMAN
READNAME	;EP ;READ USER NAME
ARIT	;EP;;AREA POINTER INPUT TRANSFORM FOR FILEMAN
HELP	;HELP INPUT USER TABLE 19

External References

Name	Field # of Occurrence
READNAME^ASUL19IT	READUSR+16
IEN^ASULALGO	EN2+23, CDIT+1
USR^ASULALGO	EN2+7
SETAREA^ASULARST	ASUL19IT+6
USR^ASULDIRA	READUSR+16
USR^ASULDIRR	ASUL19IT+4, READUSR+10
DQ^DICQ	HLPUSLST+3, HLPPGLST+3
^DIE	FILE+10
^DIR	EN2+34, NAME+1, READNAME+3, READUSR+8, READUSR+15, HLPUSLST+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"DUZ(2) must be set so Area Accounting Point can be determined" Line Location: ASUL19IT+5
Function Call: WRITE	Prompt: !?10,"Can't compute USER code for IEN:",DA Line Location: EN2+24
Function Call: WRITE	Prompt: !?10,"Adding entry in User Table (19)" Line Location: FILE+2
Function Call: WRITE	Prompt: !?15," CODE: ",ASUL(19,"USR") Line Location: FILE+3
Function Call: WRITE	Prompt: !?15," NAME: ",ASUL(19,"USR","NM") Line Location: FILE+4
Function Call: WRITE	Prompt: !?15," PROGRAM: ",ASUL(22,"PGM","NM") Line Location: FILE+5
Function Call: WRITE	Prompt: !?15," AREA: ",ASUL(1,"AR","NM") Line Location: FILE+6
Function Call: WRITE	Prompt: !?5,"You may only access User table entries for the Area you are signed" Line Location: HELP+1
Function Call: WRITE	Prompt: !?5,"in to SAMS with. This is determined using the setting of DUZ(2)" Line Location: HELP+2
Function Call: WRITE	Prompt: !?5,"which is set when you sign in to SAMS. If you wish to change Areas," Line Location: HELP+3
Function Call: WRITE	Prompt: !?5,"you must sign out of SAMS and then sign back in to SAMS selecting the" Line Location: HELP+4
Function Call: WRITE	Prompt: !?5,"appropriate DIVISION (area). If when you sign in to SAMS you are not" Line Location: HELP+5
Function Call: WRITE	Prompt: !?5,"prompted for a DIVISION, then you are automatically signed on as a" Line Location: HELP+6
Function Call: WRITE	Prompt: !?5,"specific Area and are restricted to that Area." Line Location: HELP+7
Function Call: WRITE	Prompt: !!?5,"You will be asked for the User Code or User Name for the entry you wish" Line Location: HELP+8
Function Call: WRITE	Prompt: !?5,"to Access. If an entry for that User does not exist, you will also be asked" Line Location: HELP+9
Function Call: WRITE	Prompt: !?5,"for the User Name or User Code (whichever has not already been enterd)" Line Location: HELP+10
Function Call: WRITE	Prompt: !?5,"so that a new entry may be added. Once an entry has been added to the" Line Location: HELP+11
Function Call: WRITE	Prompt: !?5,"table, only the NAME field may be changed. To change any other field," Line Location: HELP+12
Function Call: WRITE	Prompt: !?5,"you must delete the entry and re-enter it with the changes. Deletions" Line Location: HELP+13
Function Call: WRITE	Prompt: !?5,"however, may only be done by those with specific access keys." Line Location: HELP+14
Function Call: WRITE	Prompt: !,"For the User to be added, Enter either:" Line Location: HLPUSADD+1
Function Call: WRITE	Prompt: !?10,"3 digit User code (first 2 must equal valid Program code)" Line Location: HLPUSADD+2
Function Call: WRITE	Prompt: !?10,"?? to see a list of current entries in the User Table" Line Location: HLPUSADD+3
Function Call: WRITE	Prompt: !?10,"Enter '^' or <enter> to end session of User entry update" Line Location: HLPUSADD+4
Routine Call	DIE Line Location: FILE+10
Routine Call	DIR Line Location: EN2+34 NAME+1 READNAME+3 READUSR+8 READUSR+15 HLPUSLST+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(19 - [#9002039.19]	EN2+4, EN2+19, EN2+20, EN2+32, FILE+8, FILE+9
^ASUL(22 - [#9002039.22]	EN2+13

Label References

Name	Line Occurrences
ASUL19RC	EN2+3, EN2+36
EN2	DIC+2
ERR	EN2+11, EN2+15, EN2+18, EN2+24, EN2+30, EN2+35, EN2+36, EN2+37, READNAME+4
FILE	EN2+28
HELP	EN2+15, EN2+18
HLPPGLST	HLPUSLST+5
NAME	EN2+26
NMIT	EN2+4
X	EN2+3, EN2+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASUL("REQ"	X+2
>> ASUL(1	ASUL19IT+6, EN2+4, EN2+8, EN2+10, EN2+16, EN2+17, EN2+32, FILE+6, FILE+7, READUSR+13
>> ASUL(19	ASUL19IT+4, EN2+3, EN2+5, EN2+7, EN2+8, EN2+10, EN2+20, EN2+21, EN2+22, EN2+25 , EN2+31, EN2+32, EN2+33, EN2+34, EN2+36, X+1, X+2!, NAME+1, READNAME+1, READNAME+2 , READNAME+5, FILE+3, FILE+4, FILE+7, FILE+9, FILE+10, ERR+1!, ASUL19RC+1!, READUSR+4, READUSR+8 , READUSR+9*, READUSR+12, READUSR+13, READUSR+16, READUSR+18
>> ASUL(22	X+2!, FILE+5, FILE+7, ERR+1!
ASUL19	EN2+23*, EN2+25!
>> D	HLPUSLST+3, HLPPGLST+3
>> D0	FILE+10*
>> DA	ASUL19IT+4, EN2+3, EN2+4, EN2+7, EN2+8, EN2+10, EN2+12, EN2+14, EN2+16, EN2+17 , EN2+19, EN2+20, EN2+21, EN2+23, EN2+24, X+1, CDIT+1, ARIT+1, PGIT+1, FILE+10*
DD	FILE+10!
DIC	ASUL19IT+9~, DIC+1~, DIC+2, HLPUSLST+1~, HLPUSLST+2, HLPPGLST+1~, HLPPGLST+2*
DIC("S"	HLPUSLST+2*
DIC("W"	DIC+2*
DIC(0	ASUL19IT+7, DIC+2, HLPUSLST+3, HLPPGLST+3
DIE	ASUL19IT+9~, FILE+1, DIC+1~, DIC+2
DIK	EN2+1~
DIR	EN2+1~, READUSR+1~, READUSR+15!, HLPUSLST+1~
DIR("?"	READNAME+1, READUSR+6
DIR("??"	READUSR+7*
DIR("A"	EN2+34, NAME+1, READNAME+1, READUSR+3, READUSR+4, READUSR+5, READUSR+15, HLPUSLST+4
DIR("B"	READNAME+2, HLPUSLST+4
DIR(0	EN2+34, NAME+1, READNAME+1, READUSR+2, READUSR+15, HLPUSLST+4
>> DIROUT	READUSR+8
>> DIRUT	EN2+3, EN2+35, EN2+37, NAME+2
>> DIX	ASUL19IT+8
DO	HLPUSLST+1~, HLPPGLST+1~
DR	EN2+1~, FILE+7*
DTOUT	EN2+11, EN2+27, EN2+35, EN2+37, READNAME+4, ERR+1!, READUSR+8
DUOUT	EN2+11, EN2+27, EN2+35, EN2+37, READNAME+4, ERR+1!, READUSR+8
DUZ(2	ASUL19IT+5
>> DZ	HLPUSLST+3, HLPPGLST+3
U	EN2+20, FILE+8, FILE+9
X	ASUL19IT+5!, ASUL19IT+8, EN2+2, EN2+3, EN2+5, EN2+6, EN2+7, EN2+8, EN2+9, EN2+10 , EN2+11, EN2+12, EN2+13, EN2+22, EN2+27, EN2+30, EN2+31, EN2+35, EN2+36, EN2+37 , X+1, NAME+2!, READNAME+4, READNAME+5, NMIT+1!, CDIT+1!, ARIT+1!, PGIT+1!, FILE+10!, ERR+1! , READUSR+9, READUSR+10, READUSR+16*
X(1	READUSR+16*
>> Y	EN2+3, EN2+24, EN2+35, NAME+2, READUSR+11, READUSR+14, READUSR+16, HLPUSLST+5
Z	CDIT+1~, ARIT+1~, PGIT+1~*

Customize PDF page

Package: Supply

Routine: ASUL19IT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: