Routine: DGRPEIS2

Information

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

Source Information

Source file <DGRPEIS2.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Registration	7	$$LST^DGMTU $$NAME^DGMTU1 GETREL^DGMTU11 GETIENS^DGMTU2 ALL^DGMTU21 $$VER^DGMTUTL3 HELP^DGRPEIS3
VA Fileman	2	^DIE ^DIR
Income Verification Match	1	LOGDCD^IVMCUC

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Registration	6	DGDEP2 DGRPE DGRPEIS DGRPEIS1 DGRPEIS3 DGRPTI

Entry Points

Name	Comments	DBIA/ICR reference
EDIT9Q
SPOUSE1
RELTYPE(RELIEN,TYPE)	;* Return type of relationship
READ	; get active as of date ; DIR("B") set before entry ; DOB passed in as input
ACTQ
EDTQ
EDT	;Edit inc and nt worth
ACT	; ask date active as of (use dob if KIDS) ; In: DOB ; DGRP0ND as 0 node of PATIENT RELATION file (relation=piece 2)
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.
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

External References

Name	Field # of Occurrence
$$LST^DGMTU	EDIT9+13
$$NAME^DGMTU1	EDT+4
GETREL^DGMTU11	SPOUSE+7
GETIENS^DGMTU2	EDT+3, EDT+12, SPOUSE+5
ALL^DGMTU21	EDIT9+10
$$VER^DGMTUTL3	EDIT9+18, EDIT9+19
HELP^DGRPEIS3	EDIT9+20
^DIE	EDT+9, EDT+11, EDT+13, SPOUSE1
^DIR	READ+12
LOGDCD^IVMCUC	EDT+16

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
Routine Call	DIE Line Location: EDT+9 EDT+11 EDT+13 SPOUSE1
Routine Call	DIR Line Location: READ+12

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ACT+8
^DG(408.11 - [#408.11]	RELTYPE+16
^DGMT(408.21 - [#408.21]	EDIT9+11
^DGMT(408.22 - [#408.22]	SPOUSE1+1
^DGMT(408.31 - [#408.31]	EDIT9+15, EDIT9+17
^DGPR(408.12 - [#408.12]	RELTYPE+14, RELTYPE+15
^DIC(11 - [#11]	SPOUSE+6
^DPT - [#2]	SPOUSE+6, READ+9

Label References

Name	Line Occurrences
ACTQ	READ+12
EDIT9Q	EDIT9+20
EDT	EDIT9+21, EDIT9+22, EDIT9+23
EDTQ	EDT+3, EDT+12
READ	READ+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDT+1~, EDT+6, EDT+13, SPOUSE1*!
>> DFN	EDIT9+10, EDIT9+13, EDT+3, EDT+12, EDT+16, SPOUSE+5, SPOUSE+6, SPOUSE+7, READ+9
>> DGACT	ACT+7, READ+5, READ+13*
>> DGANS	RELTYPE+20, RELTYPE+21, RELTYPE+22
DGCNT	EDIT9+23*, EDIT9+25!
DGDT	READ+3~, READ+5*, READ+10
DGDTSPEC	READ+3~, READ+6*, READ+10
>> DGEDDEP	READ+6
DGERR	EDT+1~, EDT+3, EDT+12
DGFIN	EDT+1~, EDT+9
>> DGFL	EDIT9+24, EDT+10, ACT+6, READ+12
DGIAIYR	EDIT9+7~, EDIT9+11, EDIT9+12, EDIT9+14, EDIT9+17, EDIT9+18, EDIT9+19
>> DGINC	EDIT9+18, EDIT9+19
>> DGINC("V"	EDIT9+11, EDT+12*, EDT+13
DGINI	EDT+1~, EDT+6, EDT+12
DGIRI	EDT+1~, SPOUSE1, SPOUSE1+1
DGISDT	READ+3~, READ+5*
DGMS	SPOUSE+4~, SPOUSE+6, SPOUSE+7
>> DGMTDT	EDT+2, READ+4
>> DGMTED	EDIT9+21, EDIT9+22, EDIT9+23*, EDT+5
>> DGMTED("D"	EDIT9+23
>> DGMTED("S"	EDIT9+22
>> DGMTED("V"	EDIT9+21
DGMTI	EDIT9+7~, EDIT9+13*, EDIT9+14, EDIT9+15, EDIT9+17, EDIT9+19, SPOUSE+7, SPOUSE1
DGPATREL	RELTYPE+10~, RELTYPE+16, RELTYPE+17, RELTYPE+18, RELTYPE+20, RELTYPE+21, RELTYPE+22, RELTYPE+23*, RELTYPE+24
>> DGPRI	EDIT9+21, EDIT9+22, EDIT9+23*, EDT+3, EDT+4
DGPTRLIN	RELTYPE+10~, RELTYPE+13, RELTYPE+14, RELTYPE+15
>> DGREL("D"	EDIT9+23
>> DGREL("S"	EDIT9+22, SPOUSE+7
>> DGREL("V"	EDIT9+20, EDIT9+21, EDT+12, SPOUSE+5
DGRELIEN	RELTYPE+10~, RELTYPE+15*, RELTYPE+16
>> DGRP0ND	ACT+6
>> DGRPANN	EDIT9+8
>> DGRPOUT	EDIT9+22, EDIT9+23, EDT+9, EDT+10, EDT+11, EDT+12, EDT+13
>> DGRPS	RELTYPE+18
>> DGRPSEL	EDIT9+9
>> DGRPSELT	EDIT9+9*, EDIT9+21, EDIT9+22, EDIT9+23, EDT+4
>> DGSCR8	RELTYPE+18
>> DGSPFL	SPOUSE1+1*
DGTSTDT	EDT+2~, EDT+3, READ+4~, READ+5
DGTY	EDIT9+7~, EDIT9+15*, EDIT9+16
DGTYEXT	EDIT9+7~, EDIT9+16*, EDIT9+17, EDIT9+18
DIE	EDT+1~, EDT+6, SPOUSE1!
DIR	READ+12!
DIR("?"	READ+11*
DIR("A"	READ+10*
DIR("B"	ACT+8*
DIR(0	READ+8, READ+9, READ+10*
DIRUT	READ+12, ACTQ!
>> DOB	ACT+7, ACT+8, READ+5, READ+8, READ+9
DR	EDT+1~, EDT+7, EDT+8, EDT+11, SPOUSE1!
DT	EDIT9+10, EDIT9+13, EDT+2, EDT+12, SPOUSE+5, SPOUSE+7, READ+4
DTOUT	EDT+10, READ+12, ACTQ!
DUOUT	READ+12, ACTQ!
MTVER	EDIT9+7~, EDIT9+17, EDIT9+18, EDIT9+19*, EDT+7, EDT+8
OK	EDT+1~
RELATION	ACT+5~, ACT+6*, ACT+7, ACT+8, READ+9
RELIEN	RELTYPE~, RELTYPE+12, RELTYPE+14, RELTYPE+19
TYPE	RELTYPE~, RELTYPE+11*, RELTYPE+18
VDOB	READ+3~, READ+9*
X	ACT+5~
Y	ACT+5~, ACT+8*, READ+12, READ+13

Customize PDF page

Package: Registration

Routine: DGRPEIS2

Call Graph Total: 10

Caller Graph Total: 6