PRSDLD13.m

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 ---PRSDLD13   3280     printed  Apr 09, 2024@21:30:46                                                                                                                                                                                                    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