Routine: ASUL18IT

Package	Total	Call Graph
Supply	4	(FILE,NAME,NMIT)^ASUL18IT SETAREA^ASULARST SST^ASULDIRR (ARE,SST)^ASUUSCRN
VA Fileman	4	FILE^DICN DQ^DICQ ^DIE ^DIR

Package	Total	Caller Graph
Supply	3	ASUL20IT ^ASUL(18 ASUL18IT

Entry Points

Name	Comments	DBIA/ICR reference
FILE2	;
NMIT	;EP ; INPUT TRANSFORM FOR NAME (.01) FIELD
NAME	;EP ;
ERR	;
ARSST	;EP ;
HLPSSADD	;
ASUL18RC	;EP; READ AFTER CLEAR LOCAL VARIABLES
DIC	;EP ;TO SET DIC
READSST	;EP ;Get Sub Station to be processed
EN2	;EP; DIC ALREADY SET
FILE	;EP ;
HLPSSLST	;EP ;
X	;
HELP	;

External References

Name	Field # of Occurrence
FILE^ASUL18IT	EN2+16
NAME^ASUL18IT	EN2+15
NMIT^ASUL18IT	EN2+18
SETAREA^ASULARST	ASUL18IT+5, ARSST+2
SST^ASULDIRR	READSST+10
ARE^ASUUSCRN	ASUL18IT+6
SST^ASUUSCRN	EN2+9
FILE^DICN	FILE+6
DQ^DICQ	HLPSSLST+3
^DIE	FILE2+2
^DIR	NAME+4, READSST+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ(2) must be set so Area Accounting Point can be determined" Line Location: ASUL18IT+4
Function Call: WRITE	Prompt: !,"DUZ(2) must be set so Area Accounting Point can be determined" Line Location: ARSST+1
Function Call: WRITE	Prompt: !?10,"Adding entry in Sub Station table (18) CODE:",ASUL(18,"SST") Line Location: FILE+3
Function Call: WRITE	Prompt: !!?48," NAME:",ASUL(18,"SST","NM") Line Location: FILE+4
Function Call: WRITE	Prompt: !!?48," AREA:",ASUL(1,"AR","AP") Line Location: FILE+5
Function Call: WRITE	Prompt: !?5,"You may only access Sub Station 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 Sub Station Code or Sub Station Name for the" Line Location: HELP+8
Function Call: WRITE	Prompt: !?5,"entry you wish to Access. If an entry for that Sub Station does not exist," Line Location: HELP+9
Function Call: WRITE	Prompt: !?5,"you will also be asked for the Sub Station Name or Sub Station Code" Line Location: HELP+10
Function Call: WRITE	Prompt: !?5,"(whichever has not already been enterd) so that a new entry may be added." Line Location: HELP+11
Function Call: WRITE	Prompt: " ",$G(ASUL(18,"SST","NM")) Line Location: READSST+15
Function Call: WRITE	Prompt: !,"For the Sub Station to be found, Enter either:" Line Location: HLPSSADD+1
Function Call: WRITE	Prompt: !?10,"2 digit Sub Station code or" Line Location: HLPSSADD+2
Function Call: WRITE	Prompt: !?10,"?? to see a list of current entries in the Sub Station Table" Line Location: HLPSSADD+3
Function Call: WRITE	Prompt: !?10,"Enter '^' or <enter> to end session" Line Location: HLPSSADD+4
Routine Call	DIE Line Location: FILE2+2
Routine Call	DIR Line Location: NAME+4 READSST+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(18 - [#9002039.18]	EN2+12, EN2+13, EN2+20, EN2+21

Label References

Name	Line Occurrences
ASUL18RC	EN2+3
EN2	DIC+3
ERR	EN2+3, EN2+11, EN2+22, EN2+23, EN2+25
FILE	EN2+24
HELP	EN2+11
READSST	EN2+22
X	EN2+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASUF("HALT"	READSST+13, READSST+14
>> ASUL("REQ"	X+2
>> ASUL(1	ASUL18IT+5, EN2+6, EN2+7, EN2+11, EN2+20, ARSST+2, ARSST+3, FILE+2*, FILE+5, FILE2+1 , READSST+6
>> ASUL(18	EN2+3, EN2+6, EN2+7, EN2+13, EN2+14, EN2+16, EN2+19, EN2+20, EN2+21, EN2+22 , EN2+23, X+1, X+2!, NAME+3, NAME+5, FILE+3, FILE+4, FILE+6, FILE2+1, FILE2+2 , ASUL18RC+1!, READSST+6, READSST+7, READSST+8*, READSST+14, READSST+15
>> ASUV("SAVEX"	ASUL18IT+5*!
>> D	HLPSSLST+3*
>> D0	FILE2+2*
>> DA	EN2+3, EN2+5, EN2+6, EN2+7, EN2+8, EN2+9, EN2+10, EN2+11, EN2+12, EN2+13 , EN2+14, EN2+16, X+1, FILE+6, FILE2+2, READSST+6, READSST+9*, READSST+10
DD	FILE+6!, FILE2+2!
DIC	ASUL18IT+8~, FILE+1~, FILE+6, DIC+1~, DIC+2, DIC+3, HLPSSLST+1~, HLPSSLST+2
DIC("S"	HLPSSLST+2*
DIC("W"	DIC+3*
DIC(0	ASUL18IT+7, FILE+6, DIC+2, DIC+3, HLPSSLST+3*
DIE	ASUL18IT+8~, FILE2+2, DIC+1~, DIC+2, DIC+3*
DIK	EN2+1~
>> DINUM	FILE+6*
DIR	EN2+1~, READSST+1~
DIR("?"	NAME+2, READSST+3
DIR("??"	READSST+4*
DIR("A"	NAME+3, READSST+2
DIR(0	NAME+1, READSST+2
>> DIROUT	READSST+5
>> DIRUT	EN2+3, EN2+25
DIX	FILE+1~
>> DLAYGO	FILE+6*
DO	FILE+6!, HLPSSLST+1~
DR	EN2+1~, FILE2+1*
>> DTOUT	EN2+15, EN2+25, NAME+4, READSST+5
>> DUOUT	EN2+15, EN2+25, NAME+4, READSST+5
DUZ(2	ASUL18IT+4, ARSST+1
>> DZ	HLPSSLST+3*
U	EN2+13, EN2+21
X	ASUL18IT+4!, ASUL18IT+5, EN2+2, EN2+3, EN2+4, EN2+5, EN2+6, EN2+7, EN2+8, EN2+9 , EN2+15, EN2+16, EN2+18, EN2+19, EN2+25, X+1, NAME+4, NAME+5, NMIT+1!, ARSST+1! , ARSST+3!, FILE+6, FILE2+2!, ERR+1!, READSST+6, READSST+7, READSST+8, READSST+9, READSST+12
>> Y	EN2+3, READSST+11

Customize PDF page

Package: Supply

Routine: ASUL18IT

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: