Routine: DGRPMS

Package	Total	Call Graph
VA FileMan	4	EN^DDIOL FILE^DIE $$EXTERNAL^DILFD $$GET1^DIQ
Registration	2	GETMSE^DGMSEUTL ($$B4,$$CNFLCTDT,$$COVRLP2,$$DTUTIL,$$OVRLPCHK,$$RWITHIN,$$VALID,$$WITHIN,GETDAT)^DGRPDT

Package	Total	Caller Graph
Registration	6	DGRP61 DGRP6CL DGRP6CL1 DGRPC2 DGRPC3 DGRPTX27
Automated Medical Information Exchange	1	DVBAXA
Enrollment Application System	1	EASECSC1
HINQ	1	DVBHCE
Income Verification Match	1	IVMZ7CR

Entry Points

Name	Comments	DBIA/ICR reference
VALCON1(DFN,IEN,CDATE,FRTO)	; Valid conflict input for OIF/OEF/UNKNOWN OEF/OIF? ; Need to send the ien of the multiple as well as the DFN and ; determine the specific conflict area
VALCON(DFN,CNFLCT,CDATE,FRTO,OEIFAIL)	;is this a valid conflict input?
VALMSE(DFN,MDATE,FRTO,FLD)	;is this a valid Military Service Episode date?
BRANCH(DGCOMBR)	;branches of service that require WWII service dates
VALCOMP(DFN,CODE,DGEPI)	; Verify component is consistent with the corresponding ; branch of service Also, branch of service must be entered before ; component. ; ACTIVATED NATIONAL GUARD (G) only valid for ARMY or AIR FORCE or SPACE FORCE branch ; ACTIVATED RESERVE (V) only valid for ARMY, AIR FORCE, SPACE FORCE MARINES, NAVY ; or COAST GUARD branch ; DFN = ien of patient in file 2 ; DGEPI = episode # to check (1=LAST, 2=NTL, 3=NNTL) ; CODE = the component code ; OUTPUT: 1 if valid component ; 0 if invalid component or branch of serv missing
GETDT(DFN,CNFLCT,FRTO)	; get from date, to date, or location from patient file
WWII(DFN,TODT,FLD)	; was this patient in WWII? ; this API assumes the WWII period to be from 12/07/41-12/31/46
DELMSE(DFN,TYPE)	; delete MSE from patient
COMPOW(VAL)	;convert POW and Combat Location fields
FV(X)	;Is this a Filipino Vet branch of service?
FVP	;MUMPS cross-reference "AFV1" on Service Branch [Last] (#.325), "AFV2"
FVP1	;MUMPS cross-reference "AFV3216" on the Service Branch field (#.03)
DUPCHK(DFN,FRDT,FLD)	; Check for duplicate Service Entry Date
MSG(MSGTXT,LF1,LF2)	; This api will format the output text in order to utilize ; the EN^DDIOL utility.
CNFLCT	;; * DO NOT REMOVE BELOW CONFLICT FIELD LOCATIONS *
WWI	;;
WWIIE	;;
WWIIP	;;
KOR	;;
VIET	;;.32104^.32105
LEB	;;.3222^.3223
GREN	;;.3225^.3226
PAN	;;.3228^.3229
GULF	;;.322011^.322012
SOM	;;.322017^.322018
YUG	;;.32202^.322021
OEF	;;.02^.03
OIF	;;.02^.03
UNK	;;.02^.03
MSE	;;.01^.02^.03
MSL	;;.326^.327^.325
MSNTL	;;.3292^.3293^.3291
MSNNTL	;;.3297^.3298^.3296
COMB	;;.5293^.5294^.5292
POW	;;.527^.528^.526

Name	Field # of Occurrence
EN^DDIOL	MSG+11
GETMSE^DGMSEUTL	DUPCHK+11
$$B4^DGRPDT	VALCON+26, VALMSE+25
$$CNFLCTDT^DGRPDT	VALCON+22
$$COVRLP2^DGRPDT	VALCON+33
$$DTUTIL^DGRPDT	VALCON+15, VALMSE+21
$$OVRLPCHK^DGRPDT	VALMSE+27
$$RWITHIN^DGRPDT	WWII+16
$$VALID^DGRPDT	VALCON+11, VALMSE+12
$$WITHIN^DGRPDT	WWII+14, WWII+15
GETDAT^DGRPDT	WWII+9
FILE^DIE	DELMSE+12, FVP+12, FVP1+16
$$EXTERNAL^DILFD	GETDT+22
$$GET1^DIQ	GETDT+21, COMPOW+4

FileNo	Call Tags
^DIC(22 - [#22]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(23 - [#23]	FV+8
^DPT - [#2]	VALCON1+4, VALCON+10, VALMSE+11, VALMSE+14, VALCOMP+13, VALCOMP+14, GETDT+4, DELMSE+6, FVP+7, FVP1+9 , FVP1+11

Name	Line Occurrences
$$BRANCH	VALMSE+29
$$COMPOW	VALCON+20
$$DUPCHK	VALMSE+24
$$FV	FVP+8, FVP1+12
$$GETDT	VALCON+13, VALCON+14, VALCON+15, VALCON+20, VALMSE+19, VALMSE+20, VALMSE+21, VALMSE+28
$$VALCON	VALCON1+6
$$WWII	VALMSE+29
MSG	VALCON+16, VALCON+23, VALCON+26, VALCON+36, VALMSE+16, VALMSE+22, VALMSE+24, VALMSE+25, VALMSE+29, VALMSE+32

Name	Field # of Occurrence
^(	VALMSE+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABRV	COMPOW+2~, COMPOW+4*, COMPOW+5, COMPOW+6, COMPOW+7, COMPOW+8, COMPOW+9, COMPOW+10, COMPOW+11, COMPOW+12 , COMPOW+13
BOS	FVP+6~, FVP+8, FVP1+7~, FVP1+11, FVP1+12
BRANCH	BRANCH+1~, BRANCH+3*, BRANCH+4, BRANCH+5, BRANCH+6, BRANCH+7, BRANCH+8
CDATE	VALCON1~, VALCON1+6, VALCON~, VALCON+11, VALCON+13, VALCON+14, VALCON+15
CFLD	GETDT+2~, GETDT+15*, GETDT+16, GETDT+21, GETDT+22
CFLDS	GETDT+2~, GETDT+14*, GETDT+15
CNF1	GETDT+2~, GETDT+7*, GETDT+11, GETDT+13, GETDT+20
CNF2	GETDT+2~, GETDT+7*, GETDT+11, GETDT+13, GETDT+20
CNFLCT	VALCON~, VALCON+13, VALCON+14, VALCON+15, VALCON+17, VALCON+18, VALCON+19, VALCON+20*, VALCON+22, VALCON+27 , VALCON+33, GETDT~, GETDT+5, GETDT+7
CNFLCT2	VALCON+7~, VALCON+19*
CNFLCTV	VALCON+7~, VALCON+21, VALCON+22, VALCON+23
CODE	VALCOMP~, VALCOMP+16, VALCOMP+20
COMPOW	VALCON+7~, VALCON+18*, VALCON+25, VALCON+28, VALCON+32
>> DA	FVP+5, FVP+7, FVP+11, FVP1+10
>> DA(1	FVP1+6, FVP1+9, FVP1+11, FVP1+15
DATA	WWII+3~, WWII+9
DATA(	WWII+11
DFN	VALCON1~, VALCON1+4, VALCON1+6, VALCON~, VALCON+9, VALCON+10, VALCON+13, VALCON+14, VALCON+15, VALCON+20 , VALCON+33, VALMSE~, VALMSE+10, VALMSE+11, VALMSE+14, VALMSE+19, VALMSE+20, VALMSE+21, VALMSE+24, VALMSE+27 , VALMSE+28, VALMSE+29, VALCOMP~, VALCOMP+13, VALCOMP+14, GETDT~, GETDT+3, GETDT+4, GETDT+17, WWII~ , WWII+4, WWII+9, DELMSE~, DELMSE+6, DELMSE+8, DUPCHK~, DUPCHK+7, DUPCHK+11
DGCOMBR	VALMSE+22!, VALMSE+25!, VALMSE+28*, VALMSE+29!, VALMSE+30!, BRANCH~, BRANCH+2, BRANCH+3
>> DGCOMLOC	VALCON+20
DGEPI	VALCOMP~, VALCOMP+13, VALCOMP+14
DGFRDT	VALCON+13!, VALCON+14!, VALMSE+19!, VALMSE+20!
DTCHK	VALCON+7~, VALCON+15, VALCON+16, VALMSE+7~, VALMSE+21, VALMSE+22
DUP	DUPCHK+6~, DUPCHK+13*, DUPCHK+14
DUPCHK	VALMSE+7~, VALMSE+24*
FDA	DELMSE+7~, FVP+6~, FVP1+7~
FDA(2	FVP+11, FVP1+15
FDDFLAG	VALMSE+7~, VALMSE+14*, VALMSE+15
FILE	GETDT+2~, GETDT+17, GETDT+20, GETDT+21, GETDT+22
FLD	VALMSE~, VALMSE+19, VALMSE+20, VALMSE+21, VALMSE+24, VALMSE+27, VALMSE+28, VALMSE+29, WWII~, WWII+6 , WWII+10, DUPCHK~, DUPCHK+9
FRDT	VALCON+7~, VALCON+13, VALCON+14, VALCON+22, VALCON+26, VALCON+33, VALMSE+7~, VALMSE+19, VALMSE+20, VALMSE+24 , VALMSE+25, VALMSE+27, DUPCHK~, DUPCHK+8, DUPCHK+13
FRTO	VALCON1~, VALCON1+6, VALCON~, VALCON+12, VALCON+13, VALCON+14, VALCON+15, VALCON+22, VALCON+27, VALCON+28 , VALMSE~, VALMSE+18, VALMSE+19, VALMSE+20, VALMSE+21, VALMSE+24, VALMSE+25, VALMSE+26, VALMSE+29, GETDT~ , GETDT+6*, GETDT+15, GETDT+22
FV	FV+6~, FV+8, FV+9, FVP+6~, FVP+8, FVP+9, FVP1+7~, FVP1+8, FVP1+9, FVP1+12 , FVP1+13
IEN	VALCON1~, VALCON1+4, VALCON1+6, DUPCHK+6~, DUPCHK+12*, DUPCHK+13
IENS	GETDT+2~, GETDT+17, GETDT+20, GETDT+21, DELMSE+7~, DELMSE+8, FVP+6~, FVP+11, FVP1+7~, FVP1+15*
IGNORE	VALCON+7~, VALCON+27, VALCON+28, VALCON+33, VALMSE+7~, VALMSE+26*, VALMSE+27
LF1	MSG~, MSG+8
LF2	MSG~, MSG+10
LFSTR	MSG+6~, MSG+7*, MSG+8, MSG+10
MDATE	VALMSE~, VALMSE+12, VALMSE+14, VALMSE+19, VALMSE+20, VALMSE+21
MS	FVP+6~, FVP+7, FVP+8, FVP1+7~, FVP1+8, FVP1+9*, FVP1+10, FVP1+11
MSE	DUPCHK+6~, DUPCHK+11
MSE(	DUPCHK+12, DUPCHK+13
MSEIEN	DUPCHK+6~, DUPCHK+9*, DUPCHK+13
MSG	VALCON+7~, VALCON+25*, VALCON+26
MSGARY	MSG+6~, MSG+11
MSGARY(	MSG+8*
MSGARY(1	MSG+9*
MSGARY(2	MSG+10*
MSGTXT	MSG~, MSG+9
NODE	WWII+3~, WWII+9
NODE(	WWII+6, WWII+7
OEFOIF	VALCON+7~, VALCON+33*, VALCON+34
OEFOIF(1	VALCON+34
OEIFAIL	VALCON~, VALCON+8, VALCON+34
OK	WWII+3~, WWII+13, WWII+14, WWII+15, WWII+16, WWII+17
PATDT	WWII+3~, WWII+10*, WWII+11
PATE	WWII+3~, WWII+11*, WWII+12
PATS	WWII+3~, WWII+11*, WWII+14, WWII+16
ROOT	DELMSE+7~, DELMSE+8*, DELMSE+9, DELMSE+10, DELMSE+11
RTN	VALCON+7~, VALCON+31, VALCON+33, VALCON+34, VALCON+35, VALCON+36, VALCON+37, VALMSE+7~, VALMSE+27*, VALMSE+29 , VALMSE+31, VALMSE+32, VALMSE+33
RTN1	GETDT+2~, GETDT+21, GETDT+22, GETDT+23
TODT	VALCON+7~, VALCON+13, VALCON+14, VALCON+22, VALCON+26, VALCON+33, VALMSE+7~, VALMSE+19, VALMSE+20, VALMSE+25 , VALMSE+27, VALMSE+29, WWII~, WWII+12*, WWII+15, WWII+16
TYPE	DELMSE~, DELMSE+5, DELMSE+9, DELMSE+10, DELMSE+11
U	VALCON1+4, VALCON+33, VALMSE+14, VALCOMP+13, VALCOMP+14, GETDT+11, FV+8, FVP+8, FVP1+11
VAL	COMPOW~, COMPOW+3, COMPOW+4
WWIIE	WWII+3~, WWII+8*, WWII+14, WWII+15, WWII+16
WWIIS	WWII+3~, WWII+8*, WWII+14, WWII+15, WWII+16
X	VALCON+7~, VALMSE+7~, VALMSE+14, DELMSE+7~, DELMSE+8, DELMSE+9, DELMSE+10, DELMSE+11, FV~, FV+7 , FV+8
X1	DELMSE+7~
X2	DELMSE+7~
Y	VALCON+7~, VALMSE+7~, VALMSE+14*, DELMSE+7~
Z	VALCON1+3~, VALCON1+4, VALCON1+6, VALCOMP+11~, VALCOMP+13, VALCOMP+14*, VALCOMP+15, VALCOMP+18, VALCOMP+20
ZZ	DELMSE+7~, DELMSE+9, DELMSE+10, DELMSE+11*

Name	Field # of Occurrence
$T(@(1)	VALCON+28, GETDT+14
$T(@(4)	VALCON+27, VALMSE+26

Customize PDF page

Package: Registration

Routine: DGRPMS

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items