Routine: DGMTSCU

Information

DGMTSCU ;ALB/RMO/CAW,LBD - Means Test Screen Driver Utilities ;21 JAN 1992 8:00 pm

Source file <DGMTSCU.m>

Package	Total	Call Graph
Registration	5	$$ASKNW^DGMTCOU $$LYR^DGMTSCU1 ($$NAME,$$SSN)^DGMTU1 GETIENS^DGMTU2 NEW^DGRPEIS1
Enrollment Application System	1	GETFIPS^EASAILK
Kernel	1	ENDR^%ZISS

Package	Total	Caller Graph
Registration	11	DG311PIR DGMTDD3 DGMTP DGMTSC DGMTSC2 DGMTSC2V DGMTSC3 DGMTSC3V DGMTSC4 DGMTSC4V DGMTSCR

Name	Comments	DBIA/ICR reference
SCRNS1	;Screen Number;Screen Name;Screen Entry Routine;Reader Return Routine
PAR	;Annual Means Test Parameters ; Input -- DGLY Last Year ; Output -- DGMTPAR Means Test Parameter 0th node ; DGMTGMT GMT Threshold values ; DGMTNWC Net Worth Calculation flag ; Returned if the current year's parameters are not available: ; DGMTPAR("PREV") Previous Year Income Parameters	ICR #959 Status: Active Usage: Private
ROURET(DGMTSCI)	;Screen read processor return routine ; Input -- DGMTSCI Screen number ; Output -- Routine name
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 ; DGMTGMT GMT Threshold Values ; DGMTNWC Net Worth Calculation flag ; DGERR 1=ERROR and 0=NO ERROR
HDNH	;
Q
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
SCRNS	;Screen Number;Screen Name;Screen Entry Routine;Reader Return Routine
HD	;Print screen header ; Input -- DGMTSCI Screen number ; DGVPRI Veteran Patient Relation IEN ; DGMTDT Date of Test ; DGHLPF Help Flag (Optional) ; Output -- Screen Header

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-24),"ANNUAL INCOME FOR " Line Location: HDNH+2
Function Call: WRITE	Prompt: Y Line Location: HDNH+2
Function Call: WRITE	Prompt: !,DGLNE Line Location: HDNH+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	HD+12
^DD("DD"	HDNH+2
^DG(43 - [#43]	PAR+8, PAR+9, PAR+11, HD+11
^DGMT(408.31 - [#408.31]	SETUP+17, SETUP+20
^EAS(712.5	PAR+16

Name	Field # of Occurrence
^(0	PAR+8, PAR+9

Name	Field # of Occurrence
>> DFN	SETUP+24, PAR+14
>> DGERR	SETUP+13, SETUP+23, SETUP+24, SETUP+25*
DGHDR	HD+6~, HD+9*, HD+10, HDNH+1
DGHLPF	HD+7*, HD+9, HDNH+2, HDNH+4!
DGINI	SETUP+12~, SETUP+24
DGIOM	HD+6~, HD+8*, HD+10, HDNH+2
DGIRI	SETUP+12~, SETUP+24
DGLNE	HD+6~, HD+8*, HDNH+3
DGLY	SETUP+12~, SETUP+13*, PAR+8, PAR+9, PAR+14
>> DGMTDT	SETUP+13, SETUP+24, HDNH+2
>> DGMTGMT	PAR+13, PAR+16
>> DGMTI	SETUP+17, SETUP+20
>> DGMTNWC	PAR+11*
>> DGMTPAR	SETUP+25, PAR+8, PAR+9
>> DGMTPAR("PREV"	PAR+9*
DGMTSC	SETUP+13!
DGMTSC(	SETUP+18, SETUP+21, 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
>> DGMTYPT	SETUP+14
DGPRI	SETUP+12~, SETUP+23, SETUP+24
DGPRTY	SETUP+12~
DGROU	ROU+3~, ROU+4, ROU+5, ROURET+3~, ROURET+4, ROURET+5
DGSCR	SETUP+12~, SETUP+14*, SETUP+18, SETUP+21
DGTAB	HD+6~, HD+10*, HDNH+1
>> DGVI	HD+11, HD+12, HDNH+1
>> DGVINI	SETUP+24*
>> DGVIRI	SETUP+24*
>> DGVO	HD+11, HD+12, HDNH+1
>> DGVPRI	SETUP+23*, HDNH+2
GMT	PAR+7~, PAR+14
GMT("GMTIEN"	PAR+15, PAR+16
I	SETUP+12~, SETUP+18, SETUP+21
IOF	HDNH+1
>> IOINHI	HD+12
>> IOINLOW	HD+12
IOM	HD+8
IOST(0	HD+11
X	SETUP+12~, SETUP+18, SETUP+21, HD+12*!
Y	HD+6~, HDNH+2*

Name	Field # of Occurrence
$T(SCRNS+I	SETUP+18
$T(SCRNS1+I	SETUP+21