DICU2 ;SEA/TOAD,SF/TKW-VA FileMan: Lookup Tools, Return IDs ;11MAY2011
Source file <DICU2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ERR^DICF4 ($$HTML,$$TRANSL8,DA)^DILF $$CONVQQ^DILIBF |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| I9 | ; for packed output, set pack node into output array
|
|
| I8 | ||
| I1 | ; setup 0-node and ID array interface, and output IEN
|
|
| E1 | ||
| I3 | ||
| I2 | ; start loop: loop through output values
|
|
| I5 | ||
| I4 | ||
| I7 | ||
| I6 | ||
| A1 | ||
| I20 | ||
| SET(DICRSR,DIFID,DISUB,DIOUT,DINDEX,DIFILE) | ; Move data to DIOUT.
|
|
| TRANOUT(DISUB,DIVL) | ; Execute TRANSFORM FOR DISPLAY on index value
|
|
| ENCODE(DILIST,DINODE) | ;
|
|
| I1A | ; output primary value (index for Lister, .01 for Finder)
|
|
| ADD(DIFLAGS,DINODE,DILENGTH,DINEW,DIEN,DILIST,DILCNT) | ;
|
|
| IDS(DIFILE,DIEN,DIFLAGS,DINDEX,DICOUNT,DIDENT,DILIST,DI0NODE) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | SET+6! |
| ^TMP("DIMSG" | I8+3*, I8+5, I8+6, I8+10! |
| Name | Line Occurrences |
|---|---|
| ADD | I20+3, I5+3, I8+7 |
| ENCODE | A1+3 |
| SET | I1A+6, I1A+7, I1A+8, I20+2, I3+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | I4+2~, I6+3~ |
| %H | I4+2~ |
| %T | I4+2~ |
| A | I4+2~ |
| B | I4+2~ |
| C | I4+2~ |
| D | I4+2~, I6+3~, I6+4* |
| DA | I4+3~, I4+8 |
| DA( | I4+7 |
| DA("" | I4+5 |
| DELIM | A1~*, A1+5 |
| DFN | I4+2~ |
| DI | I8+2~*, I8+4, I8+5*, I8+6, I8+7 |
| DI0NODE | IDS~, I1+2~*, I1+3* |
| DIARG | I4+4~*, I4+6*, I4+7~ |
| DIC | I6+3~, I6+5* |
| DIC(0 | I6+6* |
| DICODE | I2+3~, TRANOUT+2~*, TRANOUT+3 |
| DICONTXT | I7+5~*, I7+6*, I7+7 |
| DICOUNT | IDS~, I1+6, I1A+3, I20+4, I5+2, I8+2, I8+8, I9+2 |
| DICRSR | I2+3~*, I2+4*, I2+6, I20+2, I3+5, I3+6, I4+9, I7+2, SET~, SET+2 , SET+4, SET+5 |
| DID | I1+4~, I2+4*, I2+5, I2+6, I20+1, I20+2, I3+3, I3+5, I3+6, I4+9 , I5+2, I7+2, I7+5 |
| DIDENT | IDS~ |
| DIDENT( | I1A+2, I2+4, I2+6, I3+5, I4+9, I7+2, SET+2, SET+4, SET+5 |
| DIDENT(0 | I1A+5, I1A+8 |
| DIDVAL | I1+4~, I2+7!, I20+3, I20+4, I4+9*, I5+2, I5+3 |
| DIDVAR | I4+6~*, I4+7* |
| DIEN | IDS~, I1+2~*, I1+3, I1+5, I1+6, I20+3, I4+3, I5+3, I6+7, I6+8 , I7+7, I8+7, ADD~, A1+2 |
| DIEND | I8+2~*, I8+8* |
| DIERR | I2+4, I3+3, I7+4, I8+4, I9+2, SET+6!, A1+4 |
| DIFID | SET~, SET+2, SET+4, SET+5 |
| DIFILE | IDS~, I1+2~*, I1+3, I1A+6, I1A+7, I1A+8, I20+2, I3+6, I6+5, I6+8 , I7+7, SET~, SET+1~* |
| DIFILE( | I1+3, I6+5, I6+8 |
| DIFLAGS | IDS~, I1+2, I1+5, I1A+2, I1A+4, I2+2, I2+5, I20+3, I5+2, I5+3 , I6+6, I8+2, I8+7, I9+2, SET+6, ADD~, A1+3*, A1+4 |
| DILCNT | ADD~, A1 |
| DILENGTH | I2+2~*, I20+3, I5+3, I8+7, ADD~, A1+1*, A1+2 |
| DILINE | I8+2~, I8+6*, I8+7, I8+8, E1~, E1+2*, E1+3 |
| DILIST | IDS~, I1+6, I1A+3, I20+3, I20+4, I5+2, I5+3, I8+2, I8+7, I8+8 , I9+2, ADD~, A1+3, ENCODE~, E1+1, E1+2, E1+3 |
| DIMAX | I4+5~*, I4+6, I4+7, I4+8 |
| DIMSG | I8+10! |
| DINDEX | IDS~, I1A+6, I1A+7, I20+2, I3+6, I6+4, SET~ |
| DINDEX( | SET+4, SET+6, TRANOUT+2 |
| DINDEX("#" | I1A+6 |
| DINEW | ADD~, A1, A1+3, A1+4*, A1+5 |
| DINEWLEN | A1~*, A1+1 |
| DINODE | I1+5~*, I2+2, I20+3, I5+3, I8+7, I9+2, ADD~, A1+3, A1+5*, ENCODE~ , E1+4* |
| DIOUT | I1A+3~*, I1A+6, I1A+7, I1A+8, I2+3~, SET~, SET+9, SET+10 |
| DIREC | E1+1~*, E1+2, E1+3 |
| DIRULE | E1~, E1+3, E1+4 |
| DIRULE(1 | E1* |
| DISUB | I1A+4~, I1A+5*, I1A+6, I1A+7, I2+3~, I2+4*, I2+6*, I20+2, I20+4, I3+6 , SET~, SET+2, SET+4, SET+5, SET+6, TRANOUT~, TRANOUT+2 |
| DIVAL | SET+4~ |
| DIVL | TRANOUT~, TRANOUT+1 |
| DIX | I7+2~*, I7+3 |
| F | I1+2~*! |
| F1 | SET+1~*, SET+2*, SET+3*, SET+4, SET+5, SET+10 |
| F2 | SET+1~, SET+2*, SET+3, SET+9 |
| I | I1+2~*!, I1A+7~*, I4+2~ |
| N | I1+2~*! |
| >> O | SET+10* |
| U | A1+3, A1+4 |
| X | I4+2~, I4+9, I6+3~, SET+5~, SET+6*, SET+7*, SET+8*, SET+9, SET+10, TRANOUT+1~* , TRANOUT+4 |
| X1 | I4+2~ |
| X2 | I4+2~ |
| Y | I4+2~, I6+3~, I6+7* |
| Y1 | I6+3~, I6+8* |
| Z | I4+2~ |
| Z0 | I4+2~ |
| Z1 | I4+2~ |