source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDEU12.m@ 1710

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

initial load of WorldVistAEHR

File size: 2.1 KB
RevLine 
[613]1PRSDEU12 ;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
5RECORD ;;Record 12;7
6 ;;
71 ;;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 ;;
162 ;;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 ;;
263 ;;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 ;;
344 ;;Group 4;1;23;X
35 ;;MXRESAD1;RESIDENCE ADDRESS LINE 1;1;23;ADD;7
36 ;;
375 ;;Group 5;1;23;X
38 ;;MXRESAD1;RESIDENCE ADDRESS LINE 2;1;23;ADD;8
39 ;;
406 ;;Group 6;1;16;X
41 ;;MXRESAD3;RESIDENCE ADDRESS LINE 3;1;16;ADD;9
42 ;;
437 ;;Group 7;1;9;X
44 ;;MXRESZIP;RESIDENCE ADDRESS ZIP CODE;1;9;ADD;10;D ZIP^PRSDUTIL
Note: See TracBrowser for help on using the repository browser.