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: XBNODEL

Package: IHS VA Utilities

Routine: XBNODEL


Information

XBNODEL ; IHS/ADC/GTH - PREVENT USER FROM DELETING ENTRIES ; [ 02/07/97 3:02 PM ]

Source Information

Source file <XBNODEL.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS VA Utilities 2 $$DIR^XBDIR  ^XBDSET  
Kernel 1 ^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
P2ERR ;
PROCESS ;
EOJ ;
START ;
ASK ;

External References

Name Field # of Occurrence
^%ZIS START+3
$$DIR^XBDIR ASK+1
^XBDSET START+6

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: !!,"^XBNODEL - This program sets FileMan dictionaries so users cannot delete",!," entries."
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,@("$P(^DIC("_XBNDFILE_",0),U,1)")," is already protected."
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !,@("$P(^DIC("_XBNDFILE_",0),U,1)"),$S(XBNDASK:"..OK? Y// ",1:"")
  • Line Location: PROCESS+3
Function Call: READ
  • Timeout: $G(DTIME,999)
  • Variable: XBNDANS
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: " Done"
  • Line Location: P2+2
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+7, ASK+4, EOJ+1!

Label References

Name Line Occurrences
EOJ START+7, ASK+5
P2 P2+1
P2ERR P2+1
PROCESS ASK+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BS EOJ+3!
DTIME P2+1
DUZ(0 START+1
FF EOJ+3!
>> IOBS P2ERR+2
>> IOP START+2*
RM EOJ+3!
SL EOJ+3!
SUB EOJ+3!
U START+2*
XBNDANS PROCESS+1*, P2+1*, P2+2, P2ERR+2, EOJ+2!
XBNDASK ASK+1*, PROCESS+3, P2+1, EOJ+2!
XBNDFILE ASK+3*, ASK+4*, PROCESS+2, PROCESS+3, P2+2, EOJ+2!
XBNDI P2ERR+2*, EOJ+2!
XBNDL ASK+4*, EOJ+2!
XY EOJ+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All