©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
DICF0 ;SEA/TOAD,SF/TKW-VA FileMan: Finder, get alternate index ;2/8/00 11:11 [ 04/02/2003 8:25 AM ]
Source file <DICF0.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | XFORM^DICF1 INDEX^DICUIX GET^DICUIX1 $$EXTERNAL^DIDU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ALTIDX(DINDEX,DIFILE,DIVALUE,DISCREEN,DINUMBER) | ; Find alternate index when lookup value for first subscript is null.
|
|
| IDXOK(DINDEX,DIFILE,DIX,DIXIEN,DIVALUE) | ; Return alternate index name DIX if it has no set/kill conditions and all subscripts are fields from original index DINDEX.
|
|
| A1 | ; Find next lookup value
|
|
| A3 | ; Rearrange lookup values and for new index
|
|
| A2 | ||
| A4 | ; Build screening logic for fields whose lookup values are not on new index.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | A2+1 |
| ^DD("IX" - [#.11] | A2+5, A2+6, IDXOK+1, IDXOK+2, IDXOK+4, IDXOK+5, IDXOK+7 |
| Name | Line Occurrences |
|---|---|
| IDXOK | ALTIDX+2, A2+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | A2+1 |
| ^(2.4 | IDXOK+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DICODE | A4+11~, A4+12, A4+13, A4+14 |
| DIFIELD | A1+1~, A1+9*, A2+1, A2+5, IDXOK+3~, IDXOK+6*, IDXOK+10 |
| DIFILE | ALTIDX~, ALTIDX+2, A2+1, A2+5, A2+8, A4+12, A4+14, A4+24, IDXOK~, IDXOK+1 , IDXOK+6 |
| >> DIFLAGS | A4+22, A4+24, A4+25 |
| DINDEX | ALTIDX~, ALTIDX+1, ALTIDX+2, A2+2, A2+7, A2+8, A4+21!*, A4+24, A4+25, IDXOK~ |
| DINDEX( | A1+3, A1+9, A4+12, A4+13, A4+14, A4+17, IDXOK+10 |
| DINDEX("#" | ALTIDX+1, IDXOK+9 |
| DINDEX("OLDSUB" | A4+22* |
| DINDEX("START" | A4+22* |
| DINDEX("WAY" | ALTIDX+1, A4+21* |
| DINODE | A4+11~, A4+12 |
| DINUMBER | ALTIDX~, A4+24 |
| DIS | A3+1~, A4+23! |
| DIS( | A3+5* |
| DIS("F" | A3+2* |
| DIS("S" | A3+2* |
| DIS("VAL" | A4+2*, A4+17, A4+18, A4+19* |
| DIS("X" | A4+10*, A4+13*, A4+14* |
| DISAVJ | A4+16~*, A4+17, A4+18, A4+19 |
| DISCREEN | ALTIDX~, A4+23!*, A4+24, A4+25 |
| DISCREEN( | A3+5, A3+6!, A4+3, A4+5*, A4+7*, A4+8*, A4+10 |
| DISCREEN("F" | A3+2 |
| DISCREEN("S" | A3+2 |
| DISKIP | IDXOK+3~*, IDXOK+4*, IDXOK+8*, IDXOK+9, IDXOK+12*, IDXOK+13, IDXOK+15 |
| DISUB | A1+1~, A1+2*, A1+3, A1+4, A1+7*, A1+8*, A1+9, A2+4 |
| DITYPE | A1+1~, A1+4*, A1+7*, A1+8 |
| DITYPE( | A1+4*, A1+7, A1+8 |
| DIV | A3+1~, A4+23! |
| DIV( | A3+5* |
| DIVALUE | ALTIDX~, A2+8, A4+23!*, A4+24, A4+25, IDXOK~ |
| DIVALUE( | A1+2, A3+4, A3+5, A3+6!, A4+1, A4+2, IDXOK+11 |
| DIVALUE(0 | IDXOK+3, IDXOK+8 |
| DIX | ALTIDX+1~*, ALTIDX+2, A1+6*, A1+7, A2+1, A2+2*, A2+3*, A2+4, A2+5, A2+6* , A2+7*, A2+8, A2+11, A4+21, A4+22, IDXOK~, IDXOK+1*, IDXOK+2*, IDXOK+15* |
| DIX( | A3+3, IDXOK+12* |
| DIX("#" | A2+4*, A3+3, IDXOK+3*, IDXOK+13* |
| DIX("OLDSUB" | ALTIDX+1*, A4+22 |
| DIX("WAY" | ALTIDX+1*, A4+21 |
| DIX(1 | A2+4* |
| DIXIEN | IDXOK~, IDXOK+1*, IDXOK+2, IDXOK+4, IDXOK+5, IDXOK+7 |
| I | A1+1~, A2+1*, A2+5*, A2+6, A2+8, A3+3*, A3+5, IDXOK+3~, IDXOK+4*, IDXOK+5 , IDXOK+6, IDXOK+7, IDXOK+11, IDXOK+12 |
| J | A1+1~, A3+3*, A3+4, A3+5, A3+6, A4+1*, A4+2, A4+3, A4+5, A4+7 , A4+8, A4+10, A4+12, A4+13, A4+14, A4+16~, A4+18*, A4+19, IDXOK+3~, IDXOK+9* , IDXOK+10, IDXOK+11, IDXOK+12 |
| K | A1+1~, A4+5*, A4+7, A4+8 |
| L | A4+6~* |
| S | A4+6~*, A4+7 |
| U | A2+2, A2+6, IDXOK+6 |
| X | A1+1~, A1+3*, A1+4, A2+1*, A2+2, A4+4*, A4+5, A4+6, A4+8, A4+17* , A4+19, IDXOK+3~, IDXOK+5*, IDXOK+6 |
| Y | A1+1~, A4+5*, A4+6*, A4+8 |
| Z | A1+1~, A4+4*, A4+6 |