DGRPCE ;ALB/MRL,KV,PJR,BRM,ERC,TDM,LBD,ARF - CONSISTENCY CHECKER, EDIT INCONSISTENCIES ;10/20/10 3:52pm
Source file <DGRPCE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
NKEY | ||
KVAR | ||
Q | ||
SASK | ||
SAVE | ||
ELDR | ||
MON | ||
15 | ;;.152;S:X']"" Y="@15";S DIE("NO^")="";.307;I X']"" W !!,*7,"But I need a reason why this applicant is ineligible!" S Y=.152;@15;K DIE("NO^");
|
|
23 | ;;.3611;S:X'="V" Y="@23";.3612;S DIE("NO^")="";I X']"" W !!,*7,"But I need to know the date eligibility was verified!";@23;K DIE("NO^");
|
|
25 | ;;.323;.32102;S:X'="Y" Y="@25";.32107;.3211;.32109;.3213;@25;
|
|
26 | ;;
|
|
27 | ;;
|
|
28 | ;;
|
|
29 | ;;I DGVTYN'="Y" S Y="@291";.36205;S Y="@292";@291;.36205//NO;@292;S:X'="Y" Y="@29";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim A&A" S Y=.36205;.36295;@29;
|
|
30 | ;;I DGVTYN'="Y" S Y="@301";.36215;S Y="@302";@301;.36215//NO;@302;S:X'="Y" Y="@30";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim HOUSEBOUND" S Y=.36215;.36295;@30;
|
|
31 | ;;I DGVTYN'="Y" S Y="@311";.36235;S Y="@312";@311;.36235//NO;@312;S:X'="Y" Y="@31";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim VA PENSION" S Y=.36235;.36295;@31;
|
|
32 | ;;.36255;S:X'="Y" Y="@32";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim MIL. RET." S Y=.36255;.3625;@32;
|
|
33 | ;;
|
|
34 | ;;.525;S:X'="Y" Y="@34";I DGVTYN'="Y" W !,"Patient not a veteran-can't claim POW STATUS" S Y=.525;.526:.528;@34;
|
|
35 | ;;
|
|
37 | ;;.525;S:X'="Y" Y="@37";.526:.528;@37;
|
|
38 | ;;.525;S:X'="Y" Y="@38";.526:.528;@38;
|
|
39 | ;;.5291;S:X'="Y" Y="@39";.5292:.5294;@39;
|
|
40 | ;;.5291;S:X'="Y" Y="@40";.5292:.5294;@40;
|
|
41 | ;;.32101;S:X'="Y" Y="@41";.32104;.32105;@41;
|
|
42 | ;;.32101;S:X'="Y" Y="@42";.32104;.32105;@42;
|
|
43 | ;;
|
|
44 | ;;
|
|
45 | ;;
|
|
46 | ;;
|
|
47 | ;;
|
|
48 | ;;.36265;S:X'="Y" Y="@48";.3626;@48;
|
|
51 | ;;S Y="@51";I DGVTYN'="Y" S Y="@51";.324:.328;@51;
|
|
56 | ;;.3025;S:X'="Y" Y="@56";.36295;@56;
|
|
60 | ;;.32102;S:X'="Y" Y="@60";.32107;.3211;.32109;.3213;@60;
|
|
ASKSSN(DEP) | ;edit ssns if missing
|
|
PS | ;
|
|
CATDIB | ;
|
|
ASKDEL() | ;
|
|
DEPEDT(DEP,FLD) | ;edit dependent fields if missing or invalid
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^DGPR(408.13 - [#408.13] | Classic Fileman Calls, GET1^DIQ |