1 | PRSDEU12 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 12 LAYOUT ;6/1/93 15:32
|
---|
2 | ;;4.0;PAID;;Sep 21, 1995
|
---|
3 | F CC=1:1 S GRP=$T(@CC) Q:GRP="" S GRPVAL=$P(RCD,":",CC) I GRPVAL'="" S GNUM=$P(GRP,";",4),LTH=$P(GRP,";",5),PIC=$P(GRP,";",6) D:PIC=9 PIC9^PRSDUTIL F EE=1:1:GNUM S FLD=$T(@CC+EE) D EPTSET^PRSDSET
|
---|
4 | Q
|
---|
5 | RECORD ;;Record 12;7
|
---|
6 | ;;
|
---|
7 | 1 ;;Group 1;7;29;X
|
---|
8 | ;;TPDEPT;TSP VA DEPARTMENT CODE;1;2;TSP1;17;S:DATA="00" DATA="";;;411
|
---|
9 | ;;TPSTATUS;TSP STATUS;3;3;TSP1;15;;;;409
|
---|
10 | ;;TPSTADTE;TSP STATUS DATE;4;11;TSP1;16;D DATE^PRSDUTIL;;;410
|
---|
11 | ;;TPSCD;TSP SERVICE COMPU DATE;12;19;TSP1;12;D DATE^PRSDUTIL;;;406
|
---|
12 | ;;TPVEST;TSP VESTING;20;20;TSP1;18;;;;412
|
---|
13 | ;;TPSEPCDE;TSP SEPARATION CODE;21;21;TSP1;13;;;;407
|
---|
14 | ;;TPSEPDTE;TSP SEPARATION DATE;22;29;TSP1;14;D DATE^PRSDUTIL;;;408
|
---|
15 | ;;
|
---|
16 | 2 ;;Group 2;8;26;9
|
---|
17 | ;;TPERDED;TSP PCT RATE;1;3;TSP1;10;S L=3 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDD^PRSDUTIL;;;404
|
---|
18 | ;;TPEADED;TSP AMT EPPD;4;8;TSP1;2;D SIGN^PRSDUTIL S DATA=+DATA;;;396
|
---|
19 | ;;TPERDIST-G;TSP GSF DIST PCT;9;11;TSP2;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;424
|
---|
20 | ;;TPERDIST-F;TSP FIF DIST PCT;12;14;TSP2;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;419
|
---|
21 | ;;TPERDIST-C;TSP CSF DIST PCT;15;17;TSP2;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;414
|
---|
22 | ;;TPVABDIST-G;TSP GSF GOV CONTRIB DIST PCT;18;20;TSP2;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;426
|
---|
23 | ;;TPVABDIST-F;TSP FIF GOV CONTRIB DIST PCT;21;23;TSP2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;421
|
---|
24 | ;;TPVABDIST-C;TSP CSF GOV CONTRIB DIST PCT;24;26;TSP2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;416
|
---|
25 | ;;
|
---|
26 | 3 ;;Group 3;6;41;X
|
---|
27 | ;;TPELIGDTE;TSP ELIG;1;8;TSP1;5;D DATE^PRSDUTIL;;;399
|
---|
28 | ;;TPCYDIST-PR-APT;TSP DED PRIOR APPT YTD;9;15;TSP1;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;398
|
---|
29 | ;;TPLOAN-ACCT-NO;TSP LOAN ACCOUNT NUMBER;16;32;TSP1;6;;;;400
|
---|
30 | ;;TPLOAN-AMT;TSP LOAN DED EPPD;33;39;TSP1;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;402
|
---|
31 | ;;MZDMSAREA;VHA REGION NUMBER;40;40;1;41;;;;88
|
---|
32 | ;;MZNCSDIST;VCS AREA;41;41;VCS;14;;;;579
|
---|
33 | ;;
|
---|
34 | 4 ;;Group 4;1;23;X
|
---|
35 | ;;MXRESAD1;RESIDENCE ADDRESS LINE 1;1;23;ADD;7
|
---|
36 | ;;
|
---|
37 | 5 ;;Group 5;1;23;X
|
---|
38 | ;;MXRESAD1;RESIDENCE ADDRESS LINE 2;1;23;ADD;8
|
---|
39 | ;;
|
---|
40 | 6 ;;Group 6;1;16;X
|
---|
41 | ;;MXRESAD3;RESIDENCE ADDRESS LINE 3;1;16;ADD;9
|
---|
42 | ;;
|
---|
43 | 7 ;;Group 7;1;9;X
|
---|
44 | ;;MXRESZIP;RESIDENCE ADDRESS ZIP CODE;1;9;ADD;10;D ZIP^PRSDUTIL
|
---|