©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
DICF1 ;SEA/TOAD,SF/TKW-VA FileMan: Finder, Part 2 (Transform) ;1:48 PM 17 Jun 2013
Source file <DICF1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 24 | ||
| 11 | ||
| LOWER | ;
|
|
| 12 | ||
| 21 | ||
| 22 | ||
| 23 | ||
| XFORM(DIFLAGS,DIVALUE,DISCREEN,DINDEX) | ;
; FIND--produce array of values and screens by transforming input ; subroutine, DIVALUE, DINDEX, & DISCREEN passed by reference |
|
| CHK | ; Quit if data type not free-text, pointer or vp, or if lookup value is numeric or a date.
|
|
| L10 | ||
| 13 | ||
| LONG | ||
| SPECIAL(DIFILE,DIEN,DIFIEN,DIFLAGS,DIVALUE,DINDEX,DISCREEN,DIDENT,DIOUT,DILIST) | ;
; Process space-bar return, 'IEN or DIVALUE equal to an IEN. |
|
| COMMA | ||
| ENTRY | ; Execute screens, and if entry passes, do ACCEPT to add it to output.
|
|
| VALUES | ; Set original lookup value into array.
|
| Name | Line Occurrences |
|---|---|
| ENTRY | 11+7, 12+2, 13+6 |
| LONG | VALUES+10, CHK+2 |
| VALUES | XFORM+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | CHK+4~, CHK+5* |
| DI001 | 13+1~*, 13+4 |
| DI01FLAG | 13+2~*, 13+4 |
| DI0NODE | ENTRY+1~*, ENTRY+2, ENTRY+3 |
| DIDENT | SPECIAL~, ENTRY+3 |
| DIEN | SPECIAL~, 11+5*, 11+6*, 12+1*, 13+5*, 13+7*, ENTRY+1, ENTRY+2, ENTRY+3 |
| >> DIERR | 13+7 |
| DIFIEN | SPECIAL~, 11+1, ENTRY+2, ENTRY+3 |
| DIFILE | SPECIAL~, 11+1, 13+1, 13+2, 13+3, 13+4, ENTRY+1, ENTRY+2, ENTRY+3 |
| DIFILE( | 13+3, 13+4, ENTRY+1 |
| DIFLAGS | XFORM~, VALUES+10, LOWER+1, CHK+4~, COMMA, 21, 22, 23+2, 24+3, L10 , L10+1, SPECIAL~, 13+4, ENTRY+2, ENTRY+3 |
| DILIST | SPECIAL~, ENTRY+3 |
| DINDEX | XFORM~, CHK+4~, SPECIAL~, ENTRY+2, ENTRY+3 |
| DINDEX( | VALUES+3*, CHK+1, COMMA+2, LONG, LONG+3, LONG+9*, LONG+10, LONG+11, LONG+12* |
| DINDEX("#" | XFORM+3 |
| DINDEX("DONE" | 13+7 |
| DINODE | 11+2~*, 11+3, 11+4, 11+5 |
| DINODEL | 11+3~*, 11+4, 11+5 |
| DIOUT | 21+4~*, 21+5, 21+9*, 21+10*, SPECIAL~, SPECIAL+2*, 11*, 12, 12+2*, 13+7* |
| DIPART1 | 21+1~*, 21+11 |
| DIPART2 | 21+2~*, 21+11 |
| DIPART3 | 21+3~*, 21+11 |
| DIPC2 | 22~, 22+1*, 22+2*, 22+3 |
| DIPIECE | 21+5~*, 21+6 |
| DIPIECE1 | COMMA+1~*, COMMA+2, COMMA+3, 23, 24+1 |
| DIPIECE2 | 22~, 22+1*, 22+2, 22+3, 23+2, 24+3 |
| DIREF | LONG+1~, LONG+16*, LONG+17, LONG+18 |
| DIROOT | 11+1~*, 11+2, 11+4 |
| DISCREEN | XFORM~, CHK+4~, SPECIAL~, ENTRY+2 |
| DISCREEN( | VALUES+6!, 23+1*, 24+2*, LONG+6!*, LONG+15, L10*, L10+1*, L10+2*, L10+3* |
| DISLONG | LONG+1~, LONG+14*, LONG+15*, LONG+17, LONG+18 |
| DISPART | LONG+1~, LONG+17*, L10+1, L10+3 |
| DISTEMP | COMMA+1~*, 21+10, 21+11*, 21+12, 21+13*, 21+14, 22+3*, 23+1, 24+2 |
| DISUB | XFORM+3~*, VALUES+1, VALUES+2, VALUES+3, VALUES+5, VALUES+6, VALUES+8, VALUES+9, LOWER+1, LOWER+2 , CHK+1, CHK+2, CHK+4~, COMMA, COMMA+1, COMMA+2, 21+6, 22+1, 23, 23+1 , 23+2, 24, 24+1, 24+2, 24+3, LONG, LONG+2, LONG+3, LONG+4, LONG+5 , LONG+6, LONG+7, LONG+9, LONG+10, LONG+11, LONG+12, LONG+15, LONG+16, L10, L10+1 , L10+2, L10+3 |
| DISXACT | LONG+1~, LONG+18*, L10, L10+2 |
| DIVALUE | XFORM~, CHK+4~, SPECIAL~, 11, 12, 12+1, 13, 13+3, 13+5 |
| DIVALUE( | VALUES+1*, VALUES+2, VALUES+3, VALUES+5!, VALUES+8*, VALUES+9, LOWER+1, LOWER+2*, CHK+2, CHK+4 , COMMA, COMMA+1, 21+6, 22+1, 23*, 23+2*, 24, 24+1*, 24+3*, LONG , LONG+2, LONG+4, LONG+5!*, LONG+7*, LONG+9*, LONG+11* |
| DIVPIECE | 21+5~, 21+6*, 21+7, 21+8*, 21+9, 21+10, 21+11 |
| DUZ | 11+2 |
| I | VALUES+2~*, VALUES+3, VALUES+5*, VALUES+6*, LONG+2*, LONG+4, LONG+5, LONG+6, LONG+7, LONG+8 , LONG+9, LONG+11, LONG+15, LONG+16, L10, L10+1, L10+2, L10+3 |
| J | LONG+1~, LONG+10*, LONG+11, LONG+12 |
| L | LONG+3~*, LONG+4, LONG+7, LONG+10, LONG+12 |
| M | LONG+3~, LONG+10* |
| U | 13+2 |
| X | CHK+4~*, LONG+1~, LONG+5*, LONG+6* |
| Y | CHK+3~ |