Routine: PRSDEU12

PRSDEU12 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 12 LAYOUT ;6/1/93  15:32

 ;;4.0;PAID;;Sep 21, 1995

 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

RECORD ;;Record 12;7

;;

1 ;;Group 1;7;29;X

 ;;TPDEPT;TSP VA DEPARTMENT CODE;1;2;TSP1;17;S:DATA="00" DATA="";;;411

 ;;TPSTATUS;TSP STATUS;3;3;TSP1;15;;;;409

 ;;TPSTADTE;TSP STATUS DATE;4;11;TSP1;16;D DATE^PRSDUTIL;;;410

 ;;TPSCD;TSP SERVICE COMPU DATE;12;19;TSP1;12;D DATE^PRSDUTIL;;;406

 ;;TPVEST;TSP VESTING;20;20;TSP1;18;;;;412

 ;;TPSEPCDE;TSP SEPARATION CODE;21;21;TSP1;13;;;;407

 ;;TPSEPDTE;TSP SEPARATION DATE;22;29;TSP1;14;D DATE^PRSDUTIL;;;408

;;

2 ;;Group 2;8;26;9

 ;;TPERDED;TSP PCT RATE;1;3;TSP1;10;S L=3 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDD^PRSDUTIL;;;404

 ;;TPEADED;TSP AMT EPPD;4;8;TSP1;2;D SIGN^PRSDUTIL S DATA=+DATA;;;396

 ;;TPERDIST-G;TSP GSF DIST PCT;9;11;TSP2;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;424

 ;;TPERDIST-F;TSP FIF DIST PCT;12;14;TSP2;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;419

 ;;TPERDIST-C;TSP CSF DIST PCT;15;17;TSP2;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;414

 ;;TPVABDIST-G;TSP GSF GOV CONTRIB DIST PCT;18;20;TSP2;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;426

 ;;TPVABDIST-F;TSP FIF GOV CONTRIB DIST PCT;21;23;TSP2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;421

 ;;TPVABDIST-C;TSP CSF GOV CONTRIB DIST PCT;24;26;TSP2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;416

;;

3 ;;Group 3;6;41;X

 ;;TPELIGDTE;TSP ELIG;1;8;TSP1;5;D DATE^PRSDUTIL;;;399

 ;;TPCYDIST-PR-APT;TSP DED PRIOR APPT YTD;9;15;TSP1;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;398

 ;;TPLOAN-ACCT-NO;TSP LOAN ACCOUNT NUMBER;16;32;TSP1;6;;;;400

 ;;TPLOAN-AMT;TSP LOAN DED EPPD;33;39;TSP1;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;402

 ;;MZDMSAREA;VHA REGION NUMBER;40;40;1;41;;;;88

 ;;MZNCSDIST;VCS AREA;41;41;VCS;14;;;;579

;;

4 ;;Group 4;1;23;X

 ;;MXRESAD1;RESIDENCE ADDRESS LINE 1;1;23;ADD;7

;;

5 ;;Group 5;1;23;X

 ;;MXRESAD1;RESIDENCE ADDRESS LINE 2;1;23;ADD;8

;;

6 ;;Group 6;1;16;X

 ;;MXRESAD3;RESIDENCE ADDRESS LINE 3;1;16;ADD;9

;;

7 ;;Group 7;1;9;X

 ;;MXRESZIP;RESIDENCE ADDRESS ZIP CODE;1;9;ADD;10;D ZIP^PRSDUTIL

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDEU12   2191     printed  Mar 13, 2025@21:30:24                                                                                                                                                                                                    Page 2

PRSDEU12  ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 12 LAYOUT ;6/1/93  15:32

 +1       ;;4.0;PAID;;Sep 21, 1995

 +2        FOR CC=1:1

               SET GRP=$TEXT(@CC)

               if GRP=""

                   QUIT

               SET GRPVAL=$PIECE(RCD,":",CC)

               IF GRPVAL'=""

                   SET GNUM=$PIECE(GRP,";",4)

                   SET LTH=$PIECE(GRP,";",5)

                   SET PIC=$PIECE(GRP,";",6)

                   if PIC=9

                       DO PIC9^PRSDUTIL

                   FOR EE=1:1:GNUM

                       SET FLD=$TEXT(@CC+EE)

                       DO EPTSET^PRSDSET

 +3        QUIT

