EASECSCU ;ALB/LBD - LTC Co-Pay Test Screen Driver Utilities ;10 AUG 2001
Source file <EASECSCU.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETUP | ;Set-up the screen driver array and required screen variables
; Input -- DFN Patient IEN ; DGMTDT Date of Test ; DGMTYPT Type of Test ; Output -- DGMTSC Screen Driver Array ; DGVPRI Veteran Patient Relation IEN ; DGVINI Veteran Individual Annual Income IEN ; DGVIRI Veteran Income Relation IEN ; DGMTPAR Annual Means Test Parameter Array ; DGFORM 10-10EC Form (1=Revised; 0=Original) ; DGERR 1=ERROR and 0=NO ERROR |
|
| Q | ||
| PAR | ;Annual Means Test Parameters
; Input -- DGLY Last Year ; Output -- DGMTPAR Means Test Parameter 0th node ; Returned if the current year's parameters are not available: ; DGMTPAR("PREV") Previous Year Income Parameters |
|
| HD | ;Print screen header
; Input -- DGMTSCI Screen number ; DGVPRI Veteran Patient Relation IEN ; DGMTDT Date of Test ; DGHLPF Help Flag (Optional) ; Output -- Screen Header |
|
| HDNH | ;
|
|
| SCR(DGMTSCI) | ;Screen name and number
; Input -- DGMTSCI Screen number ; Output -- Screen number;Screen name |
|
| ROU(DGMTSCI) | ;Screen entry routine
; Input -- DGMTSCI Screen number ; Output -- Routine name |
|
| ROURET(DGMTSCI) | ;Screen read processor return routine
; Input -- DGMTSCI Screen number ; Output -- Routine name |
|
| SCRNS | ;Screen Number;Screen Name;Screen Entry Routine;Reader Return Routine
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("RM" | HD+12 |
| ^DD("DD" | HDNH+2 |
| ^DG(43 - [#43] | PAR+5, PAR+6, HD+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | SETUP+15 |
| >> DGERR | SETUP+12*, SETUP+14*, SETUP+15, SETUP+16* |
| >> DGFORM | SETUP+21* |
| DGHDR | HD+6~, HD+9*, HD+10, HDNH+1 |
| DGHLPF | HD+7*, HD+9, HDNH+2, HDNH+4! |
| DGINI | SETUP+11~, SETUP+15 |
| DGIOM | HD+6~, HD+8*, HD+10, HDNH+2 |
| DGIRI | SETUP+11~, SETUP+15 |
| DGLNE | HD+6~, HD+8*, HDNH+3 |
| DGLY | SETUP+11~, SETUP+12*, PAR+5, PAR+6 |
| >> DGMTDT | SETUP+12, SETUP+15, HDNH+2 |
| >> DGMTI | SETUP+21 |
| >> DGMTPAR | SETUP+16, PAR+5*, PAR+6* |
| >> DGMTPAR("PREV" | PAR+6* |
| DGMTSC | SETUP+12! |
| DGMTSC( | SETUP+13*, SCR+4, ROU+4, ROURET+4 |
| DGMTSCI | HD+9, SCR~, SCR+4, ROU~, ROU+4, ROURET~, ROURET+4 |
| DGMTSCR | HD+6~, SCR+3~, SCR+4*, SCR+5 |
| DGPRI | SETUP+11~, SETUP+14, SETUP+15 |
| DGPRTY | SETUP+11~ |
| DGROU | ROU+3~, ROU+4*, ROU+5, ROURET+3~, ROURET+4*, ROURET+5 |
| DGSCR | SETUP+11~ |
| DGTAB | HD+6~, HD+10*, HDNH+1 |
| >> DGVI | HD+11*, HD+12*, HDNH+1 |
| >> DGVINI | SETUP+15* |
| >> DGVIRI | SETUP+15* |
| >> DGVO | HD+11*, HD+12*, HDNH+1 |
| >> DGVPRI | SETUP+14*, HDNH+2 |
| I | SETUP+11~, SETUP+13* |
| IOF | HDNH+1 |
| IOINHI | HD+6~, HD+12 |
| IOINLOW | HD+6~, HD+12 |
| IOM | HD+8 |
| IOST(0 | HD+11 |
| X | SETUP+11~, SETUP+13*, HD+12*! |
| Y | HD+6~, HDNH+2* |
| Name | Field # of Occurrence |
|---|---|
| $T(SCRNS+I | SETUP+13 |