Routine: DGRPC3

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

DGRPC3 ;ALB/PJR,LBD,BAJ,TDM - CHECK CONSISTENCY OF PATIENT DATA (CONT) ; 10/20/10 3:40pm

Source Information

Source file <DGRPC3.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Registration	8	$$FORIEN^DGADDUTL GET^DGENOEIF ($$CNCK,$$MSCK,$$MSFROMTO)^DGMSCK TIME^DGRPC ^DGRPCF ($$OVRLPCHK,$$RWITHIN)^DGRPDT ($$BRANCH,$$FV,$$WWII)^DGRPMS ELIG^VADPT
Income Verification Match	2	LOADSD^IVMZ072 LOADPT^IVMZ07C

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGRPC2

Entry Points

Name	Comments	DBIA/ICR reference
COMB
END
OVER99CK
NEXT
99	; synonymous with END
88	;Temporary Address check
79	;; MSE Dates overlap
82	;; Conflict Dates not within MSE
83	;Merchant Seaman or Filipino Vet BOS requires service dates during WWII
80	;; POW Dates not within MSE
81	;; Combat Dates not within MSE
86	;Ineligible Filipino Vet should have Veteran status = 'NO'
87	; DG5.3657 BAJ 11/24/2005 CC #87 added ; SC Eligibility but no rated Disability Codes ; 1. Svc Connected is answered "YES" ; 2. Eligibility code is either SC < 50% or SC 50-100% ; 3. Svc connected %-age is 0 or greater ; 4. Patient has no rated disabilities ; .. VAEL(1) $P 1 = Primary Eligibility Code $p 2 = Primary Elig External Value ; .. VAEL(3) $P 1 = SERVICE CONNECTED? $P 2 = SC % ; .. Rated Disabilities : ^DPT(DFN,.372,0) $P 4 is number of records '($P($G(^DPT(DFN,.372,0)),"^",4)) is TRUE
84	;Filipino Vet BOS requires Filipino Vet Proof
85	;Eligible Filipino Vet should have Veteran status = 'YES'

External References

Name	Field # of Occurrence
$$FORIEN^DGADDUTL	88+13
GET^DGENOEIF	82+11
$$CNCK^DGMSCK	82+1
$$MSCK^DGMSCK	79+3, 81+4, 82+2
$$MSFROMTO^DGMSCK	81+4, 82+2
TIME^DGRPC	END+2
^DGRPCF	END+4
$$OVRLPCHK^DGRPDT	79+9, 79+11, 79+12
$$RWITHIN^DGRPDT	81+7, 82+8, 82+16
$$BRANCH^DGRPMS	83+8, 83+15
$$FV^DGRPMS	84+7, 84+13, 86+6, 86+16
$$WWII^DGRPMS	83+8, 83+15, 86+8, 86+18
LOADSD^IVMZ072	OVER99CK+1
LOADPT^IVMZ07C	OVER99CK+1
ELIG^VADPT	87+11

