DGSSNRP1 ;ALB/SEK - DUPLICATE SPOUSE/DEPENDENT SSN REPORT; Dec 15, 1999
;;5.3;Registration;**313**;Aug 13,1993
;
REPORT ;This routine creates the Duplicate Spouse/Dependent SSN Report.
;The option name is Duplicate Spouse/Dependent SSN Report [DG DUPLICATE
;SSN REPORT] and this option is on the Means Test Outputs [DG MEANS
;TEST OUTPUTS] menu.
;
;1st part of this report lists spouse/dependent with no SSN (prints
;Not Available) or the same SSN as Veteran.
;This part contains the veteran's name and SSN and the SSN, name, and
;relationship of the spouse/dependent, sorted by veteran's SSN.
;
;2nd part of this report lists spouse/dependent with the same SSN
;as another spouse/dependent.
;This part contains the name, SSN and relationship of
;the spouse/dependent and the veteran's SSN for each spouse/dependent,
;sorted by spouse/dependent SSN.
;
I $$DEVICE() D MAIN^DGSSNRP2
Q
;
DEVICE() ;
;Description: allows the user to select a device.
;Input: none
;
;Output:
; Function Value - Returns 0 if the user decides not to print or to
; queue the report, 1 otherwise.
;
N OK,%ZIS
S OK=1
S %ZIS="MNQ"
D ^%ZIS
S:POP OK=0
D:OK&$D(IO("Q"))
.N ZTRTN,ZTDESC,ZTSK,ZTIO,ZTSAVE
.S ZTRTN="MAIN^DGSSNRP2",ZTDESC="Prepare Duplicate Spouse/Dependent SSN Report"
.S ZTIO="",ZTSAVE("DEV")=IOS
.S:$D(IO("HFSIO")) ZTSAVE("HFS")=IO("HFSIO")
.S:$D(IOPAR) ZTSAVE("PAR")=IOPAR
.D ^%ZTLOAD
.W !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
.D HOME^%ZIS
.S OK=0
Q OK
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGSSNRP1 1562 printed Oct 16, 2024@18:59:31 Page 2
DGSSNRP1 ;ALB/SEK - DUPLICATE SPOUSE/DEPENDENT SSN REPORT; Dec 15, 1999
+1 ;;5.3;Registration;**313**;Aug 13,1993
+2 ;
REPORT ;This routine creates the Duplicate Spouse/Dependent SSN Report.
+1 ;The option name is Duplicate Spouse/Dependent SSN Report [DG DUPLICATE
+2 ;SSN REPORT] and this option is on the Means Test Outputs [DG MEANS
+3 ;TEST OUTPUTS] menu.
+4 ;
+5 ;1st part of this report lists spouse/dependent with no SSN (prints
+6 ;Not Available) or the same SSN as Veteran.
+7 ;This part contains the veteran's name and SSN and the SSN, name, and
+8 ;relationship of the spouse/dependent, sorted by veteran's SSN.
+9 ;
+10 ;2nd part of this report lists spouse/dependent with the same SSN
+11 ;as another spouse/dependent.
+12 ;This part contains the name, SSN and relationship of
+13 ;the spouse/dependent and the veteran's SSN for each spouse/dependent,
+14 ;sorted by spouse/dependent SSN.
+15 ;
+16 IF $$DEVICE()
DO MAIN^DGSSNRP2
+17 QUIT
+18 ;
DEVICE() ;
+1 ;Description: allows the user to select a device.
+2 ;Input: none
+3 ;
+4 ;Output:
+5 ; Function Value - Returns 0 if the user decides not to print or to
+6 ; queue the report, 1 otherwise.
+7 ;
+8 NEW OK,%ZIS
+9 SET OK=1
+10 SET %ZIS="MNQ"
+11 DO ^%ZIS
+12 if POP
SET OK=0
+13 if OK&$DATA(IO("Q"))
Begin DoDot:1
+14 NEW ZTRTN,ZTDESC,ZTSK,ZTIO,ZTSAVE
+15 SET ZTRTN="MAIN^DGSSNRP2"
SET ZTDESC="Prepare Duplicate Spouse/Dependent SSN Report"
+16 SET ZTIO=""
SET ZTSAVE("DEV")=IOS
+17 if $DATA(IO("HFSIO"))
SET ZTSAVE("HFS")=IO("HFSIO")
+18 if $DATA(IOPAR)
SET ZTSAVE("PAR")=IOPAR
+19 DO ^%ZTLOAD
+20 WRITE !,$SELECT($DATA(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
+21 DO HOME^%ZIS
+22 SET OK=0
End DoDot:1
+23 QUIT OK
