PRSDLD19.m

PRSDLD19 ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 19 LAYOUT ;08/26/2003

 ;;4.0;PAID;**78,82,132**;Sep 21, 1995;Build 13

 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

 ;;TELEWORK INDICATOR;TELEWORK INDICATOR;1;45;;;;;;634

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDLD19   1786     printed  Apr 09, 2024@21:28                                                                                                                                                                                                       Page 2

PRSDLD19  ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 19 LAYOUT ;08/26/2003

 +1       ;;4.0;PAID;**78,82,132**;Sep 21, 1995;Build 13

 +2        FOR CC=1:1

               SET FLD=$TEXT(RECORD+CC)

               if FLD=""

                   QUIT 

               DO LDSET^PRSDSET

 +3        QUIT 

RECORD    ;;Record 19;20

 +1       ;;SBONDS-ADDR-LINE1-4;SAVINGS BOND-4 ADD LINE-1;BOND4;1;;;;;;735

 +2       ;;SBONDS-ADDR-LINE2-4;SAVINGS BOND-4 ADD LINE-2;BOND4;2;;;;;;736

 +3       ;;SBONDS-ADDR-LINE3-4;SAVINGS BOND-4 ADD LINE-3;BOND4;3;;;;;;737

 +4       ;;SBONDS-COST-4;SAVINGS BOND-4 BALANCE;BOND4;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;738

 +5       ;;SBONDS-BENE-CODE-4;SAVINGS BOND-4 BENE CODE;BOND4;5;;;;;;739

 +6       ;;SBONDS-COOWNER-4;SAVINGS BOND-4 CO-OWNER;BOND4;6;;;;;;740

 +7       ;;SBONDS-COOWNER-SSN-4;SAVINGS BOND-4 CO-OWNER SSN;BOND4;7;;;;;;741

 +8       ;;SBONDS-DED-BAL-4;SAVINGS BOND-4 DED BALANCE;BOND4;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;742

 +9       ;;SBONDS-DED-PAY-PERIOD-4;SAVINGS BOND-4 DED EPPD;BOND4;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;743

 +10      ;;SBONDS-DENOM-4;SAVINGS BOND-4 DENOMINATION;BOND4;10;;;;;;744

 +11      ;;SBONDS-EFFT-DATE-4;SAVINGS BOND-4 EFFECTIVE DATE;BOND4;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;745

 +12      ;;SBONDS-OWNER-4;SAVINGS BOND-4 OWNER;BOND4;12;;;;;;746

 +13      ;;SBONDS-OWNER-SSN-4;SAVINGS BOND-4 OWNER SSN;BOND4;13;;;;;;747

 +14      ;;SBONDS-ZIP-CODE-4;SAVINGS BOND-4 ZIP CODE;BOND4;14;D ZIP^PRSDUTIL;;;;;748

 +15      ;;SBONDS-TYPE-4;SAVINGS BOND-4 TYPE BOND;BOND4;15;;;;;;749

 +16      ;;VOL-ALLOT-AMT-3;VOLUNTARY ALLOTMENT-3 AMT;VALLOT;6;D SIGN^PRSDUTIL S DATA=+DATA;;;;;439.1

 +17      ;;VOL-ALLOT-CNTL-3;VOLUNTARY ALLOTMENT-3 CTRL NO;VALLOT;7;;;;;;439.2

 +18      ;;VOL-ALLOT-AMT-4;VOLUNTARY ALLOTMENT-4 AMT;VALLOT;8;D SIGN^PRSDUTIL S DATA=+DATA;;;;;439.3

 +19      ;;VOL-ALLOT-CNTL-4;VOLUNTARY ALLOTMENT-4 CTRL NO;VALLOT;9;;;;;;439.4

 +20      ;;TRAVEL-AWARD;TRAVEL SAVINGS AWARD;AWARDS;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;587.2

 +21      ;;TELEWORK INDICATOR;TELEWORK INDICATOR;1;45;;;;;;634