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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: XBSITE

Package: IHS VA Utilities

Routine: XBSITE


Information

XBSITE ; IHS/ADC/GTH - SET "DUZ(2)" ; [ 02/07/97 3:02 PM ]

Source Information

Source file <XBSITE.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
IHS Patient Registration 5 AG  AGADDR  AGBAN  AGCVT3  AGSAMPG  
Contract Health Management Information System 1 ACHSYROR  
IHS Accounts Receivable 1 BAR PARENT FACILITY SELECTION  

Entry Points

Name Comments DBIA/ICR reference
SET ;PEP - Request Set of DUZ(2) from applications.
ERRMSG2 ;
B1 ;
L1 ;
ASK ;
ERRMSG ;
ERRMSG1 ;

External References

Name Field # of Occurrence
^DIC ASK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: !,*7,"The default facility remains ",DIC("B"),!!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,*7,"The default facility has been set to ",$P(^DIC(4,DUZ(2),0),"^",1),!!
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !!,"USER not set in DUZ - use KERNEL!"
  • Line Location: ERRMSG+1
Function Call: WRITE
  • Prompt: !!,"No Divisions (facilities) set in USER file!"
  • Line Location: ERRMSG1+1
Function Call: WRITE
  • Prompt: !!,"That facility is not included in your Divisions field in the USER file!"
  • Line Location: ERRMSG2+1
Routine Call
  • DIC
  • Line Location:
    • ASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DIC(3 - [#3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTSITE(1 ASK+7
^DIC(3 - [#3] L1+3, L1+4
^DIC(4 - [#4] L1+5, ASK+7
^VA(200 - [#200] L1+3, L1+4, ASK+2

Label References

Name Line Occurrences
ASK B1+2, ASK+4
B1 L1+5
ERRMSG L1+2, L1+3
ERRMSG1 L1+4
L1 SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA B1+4!
DIC L1+1!, ASK+1*, ASK+2*
DIC("A" B1+4!, ASK+1*
DIC("B" L1+5*, L1+6*, B1+4!, ASK+5
DIC(0 ASK+1*
DR B1+4!
DUZ L1+2, L1+3, L1+4, ASK+2
DUZ(2 L1+5, B1+3, ASK+6*, ASK+7*, ASK+8
>> SITENUM B1+3*, ASK+8*
U ASK+7
>> X ASK+4, ASK+5
Y B1+4!, ASK+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All