DGSSNRP1.m

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 ---DGSSNRP1   1562     printed  Apr 09, 2024@22:04:03                                                                                                                                                                                                    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