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

Package: IHS VA Utilities

Routine: XBDICV


Information

XBDICV ; IHS/ADC/GTH - SET DICTIONARY VERSION NUMBERS ; [ 02/07/97 3:02 PM ]

Source Information

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

External References

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

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: !!,"^XBDICV - This program sets FileMan dictionary version numbers."
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,$P(^DIC(XBDICVFL,0),U,1),$S($D(^DD(XBDICVFL,0,"VR")):"..Current version is "_^("VR"),1:"..No version")
  • Line Location: SHOW+3
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+4
Function Call: WRITE
  • Prompt: *7
  • Line Location: VER+3
Function Call: WRITE
  • Prompt: !,"One or more selected files already has a version number greater than ",XBDICVVR,*7
  • Line Location: VER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+1
Function Call: WRITE
  • Prompt: !,$P(^DIC(XBDICVFL,0),U,1),$S($D(^DD(XBDICVFL,0,"VR")):"..Current version is "_^("VR"),1:"..No version"),$S(XBDICASK:"..OK? Y// ",1:"")
  • Line Location: PROCESS+2
Function Call: READ
  • Timeout: $G(DTIME,300)
  • Variable: XBDICANS
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: " Changed to ",XBDICVVR
  • 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)
^DD( SHOW+3, HIGH+1, PROCESS+2, P2+2*
^DIC - [#1] SHOW+3, PROCESS+2
^UTILITY("XBDSET" GETDICS+2, SHOW+3, CHANGE+3, EOJ+1!

Label References

Name Line Occurrences
ASK START+10, ASK+4
CHANGE START+14
EOJ START+8, START+11, START+13, START+15
GETDICS START+7
HIGH SHOW+3
P2 P2+1
P2ERR P2+1
PROCESS CHANGE+3
SHOW START+9
VER START+12, VER+3, VER+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BS EOJ+3!
DTIME ASK+2, VER+1, 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*, SHOW+3, PROCESS+2
XBDICANS PROCESS+1*, P2+1*, P2+2, P2ERR+2, EOJ+2!
XBDICASK ASK+2*, ASK+3*, ASK+4, ASK+5, ASK+6*, PROCESS+2, P2+1, EOJ+2!
XBDICVFL SHOW+2*, SHOW+3*, HIGH+1, CHANGE+2*, CHANGE+3*, PROCESS+2, P2+2, EOJ+2!
XBDICVHI START+6*, HIGH+1*, VER+4, EOJ+2!
XBDICVI P2ERR+2*, EOJ+2!
XBDICVL SHOW+3*, CHANGE+3*, EOJ+2!
XBDICVQF START+6*, START+8, START+11, START+13, GETDICS+2*, ASK+5*, VER+2*, EOJ+2!
XBDICVVR VER+1*, VER+2, VER+3, VER+4, P2+2, EOJ+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