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	7	DGRP6 DGRP6CL ^DPT DGRP6CL1 DGRPC2 DGRPC3 DGRPTX17
Integrated Billing	1	SERVICE [OEF OR OIF]

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
BRANCH(DGCOMBR)	;branches of service that require WWII service dates
WWIIP	;;
MSG(MSGTXT,LF1,LF2)	; This api will format the output text in order to utilize ; the EN^DDIOL utility.
MSL	;;.326^.327^.325
WWII(DFN,TODT,FLD)	; was this patient in WWII? ; this API assumes the WWII period to be from 12/07/41-12/31/46
MSE	;;.01^.02^.03
KOR	;;
WWIIE	;;
PAN	;;.3228^.3229
FVP1	;MUMPS cross-reference "AFV3216" on the Service Branch field (#.03)
COMB	;;.5293^.5294^.5292
POW	;;.527^.528^.526
DUPCHK(DFN,FRDT,FLD)	; Check for duplicate Service Entry Date
SOM	;;.322017^.322018
FV(X)	;Is this a Filipino Vet branch of service?
YUG	;;.32202^.322021
GREN	;;.3225^.3226
DELMSE(DFN,TYPE)	; delete MSE from patient
CNFLCT	;; * DO NOT REMOVE BELOW CONFLICT FIELD LOCATIONS *
LEB	;;.3222^.3223
VALMSE(DFN,MDATE,FRTO,FLD)	;is this a valid Military Service Episode date?
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 branch ; ACTIVATED RESERVE (V) only valid for ARMY, AIR 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
UNK	;;.02^.03
FVP	;MUMPS cross-reference "AFV1" on Service Branch [Last] (#.325), "AFV2"
VALCON(DFN,CNFLCT,CDATE,FRTO,OEIFAIL)	;is this a valid conflict input?
GETDT(DFN,CNFLCT,FRTO)	; get from date, to date, or location from patient file
GULF	;;.322011^.322012
WWI	;;
MSNTL	;;.3292^.3293^.3291
COMPOW(VAL)	;convert POW and Combat Location fields
OIF	;;.02^.03
VIET	;;.32104^.32105
OEF	;;.02^.03
MSNNTL	;;.3297^.3298^.3296

Name	Field # of Occurrence
EN^DDIOL	MSG+11
GETMSE^DGMSEUTL	DUPCHK+11
$$B4^DGRPDT	VALCON+26, VALMSE+18
$$CNFLCTDT^DGRPDT	VALCON+22
$$COVRLP2^DGRPDT	VALCON+33
$$DTUTIL^DGRPDT	VALCON+15, VALMSE+14
$$OVRLPCHK^DGRPDT	VALMSE+20
$$RWITHIN^DGRPDT	WWII+16
$$VALID^DGRPDT	VALCON+11, VALMSE+10
$$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+9, VALCOMP+13, VALCOMP+14, GETDT+4, DELMSE+6, FVP+7, FVP1+9, FVP1+11

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

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+19
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+8, VALMSE+9, VALMSE+12, VALMSE+13, VALMSE+14, VALMSE+17, VALMSE+20, VALMSE+21 , VALMSE+22, 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+15!, VALMSE+18!, VALMSE+21*, VALMSE+22!, VALMSE+23!, BRANCH~, BRANCH+2, BRANCH+3
>> DGCOMLOC	VALCON+20
DGEPI	VALCOMP~, VALCOMP+13, VALCOMP+14
DGFRDT	VALCON+13!, VALCON+14!, VALMSE+12!, VALMSE+13!
DTCHK	VALCON+7~, VALCON+15, VALCON+16, VALMSE+7~, VALMSE+14, VALMSE+15
DUP	DUPCHK+6~, DUPCHK+13*, DUPCHK+14
DUPCHK	VALMSE+7~, VALMSE+17*
FDA	DELMSE+7~, FVP+6~, FVP1+7~
FDA(2	FVP+11, FVP1+15
FILE	GETDT+2~, GETDT+17, GETDT+20, GETDT+21, GETDT+22
FLD	VALMSE~, VALMSE+12, VALMSE+13, VALMSE+14, VALMSE+17, VALMSE+20, VALMSE+21, VALMSE+22, WWII~, WWII+6 , WWII+10, DUPCHK~, DUPCHK+9
FRDT	VALCON+7~, VALCON+13, VALCON+14, VALCON+22, VALCON+26, VALCON+33, VALMSE+7~, VALMSE+12, VALMSE+13, VALMSE+17 , VALMSE+18, VALMSE+20, 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+11, VALMSE+12, VALMSE+13, VALMSE+14, VALMSE+17, VALMSE+18, VALMSE+19, VALMSE+22, 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+19*, VALMSE+20
LF1	MSG~, MSG+8
LF2	MSG~, MSG+10
LFSTR	MSG+6~, MSG+7*, MSG+8, MSG+10
MDATE	VALMSE~, VALMSE+10, VALMSE+12, VALMSE+13, VALMSE+14
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+20*, VALMSE+22 , VALMSE+24, VALMSE+25, VALMSE+26
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+12, VALMSE+13, VALMSE+18 , VALMSE+20, VALMSE+22, WWII~, WWII+12*, WWII+15, WWII+16
TYPE	DELMSE~, DELMSE+5, DELMSE+9, DELMSE+10, DELMSE+11
U	VALCON1+4, VALCON+33, 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~, 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~, DELMSE+7~
Z	VALCON1+3~, VALCON1+4, VALCON1+6, VALCOMP+11~, VALCOMP+13, VALCOMP+14*, VALCOMP+15, VALCOMP+17, VALCOMP+19
ZZ	DELMSE+7~, DELMSE+9, DELMSE+10, DELMSE+11*

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

Customize PDF page

Package: Registration

Routine: DGRPMS

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items