IVMUM2 ;ALB/SEK - ADD NEW DEPENDENT TO INCOME PERSON FILE ; 12 MAY 94
Source file <IVMUM2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; this routine will add entries to INCOME PERSON file (408.13) for
; new dependents (spouse/children). if IVM demo data (name, dob, ; ssn, sex) is different than VAMC data, 408.13 will be changed to ; contain the IVM data. the MEANS TEST CHANGES file (408.41) will ; contain both values. |
|
INPIEN | ; get INCOME PERSON IEN
; if PATIENT RELATION IEN not in ZDP ; add dependent to INCOME PERSON file if dependent not found ; dependent found if dob, sex, & relationship (408.12) match |
|
NOIEN | ; ien of patient relation file is not transmitted or transmitted and
; not found ; check if dependent in income person file ; if dependent not found in 408.13, setup ivmstr = 0 node of 408.13 ; subscript of array IVMAR is ien of 408.12 transmitted by IVM Center or ; created or found by upload. |
|
ADDDEP | ; add dependent to 408.13 file
; In - DFN=IEN of File #2 ; DGRP0ND=0 node of 408.13 |
|
GETIP | ; if can't find 408.12 record notify site & IVM Center
|
|
GETIPI | ; ivmseg13 is 0 node of income person file
; get demo data in 408.13 & 408.12 |
FileNo | Call Tags |
---|---|
^DGPR(408.13 - [#408.13] | Classic Fileman Calls |