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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ASUAUARE

Package: Supply

Routine: ASUAUARE


Information

ASUAUARE ;DSD/DFM - UTILITY GET AREA CODE; [ 04/15/98 2:48 PM ]

Source Information

Source file <ASUAUARE.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Supply 2 CLS^ASUAULGO  AREA^ASUAUTIL  
IHS VA Utilities 1 ^XBKVAR  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Supply 2 ASUAUTIL  ASUAWXT  

Entry Points

Name Comments DBIA/ICR reference
LOOKUP ;EP ;CALL FROM ASUAUTIL
SETAREA ;EP ;SET ASUK("AUTTAREA") BASED ON DUZ(2)

External References

Name Field # of Occurrence
CLS^ASUAULGO ASUAUARE+3
AREA^ASUAUTIL SETAREA+3
^DIR ASUAUARE+9
^XBKVAR LOOKUP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?14,"REMINDER, AREA CODE YOU ARE SIGNED ON AS IS : ",ASUK("AUTTAREA"),!
  • Line Location: ASUAUARE+4
Function Call: WRITE
  • Prompt: !!?35-($L(ASUK("AREA NAME"))/2),ASUK("AREA NAME"),!!
  • Line Location: ASUAUARE+5
Function Call: WRITE
  • Prompt: !?10,"IF THIS IS CORRECT, ENTER <cr> AND CONTINUE DATA ENTRY"
  • Line Location: ASUAUARE+6
Function Call: WRITE
  • Prompt: !?10,"OTHERWISE, ENTER '^', EXIT FROM THE KERNEL STORES MENU"
  • Line Location: ASUAUARE+7
Function Call: WRITE
  • Prompt: !?15,"AND THEN REENTER WITH THE CORRECT AREA CODE",!!
  • Line Location: ASUAUARE+8
Function Call: WRITE
  • Prompt: "No Accounting Point stored in your SITE file; contact site manager",!,"Program can not continue - Aborting",!
  • Line Location: LOOKUP+17
Routine Call
  • DIR
  • Line Location:
    • ASUAUARE+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTAREA - [#9999999.21] LOOKUP+3
^AUTTLOC - [#9999999.06] LOOKUP+3, LOOKUP+7, LOOKUP+8

Label References

Name Line Occurrences
LOOKUP SETAREA+1
SETAREA ASUAUARE+3

Naked Globals

Name Field # of Occurrence
^(0 LOOKUP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ASUF("LOOKA" SETAREA+2*, SETAREA+4!
>> ASUK("AREA NA ME" , ASUAUARE+5, LOOKUP+3*
>> ASUK("AREA" ASUAUARE+2, ASUAUARE+3, ASUAUARE+11*, LOOKUP+2*, LOOKUP+8*, LOOKUP+10, LOOKUP+11, LOOKUP+12, LOOKUP+13, LOOKUP+14
, LOOKUP+15, LOOKUP+17*
>> ASUK("ASUFAC" LOOKUP+8*
>> ASUK("AUTTAREA" ASUAUARE+3, ASUAUARE+4, ASUAUARE+10*, ASUAUARE+11, ASUAUARE+12!, LOOKUP+3*, LOOKUP+4, LOOKUP+5, LOOKUP+6, LOOKUP+8
, LOOKUP+17
>> ASUK("LOCATION" LOOKUP+7*
>> ASUK("STATION" LOOKUP+5*, LOOKUP+6*, LOOKUP+10*, LOOKUP+11*, LOOKUP+12*, LOOKUP+13*, LOOKUP+14*, LOOKUP+15*, LOOKUP+16*
>> ASUK("WAREHOUSE" LOOKUP+4*, LOOKUP+5*, LOOKUP+6*, LOOKUP+9
DIR ASUAUARE+9!
DIR(0 ASUAUARE+9*
>> DIROUT ASUAUARE+10
>> DTOUT ASUAUARE+10
>> DUOUT ASUAUARE+10
DUZ(2 LOOKUP+2, LOOKUP+3, LOOKUP+7, LOOKUP+8
U ASUAUARE+3, ASUAUARE+10, LOOKUP+1, LOOKUP+2, LOOKUP+3, LOOKUP+7, LOOKUP+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All