PRSDEU07.m

PRSDEU07 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 7 LAYOUT ;08/13/01

 ;;4.0;PAID;**34,69**;Sep 21, 1995

 F CC=1:1 S GRP=$T(@CC) Q:GRP=""  S GRPVAL=$P(RCD,":",CC) I GRPVAL'="" S GNUM=$P(GRP,";",4),LTH=$P(GRP,";",5),PIC=$P(GRP,";",6) D:PIC=9 PIC9^PRSDUTIL F EE=1:1:GNUM S FLD=$T(@CC+EE) D EPTSET^PRSDSET

 Q

RECORD ;;Record 7;10

 ;;

1 ;;Group 1;2;7;X

 ;;MDOTFZC1;OTHER TAX FROZEN CODE-1;1;1;OTHER;13;;;;312

 ;;MDOTGSA1;OTHER TAX GSA CODE-1;2;7;OTHER;17;;;;316

 ;;

2 ;;Group 2;1;9;9

 ;;MDOTGSS1;OTHER TAX GROSS PAY YTD-1;1;9;OTHER;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;314

 ;;

3 ;;Group 3;2;7;X

 ;;MDOTFZC2;OTHER TAX FROZEN CODE-2;1;1;OTHER;14;;;;313

 ;;MDOTGSA2;OTHER TAX GSA CODE-2;2;7;OTHER;18;;;;317

 ;;

4 ;;Group 4;1;9;9

 ;;MDOTGSS2;OTHER TAX GROSS PAY YTD-2;1;9;OTHER;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;315

 ;;

5 ;;Group 5;2;12;9

 ;;MDFDAMEX;FTL EXEMPTED AMT EPPD;1;5;FED;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;221

 ;;MDFDBAL;FTL DEBT BALANCE;6;12;FED;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;220

 ;;

6 ;;Group 6;1;1;X

 ;;MDOPT-DEDUCTION-IND;OCC PRIV TAX DEDUCTION IND;1;1;OTHER;6;;;;305

 ;;

7 ;;Group 7;9;51;X

 ;;MEEXLWOP;EXTENDED LWOP IND;1;1;LWOP;1;;;;515

 ;;MELWOPCT;LWOP CONTROL UNITS LYTD;2;4;LWOP;4;D SIGN^PRSDUTIL S DATA=+DATA;;;518

 ;;MELWPAYR;LWOP WG/PW PYTD;5;9;LWOP;10;D SIGN^PRSDUTIL S DATA=+DATA;;;524

 ;;MELWOPYR;LWOP LYTD;10;16;LWOP;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;520

 ;;MELWPCAL;LWOP CCY;17;23;LWOP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;517

 ;;MELWPSTP;LWOP THIS STEP;24;30;LWOP;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;523

 ;;MELWPPRB;LWOP PROB PD;31;37;LWOP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;521

 ;;MELWPPRO;LWOP SINCE PROM;38;44;LWOP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;522

 ;;MEPTIHRS;PART TIME/INTERMIT HRS TOTAL;45;51;1;23;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;70

 ;;

8 ;;Group 8;12;48;X

 ;;MECRCALY;INTMT EMP DAYS WORKED YTD;1;5;MISC4;15;D SIGN^PRSDUTIL,D^PRSDUTIL;;;454

 ;;MECRISTP;INTMT EMP DAYS WORKED STEP;6;10;MISC4;14;D SIGN^PRSDUTIL,D^PRSDUTIL;;;453

 ;;MECRPRB;INTMT EMP DAYS WORKED PROB PD;11;15;MISC4;13;D SIGN^PRSDUTIL,D^PRSDUTIL;;;452

 ;;MEANNLVP;PAYABLE ANNUAL LEAVE;16;18;T38;19;D SIGN^PRSDUTIL S DATA=+DATA;;;137

 ;;MEANRYR1;RESTORED ANNUAL LEAVE YEAR-1;19;19;ANNUAL;12;;;;471

 ;;MEANRLV1;RESTORED ANNUAL LEAVE BAL-1;20;24;ANNUAL;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;469

 ;;MEANRYR2;RESTORED ANNUAL LEAVE YEAR-2;25;25;ANNUAL;13;;;;472

 ;;MEANRLV2;RESTORED ANNUAL LEAVE BAL-2;26;30;ANNUAL;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;470

 ;;MENPANNL;NON-PAYABLE ANNUAL LEAVE;31;33;T38;18;D SIGN^PRSDUTIL S DATA=+DATA;;;136

 ;;MEBPAYRT;BASE PAY AMT PRIOR TO RET COV;34;42;PAY;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;534

 ;;MEINDMIL;MILITARY LEAVE ELIGIBILITY IND;43;43;MILITARY;2;S:DATA=0 DATA="";;;507

 ;;MEMILLEV;MILITARY LEAVE BALANCE;44;48;MILITARY;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;506

 ;;

