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

Package: Registration

Routine: DGRPEIS


Information

DGRPEIS ;ALB/MIR,ERC - INCOME SCREENING DATA FOR EDIT ; 1/23/06 2:37pm

Source Information

Source file <DGRPEIS.m>

Entry Points

Name Comments DBIA/ICR reference
EN
Q
ADD(DFN,DGTYPE,DGTSTDT,DGDEP) ; 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
; DGDEP - optional number of dependent children
FOREIGN
ADDQ
PATASET(DFN) ;* Set the address equal to the patient's
; Input: DFN - Patient file IEN and key to Patient Relation entries
; Output: ANS array of dependents address
SPSCHK(DFN) ;*Check for existence of active spouse
; Input: DFN - Patient file IEN and key to Patient Relation entries
; Output: IPIEN - Spouse IEN in 408.13
; 0: no active spouse
SPSASET(IPIEN) ;* Set the address equal to the patient's spouse address
; Input: IPIEN - Spouse IEN in 408.13
; Output: ANS array of Childs address
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
REAS ;require a Pseudo SSN Reason if the SSN is a Pseudo - DG*5.3*653 ERC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?62,"(AGE: "_$P(AGE,".")_")"
  • Line Location: FOREIGN+34
Function Call: WRITE
  • Prompt: !?3,*7,"Incomplete Entry...Deleted"
  • Line Location: FOREIGN+37
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
Function Call: WRITE
  • Prompt: !!,"Pseudo SSN Reason Required if the SSN is Pseudo."
  • Line Location: REAS+5
Info |  Source |  Entry Points |  Interaction Calls