DICF4 ;SEA/TOAD,SF/TKW-VA FileMan: Finder, (pointer indexes) ;2014-12-12 12:14 PM
Source file <DICF4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POINT(DIFILE,DIFLAGS,DINDEX,DIDENT,DIEN,DIFIEN,DISCREEN,DIVALUE,DIC,DIFORCE) | ;
; PREPIX^DICF2--transform value for indexed pointer field |
|
P1 | ; Process regular pointer
|
|
NUM | ||
P2 | ; Process variable pointer
|
|
P21 | ||
P3 | ||
SETIX(DIFORCE,DINDEX,DIX,DIF) | ; If user passes list of indexes to use on pointed-to file, set up to use them.
|
|
BLDSCR(DISCR,DINEW,DIPRV,DIFL,DINDEX,DISCREEN,DIFILE) | ; Build screen to make sure entry is in pointer index.
|
|
SETDA(DIEN) | ; Return code that sets DA array to current level when pointer field is in a multiple. DA itself=DA(1).
|
|
DIC(DIC,DIEN,DIFILE,DINDEX,DIVALUE,DITARGET) | ; If we were called from ^DIC, we want to do recursive lookup there.
|
|
ERR(DIERN,DIFILE,DIIENS,DIFIELD,DI1,DI2,DI3) | ;
; error logging procedure |