Routine: DGENRPD1

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

Package	Total	Caller Graph
Registration	1	DGEN APPTS,NOT ENROLLED

Entry Points

Name	Comments	DBIA/ICR reference
DIVISION(DGENRP)	;
AGAIN
REPEAT
CLINIC(DGENRP)	;
ASKRANGE(DGENRP)	;
ASKBEGIN(DGENRP)	;
JUSTONCE(DGENRP)	;
LOCATION(DGENRP)	;
DEVICE()	;
REPORT	;
EXIT	;
ASKEND(DGENRP)	;

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+12
HOME^%ZIS	DEVICE+18
^%ZTLOAD	DEVICE+16
PRINT^DGENRPD2	REPORT+15
^DIR	LOCATION+14, REPEAT, AGAIN, DIVISION+10, CLINIC+11, JUSTONCE+13
$$FMADD^XLFDT	ASKBEGIN+12
$$FMTE^XLFDT	ASKBEGIN+12, ASKEND+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"* This report requires a 132 column printer. ****" Line Location: DEVICE+11
Function Call: WRITE	Prompt: !,"Date must be later than today!" Line Location: REPEAT+2
Function Call: WRITE	Prompt: !,"Date must be no earlier than "_DIR("B") Line Location: AGAIN+2
Routine Call	%ZIS Line Location: DEVICE+18
Routine Call	DIR Line Location: LOCATION+14 REPEAT AGAIN DIVISION+10 CLINIC+11 JUSTONCE+13
Routine Call	%ZIS Line Location: DEVICE+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	LOCATION+11

Label References

Name	Line Occurrences
$$ASKBEGIN	ASKRANGE+4
$$ASKEND	ASKRANGE+5
$$ASKRANGE	REPORT+11
$$CLINIC	LOCATION+23
$$DEVICE	REPORT+15
$$DIVISION	LOCATION+25
$$JUSTONCE	REPORT+13
$$LOCATION	REPORT+12
AGAIN	AGAIN+2
EXIT	REPORT+11, REPORT+12, REPORT+13
REPEAT	REPEAT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+10*
DGENRP	REPORT+1~, REPORT+11, REPORT+12, REPORT+13, LOCATION~, LOCATION+23, LOCATION+25, ASKRANGE~, ASKRANGE+4, ASKRANGE+5 , ASKBEGIN~, ASKEND~, DIVISION~, CLINIC~, JUSTONCE~
DGENRP("ALL"	LOCATION+19, LOCATION+21
DGENRP("BEGIN"	REPEAT+3*, ASKEND+13, AGAIN+2
DGENRP("CLINIC"	CLINIC+14*, CLINIC+15
DGENRP("DIVISION"	DIVISION+13*, DIVISION+14
DGENRP("END"	AGAIN+3*
DGENRP("JUSTONCE"	JUSTONCE+9, JUSTONCE+15
DIR	LOCATION+8~, ASKBEGIN+9~, ASKEND+10~, DIVISION+3~, CLINIC+3~, JUSTONCE+8~
DIR("?"	LOCATION+13, ASKBEGIN+13, ASKEND+14, DIVISION+7, CLINIC+7*
DIR("A"	LOCATION+12, ASKBEGIN+11, ASKEND+12, DIVISION+6, CLINIC+6, JUSTONCE+12
DIR("B"	LOCATION+10, ASKBEGIN+12, ASKEND+13, AGAIN+2, JUSTONCE+11
DIR("S"	CLINIC+8*
DIR(0	LOCATION+11, ASKBEGIN+10, ASKEND+11, DIVISION+5, CLINIC+5, JUSTONCE+10
>> DIRUT	LOCATION+15, REPEAT+1, AGAIN+1, JUSTONCE+14
DT	ASKBEGIN+12, REPEAT+2
>> DTOUT	DIVISION+11, CLINIC+12
>> DUOUT	DIVISION+11, CLINIC+12
IO("Q"	DEVICE+14
OK	DEVICE+8~, DEVICE+9, DEVICE+13, DEVICE+14, DEVICE+19*, DEVICE+20
>> POP	DEVICE+13
QUIT	DIVISION+3~, DIVISION+8, DIVISION+9, DIVISION+11, DIVISION+12, CLINIC+3~, CLINIC+9, CLINIC+10, CLINIC+12, CLINIC+13
SUCCESS	LOCATION+8~, LOCATION+9, LOCATION+16, LOCATION+23, LOCATION+25, LOCATION+27, DIVISION+3~, DIVISION+4, DIVISION+11, DIVISION+14* , DIVISION+15, CLINIC+3~, CLINIC+4, CLINIC+12, CLINIC+15*, CLINIC+16
X	ASKBEGIN+9~, ASKEND+10~
Y	LOCATION+18, LOCATION+22, LOCATION+25, ASKBEGIN+9~, REPEAT+2, REPEAT+3, ASKEND+10~, AGAIN+2, AGAIN+3, DIVISION+12 , DIVISION+13, CLINIC+13, CLINIC+14, JUSTONCE+15
>> ZTDESC	DEVICE+15*
>> ZTRTN	DEVICE+15*
>> ZTSAVE("DGENRP("	DEVICE+15*
>> ZTSK	DEVICE+17

Customize PDF page

Package: Registration

Routine: DGENRPD1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: