RMPFDD2 ;DDC/KAW-SET PATIENT DEMOGRAPHIC/ELIGIBILITY VARIABLES; [ 06/16/95 3:06 PM ]
Source file <RMPFDD2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ELIGBL | ||
| E1 | ||
| ELG1 | ||
| ELG2 | ||
| END | ||
| ADDRESS | ;;Determine patient address
|
|
| ALLIED | ||
| SUB | ;;Eligibility determinations
|
|
| 1 | ;;SERVICE CONNECTED 50% to 100%
|
|
| 2 | ;;PRISONER OF WAR;I VASV(4) S RMPFF(C)="PRISONER OF WAR",RMPFTE=RMPFF(C)_U_0,C=C+1,YY=""
|
|
| 3 | ;;MEXICAN BORDER WAR
|
|
| 4 | ;;WORLD WAR I;I $P(VAEL(2),U,2)="WORLD WAR I" S RMPFF(C)="WORLD WAR I",RMPFTE=RMPFF(C)_U_0,C=C+1,YY=""
|
|
| 5 | ;;AID & ATTENDANCE;I VAMB(1)'=0 S RMPFF(C)="AID & ATTENDANCE",RMPFTE=RMPFF(C)_U_0,C=C+1,YY=""
|
|
| 6 | ;;HOUSEBOUND;I VAMB(2)'=0 S RMPFF(C)="HOUSEBOUND",RMPFTE=RMPFF(C)_U_0,C=C+1,YY=""
|
|
| 7 | ;;ALLIED VETERAN;D ALLIED^RMPFDD2
|
