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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XBDINUM

Package: IHS VA Utilities

Routine: XBDINUM


Information

XBDINUM ; IHS/ADC/GTH - CONVERTS NON-DINUM FILE TO DINUM FILE ; [ 02/07/97 3:02 PM ]

Source Information

Source file <XBDINUM.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^DIC  IX1^DIK  
IHS VA Utilities 1 ^XBGXFR  

Entry Points

Name Comments DBIA/ICR reference
START ;
X1 ;
EOJ ;

External References

Name Field # of Occurrence
^DIC START+4
IX1^DIK START+28
^XBGXFR START+25, X1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This program sets the DFNs of a DINUM file appropriately.",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"Corrupted ^DIC!",!,"No ""GL"" node in zeroth node of file ",DIC,"."
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!,XBDIGBL,"0) does not exist."
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!,"File ",DIC," has no entries."
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !!,"Corrupted ^DD!"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !!,"File ",DIC," is not a DINUM file."
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!,"Global ",$E(XBDIGBL,1,$L(XBDIGBL)-1)," now renumbered and stored in ^UTILITY(""XBDINUM"",",$J,!," High DFN=",XBDI3," Number of entries=",XBDI4
  • Line Location: START+19
Function Call: WRITE
  • Prompt: !!,"Duplicate entries found. Stored in ^UTILITY(""XBDIDUP"",",$J,!," Eliminate duplicates and rerun this job!"
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !!,XBDIX," has been killed! Now being recreated."
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !!,"File now being RE-INDEXED!",!
  • Line Location: START+26
Function Call: WRITE
  • Prompt: "."
  • Line Location: START+28
Routine Call
  • DIC
  • Line Location:
    • START+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( START+12, START+13
^DIC - [#1] START+7, START+8
^UTILITY("XBDIDUP" START+14!, START+20
^UTILITY("XBDINUM" START+14!, START+18, X1+4, EOJ+1!

Label References

Name Line Occurrences
EOJ START+20, START+29
X1 START+17

Naked Globals

Name Field # of Occurrence
^(0 START+18*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA START+28*
>> DIC START+3*, START+6*, START+7, START+8, START+11, START+12, START+13
>> DIC(0 START+3*
>> DIK START+27*
>> FROM START+24*, X1+1*
>> TALK START+24*, X1+6*
>> TO START+24*, X1+3, X1+4*, X1+5
U START+1*, START+11, START+18
XBDI3 START+15*, START+18, START+19, X1+3*, EOJ+1!
XBDI4 START+15*, START+18, START+19, X1+5*, EOJ+1!
XBDIDFN START+15*, START+17, X1+1, X1+2, EOJ+1!
XBDIGBL START+8*, START+9, START+10, START+11, START+16, START+17, START+19, START+21, START+24, START+27
, START+28, X1+1, X1+2, EOJ+1!
XBDIL START+17*, START+28*, EOJ+1!
XBDIX START+10, START+18*, START+21*, START+22, START+23, START+27*, START+28, EOJ+1!
>> Y START+5, START+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All