Routine: DGSSNRP2

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMADD,$$FMTE)^XLFDT $$LJ^XLFSTR
VA Fileman	2	^%DTC ^DIR
Registration	1	(DEM,IN5)^VADPT
Scheduling	1	$$SDAPI^SDAMA301

Package	Total	Caller Graph
Registration	1	DGSSNRP1

Entry Points

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

External References

Name	Field # of Occurrence
^%DTC	OKIMP+3
^%ZIS	MAIN+11
HOME^%ZIS	MAIN+11
^%ZISC	PRINT+16
^%ZTLOAD	MAIN+9
^DIR	PAUSE+2
$$SDAPI^SDAMA301	SDAM+4
DEM^VADPT	GETPART1+12, SETTMP+13, OKRPT+2
IN5^VADPT	OKIMP+1
$$DT^XLFDT	MAIN+1
$$FMADD^XLFDT	SDAM+1
$$FMTE^XLFDT	HEADER+5
$$LJ^XLFSTR	LJ+1

Interaction Calls

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
Routine Call	%ZIS Line Location: MAIN+11
Routine Call	DIR Line Location: PAUSE+2
Routine Call	%ZIS Line Location: MAIN+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(408.11 - [#408.11]	RELCODE+2
^DGPR(408.12 - [#408.12]	GETPART1+5, GETPART1+7, GETPART1+9, SETTMP+7, SETTMP+8, SELPRT2+6, SELPRT2+7
^DGPR(408.13 - [#408.13]	GETPART1+23, GETPART2+4, GETPART2+8, GETPART2+10
^TMP("DGSSNAR"	PRINT+17!, GETPART1+4!, GETPART1+13!, GETPART1+19, GETPART1+25, GETPART1+26, SETTMPA+2, SETTMPA+4!, SETTMPA+5, SETTMPA+6! , SETTMPA+7, SETTMPA+10, SETTMPA+12, SETTMPA+13, GETPART2+3!, GETPART2+13*, SETTMP+2, SETTMP+3, SETTMP+5, SETTMP+6 , SELPRT2+2, SELPRT2+3, SELPRT2+4!, SELPRT2+5
^TMP($J	SETTMPA+4!, HEADER+10, HEADER+16, OKIMP+4, OK2RPT+2, OK2RPT+3, VBLDARR+1, VBLDARR+2, SDAM+2, SDAM+3 , SDAM+5!, SDAM+6, SDAM+7!, SDAM+8, SELPRT2+9
^XTMP("DG-SSNRP2"	MAIN+2, PRINT+9!, PRINT+11, PRINT+17!, SETTMPA+12, SETTMPA+13, SETTMP+16, CHECKP1+2, PPART1+2, PPART1+3 , PPART1+5, PPART1+6, PPART2+3, PPART2+7, PPART2+8

Label References

Name	Line Occurrences
$$LJ	PPART1+8, PPART1+9, PPART2+10, PPART2+11, PPART2+12, PART1HD
$$OK2RPT	SETTMPA+4, SETTMP+11
$$OKIMP	GETPART1+17, SELPRT2+8
$$OKRPT	GETPART1+15
$$RELCODE	PPART1+9, PPART2+11
CHECKP1	PRINT+7
GETDATA	MAIN+3
GETPART1	GETDATA+1
GETPART2	GETDATA+2
HEADER	PRINT+7, PRINT+12, LINE+5, LINE+11, PART1HEA+2, PART1HEA+7
LINE	PPART1+10, PPART2+13
PART1HD	HEADER+12, PART1HEA+9
PART1HEA	PPART1+4
PAUSE	PRINT+14, LINE+2, PART1HEA+5
PPART1	PRINT+8
PPART2	PRINT+13
PRINT	MAIN+11
SDAM	GETPART1+28, GETPART2+15
SELPRT2	GETPART2+15
SETTMP	GETPART2+15
SETTMPA	GETPART1+28
VBLDARR	GETPART1+26, SELPRT2+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFLG	SETTMPA+1~, OK2RPT+1~, OK2RPT+2, OK2RPT+4, OK2RPT+5
APPCK	SETTMPA+1~, OK2RPT+1~, OK2RPT+2, OK2RPT+3
APPTYP	SETTMPA+1~, OK2RPT+3*, OK2RPT+4
CRT	PRINT+1~, PRINT+3*, PRINT+5, PRINT+14, LINE+1, LINE+9, PART1HEA+1, PART1HEA+4
DEV	MAIN+6, PRINT+2!
DFN	GETPART1+3~, GETPART1+5, GETPART1+7, GETPART1+13, GETPART1+15, GETPART1+17, GETPART1+19, GETPART1+25, GETPART1+26, SETTMPA+2 , SETTMPA+4, SETTMPA+5, SETTMPA+6, SETTMPA+7, SETTMPA+10, SETTMPA+12, SETTMPA+13, SETTMP+11, SETTMP+12*, OKRPT~ , OKIMP~, OKIMP+4, OK2RPT~, OK2RPT+2, OK2RPT+3, VBLDARR~, VBLDARR+1
DG40812	GETPART1+3~, GETPART1+9*, GETPART1+10, GETPART1+21, GETPART1+22, GETPART1+25
DGARRAY	SDAM~, SDAM+4
DGARRAY("FLDS"	SDAM+1*
DGARRAY("SORT"	SDAM+1*
DGARRAY(1	SDAM+1*
DGARRAY(4	SDAM+3*
DGCNT	SELPRT2+1~, SELPRT2+3*, SELPRT2+4, SELPRT2+5
DGCODE	RELCODE~, RELCODE+2
DGDEP	GETPART1+3~, GETPART1+23*, GETPART1+25
DGDEPIEN	GETPART1+3~, GETPART1+22*, GETPART1+23
DGDEPNM	SETTMP+1~, SETTMP+6*, SETTMP+16
DGDEPREL	SETTMP+1~, SETTMP+10, SETTMP+15, SETTMP+16
DGDEPSSN	SETTMPA+1~, SETTMPA+10, SETTMPA+11, SETTMPA+13, PPART2+1~, PPART2+2, PPART2+3*, PPART2+7, PPART2+8, PPART2+10
DGIEN	GETPART1+3~, GETPART1+6, GETPART1+7, GETPART1+8, GETPART1+9, GETPART1+13*
DGNAME	RELCODE+2~*, RELCODE+3, RELCODE+4
DGP2F	PPART2+1~, PPART2+2, PPART2+4, PPART2+5
DGPART1	PPART1+1~, PPART1+6*, PPART1+7, PPART1+8, PPART1+9
DGPART2	PPART2+1~, PPART2+8*, PPART2+9, PPART2+10, PPART2+11, PPART2+12
DGPAT	SETTMP+1~, SETTMP+7*, SETTMP+8
DGPATRL	SETTMP+1~, SETTMP+8*, SETTMP+10, SETTMP+12, SETTMP+15
DGPTR	SELPRT2+1~, SELPRT2+6*, SELPRT2+7
DGPTRL	SELPRT2+1~, SELPRT2+7*, SELPRT2+8, SELPRT2+9, SELPRT2+10
DGSCTR	SETTMPA+1~, SETTMPA+9, SETTMPA+10, SETTMPA+13, SETTMP+1~, SETTMP+4, SETTMP+5, SETTMP+6, SETTMP+16, PPART1+1~ , PPART1+3, PPART1+5, PPART1+6, PPART2+1~, PPART2+6, PPART2+7, PPART2+8
DGSSN	GETPART2+2~, GETPART2+4, GETPART2+5, GETPART2+6, GETPART2+8, SETTMP+2, SETTMP+3, SETTMP+5, SETTMP+6, SETTMP+16 , SELPRT2+1~, SELPRT2+2*, SELPRT2+3, SELPRT2+4, SELPRT2+5
DGSSN1	GETPART2+2~, GETPART2+6*, GETPART2+13
DGSSNCTR	GETPART1+3~, GETPART1+6, GETPART1+24, GETPART1+25, SETTMPA+5, SETTMPA+6, SETTMPA+9, GETPART2+2~, GETPART2+7, GETPART2+12* , GETPART2+13, SETTMP+1~, SETTMP+3*, SETTMP+4
DGSSND	GETPART2+2~, GETPART2+10*, GETPART2+13
DGSSNDA	GETPART2+2~, GETPART2+7, GETPART2+8, GETPART2+9, GETPART2+10, GETPART2+13
DGSSNDA1	SETTMP+1~, SETTMP+5*, SETTMP+7
DGSSNP	SELPRT2+1~, SELPRT2+5*, SELPRT2+6
DGTMPN1	SETTMPA+1~, SETTMPA+8, SETTMPA+12
DGVETNM	PRINT+1~, PPART1+3*, PART1HD
DGVETSN2	SETTMP+1~, SETTMP+10, SETTMP+11, SETTMP+14, SETTMP+16
DGVETSNP	SETTMPA+1~, SETTMPA+7*, SETTMPA+11
DGVETSSN	PRINT+1~, PPART1+1, PPART1+2, PPART1+3, PPART1+5, PPART1+6, PART1HD
DIR	PAUSE~
DIR(0	PAUSE+2*
DIRUT	PAUSE~, PAUSE+3
DT	HEADER+5, OKIMP+3, SDAM+1
HFS	MAIN+7, PRINT+2!
I	SDAM~, SDAM+2*, SDAM+3, SDAM+5, SDAM+7
IO	PRINT+4
IO("HFSIO"	MAIN+7*
IOF	PRINT+5, LINE+4, LINE+10, HEADER+3
>> IOP	MAIN+11*
>> IOPAR	MAIN+8*
>> IOS	MAIN+11
IOSL	LINE+1, LINE+9, PAUSE+1, PART1HEA+1, PART1HEA+4
IOST	PRINT+3
LENGTH	LJ~, LJ+1
LINE	LINE~, LINE+7, LINE+12, LINE+14, HEADER+2~, PPART1+1~, PPART1+8, PPART1+9, PPART1+10, PPART2+1~ , PPART2+10, PPART2+11, PPART2+12*, PPART2+13
PAGE	PRINT+1~, PRINT+3, PRINT+5, PRINT+6, HEADER+5, HEADER+6*
PAR	MAIN+8, PRINT+2!
PART1D	PRINT+1~, PRINT+6, PRINT+8, CHECKP1+2, HEADER+10, HEADER+11
PART1ST	PRINT+1~, CHECKP1+3, HEADER+12, HEADER+13
PART2D	PRINT+1~, PRINT+6, PRINT+11, PRINT+13, HEADER+16, HEADER+17
QUIT	PRINT+1~, PRINT+3, PRINT+9, PRINT+14, LINE+1, LINE+3, LINE+5, HEADER+1, PAUSE+3, PPART1+2 , PPART1+4, PPART1+5, PPART1+10, PPART1+11, PPART1+12, PPART2+3, PPART2+7, PPART2+13, PPART2+14, PPART2+15 , PART1HEA+4, PART1HEA+6
SDCNT	SDAM~, SDAM+4*, SDAM+5
SECTION	PRINT+1~, PRINT+6, PRINT+10, LINE+6, HEADER+8, HEADER+9, HEADER+14
STATS	PRINT+1~
STRING	LJ~, LJ+1
U	MAIN+2, OKIMP+3, OK2RPT+3, OK2RPT+4, SELPRT2+5
VA	PRINT+1~
VADM	PRINT+1~, GETPART1+15, OKRPT~, OKRPT+2
VADM(1	GETPART1+19
VADM(2	GETPART1+13, GETPART1+19, SETTMP+14
VADM(6	OKRPT+3
VAERR	PRINT+1~
VAIP	OKIMP+1~
VAIP("D"	OKIMP+1*
VAIP(3	OKIMP+2, OKIMP+3, OKIMP+4
VARR	GETPART1+3~, GETPART1+4, VBLDARR+1, VBLDARR+2, SELPRT2+1~*
X	MAIN+1~*, MAIN+2, PAUSE~, OKRPT+1~, OKIMP+2, OKIMP+4
X1	OKRPT+1~, OKIMP+3*
X2	OKRPT+1~, OKIMP+3*
Y	PAUSE~, PAUSE+3
ZTDESC	MAIN+5~, MAIN+6*
ZTIO	MAIN+5~, MAIN+6*
>> ZTQUEUED	MAIN+4, PRINT+15
>> ZTREQ	MAIN+10, PRINT+15
ZTRTN	MAIN+5~, MAIN+6*
ZTSK	MAIN+5~

Customize PDF page

Package: Registration

Routine: DGSSNRP2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: