RCDMCRUT ;EDE/YMG - SC exemption utilities; 09/19/2025
Source file <RCDMCRUT.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 1 | ($$FINDCUR,$$GET,$$PRIORITY,$$STATUS)^DGENA |
| VA FileMan | 1 | GETS^DIQ |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETRDDT(RCDFN,RCMIN,RCMAX) | ; get the earliest date of service connected rated disabilities
|
|
| GETENRDT(RCDFN) | ; get effective date from Enrollment file, if priority group 1 and verified status
|
|
| GETEFFDT(RCDFN,RCMIN,RCMAX) | ; get the earliest SC effective date
|
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
| Name | Line Occurrences |
|---|---|
| $$GETENRDT | GETEFFDT+10 |
| $$GETRDDT | GETEFFDT+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ENRIEN | GETENRDT+1~, GETENRDT+4*, GETENRDT+5 |
| RCDFN | GETRDDT~, GETRDDT+10, GETENRDT~, GETENRDT+3, GETENRDT+4, GETEFFDT~, GETEFFDT+9, GETEFFDT+10 |
| RCDT | GETRDDT+8~, GETRDDT+9*, GETRDDT+16*, GETRDDT+18, GETENRDT+1~, GETENRDT+2*, GETENRDT+5*, GETENRDT+7 |
| RCMAX | GETRDDT~, GETRDDT+13, GETEFFDT~, GETEFFDT+9 |
| RCMIN | GETRDDT~, GETRDDT+12, GETEFFDT~, GETEFFDT+9 |
| TMPARY | GETRDDT+8~, GETENRDT+1~, GETENRDT+5 |
| TMPARY( | GETRDDT+11, GETRDDT+12, GETRDDT+13, GETRDDT+14, GETRDDT+15, GETRDDT+16 |
| TMPARY("EFFDATE" | GETENRDT+5 |
| TMPDT1 | GETEFFDT+8~, GETEFFDT+9*, GETEFFDT+11, GETEFFDT+13 |
| TMPDT2 | GETEFFDT+8~, GETEFFDT+10*, GETEFFDT+11, GETEFFDT+12 |
| Z | GETRDDT+8~, GETRDDT+11*, GETRDDT+12, GETRDDT+13, GETRDDT+14, GETRDDT+15, GETRDDT+16 |