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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGRPEIS2

Package: Registration

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All