Routine: ASULARST

Information

ASULARST ; IHS/ITSC/LMH -AREA & STATION TABLE LOOKUP ;

Source Information

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
IHS VA Utilities	1	^XBKVAR
Supply	1	CLS^ASUUHDG
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 68

Package	Total	Caller Graph
Supply	68	ASU0TRRD ASU0TRWR ASUBTCH ASUJBTCH ASUJBTCN ASUJBTCO ASUJOLIB ASUJTRAN ASUJVALF ASUL18IT ASUL19EN ASUL19IT ASUL20EN ASUL20IT ASUMKBIO ASUMSTRD ASURD01P ASURD02P ASURD07A ASURD08P ASURD09P ASURD10P ASURD10V ASURD11P ASURD13P ASURD70I ASURD70P ASURD71P ASURD72P ASURD73P ASURDINV ASURDRNG ASURDSTD ASURM12P ASURM23P ASURM24P ASURM74P ASURM75P ASURM77P ASURM78P ASURM79P ASURM83P ASURMBSP ASURMSTD ASURO26A ASURO26B ASURO26P ASURO46P ASURO760 ASURO76P ASURO800 ASURO80P ASUROTVQ ASURQ25P ASURQ49P ASURQ81P ASURQ82P ASURQSTD ASUUDATA ASUURANG ASUUSCRN ASUV0NT ASUV2RL ASUV3AL ASUV4AL ASUV5FS ASUVAR ASUW2STO

Entry Points

Name	Comments	DBIA/ICR reference
ARPRINT	;EP; Write out Area Name and save Area Lookup table EIN
STAT	;EP -Lookup Station Name. X=AREA CODE, X1=STATION CODE.
SETAREA	;EP ;SET ASUL(1,"AR","E#") BASED ON DUZ(2) THEN SET ASUL(1) ARRAY
AREA	;EP -Lookup Area Name. X=AREA CODE
FINDAREA	;EP ;FIND AREA FROM TABLE 01
STPRINT	;
STA(X)	;EP ; DIRECT STATION TABLE LOOKUP
TRN(X)	;EP ;TRANSACTION CODE
LOOKUP	;EP ;LOOKUP AREA BASED ON DUZ(2)
ARL	;
ARE(X)	;EP ;LOOKUP AREA IN TABLE 01
AREX	;

Name	Field # of Occurrence
CLS^ASUUHDG	ASULARST+5
^DIR	ASULARST+11, FINDAREA+2
^XBKVAR	LOOKUP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?14,"Reminder, Area Code you are signed on with is : ",ASUL(1,"AR","E#"),! Line Location: ASULARST+6
Function Call: WRITE	Prompt: !!?35-($L(ASUL(1,"AR","NM"))/2),ASUL(1,"AR","NM"),!! Line Location: ASULARST+7
Function Call: WRITE	Prompt: !?10,"If this is correct, enter <cr> to continue." Line Location: ASULARST+8
Function Call: WRITE	Prompt: !?10,"Otherwise, enter '^', exit form the KERNEL S.A.M.S. MENU" Line Location: ASULARST+9
Function Call: WRITE	Prompt: !?15,"and then re-enter with the correct Area.",!! Line Location: ASULARST+10
Function Call: WRITE	Prompt: "No Accounting Point stored in your SITE file; contact site manager",!,"Program can not continue -Aborting",! Line Location: LOOKUP+6
Function Call: WRITE	Prompt: " ",ASUL(1,"AR","NM") Line Location: ARPRINT+2
Function Call: WRITE	Prompt: " ",ASUL(2,"STA","NM") Line Location: STPRINT+2
Routine Call	DIR Line Location: ASULARST+11 FINDAREA+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(1 - [#9002039.01]	AREX+2, AREX+3, AREX+4, AREX+5, AREX+6
^ASUL(11 - [#9002039.11]	TRN+2, TRN+3, TRN+5
^ASUL(2 - [#9002039.02]	STA+5, STA+7, STA+8, STA+9, STA+10, STA+11, STA+12
^ASUSITE(1	LOOKUP+1
^AUTTAREA - [#9999999.21]	LOOKUP+3
^AUTTLOC - [#9999999.06]	LOOKUP+3, LOOKUP+4, LOOKUP+5

Name	Line Occurrences
ARE	LOOKUP+1, ARL+4, STAT+5
AREA	SETAREA+1
AREX	FINDAREA+5
ARL	ARPRINT+1
LOOKUP	SETAREA+1, ARL+6
SETAREA	ASULARST+5, ARL+2, STAT+3, STAT+9
STA	STPRINT+2, STAT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASUF("LOOKA"	SETAREA+1!, AREA+1, AREA+2, ARL+2, ARL+5*, ARL+6
>> ASUK("ASUFAC"	LOOKUP+5*
>> ASUK("LOC"	LOOKUP+4*
>> ASUK("STA"	STPRINT+1
>> ASUL(1	ASULARST+4, ASULARST+5, ASULARST+6, ASULARST+7, ASULARST+12, ASULARST+13, ASULARST+14!, LOOKUP+1, LOOKUP+3, LOOKUP+6* , ARPRINT+1, ARPRINT+2, ARL+1, ARL+3, AREX+1, AREX+3, AREX+4, AREX+5, AREX+6, AREX+8* , STAT+1, STAT+9, STA+1, STA+2
>> ASUL(11	TRN+1!, TRN+2, TRN+3, TRN+4, TRN+5, TRN+6, TRN+7, TRN+8, TRN+9, TRN+10* , TRN+11, TRN+12, TRN+13, TRN+14, TRN+15, TRN+16, TRN+17*
>> ASUL(2	STPRINT+2, STAT+6, STAT+7, STAT+8, STA+6, STA+7, STA+8, STA+9, STA+10, STA+11 , STA+12, STA+13, STA+15, STA+16
DIR	ASULARST+11!, FINDAREA+1~
DIR("A"	FINDAREA+2*
DIR(0	ASULARST+11, FINDAREA+2
>> DIROUT	ASULARST+12
>> DIRUT	FINDAREA+3
>> DTOUT	ASULARST+12
>> DUOUT	ASULARST+12
DUZ(2	LOOKUP+1, LOOKUP+3, LOOKUP+4, LOOKUP+5
U	ASULARST+5, ASULARST+12, LOOKUP+1, LOOKUP+2, LOOKUP+3, LOOKUP+4, LOOKUP+5, AREX+3, AREX+4, AREX+5 , AREX+6, STA+7, STA+8, STA+9, STA+10, STA+11, STA+12, TRN+6, TRN+8, TRN+9 , TRN+11, TRN+13, TRN+15, TRN+16, TRN+17
X	LOOKUP+1, LOOKUP+3, ARL+2, ARL+3, ARL+4, FINDAREA+4, ARE~, AREX+1, AREX+2, AREX+3 , AREX+4, AREX+5, AREX+6, STAT+2, STAT+5, STA~, STA+1, STA+2, STA+3, STA+5 , STA+6, STA+7, STA+8, STA+9, STA+10, STA+11, STA+12, STA+15, TRN~, TRN+2 , TRN+3
>> X1	STPRINT+1*, STPRINT+2, STAT+7, STAT+8, STAT+10
>> Y	FINDAREA+3, FINDAREA+4, STA+4, STA+6, STA+17, TRN+4, TRN+5*, TRN+6, TRN+7, TRN+8 , TRN+9, TRN+11, TRN+13, TRN+15, TRN+16, TRN+17
Z	TRN+9~, TRN+10, TRN+11, TRN+12

Customize PDF page

Package: Supply

Routine: ASULARST

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 68

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: