PRSDLD08.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDLD08   2635     printed  Apr 09, 2024@21:31:16                                                                                                                                                                                                    Page 2

PRSDLD08  ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 8 LAYOUT ;08/13/01

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

 +2        FOR CC=1:1

               SET FLD=$TEXT(RECORD+CC)

               if FLD=""

                   QUIT 

               DO LDSET^PRSDSET

 +3        QUIT 

RECORD    ;;Record 8;33

 +1       ;;MELWPCAL;LWOP CCY;LWOP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;517

 +2       ;;MELWPSTP;LWOP THIS STEP;LWOP;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;523

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

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

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

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

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

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

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

 +10      ;;MEANRYR1;RESTORED ANNUAL LEAVE YEAR-1;ANNUAL;12;;;;;;471

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

 +12      ;;MEANRYR2;RESTORED ANNUAL LEAVE YEAR-2;ANNUAL;13;;;;;;472

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

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

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

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

 +17      ;;MEMILLEV;MILITARY LEAVE BALANCE;MILITARY;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;506

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

 +19      ;;MFACIND;ACSB CODE-1;ACSB;7;;;;;;242

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

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

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

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

 +24      ;;MFODCOD1;OTHER DEDUCTION CODE-1;OTHER;11;;;;;;310

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

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

 +27      ;;MFODCOD2;OTHER DEDUCTION CODE-2;OTHER;12;;;;;;311

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

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

 +30      ;;MFCOLAPC;COLA;COLA;3;S L=3 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;529

 +31      ;;MFCOLAYD;COLA AMT YTD;COLA;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;528

 +32      ;;MGCKAD1;CHECK MAILING ADDRESS LINE 1;ADD;1;;;;;;181

 +33      ;;MGCKAD2;CHECK MAILING ADDRESS LINE 2;ADD;2;;;;;;182