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 |