PRSDEU05 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 5 LAYOUT ;5/28/93 13:22
;;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 5;19
;;
1 ;;Group 1;1;9;9
;;MXFICGQ;OASDI TAX GROSS PAY QTD;1;9;OASDI;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;294
;;
2 ;;Group 2;1;9;9
;;MXFICGYD;OASDI TAX GROSS PAY YTD;1;9;OASDI;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;295
;;
3 ;;Group 3;1;5;9
;;MXSAVAM1;SAVINGS ALLOTMENT-1 AMT EPPD;1;5;SALLOT;1;D SIGN^PRSDUTIL S DATA=+DATA;;;339
;;
4 ;;Group 4;3;3;X
;;MXRETFCA;RETIREMENT CODE;1;1;0;27;;;;26
;;MXTSPDED;TSP MASTER RECORD IND;2;2;TSP1;9;;;;403
;;MAINTSHP;INTERNSHIP CODE;3;3;T38;15;S:DATA=0 DATA="";;;133
;;
5 ;;Group 5;3;3;X
;;MAEXTLWP;LWOP FOR EDUCATION IND;1;1;T38;12;;;;130
;;MAFORMG;FOREIGN MEDICAL GRADUATE IND;2;2;T38;13;;;;131
;;MASPADV;SPEC ADVANCEMENT FOR PERF IND;3;3;T38;30;;;;148
;;
6 ;;Group 6;9;18;X
;;MAT38PRO;PROMOTION ELIGIBILITY IND;1;1;T38;22;;;;140
;;MADMSSER;VA SERVICE DATE;2;9;T38;36;D DATE^PRSDUTIL;;;154
;;MAC7CLE1;CLINICAL EXPERIENCE 1;10;10;PCD;1;S:DATA=0 DATA="";;;168
;;MAC7CLE2;CLINICAL EXPERIENCE 2;11;11;PCD;2;S:DATA=0 DATA="";;;169
;;MASPICIC;SPECIALTY TRAINED;12;12;T38;33;;;;151
;;MASTEMP;STATE OF EMPLOYMENT PREAPPT;13;14;T38;35;;;;153
;;MASTLIC;STATE OF LICENSURE;15;16;T38;34;;;;152
;;MAPAPEXP;PREAPPOINTMENT EXPERIENCE;17;17;T38;20;;;;138
;;MARETMIL;RET MIL/DUAL COMP WAIVER;18;18;T38;23;;;;141
;;
7 ;;Group 7;1;7;9
;;MXBASYTD;BASE PAY SUBJECT TO CSRS;1;7;PAY;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;539
;;
8 ;;Group 8;1;7;9
;;MXRETYTD;CSRS DEDUCTION YTD;1;7;RETIRE;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;330
;;
9 ;;Group 9;1;9;9
;;MXRETEPY;CSRS DEDUCTION EOPY;1;9;RETIRE;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;329
;;
10 ;;Group 10;1;7;9
;;MXREAYTD;REEMP ANNUITANT DED YTD;1;7;RETIRE;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;332
;;
11 ;;Group 11;1;9;9
;;MXREAEPY;REEMP ANNUITANT DED EOPY;1;9;RETIRE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;331
;;
12 ;;Group 12;1;7;9
;;MXFRSYTD;FERS DEDUCTION YTD;1;7;RETIRE;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;334
;;
13 ;;Group 13;1;9;9
;;MXFRSEPY;FERS DEDUCTION EOPY;1;9;RETIRE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;333
;;
14 ;;Group 14;1;7;9
;;MXCSRFZN;FROZEN SERVICE;1;7;1;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;60
;;
15 ;;Group 15;1;9;9
;;MXCSRRED;FERS REDESIGNATED CSRS AMT;1;9;RETIRE;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;335
;;
16 ;;Group 16;3;10;X
;;MAAGEDAT;SPECIAL PAY AGREEMENT DATE;1;8;T38;25;D DATE^PRSDUTIL;;;143
;;MAAGELNG;SPECIAL PAY AGREEMENT LENGTH;9;9;T38;26;;;;144
;;MAC7FUE1;FUNCTIONAL EXPERIENCE 1;10;10;PCD;5;S:DATA=0 DATA="";;;172
;;
17 ;;Group 17;9;14;X
;;MAC7FUE2;FUNCTIONAL EXPERIENCE 2;1;1;PCD;6;S:DATA=0 DATA="";;;173
;;MASPPAYC;SPECIAL CALC INDICATOR;2;2;T38;31;;;;149
;;MADPCC1;DIPLOMATE;3;4;T38;21;S:DATA="00" DATA="";;;139
;;MADPCC2;ADDL DIPLOMATE SPECIALTY A;5;6;T38;2;S:DATA="00" DATA="";;;120
;;MADPCC3;ADDL DIPLOMATE SPECIALTY B;7;8;T38;14;S:DATA="00" DATA="";;;132
;;MAANVERP;ANNUAL REVIEW IND;9;9;T38;4;;;;122
;;MABRDCD1;BOARD ELIGIBLE SPECIALTY A;10;11;T38;5;S:DATA="00" DATA="";;;123
;;MABRDCD2;BOARD ELIGIBLE SPECIALTY B;12;13;T38;6;S:DATA="00" DATA="";;;124
;;MAACDTIT;ACADEMIC TITLE;14;14;T38;1;S:DATA=0 DATA="";;;119
;;
18 ;;Group 18;15;30;X
;;MACBRTH;COUNTRY OF BIRTH;1;2;T38;9;;;;127
;;MACMEDD;COUNTRY OF MEDICAL SCHOOL;3;4;T38;10;;;;128
;;MACPOST;COUNTRY OF POST GR TRAINING;5;6;T38;11;;;;129
;;MAQLDATE;SPECIAL PAY AGREEMENT QUAL APT;7;7;T38;27;;;;145
;;MAQLCURR;SPECIAL PAY AGREEMENT QUAL CUR;8;8;T38;28;;;;146
;;MACEDDAT;CONTINUING EDUC CODE (AT APPT);9;9;T38;7;;;;125
;;MACEDCUR;CONTINUING EDUC CODE (CURRENT);10;10;T38;8;;;;126
;;MANAGDAT;NO AGREEMENT REASON (AT APPT);11;11;T38;16;;;;134
;;MANAGCUR;NO AGREEMENT REASON (CURRENT);12;12;T38;17;;;;135
;;MAPRVAST and MAPRVAOT;PRIOR VA EXPERIENCE;13;25;PVAE;;D PVAE^PRSDUTIL;;;
;;MAADVTEN;ANNUAL TENURE CHANGE;26;26;T38;3;;;;121
;;MAPPOSRF;POSITION PREFERENCE;27;28;PCD;9;;;;176
;;MAPGEO1;GEOGRAPHIC PREFERENCE 1;29;29;PCD;7;;;;174
;;MAPGEO2;GEOGRAPHIC PREFERENCE 2;30;30;PCD;8;;;;175
;;
19 ;;Group 19;7;24;X
;;MAPDATEA;DATE AVAILABLE;1;8;PCD;4;D DATE^PRSDUTIL;;;171
;;MAPDATAS;DATE ASSIGNED PRESENT POSITION;9;16;PCD;3;D DATE^PRSDUTIL;;;170
;;MAPSTAT;STATUS CODE;17;17;PCD;12;S:DATA=2 DATA="";;;179
;;MARETPAY;SPECIAL PAY RET DED;18;18;T38;29;;;;147
;;MAC7SPPG;SPEC PROGRAM;19;19;PCD;10;S:DATA=0 DATA="";;;177
;;MAC7YRCM;YEAR COMPLETED;20;23;PCD;11;S:DATA="0000" DATA="";;;178
;;MAC7TRPG;TRAINING PROGRAM;24;24;PCD;13;S:DATA=0 DATA="";;;180
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDEU05 4747 printed Dec 13, 2024@02:25:15 Page 2
PRSDEU05 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 5 LAYOUT ;5/28/93 13:22
+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 5;19
+1 ;;
1 ;;Group 1;1;9;9
+1 ;;MXFICGQ;OASDI TAX GROSS PAY QTD;1;9;OASDI;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;294
+2 ;;
2 ;;Group 2;1;9;9
+1 ;;MXFICGYD;OASDI TAX GROSS PAY YTD;1;9;OASDI;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;295
+2 ;;
3 ;;Group 3;1;5;9
+1 ;;MXSAVAM1;SAVINGS ALLOTMENT-1 AMT EPPD;1;5;SALLOT;1;D SIGN^PRSDUTIL S DATA=+DATA;;;339
+2 ;;
4 ;;Group 4;3;3;X
+1 ;;MXRETFCA;RETIREMENT CODE;1;1;0;27;;;;26
+2 ;;MXTSPDED;TSP MASTER RECORD IND;2;2;TSP1;9;;;;403
+3 ;;MAINTSHP;INTERNSHIP CODE;3;3;T38;15;S:DATA=0 DATA="";;;133
+4 ;;
5 ;;Group 5;3;3;X
+1 ;;MAEXTLWP;LWOP FOR EDUCATION IND;1;1;T38;12;;;;130
+2 ;;MAFORMG;FOREIGN MEDICAL GRADUATE IND;2;2;T38;13;;;;131
+3 ;;MASPADV;SPEC ADVANCEMENT FOR PERF IND;3;3;T38;30;;;;148
+4 ;;
6 ;;Group 6;9;18;X
+1 ;;MAT38PRO;PROMOTION ELIGIBILITY IND;1;1;T38;22;;;;140
+2 ;;MADMSSER;VA SERVICE DATE;2;9;T38;36;D DATE^PRSDUTIL;;;154
+3 ;;MAC7CLE1;CLINICAL EXPERIENCE 1;10;10;PCD;1;S:DATA=0 DATA="";;;168
+4 ;;MAC7CLE2;CLINICAL EXPERIENCE 2;11;11;PCD;2;S:DATA=0 DATA="";;;169
+5 ;;MASPICIC;SPECIALTY TRAINED;12;12;T38;33;;;;151
+6 ;;MASTEMP;STATE OF EMPLOYMENT PREAPPT;13;14;T38;35;;;;153
+7 ;;MASTLIC;STATE OF LICENSURE;15;16;T38;34;;;;152
+8 ;;MAPAPEXP;PREAPPOINTMENT EXPERIENCE;17;17;T38;20;;;;138
+9 ;;MARETMIL;RET MIL/DUAL COMP WAIVER;18;18;T38;23;;;;141
+10 ;;
7 ;;Group 7;1;7;9
+1 ;;MXBASYTD;BASE PAY SUBJECT TO CSRS;1;7;PAY;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;539
+2 ;;
8 ;;Group 8;1;7;9
+1 ;;MXRETYTD;CSRS DEDUCTION YTD;1;7;RETIRE;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;330
+2 ;;
9 ;;Group 9;1;9;9
+1 ;;MXRETEPY;CSRS DEDUCTION EOPY;1;9;RETIRE;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;329
+2 ;;
10 ;;Group 10;1;7;9
+1 ;;MXREAYTD;REEMP ANNUITANT DED YTD;1;7;RETIRE;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;332
+2 ;;
11 ;;Group 11;1;9;9
+1 ;;MXREAEPY;REEMP ANNUITANT DED EOPY;1;9;RETIRE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;331
+2 ;;
12 ;;Group 12;1;7;9
+1 ;;MXFRSYTD;FERS DEDUCTION YTD;1;7;RETIRE;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;334
+2 ;;
13 ;;Group 13;1;9;9
+1 ;;MXFRSEPY;FERS DEDUCTION EOPY;1;9;RETIRE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;333
+2 ;;
14 ;;Group 14;1;7;9
+1 ;;MXCSRFZN;FROZEN SERVICE;1;7;1;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;60
+2 ;;
15 ;;Group 15;1;9;9
+1 ;;MXCSRRED;FERS REDESIGNATED CSRS AMT;1;9;RETIRE;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;335
+2 ;;
16 ;;Group 16;3;10;X
+1 ;;MAAGEDAT;SPECIAL PAY AGREEMENT DATE;1;8;T38;25;D DATE^PRSDUTIL;;;143
+2 ;;MAAGELNG;SPECIAL PAY AGREEMENT LENGTH;9;9;T38;26;;;;144
+3 ;;MAC7FUE1;FUNCTIONAL EXPERIENCE 1;10;10;PCD;5;S:DATA=0 DATA="";;;172
+4 ;;
17 ;;Group 17;9;14;X
+1 ;;MAC7FUE2;FUNCTIONAL EXPERIENCE 2;1;1;PCD;6;S:DATA=0 DATA="";;;173
+2 ;;MASPPAYC;SPECIAL CALC INDICATOR;2;2;T38;31;;;;149
+3 ;;MADPCC1;DIPLOMATE;3;4;T38;21;S:DATA="00" DATA="";;;139
+4 ;;MADPCC2;ADDL DIPLOMATE SPECIALTY A;5;6;T38;2;S:DATA="00" DATA="";;;120
+5 ;;MADPCC3;ADDL DIPLOMATE SPECIALTY B;7;8;T38;14;S:DATA="00" DATA="";;;132
+6 ;;MAANVERP;ANNUAL REVIEW IND;9;9;T38;4;;;;122
+7 ;;MABRDCD1;BOARD ELIGIBLE SPECIALTY A;10;11;T38;5;S:DATA="00" DATA="";;;123
+8 ;;MABRDCD2;BOARD ELIGIBLE SPECIALTY B;12;13;T38;6;S:DATA="00" DATA="";;;124
+9 ;;MAACDTIT;ACADEMIC TITLE;14;14;T38;1;S:DATA=0 DATA="";;;119
+10 ;;
18 ;;Group 18;15;30;X
+1 ;;MACBRTH;COUNTRY OF BIRTH;1;2;T38;9;;;;127
+2 ;;MACMEDD;COUNTRY OF MEDICAL SCHOOL;3;4;T38;10;;;;128
+3 ;;MACPOST;COUNTRY OF POST GR TRAINING;5;6;T38;11;;;;129
+4 ;;MAQLDATE;SPECIAL PAY AGREEMENT QUAL APT;7;7;T38;27;;;;145
+5 ;;MAQLCURR;SPECIAL PAY AGREEMENT QUAL CUR;8;8;T38;28;;;;146
+6 ;;MACEDDAT;CONTINUING EDUC CODE (AT APPT);9;9;T38;7;;;;125
+7 ;;MACEDCUR;CONTINUING EDUC CODE (CURRENT);10;10;T38;8;;;;126
+8 ;;MANAGDAT;NO AGREEMENT REASON (AT APPT);11;11;T38;16;;;;134
+9 ;;MANAGCUR;NO AGREEMENT REASON (CURRENT);12;12;T38;17;;;;135
+10 ;;MAPRVAST and MAPRVAOT;PRIOR VA EXPERIENCE;13;25;PVAE;;D PVAE^PRSDUTIL;;;
+11 ;;MAADVTEN;ANNUAL TENURE CHANGE;26;26;T38;3;;;;121
+12 ;;MAPPOSRF;POSITION PREFERENCE;27;28;PCD;9;;;;176
+13 ;;MAPGEO1;GEOGRAPHIC PREFERENCE 1;29;29;PCD;7;;;;174
+14 ;;MAPGEO2;GEOGRAPHIC PREFERENCE 2;30;30;PCD;8;;;;175
+15 ;;
19 ;;Group 19;7;24;X
+1 ;;MAPDATEA;DATE AVAILABLE;1;8;PCD;4;D DATE^PRSDUTIL;;;171
+2 ;;MAPDATAS;DATE ASSIGNED PRESENT POSITION;9;16;PCD;3;D DATE^PRSDUTIL;;;170
+3 ;;MAPSTAT;STATUS CODE;17;17;PCD;12;S:DATA=2 DATA="";;;179
+4 ;;MARETPAY;SPECIAL PAY RET DED;18;18;T38;29;;;;147
+5 ;;MAC7SPPG;SPEC PROGRAM;19;19;PCD;10;S:DATA=0 DATA="";;;177
+6 ;;MAC7YRCM;YEAR COMPLETED;20;23;PCD;11;S:DATA="0000" DATA="";;;178
+7 ;;MAC7TRPG;TRAINING PROGRAM;24;24;PCD;13;S:DATA=0 DATA="";;;180
