PRSDPRIN ;HISC/MGD-INITIALIZE PAID EMPLOYEE ACCOUNTING FIELDS ;11/19/2003
;;4.0;PAID;**2,34,82,86**;Sep 21, 1995
F CC=1:1 S FLD=$T(TABLE+CC) Q:FLD="" S NODE=$P(FLD,";",4),PIECE=$P(FLD,";",5) S:$D(^PRSPC(IEN,NODE)) $P(^PRSPC(IEN,NODE),U,PIECE)=""
S ^PRSPC(IEN,"PREMIUM1")=""
Q
TABLE ;;
;;CITY TAX-2 AMT WITHHELD CPPD;CITY;15
;;CFC DEDUCTION CPPD;CFC;3
;;UNION DUES-1 DEDUCTION CPPD;UNION;4
;;UNION DUES-2 DEDUCTION CPPD;UNION;6
;;BASE PAY CPPD;PAY;4
;;GROSS PAY CPPD;PAY;7
;;CSRS REEMP ANN DEDUCTION CPPD;RETIRE;8
;;NET PAY CPPD;PAY;8
;;FEDERAL TAX AMT WITHHELD CPPD;FED;5
;;RET VA SHARE CPPD;RETIRE;10
;;OASDI TAX VA SHARE CPPD;OASDI;7
;;SAVINGS BOND DED SUM CPPD;BOND1;1
;;COMPTIME/CREDIT HRS USED CPPD;COMP;18
;;STATE TAX-1 AMT WITHHELD CPPD;STATE;5
;;FEGLI BASIC DEDUCTION CPPD;FEGLI;3
;;FEGLI VA SHARE CPPD;FEGLI;7
;;FEGLI FAMILY DEDUCTION CPPD;FEGLI;5
;;MEDICARE AMT WITHHELD CPPD;MEDICARE;1
;;MEDICARE GROSS PAY CPPD;MEDICARE;4
;;FEHB DEDUCTION CPPD;FEHB;1
;;FEHB VA SHARE CPPD;FEHB;6
;;SEVERANCE PAY AMT CPPD;MISC4;18
;;NIGHT DIFFERENTIAL AMT CPPD;PREMIUM;7
;;HOLIDAY AMT CPPD;PREMIUM;4
;;STANDBY AMT CPPD;PREMIUM;17
;;UNIFORM ALLOWANCE AMT CPPD;UNIFORM;1
;;QSGP QUARTERS DEDUCTION CPPD;QSGP;8
;;QSGP SUBSIST DEDUCTION CPPD;QSGP;10
;;QSGP GARAGE DEDUCTION CPPD;QSGP;1
;;SATURDAY AMT CPPD;PREMIUM;16
;;SUNDAY AMT CPPD;PREMIUM;18
;;STATE TAX-2 AMT WITHHELD CPPD;STATE;16
;;COLA AMT CPPD;COLA;1
;;POST DIFFERENTIAL AMT CPPD;PREMIUM;15
;;INCENTIVE AWARD;AWARDS;1
;;PERFORMANCE AWARD;AWARDS;4
;;DEBT REFUND ACCT 36X6875 CPPD;OTHER;4
;;NET PAY OUT-OF-SYSTEM AMT CPPD;PAY;9
;;DEBT DEPOSIT ACCT 36X6875 CPPD;OTHER;2
;;QSGP NON-HSKP DEDUCTION CPPD;QSGP;3
;;FEGLI STANDARD DEDUCTION CPPD;FEGLI;6
;;MSD DEDUCTION CPPD;MSD2;4
;;OASDI TAX AMT WITHHELD CPPD;OASDI;1
;;RET DEDUCTION CPPD;RETIRE;9
;;OVERTIME AMT CPPD;PREMIUM;12
;;AUO AMT CPPD;PREMIUM;1
;;ANNUAL LEAVE USED CPPD;ANNUAL;6
;;TOTAL SICK LEAVE USED CPPD;SICK;6
;;NIGHT DIFFERENTIAL HRS CPPD;PREMIUM;8
;;OVERTIME HRS CPPD;PREMIUM;13
;;HOLIDAY HRS CPPD;PREMIUM;5
;;LWOP HOURS/DAYS CPPD;LWOP;5
;;LWOP HOURS CPPD;LWOP;11
;;NONPAY HOURS/DAYS CPPD;1;19
;;NONPAY HOURS CPPD;1;43
;;UNSCHEDULED HOURS;MISC;1
;;REGULAR HOURS AT OT RATE CPPD;PREMIUM;20
;;SUNDAY HRS CPPD;PREMIUM;19
;;FEGLI AGE CODE CPPD;FEGLI;2
;;DEBT REFUND ACCT 36F3875 CPPD;OTHER;3
;;DEBT DEPOSIT ACCT 36F3875 CPPD;OTHER;1
;;QSGP PARKING DEDUCTION CPPD;QSGP;4
;;OASDI TAX GROSS PAY CPPD;OASDI;4
;;FEGLI ADDNL DEDUCTION CPPD;FEGLI;1
;;ACSB ACS AMT CPPD;ACSB;1
;;ACSB BANKRUPTCY AMT CPPD;ACSB;6
;;VOLUNTARY ALLOTMENT AMT CPPD;VALLOT;2
;;SAVINGS ALLOTMENT-1 AMT CPPD;SALLOT;2
;;SAVINGS ALLOTMENT-2 AMT CPPD;SALLOT;4
;;SES PERFORMANCE AWARD AMT CPPD;AWARDS;3
;;CITY TAX-1 AMT WITHHELD CPPD;CITY;2
;;ON CALL HRS CPPD;PREMIUM;11
;;ON CALL AMT CPPD;PREMIUM;10
;;NONPAY ANNUAL LEAVE USED CPPD;ANNUAL;9
;;FLSA OVERTIME WEEK CODE CPPD;MISC;2
;;MOVING EXPENSES CPPD;MISC;3
;;ENVIRONMENTAL HAZARD HRS CPPD;PREMIUM;3
;;T38 SPECIAL SALARY ADJ CPPD;T38;32
;;REEMP ANN BASE PAY REDUCT CPPD;PAY;5
;;EARNED INCOME CREDIT AMT CPPD;MISC4;6
;;VCS LEAVE COST ADJUSTMENT AMT;VCS;18
;;VCS SALE SUM PW CPPD;VCS;21
;;VCS MINWAGE CD PW CPPD;VCS;20
;;TSP GSF EMP DED CPPD;TSP2;11
;;TSP FIF EMP DED CPPD;TSP2;6
;;TSP CSF EMP DED CPPD;TSP2;1
;;TSP GSF GOV BASIC CONTRIB;TSP2;13
;;TSP GSF GOV MATCH CONTRIB;TSP2;15
;;TSP FIF GOV BASIC CONTRIB;TSP2;8
;;TSP FIF GOV MATCH CONTRIB;TSP2;10
;;TSP CSF GOV BASIC CONTRIB;TSP2;3
;;TSP CSF GOV MATCH CONTRIB;TSP2;5
;;TSP LOAN DED CPPD;TSP1;7
;;GROSS PAY PLUS BENEFITS CPPD;PAY;10
;;ANNUAL LEAVE USED CPPD (HOURS);ANNUAL;14
;;TOTAL SICK LEAVE HRS USED CPPD;SICK;8
;;GAP AMT CPPD;MISC;20
;;RELOCATION BONUS;MISC;17
;;RECRUITMENT BONUS;MISC;18
;;RETENTION ALLOWANCE;MISC;16
;;HAZARD PAY DIFF;MISC;19
;;STAFFING DIFF;MISC;14
;;SUPERVISORY DIFF;MISC;15
;;LOCALITY PAY CPPD;MISC;21
;;TAX GARNISHMENT-1;ACSB;15
;;TAX GARNISHMENT-2;ACSB;16
;;COMMERCIAL GARNISHMENT-1;ACSB;17
;;COMMERCIAL GARNISHMENT-S;ACSB;18
;;CARE/BEREAVE LEAVE USED CPPD;SICK;9
;;ADOPTION LEAVE USED CPPD;SICK;11
;;OTHER SICK LEAVE USED CPPD;SICK;13
;;DONOR LEAVE USED CPPD;SICK;15
;;SPECIAL PAY RATE DIFFERENCE;1;35
;;FLTCIP CPPD;FLTCIP;2
;;HLTH CARE FLEX SPEND ACCT CPPD;FSA;2
;;DPNT CARE FLEX SPEND ACCT CPPD;FSA;4
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDPRIN 4446 printed Nov 22, 2024@17:35:58 Page 2
PRSDPRIN ;HISC/MGD-INITIALIZE PAID EMPLOYEE ACCOUNTING FIELDS ;11/19/2003
+1 ;;4.0;PAID;**2,34,82,86**;Sep 21, 1995
+2 FOR CC=1:1
SET FLD=$TEXT(TABLE+CC)
if FLD=""
QUIT
SET NODE=$PIECE(FLD,";",4)
SET PIECE=$PIECE(FLD,";",5)
if $DATA(^PRSPC(IEN,NODE))
SET $PIECE(^PRSPC(IEN,NODE),U,PIECE)=""
+3 SET ^PRSPC(IEN,"PREMIUM1")=""
+4 QUIT
TABLE ;;
+1 ;;CITY TAX-2 AMT WITHHELD CPPD;CITY;15
+2 ;;CFC DEDUCTION CPPD;CFC;3
+3 ;;UNION DUES-1 DEDUCTION CPPD;UNION;4
+4 ;;UNION DUES-2 DEDUCTION CPPD;UNION;6
+5 ;;BASE PAY CPPD;PAY;4
+6 ;;GROSS PAY CPPD;PAY;7
+7 ;;CSRS REEMP ANN DEDUCTION CPPD;RETIRE;8
+8 ;;NET PAY CPPD;PAY;8
+9 ;;FEDERAL TAX AMT WITHHELD CPPD;FED;5
+10 ;;RET VA SHARE CPPD;RETIRE;10
+11 ;;OASDI TAX VA SHARE CPPD;OASDI;7
+12 ;;SAVINGS BOND DED SUM CPPD;BOND1;1
+13 ;;COMPTIME/CREDIT HRS USED CPPD;COMP;18
+14 ;;STATE TAX-1 AMT WITHHELD CPPD;STATE;5
+15 ;;FEGLI BASIC DEDUCTION CPPD;FEGLI;3
+16 ;;FEGLI VA SHARE CPPD;FEGLI;7
+17 ;;FEGLI FAMILY DEDUCTION CPPD;FEGLI;5
+18 ;;MEDICARE AMT WITHHELD CPPD;MEDICARE;1
+19 ;;MEDICARE GROSS PAY CPPD;MEDICARE;4
+20 ;;FEHB DEDUCTION CPPD;FEHB;1
+21 ;;FEHB VA SHARE CPPD;FEHB;6
+22 ;;SEVERANCE PAY AMT CPPD;MISC4;18
+23 ;;NIGHT DIFFERENTIAL AMT CPPD;PREMIUM;7
+24 ;;HOLIDAY AMT CPPD;PREMIUM;4
+25 ;;STANDBY AMT CPPD;PREMIUM;17
+26 ;;UNIFORM ALLOWANCE AMT CPPD;UNIFORM;1
+27 ;;QSGP QUARTERS DEDUCTION CPPD;QSGP;8
+28 ;;QSGP SUBSIST DEDUCTION CPPD;QSGP;10
+29 ;;QSGP GARAGE DEDUCTION CPPD;QSGP;1
+30 ;;SATURDAY AMT CPPD;PREMIUM;16
+31 ;;SUNDAY AMT CPPD;PREMIUM;18
+32 ;;STATE TAX-2 AMT WITHHELD CPPD;STATE;16
+33 ;;COLA AMT CPPD;COLA;1
+34 ;;POST DIFFERENTIAL AMT CPPD;PREMIUM;15
+35 ;;INCENTIVE AWARD;AWARDS;1
+36 ;;PERFORMANCE AWARD;AWARDS;4
+37 ;;DEBT REFUND ACCT 36X6875 CPPD;OTHER;4
+38 ;;NET PAY OUT-OF-SYSTEM AMT CPPD;PAY;9
+39 ;;DEBT DEPOSIT ACCT 36X6875 CPPD;OTHER;2
+40 ;;QSGP NON-HSKP DEDUCTION CPPD;QSGP;3
+41 ;;FEGLI STANDARD DEDUCTION CPPD;FEGLI;6
+42 ;;MSD DEDUCTION CPPD;MSD2;4
+43 ;;OASDI TAX AMT WITHHELD CPPD;OASDI;1
+44 ;;RET DEDUCTION CPPD;RETIRE;9
+45 ;;OVERTIME AMT CPPD;PREMIUM;12
+46 ;;AUO AMT CPPD;PREMIUM;1
+47 ;;ANNUAL LEAVE USED CPPD;ANNUAL;6
+48 ;;TOTAL SICK LEAVE USED CPPD;SICK;6
+49 ;;NIGHT DIFFERENTIAL HRS CPPD;PREMIUM;8
+50 ;;OVERTIME HRS CPPD;PREMIUM;13
+51 ;;HOLIDAY HRS CPPD;PREMIUM;5
+52 ;;LWOP HOURS/DAYS CPPD;LWOP;5
+53 ;;LWOP HOURS CPPD;LWOP;11
+54 ;;NONPAY HOURS/DAYS CPPD;1;19
+55 ;;NONPAY HOURS CPPD;1;43
+56 ;;UNSCHEDULED HOURS;MISC;1
+57 ;;REGULAR HOURS AT OT RATE CPPD;PREMIUM;20
+58 ;;SUNDAY HRS CPPD;PREMIUM;19
+59 ;;FEGLI AGE CODE CPPD;FEGLI;2
+60 ;;DEBT REFUND ACCT 36F3875 CPPD;OTHER;3
+61 ;;DEBT DEPOSIT ACCT 36F3875 CPPD;OTHER;1
+62 ;;QSGP PARKING DEDUCTION CPPD;QSGP;4
+63 ;;OASDI TAX GROSS PAY CPPD;OASDI;4
+64 ;;FEGLI ADDNL DEDUCTION CPPD;FEGLI;1
+65 ;;ACSB ACS AMT CPPD;ACSB;1
+66 ;;ACSB BANKRUPTCY AMT CPPD;ACSB;6
+67 ;;VOLUNTARY ALLOTMENT AMT CPPD;VALLOT;2
+68 ;;SAVINGS ALLOTMENT-1 AMT CPPD;SALLOT;2
+69 ;;SAVINGS ALLOTMENT-2 AMT CPPD;SALLOT;4
+70 ;;SES PERFORMANCE AWARD AMT CPPD;AWARDS;3
+71 ;;CITY TAX-1 AMT WITHHELD CPPD;CITY;2
+72 ;;ON CALL HRS CPPD;PREMIUM;11
+73 ;;ON CALL AMT CPPD;PREMIUM;10
+74 ;;NONPAY ANNUAL LEAVE USED CPPD;ANNUAL;9
+75 ;;FLSA OVERTIME WEEK CODE CPPD;MISC;2
+76 ;;MOVING EXPENSES CPPD;MISC;3
+77 ;;ENVIRONMENTAL HAZARD HRS CPPD;PREMIUM;3
+78 ;;T38 SPECIAL SALARY ADJ CPPD;T38;32
+79 ;;REEMP ANN BASE PAY REDUCT CPPD;PAY;5
+80 ;;EARNED INCOME CREDIT AMT CPPD;MISC4;6
+81 ;;VCS LEAVE COST ADJUSTMENT AMT;VCS;18
+82 ;;VCS SALE SUM PW CPPD;VCS;21
+83 ;;VCS MINWAGE CD PW CPPD;VCS;20
+84 ;;TSP GSF EMP DED CPPD;TSP2;11
+85 ;;TSP FIF EMP DED CPPD;TSP2;6
+86 ;;TSP CSF EMP DED CPPD;TSP2;1
+87 ;;TSP GSF GOV BASIC CONTRIB;TSP2;13
+88 ;;TSP GSF GOV MATCH CONTRIB;TSP2;15
+89 ;;TSP FIF GOV BASIC CONTRIB;TSP2;8
+90 ;;TSP FIF GOV MATCH CONTRIB;TSP2;10
+91 ;;TSP CSF GOV BASIC CONTRIB;TSP2;3
+92 ;;TSP CSF GOV MATCH CONTRIB;TSP2;5
+93 ;;TSP LOAN DED CPPD;TSP1;7
+94 ;;GROSS PAY PLUS BENEFITS CPPD;PAY;10
+95 ;;ANNUAL LEAVE USED CPPD (HOURS);ANNUAL;14
+96 ;;TOTAL SICK LEAVE HRS USED CPPD;SICK;8
+97 ;;GAP AMT CPPD;MISC;20
+98 ;;RELOCATION BONUS;MISC;17
+99 ;;RECRUITMENT BONUS;MISC;18
+100 ;;RETENTION ALLOWANCE;MISC;16
+101 ;;HAZARD PAY DIFF;MISC;19
+102 ;;STAFFING DIFF;MISC;14
+103 ;;SUPERVISORY DIFF;MISC;15
+104 ;;LOCALITY PAY CPPD;MISC;21
+105 ;;TAX GARNISHMENT-1;ACSB;15
+106 ;;TAX GARNISHMENT-2;ACSB;16
+107 ;;COMMERCIAL GARNISHMENT-1;ACSB;17
+108 ;;COMMERCIAL GARNISHMENT-S;ACSB;18
+109 ;;CARE/BEREAVE LEAVE USED CPPD;SICK;9
+110 ;;ADOPTION LEAVE USED CPPD;SICK;11
+111 ;;OTHER SICK LEAVE USED CPPD;SICK;13
+112 ;;DONOR LEAVE USED CPPD;SICK;15
+113 ;;SPECIAL PAY RATE DIFFERENCE;1;35
+114 ;;FLTCIP CPPD;FLTCIP;2
+115 ;;HLTH CARE FLEX SPEND ACCT CPPD;FSA;2
+116 ;;DPNT CARE FLEX SPEND ACCT CPPD;FSA;4
