Routine: DGRPDT

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

Package	Total	Caller Graph
Registration	7	DGMSCK DGMSRPT1 DGRP6CL1 DGRPC1 DGRPC2 DGRPC3 DGRPMS

Entry Points

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

Name	Field # of Occurrence
GETS^DIQ	GETDAT+8, GETDAT+12
$$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, GETDAT+12

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+13
$$OVRLPCHK	COVRLP2+2, COVRLP2+4
$$RWITHIN	OVRLPCHK+17, OVRLPCHK+23, CNFLCTDT+8
$$SAME	OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+28
$$VALID	DTUTIL+2, WITHIN+2, WITHIN+4
$$WITHIN	RWITHIN+2, RWITHIN+3, OVRLPCHK+20, CNFLCTDT+6, CNFLCTDT+7
GETDAT	OVRLPCHK+11
IGNORE	OVRLPCHK+10

Name	Field # of Occurrence
^(	GETDAT+12

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+11, OVRLPCHK+13, GETDAT~, MSEONLY~
DATA(	OVRLPCHK+12!, OVRLPCHK+14, OVRLPCHK+15, GETDAT+26*, MSEONLY+2, MSEONLY+3
DATA("COMBAT"	GETDAT+24*
DATA("GREN"	GETDAT+19*
DATA("GULF"	GETDAT+21*
DATA("LEB"	GETDAT+18*
DATA("MSL"	GETDAT+14*
DATA("MSNNTL"	GETDAT+16*
DATA("MSNTL"	GETDAT+15*
DATA("PAN"	GETDAT+20*
DATA("SOM"	GETDAT+22*
DATA("VIET"	GETDAT+17*
DATA("YUG"	GETDAT+23*
DATA1	GETDAT+1~
DATA1(	GETDAT+14, GETDAT+15, GETDAT+16, GETDAT+17, GETDAT+18, GETDAT+19, GETDAT+20, GETDAT+21, GETDAT+22, GETDAT+23 , GETDAT+24, GETDAT+26
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+11, GETDAT~, GETDAT+2, GETDAT+8 , GETDAT+12
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+23*, OVRLPCHK+24, OVRLPCHK+27, OVRLPCHK+28
DGRW2	OVRLPCHK+2~, OVRLPCHK+23*, OVRLPCHK+25, OVRLPCHK+27, OVRLPCHK+28
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+20*, OVRLPCHK+21, OVRLPCHK+27
DGW2	OVRLPCHK+2~, OVRLPCHK+20*, OVRLPCHK+22, OVRLPCHK+27
DGZ	OVRLPCHK+2~, OVRLPCHK+13*
DR	GETDAT+1~, GETDAT+6*, GETDAT+8, GETDAT+12
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+13, OVRLPCHK+17, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+27, OVRLPCHK+28, SAME~ , SAME+2, SAME+3, MSEONLY~, MSEONLY+6, CNFLCTDT~, CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8
FRDT1	OVRLPCHK+2~, OVRLPCHK+15, OVRLPCHK+16, OVRLPCHK+17, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+28, 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+8!, OVRLPCHK+10
IMPRDT	B4+1~
IRTN	B4+1~, B4+5, B4+10, B4+11
LOOP	GETDAT+1~, GETDAT+9, GETDAT+10, GETDAT+13, 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
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+18, OVRLPCHK+21, OVRLPCHK+22, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+27 , OVRLPCHK+28
MYFLG	DTUTIL~, DTUTIL+6
NODE	OVRLPCHK+2~, OVRLPCHK+10, OVRLPCHK+11, GETDAT~, GETDAT+2, IGNORE~
NODE(	OVRLPCHK+5, OVRLPCHK+8, OVRLPCHK+9, GETDAT+4, GETDAT+6, GETDAT+9, GETDAT+13, IGNORE+3, IGNORE+4, IGNORE+5 , IGNORE+6, IGNORE+7
OEFOIF	COVRLP2~, COVRLP2+2, COVRLP2+4, OVRLPCHK~, OVRLPCHK+8, OVRLPCHK+12, OVRLPCHK+13, OVRLPCHK+21, OVRLPCHK+22, OVRLPCHK+24 , OVRLPCHK+25, OVRLPCHK+26, OVRLPCHK+28, OVRLPCHK+29
OEFOIF(1	OVRLPCHK+13, OVRLPCHK+29
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+14, OVRLPCHK+21, OVRLPCHK+22, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+30
RTN1	OVRLPCHK+2~, OVRLPCHK+17*, OVRLPCHK+29
RVAL	IGNORE+1~
SAME	B4~, B4+4
SUB	GETDAT+1~, GETDAT+3, GETDAT+4, GETDAT+5, GETDAT+6, GETDAT+9, GETDAT+12, GETDAT+13
SUB1	GETDAT+1~
SUB1(	GETDAT+12*
SUBND	GETDAT+1~, GETDAT+5*, GETDAT+7
SUBRNG	OVRLPCHK+2~, OVRLPCHK+14, OVRLPCHK+15, OVRLPCHK+26, OVRLPCHK+28, MSEONLY+1~, MSEONLY+2, MSEONLY+3
TMPDAT	GETDAT+1~
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+13, OVRLPCHK+17, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+27, OVRLPCHK+28, SAME~ , SAME+2, SAME+3, MSEONLY~, MSEONLY+7, CNFLCTDT~, CNFLCTDT+5, CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8
TODT1	OVRLPCHK+2~, OVRLPCHK+15, OVRLPCHK+16, OVRLPCHK+17, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+28, SAME~ , SAME+2, SAME+3, MSEONLY+1~, MSEONLY+3, MSEONLY+4
TYPE	OVRLPCHK~, OVRLPCHK+4, OVRLPCHK+13, OVRLPCHK+17, OVRLPCHK+18, OVRLPCHK+29
U	OVRLPCHK+12, OVRLPCHK+26, OVRLPCHK+28, CNFLCTDT+5, GETCNFDT+7
X	DTUTIL+4~, GETDAT+1~
X1	GETDAT+1~
Y	DTUTIL+4~
Z	GETDAT+1~, GETDAT+3, GETDAT+26
Z0	GETDAT+1~, GETDAT+12*

Customize PDF page

Package: Registration

Routine: DGRPDT

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items