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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGRPEIS2

Package: Registration

Routine: DGRPEIS2


Information

DGRPEIS2 ;ALB/MIR,ERC - EDIT INCOME SCREENING DATA (SCREEN 9) ; 4/20/06 10:37am

Source Information

Source file <DGRPEIS2.m>

Entry Points

Name Comments DBIA/ICR reference
EDIT9 ; Allow edit of income screening amounts (called from DGRPE)
; In: DFN
; DGRPANN as string of selected items
; DGRPSEL as allowable groups for edit (V, S, and/or D)
; DGRPSELT (maybe) as type of dependent selected (V=vet,
; S=spouse, and D=dependent). If not defined, it is set
; to DGRPSEL.
EDIT9Q
EDT ;Edit inc and nt worth
EDTQ
SPOUSE ; make sure marital status, spouse is up-to-date
; input -- DFN
; DGREL("V") as returned from GETREL for veteran
; used -- DGSPFL as VETS marital status
SPOUSE1
ACT ; ask date active as of (use dob if KIDS)
; In: DOB
; DGRP0ND as 0 node of PATIENT RELATION file (relation=piece 2)
READ ; get active as of date
; DIR("B") set before entry
; DOB passed in as input
ACTQ
RELTYPE(RELIEN,TYPE) ;* Return type of relationship

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NAME: ",$$NAME^DGMTU1(DGPRI)
  • Line Location: EDT+4
Function Call: WRITE
  • Prompt: " [Must edit through means test!!]"
  • Line Location: EDT+5

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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call