©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
DICUIX ;SEA/TOAD,SF/TKW-FileMan: Lookup Tools, Indexes ;19APR2011
Source file <DICUIX.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | OUT^DICL (BLDB,TMPB)^DICUIX1 (COMMON1,COMMON2)^DICUIX2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| I1 | ; try to find Index in Index file
|
|
| I2 | ; in Index file, build list of subscript data
|
|
| XREF(DIFILE,DIFLAGS,DINDEX,DIPART,DIFROM) | ;
; Index is in "IX" nodes |
|
| INDEX(DIFILE,DIFLAGS,DINDEX,DIFROM,DIPART,DINUMBER,DISCREEN,DILIST,DIOUT) | ;
|
|
| X2 | ; Build DINDEX for index in IX nodes.
|
|
| X1 | ; Set DINDEX for search through upright file
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | I2+14, X1+9, X2+4, X2+13, X2+15 |
| ^DD("IX" - [#.11] | I1+4, I2+2, I2+5, I2+9, I2+11, I2+20, I2+21, I2+22, I2+23 |
| Name | Line Occurrences |
|---|---|
| XREF | I1+5 |
| Name | Field # of Occurrence |
|---|---|
| ^( | I2+9, X2+15 |
| ^(1 | X2+15 |
| ^(4 | I2+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DICODE | I1+2~ |
| DIFILE | INDEX~, I1+4, I1+5, XREF~, X1+3, X1+9, X2+4, X2+6, X2+8, X2+9 , X2+10, X2+32 |
| DIFILE( | X1+3, X2+8, X2+10*, X2+32 |
| >> DIFILEI | I2+35 |
| DIFLAGS | INDEX~, I1+5, I2+3, I2+12, I2+31, I2+33, XREF~, X1+6, X1+7, X2+8 , X2+11, X2+13, X2+27, X2+29 |
| DIFROM | INDEX~, I1+5, XREF~, X1+5* |
| DIFROM( | I2+6 |
| DIFROM("IEN" | I1+3*, I2+6*, X1+4, X1+5*, X2+22* |
| DIFROM(1 | X1+4, X1+5* |
| DIFROM(2 | X2+22 |
| DIGET | I1+2~, I1+3*, I2+10*, I2+22*, I2+23*, I2+24*, X2+18*, X2+30 |
| DILENGTH | I1+2~, I2+26*, X2+2*, X2+19*, X2+20* |
| DILIST | INDEX~, I2+30, X2+26 |
| DINDEX | INDEX~, I1+4, I1+5, XREF~, X1+2, X1+9, X2+4, X2+5, X2+8, X2+12!* , X2+15 |
| DINDEX( | I2+12*, I2+16*, I2+17*, I2+18*, I2+19, I2+20*, I2+23*, I2+35 |
| DINDEX("#" | I2+4*, I2+10*, I2+35, X1+3*, X1+8* |
| DINDEX("AT" | I1+3* |
| DINDEX("FLIST" | I1+3*, I2+32*, I2+34, X2+28*, X2+31 |
| DINDEX("FLISTD" | I2+38*, X1+6*, X2+30*, X2+31* |
| DINDEX("IXFILE" | I2+3* |
| DINDEX("IXTYPE" | I2+3*, I2+24, X1+8*, X2+12, X2+17*, X2+18 |
| DINDEX(1 | X1+3*, X1+9*, X2+3*, X2+4*, X2+5, X2+6*, X2+7*, X2+11*, X2+12, X2+13* , X2+15 |
| DINODE | I1+2~, I2+2*, I2+3, I2+11*, I2+13, I2+14, I2+16, I2+17, I2+18, I2+26 , I2+27 |
| DINUMBER | INDEX~, I2+30, X2+26 |
| DIOUT | INDEX~, I2+7*, I2+8, I2+30, X2+2*, X2+23*, X2+26 |
| DIPART | INDEX~, I1+5, XREF~ |
| DIPART(1 | X1+4 |
| DISCREEN | INDEX~ |
| DISUB | I1+2~, I2+5*, I2+6, I2+7*, I2+8, I2+9*, I2+10, I2+12, I2+16, I2+17 , I2+18, I2+19, I2+20, I2+23, X2+23* |
| DITEMP | I1+2~, X2+9, X2+10, X2+32* |
| DITEMP2 | I1+2~ |
| DITO | I1+2~ |
| DITOIEN | I1+2~ |
| DITYPE | I1+2~ |
| DIWAY | I1+2~, I2+27*, X2+23* |
| DIXIEN | I1+2~, I1+3*, I1+4*, I1+5, I2+2, I2+3, I2+5, I2+9, I2+11, I2+20 , I2+21, I2+22, I2+23 |
| F | I2+34~*, I2+36, I2+37*, I2+38 |
| F1 | I2+34~, I2+35*, I2+36*, I2+37 |
| F2 | I2+34~, I2+35*, I2+36, I2+37 |
| I | I2+34~, I2+35*, X2+14~, X2+15*, X2+24~ |
| S | I2+7~, I2+9*, I2+11, I2+20, I2+21, I2+22, I2+23 |
| U | I2+3, I2+13, I2+14, I2+16, I2+17, I2+18, I2+26, I2+27, X2+13, X2+15 , X2+16 |
| X | I2+12~, I2+13*, I2+14*, X1+4~*, X1+5, X2+14~, X2+15*, X2+16*, X2+17, X2+24~ |
| Y | X2+14~, X2+15*, X2+19, X2+24~ |