Routine: DGPPRP5

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
VA FileMan	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Registration	1	DG PRESUMP. PSYCH. FISCAL YEAR

Name	Comments	DBIA/ICR reference
EN	;entry point from Menu Option: PRESUMPTIVE PSYCHOSIS FISCAL YEAR REPORT
SELFY	;Select Fiscal Year(s)
SELFYQ	;Select Quarters, or complete Fiscal Year
DQ	;
DQ1	;
FMYR(YR)	;
GETQM(YR,QRT,MTH)	;
SETPER(DGPER,DGYRS,DGQRT,DGMTH)	;
PRINT	;Print out results
PRINT2	;
CHKPGHDR(LINES,OFFSET,INHIB)	;Check if Page Header needs printing
HDR(OFFSET,INHIB)	;
WHICHMTH(DGSELQ,DGSELM)	;Heading shows All Months or just the one month
FY(DATE)	; return a dates Fiscal Year
GETFISC(PROMPT)
FRMYR	;
TOYR	;
INITTEMP(DGFISCFR,DGFISCTO,DGSELQ,DGSELM)	;
GETMTH(D)	;
GETQUART(MTH)	;
GETMTHQ(MTH)	;
GETMTHS(DGSELQ)	;
GETMTHSN(DGSELQ)	;
OUT	; KILL RETURN ARRAY QUIT

