- PRSDLD18 ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 18 LAYOUT ;05/13/04
- ;;4.0;PAID;**78,82,73**;Sep 21, 1995
- F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
- Q
- RECORD ;;Record 18;22
- ;;SBONDS-ADDR-LINE1-3;SAVINGS BOND-3 ADD LINE-1;BOND3;1;;;;;;720
- ;;SBONDS-ADDR-LINE2-3;SAVINGS BOND-3 ADD LINE-2;BOND3;2;;;;;;721
- ;;SBONDS-ADDR-LINE3-3;SAVINGS BOND-3 ADD LINE-3;BOND3;3;;;;;;722
- ;;SBONDS-COST-3;SAVINGS BOND-3 BALANCE;BOND3;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;723
- ;;SBONDS-BENE-CODE-3;SAVINGS BOND-3 BENE CODE;BOND3;5;;;;;;724
- ;;SBONDS-COOWNER-3;SAVINGS BOND-3 CO-OWNER;BOND3;6;;;;;;725
- ;;SBONDS-COOWNER-SSN-3;SAVINGS BOND-3 CO-OWNER SSN;BOND3;7;;;;;;726
- ;;SBONDS-DED-BAL-3;SAVINGS BOND-3 DED BALANCE;BOND3;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;727
- ;;SBONDS-DED-PAY-PERIOD-3;SAVINGS BOND-3 DED EPPD;BOND3;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;728
- ;;SBONDS-DENOM-3;SAVINGS BOND-3 DENOMINATION;BOND3;10;;;;;;729
- ;;SBONDS-EFFT-DATE-3;SAVINGS BOND-3 EFFECTIVE DATE;BOND3;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;730
- ;;SBONDS-OWNER-3;SAVINGS BOND-3 OWNER;BOND3;12;;;;;;731
- ;;SBONDS-OWNER-SSN-3;SAVINGS BOND-3 OWNER SSN;BOND3;13;;;;;;732
- ;;SBONDS-ZIP-CODE-3;SAVINGS BOND-3 ZIP CODE;BOND3;14;D ZIP^PRSDUTIL;;;;;733
- ;;SBONDS-TYPE-3;SAVINGS BOND-3 BOND TYPE;BOND3;15;;;;;;734
- ;;FLTCIP-IND;FLTCIP INDICATOR;FLTCIP;1;;;;;;750
- ;;FLTCIP-CPPD;FLTCIP CPPD;FLTCIP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;751
- ;;VCS-ALLOT-AMT;VCS ALLOTMENT AMT;VCS;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;586.1
- ;;AGARNISH-TAX3;TAX GARNISHMENT-3;ACSB;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;762
- ;;AGARNISH-TAX4;TAX GARNISHMENT-4;ACSB;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;763
- ;;AGARNISH-COM3;COMMERCIAL GARNISHMENT-3;ACSB;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;764
- ;;AGARNISH-COM4;COMMERCIAL GARNISHMENT-4;ACSB;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;765
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDLD18 1841 printed Feb 18, 2025@23:52:15 Page 2
- PRSDLD18 ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 18 LAYOUT ;05/13/04
- +1 ;;4.0;PAID;**78,82,73**;Sep 21, 1995
- +2 FOR CC=1:1
- SET FLD=$TEXT(RECORD+CC)
- if FLD=""
- QUIT
- DO LDSET^PRSDSET
- +3 QUIT
- RECORD ;;Record 18;22
- +1 ;;SBONDS-ADDR-LINE1-3;SAVINGS BOND-3 ADD LINE-1;BOND3;1;;;;;;720
- +2 ;;SBONDS-ADDR-LINE2-3;SAVINGS BOND-3 ADD LINE-2;BOND3;2;;;;;;721
- +3 ;;SBONDS-ADDR-LINE3-3;SAVINGS BOND-3 ADD LINE-3;BOND3;3;;;;;;722
- +4 ;;SBONDS-COST-3;SAVINGS BOND-3 BALANCE;BOND3;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;723
- +5 ;;SBONDS-BENE-CODE-3;SAVINGS BOND-3 BENE CODE;BOND3;5;;;;;;724
- +6 ;;SBONDS-COOWNER-3;SAVINGS BOND-3 CO-OWNER;BOND3;6;;;;;;725
- +7 ;;SBONDS-COOWNER-SSN-3;SAVINGS BOND-3 CO-OWNER SSN;BOND3;7;;;;;;726
- +8 ;;SBONDS-DED-BAL-3;SAVINGS BOND-3 DED BALANCE;BOND3;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;727
- +9 ;;SBONDS-DED-PAY-PERIOD-3;SAVINGS BOND-3 DED EPPD;BOND3;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;728
- +10 ;;SBONDS-DENOM-3;SAVINGS BOND-3 DENOMINATION;BOND3;10;;;;;;729
- +11 ;;SBONDS-EFFT-DATE-3;SAVINGS BOND-3 EFFECTIVE DATE;BOND3;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;730
- +12 ;;SBONDS-OWNER-3;SAVINGS BOND-3 OWNER;BOND3;12;;;;;;731
- +13 ;;SBONDS-OWNER-SSN-3;SAVINGS BOND-3 OWNER SSN;BOND3;13;;;;;;732
- +14 ;;SBONDS-ZIP-CODE-3;SAVINGS BOND-3 ZIP CODE;BOND3;14;D ZIP^PRSDUTIL;;;;;733
- +15 ;;SBONDS-TYPE-3;SAVINGS BOND-3 BOND TYPE;BOND3;15;;;;;;734
- +16 ;;FLTCIP-IND;FLTCIP INDICATOR;FLTCIP;1;;;;;;750
- +17 ;;FLTCIP-CPPD;FLTCIP CPPD;FLTCIP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;751
- +18 ;;VCS-ALLOT-AMT;VCS ALLOTMENT AMT;VCS;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;586.1
- +19 ;;AGARNISH-TAX3;TAX GARNISHMENT-3;ACSB;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;762
- +20 ;;AGARNISH-TAX4;TAX GARNISHMENT-4;ACSB;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;763
- +21 ;;AGARNISH-COM3;COMMERCIAL GARNISHMENT-3;ACSB;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;764
- +22 ;;AGARNISH-COM4;COMMERCIAL GARNISHMENT-4;ACSB;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;765
