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

Package: Registration

Routine: DGSSNRP2


Information

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

Source Information

Source file <DGSSNRP2.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 1

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All