Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; DVBGUI : CAPRI GUI User
DIS ;Display income
DIS1 ;Display income in version 1 form for screen 9 in Load/Edit.
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
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
GET0ND(IEN) ; Returns the 0 node of File #408.21
GET1ND(IEN) ; Returns the 1 node of file #408.21
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
MTCKQT
IAICK(DFN,DGINC) ;Check version of IAI recs that don't have assoc. MT and convert version 0 record

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
Info |  Source |  Entry Points |  Interaction Calls