Routine: DGENRPA1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

DGENRPA1 ;ALB/CJM - Enrolled Veterans Report; JUL 9,1997

Source Information

Source file <DGENRPA1.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
Registration	1	PRINT^DGENRPA2
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGEN ENROLLED VETERANS

Entry Points

Name	Comments	DBIA/ICR reference
REPORT	;
DEVICE(INDATE)	;
ASKDATE()	;

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+12
HOME^%ZIS	DEVICE+18
^%ZTLOAD	DEVICE+16
PRINT^DGENRPA2	REPORT+7
^DIR	ASKDATE+12
$$FMADD^XLFDT	ASKDATE+8
$$FMTE^XLFDT	ASKDATE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"* This report requires a 132 column printer. ****" Line Location: DEVICE+11
Routine Call	%ZIS Line Location: DEVICE+12
Routine Call	%ZIS Line Location: DEVICE+18
Routine Call	DIR Line Location: ASKDATE+12

Label References

Name	Line Occurrences
$$DEVICE	REPORT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+10*
DIR	ASKDATE+4~
DIR("?"	ASKDATE+9, ASKDATE+10, ASKDATE+11*
DIR("A"	ASKDATE+6, ASKDATE+7
DIR("B"	ASKDATE+8*
DIR(0	ASKDATE+5*
>> DIRUT	ASKDATE+13
DT	ASKDATE+8
INDATE	REPORT+1~, DEVICE~
IO("Q"	DEVICE+14
OK	DEVICE+8~, DEVICE+9, DEVICE+13, DEVICE+14, DEVICE+19*, DEVICE+20
>> POP	DEVICE+13
X	ASKDATE+4~
Y	ASKDATE+4~, ASKDATE+14
>> ZTDESC	DEVICE+15*
>> ZTRTN	DEVICE+15*
>> ZTSAVE("INDATE"	DEVICE+15*
>> ZTSK	DEVICE+17