Routine: DGRPDT

Package	Total	Call Graph
Kernel	1	($$DT,$$FMTE)^XLFDT
VA FileMan	1	GETS^DIQ

Package	Total	Caller Graph
Registration	8	DGENUPL3 DGMSCK DGMSRPT1 DGRP6CL1 DGRPC1 DGRPC2 DGRPC3 DGRPMS
Income Verification Match	1	IVMZ7CR

Entry Points

Name	Comments	DBIA/ICR reference
DTUTIL(DGNEWDT,DGOLDDT,MYFLG)	; Date precision comparision API
CHKEXC(MSDATE)	; construct precision string (3 digit return value - YMD)
MNTHYR(MSDATE)	; ensure month and year are not imprecise (binary return value)
WITHIN(FRDT,TODT,CHKDT)	; is CHKDT within FRDT and TODT?
VALID(DATE)	; is this a valid Fileman date? (limits are from FR^XLFDT)
B4(DATE1,DATE2,SAME)	;is DATE1 before DATE2?
RWITHIN(FRDT,TODT,CHKDT1,CHKDT2)	;are CHKDT1 and CHKDT2 within FRDT and TODT?
COVRLP2(DFN,FRDT,TODT,IGNORE,OEFOIF)	; check conflict with type 0 and 2 (see below)
OVRLPCHK(DFN,FRDT,TODT,TYPE,IGNORE,OEFOIF,MSE)	;check for overlapping date ranges ; pass OEFOIF by ref - return OEFOIF(1)=1: OEF/OIF "cnflct not within MSE
SAME(FRDT1,TODT1,FRDT,TODT)	;
GETDAT(DFN,NODE,DATA)	;get data from the Patient (#2) file
MSEONLY(DATA,FRDT,TODT)	; are these dates within the whole MSE period?
CNFLCTDT(FRDT,TODT,CNFLCT)	;are these dates valid for this conflict?
GETCNFDT(CNFLCT)	; get the date range for input conflict
IGNORE(NODE,IFLD)	; extract top-level field to ignore when comparing
CNFLCT	;; * DO NOT REMOVE OR CHANGE BELOW CONFLICT VALUES *
WWI	;;2170406^2181111
WWIIE	;;2411207^2461231
WWIIP	;;2411207^2461231
KOR	;;2500627^2550131
VIET	;;2610228^2750507
LEB	;;2831001^
GREN	;;2831023^2831121
PAN	;;2891220^2900131
GULF	;;2900802^
SOM	;;2920928^
YUG	;;2920622^
OTHER	;;^
OIF	;;3030301^^3030319
OEF	;;3010901^^3010911
UNK	;;3010901^^3010911

Name	Field # of Occurrence
GETS^DIQ	GETDAT+8, GETDAT+13, GETDAT+16
$$DT^XLFDT	GETCNFDT+5
$$FMTE^XLFDT	CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	COVRLP2+1, OVRLPCHK+3, OVRLPCHK+6, GETDAT+13, GETDAT+16

Name	Line Occurrences
$$B4	WITHIN+4, WITHIN+5, SAME+2, SAME+3, MSEONLY+6, MSEONLY+7
$$CHKEXC	DTUTIL+5, B4+5
$$GETCNFDT	CNFLCTDT+3
$$MNTHYR	DTUTIL+6
$$MSEONLY	OVRLPCHK+16
$$OVRLPCHK	COVRLP2+2, COVRLP2+4
$$RWITHIN	OVRLPCHK+20, OVRLPCHK+26, CNFLCTDT+8
$$SAME	OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+31
$$VALID	DTUTIL+2, WITHIN+2, WITHIN+4
$$WITHIN	RWITHIN+2, RWITHIN+3, OVRLPCHK+23, CNFLCTDT+6, CNFLCTDT+7
GETDAT	OVRLPCHK+13
IGNORE	OVRLPCHK+12

Name	Field # of Occurrence
^(	GETDAT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CDATE1	B4+1~, B4+6*, B4+10, B4+11
CDATE2	B4+1~, B4+6*, B4+10, B4+11
CHK1	RWITHIN+1~, RWITHIN+2*, RWITHIN+4
CHK2	RWITHIN+1~, RWITHIN+3*, RWITHIN+4
CHKDT	WITHIN~, WITHIN+2, WITHIN+5
CHKDT1	RWITHIN~, RWITHIN+2
CHKDT2	RWITHIN~, RWITHIN+3
CNFLCT	CNFLCTDT~, CNFLCTDT+1, CNFLCTDT+3, GETCNFDT~, GETCNFDT+1, GETCNFDT+3
CNFLCT1	GETCNFDT+2~, GETCNFDT+3*
CRNG	CNFLCTDT+2~, CNFLCTDT+3, CNFLCTDT+4, CNFLCTDT+5, CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8, GETCNFDT+2~, GETCNFDT+4, GETCNFDT+5* , GETCNFDT+6, GETCNFDT+7, GETCNFDT+8
DATA	OVRLPCHK+2~, OVRLPCHK+13, OVRLPCHK+16, GETDAT~, MSEONLY~
DATA(	OVRLPCHK+15!, OVRLPCHK+17, OVRLPCHK+18, GETDAT+30, GETDAT+32, MSEONLY+2, MSEONLY+3
DATA("COMBAT"	GETDAT+28*
DATA("GREN"	GETDAT+23*
DATA("GULF"	GETDAT+25*
DATA("LEB"	GETDAT+22*
DATA("MSE-"	OVRLPCHK+14!
DATA("MSL"	GETDAT+18*
DATA("MSNNTL"	GETDAT+20*
DATA("MSNTL"	GETDAT+19*
DATA("PAN"	GETDAT+24*
DATA("SOM"	GETDAT+26*
DATA("VIET"	GETDAT+21*
DATA("YUG"	GETDAT+27*
DATA1	GETDAT+1~
DATA1(	GETDAT+18, GETDAT+19, GETDAT+20, GETDAT+21, GETDAT+22, GETDAT+23, GETDAT+24, GETDAT+25, GETDAT+26, GETDAT+27 , GETDAT+28, GETDAT+30, GETDAT+32
DATA1("MSE-"	GETDAT+14*
DATE	VALID~, VALID+1, VALID+2
DATE1	B4~, B4+2*, B4+3, B4+4, B4+5, B4+7, B4+8, B4+9, B4+12
DATE2	B4~, B4+2*, B4+3, B4+4, B4+5, B4+7, B4+8, B4+9, B4+12
DFN	COVRLP2~, COVRLP2+1, COVRLP2+2, COVRLP2+4, OVRLPCHK~, OVRLPCHK+3, OVRLPCHK+6, OVRLPCHK+13, GETDAT~, GETDAT+2 , GETDAT+8, GETDAT+13, GETDAT+16
DGNEWDT	DTUTIL~, DTUTIL+2, DTUTIL+5, DTUTIL+6
DGOLDDT	DTUTIL~, DTUTIL+1, DTUTIL+3, DTUTIL+5
DGRPB41	WITHIN+1~, WITHIN+5*, WITHIN+6, WITHIN+7
DGRPB42	WITHIN+1~, WITHIN+5*, WITHIN+6, WITHIN+7
DGRW1	OVRLPCHK+2~, OVRLPCHK+26*, OVRLPCHK+27, OVRLPCHK+30, OVRLPCHK+31
DGRW2	OVRLPCHK+2~, OVRLPCHK+26*, OVRLPCHK+28, OVRLPCHK+30, OVRLPCHK+31
DGS1	SAME+1~, SAME+2*, SAME+4
DGS2	SAME+1~, SAME+2*, SAME+5
DGS3	SAME+1~, SAME+3*, SAME+6
DGS4	SAME+1~, SAME+3*, SAME+7
DGW1	OVRLPCHK+2~, OVRLPCHK+23*, OVRLPCHK+24, OVRLPCHK+30
DGW2	OVRLPCHK+2~, OVRLPCHK+23*, OVRLPCHK+25, OVRLPCHK+30
DGZ	OVRLPCHK+2~, OVRLPCHK+16*
DR	GETDAT+1~, GETDAT+6*, GETDAT+8, GETDAT+13, GETDAT+16
ERR	GETDAT+1~
EXACTN	DTUTIL+4~, DTUTIL+5*, DTUTIL+7, DTUTIL+9, DTUTIL+10
EXACTO	DTUTIL+4~, DTUTIL+5*, DTUTIL+7, DTUTIL+9, DTUTIL+10
FRDT	WITHIN~, WITHIN+3, WITHIN+4, WITHIN+5, RWITHIN~, RWITHIN+2, RWITHIN+3, COVRLP2~, COVRLP2+2, COVRLP2+4 , OVRLPCHK~, OVRLPCHK+16, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+26, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+30, OVRLPCHK+31, SAME~ , SAME+2, SAME+3, MSEONLY~, MSEONLY+6, CNFLCTDT~, CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8
FRDT1	OVRLPCHK+2~, OVRLPCHK+18, OVRLPCHK+19, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+26, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+31, SAME~ , SAME+2, SAME+3, MSEONLY+1~, MSEONLY+3, MSEONLY+4
FROM	MSEONLY+1~
FROM(	MSEONLY+4*
FROM(""	MSEONLY+5
I	DTUTIL+4~, DTUTIL+8, DTUTIL+9, DTUTIL+10, DTUTIL+11, B4+7, B4+8, B4+9
IDT	B4+1~
IFLD	IGNORE~, IGNORE+2*, IGNORE+4, IGNORE+6, IGNORE+7
IGNORE	COVRLP2~, COVRLP2+2, COVRLP2+4, OVRLPCHK~, OVRLPCHK+6!, OVRLPCHK+10!, OVRLPCHK+12
IMPRDT	B4+1~
IRTN	B4+1~, B4+5, B4+10, B4+11
LOOP	GETDAT+1~, GETDAT+9, GETDAT+10, GETDAT+17, IGNORE+1~, IGNORE+2, IGNORE+3, IGNORE+4, IGNORE+5, IGNORE+6 , IGNORE+7*
LSTPC	IGNORE+1~, IGNORE+5*, IGNORE+6, IGNORE+7
MSDATE	DTUTIL+4~, CHKEXC~, CHKEXC+1, MNTHYR~, MNTHYR+1
MSE	OVRLPCHK~, OVRLPCHK+6, OVRLPCHK+14
MSEFR	MSEONLY+1~, MSEONLY+5*, MSEONLY+6, MSEONLY+7
MSETO	MSEONLY+1~, MSEONLY+5*, MSEONLY+6, MSEONLY+7
MSG	DTUTIL+4~, DTUTIL+11, DTUTIL+12, OVRLPCHK+2~, OVRLPCHK+21, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+30 , OVRLPCHK+31
MYFLG	DTUTIL~, DTUTIL+6
NODE	OVRLPCHK+2~, OVRLPCHK+12, OVRLPCHK+13, GETDAT~, GETDAT+2, IGNORE~
NODE(	OVRLPCHK+6, OVRLPCHK+7, OVRLPCHK+10, OVRLPCHK+11, GETDAT+4, GETDAT+6, GETDAT+9, GETDAT+17, IGNORE+3, IGNORE+4* , IGNORE+5, IGNORE+6, IGNORE+7
OEFOIF	COVRLP2~, COVRLP2+2, COVRLP2+4, OVRLPCHK~, OVRLPCHK+10, OVRLPCHK+15, OVRLPCHK+16, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+27 , OVRLPCHK+28, OVRLPCHK+29, OVRLPCHK+31, OVRLPCHK+32
OEFOIF(1	OVRLPCHK+16, OVRLPCHK+32
PC	IGNORE+1~, IGNORE+7*
QLOOP	IGNORE+1~, IGNORE+7
RTN	DTUTIL+4~, DTUTIL+5, DTUTIL+8, DTUTIL+9, DTUTIL+10, DTUTIL+12, DTUTIL+13, COVRLP2+2, COVRLP2+3, COVRLP2+4 , COVRLP2+5, OVRLPCHK+2~, OVRLPCHK+17, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+30, OVRLPCHK+31, OVRLPCHK+33
RTN1	OVRLPCHK+2~, OVRLPCHK+20*, OVRLPCHK+32
RVAL	IGNORE+1~
SAME	B4~, B4+4
SUB	GETDAT+1~, GETDAT+3, GETDAT+4, GETDAT+5, GETDAT+6, GETDAT+9, GETDAT+11, GETDAT+13, GETDAT+14, GETDAT+16 , GETDAT+17
SUB1	GETDAT+1~
SUB1(	GETDAT+16*
SUBND	GETDAT+1~, GETDAT+5*, GETDAT+7
SUBRNG	OVRLPCHK+2~, OVRLPCHK+17, OVRLPCHK+18, OVRLPCHK+29, OVRLPCHK+31, MSEONLY+1~, MSEONLY+2, MSEONLY+3
TMPDAT	GETDAT+1~
TMPDAT(	GETDAT+14
TO	MSEONLY+1~
TO(	MSEONLY+4*
TO(""	MSEONLY+5
TODT	WITHIN~, WITHIN+3, WITHIN+4, WITHIN+5, RWITHIN~, RWITHIN+2, RWITHIN+3, COVRLP2~, COVRLP2+2, COVRLP2+4 , OVRLPCHK~, OVRLPCHK+16, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+26, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+30, OVRLPCHK+31, SAME~ , SAME+2, SAME+3, MSEONLY~, MSEONLY+7, CNFLCTDT~, CNFLCTDT+5, CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8
TODT1	OVRLPCHK+2~, OVRLPCHK+18, OVRLPCHK+19, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+26, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+31, SAME~ , SAME+2, SAME+3, MSEONLY+1~, MSEONLY+3, MSEONLY+4
TYPE	OVRLPCHK~, OVRLPCHK+4, OVRLPCHK+16, OVRLPCHK+20, OVRLPCHK+21, OVRLPCHK+32
U	OVRLPCHK+15, OVRLPCHK+29, OVRLPCHK+31, CNFLCTDT+5, GETCNFDT+7
X	DTUTIL+4~, GETDAT+1~, GETDAT+14*
X1	GETDAT+1~, GETDAT+14*
Y	DTUTIL+4~
Z	GETDAT+1~, GETDAT+3, GETDAT+30, GETDAT+32*
Z0	GETDAT+1~, GETDAT+13, GETDAT+16

Customize PDF page

Package: Registration

Routine: DGRPDT

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items