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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: XBSAUTH

Package: IHS VA Utilities

Routine: XBSAUTH


Information

XBSAUTH ; IHS/ADC/GTH - SET AUTHORITIES ; [ 02/07/97 3:02 PM ]

Source Information

Source file <XBSAUTH.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
IHS VA Utilities 1 ^XBDSET  
Kernel 1 ^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
PRTAUTH ; PRINT DICTIONARY AUTHORITIES
P2ERR ;
ASK2 ;
PROCESS ;
GETAUTH ; GET DICTIONARY AUTHORITIES
START ;
EOJ ;
ASK ;
P2SETS ;

External References

Name Field # of Occurrence
^%ZIS START+3
^XBDSET START+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7," Insufficient FileMan access. DUZ(0) is not ""@""."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"^XBSAUTH - This program sets FileMan dictionary authorities."
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"Do you want to be asked before setting each file? (Y/N) Y// "
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,"To delete a particular authority enter '@@'",!
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !!,"Bye"
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !!,"I am going to set the following authorities:",!
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: !!,"Do you want to continue? (Y/N) N// "
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: ASK2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+7
Function Call: WRITE
  • Prompt: !,"Enter ",XBSAX," authority: "
  • Line Location: GETAUTH+1
Function Call: WRITE
  • Prompt: !,XBSAX,?6," to """,@("XBSA("""_XBSAX_""")"),""""
  • Line Location: PRTAUTH+1
Function Call: WRITE
  • Prompt: !,@("$P(^DIC("_XBSAFILE_",0),U,1)")
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !?4,"Current authorities are: "
  • Line Location: PROCESS+3
Function Call: WRITE
  • Prompt: "..OK? Y// "
  • Line Location: PROCESS+3
Function Call: WRITE
  • Prompt: ?31,XBSAX,?38,@("^("""_XBSAX_""")"),!
  • Line Location: PROCESS+4
Function Call: READ
  • Timeout: $G(DTIME,999)
  • Variable: XBSAANS
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: " Skipping"
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: *7
  • Line Location: P2ERR+1
Function Call: WRITE
  • Prompt: @IOBS," ",@IOBS
  • Line Location: P2ERR+2
Routine Call
  • %ZIS
  • Line Location:
    • START+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("XBDSET" START+6, ASK2+9, EOJ+1!

Label References

Name Line Occurrences
ASK ASK+5
ASK2 ASK2+5
EOJ ASK2+6, ASK2+10
GETAUTH ASK+10
P2 P2+1
P2ERR P2+1
P2SETS P2+2
PROCESS ASK2+9
PRTAUTH ASK+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P2ERR+2*
DTIME ASK+2, ASK2+2, P2+1
DUZ(0 START+1
>> IOBS P2ERR+2
>> IOP START+2*
U START+2*
X P2SETS+1~, P2SETS+2*
XBSA ASK+9!, EOJ+1!
XBSA( P2SETS+2
XBSAANS PROCESS+1*, P2+1*, P2+2, P2ERR+2, EOJ+1!
XBSAASK ASK+2*, ASK+3*, ASK+4*, ASK+5, ASK+6*, PROCESS+3, P2+1, EOJ+1!
XBSAF ASK+8*, ASK+11, GETAUTH+3*, EOJ+1!
XBSAFILE ASK2+8*, ASK2+9*, PROCESS+2, PROCESS+4, P2SETS+2, EOJ+1!
XBSAI EOJ+1!
XBSAL ASK2+9*, EOJ+1!
XBSAX ASK+10*, ASK+13*, ASK2+2*, ASK2+3*, ASK2+4*, ASK2+5, ASK2+6, GETAUTH+1, GETAUTH+3, PRTAUTH+1
, PROCESS+4*, EOJ+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All