DGCV ;ALB/DW,ERC,BRM,TMK,LBD,JAM - COMBAT VET ELIGIBILTY; 10/15/05 ; 6/16/09 10:40am
Source file <DGCV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CVELIG(DFN) | ;
|
|
| RES(DG1,DG2) | ;determine the final RESULT code from DG1 & DG2
|
|
| CHKDATE(DGDATE,I,SSD) | ;check to see if date is imprecise or missing
|
|
| SETCV(DFN,DGSRV) | ;calculate CV end date
; DGSRV is the most recent of the Service Separation Date ; or the OEF/OIF To Date, called from file #2 new style ; cross reference "ACVCOM" |
|
| CALCCV(DFN,DGSRV) | ; Calculate CV end date given DFN and date to start
; calculation from ; Function returns null or CV end date calculated |
|
| CVRULES(DFN,DGSRV,DGNDAA,DGYRS) | ;apply rules for the CV End Date
|
|
| CVEDT(DFN,DGDT) | ;Provide Combat Vet Eligibility End Date, if eligible
|
|
| PARSE | ;GETS^DIQ called in CVELIG - in this subroutine stuff results into array
|
|
| CHKSSD(DFN) | ;check the Serv Sep Date [Last]
; DGSRV=last SSD ; Output - RESULT ; 1 - Date is present and after 11/11/1998 ; 0 - Date is present but before 11/11/1998 ; A - Date is imprecise & either is or potentially is after 11/11/98 ; F - Date is missing |
|
| CHKREST(DGDATE,SSD) | ;
; SSD = optional, = to the last serv sep date |
|
| MISS(DFN,DGLEN,DGRES) | ;there is at least one missing date, and in order to
|
|
| DELCV(DFN) | ;called by the Kill logic of the ACVCOM cross reference
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ, GETS^DIQ |
| ^DGEN(27.11 - [#27.11] | GET1^DIQ |
