PRSDEU06 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 6 LAYOUT ;5/28/93 15:35
;;4.0;PAID;;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 6;21
;;
1 ;;Group 1;10;48;X
;;MBMNAUN;MONTHLY ANNUITY;1;7;MISC4;17;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;456
;;MBSLCODE;LIMITATION CODE;8;8;1;29;S:DATA=0 DATA="";;;76
;;MBSLHRD;HOURS/SALARY LIMITATION;9;15;1;31;D SIGN^PRSDUTIL S DATA=+DATA;;;78
;;MBSLHRDA;LIMITATION HOURS TO DATE;16;22;1;32;D SIGN^PRSDUTIL S DATA=+DATA;;;79
;;MBSLANNV;LIMITATION EXP DATE;23;30;1;30;D DATE^PRSDUTIL;;;77
;;MBUNCOD2;UNION CODE-2;31;34;UNION;2;;;;429
;;MBUNDES2;UNION DUES-2 DEDUCTION EPPD;35;39;UNION;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;434
;;MBQTRCOD;QUARTERS CODE;40;40;QSGP;6;D SIGN^PRSDUTIL;;;323
;;MBQTRDED;QUARTERS DEDUCTION EPPD;41;45;QSGP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;324
;;MBQTRQS;QUARTERS STATION;46;48;QSGP;9;;;;326
;;
2 ;;Group 2;6;20;X
;;MBSUBSIS;SUBSISTANCE DEDUCTION EPPD;1;5;QSGP;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;328
;;MBGARAGE;GARAGE DEDUCTION EPPD;6;10;QSGP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;319
;;MBPARK;PARKING DEDUCTION EPPD;11;15;QSGP;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;322
;;MBSTATFR;VA STATION TRANSFERRED FROM;16;18;1;40;S:DATA="" NODE="" I $D(NAME),NAME'="",$D(^TMP($J,"PRS",NAME,SSN)),TYPE="T",^TMP($J,"PRS",NAME,SSN)="" S ^TMP($J,"PRS",NAME,SSN)="from station "_DATA;;;87
;;MBSEPAR;SEPARATION IND;19;19;1;33;D SEPIND^PRSDMISC;;;80
;;MBAPDISB;DISABILITY RETIREMENT;20;20;1;11;;;;58
;;
3 ;;Group 3;5;15;X
;;MBBECBEN;OWCP BENEFICIARY IND;1;1;1;21;;;;68
;;MBSACODE;ACCESSION/SEPARATION CODE;2;2;1;1;D ACCSEP^PRSDMISC;;;48
;;MBSADATE;ACCESSION/SEPARATION EFF DATE;3;10;1;2;D DATE^PRSDUTIL,ACCSEP^PRSDMISC;;;49
;;MBSANOAC;ACCESSION/SEPARATION NOA CODE;11;14;1;3;D ACCSEP^PRSDMISC;;;50
;;MBSAELG;RETIREMENT ANN SURV ELIG CODE;15;15;1;28;;;;75
;;
4 ;;Group 4;2;2;X
;;MBPRBSUP;SUPV APPT PROBATION PERIOD IND;1;1;1;37;;;;84
;;MBPRBSES;SES APPT PROBATION PERIOD IND;2;2;1;34;;;;81
;;
5 ;;Group 5;3;6;X
;;MCSTX-GSACODE;STATE TAX-2 GSA CODE;1;2;STATE;21;;;;392
;;MCSTX-MARITAL-STATUS;STATE TAX-2 MARITAL STATUS;3;4;STATE;22;;;;393
;;MCSTX-RESIDENCE;STATE TAX-2 RESIDENCE STATE;5;6;STATE;23;;;;394
;;
6 ;;Group 6;1;3;9
;;MCSTX-EXEMPTION-1;STATE TAX-2 EXEMPTION CODE-1;1;3;STATE;17;D SIGN^PRSDUTIL,D^PRSDUTIL S DATA=+DATA;;;388
;;
7 ;;Group 7;1;3;9
;;MCSTX-EXEMPTION-2;STATE TAX-2 EXEMPTION CODE-2;1;3;STATE;18;D SIGN^PRSDUTIL S DATA=+DATA;;;389
;;
8 ;;Group 8;1;5;9
;;MCSTX-ADDITIONAL-WITH;STATE TAX-2 ADDNL AMT WITHHELD;1;5;STATE;13;D SIGN^PRSDUTIL S DATA=+DATA;;;384
;;
9 ;;Group 9;1;9;9
;;MCSTX-CURRENT-TAX;STATE TAX-2 AMT WITHHELD CTPTD;1;9;STATE;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;385
;;
10 ;;Group 10;1;9;9
;;MCSTX-YTD-TAX;STATE TAX-2 AMT WITHHELD YTD;1;9;STATE;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;386
;;
11 ;;Group 11;1;9;9
;;MCSTX-CURRENT-GROSS;STATE TAX-2 GROSS PAY CTPTD;1;9;STATE;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;390
;;
12 ;;Group 12;1;9;9
;;MCSTX-YTD-GROSS;STATE TAX-2 GROSS PAY YTD;1;9;STATE;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;391
;;
13 ;;Group 13;3;10;X
;;MCCTX-GSACODE;CITY TAX-2 GSA CODE;1;6;CITY;20;;;;206
;;MCCTX-MARITAL-STATUS;CITY TAX-2 MARITAL STATUS;7;8;CITY;21;;;;207
;;MCCTX-RESIDENCE;CITY TAX-2 RESIDENCE STATE;9;10;CITY;22;;;;208
;;
14 ;;Group 14;1;3;9
;;MCCTX-EXEMPTION-1;CITY TAX-2 EXEMPTION CODE-1;1;3;CITY;16;D SIGN^PRSDUTIL,D^PRSDUTIL S DATA=+DATA;;;202
;;
15 ;;Group 15;1;3;9
;;MCCTX-EXEMPTION-2;CITY TAX-2 EXEMPTION CODE-2;1;3;CITY;17;D SIGN^PRSDUTIL S DATA=+DATA;;;203
;;
16 ;;Group 16;1;5;9
;;MCCTX-ADDITIONAL-WITH;CITY TAX-2 ADDNL AMT WITHHELD;1;5;CITY;12;D SIGN^PRSDUTIL S DATA=+DATA;;;198
;;
17 ;;Group 17;1;9;9
;;MCCTX-CURRENT-TAX;CITY TAX-2 AMT WITHHELD CTPTD;1;9;CITY;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;199
;;
18 ;;Group 18;1;9;9
;;MCCTX-YTD-TAX;CITY TAX-2 AMT WITHHELD YTD;1;9;CITY;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;200
;;
19 ;;Group 19;1;9;9
;;MCCTX-CURRENT-GROSS;CITY TAX-2 GROSS PAY CPPD;1;9;CITY;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;204
;;
20 ;;Group 20;1;9;9
;;MCCTX-YTD-GROSS;CITY TAX-2 GROSS PAY YTD;1;9;CITY;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;205
;;
21 ;;Group 21;1;7;9
;;MCVERWGE;VERIFIED FICA/MED WAGE DIFF;1;7;MISC4;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;459
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDEU06 4454 printed Nov 22, 2024@17:35:20 Page 2
PRSDEU06 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 6 LAYOUT ;5/28/93 15:35
+1 ;;4.0;PAID;;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 6;21
+1 ;;
1 ;;Group 1;10;48;X
+1 ;;MBMNAUN;MONTHLY ANNUITY;1;7;MISC4;17;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;456
+2 ;;MBSLCODE;LIMITATION CODE;8;8;1;29;S:DATA=0 DATA="";;;76
+3 ;;MBSLHRD;HOURS/SALARY LIMITATION;9;15;1;31;D SIGN^PRSDUTIL S DATA=+DATA;;;78
+4 ;;MBSLHRDA;LIMITATION HOURS TO DATE;16;22;1;32;D SIGN^PRSDUTIL S DATA=+DATA;;;79
+5 ;;MBSLANNV;LIMITATION EXP DATE;23;30;1;30;D DATE^PRSDUTIL;;;77
+6 ;;MBUNCOD2;UNION CODE-2;31;34;UNION;2;;;;429
+7 ;;MBUNDES2;UNION DUES-2 DEDUCTION EPPD;35;39;UNION;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;434
+8 ;;MBQTRCOD;QUARTERS CODE;40;40;QSGP;6;D SIGN^PRSDUTIL;;;323
+9 ;;MBQTRDED;QUARTERS DEDUCTION EPPD;41;45;QSGP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;324
+10 ;;MBQTRQS;QUARTERS STATION;46;48;QSGP;9;;;;326
+11 ;;
2 ;;Group 2;6;20;X
+1 ;;MBSUBSIS;SUBSISTANCE DEDUCTION EPPD;1;5;QSGP;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;328
+2 ;;MBGARAGE;GARAGE DEDUCTION EPPD;6;10;QSGP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;319
+3 ;;MBPARK;PARKING DEDUCTION EPPD;11;15;QSGP;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;322
+4 ;;MBSTATFR;VA STATION TRANSFERRED FROM;16;18;1;40;S:DATA="" NODE="" I $D(NAME),NAME'="",$D(^TMP($J,"PRS",NAME,SSN)),TYPE="T",^TMP($J,"PRS",NAME,SSN)="" S ^TMP($J,"PRS",NAME,SSN)="from station "_DATA;;;87
+5 ;;MBSEPAR;SEPARATION IND;19;19;1;33;D SEPIND^PRSDMISC;;;80
+6 ;;MBAPDISB;DISABILITY RETIREMENT;20;20;1;11;;;;58
+7 ;;
3 ;;Group 3;5;15;X
+1 ;;MBBECBEN;OWCP BENEFICIARY IND;1;1;1;21;;;;68
+2 ;;MBSACODE;ACCESSION/SEPARATION CODE;2;2;1;1;D ACCSEP^PRSDMISC;;;48
+3 ;;MBSADATE;ACCESSION/SEPARATION EFF DATE;3;10;1;2;D DATE^PRSDUTIL,ACCSEP^PRSDMISC;;;49
+4 ;;MBSANOAC;ACCESSION/SEPARATION NOA CODE;11;14;1;3;D ACCSEP^PRSDMISC;;;50
+5 ;;MBSAELG;RETIREMENT ANN SURV ELIG CODE;15;15;1;28;;;;75
+6 ;;
4 ;;Group 4;2;2;X
+1 ;;MBPRBSUP;SUPV APPT PROBATION PERIOD IND;1;1;1;37;;;;84
+2 ;;MBPRBSES;SES APPT PROBATION PERIOD IND;2;2;1;34;;;;81
+3 ;;
5 ;;Group 5;3;6;X
+1 ;;MCSTX-GSACODE;STATE TAX-2 GSA CODE;1;2;STATE;21;;;;392
+2 ;;MCSTX-MARITAL-STATUS;STATE TAX-2 MARITAL STATUS;3;4;STATE;22;;;;393
+3 ;;MCSTX-RESIDENCE;STATE TAX-2 RESIDENCE STATE;5;6;STATE;23;;;;394
+4 ;;
6 ;;Group 6;1;3;9
+1 ;;MCSTX-EXEMPTION-1;STATE TAX-2 EXEMPTION CODE-1;1;3;STATE;17;D SIGN^PRSDUTIL,D^PRSDUTIL S DATA=+DATA;;;388
+2 ;;
7 ;;Group 7;1;3;9
+1 ;;MCSTX-EXEMPTION-2;STATE TAX-2 EXEMPTION CODE-2;1;3;STATE;18;D SIGN^PRSDUTIL S DATA=+DATA;;;389
+2 ;;
8 ;;Group 8;1;5;9
+1 ;;MCSTX-ADDITIONAL-WITH;STATE TAX-2 ADDNL AMT WITHHELD;1;5;STATE;13;D SIGN^PRSDUTIL S DATA=+DATA;;;384
+2 ;;
9 ;;Group 9;1;9;9
+1 ;;MCSTX-CURRENT-TAX;STATE TAX-2 AMT WITHHELD CTPTD;1;9;STATE;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;385
+2 ;;
10 ;;Group 10;1;9;9
+1 ;;MCSTX-YTD-TAX;STATE TAX-2 AMT WITHHELD YTD;1;9;STATE;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;386
+2 ;;
11 ;;Group 11;1;9;9
+1 ;;MCSTX-CURRENT-GROSS;STATE TAX-2 GROSS PAY CTPTD;1;9;STATE;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;390
+2 ;;
12 ;;Group 12;1;9;9
+1 ;;MCSTX-YTD-GROSS;STATE TAX-2 GROSS PAY YTD;1;9;STATE;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;391
+2 ;;
13 ;;Group 13;3;10;X
+1 ;;MCCTX-GSACODE;CITY TAX-2 GSA CODE;1;6;CITY;20;;;;206
+2 ;;MCCTX-MARITAL-STATUS;CITY TAX-2 MARITAL STATUS;7;8;CITY;21;;;;207
+3 ;;MCCTX-RESIDENCE;CITY TAX-2 RESIDENCE STATE;9;10;CITY;22;;;;208
+4 ;;
14 ;;Group 14;1;3;9
+1 ;;MCCTX-EXEMPTION-1;CITY TAX-2 EXEMPTION CODE-1;1;3;CITY;16;D SIGN^PRSDUTIL,D^PRSDUTIL S DATA=+DATA;;;202
+2 ;;
15 ;;Group 15;1;3;9
+1 ;;MCCTX-EXEMPTION-2;CITY TAX-2 EXEMPTION CODE-2;1;3;CITY;17;D SIGN^PRSDUTIL S DATA=+DATA;;;203
+2 ;;
16 ;;Group 16;1;5;9
+1 ;;MCCTX-ADDITIONAL-WITH;CITY TAX-2 ADDNL AMT WITHHELD;1;5;CITY;12;D SIGN^PRSDUTIL S DATA=+DATA;;;198
+2 ;;
17 ;;Group 17;1;9;9
+1 ;;MCCTX-CURRENT-TAX;CITY TAX-2 AMT WITHHELD CTPTD;1;9;CITY;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;199
+2 ;;
18 ;;Group 18;1;9;9
+1 ;;MCCTX-YTD-TAX;CITY TAX-2 AMT WITHHELD YTD;1;9;CITY;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;200
+2 ;;
19 ;;Group 19;1;9;9
+1 ;;MCCTX-CURRENT-GROSS;CITY TAX-2 GROSS PAY CPPD;1;9;CITY;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;204
+2 ;;
20 ;;Group 20;1;9;9
+1 ;;MCCTX-YTD-GROSS;CITY TAX-2 GROSS PAY YTD;1;9;CITY;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;205
+2 ;;
21 ;;Group 21;1;7;9
+1 ;;MCVERWGE;VERIFIED FICA/MED WAGE DIFF;1;7;MISC4;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;459
