Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DICU11

Package: VA FileMan

Routine: DICU11


Information

DICU11 ;SEA/TOAD,SF/TKW-VA FileMan: Lookup Tools, Get IDs & Index ;11/5/99 15:13

Source Information

Source file <DICU11.m>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
VA FileMan 2 DICF2  DICU1  

Entry Points

Name Comments DBIA/ICR reference
GETFORM(DIDENT,DIFORMAT,DIDS,DICOUNT) ;
; Strip E or I off specifier and set into DIFORMAT
FORMAT(DIFIELD,DICODE,DIUSEKEY,DIFORMAT,DIDEFALT,DIFLAGS) ;
; Format fetch code to return either internal or external
WRITEID(DIFILE,DIDENT,DICRSR) ;
; WRITE Identifiers Loop: add WRITE identifiers to output processor:
; for WRITE IDs we save the code as is
THROW(DIFLAGS,DIDENT,DIDS,DICRSR,DICOUNT,DIDEFALT,DINDEX,DICF2) ;
T1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( WRITEID+5, WRITEID+6, WRITEID+7

Label References

Name Line Occurrences
$$FORMAT T1+13
GETFORM T1

Naked Globals

Name Field # of Occurrence
^( WRITEID+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DICF2 THROW~, T1+16
DICODE FORMAT~, FORMAT+6*, FORMAT+7, WRITEID+4~, WRITEID+7*, WRITEID+9
DICOUNT THROW~, T1, GETFORM~, GETFORM+6, GETFORM+7*
DICRSR THROW~, T1+16, T1+17*, T1+18, T1+20, WRITEID~, WRITEID+8*, WRITEID+9, WRITEID+10
DIDEFALT THROW~, T1+1, T1+13, FORMAT~
DIDENT THROW~, T1, T1+2, T1+13, T1+21, GETFORM~, GETFORM+2, GETFORM+3, GETFORM+5, GETFORM+6*
, GETFORM+8*, GETFORM+9*, WRITEID~, WRITEID+5*, WRITEID+6*, WRITEID+7, WRITEID+9, WRITEID+10
DIDENT( T1+16*, T1+18*, T1+20*, T1+21*, WRITEID+9*, WRITEID+10*
DIDS THROW~, T1, GETFORM~, GETFORM+6*
DIEXP T1+2~, T1+4*, T1+6*, T1+8*, T1+10*, T1+11*, T1+12*, T1+13*, T1+14*, T1+16
, T1+18
DIFIELD FORMAT~, FORMAT+3*, FORMAT+6
DIFILE FORMAT+2~*, FORMAT+3*, FORMAT+6, WRITEID~, WRITEID+5, WRITEID+6, WRITEID+7
DIFIRST GETFORM+5~*, GETFORM+7
DIFLAGS THROW~, T1+5, T1+10, T1+13, T1+17, T1+20, FORMAT~, FORMAT+5, WRITEID+8, WRITEID+10
DIFORMAT T1~, T1+1*, T1+5, T1+9, T1+13, T1+16, T1+18, T1+19, GETFORM~, GETFORM+3*
, GETFORM+4, GETFORM+7*, GETFORM+10*, FORMAT~, FORMAT+4
DILENGTH GETFORM+2~*, GETFORM+3, GETFORM+5, GETFORM+6, GETFORM+8, GETFORM+9
DIMAP T1+2~, T1+19*, T1+20, T1+21
DINDEX THROW~, T1+14
DINDEX( T1+5, T1+9, T1+10, T1+11, T1+12
DINDEX("#" T1+3
DINDEX("ROOTCNG" T1+7
DISUB T1+2~, T1+3*, T1+5, T1+6, T1+9, T1+10, T1+11, T1+12, T1+16, T1+18
, T1+19, T1+21
DISUB0 T1+2~*, T1+16, T1+18
DIUSEKEY FORMAT~
F FORMAT+5~*, FORMAT+6
U T1+20, WRITEID+10
Info |  Source |  Caller Graph |  Entry Points |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All