source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDLD19.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

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