Name	Field # of Occurrence
^%ZIS	SELFYQ+20
HOME^%ZIS	SELFYQ+25
^%ZISC	OUT+1
^%ZTLOAD	SELFYQ+25
$$GET1^DIQ	DQ1+7, DQ1+8
^DIR	SELFYQ+2, SELFYQ+9, SELFYQ+26, PRINT+34, CHKPGHDR+3, FRMYR+6, TOYR+2
$$FMADD^XLFDT	DQ1+2
$$FMTE^XLFDT	DQ1+4, HDR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Report compilation has started with task# ",ZTSK,".",! Line Location: SELFYQ+26
Function Call: WRITE	Prompt: !!,"No patients found for the selected criteria" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,DGMTHC,?10,$J($FN(DGM,","),10),?22,$J($FN(DGF,","),10) Line Location: PRINT+17
Function Call: WRITE	Prompt: ?36,$J($FN(DGM+DGF,","),10) Line Location: PRINT+18
Function Call: WRITE	Prompt: !,DGDASH,!,"TOTAL",?10,$J($FN(DGQRTTM,","),10),?22,$J($FN(DGQRTTF,","),10),?36,$J($FN(DGQRTTM+DGQRTTF,","),10) Line Location: PRINT+21
Function Call: WRITE	Prompt: !!,"FISCAL YEAR OVERALL SUMMARY:",!?15,$J("MALE",10),?27,$J("FEMALE",10),?41,$J("TOTAL",10) Line Location: PRINT+25
Function Call: WRITE	Prompt: !,DGYR," QUARTER ",DGQRT,?15,$J($FN(DGMM,","),10),?27,$J($FN(DGMF,","),10),?41,$J($FN(DGMM+DGMF,","),10) Line Location: PRINT+30
Function Call: WRITE	Prompt: !,DGDASH2,!!,"TOTAL PATIENTS REGISTERED FOR THE YEAR: ",?41,$J($FN(DGYRTM+DGYRTF,","),10) Line Location: PRINT+33
Function Call: WRITE	Prompt: ! Line Location: PRINT+34
Function Call: READ	Formatting: !!?8 Prompt: "End of the Report...Press Enter to Continue" Variable: X Timeout: DTIME Line Location: PRINT+36
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+36
Function Call: WRITE	Prompt: !!,DGYR," QUARTER ",$$GETQUART(DGMTH),! Line Location: PRINT2+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+7
Function Call: WRITE	Prompt: $J(" ",80-$L(DGX)\2),DGX Line Location: HDR+7
Function Call: WRITE	Prompt: !,$J(" ",80-$L(DGX)\2),DGX Line Location: HDR+8
Function Call: WRITE	Prompt: !,$J(" ",80-$L(DGHDRDT)\2),DGHDRDT Line Location: HDR+9
Function Call: WRITE	Prompt: !,$J(" ",80-$L(DGX)\2),DGX Line Location: HDR+10
Function Call: WRITE	Prompt: ?68,"Page: "_PAGE Line Location: HDR+12
Function Call: WRITE	Prompt: ! Line Location: FRMYR+1
Function Call: WRITE	Prompt: !!,"There is no record of patch DG5.3977 being installed!",!! Line Location: FRMYR+2
Routine Call	%ZIS Line Location: SELFYQ+20
Routine Call	%ZIS Line Location: SELFYQ+25
Routine Call	DIR Line Location: SELFYQ+2 SELFYQ+9 SELFYQ+26 PRINT+34 CHKPGHDR+3 FRMYR+6 TOYR+2

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPP(33.1 - [#33.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+10
^DD(2	HDR+4
^DGPP(33.1 - [#33.1]	DQ1+3, DQ1+5, DQ1+6
^TMP("DGPPRP5"	SELFYQ+12

Name	Line Occurrences
$$CHKPGHDR	PRINT+11, PRINT+20, PRINT+23, PRINT+27, PRINT+32, PRINT2+1
$$FMYR	SETPER+11
$$FY	FRMYR+4, FRMYR+5
$$GETFISC	SELFY+1
$$GETMTH	SELFYQ+10
$$GETMTHS	WHICHMTH+3
$$GETMTHSN	INITTEMP+4
$$GETQM	SETPER+12
$$GETQUART	DQ1+4, PRINT2+3, INITTEMP+7
$$WHICHMTH	HDR+8
DQ1	DQ+4
HDR	PRINT+9, CHKPGHDR+5
OUT	DQ+5
PRINT	DQ+5
PRINT2	PRINT+13
SETPER	SELFYQ+4, SELFYQ+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+2~
%ZIS	EN+2~, SELFYQ+20*
%ZIS("B"	SELFYQ+20*
D	GETMTH~, GETMTH+1
DATE	FY~, FY+2, FY+3, FY+4
DFN	EN+1~, DQ1+7*, DQ1+8
DGCAT	EN+1~, DQ1+5*, DQ1+6, PRINT+1~
DGCATL	PRINT+1~
DGDASH	PRINT+1~, PRINT+3, PRINT+21, HDR+4, HDR+13
DGDASH2	PRINT+1~, PRINT+3*, PRINT+33
DGDEFDA	GETFISC+1~
DGDEFDT	EN+1~
DGDEFFY	GETFISC+1~, FRMYR+5*, FRMYR+6, TOYR+2
DGDIV	EN+1~
DGDT	EN+1~, DQ1+1~, DQ1+2, DQ1+3, DQ1+4, DQ1+5, DQ1+6
DGDT1	SELFYQ+15, SELFYQ+16, SELFYQ+17, SELFYQ+18, DQ+1~, DQ+3, DQ+4, DQ1+2, HDR+1~, HDR+5* , HDR+6
DGDT2	SELFYQ+16, SELFYQ+17, SELFYQ+18, DQ+1~, DQ+4, DQ1+3, HDR+1~, HDR+5*, HDR+6
DGDTDEF	EN+1~, FRMYR+3*, FRMYR+4
DGDTF	EN+1~
DGDTFRM	GETFISC+1~, FRMYR+8*, TOYR+2, TOYR+4
DGDTT	EN+1~
DGDTTO	GETFISC+1~, TOYR+4*
DGDTYRS	EN+1~, SELFY+1*, SELFY+2, SELFY+5, SELFYQ+4, SELFYQ+11
DGF	PRINT+1~, PRINT+14*, PRINT+16, PRINT+17, PRINT+18
DGFIRST	GETFISC+1~, FRMYR+4*, FRMYR+6
DGFISCFR	EN+1~, SELFY+5*, INITTEMP~, INITTEMP+7
DGFISCTO	EN+1~, SELFY+5*, INITTEMP~, INITTEMP+7
DGFISCYR	EN+1~
DGFM	EN+1~, SELFYQ+18*
DGHDR	PRINT+1~, PRINT+7, PRINT+9, HDR+14
DGHDRDT	EN+1~, HDR+6*, HDR+9
DGI	EN+1~, INITTEMP+1~, INITTEMP+7*
DGINC	EN+1~
DGM	PRINT+1~, PRINT+14, PRINT+15, PRINT+17, PRINT+18, PRINT+28, PRINT+29, HDR+1~, HDR+2*
DGM1	SETPER+6~
DGM2	SETPER+6~
DGMF	PRINT+1~, PRINT+28, PRINT+29, PRINT+30
DGMM	PRINT+1~, PRINT+28, PRINT+29, PRINT+30
DGMTH	EN+1~, SELFYQ+18, DQ1+4, DQ1+10, SETPER~, SETPER+12, PRINT+1~, PRINT+10*, PRINT+12, PRINT+13 , PRINT+14, PRINT2+3
DGMTHC	PRINT+1~, PRINT+12*, PRINT+17
DGMTHFR	INITTEMP+1~, INITTEMP+2, INITTEMP+5, INITTEMP+6*, INITTEMP+7
DGMTHTO	INITTEMP+1~, INITTEMP+2, INITTEMP+5, INITTEMP+6*, INITTEMP+7
DGN	PRINT+1~
DGPER	EN+2~, SELFYQ+4, SELFYQ+11, SETPER~
DGPER(	SELFYQ+14, SELFYQ+15, SELFYQ+16, SELFYQ+17, DQ+2, DQ+3, DQ+4, SETPER+13*, HDR+5
DGQ	SETPER+6~, SETPER+10*, SETPER+11, SETPER+12, SETPER+13
DGQRT	EN+2~, SELFYQ+17, SELFYQ+18, DQ1+4, DQ1+10, SETPER~, SETPER+7, PRINT+1~, PRINT+8, PRINT+10 , PRINT+14, PRINT+26, PRINT+28, PRINT+29, PRINT+30
DGQRT1	SETPER+6~, SETPER+7*, SETPER+10
DGQRT2	SETPER+6~, SETPER+7*, SETPER+10
DGQRTTF	PRINT+1~, PRINT+8, PRINT+16, PRINT+21
DGQRTTM	PRINT+1~, PRINT+8, PRINT+15, PRINT+21
DGQSEL	DQ+1~
DGSELM	SELFYQ+4, SELFYQ+10, HDR+8, WHICHMTH~, WHICHMTH+2, WHICHMTH+4, INITTEMP~, INITTEMP+5, INITTEMP+6
DGSELMN	EN+2~, SELFYQ+10*
DGSELQ	EN+2~, SELFYQ+4*, SELFYQ+5, SELFYQ+6, SELFYQ+11, PRINT+13, HDR+8, WHICHMTH~, WHICHMTH+3, INITTEMP~ , INITTEMP+2, INITTEMP+3, INITTEMP+4, GETMTHS~, GETMTHS+2, GETMTHSN~, GETMTHSN+2
DGSEX	EN+2~, DQ1+8, DQ1+10, INITTEMP+1~, INITTEMP+7
DGTEMP	EN+2~, SELFYQ+12*, SELFYQ+18, DQ1+9, DQ1+10, PRINT+4, PRINT+6, PRINT+8, PRINT+10, PRINT+14 , PRINT+26, PRINT+28, PRINT+29, HDR+2, INITTEMP+7, OUT+2
DGTF	EN+2~, PRINT+6, PRINT+16
DGTM	PRINT+1~, PRINT+6, PRINT+15
DGTOT	PRINT+2~, PRINT+3, PRINT+15, PRINT+16*, PRINT+35
DGTTF	PRINT+1~
DGX	EN+2~, SELFYQ+6, SELFYQ+7, SELFYQ+10, SETPER+6~, SETPER+12, SETPER+13, PRINT+2~, HDR+4, HDR+7* , HDR+8, HDR+10, WHICHMTH+1~, WHICHMTH+3, WHICHMTH+4, INITTEMP+1~, INITTEMP+4, INITTEMP+5, INITTEMP+6, GETMTHS+1* , GETMTHS+2, GETMTHSN+1*, GETMTHSN+2
DGY	EN+2~, SETPER+6~, SETPER+8*, SETPER+11, SETPER+12, SETPER+13
DGY1	SETPER+6~, SETPER+11*, SETPER+13
DGYR	SELFYQ+14, SELFYQ+15, SELFYQ+16, SELFYQ+17, SELFYQ+18, DQ+1~, DQ+2, DQ+3, DQ+4, DQ1+10 , PRINT+2~, PRINT+6, PRINT+8, PRINT+10, PRINT+14, PRINT+26, PRINT+28, PRINT+29, PRINT+30, PRINT2+3 , HDR+2, HDR+5, INITTEMP+1~, INITTEMP+7
DGYRS	SETPER~, SETPER+8
DGYRTF	PRINT+1~, PRINT+7, PRINT+16, PRINT+33
DGYRTM	PRINT+1~, PRINT+7, PRINT+15, PRINT+33
DIR	SELFYQ+1!, SELFYQ+7!, SELFYQ+26!, PRINT+34!, CHKPGHDR+3!, FRMYR+6!, TOYR+2!
DIR("A"	SELFYQ+2, SELFYQ+8, FRMYR+6, TOYR+2
DIR("B"	SELFYQ+2, SELFYQ+8, FRMYR+6, TOYR+2
DIR(0	SELFYQ+1, SELFYQ+7, SELFYQ+26, PRINT+34, CHKPGHDR+3, FRMYR+6, TOYR+2*
DIRUT	SELFYQ+3, SELFYQ+9, CHKPGHDR+4, GETFISC+1~, FRMYR+7, TOYR+3
DIRYT	CHKPGHDR+1~
DT	HDR+10, FRMYR+5
DTIME	PRINT+36
DTOUT	PRINT+34, GETFISC+1~
>> DUOUT	PRINT+34
EN3312	DQ+1~
EXIT	EN+2~, SELFYQ+4, SELFYQ+5, SELFYQ+9, PRINT+2~, PRINT+5, PRINT+6, PRINT+10, PRINT+11, PRINT+13 , PRINT+19, PRINT+20, PRINT+22, PRINT+23, PRINT+26, PRINT+27, PRINT+32, PRINT+34, PRINT+35, PRINT+36 , PRINT2+1, PRINT2+2, CHKPGHDR+1~, CHKPGHDR+2, CHKPGHDR+3, CHKPGHDR+4*, CHKPGHDR+6
FY	FY+1~, FY+2*, FY+4
IEN331	DQ1+1~, DQ1+6*, DQ1+7
INHIB	CHKPGHDR~, CHKPGHDR+2, CHKPGHDR+5, HDR~, HDR+3, HDR+13
IO	PRINT+34, CHKPGHDR+3
IO("Q"	SELFYQ+20!, SELFYQ+22
>> IO(0	PRINT+34, CHKPGHDR+3
IOF	PRINT+36, HDR+7
IOM	PRINT+34
IOP	SELFYQ+20!
IOSL	CHKPGHDR+3
IOST	PRINT+34, PRINT+36, CHKPGHDR+3
LINES	CHKPGHDR~, CHKPGHDR+3
MTH	GETQM~, GETQM+2, GETQM+4, FY+1~, FY+3*, GETQUART~, GETQUART+1, GETMTHQ~, GETMTHQ+1
OFFSET	CHKPGHDR~, CHKPGHDR+2, CHKPGHDR+5, HDR~, HDR+3, HDR+13
OUT	GETFISC+1~, FRMYR+3, TOYR+4, TOYR+5
PAGE	EN+2~, SELFY+5, HDR+11, HDR+12
POP	EN+2~, SELFYQ+20*, SELFYQ+21
PROMPT	GETFISC~
QRT	GETQM~, GETQM+2, GETQM+3, FY+1~, FY+3*, FY+4
QRT1	GETQM+1~, GETQM+3, GETQM+4, GETQM+5, GETQM+7, GETQM+8
U	SELFY+5, GETQM+5, GETQM+7, SETPER+8, SETPER+13, HDR+4, TOYR+4
X	EN+2~, PRINT+36*
Y	SELFYQ+4, SELFYQ+10, SELFYQ+11, GETQM+1~, PRINT+2~, HDR+10*, GETFISC+1~, FRMYR+8, TOYR+4
YR	FMYR~, FMYR+1, GETQM~, GETQM+5, FY+1~, FY+2*
ZTDESC	EN+2~, SELFYQ+23*
ZTRTN	EN+2~, SELFYQ+23*
ZTSAVE	EN+2~
ZTSAVE("DGDTFRM"	SELFYQ+24*
ZTSAVE("DGDTFRMT"	SELFYQ+24*
ZTSAVE("DGDTTO"	SELFYQ+24*
ZTSAVE("DGRTYP"	SELFYQ+24*
ZTSAVE("ZTREQ"	SELFYQ+24*
ZTSK	EN+2~, SELFYQ+26

Customize PDF page

Package: Registration

Routine: DGPPRP5

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: