Routine: DGCV1

Information

DGCV1 ;ALB/ERC,BRM - COMBAT VET REPORTS; 07/10/2003 ; 2/5/04 2:52pm

Source Information

Source file <DGCV1.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	5	DD^%DT C^%DTC $$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Registration	2	($$FINDCUR,$$GET)^DGENA DEM^VADPT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DG CV STATUS DG53528P

Entry Points

Name	Comments	DBIA/ICR reference
REPORT2(DGBEG,DGEND)	;
DEM(DFN)	;
RPT2	;second report is option DG CV STATUS, a report of what veterans were
RPT(DG)	;if, during initial seeding, a veteran could not be evaluated
ADD(DGLN)	;add the line to the report
EXIT2
ADD2	;
PRINT2	;
TOP	;
TOP2	;
PRIOR(DFN)	;gets priority and sub group
PRINT	;print report
SET	;
EXIT	;
REPORT	;if there are veterans in the ^XTMP globals, create a report.
HDR2	;
LINE	;add a line to the report
DATA	;
PAUSE	;
HDR	;print header for report

External References

Name	Field # of Occurrence
DD^%DT	HDR+2, RPT2+5, RPT2+14, HDR2+2, HDR2+3, HDR2+5
C^%DTC	RPT2+4
^%ZIS	REPORT2+4
HOME^%ZIS	REPORT2+9, EXIT2
^%ZISC	REPORT2+9, EXIT2
^%ZTLOAD	REPORT+8, REPORT2+8
$$FINDCUR^DGENA	PRIOR+3
$$GET^DGENA	PRIOR+3
$$EXTERNAL^DILFD	PRIOR+6
$$GET1^DIQ	DATA+14
^DIR	RPT2+10, RPT2+18, PAUSE+4
DEM^VADPT	DEM+2, DATA+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,">>>>END OF REPORT" Line Location: PRINT+20
Function Call: WRITE	Prompt: ! Line Location: ADD+2
Function Call: WRITE	Prompt: !?2,$P(DGLN,U),?39,$P(DGLN,U,2),?52,$P(DGLN,U,3) Line Location: ADD+3
Function Call: WRITE	Prompt: @IOF Line Location: TOP+1
Function Call: WRITE	Prompt: !!?5,"REPORT OF UPDATES REQUIRED FOR COMBAT VET STATUS" Line Location: HDR+2
Function Call: WRITE	Prompt: ?62,"Date: ",Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?62,"Page: ",PAGE Line Location: HDR+3
Function Call: WRITE	Prompt: !!?5,"The following patients could not be evaluated for Combat Veteran" Line Location: HDR+4
Function Call: WRITE	Prompt: !?5,"Eligibility status due to having imprecise or missing dates." Line Location: HDR+5
Function Call: WRITE	Prompt: !!!?2,"Patient Name",?39,"SSN",?52,"Date to be updated" Line Location: HDR+6
Function Call: WRITE	Prompt: !?2,"===================================",?39,"===========",?52,"==========================" Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"DATE RANGE NOT SET. EXITING" Line Location: REPORT2+1
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED!",1:"REQUEST CANCELLED!") Line Location: REPORT2+10
Function Call: WRITE	Prompt: @IOF Line Location: PRINT2+4
Function Call: WRITE	Prompt: !!!,?30,"No data to report." Line Location: PRINT2+10
Function Call: WRITE	Prompt: !!?15,"COMBAT VETERAN STATUS CHANGED REPORT" Line Location: HDR2+4
Function Call: WRITE	Prompt: ?60,"Date: ",Y Line Location: HDR2+5
Function Call: WRITE	Prompt: !?20,DG1_" TO "_DG2 Line Location: HDR2+6
Function Call: WRITE	Prompt: ?60,"Page: "_PAGE Line Location: HDR2+7
Function Call: WRITE	Prompt: !!!?3,"NAME",?41,"SSN",?63,"CV END DATE",!?41,"PRIORITY GROUP" Line Location: HDR2+8
Function Call: WRITE	Prompt: !,?3,"===================================",?41,"=================",?63,"============" Line Location: HDR2+9
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: @IOF Line Location: TOP2+1
Function Call: WRITE	Prompt: !?3,DGNAM,?41,DGSSN,?63,DGDT,!?41,DGENR,! Line Location: LINE+1
Routine Call	%ZIS Line Location: REPORT2+9 EXIT2
Routine Call	DIR Line Location: RPT2+10 RPT2+18 PAUSE+4
Routine Call	%ZIS Line Location: REPORT2+4

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGEN(27.11 - [#27.11]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+8, DATA+8
^DPT("E"	DATA+5, DATA+7
^XTMP("DGCV"	RPT+7*, REPORT+1, REPORT+5, PRINT+7, PRINT+14

Label References

Name	Line Occurrences
$$PRIOR	DATA+16
ADD	SET+9
ADD2	DATA+18
DATA	PRINT2+8
DEM	PRINT+10
EXIT2	REPORT2+4, PRINT2+12
HDR	PRINT+4, TOP+2
HDR2	PRINT2+7, TOP2+2
LINE	ADD2+6
PAUSE	ADD+5, PRINT2+11, ADD2+2
PRINT2	REPORT2+11
REPORT2	RPT2+21
SET	PRINT+16, PRINT+18, PRINT+19
TOP	ADD+7, ADD+8
TOP2	ADD2+4, ADD2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	REPORT+3!, REPORT2+3!, REPORT2+4*
DFN	RPT+7, PRINT+1~, PRINT+6, PRINT+7, PRINT+8, PRINT+10, PRINT+14, DEM~, DATA+1~, DATA+6* , DATA+7*, DATA+8, DATA+14, DATA+16, PRIOR~, PRIOR+3
DG	RPT~, RPT+6, RPT+7
DG1	HDR2+1~, HDR2+2*, HDR2+6
DG2	HDR2+1~, HDR2+3*, HDR2+6
DGBEG	RPT2+2~, RPT2+12*, RPT2+13, RPT2+21, REPORT2~, REPORT2+1, HDR2+2, DATA+3, DATA+4
DGC	PRINT+13~, PRINT+16, PRINT+18, PRINT+19*, SET+8
DGDT	RPT2+2~, RPT2+14, RPT2+15, DATA+1~, DATA+14, DATA+15*, LINE+1
DGEN	PRIOR+2~, PRIOR+3
DGEN("PRIORITY"	PRIOR+4
DGEN("SUBGRP"	PRIOR+5
DGEND	RPT2+2~, RPT2+20*, RPT2+21, REPORT2~, REPORT2+1, HDR2+3, DATA+3, DATA+5
DGENR	DATA+1~, DATA+9!, DATA+16, DATA+17, PRIOR+4, PRIOR+6, PRIOR+7, LINE+1
DGF	PRINT+5~, PRINT+6, PRINT+14, PRINT+16, PRINT+17, PRINT+18, PRINT+19
DGFD	PRINT+5~, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+8
DGFF	PRINT+15~, PRINT+16, PRINT+18, PRINT+19*, SET+1, SET+2, SET+3, SET+4, SET+5, SET+7
DGIEN	PRIOR+2~
DGLN	PRINT+5~, PRINT+12, SET+8, SET+9, ADD~, ADD+2, ADD+3, PRINT2+1~, PRINT2+5, PRINT2+9 , LINE+2
DGNAM	PRINT+5~, PRINT+9, PRINT+11, PRINT+12, DEM+3, DATA+1~, DATA+12*, LINE+1
DGSSN	PRINT+5~, PRINT+9, PRINT+11, PRINT+12, DEM+4, DATA+1~, DATA+13*, LINE+1
DGSUB	PRIOR+2~, PRIOR+5*, PRIOR+6
DGX	ADD+1~, DATA+1~, DATA+4, DATA+5, DATA+7
DIR	RPT2+2~, PAUSE+1~
DIR("?"	RPT2+8, RPT2+17
DIR("??"	RPT2+9*
DIR("A"	RPT2+6, RPT2+16
DIR("B"	RPT2+7, RPT2+15
DIR(0	RPT2+3, RPT2+13, PAUSE+3*
DIRUT	RPT2+2~, RPT2+11, RPT2+19, PAUSE+1~, PAUSE+5
DT	HDR+2, RPT2+3, RPT2+4, RPT2+13, RPT2+14, HDR2+5
ERR	REPORT+2~, REPORT2+2~
IO	PRINT2+3
IO("Q"	REPORT2+5
IOF	TOP+1, PRINT2+4, TOP2+1
IOP	REPORT+3!, REPORT+5*, REPORT2+3!
IOSL	ADD+4, ADD+8, PAUSE+2, ADD2+1, ADD2+5
IOST	ADD+4, ADD+8, PRINT2+4, PRINT2+11, ADD2+1, ADD2+5
PAGE	PRINT+1~, PRINT+2, HDR+3, HDR+8, PRINT2+1~, PRINT2+6, HDR2+7, HDR2+10
POP	REPORT+2~, REPORT2+2~, REPORT2+4
QUIT	PRINT+1~, PRINT+3, PRINT+14, ADD+6, PRINT2+1~, PRINT2+2, DATA+1~, DATA+2, DATA+7, PAUSE+5 , ADD2+3, ADD2+6
U	DEM+4, ADD+2, ADD+3, DATA+13
VADM	RPT+5!, DEM+1~, DATA+1~, DATA+9!, DATA+11
VADM(1	DEM+3, DATA+12
VADM(2	DEM+4, DATA+13
X	REPORT+2~, RPT2+2~, RPT2+5, REPORT2+2~, PAUSE+1~
X1	RPT2+2~, RPT2+4*
X2	RPT2+2~, RPT2+4*
XPDQUES	EXIT+1!
XPDQUES("POS1"	REPORT+4
Y	HDR+1~, HDR+2, RPT2+2~, RPT2+5, RPT2+7, RPT2+12, RPT2+14, RPT2+20, HDR2+1~, HDR2+2 , HDR2+3, HDR2+5, DATA+1~, PAUSE+1~, PAUSE+5
ZTDESC	REPORT+2~, REPORT+7, REPORT2+2~, REPORT2+7
ZTIO	REPORT+2~, REPORT+4*, REPORT+5, REPORT2+2~
ZTRTN	REPORT+2~, REPORT+7, REPORT2+2~, REPORT2+7
ZTSAVE	REPORT+2~, REPORT2+2~
ZTSAVE("*"	REPORT+6*
ZTSAVE("DGBEG"	REPORT2+6*
ZTSAVE("DGEND"	REPORT2+6*
ZTSK	REPORT+2~, REPORT2+2~, REPORT2+10
ZUSR	REPORT+2~, REPORT2+2~

Customize PDF page

Package: Registration

Routine: DGCV1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: