Routine: ASUL20IT

Package	Total	Call Graph
Supply	5	(ASUL18RC,DIC)^ASUL18IT (ASUL19RC,DIC)^ASUL19IT SETAREA^ASULARST USR^ASULDIRA (REQ,SST,USR)^ASULDIRR
VA Fileman	1	IX^DIK

Package	Total	Caller Graph
Supply	1	^ASUL(20

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;
ERR	;ERROR OR NEW ENTRY MADE
SST	;
REQ	;
EN1	;X ALREADY SET BY EN2
EN2	;EP;;FOR ASUL20EN
EXIT	;
FILE	;ADD ENTRY TO REQUSITIONER TABLE FILE
ARIT	;EP;;AREA POINTER INPUT TRANSFORM FOR FILEMAN

External References

Name	Field # of Occurrence
ASUL18RC^ASUL18IT	SST+2
DIC^ASUL18IT	SST+7
ASUL19RC^ASUL19IT	EN1+2
DIC^ASUL19IT	EN1+18
SETAREA^ASULARST	ASUL20IT+5
USR^ASULDIRA	EN1+14
REQ^ASULDIRR	REQ+5, REQ+9
SST^ASULDIRR	SST+5, REQ+3
USR^ASULDIRR	EN1+7, EN1+13, EN1+16, REQ+4
IX^DIK	FILE+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"DUZ(2) must be set so Area Accounting Point can be determined" Line Location: ASUL20IT+4
Function Call: WRITE	Prompt: !?5,"No valid Requsitioner, User, or Sub Station entered" Line Location: EN1+21
Function Call: WRITE	Prompt: !?5,"Valid Sub Station not entered" Line Location: SST+8
Function Call: WRITE	Prompt: !?10,"Adding entry in Requsitioner Table (20)" Line Location: FILE+2
Function Call: WRITE	Prompt: !?10," NAME: ",ASUL(20,"REQ","NM") Line Location: FILE+3
Function Call: WRITE	Prompt: !?10," AREA: ",ASUL(1,"AR","AP") Line Location: FILE+4
Function Call: WRITE	Prompt: !?10," USER LEVEL: ",ASUL(20,"REQ","ULV") Line Location: FILE+5
Function Call: WRITE	Prompt: !?5,"You may only access Requsitioner 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 Requsitioner (User) Code 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 be asked" Line Location: HELP+9
Function Call: WRITE	Prompt: !?5,"for all necessary data to enter a new User in the ASUTBL USER table file." Line Location: HELP+10
Function Call: WRITE	Prompt: !?5,"For the user you select, you will be asked for the Sub Station where the" Line Location: HELP+11
Function Call: WRITE	Prompt: !?5,"user is located. If an entry for that Sub Station does not exist, you will" Line Location: HELP+12
Function Call: WRITE	Prompt: !?5,"be asked for all data to enter a new Sub Station in the ASUTBL SUB STATION" Line Location: HELP+13
Function Call: WRITE	Prompt: !?5,"table file. Once an entry has been made to the Requsitioner table, only" Line Location: HELP+14
Function Call: WRITE	Prompt: !?5,"the USER LEVEL field may be changed. To change any other field, you must" Line Location: HELP+15
Function Call: WRITE	Prompt: !?5,"delete the entry and re-enter it with the changes. Deletions however," Line Location: HELP+16
Function Call: WRITE	Prompt: !?5,"may only be done by those with specific access keys." Line Location: HELP+17

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(19 - [#9002039.19]	EN1+6, EN1+11, EN1+16
^ASUL(20 - [#9002039.2]	EN1+4, FILE+6, FILE+7, FILE+8, FILE+9

Label References

Name	Line Occurrences
EN1	EN2+3
ERR	EN1+2, EN1+19, EN1+22, SST+3, SST+8, REQ+12, REQ+14, REQ+15
EXIT	REQ+2
FILE	REQ+10
REQ	EN1+3, SST+1, SST+4, SST+6
SST	EN1+2, EN1+3, EN1+10, EN1+20, EN2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASUL("REQ"	EN1+1, EN1+3, EN1+4, EN1+5, EXIT+2!, ERR+1!
>> ASUL(1	ASUL20IT+5, EN1+5, EN1+7, EN1+12, FILE+4, FILE+6
>> ASUL(18	SST+1, SST+4, SST+6, SST+8, REQ+1, REQ+3*, REQ+6, REQ+8, EXIT+2!, FILE+6 , ERR+1!, EN2+2
>> ASUL(19	EN1+3, EN1+13, EN1+20, REQ+1, REQ+4*, REQ+7, REQ+8, EXIT+2!, FILE+6, FILE+9 , ERR+1!, EN2+1
>> ASUL(20	REQ+8, EXIT+1, EXIT+2!, FILE+1, FILE+3, FILE+5, FILE+6, FILE+7, FILE+10, ERR+1!
>> ASUL(22	EXIT+2!, ERR+1!
>> D0	EXIT+1*
DA	EN1+3, EN1+4, EN1+5, EN1+6!, EN1+7, EN1+9, EN1+10, EN1+11, EN1+12, EN1+13 , EN1+14, EN1+16, SST+5, REQ+1, REQ+2, REQ+3, REQ+4, REQ+5, REQ+8, REQ+9 , EXIT+1, ARIT+1, FILE+1, FILE+10*
DIC	ASUL20IT+12~, ASUL20IT+13*
DIC(0	ASUL20IT+6, ASUL20IT+7, ASUL20IT+8, ASUL20IT+9, ASUL20IT+11
DIE	ASUL20IT+12~, ASUL20IT+13*
DIK	ASUL20IT+12~, FILE+10*
DIR	ASUL20IT+12~
>> DIRUT	EN1+2, EN1+19, SST+3
DR	ASUL20IT+12~
DTOUT	ERR+1!
DUOUT	ERR+1!
DUZ(2	ASUL20IT+4
U	FILE+6, FILE+8, FILE+9
X	ASUL20IT+4!, EN1+1, EN1+2, EN1+9, REQ+15, EXIT+1, ARIT+1!, FILE+10!, ERR+1!, EN2+2!
Y	EN1+2, EN1+6, EN1+10!, EN1+11, EN1+13, EN1+14, EN1+16*, SST+5, REQ+2, REQ+10
Z	ARIT+1~*

Customize PDF page

Package: Supply

Routine: ASUL20IT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: