| 1 | DGSSNRP1 ;ALB/SEK - DUPLICATE SPOUSE/DEPENDENT SSN REPORT; Dec 15, 1999
|
|---|
| 2 | ;;5.3;Registration;**313**;Aug 13,1993
|
|---|
| 3 | ;
|
|---|
| 4 | REPORT ;This routine creates the Duplicate Spouse/Dependent SSN Report.
|
|---|
| 5 | ;The option name is Duplicate Spouse/Dependent SSN Report [DG DUPLICATE
|
|---|
| 6 | ;SSN REPORT] and this option is on the Means Test Outputs [DG MEANS
|
|---|
| 7 | ;TEST OUTPUTS] menu.
|
|---|
| 8 | ;
|
|---|
| 9 | ;1st part of this report lists spouse/dependent with no SSN (prints
|
|---|
| 10 | ;Not Available) or the same SSN as Veteran.
|
|---|
| 11 | ;This part contains the veteran's name and SSN and the SSN, name, and
|
|---|
| 12 | ;relationship of the spouse/dependent, sorted by veteran's SSN.
|
|---|
| 13 | ;
|
|---|
| 14 | ;2nd part of this report lists spouse/dependent with the same SSN
|
|---|
| 15 | ;as another spouse/dependent.
|
|---|
| 16 | ;This part contains the name, SSN and relationship of
|
|---|
| 17 | ;the spouse/dependent and the veteran's SSN for each spouse/dependent,
|
|---|
| 18 | ;sorted by spouse/dependent SSN.
|
|---|
| 19 | ;
|
|---|
| 20 | I $$DEVICE() D MAIN^DGSSNRP2
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | DEVICE() ;
|
|---|
| 24 | ;Description: allows the user to select a device.
|
|---|
| 25 | ;Input: none
|
|---|
| 26 | ;
|
|---|
| 27 | ;Output:
|
|---|
| 28 | ; Function Value - Returns 0 if the user decides not to print or to
|
|---|
| 29 | ; queue the report, 1 otherwise.
|
|---|
| 30 | ;
|
|---|
| 31 | N OK,%ZIS
|
|---|
| 32 | S OK=1
|
|---|
| 33 | S %ZIS="MNQ"
|
|---|
| 34 | D ^%ZIS
|
|---|
| 35 | S:POP OK=0
|
|---|
| 36 | D:OK&$D(IO("Q"))
|
|---|
| 37 | .N ZTRTN,ZTDESC,ZTSK,ZTIO,ZTSAVE
|
|---|
| 38 | .S ZTRTN="MAIN^DGSSNRP2",ZTDESC="Prepare Duplicate Spouse/Dependent SSN Report"
|
|---|
| 39 | .S ZTIO="",ZTSAVE("DEV")=IOS
|
|---|
| 40 | .S:$D(IO("HFSIO")) ZTSAVE("HFS")=IO("HFSIO")
|
|---|
| 41 | .S:$D(IOPAR) ZTSAVE("PAR")=IOPAR
|
|---|
| 42 | .D ^%ZTLOAD
|
|---|
| 43 | .W !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
|
|---|
| 44 | .D HOME^%ZIS
|
|---|
| 45 | .S OK=0
|
|---|
| 46 | Q OK
|
|---|
