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

Package: Registration

Routine: DGRPTP1


Information

DGRPTP1 ;ALB/RMO - Print 10-10T Registration Cont.;06 JAN 1997 3:15 pm ; 8/18/00 2:48pm

Source Information

Source file <DGRPTP1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 6 ($$DATENP,$$DISP,$$POINT)^DG1010P0  $$ELIG^DG1010P5  EN^DGRPTP2  A^DGRPU  ZIPOUT^VAFADDR  $$SITE^VASITE  
VA Fileman 1 Y^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRPTP  

Entry Points

Name Comments DBIA/ICR reference
EXP(DFN,DGLNE) ;Exposure
; Input -- DFN Patient IEN
; DGLNE Line format array
; Output -- None
EN(DFN,DFN1,DGNAM,DGSSN,DGLNE,DGPGE) ;Entry point to print 10-10T cont.
; Input -- DFN Patient IEN
; DFN1 Disposition multiple IEN (optional)
; DGNAM Patient name
; DGSSN Patient ssn
; DGLNE Line format array
; DGPGE Page number
; Output -- None
EMC(DFN,DGLNE) ;Emergency contact
; Input -- DFN Patient IEN
; DGLNE Line format array
; Output -- None
DEM(DFN,DGNAM,DGSSN,DGLNE) ;Patient demographics
; Input -- DFN Patient IEN
; DGNAM Patient name
; DGSSN Patient ssn
; DGLNE Line format array
; Output -- None
BEN(DFN,DFN1,DGLNE) ;Benefit applying for
; Input -- DFN Patient IEN
; DFN1 Disposition multiple IEN (optional)
; DGLNE Line format array
; Output -- None
APS(DFN,DGLNE) ;Applicant status
; Input -- DFN Patient IEN
; DGLNE Line format array
; Output -- None
MCR(DFN,DFN1,DGLNE) ;Medical care related to
; Input -- DFN Patient IEN
; DFN1 Disposition multiple IEN (optional)
; DGLNE Line format array
; Output -- None

External References

Name Field # of Occurrence
$$DATENP^DG1010P0 DEM+11
$$DISP^DG1010P0 DEM+17, DEM+18, DEM+23, DEM+36, DEM+37, EMC+10, EMC+11, EMC+12, EMC+13
$$POINT^DG1010P0 DEM+24, DEM+28
$$ELIG^DG1010P5 APS+28, APS+32
EN^DGRPTP2 EN+18
A^DGRPU EMC+19
Y^DIQ DEM+33, EMC+25, BEN+10, APS+11, APS+14, APS+17, APS+20, APS+26, APS+35, EXP+11
, EXP+13, EXP+16, MCR+14, MCR+16
ZIPOUT^VAFADDR DEM+26
$$SITE^VASITE EN+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?116,"VA FORM 10-10T",!,DGLNE("DD"),!?35,"D E P A R T M E N T O F V E T E R A N S A F F A I R S",!,DGLNE("DD")
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"FACILITY: ",$S($G(X):$P(X,U,2)_" ("_$P(X,U,3)_")")
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: ?96,"APPLICATION FOR MEDICAL BENEFITS",!,DGLNE("DD")
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"1. Applicant's Name",?60,"|2. Social Security Number",?98,"|3. Date of Birth"
  • Line Location: DEM+10
Function Call: WRITE
  • Prompt: !?3,DGNAM,?60,"| ",DGSSN,?98,"| ",$$DATENP^DG1010P0(DGRP(0),3)
  • Line Location: DEM+11
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEM+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: DEM+12
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: DEM+12
Function Call: WRITE
  • Prompt: !,"4A. Applicant's Mailing Street Address"
  • Line Location: DEM+15
Function Call: WRITE
  • Prompt: !?4,$$DISP^DG1010P0(DGRP(.11),1)
  • Line Location: DEM+17
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEM+19
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: DEM+19
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: DEM+19
Function Call: WRITE
  • Prompt: !,"4B. City",?33,"|4C. County",?65,"|4D. Zip Code",?95,"|4E. State"
  • Line Location: DEM+22
Function Call: WRITE
  • Prompt: !?4,$$DISP^DG1010P0(DGRP(.11),4)
  • Line Location: DEM+23
Function Call: WRITE
  • Prompt: ?33,"| ",$$POINT^DG1010P0(DGRP(.11),7,"^DIC(5,"_+$P(DGRP(.11),U,5)_",1,")
  • Line Location: DEM+24
Function Call: WRITE
  • Prompt: ?95,"| ",$$POINT^DG1010P0(DGRP(.11),5,5)
  • Line Location: DEM+28
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEM+29
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: DEM+29
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: DEM+29
Function Call: WRITE
  • Prompt: !,"5. Patient's Sex",?33,"|6. Home Telephone Number",?65,"|7. Work Telephone Number"
  • Line Location: DEM+32
