Routine: DGSSNRP2

Information

DGSSNRP2 ;ALB/SEK/PHH - DUPLICATE SPOUSE/DEPENDENT Report - Continued; 04/07/2004

Name	Comments	DBIA/ICR reference
MAIN	;
PRINT	;
LINE(LINE)	; Prints header if end of page.
GETDATA	;Setup global with vets included in the report
GETPART1	;1st part of report
SETTMPA	;check if spouse/dep SSN is the same as the vet's SSN or if not available (missing)
GETPART2	;2nd part of report
SETTMP	; Spouse/dependent with the same SSN
CHECKP1	;if there is no part1 data S PART1D=0
HEADER	;Description: Prints the report header.
PAUSE
PPART1	;Description: Prints Part 1 - Spouse/Dependent with no SSN or the same SSN as Veteran
PPART2	;Description: Prints Part 2 -Spouse/Dependent with the same SSN as another Spouse/Dependent
LJ(STRING,LENGTH)	;
RELCODE(DGCODE)	;returns relationship name from RELATIONSHIP file (#408.11)
PART1HEA	;heading for part1 (vet name & SSN and spouse/dep name & SSN)
PART1HD
OKRPT(DFN,VADM)	; Date of Death?
OKIMP(DFN)	; Inpatient or Outpatient in the last 3 years?
OK2RPT(DFN)	; Appt kept in the last 3 years?
VBLDARR(DFN)	; Build array of specified veterans
SDAM
SELPRT2	; Select records for Part 2

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+5
Function Call: WRITE	Prompt: !,LINE Line Location: LINE+14
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: !,?21,"Duplicate Spouse/Dependent SSN Report" Line Location: HEADER+4
Function Call: WRITE	Prompt: ?70,"Page ",PAGE,!,?26,"Date Generated: "_$$FMTE^XLFDT(DT) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,$S(SECTION="PART1":" Spouse/Dependent with no SSN or the same SSN as Veteran",1:" Spouse/Dependent with the same SSN as another Spouse/Dependent") Line Location: HEADER+8
Function Call: WRITE	Prompt: !!,?10,"Appointment Database Unavailable to validate active veterans." Line Location: HEADER+10
Function Call: WRITE	Prompt: !!,?25,"No entries meet this criteria" Line Location: HEADER+11
Function Call: WRITE	Prompt: !!,?10,"Appointment Database Unavailable to validate active veterans." Line Location: HEADER+16
Function Call: WRITE	Prompt: ?25,"No entries meet this criteria" Line Location: HEADER+17
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PPART2+4
Function Call: WRITE	Prompt: !!,"Veteran: ",$$LJ(DGVETNM,30)," Veteran SSN: ",$$LJ($E(DGVETSSN,2,11),10),!!," Spouse/Dependent Name Spouse/Dependent SSN Relationship" Line Location: PART1HD+0