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 |  Marked Items |  All
Print Page as PDF
Routine: DG1010P6

Package: Registration

Routine: DG1010P6


Information

DG1010P6 ;ALB/REW - PRINT 1010 CONT'D PART VI ; 15 MAR 92

Source Information

Source file <DG1010P6.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 6 ($$DATENP,$$POINT)^DG1010P0  (FOOTER,HEADER)^DG1010P2  (CLEANUP,PARTVII)^DG1010P7  ($$AMT,$$LYR)^DGMTSCU1  ALL^DGMTU21  TOT^DGRP9  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG1010PX  

Entry Points

Name Comments DBIA/ICR reference
INCTEXT ;
GETINC ;
DEP
PARTVI
SPOUSE
SETVAR ;
LOOP
INC

External References

Name Field # of Occurrence
$$DATENP^DG1010P0 SETVAR+8
$$POINT^DG1010P0 SPOUSE
FOOTER^DG1010P2 PARTVI
HEADER^DG1010P2 PARTVI+2
CLEANUP^DG1010P7 PARTVI+1
PARTVII^DG1010P7 LOOP+5
$$AMT^DGMTSCU1 LOOP+2, LOOP+3
$$LYR^DGMTSCU1 PARTVI+5
ALL^DGMTU21 PARTVI+6
TOT^DGRP9 PARTVI+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?41,"PART VI - INCOME SCREENING DATA OR ANNUAL INCOME",!,$C(13),DGLUND
  • Line Location: PARTVI+9
Function Call: WRITE
  • Prompt: !,"1A. CURRENT MARITAL STATUS: ",$$POINT^DG1010P0(DGP(0),5,11)
  • Line Location: SPOUSE+0
Function Call: WRITE
  • Prompt: ?56,"| ","1B. DATE OF MARRIAGE: ",$G(DGEFFDT),!,?56,"|",?131,$C(13),DGLUND
  • Line Location: SPOUSE+1
Function Call: WRITE
  • Prompt: !,"2A. WAS PATIENT MARRIED OR SEPARATED AT THE END OF LAST CALENDAR YEAR?: ",$S((X=1):"YES",(X=0):"NO",1:"UNANSWERED"),!,DGLUND
  • Line Location: SPOUSE+3
Function Call: WRITE
  • Prompt: !,"2B. NAME OF SPOUSE",?36,"| ","2C. SEX OF SPOUSE",?56,"| ","2D. SPOUSE'S SOCIAL SECURITY NO",?97,"| ","2E. SPOUSE'S DATE OF BIRTH"
  • Line Location: SPOUSE+4
Function Call: WRITE
  • Prompt: !?4,DGRNAM,?36,"| ",?42,DGRSEX,?56,"| ",?62,DGRSSN,?97,"| ",?103,DGRDOB
  • Line Location: SPOUSE+5
Function Call: WRITE
  • Prompt: ?131,$C(13),DGLUND
  • Line Location: SPOUSE+6
Function Call: WRITE
  • Prompt: !!,?60,"3. DEPENDENTS",?131,$C(13),DGLUND,!,?32,"| ",?56,"| ",?71,"| ",?90,"| ",?114,"|"
  • Line Location: DEP+0
Function Call: WRITE
  • Prompt: !?5,"A. NAME",?32,"| ","B. SOCIAL SECURITY NO",?56,"| ","C. SEX",?71,"| ","D. DATE OF BIRTH",?90,"| ","E. RELATIONSHIP",?114,"| ","F. DEPENDENT AS"
  • Line Location: DEP+1
Function Call: WRITE
  • Prompt: !?32,"| ",?56,"| ",?71,"| ",?90,"| ",?114,"| "," OF (DATE)",?131,$C(13),DGLUND
  • Line Location: DEP+2
Function Call: WRITE
  • Prompt: ?131,$C(13),DGLUND
  • Line Location: DEP+13
Function Call: WRITE
  • Prompt: !!,?40,"4. PREVIOUS CALENDAR YEAR (",($E(DGISDT,1,3)+1700),") INCOME INFORMATION",!,$C(13),DGLUND
  • Line Location: INC+0
Function Call: WRITE
  • Prompt: !?49,"| ",?86,"AMOUNT",?131,"",$C(13),X," ",$E(DGLUND,51,132)
  • Line Location: INC+1
