source: FOIAVistA/tag/r/PAID-PRS/PRSDPRIN.m@ 1185

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