Routine: EASECSCU

Information

EASECSCU ;ALB/LBD - LTC Co-Pay Test Screen Driver Utilities ;10 AUG 2001

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	Prompt: @IOF Line Location: HDNH+1
Function Call: WRITE	Prompt: ?DGTAB,DGVI,DGHDR,DGVO Line Location: HDNH+1
Function Call: WRITE	Prompt: !,$$NAME^DGMTU1(DGVPRI)," ",$$SSN^DGMTU1(DGVPRI),?(DGIOM-26),"LTC COPAY TEST FOR " Line Location: HDNH+2
Function Call: WRITE	Prompt: Y Line Location: HDNH+2
Function Call: WRITE	Prompt: !,DGLNE Line Location: HDNH+3