©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
DICUIX2 ;SEA/TOAD,SF/TKW-FileMan: Build index data in DINDEX array (cont). ;02/28/2012
Source file <DICUIX2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | BLD^DIALOG ($$CHKP,GET,TMPIDX)^DICUIX1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DAT(DIFR,DIPRT,DIAPP,DIWAY,DIOUT) | ; Process FROM and PART for dates
|
|
| ORDERQ(FILENUM) | ;IS FILE LIKE ORDER FILE, DINUMED BUT NO CROSS-REF?
|
|
| COMMON2 | ; Put data about IEN subscript into DINDEX array.
|
|
| COMMON1 | ; Put info about data subscripts into DINDEX array
|
|
| C3 | ||
| C2 | ||
| C1 | ||
| C7 | ||
| C6 | ||
| C5 | ||
| C4 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | ORDERQ+1 |
| Name | Line Occurrences |
|---|---|
| $$ORDERQ | C4+3 |
| C3 | COMMON1+4 |
| DAT | C6+4 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ORDERQ+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | C4+1~*, C4+3*, C4+4*, C4+5*, C4+6*, C4+7* |
| DIAPP | DAT~, DAT+3, DAT+5 |
| >> DICODE | C3*, C3+1, C3+3*, C3+5 |
| >> DIDENT( | C7 |
| DIEN | COMMON2+1~*, COMMON2+2, COMMON2+3, COMMON2+4, COMMON2+5, COMMON2+6, COMMON2+7, COMMON2+8 |
| >> DIERR | C3+2 |
| >> DIFILE | COMMON1+3, C3+1, C4+11, C4+14, C7+4 |
| >> DIFILE( | C4+11 |
| >> DIFLAGS | COMMON1+4, C1, C2, C2+1, C4+2, C4+9, C4+13, C4+14, C4+19, C4+20 , C6+1, C6+2, C7+3 |
| DIFR | COMMON1+1~, COMMON1+2*, C1+1*, C2+2*, C4+14, C5+3, C6+4, C6+5, C6+7, C6+8* , C6+9, C6+11*, C6+13, C6+14, C6+16*, C6+18, DAT~, DAT+1, DAT+2*, DAT+3* , DAT+4, DAT+6, DAT+7, DAT+8* |
| >> DIFROM( | COMMON1+2, COMMON1+7 |
| >> DIFROM("IEN" | COMMON1+6, COMMON2+4*, COMMON2+5, COMMON2+7 |
| >> DIGET | C7+1, C7+4*, C7+5*, C7+6 |
| >> DILENGTH | C2, C2+2, C2+3, C2+4 |
| >> DINDEX | C3+4, C4+14, C4+15, C4+20, COMMON2+2 |
| >> DINDEX( | COMMON1+3, COMMON1+5*, COMMON1+6*, COMMON1+7*, C1*, C2*, C3, C3+1, C3+5*, C4+1* , C4+12, C4+19*, C4+20, C4+23*, C4+26*, C5*, C5+2*, C5+3*, C6+1, C6+3 , C6+4, C6+6, C6+10*, C6+15*, C6+18*, C6+19*, C6+20*, C7+1*, C7+3, C7+4 , C7+6*, COMMON2+2*, COMMON2+3*, COMMON2+4*, COMMON2+5*, COMMON2+6*, COMMON2+7*, COMMON2+8*, DAT+9* |
| >> DINDEX("#" | COMMON2+1 |
| >> DINDEX("AT" | C4+16* |
| >> DINDEX("FLIST" | COMMON1+3* |
| >> DINDEX("ROOTCNG" | C4+20, C7+3 |
| >> DINDEX("WAY" | C1, C1+1, COMMON2+4, COMMON2+6, COMMON2+8 |
| >> DINDEX(1 | C4+13* |
| >> DINODE | C3*, C3+1, C3+3*, C4, C4+13 |
| >> DINUMBER | C4+14 |
| DIOUT | C6+4, C6+7*, C6+13*, DAT~, DAT+6*, DAT+7* |
| DIPART | DAT+1~*, DAT+2, DAT+4, DAT+5*, DAT+6, DAT+7 |
| DIPART( | COMMON1+2 |
| DIPRT | COMMON1+1~, COMMON1+2*, C2+3*, C4+14, C5+1, C6, C6+4, C6+5, C6+7, C6+8 , C6+9, C6+11, C6+13, C6+14, C6+16, C6+19, DAT~, DAT+1, DAT+8 |
| >> DISCREEN | C4+14 |
| >> DISUB | COMMON1+2, COMMON1+3, COMMON1+5, COMMON1+6, COMMON1+7, C1, C1+1, C2, C2+4, C3 , C3+1, C3+5, C4+1, C4+10, C4+12, C4+18, C4+19, C4+20, C4+21, C4+23 , C4+25, C4+26, C5, C5+2, C5+3, C6+1, C6+3, C6+4, C6+6, C6+10 , C6+15, C6+18, C6+19, C6+20, C7+1, C7+3, C7+4, C7+6, DAT+9 |
| >> DITEMP | C4+11*, C4+15, C4+20, C4+21*, C4+23*, COMMON2+2 |
| >> DITEMP2 | C4+15, C4+20, C4+24, C4+25*, C4+26*, COMMON2+3 |
| >> DITO( | C1+1*, C2+4*, C6+20 |
| >> DITYPE | C4*, C4+3*, C4+4, C4+5, C4+6, C4+7, C5+1, C6+2, C7+2 |
| DIWAY | C1, DAT~, DAT+6, DAT+7 |
| FILENUM | ORDERQ~, ORDERQ+1 |
| I | C6+3~*, C6+4 |
| L | DAT+1~*, DAT+2 |
| P | DAT+1~*, DAT+2, DAT+4, DAT+5, DAT+8 |
| T | C7+2~* |
| U | C4, ORDERQ+1 |