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

Package: Utilities

Routine: AUDICV


Information

AUDICV ;SET DICTIONARY VERSION NUMBERS [ 03/11/88 10:12 AM ]

Source Information

Source file <AUDICV.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
GETDICS ; GET SET OF DICTIONARIES
P2ERR
SHOW ; SHOW CURRENT VERSION NUMBERS
PROCESS ;
EOJ ;
HIGH ; SAVE HIGH VERSION NUMBER
ASK
VER
CHANGE ; CHANGE VERSION NUMBERS

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This program sets FileMan dictionary version numbers."
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,$P(^DIC(AUDICVFL,0),U,1),$S($D(^DD(AUDICVFL,0,"VR")):"..Current version is "_^("VR"),1:"..No version")
  • Line Location: SHOW+1
Function Call: READ
  • Timeout: AUDICVASK=""
  • Variable: AUDICVASK S
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: VER+2
Function Call: WRITE
  • Prompt: !,"One or more selected files already has a version number greater than ",AUDICVVR,*7
  • Line Location: VER+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+1
Function Call: WRITE
  • Prompt: !,$P(^DIC(AUDICVFL,0),U,1),$S($D(^DD(AUDICVFL,0,"VR")):"..Current version is "_^("VR"),1:"..No version"),$S(AUDICVASK:"..OK? Y// ",1:"")
  • Line Location: PROCESS+2
Function Call: READ
  • Timeout: AUDICVANS=""
  • Variable: AUDICVANS S
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: " Changed to ",AUDICVVR
  • 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)
^DD( SHOW+1, HIGH+1, PROCESS+2, P2+1*
^DIC - [#1] SHOW+1, PROCESS+2
^UTILITY("AUDSET" GETDICS+2, SHOW+1, CHANGE+2, EOJ+1!

Label References

Name Line Occurrences
ASK BEGIN+7, ASK
CHANGE BEGIN+11
EOJ BEGIN+5, BEGIN+8, BEGIN+10, BEGIN+12
GETDICS BEGIN+4
HIGH SHOW+1
P2 P2
P2ERR P2
PROCESS CHANGE+2
SHOW BEGIN+6
VER BEGIN+9, VER+2, VER+3

Naked Globals

Name Field # of Occurrence
^("VR" SHOW+1, HIGH+1, PROCESS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUDICVANS PROCESS+1*, P2*, P2+1, P2ERR, EOJ+2!
AUDICVASK ASK*, ASK+1, ASK+2*, PROCESS+2, P2, EOJ+2!
AUDICVFL SHOW+1*, HIGH+1, CHANGE+2*, PROCESS+2, P2+1, EOJ+2!
AUDICVHI BEGIN+3*, HIGH+1*, VER+3, EOJ+2!
AUDICVI P2ERR*, EOJ+2!
AUDICVL SHOW+1*, CHANGE+2*, EOJ+2!
AUDICVQF BEGIN+3*, BEGIN+5, BEGIN+8, BEGIN+10, GETDICS+2*, ASK+1*, VER+1*, EOJ+2!
AUDICVVR VER*, VER+1, VER+2, VER+3, P2+1, EOJ+2!
BS P2ERR, EOJ+3!
DUZ(0 BEGIN*
FF EOJ+3!
RM EOJ+3!
SL EOJ+3!
SUB EOJ+3!
U BEGIN*, SHOW+1, PROCESS+2
XY EOJ+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All