©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
DICLIX ;SEA/TOAD,SF/TKW-FileMan: Lister, Search Compound Indexes ;6/5/00 10:13 [ 04/02/2003 8:25 AM ]
Source file <DICLIX.m>
| Package | Total | Caller Graph |
|---|---|---|
| VA Fileman | 4 | DICL1 DICL10 DICL3 DICLIX1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TRY | ; Apply screens to entry. If passed, add entry to output.
|
|
| LOWSUB | ; Find next subscript value from multiple pointed-to files
|
|
| CHK | ; See whether we have a match or are at the end of the subscripts.
|
|
| WALK(DIFLAGS,DINDEX,DIDENT,DIFILE,DIEN,DIFIEN,DISCREEN,DILIST,DINDEX0,DIXV,DIC) | ;
|
|
| MATCH | ; No more subscripts or partial matches, or past our TO value?
|
|
| CLEAN | ; clean up after loop, exit
|
|
| IEN | ||
| DATA | ||
| PREP | ; prepare to loop through subscript
|
|
| LOOP | ; loop through subscripts
|
| Name | Line Occurrences |
|---|---|
| CHK | DATA+5 |
| LOWSUB | DATA+3 |
| MATCH | CHK+1, CHK+3 |
| TRY | IEN+11 |
| WALK | DATA+10 |
| Name | Field # of Occurrence |
|---|---|
| ^( | IEN+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DI0NODE | TRY+7~*, TRY+8, TRY+9 |
| DIC | WALK~, DATA+10, TRY+17 |
| >> DICQ | TRY+17 |
| >> DICQ(0 | TRY+16* |
| DIDENT | WALK~, DATA+9, DATA+10, TRY+4, TRY+9 |
| DIDENT( | TRY+12, TRY+13, TRY+16, TRY+19, TRY+20* |
| DIDONE | LOOP+2~*, DATA+6*, DATA+7, DATA+12*, IEN+2*, IEN+8, IEN+10, CHK+1, CHK+2*, MATCH+2* , MATCH+4, MATCH+5, TRY+5*, TRY+13*, TRY+18* |
| DIEN | WALK~, DATA+10, TRY+1*, TRY+4, TRY+7, TRY+8, TRY+9 |
| >> DIERR | LOOP+2, DATA+12, TRY+11 |
| DIFIEN | WALK~, DATA+10, TRY+4, TRY+8, TRY+9 |
| DIFILE | WALK~, DATA+10, LOWSUB+16*, TRY+4, TRY+7, TRY+8, TRY+9, TRY+17 |
| DIFILE( | TRY+7 |
| DIFILE("STACK" | LOWSUB+1, LOWSUB+12, LOWSUB+13, LOWSUB+14*, LOWSUB+16, TRY+4 |
| DIFILE("STACKEND" | LOWSUB+3!, LOWSUB+7, LOWSUB+14 |
| DIFLAGS | WALK~, DATA+9, DATA+10, IEN+6, IEN+10, MATCH+4, MATCH+5, TRY+2, TRY+4, TRY+6 , TRY+8, TRY+9, TRY+15 |
| DILIST | WALK~, DATA+10, TRY+4, TRY+9 |
| DILIST("ORDER" | TRY+19* |
| DILOWNO | LOWSUB+1~*, LOWSUB+2, LOWSUB+3, LOWSUB+4*, LOWSUB+6, LOWSUB+10*, LOWSUB+12, LOWSUB+14, LOWSUB+17 |
| DILOWVAL | LOWSUB+1~*, LOWSUB+2, LOWSUB+4*, LOWSUB+7, LOWSUB+8, LOWSUB+9, LOWSUB+10*, LOWSUB+15 |
| DIMNEM | IEN+3~, IEN+7* |
| DIMORE | PREP+4~*, CHK+1, CHK+2 |
| DINDEX | WALK~, DATA+9, DATA+10, IEN+3, IEN+10, CHK+2, MATCH+5, LOWSUB+17*, TRY+4, TRY+8 , TRY+9, TRY+17 |
| DINDEX( | PREP+3, PREP+4, PREP+5, PREP+6, LOOP+3, DATA+5, DATA+8*, IEN+4, IEN+5, IEN+8 , IEN+9, CLEAN+1*, CLEAN+2*, MATCH+3, MATCH+5, TRY+1* |
| DINDEX("#" | DATA+2 |
| DINDEX("AT" | PREP+2, DATA+8*, DATA+11* |
| DINDEX("DONE" | DATA+12, CHK+1, TRY+5*, TRY+11, TRY+13*, TRY+18* |
| DINDEX("ROOTCNG" | DATA+9 |
| DINDEX("WAY" | TRY+19 |
| DINDEX(1 | LOWSUB+8, LOWSUB+9, TRY+3 |
| DINDEX0 | WALK~, DATA+10, MATCH+4, TRY+4 |
| DINDEX0("DONE" | TRY+5 |
| DINDEX0(1 | TRY+3* |
| DIPART | PREP+4~*, CHK+2, MATCH+2 |
| DISCREEN | WALK~, DATA+9, DATA+10, TRY+4, TRY+8 |
| DISKIP | LOOP+2~, DATA+4*, DATA+5 |
| DISKIPMN | IEN+3~*, IEN+6* |
| DISUB | PREP+2~*, PREP+3, PREP+4, PREP+5, PREP+6, LOOP+3, DATA+2, DATA+3, DATA+5, DATA+8 , DATA+9, DATA+11, IEN+4, IEN+5, IEN+8, IEN+9, IEN+10, CLEAN+1, CLEAN+2, CHK+2 , MATCH+3, MATCH+4, MATCH+5, TRY+1 |
| DIVAL | PREP+3~*, PREP+5, PREP+6*, LOOP+3*, DATA+5, DATA+6, DATA+8, IEN+2, IEN+4, IEN+5 , IEN+10, CHK+2, MATCH+1, MATCH+2, MATCH+4, MATCH+5, LOWSUB+1, LOWSUB+13, LOWSUB+15*, TRY+1 |
| DIXV | WALK~, LOWSUB+2! |
| DIXV( | LOWSUB+3!, LOWSUB+4, LOWSUB+8, LOWSUB+9, LOWSUB+10, LOWSUB+13*, LOWSUB+17 |
| DIXV(0 | DATA+3, LOWSUB+4 |
| DTOUT | TRY+16!, TRY+18 |
| DUOUT | TRY+16!, TRY+18 |
| I | LOWSUB+1~, LOWSUB+7*, LOWSUB+8, LOWSUB+9, LOWSUB+10 |
| J | LOWSUB+6~*, LOWSUB+7 |
| U | LOWSUB+14, LOWSUB+16 |