source: FOIAVistA/trunk/r/PAID-PRS/PRSDLD18.m@ 1068

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