PRSDLD13 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 13 LAYOUT ;7/8/93 15:52
;;4.0;PAID;;Sep 21, 1995
F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
Q
RECORD ;;Record 13;42
;;MKB2ZIP2;SAVINGS BOND-2 ZIP CODE;BOND2;14;D ZIP^PRSDUTIL;;;;;371
;;MLLDRSHP;LEADERSHIP VA;1;15;;;;;;62
;;MMAGCYTO;AGENCY TRANSFERRED TO;1;4;;;;;;51
;;MPPMRSUN;PMRS IDENTIFIER;1;24;;;;;;71
;;TPDEPT;TSP VA DEPARTMENT CODE;TSP1;17;S:DATA="00" DATA="";;;;;411
;;TPSTATUS;TSP STATUS;TSP1;15;;;;;;409
;;TPSTADTE;TSP STATUS DATE;TSP1;16;D DATE^PRSDUTIL;;;;;410
;;TPSCD;TSP SERVICE COMPU DATE;TSP1;12;D DATE^PRSDUTIL;;;;;406
;;TPVEST;TSP VESTING;TSP1;18;;;;;;412
;;TPSEPCDE;TSP SEPARATION CODE;TSP1;13;;;;;;407
;;TPSEPDTE;TSP SEPARATION DATE;TSP1;14;D DATE^PRSDUTIL;;;;;408
;;TPERDED;TSP PCT RATE;TSP1;10;S L=3 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;404
;;TPEADED;TSP AMT EPPD;TSP1;2;D SIGN^PRSDUTIL S DATA=+DATA;;;;;396
;;TPERDIST-G;TSP GSF DIST PCT;TSP2;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;424
;;TPERDIST-F;TSP FIF DIST PCT;TSP2;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;419
;;TPERDIST-C;TSP CSF DIST PCT;TSP2;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;414
;;TPVABDIST-G;TSP GSF GOV CONTRIB DIST PCT;TSP2;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;426
;;TPVABDIST-F;TSP FIF GOV CONTRIB DIST PCT;TSP2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;421
;;TPVABDIST-C;TSP CSF GOV CONTRIB DIST PCT;TSP2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;416
;;TPVA-1PER;TSP 1-PCT GOV CONTRIB YTD;TSP1;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;395
;;TPBASYTD;TSP BASE PAY AMT YTD;TSP1;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;397
;;TPELIGDTE;TSP ELIG;TSP1;5;D DATE^PRSDUTIL;;;;;399
;;TPCYDIST-PR-APT;TSP DED PRIOR APPT YTD;TSP1;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;398
;;TPLOAN-ACCT-NO;TSP LOAN ACCOUNT NUMBER;TSP1;6;;;;;;400
;;TPLOAN-AMT;TSP LOAN DED EPPD;TSP1;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;402
;;MPPDGEOLOC;GEOGRAPHIC LOCATION PAY;T38;37;D SIGN^PRSDUTIL;;;;;701
;;MPPDEXQUAL;EXCEPTIONAL QUALIFICATIONS;T38;38;D SIGN^PRSDUTIL;;;;;702
;;MPPDPOSRES;POSITION RESPONSIBILITY;T38;39;D SIGN^PRSDUTIL;;;;;703
;;MPPDSCARCE;SCARCE SPECIALTY PAY;T38;40;D SIGN^PRSDUTIL;;;;;704
;;MPPDPAYCAP;PHYSICIAN AND DENTIST PAY CAP;T38;41;D SIGN^PRSDUTIL;;;;;705
;;AGARNISH-TAX1;TAX GARNISHMENT-1;ACSB;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;706
;;AGARNISH-TAX2;TAX GARNISHMENT-2;ACSB;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;707
;;AGARNISH-COMMERCIAL1;COMMERCIAL GARNISHMENT-1;ACSB;17;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;708
;;AGARNISH-COMMERCIAL2;COMMERCIAL GARNISHMENT-2;ACSB;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;709
;;ASLCBCPPD;CARE/BEREAVE LEAVE USED CPPD;SICK;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;710
;;SLCBLYTD;CARE/BEREAVE LEAVE USED LYTD;SICK;10;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;711
;;ASLADCPPD;ADOPTION LEAVE USED CPPD;SICK;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;712
;;SLADLYTD;ADOPTION LEAVE USED LYTD;SICK;12;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;713
;;AOSLCPPD;OTHER SICK LEAVE USED CPPD;SICK;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;714
;;OSLLYTD;OTHER SICK LEAVE USED LYTD;SICK;14;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;715
;;ADLCPPD;DONOR LEAVE USED CPPD;SICK;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;716
;;DLLYTD;DONOR LEAVE USED LYTD;SICK;16;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;717
;;MXWIGDTE;WGI DUE DATE;0;51;D DATE^PRSDUTIL;;;;;600
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDLD13 3280 printed Dec 13, 2024@02:25:38 Page 2
PRSDLD13 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 13 LAYOUT ;7/8/93 15:52
+1 ;;4.0;PAID;;Sep 21, 1995
+2 FOR CC=1:1
SET FLD=$TEXT(RECORD+CC)
if FLD=""
QUIT
DO LDSET^PRSDSET
+3 QUIT
RECORD ;;Record 13;42
+1 ;;MKB2ZIP2;SAVINGS BOND-2 ZIP CODE;BOND2;14;D ZIP^PRSDUTIL;;;;;371
+2 ;;MLLDRSHP;LEADERSHIP VA;1;15;;;;;;62
+3 ;;MMAGCYTO;AGENCY TRANSFERRED TO;1;4;;;;;;51
+4 ;;MPPMRSUN;PMRS IDENTIFIER;1;24;;;;;;71
+5 ;;TPDEPT;TSP VA DEPARTMENT CODE;TSP1;17;S:DATA="00" DATA="";;;;;411
+6 ;;TPSTATUS;TSP STATUS;TSP1;15;;;;;;409
+7 ;;TPSTADTE;TSP STATUS DATE;TSP1;16;D DATE^PRSDUTIL;;;;;410
+8 ;;TPSCD;TSP SERVICE COMPU DATE;TSP1;12;D DATE^PRSDUTIL;;;;;406
+9 ;;TPVEST;TSP VESTING;TSP1;18;;;;;;412
+10 ;;TPSEPCDE;TSP SEPARATION CODE;TSP1;13;;;;;;407
+11 ;;TPSEPDTE;TSP SEPARATION DATE;TSP1;14;D DATE^PRSDUTIL;;;;;408
+12 ;;TPERDED;TSP PCT RATE;TSP1;10;S L=3 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;404
+13 ;;TPEADED;TSP AMT EPPD;TSP1;2;D SIGN^PRSDUTIL S DATA=+DATA;;;;;396
+14 ;;TPERDIST-G;TSP GSF DIST PCT;TSP2;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;424
+15 ;;TPERDIST-F;TSP FIF DIST PCT;TSP2;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;419
+16 ;;TPERDIST-C;TSP CSF DIST PCT;TSP2;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;414
+17 ;;TPVABDIST-G;TSP GSF GOV CONTRIB DIST PCT;TSP2;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;426
+18 ;;TPVABDIST-F;TSP FIF GOV CONTRIB DIST PCT;TSP2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;421
+19 ;;TPVABDIST-C;TSP CSF GOV CONTRIB DIST PCT;TSP2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;416
+20 ;;TPVA-1PER;TSP 1-PCT GOV CONTRIB YTD;TSP1;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;395
+21 ;;TPBASYTD;TSP BASE PAY AMT YTD;TSP1;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;397
+22 ;;TPELIGDTE;TSP ELIG;TSP1;5;D DATE^PRSDUTIL;;;;;399
+23 ;;TPCYDIST-PR-APT;TSP DED PRIOR APPT YTD;TSP1;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;398
+24 ;;TPLOAN-ACCT-NO;TSP LOAN ACCOUNT NUMBER;TSP1;6;;;;;;400
+25 ;;TPLOAN-AMT;TSP LOAN DED EPPD;TSP1;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;402
+26 ;;MPPDGEOLOC;GEOGRAPHIC LOCATION PAY;T38;37;D SIGN^PRSDUTIL;;;;;701
+27 ;;MPPDEXQUAL;EXCEPTIONAL QUALIFICATIONS;T38;38;D SIGN^PRSDUTIL;;;;;702
+28 ;;MPPDPOSRES;POSITION RESPONSIBILITY;T38;39;D SIGN^PRSDUTIL;;;;;703
+29 ;;MPPDSCARCE;SCARCE SPECIALTY PAY;T38;40;D SIGN^PRSDUTIL;;;;;704
+30 ;;MPPDPAYCAP;PHYSICIAN AND DENTIST PAY CAP;T38;41;D SIGN^PRSDUTIL;;;;;705
+31 ;;AGARNISH-TAX1;TAX GARNISHMENT-1;ACSB;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;706
+32 ;;AGARNISH-TAX2;TAX GARNISHMENT-2;ACSB;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;707
+33 ;;AGARNISH-COMMERCIAL1;COMMERCIAL GARNISHMENT-1;ACSB;17;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;708
+34 ;;AGARNISH-COMMERCIAL2;COMMERCIAL GARNISHMENT-2;ACSB;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;709
+35 ;;ASLCBCPPD;CARE/BEREAVE LEAVE USED CPPD;SICK;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;710
+36 ;;SLCBLYTD;CARE/BEREAVE LEAVE USED LYTD;SICK;10;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;711
+37 ;;ASLADCPPD;ADOPTION LEAVE USED CPPD;SICK;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;712
+38 ;;SLADLYTD;ADOPTION LEAVE USED LYTD;SICK;12;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;713
+39 ;;AOSLCPPD;OTHER SICK LEAVE USED CPPD;SICK;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;714
+40 ;;OSLLYTD;OTHER SICK LEAVE USED LYTD;SICK;14;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;715
+41 ;;ADLCPPD;DONOR LEAVE USED CPPD;SICK;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;716
+42 ;;DLLYTD;DONOR LEAVE USED LYTD;SICK;16;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;717
+43 ;;MXWIGDTE;WGI DUE DATE;0;51;D DATE^PRSDUTIL;;;;;600
