©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
DICL2 ;SEA/TOAD,SF/TKW-VA FileMan: Lookup: Lister, Part 3 ;12/13/99 09:17 [ 04/02/2003 8:25 AM ]
Source file <DICL2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ERR^DICF4 IDS^DICU2 $$VMINUS9^DIEFU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| S3 | ; Additional screening for using an alternate index for loop through file.
|
|
| S2 | ; execute any screen on transformed lookup values
|
|
| S1 | ; entries tagged for archiving, or missing the .01 or already on
; the list should be screened out. |
|
| SCREEN(DIFILE,DIEN,DIFLAGS,DIFIEN,DISCREEN,DINDEX,DI0NODE) | ;
|
|
| S5 | ||
| S4 | ; Execute Screen parameter, whole file screen.
|
|
| A1 | ; if we're doing the final pass (just looking to see if there are any
; more entries), we don't actually add it to the list, just note what ; we found and quit |
|
| A3 | ; increment (or decrement) the output list subscript
|
|
| A2 | ; increment the number found; if it's the max, we flag to make the
; next pass a final just looking pass |
|
| A4 | ; output the specified values of the record
|
|
| ACCEPT(DIFILE,DIEN,DIFLAGS,DIFIEN,DINDEX,DIDENT,DILIST,DI0NODE) | ;
; accept an entry into the output list |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | S4+2~ |
| D | S2+6~*, S3+2~, S3+5*, S4+2~* |
| DA | A3+3~* |
| DI0NODE | SCREEN~, S1+4, S1+7, ACCEPT~, A4+3, A4+8 |
| DIC | S4+3~* |
| DIC(0 | S4+4*, S4+5* |
| DICONTXT | S5+5~, S5+6*, S5+7 |
| DIDENT | ACCEPT~, A4+3 |
| DIDENT( | A1+4, A1+5*, A1+6*, A1+10, A1+12!, A1+14*, A1+15*, A2+3*, A2+4, A2+5* , A2+8*, A2+9*, A2+11*, A2+12*, A3+2, A4+7 |
| DIEN | SCREEN~, S1+3, S1+6, S4+6, S4+7, S4+8, S4+9, S5+7, ACCEPT~, A2+12 , A3+3, A4+3, A4+6 |
| >> DIERR | S5+3 |
| DIFIEN | SCREEN~, S1+3, S4+7, ACCEPT~, A4+3 |
| DIFILE | SCREEN~, S1+3, S1+6, S4+3, S4+8, S4+11~, S5+7, ACCEPT~, A4+3, A4+6 |
| DIFILE( | S1+6, S4+3, S4+8, A4+6 |
| DIFLAGS | SCREEN~, S1+5, S1+6, S2+3, S4+4, S4+5, S4+9, ACCEPT~, A1+7, A2+6 , A3+2, A4+2, A4+3, A4+5, A4+6, A4+7 |
| DILIST | S1+7, ACCEPT~, A4+3, A4+7, A4+8 |
| DILIST("ORDER" | A3+2*, A4+3 |
| DINDEX | SCREEN~, S2+6, S4+2, ACCEPT~, A4+3 |
| DINDEX( | S2+4, S2+6, A1+10, A2+8, A2+9 |
| DINDEX("#" | S2+3, A1+9, A1+12, A1+13, A1+14, A2+7 |
| DINDEX("MAXSUB" | S1+7, A4+8 |
| DINDEX("ROOTCNG" | A2+9 |
| DINDEX("WAY" | A3+2 |
| >> DINDEX0(1 | A2+9 |
| DIPART | S3+2~, S3+6* |
| DIREC | S1+5~, S1+6*, S1+7*, A4+6~*, A4+7, A4+8 |
| DISAME | A1+8~*, A1+9, A1+11*, A1+13, A1+14 |
| DISCR | S2+10~, S3+1*, S3+3, S3+4, S3+6, S3+7, S4+1*, S4+12, S5+6 |
| DISCR2 | S2+4~*, S2+5, S2+7 |
| DISCREEN | SCREEN~ |
| DISCREEN( | S2+5, S2+7, S4+1, S4+12 |
| DISCREEN("VAL" | S3+4, S3+6 |
| DISCREEN("X" | S3+1, S3+3, S3+7 |
| DISKIP | S2+2~*, S2+3, S2+7*, S2+9, S3+1, S3+3*, S3+4, S3+5*, S3+8*, S3+10 , S4+1, S4+12*, S5+4*, S5+8 |
| DISUB | S2+3~*, S2+4, S2+5, S2+6, S2+7, S3+2~, S3+4*, S3+6, S3+7 |
| DIVAL | S2+6~, S3+2~, S3+3, S3+6 |
| DIXV | S4+11~ |
| DIY | S4+11~ |
| DIYX | S4+11~ |
| I | S4+9~*, A1+8~, A1+9*, A1+10, A1+11, A1+12*, A1+14*, A2+7~*, A2+8, A2+9 |
| U | S1+4, S1+6, S1+7, S4+8, A4+6, A4+8 |
| X | S3+2~, S3+7*, S4+8~* |
| Y | S4+6~* |
| Y1 | S4+7~* |