Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: DICUIX1

Package: VA FileMan

Routine: DICUIX1


Information

DICUIX1 ;SF/TOAD/TKW-FileMan: Lookup Tools, Indexes (called by DICUIX) ;4JUL2008

Source Information

Source file <DICUIX1.m>

Entry Points

Name Comments DBIA/ICR reference
GET(DITOP,DIFILE,DIFIELD,DIDEF,DICODE) ;
; get the definition and fetch code for a field
G1 ; handle .001 fields, fetch field definition, & handle undefineds
G2 ; piece out the fields data type, & handle multiples and WPs
G3 ; handle computed fields
G30 ; Handle whole file x-refs
G4 ; get field's storage location, handle ?, build node fetch code
G5 ; build field fetch code (piece or extract) & quit
FIELD(DIFILE,DIFIELD,DINDEX) ;
F1 ; handle .01 & computeds, build node expression
F2 ; build fetch code from node expression
GETTMP(DITEMP,DISUB) ; Return name of unique entry in ^TMP global.
TMPB(DITEMP,DIFILE) ; Set place for temporary "B" index on file
BLDB(DIROOT,DITEMP) ; Build temporary "B" index on file
TMPIDX(DISUB,DITEMP,DITEMP2,DINDEX) ; Set data to build temporary index on Lister call with Pointer/VP in index.
CHKP(DIFILE,DINDEX,DINUMBER,DIFRPRT,DISCREEN,DICQ1) ; Check whether to build temporary index on Lister call with Pointer/VP in first subscript of index.
Info |  Source |  Entry Points