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

Package: IHS VA Utilities

Routine: XBCFXREF


Information

XBCFXREF ; IHS/ADC/GTH - CHECK/FIX XREFS ; [ 02/07/97 3:02 PM ]

Source Information

Source file <XBCFXREF.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 4 $$DIR^XBDIR  ^XBDSET  ^XBGXREFS  ^XBKVAR  
IHS VA %Utilities 1 $$MSMZR^ZIBNSSV  

Entry Points

Name Comments DBIA/ICR reference
FILES ; CHECK FILES
XREF ; CHECK XREFS ON FIELD
XREFIELD ; CHECK EACH FIELD CREATING XREFS
EOJ ;
XREFILE ; CHECK EACH FILE/FIELD CREATING XREFS
START ;
INIT ;
FILE ; CHECK ONE FILE
CHKXREF ; CHECK ONE XREF
SAVE ; SAVE XREF TO CHECK
BACKUP ; BACKUP TREE (CALLED RECURSIVELY)
CHECK ; CHECK DATA GLOBAL FOR XREFS

External References

Name Field # of Occurrence
$$DIR^XBDIR INIT+5
^XBDSET INIT+7
^XBGXREFS XREF+3
^XBKVAR INIT+2
$$MSMZR^ZIBNSSV CHKXREF+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This routine will check the xrefs for the files you select and display",!," all errors found. You may also delete the bad xrefs."
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !!,"You should probably capture the output to an aux printer."
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !!,"Checking the ",$P(^DIC(XBCFXREF("FILE"),0),U,1)," (",XBCFXREF("FILE"),") file"
  • Line Location: FILE+1
Function Call: WRITE
  • Prompt: !?2,$P(X,U,2)," doesn't use DA or D0. Skipping."
  • Line Location: XREF+11
Function Call: WRITE
  • Prompt: !!," Checking the following xrefs:"
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>73
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: " ",XBCFXREF("TBL2",I)
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !!," Checking the """,XBCFXREF("XREF"),""" xref."
  • Line Location: CHKXREF+1
Function Call: WRITE
  • Prompt: !?4,$$MSMZR^ZIBNSSV," does not exist.",!?6,"XREF node=",X
  • Line Location: CHKXREF+9
Function Call: WRITE
  • Prompt: " deleted."
  • Line Location: CHKXREF+10
Function Call: WRITE
  • Prompt: !!,"All done",!
  • Line Location: EOJ+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( FILE+4, XREFILE+3, BACKUP+1, BACKUP+2, BACKUP+3
^DIC - [#1] FILE+1, CHKXREF+4
^UTILITY("XBDSET" INIT+8, FILES+2, EOJ+1!

Label References

Name Line Occurrences
BACKUP XREFILE+6, BACKUP+3
CHECK FILE+8
CHKXREF CHECK+4
EOJ START+2, START+4
FILE FILES+2
FILES START+3
INIT START+1
SAVE XREF+13, XREF+14, XREF+15
XREF XREFIELD+1
XREFIELD XREFILE+1
XREFILE FILE+7

Naked Globals

Name Field # of Occurrence
^( FILE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIRUT INIT+6, EOJ+3!
DTOUT EOJ+3!
DUOUT EOJ+3!
FIELD XREFILE+4~, BACKUP+2*
G XREF+1~, CHKXREF+2~, CHKXREF+4*, CHKXREF+8
I CHECK+2~, CHECK+3*
L XREF+1~, CHKXREF+2~, CHKXREF+4*, CHKXREF+5
LVL XREFILE+4~, XREFILE+5*, XREFILE+7, BACKUP+3*
PARENT XREFILE+4~, XREFILE+5*, XREFILE+7, BACKUP+1*, BACKUP+2, BACKUP+3
R CHKXREF+2~, CHKXREF+4*, CHKXREF+5
S XREF+1~, XREF+15*
SUBFILE XREFILE+4~, XREFILE+5*, BACKUP+1, BACKUP+2, BACKUP+3*
U FILE+1, XREF+5, XREF+6, XREF+7, XREF+11, SAVE+2
V CHKXREF+2~
X XREF+1~, XREF+4*, XREF+5, XREF+6, XREF+7, XREF+11, SAVE+2, CHKXREF+2~, CHKXREF+3*, CHKXREF+4*
, CHKXREF+5*, CHKXREF+6, CHKXREF+7, CHKXREF+9, CHKXREF+10
XBCFXREF EOJ+2!
XBCFXREF("C" FILES+1*, SAVE+1*, SAVE+2, CHECK+4*
XBCFXREF("DF" INIT+5*, CHKXREF+10
XBCFXREF("FILE" FILES+2*, FILE+1, FILE+4, CHKXREF+4
XBCFXREF("PARENT" XREFILE+2*, XREFILE+7*, XREF+14, XREF+15
XBCFXREF("QFLG" START+2, INIT+1*, INIT+6*, INIT+8*
XBCFXREF("TBL" FILE+2!, FILE+5*, FILE+7!, XREFILE+1, XREFIELD+1, XREF+7
XBCFXREF("TBL2" FILE+8!, SAVE+2*, CHECK+3, CHECK+4
XBCFXREF("TOP DA" , XREFILE+2*, XREFILE+7*, XREF+15
XBCFXREF("XN" XREF+4*, XREF+8, XREF+9
XBCFXREF("XRE F FIELD" , FILE+4*, FILE+5, XREFIELD+1*, XREF+3, XREF+4, XREF+7, XREF+8, XREF+9, F FILE"
, FILE+4*, FILE+5, XREFILE+1*, XREFILE+3, XREFILE+5, XREFIELD+1, XREF+3, XREF+7
XBCFXREF("XREF" FILE+3*, FILE+4*, FILE+5, CHECK+4*, CHKXREF+1, CHKXREF+3
XBCFXREF("XREFS" XREF+2!
XBCFXRT XREF+2!, XREF+3, XREF+17!, EOJ+2!
XBCFXRT( XREF+4, XREF+8, XREF+9
Y XREF+1~, XREF+9*, XREF+10, XREF+13, XREF+14, XREF+15, CHKXREF+2~, CHKXREF+7*, CHKXREF+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All