Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ASULARST

Package: Supply

Routine: ASULARST


Information

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

Source Information

Source file <ASULARST.m>

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 ;

External References

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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All