©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
DDGF0 ;SFISC/MKO-SETUP, CLEANUP ;09:58 AM 9 Sep 1994
Source file <DDGF0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAP | ;Keys for main screen
|
|
| SET | ;Setup variables
|
|
| END | ;Clear screen, clean up variables
|
|
| GETBLKS(F,L) | ;
|
|
| GETKEY | ;Get key sequences and defaults
|
|
| DMAP | ;Keys for changing data length
|
|
| SMAP | ;Keys for moving selected gadgets
|
|
| KILL | ;
|
|
| RECOMP | ;Recompile form
|
|
| OTHER(B,F,L) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIST( | OTHER+5, OTHER+6 |
| ^TMP("DDGFH" | KILL+5! |
| ^TMP("DDGFOF" | RECOMP+2 |
| Name | Line Occurrences |
|---|---|
| GETBLKS | RECOMP+5 |
| GETKEY | DDGF0+5 |
| OTHER | GETBLKS+10 |
| RECOMP | END+1 |
| SET | DDGF0+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AD | GETKEY+1~, GETKEY+3* |
| AL | GETKEY+1~, GETKEY+5* |
| AR | GETKEY+1~, GETKEY+4* |
| AU | GETKEY+1~, GETKEY+2* |
| B | GETBLKS+5~, GETBLKS+7*, GETBLKS+8*, GETBLKS+9, GETBLKS+10, OTHER~, OTHER+5, OTHER+6 |
| DDGF | KILL+6! |
| DDGF( | GETKEY+12*, GETKEY+15, GETKEY+16*, GETKEY+17*, GETKEY+18*, GETKEY+19* |
| DDGFBV | KILL+6! |
| DDGFCHG | SET+2*, KILL+6! |
| DDGFE | KILL+6! |
| DDGFFILE | KILL+6! |
| DDGFFM | SET+3!, END+1, KILL+6!, RECOMP+5, RECOMP+6 |
| DDGFI | RECOMP+8~, RECOMP+9*, RECOMP+10* |
| DDGFLIM | KILL+6! |
| DDGFLIST | RECOMP+1~, RECOMP+2*, RECOMP+5, RECOMP+7, RECOMP+10, RECOMP+11 |
| DDGFMSG | KILL+6! |
| DDGFPG | KILL+7! |
| DDGFR | SET+2*, KILL+7! |
| DDGFREF | SET+2*, SET+3, KILL+4!, GETBLKS+6, GETBLKS+8 |
| DDGFWID | KILL+7! |
| DDGFWIDB | KILL+7! |
| >> DDGLKEY | GETKEY+2, GETKEY+3, GETKEY+4, GETKEY+5, GETKEY+6, GETKEY+7, GETKEY+8, GETKEY+9 |
| >> DDGLZOSF | KILL+2 |
| >> DDGLZOSF("EON" | KILL+2 |
| >> DDGLZOSF("TRMOFF" | KILL+2 |
| DDH | KILL+8! |
| DDSQUIET | RECOMP+6*! |
| >> DIERR | DDGF0+4, KILL+1 |
| >> DIOVRD | SET+2* |
| DT | SET+1 |
| >> DX | RECOMP+14* |
| >> DY | RECOMP+14* |
| F | GETBLKS~, GETBLKS+10, OTHER~, OTHER+5, OTHER+6 |
| F1 | OTHER+3~, OTHER+4*, OTHER+5*, OTHER+6*, GETKEY+1~, GETKEY+6* |
| F2 | GETKEY+1~, GETKEY+7* |
| F3 | GETKEY+1~, GETKEY+8* |
| F4 | GETKEY+1~, GETKEY+9* |
| I | GETKEY+1~, GETKEY+13* |
| IOSL | RECOMP+14 |
| >> IOXY | RECOMP+14 |
| K | GETKEY+1~, GETKEY+15, GETKEY+16 |
| L | GETBLKS~, GETBLKS+8, GETBLKS+9, GETBLKS+10, GETBLKS+11, OTHER~, OTHER+5, OTHER+6 |
| N | GETKEY+1~, GETKEY+11*, GETKEY+12, GETKEY+15, GETKEY+16, GETKEY+17, GETKEY+18, GETKEY+19 |
| P | GETBLKS+5~, GETBLKS+6*, GETBLKS+8 |
| T | GETKEY+1~, GETKEY+13*, GETKEY+14, GETKEY+17 |
| U | GETKEY+2, GETKEY+3, GETKEY+4, GETKEY+5, GETKEY+6, GETKEY+7, GETKEY+8, GETKEY+9, GETKEY+15, GETKEY+16 , GETKEY+17, GETKEY+18 |
| Name | Field # of Occurrence |
|---|---|
| $T(@(3)+I | GETKEY+13 |