Routine: DGPREP3

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA Fileman	2	WAIT^DICD ^DIR
Registration	1	DIVISION^VAUTOMA

Package	Total	Caller Graph
Registration	1	DGPRE CALL STATS

Entry Points

Name	Comments	DBIA/ICR reference
AGN
EN	; Main entry point for pre-registration calling statistics
RPT	; Build report data array
HDRQ
PRNT	; Print report to selected device
EXIT	;
HDR	;

External References

Name	Field # of Occurrence
^%ZIS	AGN+15
HOME^%ZIS	AGN+21
^%ZISC	EXIT+1
^%ZTLOAD	AGN+20
WAIT^DICD	AGN+24
^DIR	EN+10, AGN+1, HDR+1
DIVISION^VAUTOMA	AGN+10
$$FMTE^XLFDT	EN+8, HDR+9
$$NOW^XLFDT	EN+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The ending date for this report cannot be earlier then the beginning date" Line Location: AGN+5
Function Call: WRITE	Prompt: !!?10,"No data available" Line Location: PRNT+7
Function Call: WRITE	Prompt: !?10," BUSY: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"B")),5) Line Location: PRNT+12
Function Call: WRITE	Prompt: !?10," CONNECTED: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"C")),5) Line Location: PRNT+13
Function Call: WRITE	Prompt: !?10," DEATH: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"D")),5) Line Location: PRNT+14
Function Call: WRITE	Prompt: !?10," DON'T CALL: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"T")),5) Line Location: PRNT+15
Function Call: WRITE	Prompt: !?10," NO ANSWER: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"N")),5) Line Location: PRNT+16
Function Call: WRITE	Prompt: !?10," NO PHONE: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"P")),5) Line Location: PRNT+17
Function Call: WRITE	Prompt: !?10," UNCOOPERATIVE: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"U")),5) Line Location: PRNT+18
Function Call: WRITE	Prompt: !?10," WRONG NUMBER: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"W")),5) Line Location: PRNT+19
Function Call: WRITE	Prompt: !?10,"LEFT A CALLBACK MSG: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"M")),5) Line Location: PRNT+20
Function Call: WRITE	Prompt: !?10," CHANGE INFORMATION: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"X")),5) Line Location: PRNT+21
Function Call: WRITE	Prompt: !?10," PREVIOUSLY UPDATED: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"V")),5) Line Location: PRNT+22
Function Call: WRITE	Prompt: !?10," CALL BACK: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"K")),5) Line Location: PRNT+23
Function Call: WRITE	Prompt: !?10," NO STATUS: ",$J(+$G(^TMP("DGPRERPT",$J,DGPDV,"NONE")),5) Line Location: PRNT+24
Function Call: WRITE	Prompt: !?10," -------" Line Location: PRNT+25
Function Call: WRITE	Prompt: !?10," Total for Division: ",$J(SBTOT,5) Line Location: PRNT+28
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !!?5,"PRE-REGISTRATION CALL STATISTICS" Line Location: HDR+5
Function Call: WRITE	Prompt: $S(DGPDV="NO DIV":"NO DIVISION SPECIFIED",+DGPDV>0:$P($G(^DG(40.8,DGPDV,0)),U),1:"") Line Location: HDR+7
Function Call: WRITE	Prompt: !?5,"FOR PERIOD COVERING "_$$FMTE^XLFDT(DGPBEG,"2D")_" TO "_$$FMTE^XLFDT(DGPEND,"2D") Line Location: HDR+9
Function Call: WRITE	Prompt: !!?5,DGPDSH Line Location: HDR+10
Routine Call	%ZIS Line Location: AGN+21
Routine Call	DIR Line Location: EN+10 AGN+1 HDR+1
Routine Call	%ZIS Line Location: AGN+15

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	RPT+11, HDR+7
^DG(43 - [#43]	AGN+9
^DGS(41.43 - [#41.43]	RPT+7, RPT+8, RPT+9
^TMP("DGPERPT"	EXIT+2!
^TMP("DGPRERPT"	EN+3!, RPT+15, RPT+16, PRNT+4, PRNT+9, PRNT+12, PRNT+13, PRNT+14, PRNT+15, PRNT+16 , PRNT+17, PRNT+18, PRNT+19, PRNT+20, PRNT+21, PRNT+22, PRNT+23, PRNT+24, PRNT+26, PRNT+27
^TMP($J	RPT+2!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	AGN+15*
DGPABRT	EN+1~, PRNT+9, PRNT+10, HDR+1*, HDR+2
DGPBEG	EN+1~, EN+12*, AGN+4, RPT+7, HDR+9
DGPDATA	EN+1~, RPT+9, RPT+10, RPT+11, RPT+12*, RPT+13, RPT+15, RPT+16
DGPDSH	EN+1~, RPT+3*, HDR+10
DGPDV	PRNT+1~, PRNT+5, PRNT+9, PRNT+12, PRNT+13, PRNT+14, PRNT+15, PRNT+16, PRNT+17, PRNT+18 , PRNT+19, PRNT+20, PRNT+21, PRNT+22, PRNT+23, PRNT+24, PRNT+26, PRNT+27, HDR+6, HDR+7
DGPE	EN+1~, RPT+6*, RPT+7
DGPEND	EN+1~, AGN+3*, AGN+4, RPT+6, HDR+9
DGPN1	EN+1~, RPT+7*, RPT+8
DGPN2	EN+1~, RPT+8*, RPT+9
DGPTOT	EN+1~, RPT+4, RPT+14
DGSNGLDV	EN+1~, AGN+12*, RPT+11, HDR+6
DIR	EN+1~, AGN+6!
DIR("?"	EN+6, EN+7
DIR("A"	EN+9, AGN
DIR("B"	EN+8*
DIR(0	EN+4, HDR+1
DIRUT	EN+3!, EN+11, AGN+2
DUOUT	EN+3!
IO	RPT+1
IO("Q"	AGN+16, AGN+22!
IOF	HDR+3
IOST	HDR+1
PAGE	PRNT+1~, PRNT+3, HDR+1, HDR+4
POP	AGN+15, EXIT+2!
SB1	PRNT+1~, PRNT+26*, PRNT+27
SBTOT	PRNT+1~, PRNT+11, PRNT+27, PRNT+28
U	AGN+9, RPT+10, RPT+11, RPT+12, RPT+13, RPT+15, RPT+16, HDR+7
VAUTD	EN+1~, AGN+13*, RPT+13
VAUTD(	RPT+13
X1	EN+1~, EN+5*, EN+8
>> Y	EN+12, AGN+3, HDR+1
ZTDESC	AGN+17*, AGN+22!
ZTQUEUED	EXIT+1, EXIT+2!
ZTRTN	AGN+17*, AGN+22!
ZTSAVE	AGN+22!
ZTSAVE(	AGN+19*
ZTSK	AGN+20, AGN+22!
ZTX	AGN+18~, AGN+19*

Customize PDF page

Package: Registration

Routine: DGPREP3

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
AGN	AGN+4
EXIT	EN+11, AGN+2, AGN+15, AGN+16, PRNT+4, PRNT+9
HDR	PRNT+6, PRNT+10
HDRQ	HDR+2
PRNT	RPT+18