©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
DICUF ;SEA/TOAD,SF/TKW-FileMan: Lookup Tools, Files ;2/6/98 08:13
Source file <DICUF.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | BLD^DIALOG $$IEN^DIDU1 ($$OREF,$$ROOT)^DIQGU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SCREEN(DIFLAGS,DIFILE,DISCREEN) | ;
; Set user defined and whole file screen variables. |
|
| F1 | ; set and check source file number.
|
|
| F2 | ; get the file's .01 definition; quit & error if bad
|
|
| F3 | ; set and check the Lister's IENS parameter
|
|
| F4 | ; calculate the source file's global root (open & closed)
|
|
| VPDATA(DINDEX,DISCREEN) | ; Add variable pointer info to DINDEX array for executing DIC("V") type screen
|
|
| FILE(DIFILE,DIFIEN,DIFLAGS) | ;
; retrieve and calculate info about indexed file |
|
| ERR(DIERN,DIFILE,DIIENS,DIFIELD,DIROOT,DI1,DI2,DI3) | ;
|
|
| E1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | F2+2, F2+3, SCREEN+7, VPDATA+4, VPDATA+5, VPDATA+6 |
| ^DIC - [#1] | VPDATA+8 |
| Name | Line Occurrences |
|---|---|
| ERR | F1+2, F2+3, F2+4, F3+4, F3+5, F3+6, F4+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DI | E1+1~*, E1+2, E1+3 |
| DI1 | ERR~ |
| DI2 | ERR~ |
| DI3 | ERR~ |
| DIERN | ERR~, E1+4 |
| >> DIERR | F4+2 |
| DIFIELD | ERR~ |
| DIFIEN | FILE~, F3+2*, F3+3, F3+4, F3+5, F3+6, F4+2, F4+4 |
| DIFILE | FILE~, F1+2*, F2+2, F2+3, F2+4, F4+2, F4+3, F4+4, F4+5, SCREEN~ , SCREEN+6, SCREEN+7, ERR~ |
| DIFILE( | F4+2*, F4+3, F4+4, F4+5*, SCREEN+6 |
| DIFLAGS | FILE~, SCREEN~, SCREEN+5 |
| DIIENS | ERR~ |
| DINDEX | VPDATA~ |
| DINDEX( | VPDATA+3, VPDATA+9* |
| DINDEX("#" | VPDATA+2 |
| DINODE | F2+2~*, F2+3, F2+4 |
| DIPE | E1~, E1+4 |
| DIPE( | E1+3* |
| DIROOT | ERR~ |
| DISCREEN | SCREEN~, SCREEN+3, VPDATA~ |
| DISCREEN("F" | SCREEN+5*, SCREEN+7* |
| DISCREEN("S" | SCREEN+3* |
| DISCREEN("V" | SCREEN+4*, VPDATA+2, VPDATA+7 |
| DISUB | VPDATA+1~, VPDATA+2*, VPDATA+3, VPDATA+7, VPDATA+9 |
| F | VPDATA+1~, VPDATA+4*, VPDATA+5, VPDATA+8 |
| F1 | VPDATA+1~, VPDATA+3*, VPDATA+4, VPDATA+5, VPDATA+6 |
| F2 | VPDATA+1~, VPDATA+3*, VPDATA+4, VPDATA+5, VPDATA+6 |
| G | VPDATA+1~, VPDATA+8*, VPDATA+9 |
| I | VPDATA+1~, VPDATA+5*, VPDATA+6 |
| P | E1~, E1+2*, E1+3 |
| U | F2+4, SCREEN+6 |
| Y | VPDATA+1~ |
| Y(0 | VPDATA+6* |