DICUIX1 ;SF/TOAD/TKW-FileMan: Lookup Tools, Indexes (called by DICUIX) ;4/13/00 13:40 [ 04/02/2003 8:25 AM ]
Source file <DICUIX1.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | FOLLOW^DICL3 ERR^DICU1 GETTMP^DICUIX1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
GETTMP(DITEMP,DISUB) | ; Return name of unique entry in ^TMP global.
|
|
GET(DITOP,DIFILE,DIFIELD,DIDEF,DICODE) | ;
; get the definition and fetch code for a field |
|
G5 | ; build field fetch code (piece or extract) & quit
|
|
G4 | ; get field's storage location, handle ?, build node fetch code
|
|
G3 | ; handle computed fields
|
|
G2 | ; piece out the fields data type, & handle multiples and WPs
|
|
G1 | ; handle .001 fields, fetch field definition, & handle undefineds
|
|
G30 | ; Handle whole file x-refs
|
|
TMPIDX(DISUB,DITEMP,DITEMP2,DINDEX) | ; Set data to build temporary index on Lister call with Pointer/VP in index.
|
|
F2 | ; build fetch code from node expression
|
|
F1 | ; handle .01 & computeds, build node expression
|
|
FIELD(DIFILE,DIFIELD,DINDEX) | ;
|
|
BLDB(DIROOT,DITEMP) | ; Build temporary "B" index on file
|
|
TMPB(DITEMP,DIFILE) | ; Set place for temporary "B" index on file
|
|
CHKP(DIFILE,DINDEX,DINUMBER,DIFRPRT,DISCREEN,DICQ1) | ; Check whether to build temporary index on Lister call with Pointer/VP in first subscript of index.
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | G1+3, G2+4, CHKP+10, CHKP+11 |
^DIC - [#1] | CHKP+6 |
Name | Line Occurrences |
---|---|
GETTMP | TMPB+2 |
Name | Field # of Occurrence |
---|---|
^( | CHKP+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
D | CHKP+1~, CHKP+8*, CHKP+10*, CHKP+11*, CHKP+12*, CHKP+13 |
DICODE | GET~, G1+2*, G1+3*, G3+3*, G30+1*, G4+5*, G5+2*, G5+6*, F2+2~, F2+3* , F2+7*, F2+8 |
DICQ1 | CHKP~, CHKP+14, CHKP+15 |
DIDEF | GET~, G1+2*, G1+3*, G1+4, G2+2, G3+3, G3+4*, G4+2, G4+5* |
DIEFROM | G5+4~*, G5+6, F2+5~*, F2+7 |
DIENTRY | BLDB+1~*, BLDB+2*, BLDB+3, BLDB+4 |
DIETO | G5+5~*, G5+6, F2+6~*, F2+7 |
DIF | CHKP+3~*, CHKP+4 |
DIF("STACKEND" | CHKP+5 |
DIFIELD | GET~, G1+2, G1+3, G1+4, G2+6, FIELD~, F1+2 |
DIFILE | GET~, G1+3, G1+4, G2+6, G30+1, G4+6, FIELD~, TMPB~, TMPB+1, CHKP~ , CHKP+2, CHKP+3 |
DIFILE( | CHKP+2 |
DIFRPRT | CHKP~, CHKP+13, CHKP+14 |
DIKJ | GETTMP+6~, GETTMP+7* |
DIN1 | CHKP+1~, CHKP+2*, CHKP+15, CHKP+16 |
DIN2 | CHKP+1~*, CHKP+7*, CHKP+13*, CHKP+14*, CHKP+15, CHKP+16 |
DINDEX | FIELD~, TMPIDX~, CHKP~ |
DINDEX("ROOTCNG" | TMPIDX+4* |
DINDEX(1 | F1+3, CHKP+3, CHKP+4, CHKP+9 |
DINODE | G4+3~*, G4+5, G4+6*, G4+7*, G5+2, G5+6, F1+4~*, F1+6, F1+7*, F1+8* , F2+3, F2+7 |
DINUMBER | CHKP~, CHKP+13 |
DIPIECE | G4+4~*, G4+5, G5+2, G5+4, G5+5, F1+5~*, F1+6, F2+3, F2+5, F2+6 |
DIROOT | BLDB~, BLDB+2, BLDB+3 |
DISCREEN | CHKP~, CHKP+4 |
DISTORE | G4+2~*, G4+3, G4+4, F1+3~*, F1+4, F1+5 |
DISUB | GETTMP~, GETTMP+1, TMPB+1~, TMPB+2, TMPIDX~, TMPIDX+4 |
DISUB( | GETTMP+3, GETTMP+4 |
DISUB(1 | GETTMP+1*, TMPB+1* |
DISUB(2 | TMPB+1* |
DITEMP | GETTMP~, GETTMP+2*, GETTMP+5*, GETTMP+7, GETTMP+8*, TMPB~, TMPB+2, TMPB+3*, BLDB~, BLDB+1* , BLDB+4, TMPIDX~, TMPIDX+1, TMPIDX+2, TMPIDX+3* |
DITEMP2 | TMPIDX~, TMPIDX+1* |
DITOP | GET~, G30+1, G4+6 |
DITYPE | G2+2~*, G2+3, G2+4*, G2+5*, G2+6, G3+2 |
DIVALUE | BLDB+1~, BLDB+3*, BLDB+4 |
DIVPTR | CHKP+3~*, CHKP+4, CHKP+10 |
F1 | CHKP+9~*, CHKP+10, CHKP+11 |
F2 | CHKP+9~*, CHKP+10, CHKP+11 |
I | GETTMP+2~, GETTMP+3*, GETTMP+4, CHKP+1~, CHKP+5*, CHKP+10*, CHKP+11* |
J | GETTMP+6~, GETTMP+7*, GETTMP+8 |
U | G2+2, G2+4, G3+3, G3+4, G4+2, F1+3, BLDB+3, CHKP+2, CHKP+5, CHKP+7 , CHKP+10 |
X | GETTMP+4~*, GETTMP+5, CHKP+1~, CHKP+5*, CHKP+6*, CHKP+7 |