DGRPC3 ;ALB/PJR,LBD,BAJ,TDM,JDB,JDB,JDB - CHECK CONSISTENCY OF PATIENT DATA (CONT) ;10/20/10 3:40pm
Source file <DGRPC3.m>
| 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
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^IBA(355.8 - [#355.8] | GET1^DIQ |
| ^IBA(355.81 - [#355.81] | GET1^DIQ |
