EASECED2 ;ALB/LBD - EDIT INCOME SCREENING DATA ;20 AUG 2001
Source file <EASECED2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SPOUSE | ; make sure marital status, spouse is up-to-date
; input -- DFN ; DGREL("V") as returned from GETREL for veteran ; used -- DGSPFL as VETS marital status |
|
| SPOUSE1 | ||
| ACT | ; ask date active as of (use dob if KIDS)
; In: DOB ; DGRP0ND as 0 node of PATIENT RELATION file (relation=piece 2) |
|
| READ | ; get active as of date
; DIR("B") set before entry ; DOB passed in as input |
|
| ACTQ |
| FileNo | Call Tags |
|---|---|
| ^DGMT(408.22 - [#408.22] | Classic Fileman Calls |
