Routine: DGRPEIS

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

Package

Total

Call Graph

Registration

$$FORIEN^DGADDUTL $$LYR^DGMTSCU1 GETREL^DGMTU11 (NEW,NEWIP,SETUP)^DGRPEIS1 SPOUSE^DGRPEIS2 (EDIT,WRT)^DGRPEIS3

VA Fileman

^%DTC ^DIR

Package	Total	Caller Graph
Registration	5	DGDEP4 DGMTSC1 DGRPE DGRPEIS3 DGRPTI

Package

Total

Caller Graph

Registration

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 - DG5.3653 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

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

Customize PDF page

Package: Registration

Routine: DGRPEIS

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: