Routine: DGPPRP1

Package	Total	Call Graph
Kernel	6	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT $$INSTALDT^XPDUTL $$STA^XUAF4
Registration	3	HELP^DGPPRP3 $$SITE^VASITE DIVISION^VAUTOMA
VA FileMan	3	^%DT ($$GET1,GETS)^DIQ ^DIR

Package	Total	Caller Graph
Registration	7	DG PRESUMP. PSYCHOSIS STATUS DGOTHRP1 DGOTHRP2 DGOTHRP5 DGPPRP2 DGPPRP3 DGPPRP4

Name	Comments	DBIA/ICR reference
EN	;entry point from Menu Option: PRESUMPTIVE PSYCHOSIS STATUS REPORT
ASKDIV	;Select Division
SELCAT	;
SELDATES	;
DQ	;
PRINT	;Print results by Division/PP Category/Treatment Date/Patient Name
PRINT2	;
HDR	; Print page header
SET(IENDFN,DGDT,FD,TD,VAUTD)	;
SELDIV(DGDIVSEL)	;prompt for DIVISION
CHKTREAT(RET,DFN,DGDTF,DGDTT,ARRDIV)	;
CHKTRSET	;
DTFRMTO(PROMPT)	;Get from and to dates
FRMDT	;
TODT	;
SELECT(PROMPT,SET)	; prompts for a report type
GETDEFD()	;
OUT	; KILL RETURN ARRAY QUIT

