PRSDLD16.m

PRSDLD16 ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 16 LAYOUT ;05/13/04

 ;;4.0;PAID;**73**;Sep 21, 1995

 F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD=""  D LDSET^PRSDSET

 Q

RECORD ;;Record 16;34

 ;;AFICAGWG-D;OASDI TAX GROSS PAY CPPD;OASDI;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;293

 ;;AADDLI;FEGLI ADDNL DEDUCTION CPPD;FEGLI;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;223

 ;;AGARNAC;ACSB ACS AMT CPPD;ACSB;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;236

 ;;AGARNBNK;ACSB BANKRUPTCY AMT CPPD;ACSB;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;241

 ;;AVOLALLOT;VOLUNTARY ALLOTMENT AMT CPPD;VALLOT;2;D SIGN^PRSDUTIL S DATA=+DATA;;;;;436

 ;;ASAVAMT1;SAVINGS ALLOTMENT-1 AMT CPPD;SALLOT;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;340

 ;;ASAVAMT2;SAVINGS ALLOTMENT-2 AMT CPPD;SALLOT;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;342

 ;;ASES-AWARD;SES PERFORMANCE AWARD AMT CPPD;AWARDS;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;589

 ;;AMVTAX;MOVING EXPENSES CPPD;MISC;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;532

 ;;ACTAX;CITY TAX-1 AMT WITHHELD CPPD;CITY;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;188

 ;;AONCLHRS;ON CALL HRS CPPD;;;;;;;;553 - Moved to record 17

 ;;AONCLPAY;ON CALL AMT CPPD;;;;;;;;552 - Moved to record 17

 ;;ANPAL;NONPAY ANNUAL LEAVE USED CPPD;ANNUAL;9;D SIGN^PRSDUTIL S DATA=+DATA;;;;;468

 ;;AFLSAWK12B;FLSA OVERTIME WEEK CODE CPPD;MISC;2;;;;;;531

 ;;AENVIRON;ENVIRONMENTAL HAZARD HRS CPPD;PREMIUM;3;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;545

 ;;APDSPEC;SPECIAL SALARY ADJUSTMENT;T38;32;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;150

 ;;AANNU;REEMP ANNUITANT BASE PAY REDUC;PAY;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;538

 ;;AEIC;EARNED INCOME CREDIT AMT CPPD;MISC4;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;445

 ;;AVCCOST;VCS LEAVE COST ADJUSTMENT AMT;VCS;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;583

 ;;AVCSSALES;VCS SALE SUM PW CPPD;VCS;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;586

 ;;AVCSPW;VCS MINWAGE CD PW CPPD;VCS;20;;;;;;585

 ;;ATSPEMP-G;TSP GSF EMP DED CPPD;TSP2;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;423

 ;;ATSPEMP-F;TSP FIF EMP DED CPPD;TSP2;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;418

 ;;ATSPEMP-C;TSP CSF EMP DED CPPD;TSP2;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;413

 ;;ATSPVAB-G;TSP GSF GOV BASIC CONTRIB;TSP2;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;425

 ;;ATSPVAM-G;TSP GSF GOV MATCH CONTRIB;TSP2;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;427

 ;;ATSPVAB-F;TSP FIF GOV BASIC CONTRIB;TSP2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;420

 ;;ATSPVAM-F;TSP FIF GOV MATCH CONTRIB;TSP2;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;422

 ;;ATSPVAB-C;TSP CSF GOV BASIC CONTRIB;TSP2;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;415

 ;;ATSPVAM-C;TSP CSF GOV MATCH CONTRIB;TSP2;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;417

 ;;ATSPLOAN;TSP LOAN DED CPPD;TSP1;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;401

 ;;ATSPTXCD;TSP PRIOR TAX YEAR ADJ CODE;TSP1;11;;;;;;405

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

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

 ;;MXRESAD1;RESIDENCE ADDRESS LINE-1;ADD;7;;;;;;186.1

 ;;MXRESAD2;RESIDENCE ADDRESS LINE-2;ADD;8;;;;;;186.2

 ;;MXRESAD3;RESIDENCE ADDRESS LINE-3;ADD;9;;;;;;186.3

 ;;MXRESZIP;RESIDENCE ADDRESS ZIP CODE;ADD;10;D ZIP^PRSDUTIL;;;;;186.4

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDLD16   3027     printed  Apr 09, 2024@21:30:20                                                                                                                                                                                                    Page 2

PRSDLD16  ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 16 LAYOUT ;05/13/04

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

 +2        FOR CC=1:1

               SET FLD=$TEXT(RECORD+CC)

               if FLD=""

                   QUIT 

               DO LDSET^PRSDSET

 +3        QUIT 

