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

Package: Registration

Routine: DGMTU2


Information

DGMTU2 ;ALB/RMO - Income Utilities ; 6/18/09 6:48pm

Source Information

Source file <DGMTU2.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,DGLY) ;Add a new individual annual income entry
; Input -- DFN Patient file IEN
; DGPRI Patient Relation IEN
; DGLY Last Year
; Output -- New Individual Annual Income IEN
  • ICR #963
    • Status: Active
    • Usage: Private
    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
  • ICR #963
    • Status: Active
    • Usage: Private
    ADDIRQ
    VRCHKUP(DGMTYPT,TYPE,DGOLDDT,DGNWDT) ;Check the version and convert IAI records, as needed
    ; Input -- DGMTYPT : Type of test being processed
    ; TYPE : Optional - used when called from COPYRX^DGMTR1
    ; to indicate existing MT or LTC
    ; DGOLDDT : Optional - Date of Test for Old MT/CP test
    ; DGNWDT : Optional - Date of Test for New MT/CP test
    ; Output -- CONVRTD : 1 - IAI Records converted
    ; : 0 - IAI Records not converted
    VRCHKQ

    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