Routine: DGCV

Package	Total	Call Graph
Registration	3	($$FINDCUR,$$FINDPRI)^DGENA $$LAST^DGENOEIF $$LAST^DGMSEUTL
VA Fileman	2	FILE^DIE ($$GET1,GETS)^DIQ
Kernel	1	$$FMADD^XLFDT

Package	Total	Caller Graph
Registration	15	DG53528P DGCVRPT DGENACL2 DGPTF DGPTF1 DGPTR0 DGQEUT1 DGRP7 DGRPC2 DGRPD DGRPE DGRRLU1 DGRRLU1A DPTLK VAFHLZE1
Scheduling	5	SCMSVUT2 SDAL0 SDAMEP2 SDCO22 SDRPA07
Order Entry Results Reporting	2	ORB3 ORMARKER
Clinical Reminders	1	PXRMMSER
Consult Request Tracking	1	GMRCP5D
Outpatient Pharmacy	1	PSOMLLDT

Entry Points

Name	Comments	DBIA/ICR reference
PARSE	;GETS^DIQ called in CVELIG - in this subroutine stuff results into array
CVELIG(DFN)	;
CVEDT(DFN,DGDT)	;Provide Combat Vet Eligibility End Date, if eligible	ICR #4156 Status: Active Usage: Supported
CHKSSD(DFN)	;check the Serv Sep Date [Last] ; DGSRV=last SSD ; Output - RESULT ; 1 - Date is present and after 11/11/1998 ; 0 - Date is present but before 11/11/1998 ; A - Date is imprecise & either is or potentially is after 11/11/98 ; F - Date is missing
CVRULES(DFN,DGSRV,DGNDAA,DGYRS)	;apply rules for the CV End Date
CHKDATE(DGDATE,I,SSD)	;check to see if date is imprecise or missing
RES(DG1,DG2)	;determine the final RESULT code from DG1 & DG2
SETCV(DFN,DGSRV)	;calculate CV end date ; DGSRV is the most recent of the Service Separation Date ; or the OEF/OIF To Date, called from file #2 new style ; cross reference "ACVCOM"
CHKREST(DGDATE,SSD)	; ; SSD = optional, = to the last serv sep date
MISS(DFN,DGLEN,DGRES)	;there is at least one missing date, and in order to
CALCCV(DFN,DGSRV)	; Calculate CV end date given DFN and date to start ; calculation from ; Function returns null or CV end date calculated
DELCV(DFN)	;called by the Kill logic of the ACVCOM cross reference

