VistA-FOIAVistA/r/PAID-PRS/PRSDEU07.m

72 lines
4.0 KiB
Mathematica

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