Routine: DG311RPT

Information

DG311RPT ;ALB/JJG-Patch DG*5.3*311 Means Test Update Report ; 07 AUG 2000

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	NOW^%DTC $$EXTERNAL^DILFD

Package	Total	Caller Graph
Registration	1	DG311 MEANS TEST UPDATE REPORT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Report cancelled!" Line Location: SEL+4
Function Call: WRITE	Prompt: !!?5,"Report cancelled!" Line Location: QUEUE+3
Function Call: WRITE	Prompt: !!?5,"Report queued!" Line Location: QUEUE+4
Function Call: WRITE	Prompt: !!,$E(DGVET,1,25),?28,DGSSN,?42,DGYR,?48,$E(DGOLDSTA,1,15),?65,$E(DGNEWSTA,1,15) Line Location: START+14
Function Call: WRITE	Prompt: !!,DGVET,?36,DGSSN,?53,DGYR,?62,DGOLDSTA,?87,DGNEWSTA Line Location: START+15
Function Call: WRITE	Prompt: @IOF,!!!,?(IOM-26/2),"Updated Means Test Listing" Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,"Run Date: ",NOW Line Location: HEADER+4
Function Call: WRITE	Prompt: !!,"Veteran Name",?28,"Veteran SSN",?42,"Year",?48,"Old Status",?65,"New Status" Line Location: HEADER+6
Function Call: WRITE	Prompt: !,"============",?28,"===========",?42,"====",?48,"==========",?65,"==========" Line Location: HEADER+7
Function Call: WRITE	Prompt: !!,"Veteran Name",?36,"Veteran SSN",?49,"Income Year",?62,"Old Means Test Status",?87,"New Means Test Status" Line Location: HEADER+9
Function Call: WRITE	Prompt: !,"============",?36,"===========",?49,"===========",?62,"=====================",?87,"=====================" Line Location: HEADER+10
Function Call: WRITE	Prompt: !!!,?(IOM-19/2),"*End Of Report*" Line Location: FOOTER+1
Routine Call	%ZIS Line Location: QUEUE+5
Routine Call	%ZIS Line Location: SEL+3

FileNo	Call Tags
^DGMT(408.31 - [#408.31]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEADER+2
^XTMP("DG311PIR"	START+5, START+6, START+7, START+8, START+11

Name	Field # of Occurrence
>> %ZIS	SEL+3*
>> DGNEWSTA	START+12*, START+14, START+15
DGNST	START+2~, START+3, START+11, START+12, START+13
>> DGOLDSTA	START+10*, START+14, START+15
DGOST	START+2~, START+3, START+8, START+9, START+10, START+11, START+13
DGSSN	START+2~, START+3, START+6, START+7, START+8, START+11, START+14, START+15
DGVET	START+2~, START+3, START+5, START+6, START+7, START+8, START+11, START+14, START+15
DGYR	START+2~, START+3, START+7, START+8, START+11, START+14, START+15
DIRUT	SEL+2!
IO	HEADER+3, FOOTER+1
IO("Q"	SEL+5
IOF	HEADER+3
IOM	START+14, HEADER+3, HEADER+5, FOOTER+1
NOW	HEADER+1~, HEADER+2*, HEADER+4
>> POP	SEL+4
X	HEADER+1~, HEADER+2
Y	HEADER+1~, HEADER+2*
>> ZTDESC	QUEUE+1*
>> ZTRTN	QUEUE+1*
>> ZTSK	QUEUE+3