PRSDEU06.m

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 ---PRSDEU06   4454     printed  Apr 09, 2024@21:29:09                                                                                                                                                                                                    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