26 lines
1.7 KiB
Mathematica
26 lines
1.7 KiB
Mathematica
PRSDLD19 ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 19 LAYOUT ;08/26/2003
|
|
;;4.0;PAID;**78,82**;Sep 21, 1995
|
|
F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
|
|
Q
|
|
RECORD ;;Record 19;20
|
|
;;SBONDS-ADDR-LINE1-4;SAVINGS BOND-4 ADD LINE-1;BOND4;1;;;;;;735
|
|
;;SBONDS-ADDR-LINE2-4;SAVINGS BOND-4 ADD LINE-2;BOND4;2;;;;;;736
|
|
;;SBONDS-ADDR-LINE3-4;SAVINGS BOND-4 ADD LINE-3;BOND4;3;;;;;;737
|
|
;;SBONDS-COST-4;SAVINGS BOND-4 BALANCE;BOND4;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;738
|
|
;;SBONDS-BENE-CODE-4;SAVINGS BOND-4 BENE CODE;BOND4;5;;;;;;739
|
|
;;SBONDS-COOWNER-4;SAVINGS BOND-4 CO-OWNER;BOND4;6;;;;;;740
|
|
;;SBONDS-COOWNER-SSN-4;SAVINGS BOND-4 CO-OWNER SSN;BOND4;7;;;;;;741
|
|
;;SBONDS-DED-BAL-4;SAVINGS BOND-4 DED BALANCE;BOND4;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;742
|
|
;;SBONDS-DED-PAY-PERIOD-4;SAVINGS BOND-4 DED EPPD;BOND4;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;743
|
|
;;SBONDS-DENOM-4;SAVINGS BOND-4 DENOMINATION;BOND4;10;;;;;;744
|
|
;;SBONDS-EFFT-DATE-4;SAVINGS BOND-4 EFFECTIVE DATE;BOND4;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;745
|
|
;;SBONDS-OWNER-4;SAVINGS BOND-4 OWNER;BOND4;12;;;;;;746
|
|
;;SBONDS-OWNER-SSN-4;SAVINGS BOND-4 OWNER SSN;BOND4;13;;;;;;747
|
|
;;SBONDS-ZIP-CODE-4;SAVINGS BOND-4 ZIP CODE;BOND4;14;D ZIP^PRSDUTIL;;;;;748
|
|
;;SBONDS-TYPE-4;SAVINGS BOND-4 TYPE BOND;BOND4;15;;;;;;749
|
|
;;VOL-ALLOT-AMT-3;VOLUNTARY ALLOTMENT-3 AMT;VALLOT;6;D SIGN^PRSDUTIL S DATA=+DATA;;;;;439.1
|
|
;;VOL-ALLOT-CNTL-3;VOLUNTARY ALLOTMENT-3 CTRL NO;VALLOT;7;;;;;;439.2
|
|
;;VOL-ALLOT-AMT-4;VOLUNTARY ALLOTMENT-4 AMT;VALLOT;8;D SIGN^PRSDUTIL S DATA=+DATA;;;;;439.3
|
|
;;VOL-ALLOT-CNTL-4;VOLUNTARY ALLOTMENT-4 CTRL NO;VALLOT;9;;;;;;439.4
|
|
;;TRAVEL-AWARD;TRAVEL SAVINGS AWARD;AWARDS;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;587.2
|