RECORD    ;;Record 12;7

 +1       ;;

1         ;;Group 1;7;29;X

 +1       ;;TPDEPT;TSP VA DEPARTMENT CODE;1;2;TSP1;17;S:DATA="00" DATA="";;;411

 +2       ;;TPSTATUS;TSP STATUS;3;3;TSP1;15;;;;409

 +3       ;;TPSTADTE;TSP STATUS DATE;4;11;TSP1;16;D DATE^PRSDUTIL;;;410

 +4       ;;TPSCD;TSP SERVICE COMPU DATE;12;19;TSP1;12;D DATE^PRSDUTIL;;;406

 +5       ;;TPVEST;TSP VESTING;20;20;TSP1;18;;;;412

 +6       ;;TPSEPCDE;TSP SEPARATION CODE;21;21;TSP1;13;;;;407

 +7       ;;TPSEPDTE;TSP SEPARATION DATE;22;29;TSP1;14;D DATE^PRSDUTIL;;;408

 +8       ;;

2         ;;Group 2;8;26;9

 +1       ;;TPERDED;TSP PCT RATE;1;3;TSP1;10;S L=3 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDD^PRSDUTIL;;;404

 +2       ;;TPEADED;TSP AMT EPPD;4;8;TSP1;2;D SIGN^PRSDUTIL S DATA=+DATA;;;396

 +3       ;;TPERDIST-G;TSP GSF DIST PCT;9;11;TSP2;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;424

 +4       ;;TPERDIST-F;TSP FIF DIST PCT;12;14;TSP2;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;419

 +5       ;;TPERDIST-C;TSP CSF DIST PCT;15;17;TSP2;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;414

 +6       ;;TPVABDIST-G;TSP GSF GOV CONTRIB DIST PCT;18;20;TSP2;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;426

 +7       ;;TPVABDIST-F;TSP FIF GOV CONTRIB DIST PCT;21;23;TSP2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;421

 +8       ;;TPVABDIST-C;TSP CSF GOV CONTRIB DIST PCT;24;26;TSP2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;416

 +9       ;;

3         ;;Group 3;6;41;X

 +1       ;;TPELIGDTE;TSP ELIG;1;8;TSP1;5;D DATE^PRSDUTIL;;;399

 +2       ;;TPCYDIST-PR-APT;TSP DED PRIOR APPT YTD;9;15;TSP1;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;398

 +3       ;;TPLOAN-ACCT-NO;TSP LOAN ACCOUNT NUMBER;16;32;TSP1;6;;;;400

 +4       ;;TPLOAN-AMT;TSP LOAN DED EPPD;33;39;TSP1;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;402

 +5       ;;MZDMSAREA;VHA REGION NUMBER;40;40;1;41;;;;88

 +6       ;;MZNCSDIST;VCS AREA;41;41;VCS;14;;;;579

 +7       ;;

4         ;;Group 4;1;23;X

 +1       ;;MXRESAD1;RESIDENCE ADDRESS LINE 1;1;23;ADD;7

 +2       ;;

5         ;;Group 5;1;23;X

 +1       ;;MXRESAD1;RESIDENCE ADDRESS LINE 2;1;23;ADD;8

 +2       ;;

6         ;;Group 6;1;16;X

 +1       ;;MXRESAD3;RESIDENCE ADDRESS LINE 3;1;16;ADD;9

 +2       ;;

7         ;;Group 7;1;9;X

 +1       ;;MXRESZIP;RESIDENCE ADDRESS ZIP CODE;1;9;ADD;10;D ZIP^PRSDUTIL

PRSDEU12.m