Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 6 $$FORIEN^DGADDUTL  $$LYR^DGMTSCU1  GETREL^DGMTU11  (NEW,NEWIP,SETUP)^DGRPEIS1  SPOUSE^DGRPEIS2  (EDIT,WRT)^DGRPEIS3  
VA Fileman 2 ^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 5 DGDEP4  DGMTSC1  DGRPE  DGRPEIS3  DGRPTI  

Entry Points

Name Comments DBIA/ICR reference
EN
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
ADDQ
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
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
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
Q
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
INACT ; prompt to inactivate a patient relation
; Input -- DGREL("D") array of dependents
; DGDEP as number of deps (from GETREL call)
REAS ;require a Pseudo SSN Reason if the SSN is a Pseudo - DG*5.3*653 ERC

External References

Name Field # of Occurrence
^%DTC FOREIGN+34
$$FORIEN^DGADDUTL ADD+22
$$LYR^DGMTSCU1 EN+1
GETREL^DGMTU11 EN+2
NEW^DGRPEIS1 EN+2
NEWIP^DGRPEIS1 FOREIGN+40
SETUP^DGRPEIS1 INACT+11, INACT+13
SPOUSE^DGRPEIS2 EN+3
EDIT^DGRPEIS3 EDIT+7
WRT^DGRPEIS3 FOREIGN+34
^DIR ADD+29, FOREIGN+8, FOREIGN+26, FOREIGN+27, REAS+3

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
Routine Call
  • DIR
  • Line Location:
    • ADD+29
    • FOREIGN+8
    • FOREIGN+26
    • FOREIGN+27
    • REAS+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(408.11 - [#408.11] SPSCHK+9, SPSCHK+10
^DGPR(408.12 - [#408.12] SPSCHK+6, SPSCHK+8, SPSCHK+9, SPSCHK+10, SPSCHK+11, SPSCHK+12, SPSCHK+13
^DGPR(408.13 - [#408.13] SPSASET+4, SPSASET+5, SPSASET+6, SPSASET+7, SPSASET+8, SPSASET+9, SPSASET+10
^DPT - [#2] EN+2, ADD+22, FOREIGN+19, PATASET+3, PATASET+4, PATASET+5, PATASET+6, PATASET+7, PATASET+8, PATASET+9

Label References

Name Line Occurrences
$$SPSCHK FOREIGN+1
ADD EN+3
ADDQ FOREIGN+36, FOREIGN+37
EDIT EN+3
FOREIGN ADD+22
INACT INACT+10, INACT+12
PATASET FOREIGN+13
Q EN+3
REAS FOREIGN+25, REAS+5
SPSASET FOREIGN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT INACT+3~
>> AGE FOREIGN+34*
ANS ADD+9~
ANS( FOREIGN+23, FOREIGN+31*, FOREIGN+32, FOREIGN+33, FOREIGN+34, FOREIGN+36, FOREIGN+37, FOREIGN+38, FOREIGN+39, PATASET+3*
, PATASET+4*, PATASET+5*, PATASET+6*, PATASET+7*, PATASET+8*, PATASET+9*, SPSASET+4*, SPSASET+5*, SPSASET+6*, SPSASET+7*
, SPSASET+8*, SPSASET+9*, SPSASET+10*, REAS+1, REAS+7*
DA ADD+9~
DATE EDIT~
DFN EN+2, EN+3, ADD~, ADD+22, FOREIGN+1, FOREIGN+13, FOREIGN+19, PATASET~, PATASET+3, PATASET+4
, PATASET+5, PATASET+6, PATASET+7, PATASET+8, PATASET+9, SPSCHK~, SPSCHK+6, SPSCHK+8
DGACT EDIT+6~
DGDEP ADD~, ADD+12*, INACT+5, INACT+6, INACT+10
>> DGDR EN+3
DGDT INACT+3~
DGEDDEP EDIT+6~
>> DGFL EN*, EN+3, ADD+11*, ADD+14*, ADD+18, FOREIGN+29*, FOREIGN+30*, FOREIGN+36*, FOREIGN+37, INACT+4*
, INACT+7*, INACT+8*, REAS+4*
DGIPIEN ADD+9~, ADD+19*, FOREIGN+1*, FOREIGN+2, FOREIGN+14
>> DGISDT EN+1*, EN+2
>> DGMTDT ADD+10
DGPREF EN+3*, EN+4!, EDIT~
>> DGREL("C" INACT+12
>> DGREL("D" INACT+11
>> DGREL("S" EN+3
>> DGRP(0 EN+2*
DGRP0ND FOREIGN+38*, ADDQ!
DGRP1ND FOREIGN+39*, ADDQ!
DGRPI ADD+18*, ADD+21, FOREIGN+18, FOREIGN+19, FOREIGN+20, FOREIGN+21, FOREIGN+22, FOREIGN+23, FOREIGN+25, FOREIGN+26
, FOREIGN+27, FOREIGN+28, FOREIGN+29, FOREIGN+30, FOREIGN+31, FOREIGN+32, FOREIGN+33, FOREIGN+34, FOREIGN+35, ADDQ!
DGSADD ADD+9~, ADD+18, ADD+19*, FOREIGN+9*, FOREIGN+14, FOREIGN+17
DGSKIPST ADD+9~, ADD+16*, FOREIGN+26, FOREIGN+32*, FOREIGN+33*
DGSPFL EN+3, EN+4!
DGTSTDT ADD~, ADD+10~*
DGTYPE ADD~, ADD+13*, ADD+15, EDIT~
DGUQTLP ADD+9~, ADD+17*, ADD+18, FOREIGN+28*
DGVADD ADD+9~, ADD+18, ADD+19*, ADD+30*, FOREIGN+2, FOREIGN+13, FOREIGN+17
DIR ADD+23!, ADD+31!, FOREIGN+3!, FOREIGN+10!, FOREIGN+18!, ADDQ!
DIR("?" ADD+27*, ADD+28*, FOREIGN+7*
DIR("A" ADD+25*, FOREIGN+5*, FOREIGN+21*, FOREIGN+22*
DIR("B" ADD+26*, FOREIGN+6*, FOREIGN+19*
DIR(0 ADD+24*, FOREIGN+4*, FOREIGN+18*, FOREIGN+20*, REAS+2*
DIRUT ADDQ!, REAS+5
DOB EDIT+6~
DT EN+1, ADD+10, FOREIGN+34
DTIME INACT+6
DTOUT FOREIGN+28, FOREIGN+29, ADDQ!, REAS+5
DUOUT FOREIGN+28, FOREIGN+29, ADDQ!, REAS+4
IEN INACT+3~
IPIEN SPSCHK+4~, SPSCHK+5*, SPSCHK+13*, SPSCHK+14, SPSASET~, SPSASET+4, SPSASET+5, SPSASET+6, SPSASET+7, SPSASET+8
, SPSASET+9, SPSASET+10
PRIEN SPSCHK+4~, SPSCHK+7*, SPSCHK+8*, SPSCHK+9, SPSCHK+10, SPSCHK+11, SPSCHK+12, SPSCHK+13
PROMPT ADD+9~, ADD+14*, FOREIGN+21, FOREIGN+22
RELATION EDIT+6~
SPOUSE ADD+9~, ADD+13*, ADD+15, FOREIGN+19, FOREIGN+23, FOREIGN+34
SPRED SPSCHK+4~, SPSCHK+11*, SPSCHK+12
SPREDIEN SPSCHK+4~, SPSCHK+12*, SPSCHK+13
TYPE ADD+9~, ADD+15*, ADD+25, ADD+27, ADD+28, FOREIGN+2, FOREIGN+5, FOREIGN+21, FOREIGN+22
U ADD+22
UPARROW EDIT+6~
X FOREIGN+19*, FOREIGN+34, INACT+3~, INACT+6*, INACT+8, INACT+9, INACT+10, INACT+11*, INACT+12*, EDIT+6~
>> X1 FOREIGN+34*
>> X2 FOREIGN+34*
Y ADD+30, ADD+31!, FOREIGN+3!, FOREIGN+9, FOREIGN+10!, FOREIGN+30, FOREIGN+31, FOREIGN+35, EDIT+6~, REAS+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All