©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGRPC3 ;ALB/PJR,LBD,BAJ,TDM - CHECK CONSISTENCY OF PATIENT DATA (CONT) ; 10/20/10 3:40pm
Source file <DGRPC3.m>
| 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 | ; 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'
|
| 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 |
| 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 |
| >> | 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 |