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

Package: Utilities

Routine: AUNODEL


Information

AUNODEL ;PREVENT USER FROM DELETING ENTRIES [ 06/05/87 2:39 PM ]

Source Information

Source file <AUNODEL.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 CURRENT^%ZIS  
Uncategorized 1 ^%AUDSET  

Entry Points

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

External References

Name Field # of Occurrence
^%AUDSET BEGIN+4
CURRENT^%ZIS BEGIN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This program sets FileMan dictionaries so users cannot delete"
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"entries. Files are set by a range of dictionary numbers.",!!
  • Line Location: BEGIN+2
Function Call: READ
  • Timeout: AUNDASK=""
  • Variable: AUNDASK S
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,@("$P(^DIC("_AUNDFILE_",0),U,1)")," is already protected."
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !,@("$P(^DIC("_AUNDFILE_",0),U,1)"),$S(AUNDASK:"..OK? Y// ",1:"")
  • Line Location: PROCESS+3
Function Call: READ
  • Timeout: AUNDANS=""
  • Variable: AUNDANS S
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: " Done"
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: P2ERR+0
Function Call: WRITE
  • Prompt: @BS," ",@BS
  • Line Location: P2ERR+0
Function Call: WRITE
  • Prompt: !!,"Bye",!!
  • Line Location: EOJ+4
Routine Call
  • %ZIS
  • Line Location:
    • BEGIN

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("AUDSET" BEGIN+5, ASK+3, EOJ+1!

Label References

Name Line Occurrences
ASK ASK
EOJ BEGIN+5, ASK+4
P2 P2
P2ERR P2
PROCESS ASK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUNDANS PROCESS+1*, P2*, P2+1, P2ERR, EOJ+2!
AUNDASK ASK*, ASK+2*, PROCESS+3, P2, EOJ+2!
AUNDFILE ASK+3*, PROCESS+2, PROCESS+3, P2+1, EOJ+2!
AUNDI P2ERR*, EOJ+2!
AUNDL ASK+3*, EOJ+2!
BS P2ERR, EOJ+3!
DUZ(0 BEGIN*
FF EOJ+3!
RM EOJ+3!
SL EOJ+3!
SUB EOJ+3!
U BEGIN*
XY EOJ+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All