©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
DIC2 ;SF/XAK/TKW-LOOKUP (CONT) ;5/10/00 11:16 [ 04/02/2003 8:25 AM ]
Source file <DIC2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| C | ||
| G | ; Display index values for a single looked-up entry
|
|
| WO | ; Display .01 field, Primary KEY values and Identifiers for an entry.
|
|
| H | ; Display .01 and Primary KEY values if in ScreenMan
|
|
| Q | ||
| EXT(DIFILE,DIFIELD,DIVAL,DIF) | ; Return external value of field
|
|
| S | ; Put Primary KEY values into DST, display DST if not in ScreenMan
|
|
| R | ||
| WR | ; Put .01 field into DST for display
|
|
| W1 | ||
| ACT | ||
| GOT | ||
| PGM(DIC,DF,DIFILE) | ; Return special lookup program name
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| $$EXT | WR+4, WR+6, R+5 |
| GOT | C+3 |
| Q | ACT+1, ACT+2 |
| S | WR+2, WR+4, WR+5 |
| WO | GOT+1 |
| WR | WO+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | WR+7~*, S+1~, S+4*, S+5, G+7~*, G+8*, G+10, G+11, G+18 |
| A1 | S+6~*, H+1~*, H+2 |
| D | Q!, G+7~*, G+10*, G+11*, G+13*, G+14*, G+15*, G+18*, G+19*, G+20* , G+21*, G+23 |
| DD | Q! |
| DDH | H+2*, GOT+1~, GOT+2 |
| DDH( | H+2* |
| DDH("ID" | WO+3, GOT+2! |
| >> DDS | WO+3, S+6, GOT+2, G+4, G+15, G+18, G+20, G+24 |
| DF | PGM~, PGM+1, Q! |
| DIAC | Q! |
| DIASKOK | GOT+6, G+3~* |
| DIC | WO+3, WO+6, WR+1, PGM~, R+5, ACT, ACT+1 |
| DIC("W" | WO+3, WO+6, Q+1! |
| DIC(0 | WR+2, S+1, PGM+1, GOT, GOT+5, GOT+7, R+5, ACT, ACT+1, Q+1 , G+4, G+5, G+6, G+20, G+21 |
| >> DICR | GOT+8, R, Q+1 |
| DICRS | GOT+8, G+1~*, G+10, G+11, G+17 |
| DID | Q! |
| DIDA | Q!, G+2~*, G+3, G+8, G+10, G+18 |
| DIENTIRE | G+6~*, G+21 |
| DIERR | EXT+1~, EXT+4 |
| DIF | EXT~, EXT+2*, EXT+3 |
| DIFIELD | EXT~, EXT+3 |
| DIFILE | EXT~, EXT+3, PGM~, PGM+2, Q! |
| >> DIFILEI | R+5 |
| >> DIFINDER | G+15, G+20 |
| >> DINDEX | R+2 |
| >> DINDEX("#" | R+2, R+3, G+10 |
| >> DINDEX("START" | R+2 |
| >> DINDEX(1 | G+14 |
| DINUM | Q! |
| DIPGM | PGM+2~*, PGM+3 |
| DIROUT | Q+1! |
| DISAV | EXT+1~*, EXT+4 |
| DISAVEX | WO+5~*! |
| DISMN | Q! |
| >> DITRANX | G+12 |
| DIVAL | EXT~, EXT+1, EXT+3*, EXT+4*, EXT+5 |
| DIVAL(1 | WR+2 |
| DIX | Q!, G+5*, C* |
| DIX( | R+3 |
| DIX("F" | S+3, C+1! |
| DIX("K" | WR+2, S+1, S+4 |
| DIY | WR+4, WR+5, WR+6, WR+7, W1, S+2, GOT+4, Q!, G+5*, G+10 , C, C+2* |
| DIY( | C+2 |
| DIY(1 | G+13, G+19 |
| DIYX | W1, GOT+4, Q!, G+10, C+2* |
| DIYX( | C+2 |
| DIYX(1 | G+13, G+19 |
| DO | WR+1, Q! |
| DO(2 | WR+4, WR+5, WR+6, GOT+6 |
| DS | Q!, G+10, G+11 |
| DS( | C, C+2 |
| DS(0 | R*, ACT+2*, G+1, G+2 |
| DS(1 | G+3, G+6, G+8, G+9, G+13, G+18, G+19, C+1 |
| DST | WO+1~, WO+2*, WO+4, WO+7!, WR+1~, WR+2, WR+3*, WR+4*, WR+6*, W1* , S+4, S+5*, S+6!, H+2!, GOT+1~, G+23*, G+24* |
| DUZ | ACT |
| DZ | Q! |
| F | S+1~*, S+2, S+3, S+4 |
| I | S+1~*, S+4, R+3~* |
| U | S+5, PGM+3, R+5, G+3, G+6, G+8, G+13, G+18, G+19, G+23 |
| X | WO+5~*, GOT+4, G+5, G+13, G+14~*, G+18, G+20, G+21, C+2* |
| X( | R+3* |
| Y | WO+5~*, S+6, GOT+4*, GOT+5, R, R+1, ACT, ACT+2*, C*, C+2* |
| Y(0 | R+5* |