Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGRPC3

Package: Registration

Routine: DGRPC3


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

Call Graph Total: 15

Package Total Call Graph
Registration 10 $$FORIEN^DGADDUTL  GET^DGENOEIF  $$MHVOK^DGMHVAC  ($$ENQACHK,$$MHVENABL)^DGMHVUTL  ($$CNCK,$$MSCK,$$MSFROMTO)^DGMSCK  TIME^DGRPC  ^DGRPCF  ($$OVRLPCHK,$$RWITHIN)^DGRPDT  
($$BRANCH,$$FV,$$WWII)^DGRPMS  ELIG^VADPT  
Income Verification Match 2 LOADSD^IVMZ072  LOADPT^IVMZ07C  
VA FileMan 2 NOW^%DTC  $$GET1^DIQ  
Kernel 1 $$FMDIFF^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRPC2  

Entry Points

Name Comments DBIA/ICR reference
COMB
END
313 ; NEWBORN REQUIRES SPONSOR
OVER99CK
314 ;NEWBORN SPONSOR MUST BE ELIGIBLE
315 ; MHV - subroutine added by patch DG*5.3*903
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 ; DG*5.3*657 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
NOW^%DTC 313+3, 314+4
$$FORIEN^DGADDUTL 88+13
GET^DGENOEIF 82+11
$$MHVOK^DGMHVAC 315+7, 315+11
$$ENQACHK^DGMHVUTL 315+10
$$MHVENABL^DGMHVUTL 315+4
$$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
$$GET1^DIQ 314+11, 314+12, 314+14
LOADSD^IVMZ072 OVER99CK+1
LOADPT^IVMZ07C OVER99CK+1
ELIG^VADPT 87+11
$$FMDIFF^XLFDT 313+5, 314+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^IBA(355.8 - [#355.8] GET1^DIQ
^IBA(355.81 - [#355.81] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(23 - [#23] 83+6, 83+13
^DPT - [#2] 87+19, 313+2, 314+3, 315+10
^HL(779.004 - [#779.004] 88+12
^IBA(355.81 - [#355.81] 313+6, 314+1, 314+10

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, OVER99CK+5, OVER99CK+6, OVER99CK+7
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, OVER99CK+5
, OVER99CK+6, OVER99CK+7
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
, 313+2, 313+6, 314+1, 314+3, 314+10, 315+1, 315+7, 315+10, 315+11
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!
DGFLDCHK 315+6~
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*, OVER99CK+6*, OVER99CK+7*, OVER99CK+8*
DGMHVACT 315+6~, 315+10*
DGMHVOUT 315+6~
DGMHVQ 315+6~
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
>> DGPRFLG 315+1
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!
DIR 315+6~
>> DOB 313+2*, 313+5, 314+3*, 314+6
DT 88+8
ELIG 314+7~, 314+9*, 314+14*, 314+15
END 88+1~, 88+5*, 88+6*, 88+8
FILERR OVER99CK~
FILERR( OVER99CK+2, OVER99CK+3, OVER99CK+4, OVER99CK+5, OVER99CK+6, OVER99CK+7, 313+7*, 314+16*
FILERR(315 315+11*
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
>> NOW 313+4*, 313+5, 314+5*, 314+6
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*
RELIEN 314+7~, 314+9*, 314+10*, 314+11
RULE OVER99CK~, OVER99CK+2*, OVER99CK+3*, OVER99CK+4*, OVER99CK+5*, OVER99CK+6*, OVER99CK+7*, 313+7, 314+16
SPNDFN 314+7~, 314+9*, 314+12*, 314+13*, 314+14
SPNIEN 314+7~, 314+9*, 314+11*, 314+12
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*, OVER99CK+5*, OVER99CK+6*, OVER99CK+7*, 313+1~, 313+4, 314+2~, 314+5, 315+6~
X1 END+3!
Y 315+6~
Z 82+13~, 82+14*, 82+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All