PRSDLD15.m

PRSDLD15 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 15 LAYOUT ;7/9/93  11:23

 ;;4.0;PAID;;Sep 21, 1995

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

 Q

RECORD ;;Record 15;35

 ;;ASATPAY;SATURDAY AMT CPPD;PREMIUM;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;558

 ;;ASUNPAY;SUNDAY AMT CPPD;PREMIUM;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;560

 ;;ASECTAX;STATE TAX-2 AMT WITHHELD CPPD;STATE;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;387

 ;;ALIVING;COLA AMT CPPD;COLA;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;527

 ;;APOSTDIF;POST DIFF AMT CPPD;PREMIUM;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;557

 ;;ALUMPSUMHD;ANNUAL LEAVE LUMP SUM HRS/DAYS;LUMPSUM;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;526

 ;;ALMPSUM;ANNUAL LEAVE LUMP SUM AMT;LUMPSUM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;525

 ;;AAWARD;INCENTIVE AWARD;AWARDS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;587

 ;;ASTAPAY;DEBT REFUND ACCT 36X6875 CPPD;OTHER;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;303

 ;;ADPCPAY;NET PAY OUT-OF-SYSTEM AMT CPPD;PAY;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;542

 ;;AOTHER;DEBT DEPOSIT ACCT 36X6875 CPPD;OTHER;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;301

 ;;AQTRNOHSK;QUARTERS NON-HSKP DED CPPD;QSGP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;320

 ;;AOPTINS;FEGLI STANDARD DEDUCTION CPPD;FEGLI;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;228

 ;;AMILRET;MSD DEDUCTION CPPD;MSD2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;279

 ;;AFICAEMP;OASDI TAX AMT WITHHELD CPPD;OASDI;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;290

 ;;ARETIRE;RETIREMENT DED CPPD;RETIRE;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;337

 ;;AOTPAY;OVERTIME AMT CPPD;PREMIUM;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;554

 ;;AUOTPAY;AUO AMT CPPD;PREMIUM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;543

 ;;ASPSALRAT;SPECIAL PAY RATE DIFFERENCE;1;35;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;82

 ;;AANNUSED;ANNUAL LEAVE USED CPPD;ANNUAL;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;465

 ;;ASICKUSED;TOTAL SICK LEAVE USED CPPD;SICK;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;513

 ;;ANITETIME;NIGHT DIFF HRS CPPD;PREMIUM;8;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;550

 ;;AOVRTIME;OVERTIME HRS CPPD;PREMIUM;13;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;555

 ;;AHOLTIME;HOLIDAY HOURS;PREMIUM;5;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;547

 ;;ALWOPUSED;LWOP HOURS/DAYS CPPD;LWOP;5;D SIGN^PRSDUTIL,AHRS^PRSDUTIL,NPLWOP^PRSDUTIL;;;;;519

 ;;ANONPATIME;NONPAY HOURS/DAYS CPPD;1;19;D SIGN^PRSDUTIL,AHRS^PRSDUTIL,NPLWOP^PRSDUTIL;;;;;66

 ;;AREGTIME;UNSCHEDULED HOURS;MISC;1;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;530

 ;;ASPECOT;REG HOURS AT OT RATE;PREMIUM;20;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;562

 ;;ASUNTIME;SUNDAY HRS CPPD;PREMIUM;19;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;561

 ;;AINSGRP;FEGLI AGE CODE CPPD;FEGLI;2;D SIGN^PRSDUTIL;;;;;224

 ;;ASTA3875;DEBT REFUND ACCT 36F3875 CPPD;OTHER;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;302

 ;;AOTHER3875;DEBT DEPOSIT ACCT 36F3875 CPPD;OTHER;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;300

 ;;APARKING;PARKING DEDUCTION CPPD;QSGP;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;321

 ;;ANEWSSN;NEW SSN;0;35;D SIGN^PRSDUTIL S:DATA="000000000" DATA="";;;;;34

 ;;APERFORM-AWARD;PERFORMANCE AWARD;AWARDS;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;587.1

 ;;AINCENT-AWARD;INCENTIVE AWARD;AWARDS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;587

 ;;ALOCAL-SALARY;LOCALITY PAY CPPD;MISC;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;83.2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDLD15   3181     printed  Apr 09, 2024@21:28:12                                                                                                                                                                                                    Page 2

