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
Print Page as PDF
Routine: EASECED

Package: Enrollment Application System

Routine: EASECED


Information

EASECED ;ALB/LBD - INCOME SCREENING DATA FOR EDIT ; 19 AUG 2001

Source Information

Source file <EASECED.m>

Entry Points

Name Comments DBIA/ICR reference
EN
Q
ADD(DFN,DGTYPE,DGTSTDT) ; subroutine to add to files 408.12 & 408.13
; In -- DFN as the IEN of file 2 for the vet
; DGTYPE as C for mt children or D for all deps
; S for spouse (default spouse)
; DGTSTDT - optional test date
ADDQ
INACT ; prompt to inactivate a patient relation
; Input -- DGREL("D") array of dependents
; DGDEP as number of deps (from GETREL call)
EDIT(DGPREF,DGTYPE,DATE) ; edit demographic data for a dep
; Input -- DGPREF as returned by GETREL^DGMTU11 for dep to edit
; DGTYPE as D if all deps or C if MT children only
; S for spouse (optional - spouse if not defined)
; DATE [optional] as income screening year/default= last yr
; Output -- DGFL as -2 if timeout, -1 if '^', or 0 o/w

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?62,"(AGE: "_$P(AGE,".")_")"
  • Line Location: ADD+22
Function Call: WRITE
  • Prompt: !?3,$C(7),"Incomplete Entry...Deleted"
  • Line Location: ADD+24
Function Call: WRITE
  • Prompt: !!,"No dependents to inactivate!"
  • Line Location: INACT+5
Function Call: WRITE
  • Prompt: !!,"Enter a number 1-",DGDEP," to indicate the dependent you wish to inactivate: "
  • Line Location: INACT+6
Function Call: WRITE
  • Prompt: !!,"Enter a number 1-",DGDEP," indicating the number of the dependent you wish to inactivate"
  • Line Location: INACT+10
Info |  Source |  Entry Points |  Interaction Calls