Name	Field # of Occurrence
^%DT	FRMDT+4, TODT+2
^%ZIS	SELDATES+7
HOME^%ZIS	SELDATES+11
^%ZISC	OUT+1
^%ZTLOAD	SELDATES+11
HELP^DGPPRP3	EN+7
$$GET1^DIQ	HDR+5, CHKTREAT+21
GETS^DIQ	SET+4, SET+7, CHKTREAT+19
^DIR	ASKDIV+2, SELDATES+12, PRINT2+5, SELECT+1
$$SITE^VASITE	ASKDIV+2
DIVISION^VAUTOMA	SELDIV+6
$$FMADD^XLFDT	DQ+4
$$FMTE^XLFDT	SELDATES+4, DQ+3, PRINT+4, PRINT2+9, FRMDT+2, FRMDT+6, TODT+1
$$NOW^XLFDT	DQ+3, TODT+1
$$INSTALDT^XPDUTL	GETDEFD+2
$$STA^XUAF4	CHKTREAT+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There is no record of patch DG5.3977 being installed!",!! Line Location: EN+2
Function Call: WRITE	Prompt: @IOF Line Location: EN+4
Function Call: WRITE	Prompt: !,"PRESUMPTIVE PSYCHOSIS STATUS REPORT" Line Location: EN+5
Function Call: WRITE	Prompt: !,"Presumptive Psychosis Category not found in Patient file" Line Location: SELCAT+2
Function Call: WRITE	Prompt: !!,"Report compilation has started with task# ",ZTSK,".",! Line Location: SELDATES+12
Function Call: READ	Formatting: !!?8 Prompt: "End of the Report...Press Enter to Continue" Variable: X Timeout: DTIME Line Location: DQ+15
Function Call: WRITE	Prompt: @IOF Line Location: DQ+15
Function Call: WRITE	Prompt: !!?10," << None found >> ",!! Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+11
Function Call: WRITE	Prompt: ! Line Location: PRINT2+5
Function Call: WRITE	Prompt: ?28,DGCATL(DGCAT),?57,$$FMTE^XLFDT(DGDT\1) Line Location: PRINT2+9
Function Call: WRITE	Prompt: $J(" ",80-$L(DGX)/2),DGX Line Location: HDR+3
Function Call: WRITE	Prompt: !,$J(" ",80-$L(DGHDRDT)/2),DGHDRDT Line Location: HDR+4
Function Call: WRITE	Prompt: !,$J(" ",80-$L(DGX)/2),DGX Line Location: HDR+6
Function Call: WRITE	Prompt: !,$J(" ",80-$L(DGDTP)/2-1),DGDTP Line Location: HDR+7
Function Call: WRITE	Prompt: !!?68,"Page: ",PAGE,!,DASH Line Location: HDR+8
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"PID",?28,"PRESUMPTIVE PSYCHOSIS CAT.",?57,"STATUS DATE" Line Location: HDR+9
Function Call: WRITE	Prompt: !,DASH Line Location: HDR+10
Function Call: WRITE	Prompt: ! Line Location: SELDIV+2
Function Call: WRITE	Prompt: !!,7,"**WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP",! Line Location: SELDIV+4
Function Call: WRITE	Prompt: ! Line Location: FRMDT+4
Function Call: WRITE	Prompt: !!,"'From' date may not be earlier than "_$$FMTE^XLFDT(DGDTDEF,"5PZ") Line Location: FRMDT+6
Function Call: WRITE	Prompt: !,"Future dates are not allowed, please re-enter",! Line Location: FRMDT+7
Function Call: WRITE	Prompt: !!,"'To' date may not be earlier than 'From' date" Line Location: TODT+4
Function Call: WRITE	Prompt: !,"Future dates are not allowed, please re-enter",! Line Location: TODT+5
Routine Call	DIR Line Location: ASKDIV+2 SELDATES+12 PRINT2+5 SELECT+1
Routine Call	%ZIS Line Location: SELDATES+7
Routine Call	%ZIS Line Location: SELDATES+11

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ
^DGPP(33.1 - [#33.1]	GETS^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^SCE - [#409.68]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	SELCAT+1, PRINT+3
^DG(40.8 - [#40.8]	SELDIV+3
^DGPP(33.1 - [#33.1]	DQ+4, DQ+5, DQ+9, DQ+10, DQ+11, SET+2
^SCE("ADFN"	CHKTREAT+17, CHKTREAT+18
^TMP("DGPPRP1"	SELDATES+5

Name	Line Occurrences
$$DTFRMTO	SELDATES+2
$$GETDEFD	EN+2
$$SELDIV	ASKDIV+1
$$SELECT	SELCAT+3
CHKTREAT	SET+3
CHKTRSET	CHKTREAT+22, CHKTREAT+23
FRMDT	FRMDT+6, FRMDT+7
HDR	PRINT2+7, PRINT2+9
OUT	DQ+14, PRINT+2
PRINT	DQ+14
PRINT2	PRINT+10
SET	DQ+12
TODT	TODT+4, TODT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DTFRMTO+1~, FRMDT+3, FRMDT+4!, FRMDT+7!, TODT+1, TODT+2!, TODT+4!, TODT+5!
%DT("A"	FRMDT+3, TODT+1
%DT("B"	FRMDT+2, TODT+1
%ZIS	EN+1~, SELDATES+7*
%ZIS("B"	SELDATES+7*
ARRDIV	CHKTREAT~, CHKTREAT+22
ARRDIV(	CHKTREAT+23
DASH	PRINT+1~, PRINT+5*, HDR+8, HDR+10
DFN	EN+1~, DQ+1~, DQ+10, DQ+12, DQ+13, PRINT+1~, PRINT+9, PRINT+10, PRINT2+2, PRINT2+3 , PRINT2+4, SET+1~, SET+2*, SET+3, SET+11, CHKTREAT~, CHKTREAT+17, CHKTREAT+18
DFNA	DQ+1~
DFNA(	DQ+12, DQ+13*
DFNS	SET+1~, SET+2*, SET+4, SET+11
DGCAT	EN+1~, DQ+5, DQ+7, DQ+9, DQ+11, PRINT+1~, PRINT2+1~, PRINT2+3, PRINT2+4, PRINT2+9 , SET+1~, SET+9*, SET+11
DGCATL	PRINT+1~, PRINT+3!
DGCATL(	PRINT+3*, PRINT2+9
DGCO	CHKTREAT+16~
DGDIV	EN+1~, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PRINT2+2, PRINT2+3, PRINT2+4, HDR+5, SET+1~ , SET+5, SET+6, SET+10, SET+11, CHKTREAT+16~, CHKTREAT+20*, CHKTREAT+21, CHKTREAT+23, CHKTRSET+1
DGDIVSEL	EN+1~, ASKDIV+1, ASKDIV+2, DQ+12, SET+3, SELDIV~, SELDIV+8*
DGDT	EN+1~, SELDATES+2, SELDATES+3, DQ+4, DQ+5, DQ+9, DQ+11, DQ+12, PRINT+1~, PRINT+10* , PRINT2+2, PRINT2+3, PRINT2+4, PRINT2+9, SET~, SET+11, CHKTREAT+16~, CHKTREAT+17*, CHKTREAT+18, CHKTRSET+1
DGDT1	PRINT2+1~, PRINT2+2, PRINT2+3, PRINT2+4, SET+1~, SET+6, SET+11
DGDTDEF	EN+1~, EN+2*, FRMDT+2, FRMDT+6
DGDTF	EN+1~, SELDATES+3*, SELDATES+4, DQ+4, DQ+12, PRINT+4, CHKTREAT~, CHKTREAT+17
DGDTFC	SELDATES+1~, SELDATES+4*
DGDTFRM	DTFRMTO+1~, FRMDT+8*, TODT+4, TODT+6
DGDTP	EN+1~, DQ+3*, HDR+7
DGDTT	EN+1~, SELDATES+3*, SELDATES+4, DQ+4, DQ+12, PRINT+4, CHKTREAT~, CHKTREAT+17
DGDTTC	SELDATES+1~, SELDATES+4*
DGDTTO	DTFRMTO+1~, TODT+6*
DGHDRDT	PRINT+1~, PRINT+4*, HDR+4
DGHDRYN	PRINT+1~, PRINT+5, PRINT+6, PRINT2+5, PRINT2+7, PRINT2+9, HDR+11
DGI	PRINT+1~, PRINT+3, SET+1~, SET+8
DGIEN	CHKTREAT+16~, CHKTREAT+18*, CHKTREAT+19, CHKTREAT+20, CHKTRSET+1
DGIENS	SET+1~, SET+8*, SET+9, SET+11
DGN	DQ+1~, DQ+11*
DGOUT	SET+1~, SET+7!, CHKTREAT+16~, CHKTREAT+19!, GETDEFD+1~, GETDEFD+2
DGOUT(	SET+8, SET+9, SET+11, CHKTREAT+19, CHKTREAT+20, CHKTRSET+1
DGOUT(""	GETDEFD+3
DGPAT	SET+1~
DGPAT(2	SET+11
DGPATNA	PRINT+1~, PRINT+8*, PRINT+9, PRINT+10, PRINT2+2, PRINT2+3, PRINT2+4, PRINT2+9, PRINT2+10
DGRES	EN+1~
DGRET	SET+1~, SET+3
DGRET(	SET+5, SET+6, SET+11
DGRTYP	EN+1~, SELCAT+3*, DQ+6, DQ+7, SET+9
DGSET	EN+1~, SELCAT+1*, SELCAT+2, SELCAT+3
DGSRTFAC	EN+1~, ASKDIV+2*, HDR+5, SET+10
DGSTA	PRINT2+1~, PRINT2+4, HDR+5, CHKTREAT+21, CHKTRSET+1
DGSTD	SET+1~
DGSUB1	SET+1~, SET+10*, SET+11
DGTEMP	EN+1~, SELDATES+5*, PRINT+2, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PRINT2+2, PRINT2+3, PRINT2+4 , SET+11, OUT+2
DGX	EN+1~, ASKDIV+1, PRINT+1~, PRINT+3, PRINT2+4, PRINT2+9, HDR+1~, HDR+2, HDR+3, HDR+5* , HDR+6, SET+1~
DGY	PRINT+1~, PRINT+3*, SET+1~
DGYN	EN+1~, DQ+6, DQ+7, DQ+8
DIR	SELDATES+12!, PRINT2+5!, SELECT+1!
DIR("A"	ASKDIV+2, SELECT+1
DIR("B"	ASKDIV+2, SELECT+1
DIR(0	ASKDIV+2, SELDATES+12, PRINT2+5, FRMDT+2, SELECT+1*
DIRUT	DTFRMTO+1~
DIV	SELDIV+1~
DT	FRMDT+2, FRMDT+7, TODT+5
DTIME	DQ+15
DTOUT	PRINT2+6, DTFRMTO+1~
DUOUT	PRINT2+6, DTFRMTO+1~
EXIT	DQ+1~, DQ+2, DQ+15, PRINT+5, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PRINT2+2, PRINT2+3 , PRINT2+5, PRINT2+6*, SELECT+2
FAC	SELDIV+1~
FD	SET~, SET+3
IENDFN	DQ+1~, DQ+9*, DQ+10, DQ+11, DQ+12, SET~, SET+2, SET+4, SET+7, SET+8
IENDFNS	SET+1~, SET+4*
IO	PRINT2+5
IO("Q"	SELDATES+7!, SELDATES+8
IO(0	PRINT2+5
IOF	EN+4, DQ+15, PRINT+2, PRINT2+7
IOP	SELDATES+7!
IOSL	PRINT2+5
IOST	DQ+15, PRINT2+5
LASTPNA	PRINT+1~, PRINT+7, PRINT2+9, PRINT2+10
OUT	DTFRMTO+1~, FRMDT+1, TODT+6, TODT+7
PAGE	EN+1~, PRINT+3, PRINT2+5, HDR+2, HDR+8
POP	EN+1~, SELDATES+7*
PROMPT	DTFRMTO~, SELECT~
RET	CHKTREAT~
RET(	CHKTRSET+1*
SET	SELECT~, SELECT+1
STATUS	DTFRMTO+1~
STDT	DTFRMTO+1~
TD	SET~, SET+3
U	ASKDIV+2, SELCAT+1, SELCAT+2, SELDATES+3, DQ+10, PRINT+3, PRINT2+4, PRINT2+9, SET+2, SET+11 , CHKTRSET+1, TODT+6
VAUTD	EN+1~, SET~, SELDIV+1~, SELDIV+8
X	DQ+15, DTFRMTO+1~, GETDEFD+1~, GETDEFD+2
Y	EN+1~, ASKDIV+2, SELCAT+4, SELDIV+1~, SELDIV+7, DTFRMTO+1~, FRMDT+5, FRMDT+6, FRMDT+7!, FRMDT+8 , TODT+3, TODT+4, TODT+5!, TODT+6, SELECT+2, SELECT+3
ZTDESC	EN+1~, SELDATES+9*
ZTRTN	EN+1~, SELDATES+9*
ZTSAVE	EN+1~
ZTSAVE("DGDTFRM"	SELDATES+10*
ZTSAVE("DGDTFRMT"	SELDATES+10*
ZTSAVE("DGDTTO"	SELDATES+10*
ZTSAVE("DGRTYP"	SELDATES+10*
ZTSAVE("ZTREQ"	SELDATES+10*
ZTSK	EN+1~, SELDATES+12

Customize PDF page

Package: Registration

Routine: DGPPRP1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: