- 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 Mar 13, 2025@21:30:41 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