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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: XBPRE

Package: IHS VA Utilities

Routine: XBPRE


Information

XBPRE ; IHS/ADC/GTH - PREINIT, CHK RQMNTS, ETC. ; [ 01/22/2001 11:54 AM ]

Source Information

Source file <XBPRE.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS VA Utilities 1 $$DIR^XBDIR  
Kernel 1 STATUS^%ZISH  
VA Fileman 1 IX^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS VA Utilities 1 XBINIT  

Entry Points

Name Comments DBIA/ICR reference
SORRY ;
C(X,Y) ; Center X in field length Y/IOM/80.

External References

Name Field # of Occurrence
STATUS^%ZISH XBPRE+19, XBPRE+21
IX^DIC XBPRE+25
$$DIR^XBDIR XBPRE+31, XBPRE+36

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: XBPRE+4
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: XBPRE+6
Function Call: WRITE
  • Prompt: !!,$$C("Hello, "_$P(X,",",2)_" "_$P(X,",")),!!,$$C("Checking Environment for Version "_$P($T(+2),";",3)_" of XB/ZIB.")
  • Line Location: XBPRE+9
Function Call: WRITE
  • Prompt: !!,$$C("Need at least FileMan 20.....FileMan "_X_" Present")
  • Line Location: XBPRE+12
Function Call: WRITE
  • Prompt: !!,$$C("Need at least Kernel 7.....Kernel "_X_" Present")
  • Line Location: XBPRE+16
Function Call: WRITE
  • Prompt: !!,$$C("Need Patch 25 to Kernel 7 (^%ZISH)....."_X)
  • Line Location: XBPRE+20
Function Call: WRITE
  • Prompt: !!,*7,*7,$$C("You Have More Than One Entry In The"),!,$$C("PACKAGE File with an ""XB"" prefix.")
  • Line Location: XBPRE+27
Function Call: WRITE
  • Prompt: !,$$C("One entry needs to be deleted.")
  • Line Location: XBPRE+28
Function Call: WRITE
  • Prompt: !,$$C("FIX IT! Before Proceeding."),!!,*7,*7,*7
  • Line Location: XBPRE+29
Function Call: WRITE
  • Prompt: !!,$$C("No 'XB' dups in PACKAGE file")
  • Line Location: XBPRE+33
Function Call: WRITE
  • Prompt: !!,$$C("ENVIRONMENT OK.")
  • Line Location: XBPRE+35
Function Call: WRITE
  • Prompt: *7,!,$$C("Sorry....")
  • Line Location: SORRY+2
Routine Call
  • DIC
  • Line Location:
    • XBPRE+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("VERSION" XBPRE+11
^DIC(9.4 - [#9.4] XBPRE+15, XBPRE+26
^VA(200 - [#200] XBPRE+8

Label References

Name Line Occurrences
$$C XBPRE+9, XBPRE+12, XBPRE+16, XBPRE+20, XBPRE+27, XBPRE+28, XBPRE+29, XBPRE+33, XBPRE+35, SORRY+2
SORRY XBPRE+4, XBPRE+6, XBPRE+13, XBPRE+17, XBPRE+21, XBPRE+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D XBPRE+24*
DA XBPRE+23~
DIC XBPRE+23~, XBPRE+24*
DIC(0 XBPRE+24*
DIFQ XBPRE+36!, SORRY+1!
DUZ XBPRE+4, XBPRE+8
DUZ(0 XBPRE+6
IOM C+1
U XBPRE+8
X XBPRE+8*, XBPRE+9, XBPRE+11*, XBPRE+12, XBPRE+13, XBPRE+15*, XBPRE+16, XBPRE+17, XBPRE+19*, XBPRE+20
, XBPRE+24*, C~, C+1
>> XPDDIQ("XPZ1" XBPRE+39*
>> XPDDIQ("XPZ2" XBPRE+39*
>> XPDENV XBPRE+39
Y XBPRE+26, C~, C+1

Marked Items

Name Field # of Occurrence
$T( XBPRE+9
$T(STATUS^%ZISH XBPRE+19, XBPRE+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All