©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
DICU11 ;SEA/TOAD,SF/TKW-VA FileMan: Lookup Tools, Get IDs & Index ;11/5/99 15:13 [ 04/02/2003 8:25 AM ]
Source file <DICU11.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETFORM(DIDENT,DIFORMAT,DIDS,DICOUNT) | ;
; Strip E or I off specifier and set into DIFORMAT |
|
| FORMAT(DIFIELD,DICODE,DIUSEKEY,DIFORMAT,DIDEFALT,DIFLAGS) | ;
; Format fetch code to return either internal or external |
|
| WRITEID(DIFILE,DIDENT,DICRSR) | ;
; WRITE Identifiers Loop: add WRITE identifiers to output processor: ; for WRITE IDs we save the code as is |
|
| THROW(DIFLAGS,DIDENT,DIDS,DICRSR,DICOUNT,DIDEFALT,DINDEX,DICF2) | ;
|
|
| T1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | WRITEID+5, WRITEID+6, WRITEID+7 |
| Name | Line Occurrences |
|---|---|
| $$FORMAT | T1+13 |
| GETFORM | T1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | WRITEID+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DICF2 | THROW~, T1+16 |
| DICODE | FORMAT~, FORMAT+6*, FORMAT+7, WRITEID+4~, WRITEID+7*, WRITEID+9 |
| DICOUNT | THROW~, T1, GETFORM~, GETFORM+6, GETFORM+7* |
| DICRSR | THROW~, T1+16, T1+17*, T1+18, T1+20, WRITEID~, WRITEID+8*, WRITEID+9, WRITEID+10 |
| DIDEFALT | THROW~, T1+1, T1+13, FORMAT~ |
| DIDENT | THROW~, T1, T1+2, T1+13, T1+21, GETFORM~, GETFORM+2, GETFORM+3, GETFORM+5, GETFORM+6* , GETFORM+8*, GETFORM+9*, WRITEID~, WRITEID+5*, WRITEID+6*, WRITEID+7, WRITEID+9, WRITEID+10 |
| DIDENT( | T1+16*, T1+18*, T1+20*, T1+21*, WRITEID+9*, WRITEID+10* |
| DIDS | THROW~, T1, GETFORM~, GETFORM+6* |
| DIEXP | T1+2~, T1+4*, T1+6*, T1+8*, T1+10*, T1+11*, T1+12*, T1+13*, T1+14*, T1+16 , T1+18 |
| DIFIELD | FORMAT~, FORMAT+3*, FORMAT+6 |
| DIFILE | FORMAT+2~*, FORMAT+3*, FORMAT+6, WRITEID~, WRITEID+5, WRITEID+6, WRITEID+7 |
| DIFIRST | GETFORM+5~*, GETFORM+7 |
| DIFLAGS | THROW~, T1+5, T1+10, T1+13, T1+17, T1+20, FORMAT~, FORMAT+5, WRITEID+8, WRITEID+10 |
| DIFORMAT | T1~, T1+1*, T1+5, T1+9, T1+13, T1+16, T1+18, T1+19, GETFORM~, GETFORM+3* , GETFORM+4, GETFORM+7*, GETFORM+10*, FORMAT~, FORMAT+4 |
| DILENGTH | GETFORM+2~*, GETFORM+3, GETFORM+5, GETFORM+6, GETFORM+8, GETFORM+9 |
| DIMAP | T1+2~, T1+19*, T1+20, T1+21 |
| DINDEX | THROW~, T1+14 |
| DINDEX( | T1+5, T1+9, T1+10, T1+11, T1+12 |
| DINDEX("#" | T1+3 |
| DINDEX("ROOTCNG" | T1+7 |
| DISUB | T1+2~, T1+3*, T1+5, T1+6, T1+9, T1+10, T1+11, T1+12, T1+16, T1+18 , T1+19, T1+21 |
| DISUB0 | T1+2~*, T1+16, T1+18 |
| DIUSEKEY | FORMAT~ |
| F | FORMAT+5~*, FORMAT+6 |
| U | T1+20, WRITEID+10 |