source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDLD18.m@ 623

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1PRSDLD18 ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 18 LAYOUT ;05/13/04
2 ;;4.0;PAID;**78,82,73**;Sep 21, 1995
3 F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
4 Q
5RECORD ;;Record 18;22
6 ;;SBONDS-ADDR-LINE1-3;SAVINGS BOND-3 ADD LINE-1;BOND3;1;;;;;;720
7 ;;SBONDS-ADDR-LINE2-3;SAVINGS BOND-3 ADD LINE-2;BOND3;2;;;;;;721
8 ;;SBONDS-ADDR-LINE3-3;SAVINGS BOND-3 ADD LINE-3;BOND3;3;;;;;;722
9 ;;SBONDS-COST-3;SAVINGS BOND-3 BALANCE;BOND3;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;723
10 ;;SBONDS-BENE-CODE-3;SAVINGS BOND-3 BENE CODE;BOND3;5;;;;;;724
11 ;;SBONDS-COOWNER-3;SAVINGS BOND-3 CO-OWNER;BOND3;6;;;;;;725
12 ;;SBONDS-COOWNER-SSN-3;SAVINGS BOND-3 CO-OWNER SSN;BOND3;7;;;;;;726
13 ;;SBONDS-DED-BAL-3;SAVINGS BOND-3 DED BALANCE;BOND3;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;727
14 ;;SBONDS-DED-PAY-PERIOD-3;SAVINGS BOND-3 DED EPPD;BOND3;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;728
15 ;;SBONDS-DENOM-3;SAVINGS BOND-3 DENOMINATION;BOND3;10;;;;;;729
16 ;;SBONDS-EFFT-DATE-3;SAVINGS BOND-3 EFFECTIVE DATE;BOND3;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;730
17 ;;SBONDS-OWNER-3;SAVINGS BOND-3 OWNER;BOND3;12;;;;;;731
18 ;;SBONDS-OWNER-SSN-3;SAVINGS BOND-3 OWNER SSN;BOND3;13;;;;;;732
19 ;;SBONDS-ZIP-CODE-3;SAVINGS BOND-3 ZIP CODE;BOND3;14;D ZIP^PRSDUTIL;;;;;733
20 ;;SBONDS-TYPE-3;SAVINGS BOND-3 BOND TYPE;BOND3;15;;;;;;734
21 ;;FLTCIP-IND;FLTCIP INDICATOR;FLTCIP;1;;;;;;750
22 ;;FLTCIP-CPPD;FLTCIP CPPD;FLTCIP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;751
23 ;;VCS-ALLOT-AMT;VCS ALLOTMENT AMT;VCS;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;586.1
24 ;;AGARNISH-TAX3;TAX GARNISHMENT-3;ACSB;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;762
25 ;;AGARNISH-TAX4;TAX GARNISHMENT-4;ACSB;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;763
26 ;;AGARNISH-COM3;COMMERCIAL GARNISHMENT-3;ACSB;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;764
27 ;;AGARNISH-COM4;COMMERCIAL GARNISHMENT-4;ACSB;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;765
Note: See TracBrowser for help on using the repository browser.