Function Call: WRITE
  • Prompt: !?5,"CHECK ALL APPLICABLE BOXES",?49,"| ",?69,"| ",?89,"| ",?109,"| "
  • Line Location: INC+2
Function Call: WRITE
  • Prompt: !,?49,"| ",?54,"VETERAN",?69,"| ",?75,"SPOUSE",?89,"| ",?94,"DEPENDENTS",?109,"| ",?118,"TOTAL",?131,$C(13),DGLUND
  • Line Location: INC+3
Function Call: WRITE
  • Prompt: !?109,"| ",!,?11,"11. TOTAL INCOME",?109,"| ",$J($$AMT^DGMTSCU1(DGGTOT),15),?131,$C(13),DGLUND
  • Line Location: LOOP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SETVAR+6
^DG(408.11 - [#408.11] DEP+9
^DGMT(408.22 - [#408.22] SPOUSE+2
^DGPR(408.12 - [#408.12] DEP+8, SETVAR+8
^DPT - [#2] PARTVI+10

Label References

Name Line Occurrences
GETINC LOOP+1
SETVAR PARTVI+16, DEP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN PARTVI+6, PARTVI+10
>> DFN1 PARTVI+4
>> DGCHECK LOOP+2, GETINC+1*, GETINC+6*
>> DGCT DEP+4*, DEP+5, DEP+6, DEP+8, DEP+10
>> DGDEF PARTVI+14*, DEP+5*, SETVAR+2, SETVAR+3
>> DGDEP DEP+3
>> DGDEPINC LOOP+2, GETINC+2*, GETINC+5*
DGE PARTVI+3!
DGEFFDT SPOUSE+1, DEP+10, LOOP+4!, SETVAR+8*
>> DGGTOT INC+4*, LOOP+3, GETINC+6*
>> DGINC PARTVI+8
>> DGINR("V" SPOUSE+2
DGINS PARTVI+3!
>> DGISDT PARTVI+5*, INC
>> DGLUND PARTVI+9, SPOUSE+1, SPOUSE+3, SPOUSE+6, DEP, DEP+2, DEP+13, INC, INC+1, INC+3
, LOOP+2, LOOP+3
>> DGNODE SETVAR+3*, SETVAR+4, SETVAR+5, SETVAR+6, SETVAR+7
DGOT PARTVI+3!
DGOTHER PARTVI+3!
>> DGP(0 PARTVI+10*, SPOUSE
>> DGPCE LOOP*, GETINC+3, GETINC+4, GETINC+5
DGPR PARTVI+15*, DEP+6*, LOOP+4!, SETVAR+8
>> DGRDOB PARTVI+12*, SPOUSE+5, DEP+10, SETVAR+1*, SETVAR+6*
>> DGREL DEP+9*, DEP+10
>> DGREL("D" DEP+4, DEP+5, DEP+6, DEP+8
>> DGREL("S" PARTVI+7, PARTVI+14, PARTVI+15
>> DGRNAM PARTVI+12*, SPOUSE+5, DEP+10, SETVAR+1*, SETVAR+4*
>> DGRSEX PARTVI+12*, SPOUSE+5, DEP+10, SETVAR+1*, SETVAR+5*
>> DGRSSN PARTVI+12*, SPOUSE+5, DEP+10, SETVAR+1*, SETVAR+7*
DGSC PARTVI+3!
DGSP PARTVI+3!, PARTVI+7*, PARTVI+11
>> DGSPOINC LOOP+2, GETINC+2*, GETINC+4*
>> DGSTOP PARTVI+1
>> DGTOT("D" GETINC+5
>> DGTOT("S" GETINC+4
>> DGTOT("V" GETINC+3
>> DGTOTINC LOOP+2, GETINC+2*, GETINC+3*, GETINC+4*, GETINC+5*, GETINC+6
>> DGVETINC LOOP+2, GETINC+2*, GETINC+3*
DGVT PARTVI+3!
>> DGX PARTVI+4*, PARTVI+5, PARTVI+6
DGXX PARTVI+3!
E PARTVI+3!
>> I LOOP*
U SPOUSE+2, DEP+8, DEP+9, LOOP, GETINC+3, GETINC+4, GETINC+5, SETVAR+3
>> X SPOUSE+2*, SPOUSE+3, DEP+8*, DEP+9*, INC+1*, SETVAR+4*, SETVAR+5*, SETVAR+7*
>> Y SETVAR+6*

Marked Items

Name Field # of Occurrence
$T(INCTEXT+I LOOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All