Function Call: WRITE
  • Prompt: ?33,"| ",$$DISP^DG1010P0(DGRP(.13),1)
  • Line Location: DEM+36
Function Call: WRITE
  • Prompt: ?65,"| ",$$DISP^DG1010P0(DGRP(.13),2)
  • Line Location: DEM+37
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: DEM+38
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: DEM+38
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: DEM+38
Function Call: WRITE
  • Prompt: !,"8A. Emergency Contact",?40,"|8B. Relationship",?65,"|8C. Home Telephone Number",?95,"|8D. Work Telephone Number"
  • Line Location: EMC+9
Function Call: WRITE
  • Prompt: !?4,$$DISP^DG1010P0(DGRP(.33),1)
  • Line Location: EMC+10
Function Call: WRITE
  • Prompt: ?40,"| "
  • Line Location: EMC+11
Function Call: WRITE
  • Prompt: $$DISP^DG1010P0(DGRP(.33),2)
  • Condition for execution: DGEMCF
  • Line Location: EMC+11
Function Call: WRITE
  • Prompt: ?65,"| "
  • Line Location: EMC+12
Function Call: WRITE
  • Prompt: $$DISP^DG1010P0(DGRP(.33),9)
  • Condition for execution: DGEMCF
  • Line Location: EMC+12
Function Call: WRITE
  • Prompt: ?95,"| "
  • Line Location: EMC+13
Function Call: WRITE
  • Prompt: $$DISP^DG1010P0(DGRP(.33),11)
  • Condition for execution: DGEMCF
  • Line Location: EMC+13
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: EMC+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: EMC+14
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: EMC+14
Function Call: WRITE
  • Prompt: !,"8E. Mailing Address of Emergency Contact",?95,"|9. Is Emergency Contact"
  • Line Location: EMC+17
Function Call: WRITE
  • Prompt: !?4,$S(DGADI:DGA(DGADI),1:"")
  • Line Location: EMC+21
Function Call: WRITE
  • Prompt: ?95,"|Also Next of Kin"
  • Line Location: EMC+22
Function Call: WRITE
  • Prompt: !?4,$S(DGADI:DGA(DGADI),1:"")
  • Line Location: EMC+24
Function Call: WRITE
  • Prompt: !?4,DGA(DGADI)
  • Line Location: EMC+28
Function Call: WRITE
  • Prompt: ?95,"|"
  • Line Location: EMC+29
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: EMC+30
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: EMC+30
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: EMC+30
Function Call: WRITE
  • Prompt: !,"10. Benefit Applying For: "
  • Line Location: BEN+7
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: BEN+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: BEN+12
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: BEN+12
Function Call: WRITE
  • Prompt: !,"11. Applicant Status: ",!,DGLNE("D")
  • Line Location: APS+6
Function Call: WRITE
  • Prompt: !,"A. Service Connected",?33,"|B. Prisoner of War",?65,"|C. Aid and Attendance",?95,"|D. Military Disability Retired"
  • Line Location: APS+9
Function Call: WRITE
  • Prompt: !,DGLNE("D")
  • Line Location: APS+22
Function Call: WRITE
  • Prompt: !,"E. VA Pension",?33,"|F. Primary Eligibility Code",?65,"|G. Other Eligibility Code",?95,"|H. Purple Heart Recipient"
  • Line Location: APS+25
Function Call: WRITE
  • Prompt: ?33,"| ",$$ELIG^DG1010P5(+DGRP(.36))
  • Line Location: APS+28
Function Call: WRITE
  • Prompt: ?65,"| ",$$ELIG^DG1010P5(DGADI)
  • Line Location: APS+32
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: APS+37
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: APS+37
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: APS+37
Function Call: WRITE
  • Prompt: !,"12. Exposure To: "
  • Line Location: EXP+6
Function Call: WRITE
  • Prompt: ?33,"|A. Agent Orange",?65,"|B. Radiation",?95,"|C. Environmental Contaminants"
  • Line Location: EXP+9
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: EXP+18
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: EXP+18
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: EXP+18
Function Call: WRITE
  • Prompt: !,"13. Medical Care Related To: "
  • Line Location: MCR+7
Function Call: WRITE
  • Prompt: ?33,"|A. On-The-Job-Injury",?65,"|B. Accident"
  • Line Location: MCR+10
Function Call: WRITE
  • Prompt: !?33,"|"
  • Line Location: MCR+19
Function Call: WRITE
  • Prompt: ?65,"|"
  • Line Location: MCR+20
Function Call: WRITE
  • Prompt: ?131,$C(13)
  • Line Location: MCR+21
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGLNE("ULC")="-"
  • Line Location: MCR+21