9 ;;Group 9;13;63;X

 ;;MFCNTLNO;ACSB CONTROL NUMBER-1;1;5;ACSB;9;;;;244

 ;;MFACIND;ACSB CODE-1;6;6;ACSB;7;;;;242

 ;;MFPERFAC;ACSB FED/STATE PCT FACTOR-1;7;11;ACSB;13;D SIGN^PRSDUTIL,DDDD^PRSDUTIL;;;248

 ;;MFCURDED;ACSB CURRENT ALLOTMENT-1;12;18;ACSB;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;246

 ;;MFBPBAL;ACSB BACK PAY BALANCE-1;19;25;ACSB;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;237

 ;;MFBPDED;ACSB BACK PAY DEDUCTION-1;26;30;ACSB;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;239

 ;;MFODCOD1;OTHER DEDUCTION CODE-1;31;33;OTHER;11;;;;310

 ;;MFODBID1;OTHER DEDUCTION BIWEEKLY AMT-1;34;38;OTHER;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;308

 ;;MFODBAL1;OTHER DEDUCTION BALANCE-1;39;45;OTHER;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;306

 ;;MFODCOD2;OTHER DEDUCTION CODE-2;46;48;OTHER;12;;;;311

 ;;MFODBID2;OTHER DEDUCTION BIWEEKLY AMT-2;49;53;OTHER;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;309

 ;;MFODBAL2;OTHER DEDUCTION BALANCE-2;54;60;OTHER;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;307

 ;;MFCOLAPC;COLA;61;63;COLA;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;529

10 ;;Group 10;4;16;X

 ;;MDSTAFFD;STAFFING DIFFERENTIAL PCT;1;5;MISC;10;D SIGN^PRSDUTIL,DDDD^PRSDUTIL;;;606

 ;;MDSUPDIF;SUPERVISORY DIFFERENTIAL;6;10;MISC;11;D SIGN^PRSDUTIL;;;607

 ;;MDRETALLOW;RETENTION ALLOWANCE PCT;11;15;MISC;12;D SIGN^PRSDUTIL,DDDD^PRSDUTIL;;;608

 ;;MDJOBSHR;JOB SHARE;16;16;MISC;13;;;;609

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDEU07   4131     printed  Apr 09, 2024@21:30:42                                                                                                                                                                                                    Page 2

PRSDEU07  ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 7 LAYOUT ;08/13/01

 +1       ;;4.0;PAID;**34,69**;Sep 21, 1995

 +2        FOR CC=1:1

               SET GRP=$TEXT(@CC)

               if GRP=""

                   QUIT 

               SET GRPVAL=$PIECE(RCD,":",CC)

               IF GRPVAL'=""

                   SET GNUM=$PIECE(GRP,";",4)

                   SET LTH=$PIECE(GRP,";",5)

                   SET PIC=$PIECE(GRP,";",6)

                   if PIC=9

                       DO PIC9^PRSDUTIL

                   FOR EE=1:1:GNUM

                       SET FLD=$TEXT(@CC+EE)

                       DO EPTSET^PRSDSET

 +3        QUIT 

RECORD    ;;Record 7;10

 +1       ;;

1         ;;Group 1;2;7;X

 +1       ;;MDOTFZC1;OTHER TAX FROZEN CODE-1;1;1;OTHER;13;;;;312

 +2       ;;MDOTGSA1;OTHER TAX GSA CODE-1;2;7;OTHER;17;;;;316

 +3       ;;

2         ;;Group 2;1;9;9

 +1       ;;MDOTGSS1;OTHER TAX GROSS PAY YTD-1;1;9;OTHER;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;314

 +2       ;;

3         ;;Group 3;2;7;X

 +1       ;;MDOTFZC2;OTHER TAX FROZEN CODE-2;1;1;OTHER;14;;;;313

 +2       ;;MDOTGSA2;OTHER TAX GSA CODE-2;2;7;OTHER;18;;;;317

 +3       ;;

4         ;;Group 4;1;9;9

 +1       ;;MDOTGSS2;OTHER TAX GROSS PAY YTD-2;1;9;OTHER;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;315

 +2       ;;

5         ;;Group 5;2;12;9

 +1       ;;MDFDAMEX;FTL EXEMPTED AMT EPPD;1;5;FED;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;221

 +2       ;;MDFDBAL;FTL DEBT BALANCE;6;12;FED;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;220

 +3       ;;

6         ;;Group 6;1;1;X

 +1       ;;MDOPT-DEDUCTION-IND;OCC PRIV TAX DEDUCTION IND;1;1;OTHER;6;;;;305

 +2       ;;

