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

39 lines
2.5 KiB
Mathematica

PRSDLD08 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 8 LAYOUT ;08/13/01
;;4.0;PAID;**34,69**;Sep 21, 1995
F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
Q
RECORD ;;Record 8;33
;;MELWPCAL;LWOP CCY;LWOP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;517
;;MELWPSTP;LWOP THIS STEP;LWOP;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;523
;;MELWPPRB;LWOP PROB PD;LWOP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;521
;;MELWPPRO;LWOP SINCE PROM;LWOP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;522
;;MEPTIHRS;PART TIME/INTERMIT HRS TOTAL;1;23;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;70
;;MECRCALY;INTMT EMP DAYS WORKED YTD;MISC4;15;D SIGN^PRSDUTIL,D^PRSDUTIL;;;;;454
;;MECRISTP;INTMT EMP DAYS WORKED STEP;MISC4;14;D SIGN^PRSDUTIL,D^PRSDUTIL;;;;;453
;;MECRPRB;INTMT EMP DAYS WORKED PROB PD;MISC4;13;D SIGN^PRSDUTIL,D^PRSDUTIL;;;;;452
;;MEANNLVP;PAYABLE ANNUAL LEAVE;T38;19;D SIGN^PRSDUTIL S DATA=+DATA;;;;;137
;;MEANRYR1;RESTORED ANNUAL LEAVE YEAR-1;ANNUAL;12;;;;;;471
;;MEANRLV1;RESTORED ANNUAL LEAVE BAL-1;ANNUAL;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;469
;;MEANRYR2;RESTORED ANNUAL LEAVE YEAR-2;ANNUAL;13;;;;;;472
;;MEANRLV2;RESTORED ANNUAL LEAVE BAL-2;ANNUAL;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;470
;;MENPANNL;NON-PAYABLE ANNUAL LEAVE;T38;18;D SIGN^PRSDUTIL S DATA=+DATA;;;;;136
;;MEBPAYRT;BASE PAY AMT PRIOR TO RET COV;PAY;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;534
;;MEINDMIL;MILITARY LEAVE ELIGIBILITY IND;MILITARY;2;S:DATA=0 DATA="";;;;;507
;;MEMILLEV;MILITARY LEAVE BALANCE;MILITARY;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;506
;;MFCNTLNO;ACSB CONTROL NUMBER-1;ACSB;9;;;;;;244
;;MFACIND;ACSB CODE-1;ACSB;7;;;;;;242
;;MFPERFAC;ACSB FED/STATE PCT FACTOR-1;ACSB;13;D SIGN^PRSDUTIL,DDDD^PRSDUTIL;;;;;248
;;MFCURDED;ACSB CURRENT ALLOTMENT-1;ACSB;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;246
;;MFBPBAL;ACSB BACK PAY BALANCE-1;ACSB;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;237
;;MFBPDED;ACSB BACK PAY DEDUCTION-1;ACSB;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;239
;;MFODCOD1;OTHER DEDUCTION CODE-1;OTHER;11;;;;;;310
;;MFODBID1;OTHER DEDUCTION BIWEEKLY AMT-1;OTHER;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;308
;;MFODBAL1;OTHER DEDUCTION BALANCE-1;OTHER;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;306
;;MFODCOD2;OTHER DEDUCTION CODE-2;OTHER;12;;;;;;311
;;MFODBID2;OTHER DEDUCTION BIWEEKLY AMT-2;OTHER;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;309
;;MFODBAL2;OTHER DEDUCTION BALANCE-2;OTHER;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;307
;;MFCOLAPC;COLA;COLA;3;S L=3 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;529
;;MFCOLAYD;COLA AMT YTD;COLA;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;528
;;MGCKAD1;CHECK MAILING ADDRESS LINE 1;ADD;1;;;;;;181
;;MGCKAD2;CHECK MAILING ADDRESS LINE 2;ADD;2;;;;;;182