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

Package: Registration

Routine: DGRP9


Information

DGRP9 ;ALB/RMO/MIR - Screen 9 - Income Screening Data ;23 JAN 1992 11:00 am

Source Information

Source file <DGRP9.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 10 ($$AMT,$$LYR)^DGMTSCU1  $$LST^DGMTU  ($$UPDTTSTS,ALL)^DGMTU21  $$NOBUCKS^DGMTU22  ISCNVRT^DGMTUTL  $$VER^DGMTUTL3  NEW^DGRPEIS1  ^DGRPP  
($$MTCOMP,H)^DGRPU  WW^DGRPV  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DG1010P6  DGRPC2  DGRPCF  

Entry Points

Name Comments DBIA/ICR reference
TOT(DGINC,DGDOEXP) ; Totals income
; Input
; DGINC(x,ct) where X is V, S, or D and CT(counter)(per ALL^DGMTU21)
; DGDOEXP: IF =1 TOTAL EXPENSE
DIS1 ;Display income in version 1 form for screen 9 in Load/Edit.
EN ;
; DVBGUI : CAPRI GUI User
GET0ND(IEN) ; Returns the 0 node of File #408.21
FLD(DGIN,DGPCE,DGTXT) ;Display inc. fields
; Input:
; DGIN 0 node of #408.21 for vet,spouse, and deps
; DGRPCE as piece
; DGTXT as income desc.
; DGGTOT - If defined keeps running total
MTCKQT
GET1ND(IEN) ; Returns the 1 node of file #408.21
IAICK(DFN,DGINC) ;Check version of IAI recs that don't have assoc. MT and convert version 0 record
MTCHK ; Checks if MT/CP is complete for prior calendar year
; Input:
; DFN
; DGINR array of income relation for deps
; DGISYR as income screening year
DIS ;Display income

External References

Name Field # of Occurrence
$$AMT^DGMTSCU1 DIS+17, DIS+20, DIS1+15, DIS1+18, FLD+10, FLD+11, FLD+12, FLD+13, FLD+15
$$LYR^DGMTSCU1 EN+21
$$LST^DGMTU EN+10
$$UPDTTSTS^DGMTU21 IAICK+6
ALL^DGMTU21 EN+8, EN+22
$$NOBUCKS^DGMTU22 EN+9
ISCNVRT^DGMTUTL IAICK+5
$$VER^DGMTUTL3 EN+41, EN+45
NEW^DGRPEIS1 EN+7
^DGRPP EN+55
$$MTCOMP^DGRPU MTCHK+18
H^DGRPU EN+6
WW^DGRPV DIS+7, DIS+8, DIS+9, DIS+10, DIS+11, DIS+12, DIS+13, DIS+14, DIS+15, DIS+16
, DIS1+6, DIS1+8, DIS1+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?34,"Veteran"
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: ?46,"Spouse"
  • Condition for execution: DGSP
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: ?56,"Dependents"
  • Condition for execution: DGDEP
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: ?73,"Total"
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !?31,"-----------------------------------------------"
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: !,DGBL,DGBL," Total 1-10 -->"," ",$J($$AMT^DGMTSCU1(DGGTOT),12)
  • Line Location: DIS+17
Function Call: WRITE
  • Prompt: !!?34,"Veteran"
  • Line Location: DIS1+3
Function Call: WRITE
  • Prompt: ?46,"Spouse"
  • Condition for execution: DGSP
  • Line Location: DIS1+3
Function Call: WRITE
  • Prompt: ?56,"Dependents"
  • Condition for execution: DGDEP
  • Line Location: DIS1+3
Function Call: WRITE
  • Prompt: ?73,"Total"
  • Line Location: DIS1+3
Function Call: WRITE
  • Prompt: !?31,"-----------------------------------------------"
  • Line Location: DIS1+4
Function Call: WRITE
  • Prompt: " Total Employment Income",!
  • Line Location: DIS1+6
