Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGRPC3

Package: Registration

Routine: DGRPC3


Information

DGRPC3 ;ALB/PJR,LBD,BAJ,TDM,JDB,JDB,JDB - CHECK CONSISTENCY OF PATIENT DATA (CONT) ;10/20/10 3:40pm

Source Information

Source file <DGRPC3.m>

Entry Points

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

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
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call