DICM0 ;SF/XAK,TKW - LOOKUP WHEN INPUT MUST BE TRANSFORMED ;2/15/00 14:40
Source file <DICM0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| P | ;Pointers, called by ^DICM1
|
|
| AST | ; Process screens on pointers.
|
|
| P1 | ; Build screen to make sure selected entry is pointed-to.
|
|
| L1 | ||
| R | ||
| L2 | ||
| RETRY | ||
| BLDC(DIGBL,DIXNAM,DIXNO,DIFILEI,DIPGBL,DICODE,DICR) | ; Build screening logic to loop through compound index, making sure pointed-to file is pointed-to by entry in index
|
|
| CHKTMP(DIC,DICR,DIFILEI,DIVAR) | ; If DIC(0)["T", add check to make sure entry hasn't already been presented once before.
|
|
| SETSCR(DICODE,DICR,DIC,D,DICALL,DID,DF,DIFILEI) | ; Execute screening logic for screened pointers and var.ptrs.
|
|
| SETIX(D,DIC,DID,DF,DICR,DIFILEI) | ; If user passes list of indexes to use on pointed-to file, set up to use them.
|
|
| NO | ||
| OKTOADD(DIFILEI,DINDEX,DIFINDER) | ; Return 1 if index is OK for LAYGO.
|