PRSDLD15  ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 15 LAYOUT ;7/9/93  11:23

 +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 15;35

 +1       ;;ASATPAY;SATURDAY AMT CPPD;PREMIUM;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;558

 +2       ;;ASUNPAY;SUNDAY AMT CPPD;PREMIUM;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;560

 +3       ;;ASECTAX;STATE TAX-2 AMT WITHHELD CPPD;STATE;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;387

 +4       ;;ALIVING;COLA AMT CPPD;COLA;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;527

 +5       ;;APOSTDIF;POST DIFF AMT CPPD;PREMIUM;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;557

 +6       ;;ALUMPSUMHD;ANNUAL LEAVE LUMP SUM HRS/DAYS;LUMPSUM;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;526

 +7       ;;ALMPSUM;ANNUAL LEAVE LUMP SUM AMT;LUMPSUM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;525

 +8       ;;AAWARD;INCENTIVE AWARD;AWARDS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;587

 +9       ;;ASTAPAY;DEBT REFUND ACCT 36X6875 CPPD;OTHER;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;303

 +10      ;;ADPCPAY;NET PAY OUT-OF-SYSTEM AMT CPPD;PAY;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;542

 +11      ;;AOTHER;DEBT DEPOSIT ACCT 36X6875 CPPD;OTHER;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;301

 +12      ;;AQTRNOHSK;QUARTERS NON-HSKP DED CPPD;QSGP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;320

 +13      ;;AOPTINS;FEGLI STANDARD DEDUCTION CPPD;FEGLI;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;228

 +14      ;;AMILRET;MSD DEDUCTION CPPD;MSD2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;279

 +15      ;;AFICAEMP;OASDI TAX AMT WITHHELD CPPD;OASDI;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;290

 +16      ;;ARETIRE;RETIREMENT DED CPPD;RETIRE;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;337

 +17      ;;AOTPAY;OVERTIME AMT CPPD;PREMIUM;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;554

 +18      ;;AUOTPAY;AUO AMT CPPD;PREMIUM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;543

 +19      ;;ASPSALRAT;SPECIAL PAY RATE DIFFERENCE;1;35;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;82

 +20      ;;AANNUSED;ANNUAL LEAVE USED CPPD;ANNUAL;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;465

 +21      ;;ASICKUSED;TOTAL SICK LEAVE USED CPPD;SICK;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;513

 +22      ;;ANITETIME;NIGHT DIFF HRS CPPD;PREMIUM;8;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;550

 +23      ;;AOVRTIME;OVERTIME HRS CPPD;PREMIUM;13;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;555

 +24      ;;AHOLTIME;HOLIDAY HOURS;PREMIUM;5;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;547

 +25      ;;ALWOPUSED;LWOP HOURS/DAYS CPPD;LWOP;5;D SIGN^PRSDUTIL,AHRS^PRSDUTIL,NPLWOP^PRSDUTIL;;;;;519

 +26      ;;ANONPATIME;NONPAY HOURS/DAYS CPPD;1;19;D SIGN^PRSDUTIL,AHRS^PRSDUTIL,NPLWOP^PRSDUTIL;;;;;66

 +27      ;;AREGTIME;UNSCHEDULED HOURS;MISC;1;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;530

 +28      ;;ASPECOT;REG HOURS AT OT RATE;PREMIUM;20;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;562

 +29      ;;ASUNTIME;SUNDAY HRS CPPD;PREMIUM;19;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;;;;;561

 +30      ;;AINSGRP;FEGLI AGE CODE CPPD;FEGLI;2;D SIGN^PRSDUTIL;;;;;224

 +31      ;;ASTA3875;DEBT REFUND ACCT 36F3875 CPPD;OTHER;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;302

 +32      ;;AOTHER3875;DEBT DEPOSIT ACCT 36F3875 CPPD;OTHER;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;300

 +33      ;;APARKING;PARKING DEDUCTION CPPD;QSGP;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;321

 +34      ;;ANEWSSN;NEW SSN;0;35;D SIGN^PRSDUTIL S:DATA="000000000" DATA="";;;;;34

 +35      ;;APERFORM-AWARD;PERFORMANCE AWARD;AWARDS;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;587.1

 +36      ;;AINCENT-AWARD;INCENTIVE AWARD;AWARDS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;587

 +37      ;;ALOCAL-SALARY;LOCALITY PAY CPPD;MISC;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;83.2