7         ;;Group 7;9;51;X

 +1       ;;MEEXLWOP;EXTENDED LWOP IND;1;1;LWOP;1;;;;515

 +2       ;;MELWOPCT;LWOP CONTROL UNITS LYTD;2;4;LWOP;4;D SIGN^PRSDUTIL S DATA=+DATA;;;518

 +3       ;;MELWPAYR;LWOP WG/PW PYTD;5;9;LWOP;10;D SIGN^PRSDUTIL S DATA=+DATA;;;524

 +4       ;;MELWOPYR;LWOP LYTD;10;16;LWOP;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;520

 +5       ;;MELWPCAL;LWOP CCY;17;23;LWOP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;517

 +6       ;;MELWPSTP;LWOP THIS STEP;24;30;LWOP;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;523

 +7       ;;MELWPPRB;LWOP PROB PD;31;37;LWOP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;521

 +8       ;;MELWPPRO;LWOP SINCE PROM;38;44;LWOP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;522

 +9       ;;MEPTIHRS;PART TIME/INTERMIT HRS TOTAL;45;51;1;23;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;70

 +10      ;;

8         ;;Group 8;12;48;X

 +1       ;;MECRCALY;INTMT EMP DAYS WORKED YTD;1;5;MISC4;15;D SIGN^PRSDUTIL,D^PRSDUTIL;;;454

 +2       ;;MECRISTP;INTMT EMP DAYS WORKED STEP;6;10;MISC4;14;D SIGN^PRSDUTIL,D^PRSDUTIL;;;453

 +3       ;;MECRPRB;INTMT EMP DAYS WORKED PROB PD;11;15;MISC4;13;D SIGN^PRSDUTIL,D^PRSDUTIL;;;452

 +4       ;;MEANNLVP;PAYABLE ANNUAL LEAVE;16;18;T38;19;D SIGN^PRSDUTIL S DATA=+DATA;;;137

 +5       ;;MEANRYR1;RESTORED ANNUAL LEAVE YEAR-1;19;19;ANNUAL;12;;;;471

 +6       ;;MEANRLV1;RESTORED ANNUAL LEAVE BAL-1;20;24;ANNUAL;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;469

 +7       ;;MEANRYR2;RESTORED ANNUAL LEAVE YEAR-2;25;25;ANNUAL;13;;;;472

 +8       ;;MEANRLV2;RESTORED ANNUAL LEAVE BAL-2;26;30;ANNUAL;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;470

 +9       ;;MENPANNL;NON-PAYABLE ANNUAL LEAVE;31;33;T38;18;D SIGN^PRSDUTIL S DATA=+DATA;;;136

 +10      ;;MEBPAYRT;BASE PAY AMT PRIOR TO RET COV;34;42;PAY;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;534

 +11      ;;MEINDMIL;MILITARY LEAVE ELIGIBILITY IND;43;43;MILITARY;2;S:DATA=0 DATA="";;;507

 +12      ;;MEMILLEV;MILITARY LEAVE BALANCE;44;48;MILITARY;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;506

 +13      ;;

9         ;;Group 9;13;63;X

 +1       ;;MFCNTLNO;ACSB CONTROL NUMBER-1;1;5;ACSB;9;;;;244

 +2       ;;MFACIND;ACSB CODE-1;6;6;ACSB;7;;;;242

 +3       ;;MFPERFAC;ACSB FED/STATE PCT FACTOR-1;7;11;ACSB;13;D SIGN^PRSDUTIL,DDDD^PRSDUTIL;;;248

 +4       ;;MFCURDED;ACSB CURRENT ALLOTMENT-1;12;18;ACSB;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;246

 +5       ;;MFBPBAL;ACSB BACK PAY BALANCE-1;19;25;ACSB;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;237

 +6       ;;MFBPDED;ACSB BACK PAY DEDUCTION-1;26;30;ACSB;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;239

 +7       ;;MFODCOD1;OTHER DEDUCTION CODE-1;31;33;OTHER;11;;;;310

 +8       ;;MFODBID1;OTHER DEDUCTION BIWEEKLY AMT-1;34;38;OTHER;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;308

 +9       ;;MFODBAL1;OTHER DEDUCTION BALANCE-1;39;45;OTHER;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;306

 +10      ;;MFODCOD2;OTHER DEDUCTION CODE-2;46;48;OTHER;12;;;;311

 +11      ;;MFODBID2;OTHER DEDUCTION BIWEEKLY AMT-2;49;53;OTHER;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;309

 +12      ;;MFODBAL2;OTHER DEDUCTION BALANCE-2;54;60;OTHER;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;307

 +13      ;;MFCOLAPC;COLA;61;63;COLA;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;529

10        ;;Group 10;4;16;X

 +1       ;;MDSTAFFD;STAFFING DIFFERENTIAL PCT;1;5;MISC;10;D SIGN^PRSDUTIL,DDDD^PRSDUTIL;;;606

 +2       ;;MDSUPDIF;SUPERVISORY DIFFERENTIAL;6;10;MISC;11;D SIGN^PRSDUTIL;;;607

 +3       ;;MDRETALLOW;RETENTION ALLOWANCE PCT;11;15;MISC;12;D SIGN^PRSDUTIL,DDDD^PRSDUTIL;;;608

 +4       ;;MDJOBSHR;JOB SHARE;16;16;MISC;13;;;;609