Function Call: WRITE
  • Prompt: DGLNE("UL")
  • Line Location: MCR+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 DEM+33, EMC+25, APS+11, APS+14, APS+17, APS+20, APS+26, APS+35, EXP+11, EXP+13
, EXP+16
^DD(2.101 BEN+10, MCR+14, MCR+16
^DPT - [#2] DEM+9, DEM+16, DEM+35, EMC+7, BEN+8, APS+10, APS+13, APS+16, APS+19, APS+29
, APS+34, EXP+10, EXP+15, MCR+11, MCR+13

Label References

Name Line Occurrences
APS EN+15
BEN EN+14
DEM EN+12
EMC EN+13
EXP EN+16
MCR EN+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C DEM+6~, DEM+33*, EMC+4~, EMC+25*, BEN+5~, BEN+10*, APS+4~, APS+11*, APS+14*, APS+17*
, APS+20*, APS+26*, APS+29*, APS+30*, APS+31, APS+33, APS+35*, EXP+4~, EXP+11*, EXP+13*
, EXP+16*, MCR+5~, MCR+14*, MCR+16*
DFN EN~, EN+12, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, DEM~, DEM+9
, DEM+16, DEM+35, EMC~, EMC+7, BEN~, BEN+8, APS~, APS+10, APS+13, APS+16
, APS+19, APS+29, APS+34, EXP~, EXP+10, EXP+15, MCR~, MCR+11, MCR+13
DFN1 EN~, EN+14, EN+17, EN+18, BEN~, BEN+8, MCR~, MCR+11, MCR+13
DGA EMC+4~
DGA( EMC+21, EMC+23, EMC+24, EMC+27, EMC+28
DGA(0 EMC+20
DGA1 EMC+4~, EMC+19*
DGA2 EMC+4~, EMC+19*
DGAD EMC+4~, EMC+19*
DGADI EMC+4~, EMC+20*, EMC+21, EMC+23*, EMC+24, EMC+27*, EMC+28, APS+4~, APS+29*, APS+32
DGDIS BEN+5~, MCR+5~
DGDIS(0 BEN+8*, BEN+9, BEN+10, BEN+11, MCR+11*, MCR+12
DGDIS(2 MCR+13*, MCR+14, MCR+16
DGEMCF EMC+4~, EMC+8*, EMC+11, EMC+12, EMC+13, EMC+18
DGLNE EN~, EN+12, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, DEM~, EMC~
, BEN~, APS~, EXP~, MCR~
DGLNE("D" APS+6, APS+22
DGLNE("DD" EN+9, EN+11
DGLNE("UL" DEM+12, DEM+19, DEM+29, DEM+38, EMC+14, EMC+30, BEN+12, APS+37, EXP+18, MCR+21
DGLNE("ULC" DEM+12, DEM+19, DEM+29, DEM+38, EMC+14, EMC+30, BEN+12, APS+37, EXP+18, MCR+21
DGNAM EN~, EN+12, EN+18, DEM~, DEM+11
DGPGE EN~, EN+18
DGRP DEM+6~, EMC+4~, APS+4~, EXP+4~
DGRP( DEM+16*, DEM+17, DEM+18, DEM+23, DEM+24, DEM+25, DEM+28, DEM+35*, DEM+36, DEM+37
, EMC+7*, EMC+8, EMC+10, EMC+11, EMC+12, EMC+13, EMC+25, APS+10*, APS+11, APS+13*
, APS+14, APS+16*, APS+17, APS+19*, APS+20, APS+26, APS+28, APS+29, APS+34*, APS+35
, EXP+10*, EXP+11, EXP+13, EXP+15*, EXP+16
DGRP(0 DEM+9*, DEM+11, DEM+33
DGSSN EN~, EN+12, EN+18, DEM~, DEM+11
I DEM+6~, DEM+18*
U EN+10, DEM+18, DEM+24, DEM+25, DEM+33, EMC+8, EMC+25, BEN+9, BEN+10, BEN+11
, APS+11, APS+14, APS+17, APS+20, APS+26, APS+35, EXP+11, EXP+13, EXP+16, MCR+12
, MCR+14, MCR+16
X EN+8~, EN+10*
Y DEM+6~, DEM+25*, DEM+26, DEM+27, DEM+33*, DEM+34, EMC+4~, EMC+25*, EMC+26, BEN+5~
, BEN+10*, BEN+11, APS+4~, APS+11*, APS+12, APS+14*, APS+15, APS+17*, APS+18, APS+20*
, APS+21, APS+26*, APS+27, APS+35*, APS+36, EXP+4~, EXP+11*, EXP+12, EXP+13*, EXP+14
, EXP+16*, EXP+17, MCR+5~, MCR+14*, MCR+15, MCR+16*, MCR+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All