Function Call: WRITE
  • Prompt: " Net Income from Farm,",!
  • Line Location: DIS1+8
Function Call: WRITE
  • Prompt: " Other Income Amounts",!
  • Line Location: DIS1+10
Function Call: WRITE
  • Prompt: " (Soc. Sec., Compensation,",!
  • Line Location: DIS1+11
Function Call: WRITE
  • Prompt: !,DGBL,DGBL," Total 1-3 --> "," ",$J($$AMT^DGMTSCU1(DGGTOT),11)
  • Line Location: DIS1+15
Function Call: WRITE
  • Prompt: " ",DGTXT,$P(DGBL," ",$L(DGTXT),28)
  • Line Location: FLD+9
Function Call: WRITE
  • Prompt: " ",$S($D(DGIN("S")):$J($$AMT^DGMTSCU1($P(DGIN("S"),"^",DGPCE)),10),1:$E(DGBL,1,10))
  • Line Location: FLD+12
Function Call: WRITE
  • Prompt: " ",$S($D(DGIN("D")):$J($$AMT^DGMTSCU1($P(DGIN("D"),"^",DGPCE)),11),1:$E(DGBL,1,11))
  • Line Location: FLD+13
Function Call: WRITE
  • Prompt: " ",$J($$AMT^DGMTSCU1(DGTOT),12)
  • Line Location: FLD+15
Function Call: WRITE
  • Prompt: !?(40-($L(DGHD)/2)),DGHD
  • Line Location: MTCHK+18
Function Call: WRITE
  • Prompt: !?(40-($L(DGHD)/2)),DGHD
  • Line Location: MTCHK+23
Function Call: WRITE
  • Prompt: !,*7," You can only edit these items for dependents who are not "_DGMTCP_" tested!"
  • Line Location: MTCHK+29