Name	Field # of Occurrence
$$FINDCUR^DGENA	CVRULES+13
$$FINDPRI^DGENA	CVRULES+19
$$LAST^DGENOEIF	PARSE+11
$$LAST^DGMSEUTL	PARSE+3
FILE^DIE	SETCV+9, DELCV+14
$$GET1^DIQ	SETCV+5, CVRULES+15, CVRULES+20, CVRULES+25, CVEDT+21, DELCV+10
GETS^DIQ	CVELIG+35, MISS+6
$$FMADD^XLFDT	CALCCV+15

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ, GETS^DIQ
^DGEN(27.11 - [#27.11]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGEN(27.11 - [#27.11]	CVRULES+14
^DPT - [#2]	CVELIG+31, CALCCV+5, CVEDT+16, PARSE+3, DELCV+9

Name	Line Occurrences
$$CALCCV	SETCV+6
$$CHKDATE	CHKSSD+9, CHKREST+11
$$CHKREST	CVELIG+48
$$CHKSSD	CVELIG+38, CVELIG+45
$$MISS	CHKREST+20
$$RES	CVELIG+49
CVRULES	CALCCV+7
PARSE	CVELIG+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	CVELIG~, CVELIG+30, CVELIG+31, CVELIG+35, CVELIG+38, CVELIG+45, SETCV~, SETCV+5, SETCV+6, SETCV+8 , CALCCV~, CALCCV+4, CALCCV+5, CALCCV+7, CVRULES~, CVRULES+13, CVEDT~, CVEDT+15, CVEDT+16, CVEDT+21 , PARSE+3, PARSE+4, PARSE+5, PARSE+6, PARSE+7, PARSE+8, PARSE+9, PARSE+11, CHKSSD~, CHKREST+20 , MISS~, MISS+6, MISS+7, MISS+8, MISS+9, MISS+10, DELCV~, DELCV+8, DELCV+9, DELCV+10 , DELCV+13
DG1	CVELIG+27~, CVELIG+29, CVELIG+38, CVELIG+41, CVELIG+46, CVELIG+49, RES~, RES+2, RES+4, RES+5 , RES+6, RES+8, RES+9, CHKSSD+7~, CHKSSD+9, CHKSSD+10*, CHKSSD+11
DG2	CVELIG+27~, CVELIG+29, CVELIG+48, CVELIG+49, RES~, RES+2, RES+4, RES+5, RES+6, RES+8* , RES+9
DG3	CHKREST+2~, CHKREST+3, CHKREST+12, CHKREST+13, CHKREST+15, CHKREST+16*, CHKREST+20
DG4	CHKREST+2~, CHKREST+3, CHKREST+11, CHKREST+12
DGARR	CVELIG+34~, MISS+3~
DGARR(2	PARSE+4, PARSE+5, PARSE+6, PARSE+7, PARSE+8, PARSE+9, MISS+7, MISS+8, MISS+9, MISS+10
DGCHAR	CHKREST+15, CHKREST+16, CHKREST+17, MISS+3~, MISS+5, MISS+11*, MISS+12, MISS+13, MISS+14, MISS+15
DGCIEN	CVRULES+6~, CVRULES+13*, CVRULES+14, CVRULES+15, CVRULES+18, CVRULES+25
DGCIND	MISS+4~, MISS+7*, MISS+12
DGCOM	CVELIG+28~, CVELIG+39, PARSE+5*
DGCUTOFF	CVRULES+6~, CVRULES+12*, CVRULES+27, CVRULES+31
DGCV	DELCV+5~, DELCV+10*, DELCV+11
DGCVDT	CVELIG+28~, PARSE+9*
DGCVEDT	SETCV+4~, SETCV+6, SETCV+7, SETCV+8, CALCCV+3~, CALCCV+14, CALCCV+15*, CALCCV+16
DGCVFLG	CVELIG+28~, DELCV+6!, DELCV+7, DELCV+12
DGDATE	CVELIG+39*, CVELIG+41, CVELIG+45, CVELIG+48, CHKDATE~, CHKDATE+6, CHKDATE+8, CHKDATE+9, CHKDATE+10, CHKDATE+15 , CHKREST~, CHKREST+9
DGDT	CVEDT~, CVEDT+18, CVEDT+19, CVEDT+20, CVEDT+23, CHKREST+2~, CHKREST+9*, CHKREST+10, CHKREST+11
DGENRDT	CVRULES+6~, CVRULES+15, CVRULES+16, CVRULES+17, CVRULES+20, CVRULES+21, CVRULES+22
DGERR	CVELIG+34~, MISS+3~
DGFDA	SETCV+4~, DELCV+5~
DGFDA(2	SETCV+8, DELCV+13
DGFLG	CHKREST+2~, CHKREST+5, CHKREST+10, CHKREST+20
DGGULF	CVELIG+28~, CVELIG+39, PARSE+6*
DGLEN	CHKREST+2~, CHKREST+13*, CHKREST+15, CHKREST+20, MISS~, MISS+11
DGNDAA	CALCCV+3~, CALCCV+6*, CALCCV+7, CALCCV+13, CVRULES~, CVRULES+16, CVRULES+17, CVRULES+22
DGOEIF	CVELIG+28~, CVELIG+39, PARSE+11*
DGPGIND	MISS+4~, MISS+10*, MISS+15
DGPIEN	CVRULES+6~, CVRULES+18, CVRULES+19, CVRULES+20
DGPLUS3	CALCCV+3~
DGPRI	CVRULES+6~, CVRULES+11, CVRULES+16, CVRULES+22*, CVRULES+24
DGQ	CHKREST+2~, CHKREST+4, CHKREST+14, CHKREST+15, CHKREST+16, CHKREST+17, CHKREST+18, CHKREST+19, MISS+3~, MISS+5* , MISS+11, MISS+12, MISS+13, MISS+14*
DGQT	CVRULES+6~, CVRULES+11, CVRULES+19, CVRULES+22
DGR	CHKREST+2~, CHKREST+3, CHKREST+17, CHKREST+19, MISS+3~, MISS+5, MISS+12, MISS+13, MISS+14, MISS+15* , MISS+16
DGRES	CHKREST+2~, CHKREST+3, CHKREST+20, CHKREST+21, MISS~, MISS+11
DGSIND	MISS+4~, MISS+9*, MISS+14
DGSOM	CVELIG+28~, CVELIG+39, PARSE+7*
DGSRV	CVELIG+28~, CVELIG+41, CVELIG+44~, CVELIG+45, CVELIG+48, SETCV~, SETCV+6, CALCCV~, CALCCV+4, CALCCV+7 , CALCCV+13, CVRULES~, CVRULES+27, CVRULES+31, PARSE+3, PARSE+4*, CHKSSD+8, CHKSSD+9
DGSTAT	CVRULES+6~, CVRULES+25*, CVRULES+26
DGTMPDT	CALCCV+3~, CALCCV+13*, CALCCV+14
DGX	CHKREST+2~, CHKREST+8, CHKREST+9, CHKREST+10, CHKREST+11, CHKREST+15, MISS+3~, MISS+11*
DGYIND	MISS+4~, MISS+8*, MISS+13
DGYRS	CALCCV+3~, CALCCV+7, CALCCV+8, CALCCV+13, CALCCV+14, CVRULES~, CVRULES+10, CVRULES+27, CVRULES+31*
DGYUG	CVELIG+28~, CVELIG+39, PARSE+8*
DT	CVEDT+18
I	CVELIG+27~, CHKDATE~, CHKDATE+6, CHKDATE+7, CHKDATE+9, CHKDATE+13
RES	CHKDATE+4~, CHKDATE+5, CHKDATE+6, CHKDATE+7, CHKDATE+9, CHKDATE+13, CHKDATE+14, CHKDATE+15*, CHKDATE+16
RESULT	CVELIG+27~, CVELIG+29, CVELIG+30, CVELIG+31, CVELIG+49, CVELIG+50, CVEDT+13~, CVEDT+14, CVEDT+21, CVEDT+22 , CVEDT+23, CVEDT+24, CVEDT+25
SSD	CHKDATE~, CHKREST~, CHKREST+11
U	CVELIG+41, CVELIG+45, PARSE+3, PARSE+11, CHKREST+9
Z	CVELIG+44~, CVELIG+45*, CVELIG+46

Customize PDF page

Package: Registration

Routine: DGCV

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 25

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: