PRSDPRIN.m

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