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 Dec 13, 2024@02:25:43 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
