DGRPC3 ;ALB/PJR,LBD,BAJ,TDM,JDB,JDB,JDB - CHECK CONSISTENCY OF PATIENT DATA (CONT) ;10/20/10 3:40pm
Source file <DGRPC3.m>
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Registration | 1 | DGRPC2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
79 | ;; MSE Dates overlap
|
|
80 | ;; POW Dates not within MSE
|
|
81 | ;; Combat Dates not within MSE
|
|
82 | ;; Conflict Dates not within MSE
|
|
83 | ;Merchant Seaman or Filipino Vet BOS requires service dates during WWII
|
|
84 | ;Filipino Vet BOS requires Filipino Vet Proof
|
|
85 | ;Eligible Filipino Vet should have Veteran status = 'YES'
|
|
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 |
|
88 | ;Temporary Address check
|
|
89 | ;
|
|
99 | ; synonymous with END
|
|
END | ||
COMB | ||
NEXT | ||
OVER99CK | ||
313 | ; NEWBORN REQUIRES SPONSOR
|
|
314 | ;NEWBORN SPONSOR MUST BE ELIGIBLE
|
|
315 | ; MHV - subroutine added by patch DG*5.3*903
|
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 | 89+2, 314+11, 314+12, 314+14 |
LOADSD^IVMZ072 | OVER99CK+1 |
LOADPT^IVMZ07C | OVER99CK+1 |
ELIG^VADPT | 87+11 |
$$FMDIFF^XLFDT | 313+5, 314+6 |
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^IBA(355.8 - [#355.8] | GET1^DIQ |
^IBA(355.81 - [#355.81] | GET1^DIQ |
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 |
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, 89+4 , OVER99CK+6, OVER99CK+8, OVER99CK+9, OVER99CK+10, OVER99CK+11, OVER99CK+12 |
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, 89+3, END, OVER99CK+6, OVER99CK+8, OVER99CK+9 , OVER99CK+10, OVER99CK+11, OVER99CK+12 |
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, 89+4 |
OVER99CK | END+1 |
>> | 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, 89+2 , 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 |
DGELIG | 89+1~, 89+2*, 89+3 |
>> 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 , 89+4, END+3!, COMB*, NEXT*, OVER99CK+6*, OVER99CK+8*, OVER99CK+9*, OVER99CK+10*, OVER99CK+11*, OVER99CK+12* , OVER99CK+13* |
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 |
DGPT | 89+1~, 89+2*, 89+3 |
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+6, OVER99CK+8, OVER99CK+9, OVER99CK+10, OVER99CK+11, OVER99CK+12, 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+6*, OVER99CK+8*, OVER99CK+9*, OVER99CK+10*, OVER99CK+11*, OVER99CK+12*, 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*, 89+3*, END*, END+3!, COMB, OVER99CK+6* , OVER99CK+8*, OVER99CK+9*, OVER99CK+10*, OVER99CK+11*, OVER99CK+12*, 313+1~, 313+4, 314+2~, 314+5, 315+6~ |
X1 | END+3! |
Y | 315+6~ |
Z | 82+13~, 82+14*, 82+15 |