Name	Line Occurrences (* Changed, ! Killed)
^DIC(23 - [#23]	83+6, 83+13
^DPT - [#2]	87+19
^HL(779.004 - [#779.004]	88+12

Label References

Name	Line Occurrences
@(	79+3, 79+5, 79+11, 79+12, 79+13, 80+2, 81+1, 81+3, 81+6, 81+8 , 82+17, 83+3, 83+16, 84+3, 84+14, 86+27, 87+14, 87+20, 88+16, OVER99CK+2 , OVER99CK+3, OVER99CK+4
COMB	79+9, 79+11, 79+12, 81+6, 81+7, 82+8, 82+16, 83+8, 83+15, 84+7 , 84+13, 86+23, 86+25, 87+19, 88+15, END, OVER99CK+2, OVER99CK+3, OVER99CK+4
NEXT	79+3, 79+5, 79+11, 79+12, 79+13, 80+2, 81+1, 81+3, 81+6, 81+8 , 82+17, 83+3, 83+16, 84+3, 84+14, 86+27, 87+14, 87+20, 88+16
OVER99CK	END+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ANYMSE	79+3, 79+11, 79+12, 81+6
BOS	83+1~, 83+6, 83+8, 83+13, 83+15, 84+1~, 84+6, 84+7, 84+12, 84+13 , 86+1~, 86+6, 86+16
BOSN	83+1~, 83+6, 83+8, 83+13, 83+15
C	END+3!
C1	END+3!
C2	END+3!
>> CONARR(	82+3, 82+8*
>> CONCHK	82+1*
>> CONSPEC(	82+3, 82+5
DATA	82+4~, 82+5*, 82+6
>> DFN	79+9, 79+11, 79+12, 82+11, 83+8, 83+15, 86+8, 86+18, 87+19, OVER99CK+1
DGCD	END+3!
DGCHK	86+24, END+3!, NEXT
>> DGCON	END+2*
>> DGCT	COMB*
DGD	END+3!
DGD1	END+3!
DGD2	END+3!
DGDATE	END+3!
DGDEP	END+3!
>> DGEDCN	END+2
>> DGER	81+3, 82+12, 82+14, COMB*
DGERR	88+1~, 88+2, 88+10, 88+12, 88+14, 88+15
DGFL	END+3!
DGI	88+1~, 88+14*
DGINC	END+3!
DGISYR	END+3!
DGLST	79+3, 79+5, 79+11, 79+12, 79+13, 80+2, 81+1, 81+3, 81+6, 81+8 , 82+17, 83+3, 83+16, 84+3, 84+14, 86+26, 86+27, 87+14, 87+20, 88+16 , END+3!, COMB, NEXT, OVER99CK+2, OVER99CK+3, OVER99CK+4, OVER99CK+5*
DGMS	END+3!
DGNCK	END, END+3!
DGOEIF	82+11~
DGOEIF("COUNT"	82+12
DGOEIF("FR"	82+15
DGOEIF("IEN"	82+14
DGOEIF("LOC"	82+15
DGOEIF("TO"	82+15
DGP	END+3!, OVER99CK~, OVER99CK+1
DGP(	79+11, 79+12, 81+1, 81+7, 82+7, 83+11, 83+12, 83+13, 84+7, 84+10 , 84+11, 84+12, 84+13, 86+10, 86+14, 86+15, 86+16, 86+20, 88+3, 88+5 , 88+10, 88+12, 88+13, 88+14
DGPMSE	79+5, 83+3, 84+3, 86+3, END+3!
DGPMSE(	79+6, 79+7, 79+8, 79+9, 83+4, 83+5, 83+6, 83+7, 84+4, 84+5 , 84+6, 86+4, 86+5, 86+6, 86+7
DGPTYP	END+3!
DGREL	END+3!
DGSCT	END+3!
DGSD	OVER99CK~, OVER99CK+1
DGT	END+3!
DGTIME	END+3!
DGTOT	END+3!
DGVT	86+23, 86+25, END+3!
DT	88+8
END	88+1~, 88+5, 88+6, 88+8
FILERR	OVER99CK~
FILERR(	OVER99CK+2, OVER99CK+3, OVER99CK+4
FILV	86+1~, 86+22
FILV("E"	86+9, 86+11, 86+19, 86+21, 86+23, 86+25
FILV("I"	86+8, 86+10, 86+18, 86+20, 86+25
FROMDAT	82+4~, 82+7, 82+8, 82+15, 82+16
FROMPC	82+4~, 82+6*, 82+7
FV	86+1~, 86+6, 86+9, 86+16, 86+19
I	END+3!, NEXT*
>> I1	82+3*
I2	82+3, 82+8, 82+16*, END+3!
J	88+1~, 88+14*, END+3!
>> LOC	82+3, 82+5, 82+8, 82+15
MS	79+6~, 79+7, 79+8, 79+9, 83+1~, 83+4, 83+5, 83+6, 83+7, 83+10* , 83+11, 83+12, 83+13, 83+14, 84+1~, 84+4, 84+5, 84+6, 84+9, 84+10 , 84+11, 84+12, 86+1~, 86+4, 86+5, 86+6, 86+7, 86+13, 86+14, 86+15 , 86+16, 86+17
>> MSDATERR	79+3
MSE	79+6~, 79+8, 79+9, 83+1~, 83+7, 83+8, 83+14, 83+15, 84+1~, 86+1~ , 86+7, 86+8, 86+17*, 86+18
>> MSECHK	79+3, 81+4, 82+2*
>> MSERR	79+9, 79+11, 79+12*
>> MSESET	81+4, 81+7, 82+2, 82+8, 82+16
NODE	82+4~, 82+6*, 82+7
NOTFV	86+1~, 86+6, 86+16, 86+25
OUT	79+6~, 79+9, 83+1~, 83+4, 83+8, 83+10, 83+11, 83+12, 83+15, 84+1~ , 84+4, 84+7, 84+9, 84+10, 84+11, 84+13, 86+1~, 86+4, 86+13, 86+14 , 86+15*
RULE	OVER99CK~, OVER99CK+2, OVER99CK+3, OVER99CK+4*
START	88+1~, 88+5*, 88+6, 88+8
STR88	88+1~, 88+13*, 88+14
TODAT	82+4~, 82+7, 82+8, 82+15, 82+16
TOPC	82+4~, 82+6*, 82+7
U	79+7, 79+9, 83+5, 83+6, 83+8, 83+11, 83+12, 83+13, 83+15, 84+5 , 84+6, 84+7, 84+10, 84+11, 84+12, 84+13, 86+5, 86+6, 86+10, 86+14 , 86+15, 86+16, 86+20, 88+3, 88+5, 88+10, 88+12, 88+14
>> VAEL(3	87+14, 87+16, 87+17, 87+18
VAIN	END+3!
X	79+9, 79+11, 79+12, 81+6, 81+7, 82+8, 82+16, 83+8, 83+15, 84+7 , 84+13, 86+23, 86+25, 87+19, 88+15, END, END+3!, COMB, OVER99CK+2, OVER99CK+3 , OVER99CK+4*
X1	END+3!
Z	82+13~, 82+14*, 82+15

Customize PDF page

Package: Registration

Routine: DGRPC3

Call Graph Total: 10

Caller Graph Total: 1