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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DICU1

Package: VA FileMan

Routine: DICU1


Information

DICU1 ;SEA/TOAD,SF/TKW-VA FileMan: Lookup Tools, Get IDs & Index ;26JUNE2011

Source Information

Source file <DICU1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 BLD^DIALOG  EXPR^DICOMP  ($$FORMAT,GETFORM,THROW,WRITEID)^DICU11  GET^DICUIX1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
VA FileMan 4 DICF  DICL  DICUIX1  DILF  

Entry Points

Name Comments DBIA/ICR reference
IDENTS(DIFLAGS,DIFILE,DIDS,DIWRITE,DIDENT,DINDEX) ;
; get definition of fields to return with each entry
ID1 ; prepare to build output processor:
ID1A ; for Lister: add indexed fields to DIDENT array (to build 1 nodes)
ID2 ; decide whether to auto-include the .01 in the field list
; will come out in 1 node for Lister, in "ID" nodes for Finder
ID3 ; Process auto-included .01 field (if included) on first pass,
; Start loop to process each field from DIFIELDS parameter
; and Identifiers.
ID4
ID4A
ID4B
ID4X
ID4C
ID5
ID6 ; Write Identifiers: add to output processor
; ID Parameter: add ID parameter to output processor
BLD ; get fetch code for value
BLD1 ; set up format code and load with fetch code into DIDENT
COMP(DIGFTI) ;EXECUTE A COMPUTED FIELD! COME HERE FROM DICU2
ERR(DIERN,DIFILE,DIENS,DIFIELD,DI1) ;
ERR202
BADIX(DIDENT) ;

External References

