Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IVMUM2

Package: Income Verification Match

Routine: IVMUM2


Information

IVMUM2 ;ALB/SEK - ADD NEW DEPENDENT TO INCOME PERSON FILE ; 12 MAY 94

Source Information

Source file <IVMUM2.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPR(408.13 - [#408.13] Classic Fileman Calls
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call