©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
DIDU ;SEA/TOAD-VA FileMan: DD Tools, External Format ;24AUG2009
Source file <DIDU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ALLOW(X) | ;If ALLOW appears, do not call erroneous data an error
|
|
| HEADER(DIFILE,DIEN,DIFIELD,DITYPE,DICHAIN,DINTERNL,DINEXT) | ;
|
|
| E11 | ; exit if we executed an output transform or ran into an error
|
|
| E10 | ||
| E13 | ; handle sets of codes
|
|
| E12 | ; handle illegal data types (pointers, word processings, and multiples)
|
|
| EXTERNAL(DIFILE,DIFIELD,DIFLAGS,DINTERNL,DIMSGA) | ;
|
|
| E14 | ; handle dates, and return all others as they are
|
|
| ERR(DIMSGA,DIERN,DIFILE,DIIENS,DIFIELD,DI1,DI2,DI3) | ;
|
|
| E9 | ||
| E8 | ||
| XTRNLX | ;
|
|
| E5 | ; handle output transforms (see docs for effects of flags)
; under right conditions, execute output transform on value & quit |
|
| E4 | ; initialize loop control, transform code, pointer chain window,
; pointer file info, and resolved value variables |
|
| E7 | ||
| E6 | ||
| E1 | ; set up DBS environment variables
|
|
| ERRPTR(DITYPE) | ;
|
|
| E3 | ; get field definition and type, handle bad file or field
|
|
| E2 | ; handle bad input variables
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | E3+3, E3+5, E5+8, E10+7, E12+4, HEADER+6 |
| Name | Line Occurrences |
|---|---|
| $$ALLOW | ERR+5 |
| ERR | E2+5, E2+6, E3+2, E3+5, E3+6, E7+5, E7+6, E8+4, E8+7, E8+12 , E9+4, E9+5, E10+6, E10+9, E13+6, E13+7, E14+5, E14+6, HEADER+6, HEADER+7 , HEADER+10, HEADER+11, ERRPTR+5, ERRPTR+6 |
| ERRPTR | E12+2, E12+3, E12+5, E12+6 |
| HEADER | E8+10 |
| Name | Field # of Occurrence |
|---|---|
| ^( | E10+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DI | E9+3~*, E9+4, E9+5, ERR+6~* |
| DI1 | ERR~ |
| DI2 | ERR~ |
| DI3 | ERR~ |
| DICHAIN | E4+3~*, E5+6, E7+5, E8+10, E9+4, E10+11*, E13+6, E14+5, HEADER~, HEADER+10 , ERRPTR+5 |
| DICLERR | E1+4~*, E14+7, E14+8, ERR+8 |
| DICODES | E13+3~*, E13+4, E13+8 |
| DIDONE | E4+3~*, E5+3, E5+5, E5+13*, E10+12*, E11+5, ERR+5* |
| DIEN | E4+6~*, E5+12, E7+6, E8+10, E9+5, E10+4*, E10+5, E10+6, E13+7, E14+6 , HEADER~, HEADER+10 |
| DIERN | ERR~, ERR+5, ERR+7 |
| DIERR | E1+4!, E5+3, E5+5, E5+12, E8+2, E8+6, E11+6, E14+7, E14+8*, ERR+8* |
| DIEXTRNL | E4+7~*, E5+13*, E11+5, E13+2, E13+5*, E13+8*, E14+2, E14+3*, E14+4 |
| DIFIELD | EXTERNAL~, E2+6, E3+3, E3+6, E5+8, E7+6, E8+4, E8+10, E9+5, E10+10* , E13+6, E13+7, E14+6, HEADER~, HEADER+6, HEADER+10, ERR~, ERRPTR+6 |
| DIFILE | EXTERNAL~, E3+2, E3+3, E3+5, E3+6, E5+8, E5+12, E7+6, E8+4, E8+10 , E9+5, E9+6*, E10+6, E10+7, E10+9, E10+12, E11+4, E13+6, E13+7, E14+6 , HEADER~, HEADER+6, HEADER+10, ERR~, ERRPTR+6 |
| DIFLAGS | EXTERNAL~, E2+4*, E2+5, E5+4, E5+5, E5+6, E5+7, E5+8, E5+10, E11+3 , ERR+5 |
| DIFM | E1+3~* |
| DIHEAD | E4+6~, E8+8*, E8+9, E8+11 |
| DIIENS | ERR~ |
| DIMSGA | EXTERNAL~, E2+3*, E2+5, E2+6, E3+2, E3+5, E3+6, E7+5, E7+6, E8+4 , E8+7, E8+12, E9+4, E9+5, E10+6, E10+9, E13+6, E13+7, E14+5, E14+6 , HEADER+6, HEADER+7, HEADER+10, HEADER+11, ERR~, ERR+7, ERRPTR+5, ERRPTR+6 |
| DINEXT | E4+5~*, E8+2*, E8+3*, E8+4, E8+6*, E8+10, E8+11*, E9+4, E9+5, E9+6 , HEADER~, HEADER+6, HEADER+7 |
| DINODE | E3+3~*, E3+4, E3+7, E8+2, E10+7*, E10+8, E13+3 |
| DINTERNL | EXTERNAL~, E2+2, E5+11, E7+4, E7+5, E7+6, E8+6, E8+7, E8+10, E9+4 , E9+5, E10+4, E10+5*, E10+6, E11+3, E11+4, E13+4, E13+6, E13+7, E14+2 , E14+3, E14+5, E14+6, E14+9, HEADER~, HEADER+10, HEADER+11 |
| DIOUT | E4+3~*, E5+3, E6+2*, E6+3* |
| DIPE | ERR+6~, ERR+7 |
| DIPE( | ERR+6* |
| DIPREV | E4+5~*, E9+6*, ERRPTR+5 |
| DIPREVF | E4+5~*, E10+10*, ERRPTR+5 |
| DIQUIET | E1+2~* |
| DIROOT | E4+6~, E8+2*, E8+3, E8+4, E8+6*, E8+7, E8+8, E8+12, E9+2 |
| DISTART | E13+4~*, E13+5, E13+8 |
| DITYPE | E3+7~*, E5+4*, E5+5, E5+7, E5+10, E6+2, E6+3, E8+2, E8+6, E8+10 , E10+8*, E10+9, E12+2, E12+3, E12+4*, E12+5, E13+2, E14+2, HEADER~, HEADER+5 , ERRPTR~, ERRPTR+6 |
| DIXFORM | E4+4~*, E5+4, E5+8*, E5+9, E5+11 |
| I | ALLOW+1~* |
| T | ALLOW+1~*!, ALLOW+2 |
| U | E3+7, E8+2, E8+8, E8+11, E8+12, E9+2, E10+5, E10+8, E12+4, E13+3 , E14+8, ERR+8 |
| X | ALLOW~, ALLOW+1 |
| Y | E5+11~*, E5+13 |
| Name | Field # of Occurrence |
|---|---|
| $T(ALLOW+I | ALLOW+1 |