Function Call: WRITE
  • Prompt: !,*7,?12,"This data must be edited through the "_DGMTCP_" test module!"
  • Line Location: MTCHK+30

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.21 - [#408.21] GET0ND+1, GET1ND+1, MTCHK+17, IAICK+2
^DGMT(408.22 - [#408.22] MTCHK+25, MTCHK+27
^DGMT(408.31 - [#408.31] EN+31, EN+38

Label References

Name Line Occurrences
$$GET0ND TOT+14, TOT+17
$$GET1ND TOT+13, TOT+16
DIS EN+52
DIS1 EN+53
FLD DIS+7, DIS+8, DIS+9, DIS+10, DIS+11, DIS+12, DIS+13, DIS+14, DIS+15, DIS+16
, DIS1+7, DIS1+9, DIS1+13
IAICK EN+41, EN+45
MTCHK DIS+1, DIS1+1
MTCKQT MTCHK+24
TOT EN+51

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN+8, EN+9, EN+10, EN+22, EN+41, EN+45, MTCHK+18, IAICK~, IAICK+6
DGBL DIS+2~, DIS+17, DIS1+2~, DIS1+15, FLD+7*, FLD+9, FLD+12, FLD+13
DGCT TOT+9~, TOT+15*, TOT+16, TOT+17
DGDEP EN+3!, DIS+4, DIS1+3
DGDOEXP TOT~, TOT+10*, TOT+13, TOT+16
DGEFDT EN+4~, EN+10*, EN+20*, EN+21, EN+22, EN+38, EN+40, EN+48, MTCHK+18, MTCHK+24
>> DGEXP( TOT+13*, TOT+16*
DGFL MTCHK+11~, MTCHK+12*, MTCHK+25*, MTCHK+26*, MTCHK+27*, MTCHK+28
>> DGGTOT DIS+6*, DIS+17, DIS1+5*, DIS1+15, FLD+16*
DGHD MTCHK+11~, MTCHK+13*, MTCHK+17*, MTCHK+18, MTCHK+22*, MTCHK+23
DGIAINEW EN+26, EN+28, EN+54!
DGIN FLD~
DGIN( FLD+14
DGIN("D" FLD+13
DGIN("S" FLD+12
DGIN("V" FLD+10, FLD+11
DGINC EN+3!, EN+41, EN+45, EN+51, TOT~, IAICK~, IAICK+5
DGINC( TOT+13, TOT+14, TOT+15, TOT+16, TOT+17
DGINC("V" MTCHK+17, IAICK+2
>> DGINR("D" MTCHK+27
>> DGINR("S" MTCHK+25
>> DGISYR EN+21*, DIS+20, DIS1+18, MTCHK+13
DGLSTYR EN+4~, EN+5*
DGMT EN+4~, EN+10*, EN+20, EN+31, EN+32, EN+35, EN+38, EN+40, EN+45, EN+48
>> DGMTC MTCHK+12*, MTCHK+22*, MTCHK+29*
>> DGMTC("D" MTCHK+28*, MTCHK+29
>> DGMTC("S" MTCHK+26*, MTCHK+29
DGMTCP MTCHK+11~, MTCHK+19*, MTCHK+22, MTCHK+29, MTCHK+30
DGMTED EN+4~
DGMTED("D" MTCHK+27*
DGMTED("S" MTCHK+25*
DGMTED("V" MTCHK+22*
DGMTV EN+4~, EN+26*, EN+31*, EN+33*, EN+38*, EN+48*, EN+52, EN+53, MTCHK+14~*, MTCHK+15
, MTCHK+16, MTCHK+20, MTCHK+21, MTCHK+29
DGMTYPT MTCHK+11~, MTCHK+19
DGNOBUCK EN+4~, EN+9*, EN+20, EN+38, EN+40
DGPCE FLD~, FLD+10, FLD+11, FLD+12, FLD+13, FLD+14
DGREL EN+3!
DGREL( TOT+12
DGREL("D" MTCHK+27
DGREL("S" EN+50, MTCHK+25
>> DGRPS EN+6*
>> DGRPV EN+7, EN+9
>> DGRPVV(9 MTCHK+15*, MTCHK+16*, MTCHK+20*, MTCHK+21*, MTCHK+29*
>> DGRPW DIS+6*, DIS1+5*
>> DGSP EN+50*, DIS+4, DIS1+3
DGTOT EN+54!, DIS+7, DIS+8, DIS+9, DIS+10, DIS+11, DIS+12, DIS+13, DIS+14, DIS+15
, DIS+16, DIS1+7, DIS1+9, DIS1+13, FLD+6~, FLD+14*, FLD+15, FLD+16
DGTOT( TOT+12*, TOT+14*
DGTOT("D" TOT+18*
DGTOT("V" DIS+20, DIS1+18, TOT+11*
DGTXT FLD~, FLD+9
DGTY IAICK+1~, IAICK+2*, IAICK+6
>> DGTYPE TOT+12*, TOT+13, TOT+14, TOT+15, TOT+16, TOT+17
DT EN+5, EN+8, EN+9, EN+10, EN+20, EN+22, EN+31, EN+32, EN+35, EN+38
, EN+40, EN+48, MTCHK+24, IAICK+2
>> DVBGUI EN+2
I FLD+6~, FLD+14*, MTCHK+11~, MTCHK+27*
IEN GET0ND~, GET0ND+1, GET1ND~, GET1ND+1
IO EN+2
NODE TOT+9~, TOT+17*, TOT+18
OTHRTST IAICK+1~, IAICK+6*
PIECE TOT+9~, TOT+18*
SCV0 DIS+2~, DIS+3*, DIS1+2~, DIS1+12*, DIS1+14!, FLD+10, FLD+11
U EN+10, EN+20, EN+38, EN+40, EN+48, DIS+20, DIS1+18, MTCHK+17
X MTCHK+11~, MTCHK+27*
>> Z DIS+7*, DIS+8*, DIS+9*, DIS+10*, DIS+11*, DIS+12*, DIS+13*, DIS+14*, DIS+15*, DIS+16*
, DIS1+6*, DIS1+8*, DIS1+10*, FLD+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All