Name Field # of Occurrence
BLD^DIALOG ERR+10
EXPR^DICOMP ID4X+3
$$FORMAT^DICU11 BLD1+3
GETFORM^DICU11 ID4B+4, ID4C+2
THROW^DICU11 ID1A+4, ID4A+4
WRITEID^DICU11 ID4B+9, ID6+4
GET^DICUIX1 BLD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( ID3+13, ID4X+7, ID5+6, ID5+10
^DD("DD" COMP+5
^TMP("DIMSG" COMP+4*

Label References

Name Line Occurrences
$$BADIX ID4A+2
BLD ID3+7, ID5+12
ERR ID5+6, ERR202
ERR202 ID4A+2, ID4B+7, ID4X+10, ID4X+11, ID5+5, ID5+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DI1 ERR~, ERR+9
DIBAD BADIX+2~*, BADIX+3*, BADIX+4
DICMX COMP+6~*
DICODE ID2+12~, BLD+1, BLD1+1, BLD1+3
DICOUNT ID1+5~*, ID1A+4, ID4+2*, ID4+3, ID4+4, ID4A+4, ID4B+4, ID4X+5, ID4C+2
DICR ID4X~
DICRSR ID1+5~*, ID1+6*, ID1A+4, ID4A+4, ID4B+9, ID4X+4*, ID4X+6, ID4X+8, ID4X+9, ID6+4
, ID6+6*, ID6+7, ID6+8, BLD+7, BLD1+5*, BLD1+6, BLD1+7, BLD1+8
DIDEF ID2+12~, BLD+1, BLD1+2
DIDEFALT ID1+7~*, ID1A+4, ID4A+4, BLD+2, BLD1+3
DIDENT IDENTS~, ID1A+3*, ID1A+4, ID1A+5*, ID2+3*, ID2+11*, ID3+8*, ID3+9, ID3+13*, ID3+14
, ID3+15, ID4+3*, ID4+4, ID4A+1, ID4A+2, ID4A+4, ID4B+2*, ID4B+3, ID4B+4, ID4B+6*
, ID4B+7, ID4B+8, ID4B+9, ID4X, ID4X+9*, ID4X+10, ID4X+11, ID4C+2, ID4C+5, ID4C+6
, ID5+2, ID5+3, ID5+4, ID5+8, ID5+10, ID6+4, ID6+6*, ID6+7, BLD+1, BLD+4
, BLD+5, BLD+9, BLD1+3, BLD1+4*, BLD1+6, BLD1+7, BLD1+8, BADIX~, BADIX+2, BADIX+3
DIDENT( ID1+6*, ID1A+3*, ID2+11*, ID4X+6*, ID4X+7*, ID4X+8*, ID6+7*, ID6+8*, BLD+7*, BLD+9*
, BLD1+6*, BLD1+7*, BLD1+8*
DIDS IDENTS~, ID1+2*, ID1+3, ID1+4, ID1A+2, ID1A+4, ID2+4, ID2+6, ID2+13, ID3+15
, ID4+3, ID4A+3, ID4A+4, ID4B+3, ID4B+4, ID4B+8, ID4C+2, ID4C+5, ID4C+6, ID5+8
DIDS("@" ID1+3*, ID1A+2, ID2+4
DIDS("FID" ID1+4*, ID3+12, ID3+15!, ID4B+5*, ID5+9, BLD+5
DIDS("WID" ID1+4*, ID4B+9!, ID6+4
DIEFROM ID2+12~
>> DIEN COMP+2
DIENS ERR~, ERR+7
DIERN ERR~, ERR+10
>> DIERR ID3+4, ID6+3, BLD+1
DIETO ID2+12~
DIFIELD ERR~, ERR+8
DIFILE IDENTS~, ID2+9, ID3+13, ID4B+9, ID4X+2~*, ID4X+3, ID5+6, ID5+10, ID6+4, BLD+1
, ERR~, ERR+6
DIFLAGS IDENTS~, ID1+6, ID1+7, ID1A+2, ID1A+4, ID2+4, ID2+5, ID4A+4, ID4X+6, ID4X+7
, ID4C+5, ID4C+6, ID6+6, ID6+8, BLD+7, BLD1+3, BLD1+5
DIFORMAT ID1+7~, ID3+5*, ID4C+2, ID5+11*, BLD+2*, BLD+6, BLD1+3, BLD1+6
DIFRMAT2 ID2+12~, ID3+14!, ID4B+4, ID5+11
>> DIGFT( ID4X+4*, ID4X+9*, COMP+3, COMP+4
DIGFTI COMP~, COMP+3, COMP+4
DILAST ID5+3~*, ID5+5, ID5+7
DILENGTH ID2+13~*, ID4+4
DINDEX IDENTS~, ID1A+4, ID4A+4
DINDEX( ID2+8, ID2+9
DINDEX("#" ID2+7
DINDEX("FLIST" ID4C+6
DINODE ID2+12~, ID5+9, ID5+10*
DIOUTI ID2+13~*, ID3+4, ID3+15*, ID4+4*
DIPE ERR+5~, ERR+10
DIPE("FIELD" ERR+8*
DIPE("FILE" ERR+6*
DIPE("IEN" ERR+7*
DIPE(1 ERR+9*
DIPIECE ID2+12~
DIPLUS ID5+2~*, ID5+3, ID5+6
DISTORE ID2+12~
DISUB ID2+7~*, ID2+8, ID2+9, BLD1+1~*, BLD1+4*, BLD1+6
DISVFILE ID4X+1~, ID4X+2*, ID4X+7
DITYPE ID2+12~, BLD1+2*, BLD1+6
DIUSEKEY ID2+3~*, ID2+5*, ID2+7*, ID2+9*, ID2+11, ID3+6, ID3+7*, ID3+10*, ID4C+5, BLD+2
, BLD+5, BLD+8, BLD1+3, BLD1+4
DIVALUE BLD+4~*, BLD+5*, BLD+6*, BLD+7, BLD+9, BLD1+1~*, BLD1+3*, BLD1+6, BLD1+7
DIWRITE IDENTS~, ID6+5, ID6+7
I COMP+1~
J COMP+1~, COMP+2*~
U ID4X+6, ID6+8, BLD+7, BLD1+2
X ID4X~*, ID4X+3, ID4X+9, COMP+1~, COMP+2*, COMP+3*, COMP+4, COMP+5*, COMP+6
Y ID4X+4, ID4X+5*, ID4X+6, ID4X+7, ID4X+8, COMP+1~, COMP+2*, COMP+5~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All