RECORD    ;;Record 16;34

 +1       ;;AFICAGWG-D;OASDI TAX GROSS PAY CPPD;OASDI;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;293

 +2       ;;AADDLI;FEGLI ADDNL DEDUCTION CPPD;FEGLI;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;223

 +3       ;;AGARNAC;ACSB ACS AMT CPPD;ACSB;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;236

 +4       ;;AGARNBNK;ACSB BANKRUPTCY AMT CPPD;ACSB;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;241

 +5       ;;AVOLALLOT;VOLUNTARY ALLOTMENT AMT CPPD;VALLOT;2;D SIGN^PRSDUTIL S DATA=+DATA;;;;;436

 +6       ;;ASAVAMT1;SAVINGS ALLOTMENT-1 AMT CPPD;SALLOT;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;340

 +7       ;;ASAVAMT2;SAVINGS ALLOTMENT-2 AMT CPPD;SALLOT;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;342

 +8       ;;ASES-AWARD;SES PERFORMANCE AWARD AMT CPPD;AWARDS;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;589

 +9       ;;AMVTAX;MOVING EXPENSES CPPD;MISC;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;532

 +10      ;;ACTAX;CITY TAX-1 AMT WITHHELD CPPD;CITY;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;188

 +11      ;;AONCLHRS;ON CALL HRS CPPD;;;;;;;;553 - Moved to record 17

 +12      ;;AONCLPAY;ON CALL AMT CPPD;;;;;;;;552 - Moved to record 17

 +13      ;;ANPAL;NONPAY ANNUAL LEAVE USED CPPD;ANNUAL;9;D SIGN^PRSDUTIL S DATA=+DATA;;;;;468

 +14      ;;AFLSAWK12B;FLSA OVERTIME WEEK CODE CPPD;MISC;2;;;;;;531

 +15      ;;AENVIRON;ENVIRONMENTAL HAZARD HRS CPPD;PREMIUM;3;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;545

 +16      ;;APDSPEC;SPECIAL SALARY ADJUSTMENT;T38;32;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;150

 +17      ;;AANNU;REEMP ANNUITANT BASE PAY REDUC;PAY;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;538

 +18      ;;AEIC;EARNED INCOME CREDIT AMT CPPD;MISC4;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;445

 +19      ;;AVCCOST;VCS LEAVE COST ADJUSTMENT AMT;VCS;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;583

 +20      ;;AVCSSALES;VCS SALE SUM PW CPPD;VCS;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;586

 +21      ;;AVCSPW;VCS MINWAGE CD PW CPPD;VCS;20;;;;;;585

 +22      ;;ATSPEMP-G;TSP GSF EMP DED CPPD;TSP2;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;423

 +23      ;;ATSPEMP-F;TSP FIF EMP DED CPPD;TSP2;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;418

 +24      ;;ATSPEMP-C;TSP CSF EMP DED CPPD;TSP2;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;413

 +25      ;;ATSPVAB-G;TSP GSF GOV BASIC CONTRIB;TSP2;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;425

 +26      ;;ATSPVAM-G;TSP GSF GOV MATCH CONTRIB;TSP2;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;427

 +27      ;;ATSPVAB-F;TSP FIF GOV BASIC CONTRIB;TSP2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;420

 +28      ;;ATSPVAM-F;TSP FIF GOV MATCH CONTRIB;TSP2;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;422

 +29      ;;ATSPVAB-C;TSP CSF GOV BASIC CONTRIB;TSP2;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;415

 +30      ;;ATSPVAM-C;TSP CSF GOV MATCH CONTRIB;TSP2;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;417

 +31      ;;ATSPLOAN;TSP LOAN DED CPPD;TSP1;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;401

 +32      ;;ATSPTXCD;TSP PRIOR TAX YEAR ADJ CODE;TSP1;11;;;;;;405

 +33      ;;MZDMSAREA;VHA REGION NUMBER;1;41;;;;;;88

 +34      ;;MZNCSDIST;VCS AREA;VCS;14;;;;;;579

 +35      ;;MXRESAD1;RESIDENCE ADDRESS LINE-1;ADD;7;;;;;;186.1

 +36      ;;MXRESAD2;RESIDENCE ADDRESS LINE-2;ADD;8;;;;;;186.2

 +37      ;;MXRESAD3;RESIDENCE ADDRESS LINE-3;ADD;9;;;;;;186.3

 +38      ;;MXRESZIP;RESIDENCE ADDRESS ZIP CODE;ADD;10;D ZIP^PRSDUTIL;;;;;186.4