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: EASECU2

Package: Enrollment Application System

Routine: EASECU2


Information

EASECU2 ;ALB/LBD - Income Utilities ;14 AUG 2001

Source Information

Source file <EASECU2.m>

Entry Points

Name Comments DBIA/ICR reference
GETIENS(DFN,DGPRI,DGDT) ;Look-up individual annual income and income relation
; Input -- DFN Patient file IEN
; DGPRI Patient Relation IEN
; DGDT Date/Time
; Output -- DGINI Individual Annual Income IEN
; DGIRI Income Relation IEN
; DGERR 1=ERROR and 0=NO ERROR
GETIN(DFN,DGPRI,DGDT) ;Look-up individual annual income
; Add a new entry if one is not found
; Input -- DFN Patient file IEN
; DGPRI Patient Relation IEN
; DGDT Date/Time
; Output -- Individual Annual Income IEN
GETINQ
ADDIN(DFN,DGPRI,DGYR) ;Add a new individual annual income entry
; Input -- DFN Patient file IEN
; DGPRI Patient Relation IEN
; DGYR Test Year
; Output -- New Individual Annual Income IEN
ADDINQ
GETIR(DFN,DGINI) ;Look-up income relation
; Add a new entry if one is not found
; Input -- DFN Patient file IEN
; DGINI Individual Annual Income IEN
; Output -- Income Relation IEN
GETIRQ
ADDIR(DFN,DGINI) ;Add a new income relation entry
; Input -- DFN Patient file IEN
; DGINI Individual Annual Income IEN
; Output -- New Income Relation IEN
ADDIRQ

FileMan Files Accessed Via FileMan Db Call

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