DGRPEIS ;ALB/MIR,ERC - INCOME SCREENING DATA FOR EDIT ; 1/23/06 2:37pm
Source file <DGRPEIS.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ||
Q | ||
ADD(DFN,DGTYPE,DGTSTDT,DGDEP) | ; subroutine to add to files 408.12 & 408.13
; In -- DFN as the IEN of file 2 for the vet ; DGTYPE as C for mt children or D for all deps ; S for spouse (default spouse) ; DGTSTDT - optional test date ; DGDEP - optional number of dependent children |
|
FOREIGN | ||
ADDQ | ||
PATASET(DFN) | ;* Set the address equal to the patient's
; Input: DFN - Patient file IEN and key to Patient Relation entries ; Output: ANS array of dependents address |
|
SPSCHK(DFN) | ;*Check for existence of active spouse
; Input: DFN - Patient file IEN and key to Patient Relation entries ; Output: IPIEN - Spouse IEN in 408.13 ; 0: no active spouse |
|
SPSASET(IPIEN) | ;* Set the address equal to the patient's spouse address
; Input: IPIEN - Spouse IEN in 408.13 ; Output: ANS array of Childs address |
|
INACT | ; prompt to inactivate a patient relation
; Input -- DGREL("D") array of dependents ; DGDEP as number of deps (from GETREL call) |
|
EDIT(DGPREF,DGTYPE,DATE) | ; edit demographic data for a dep
; Input -- DGPREF as returned by GETREL^DGMTU11 for dep to edit ; DGTYPE as D if all deps or C if MT children only ; S for spouse (optional - spouse if not defined) ; DATE [optional] as income screening year/default= last yr ; Output -- DGFL as -2 if timeout, -1 if '^', or 0 o/w |
|
REAS | ;require a Pseudo SSN Reason if the SSN is a Pseudo - DG*5.3*653 ERC
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|