Routine: DGCVRPT

Information

DGCVRPT ;ALB/PJR,LBD - Unsupported CV End Dates Report; ; 6/16/09 10:53am

Source Information

Source file <DGCVRPT.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT ($$CJ,$$RJ)^XLFSTR
Registration	3	$$CALCCV^DGCV $$LAST^DGENOEIF $$LAST^DGMSEUTL
VA Fileman	2	GETS^DIQ ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DG UNSUPPORTED CV END DATE RPT DG53735P

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE()	; If report is sent to screen, prompt for next page or quit
CNT
EN	; Called from DG UNSUPPORTED CV END DATES RPT option
SCH
CVDATEQ
SRT()	; Get sort order ; OUPUT: Y - Sort (N=Name; D=DFN)
PRINT	; Print veteran
CHK	; Calculate CV End Date, check MSE data is supporting it ; INPUT: DFN - Patient file IEN ; OUTPUT: CEN = CV End Date on file ; CALC = Calculated CV End Date
PRTVAR	; Set up variables needed to print report
RPT(DGSRT)	; Entry point to produce report
TOT	; Print total records at the end of the report
LOOPD	; Sort by DFN. Loop through ^XTMP("DGCVRPT","NOSUP","DFN", x-ref
HDR	; Print report header
EN1	; Extract
EN2(DGSRT)	; Print ; INPUT DGSRT - Sort order for report (Name or DFN)
RPTQUE	; Get report device. Queue report if requested.
PUT	; Put record on list
CVDATE(DFN,DGARR,DGERR)	; Returns all values for calculating the CV End date ; in DGARR (passed by reference) ; AND ; any error codes from the DIQ call in DGERR (passed by reference) ; AND ; the calculated CV End Date as the result of the function call
LOOPN	; Sort by name. Loop through ^XTMP("DGCVRPT","NOSUP","NAM", x-ref

External References

Name	Field # of Occurrence
^%ZIS	RPTQUE+5
HOME^%ZIS	RPTQUE+13
^%ZISC	RPTQUE+15
^%ZTLOAD	RPTQUE+10
$$CALCCV^DGCV	SCH, CVDATEQ
$$LAST^DGENOEIF	CVDATE+10
$$LAST^DGMSEUTL	CVDATE+13
GETS^DIQ	CVDATE+9
^DIR	SRT+7, RPTQUE+5, RPTQUE+12, PAUSE+4
$$FMADD^XLFDT	EN1+5
$$FMTE^XLFDT	EN1+6, EN1+15, PRINT+5, PRTVAR+5
$$NOW^XLFDT	EN1+6, EN1+15
$$CJ^XLFSTR	HDR+5
$$RJ^XLFSTR	TOT+2, TOT+3, HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RPTQUE+4
Function Call: WRITE	Prompt: !!,*7,"Report Cancelled!",! Line Location: RPTQUE+5
Function Call: WRITE	Prompt: ! Line Location: EN2+10
Function Call: WRITE	Prompt: !,DFN,?12,$P(VET,U,2),?24,$E($P(VET,U,1),1,39),?64,$$FMTE^XLFDT($P(VET,U,3)) Line Location: PRINT+5
Function Call: WRITE	Prompt: !!,"Total Records Printed: ",$$RJ^XLFSTR($P(DGTOT,U,1),7) Line Location: TOT+2
Function Call: WRITE	Prompt: !!,"Total Records with CV End Dates:",$$RJ^XLFSTR($P(DGTOT,U,2),7) Line Location: TOT+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: ?0,"Report Date: ",RPTDT,?68,"Page: ",$$RJ^XLFSTR(PG,4) Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Sorted By: "_$S(DGSRT="N":"Name",1:"DFN") Line Location: HDR+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("CV END DATES WITH NO SUPPORTING MS DATA REPORT",80) Line Location: HDR+5
Function Call: WRITE	Prompt: !!,"DFN",?12,"SSN",?24,"Veteran's Name",?64,"CV End Date" Line Location: HDR+6
Function Call: WRITE	Prompt: !,DSH Line Location: HDR+7
Routine Call	%ZIS Line Location: RPTQUE+13
Routine Call	DIR Line Location: SRT+7 RPTQUE+5 RPTQUE+12 PAUSE+4
Routine Call	%ZIS Line Location: RPTQUE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CHK+6, PUT+3, CVDATE+13
^DPT("E"	EN1+13, EN1+14
^XTMP("DGCVRPT"	EN1+3!, EN1+5, EN1+6, EN1+15*, EN1+16!

Label References

Name	Line Occurrences
$$CVDATE	CHK+7
$$PAUSE	EN2+10, PRINT+4, TOT+1
$$SRT	EN+2
@(	EN2+8
CHK	EN1+14
CNT	CHK+5, PUT+2
CVDATEQ	CVDATE+16
EN1	RPT+1
EN2	RPT+1
HDR	EN2+5, PRINT+4, TOT+1
PRINT	LOOPN+4, LOOPD+2
PRTVAR	EN2+4
PUT	EN1+14
RPT	RPTQUE+14
RPTQUE	EN+3
TOT	EN2+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RPTQUE+2!, RPTQUE+3*
CALC	EN1+1~, EN1+14, CHK+6, CHK+7, CHK+10, SCH
CEN	EN1+1~, EN1+14, CHK+6*, PUT+4
CNT	EN2+2~, PRTVAR+5*
CRT	EN2+2~, PRTVAR+1*, PRTVAR+5, PAUSE+2
DATE	CVDATE+7~, CVDATE+8, CVDATE+16, CVDATE+19, CVDATE+21, CVDATEQ
DFN	EN1+1~, EN1+9, EN1+13, EN1+14, CHK+6, CHK+7, SCH, PUT+3, PUT+4, PUT+5 , LOOPN+1~, LOOPN+2, LOOPN+4, LOOPD+1~, LOOPD+2*, PRINT+2, PRINT+3, PRINT+5, CVDATE~, CVDATE+9 , CVDATE+10, CVDATE+13, CVDATE+14, CVDATE+21, CVDATEQ
DGARR	CVDATE~
DGARR("OEF/OIF"	CVDATE+10*, CVDATE+16, CVDATE+19
DGARR("SSD"	CVDATE+13, CVDATE+14, CVDATE+16, CVDATE+17, CVDATE+18, CVDATE+19, CVDATE+21
DGARR(2	CVDATE+14, CVDATE+21
DGARRY	CHK+4~, CHK+7
DGARRY("OEF/OIF"	CHK+10
DGARRY("SSD"	CHK+10
DGERR	CVDATE~
DGSRT	EN+1~, EN+2, RPTQUE+14, RPT~, RPT+1, EN2~, EN2+7, PRTVAR+4, HDR+4
DGTOT	EN2+2~, TOT+2, TOT+3, PRTVAR+3*
DGXTMP	EN1+1~, EN1+10, EN1+16!, PUT+4, PUT+5, CNT, EN2+2~, LOOPN+3, LOOPN+4, LOOPD+2 , PRINT+2, PRINT+3, PRTVAR+2, PRTVAR+3
DIR	SRT+2~, RPTQUE+1~, PAUSE+1~
DIR("?"	SRT+5, SRT+6
DIR("A"	SRT+4*
DIR("B"	SRT+4*
DIR(0	SRT+3, RPTQUE+5, RPTQUE+12, PAUSE+3
DIROUT	SRT+2~, RPTQUE+1~
DIRUT	SRT+2~, RPTQUE+1~, PAUSE+1~
DSH	EN2+2~, PRTVAR+6*, HDR+7
DT	EN1+5, PRTVAR+5
DTOUT	SRT+2~, SRT+7, RPTQUE+1~, PAUSE+1~
DUOUT	SRT+2~, SRT+7, RPTQUE+1~, PAUSE+1~
EDITED	EN1+1~, EN1+9, EN1+13, EN1+14
IO	EN2+5
IO("Q"	RPTQUE+6
IOF	HDR+2
IOP	RPTQUE+2!
IOST	PRTVAR+1
LINE	EN2+2~, PRINT+4, PRINT+6, TOT+1, HDR+1
LOOP	EN2+2~, EN2+7*, EN2+8
MXLNE	EN2+2~, PRINT+4, TOT+1, PRTVAR+5*
N	CVDATE+7~, CVDATE+21*
NAM	PUT+1~, PUT+3*, PUT+4, PUT+5
NM	LOOPN+1~, LOOPN+2, LOOPN+3, LOOPN+4
NZERO	PUT+1~, PUT+3*
OUT	EN2+2~, EN2+8, EN2+9, EN2+10, LOOPN+3, LOOPN+4, LOOPD+2, PRINT+4, TOT+1, PRTVAR+5
PG	EN2+2~, PRTVAR+5, HDR+1, HDR+3
POP	RPTQUE+1~, RPTQUE+5
RECCOUNT	EN1+1~, EN1+9, CHK+5, CNT
RES	EN1+1~
RNAME	EN1+1~, EN1+4*, EN1+5
RPTDT	EN2+2~, PRTVAR+5*, HDR+3
SELCOUNT	EN1+1~, EN1+9, PUT+2, CNT
>> SSD	SCH
SSN	PUT+1~, PUT+3*, PUT+4
U	EN1+5, EN1+6, EN1+15, CHK+6, PUT+3, PUT+4, CNT, PRINT+5, TOT+2, TOT+3 , CVDATE+10, CVDATE+13
VET	PRINT+1~, PRINT+3*, PRINT+5
X	SRT+2~, RPTQUE+1~, PAUSE+1~, CVDATE+7~
Y	SRT+2~, SRT+8, RPTQUE+1~, PAUSE+1~, PAUSE+4, CVDATE+7~
ZTDESC	RPTQUE+1~, RPTQUE+8*
>> ZTREQ	EN1+7, EN2+3
ZTRTN	RPTQUE+1~, RPTQUE+7*
ZTSAVE	RPTQUE+1~
ZTSAVE("DGSRT"	RPTQUE+9*
>> ZTSK	RPTQUE+11, EN1+7, EN2+3

Customize PDF page

Package: Registration

Routine: DGCVRPT

Call Graph Total: 10

Caller Graph Total: 2