©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DICL1 ;SEA/TOAD,SF/TKW-VA FileMan: Lookup: Lister, Part 2 ;10/15/98 14:19
Source file <DICL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTR | ; if 1st indexed field is a pointer or var.ptr., and we're not doing
; a quick list, we build info for the ; pointer chain(s) to the end file(s) and do the search. |
|
| GETLIST | ; build the output list when first subscript not a ptr. or var.ptr.
|
|
| KTMPIX | ; if we've built temporary indexes, we delete them:
|
|
| SETM2 | ||
| SETMAP(DIDENT,DILIST) | ; Set map node for unpacked format
|
|
| DSPHLP | ; If we're displaying entries for online ^DIC help, display the rest
|
|
| PREP | ; set up subfile's DA array under DIEN, init how many found,
; set max, and init array of last entries returned. |
|
| KILLB(DIFILE) | ; Kill temporary "B" index on current file DIFILE or pointed-to files.
|
|
| FINAL | ; cleanup after search.
|
| Name | Line Occurrences |
|---|---|
| KILLB | KTMPIX+1 |
| SETM2 | SETMAP+2 |
| SETMAP | FINAL+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DIC | GETLIST+4, DSPHLP+4 |
| >> DICQ | DSPHLP+4 |
| >> DICQ(0 | DSPHLP+2, DSPHLP+3* |
| DIDENT | PTR+5, GETLIST+3, GETLIST+4, FINAL+11, SETMAP~ |
| DIDENT( | PREP+5*, PREP+6*, PREP+7*, PREP+8*, PREP+9*, DSPHLP+3, DSPHLP+6*, FINAL+7*, FINAL+8, FINAL+10 , FINAL+12, FINAL+13!, FINAL+14, FINAL+15*, FINAL+16*, FINAL+18, SETMAP+2, SETMAP+3, SETMAP+6!, SETMAP+9 , SETMAP+10 |
| >> DIDONE | DSPHLP+5* |
| DIEN | PREP+3~, PTR+5, GETLIST+4 |
| >> DIERR | FINAL+2 |
| >> DIFIEN | PREP+3, PTR+5, GETLIST+4 |
| DIFILE | PTR+5, GETLIST+4, DSPHLP+4, KTMPIX+1, KILLB~, KILLB+1 |
| DIFILE( | KILLB+1, KILLB+4, KILLB+5 |
| DIFILE("STACK" | KILLB+2, KILLB+4 |
| >> DIFLAGS | PTR+4, PTR+5, GETLIST+3, GETLIST+4, DSPHLP+2, FINAL+9, FINAL+10 |
| DIFROM | FINAL+18!* |
| DIHEADER | FINAL+8~*, FINAL+9 |
| DILENGTH | SETM2~* |
| DILIST | PTR+5, GETLIST+4, FINAL+2, FINAL+9, FINAL+10, FINAL+11, SETMAP~, SETMAP+12 |
| DIMAP | SETMAP+1~*, SETMAP+11*, SETMAP+12, SETM2, SETM2+1*, SETM2+2* |
| >> DINDEX | PTR+5, GETLIST+3, GETLIST+4, DSPHLP+4 |
| >> DINDEX( | KTMPIX+2 |
| >> DINDEX("#" | PREP+8 |
| >> DINDEX("DONE" | DSPHLP+5* |
| >> DINDEX("ROOTCNG" | PTR+4, GETLIST+3, KTMPIX+2 |
| >> DINDEX(1 | PTR+4 |
| >> DINUMBER | PREP+6, FINAL+7 |
| DIROOT | KILLB+1~*, KILLB+5*, KILLB+6 |
| >> DISCREEN | PTR+5, GETLIST+3, GETLIST+4 |
| DISUB | PREP+4~, PREP+8*, KTMPIX+2~* |
| DITMP | SETMAP+1~, SETMAP+2*, SETMAP+7*, SETMAP+10*, SETM2+1, SETM2+2 |
| DIVAL | PREP+4~ |
| DTOUT | DSPHLP+3!, DSPHLP+5 |
| DUOUT | DSPHLP+3!, DSPHLP+5 |
| I | FINAL+12~*, FINAL+13, FINAL+15, FINAL+16, KILLB+3~, KILLB+4*, SETMAP+1~*, SETMAP+2*, SETMAP+3, SETMAP+5 , SETMAP+6, SETMAP+8 |
| J | KILLB+3~, KILLB+4*, SETMAP+1~, SETMAP+3*, SETMAP+4, SETMAP+5, SETMAP+7, SETMAP+9*, SETMAP+10 |
| K | KILLB+3~, KILLB+4*, KILLB+5, SETMAP+1~, SETMAP+5~*, SETMAP+6, SETMAP+9*, SETMAP+10* |
| U | FINAL+8, FINAL+9, SETMAP+5 |
| X | PREP+4~ |
| Y | PREP+4~ |