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 ---[H[J[2J[HPRSDEU07 4131 printed Dec 13, 2024@02:25:17 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
