PRSDEU01 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 1 LAYOUT ;7/7/93 14:16
;;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 1;9
;;
1 ;;Group 1;3;13;X
;;MXSTANO;STATION NUMBER;1;3;0;7;;;;6
;;MXSSN;SSN;4;12;0;9;;;;8
;;MXSSNSUB;SSN SUFFIX;13;13;;;;;;
;;
2 ;;Group 2;7;35;X
;;MXNAME;EMPLOYEE NAME;1;27;0;1;S NAME450=$P(^PRSPC(IEN,0),"^",1) S:NAME450'=DATA ^TMP($J,"PRSNC",DATA,SSN)="old name: "_NAME450 K NAME450;;;.01
;;MXTITLE;SEX;28;28;0;32;;;;31
;;MXSUPLEV;SUPERVISORY LEVEL;29;29;0;40;;;;39
;;MXTLUNIT;T & L UNIT;30;32;0;8;S NODE="";;;7
;;MXCITIZ;CITIZENSHIP;33;33;0;5;;;;4
;;MXPERFCD;PERF/PROFCY RATING CODE;34;34;0;23;;;;22
;;MXMGTDEV;MPI PARTICIPATION IND;35;35;;;;;;
;;
3 ;;Group 3;3;3;X
;;MXINTPER;INTER-AGENCY LWOP IND;1;1;LWOP;2;;;;516
;;MXCENTRL;CENTRALIZED POSITION IND;2;2;1;6;;;;53
;;MXFIREFG;FIRE FIGHTER;3;3;1;12;;;;59
;;
4 ;;Group 4;3;3;X
;;MXMEDCOD;MEDICARE STATUS CODE;1;1;MEDICARE;7;;;;256
;;MXPRBAPP;PROBATIONARY APPOINTMENT IND;2;2;1;25;;;;72
;;MXPAYRTD;PAY RATE DETERMINANT;3;3;0;22;;;;21
;;
5 ;;Group 5;5;8;X
;;MXEIC;EARNED INCOME CREDIT CODE;1;1;MISC4;9;S:DATA=0 DATA="";;;448
;;MXDUTYST;DUTY STATION;2;3;1;42;;;;590
;;MXFLDSTA;STATION MAINTAINING OPF;4;6;0;37;;;;36
;;MXBULKCH;BULK CHECK OPTION;7;7;MISC4;4;;;;443
;;MXTEMPHB;TEMPORARY HEALTH INSURANCE IND;8;8;0;41;;;;40
;;
6 ;;Group 6;9;17;X
;;MXOPMSER/MXTITCOD;OCCUPATION SERIES & TITLE;1;6;0;17;D TITLE^PRSDUTIL;;;16
;;MXASSGCD;ASSIGNMENT;7;8;0;4;;;;3
;;MXPLAN;PAY PLAN;9;9;0;21;;;;20
;;MXPPLAN;PROPER PAY PLAN;10;10;1;27;;;;74
;;MXPAYBAS;PAY BASIS;11;11;0;20;;;;19
;;MXDTYBAS;DUTY BASIS;12;12;0;10;;;;9
;;MXNORMHR;8B NORMAL HOURS;13;15;0;16;D SIGN^PRSDUTIL,NH^PRSDUTIL;;;15
;;MXFTEEAJ;FTE EQUIVALENT;16;16;MISC4;11;D SIGN^PRSDUTIL,FTE^PRSDCOMP;;;450
;;MXTYPAPP;TYPE OF APPOINTMENT;17;17;0;43;;;;42
;;
7 ;;Group 7;12;68;X
;;MXGRADE;GRADE;1;2;0;14;;;;13
;;MXSTEPN;STEP;3;4;0;39;D STEP^PRSDUTIL;;;38
;;MXPGRADE;PROPER GRADE;5;6;1;26;;;;73
;;MXWIGELG;WGI ELIGIBILITY;7;7;0;45;;;;44
;;MXSALRPY;SALARY;8;16;0;29;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;28
;;MXSALRSC;SCHEDULED SALARY RATE;17;25;0;30;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;29
;;MXSALDAT;SALARY DATE;26;33;0;28;D DATE^PRSDUTIL;;;27
;;MXGAPAMT;GAP AMT;34;40;1;36;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;83
;;MXFRGBEN;PURCHASE AND HIRE CASH PAYMENT;41;47;MISC;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;533
;;MXPHYSPC;SPECIAL PAY ANNUAL AMT;48;56;T38;24;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;142
;;MXNTWYTD;FEDERAL NONTAXABLE WAGES YTD;57;65;FED;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;212
;;MXPREMPR;PREMIUM PAY PCT;66;68;PREMIUM;14;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;556
;;
8 ;;Group 8;13;44;X
;;MXNONPEM;NONPAY IND;1;1;1;20;;;;67
;;MXMONOWK;MONTHLY NON-WORK IND;2;2;1;14;;;;61
;;MXCHGYR;BASE PAY CHANGE YEAR;3;6;PAY;3;;;;536
;;MXCHGPP;BASE PAY CHANGE PPD;7;8;PAY;2;;;;535
;;MXFLSA;FLSA;9;9;0;12;;;;11
;;MXMAILCD;CHECK DISTRIBUTION CODE;10;10;MISC4;5;;;;444
;;MXBANKCD;BANK EFT ROUTING NUMBER;11;19;MISC4;3;;;;442
;;MXACCNO;BANK ACCOUNT NUMBER;20;36;MISC4;1;;;;440
;;MXTYPACC;BANK ACCOUNT TYPE;37;37;MISC4;2;;;;441
;;MXSTRES;RESIDENCE STATE;38;39;ADD;6;;;;186
;;MXAUOPCT;AUO PERCENT;40;42;PREMIUM;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;544
;;MXMSDIND;MSD IND;43;43;MSD2;6;;;;281
;;MXPRPYCD;PREMIUM PAY IND;44;44;PREMIUM;6;S:DATA=0 DATA="";;;548
9 ;;Group 9;5;8;X
;;MXSKILLS;SPECIALIZED SKILLS IND;1;1;MISC;5;;;;601
;;MXANNUIT;ANNUITANT IND;2;2;MISC;6;;;;602
;;MXVETSTATUS;VET STATUS;3;3;MISC;7;;;;603
;;MXEQAIND;LEVEL;4;4;MISC;8;;;;604
;;MXSCHID;SCHEDULE NUMBER;5;8;MISC;9;;;;605
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDEU01 3798 printed Dec 13, 2024@02:25:12 Page 2
PRSDEU01 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 1 LAYOUT ;7/7/93 14:16
+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 1;9
+1 ;;
1 ;;Group 1;3;13;X
+1 ;;MXSTANO;STATION NUMBER;1;3;0;7;;;;6
+2 ;;MXSSN;SSN;4;12;0;9;;;;8
+3 ;;MXSSNSUB;SSN SUFFIX;13;13;;;;;;
+4 ;;
2 ;;Group 2;7;35;X
+1 ;;MXNAME;EMPLOYEE NAME;1;27;0;1;S NAME450=$P(^PRSPC(IEN,0),"^",1) S:NAME450'=DATA ^TMP($J,"PRSNC",DATA,SSN)="old name: "_NAME450 K NAME450;;;.01
+2 ;;MXTITLE;SEX;28;28;0;32;;;;31
+3 ;;MXSUPLEV;SUPERVISORY LEVEL;29;29;0;40;;;;39
+4 ;;MXTLUNIT;T & L UNIT;30;32;0;8;S NODE="";;;7
+5 ;;MXCITIZ;CITIZENSHIP;33;33;0;5;;;;4
+6 ;;MXPERFCD;PERF/PROFCY RATING CODE;34;34;0;23;;;;22
+7 ;;MXMGTDEV;MPI PARTICIPATION IND;35;35;;;;;;
+8 ;;
3 ;;Group 3;3;3;X
+1 ;;MXINTPER;INTER-AGENCY LWOP IND;1;1;LWOP;2;;;;516
+2 ;;MXCENTRL;CENTRALIZED POSITION IND;2;2;1;6;;;;53
+3 ;;MXFIREFG;FIRE FIGHTER;3;3;1;12;;;;59
+4 ;;
4 ;;Group 4;3;3;X
+1 ;;MXMEDCOD;MEDICARE STATUS CODE;1;1;MEDICARE;7;;;;256
+2 ;;MXPRBAPP;PROBATIONARY APPOINTMENT IND;2;2;1;25;;;;72
+3 ;;MXPAYRTD;PAY RATE DETERMINANT;3;3;0;22;;;;21
+4 ;;
5 ;;Group 5;5;8;X
+1 ;;MXEIC;EARNED INCOME CREDIT CODE;1;1;MISC4;9;S:DATA=0 DATA="";;;448
+2 ;;MXDUTYST;DUTY STATION;2;3;1;42;;;;590
+3 ;;MXFLDSTA;STATION MAINTAINING OPF;4;6;0;37;;;;36
+4 ;;MXBULKCH;BULK CHECK OPTION;7;7;MISC4;4;;;;443
+5 ;;MXTEMPHB;TEMPORARY HEALTH INSURANCE IND;8;8;0;41;;;;40
+6 ;;
6 ;;Group 6;9;17;X
+1 ;;MXOPMSER/MXTITCOD;OCCUPATION SERIES & TITLE;1;6;0;17;D TITLE^PRSDUTIL;;;16
+2 ;;MXASSGCD;ASSIGNMENT;7;8;0;4;;;;3
+3 ;;MXPLAN;PAY PLAN;9;9;0;21;;;;20
+4 ;;MXPPLAN;PROPER PAY PLAN;10;10;1;27;;;;74
+5 ;;MXPAYBAS;PAY BASIS;11;11;0;20;;;;19
+6 ;;MXDTYBAS;DUTY BASIS;12;12;0;10;;;;9
+7 ;;MXNORMHR;8B NORMAL HOURS;13;15;0;16;D SIGN^PRSDUTIL,NH^PRSDUTIL;;;15
+8 ;;MXFTEEAJ;FTE EQUIVALENT;16;16;MISC4;11;D SIGN^PRSDUTIL,FTE^PRSDCOMP;;;450
+9 ;;MXTYPAPP;TYPE OF APPOINTMENT;17;17;0;43;;;;42
+10 ;;
7 ;;Group 7;12;68;X
+1 ;;MXGRADE;GRADE;1;2;0;14;;;;13
+2 ;;MXSTEPN;STEP;3;4;0;39;D STEP^PRSDUTIL;;;38
+3 ;;MXPGRADE;PROPER GRADE;5;6;1;26;;;;73
+4 ;;MXWIGELG;WGI ELIGIBILITY;7;7;0;45;;;;44
+5 ;;MXSALRPY;SALARY;8;16;0;29;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;28
+6 ;;MXSALRSC;SCHEDULED SALARY RATE;17;25;0;30;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;29
+7 ;;MXSALDAT;SALARY DATE;26;33;0;28;D DATE^PRSDUTIL;;;27
+8 ;;MXGAPAMT;GAP AMT;34;40;1;36;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;83
+9 ;;MXFRGBEN;PURCHASE AND HIRE CASH PAYMENT;41;47;MISC;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;533
+10 ;;MXPHYSPC;SPECIAL PAY ANNUAL AMT;48;56;T38;24;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;142
+11 ;;MXNTWYTD;FEDERAL NONTAXABLE WAGES YTD;57;65;FED;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;212
+12 ;;MXPREMPR;PREMIUM PAY PCT;66;68;PREMIUM;14;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;556
+13 ;;
8 ;;Group 8;13;44;X
+1 ;;MXNONPEM;NONPAY IND;1;1;1;20;;;;67
+2 ;;MXMONOWK;MONTHLY NON-WORK IND;2;2;1;14;;;;61
+3 ;;MXCHGYR;BASE PAY CHANGE YEAR;3;6;PAY;3;;;;536
+4 ;;MXCHGPP;BASE PAY CHANGE PPD;7;8;PAY;2;;;;535
+5 ;;MXFLSA;FLSA;9;9;0;12;;;;11
+6 ;;MXMAILCD;CHECK DISTRIBUTION CODE;10;10;MISC4;5;;;;444
+7 ;;MXBANKCD;BANK EFT ROUTING NUMBER;11;19;MISC4;3;;;;442
+8 ;;MXACCNO;BANK ACCOUNT NUMBER;20;36;MISC4;1;;;;440
+9 ;;MXTYPACC;BANK ACCOUNT TYPE;37;37;MISC4;2;;;;441
+10 ;;MXSTRES;RESIDENCE STATE;38;39;ADD;6;;;;186
+11 ;;MXAUOPCT;AUO PERCENT;40;42;PREMIUM;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;544
+12 ;;MXMSDIND;MSD IND;43;43;MSD2;6;;;;281
+13 ;;MXPRPYCD;PREMIUM PAY IND;44;44;PREMIUM;6;S:DATA=0 DATA="";;;548
9 ;;Group 9;5;8;X
+1 ;;MXSKILLS;SPECIALIZED SKILLS IND;1;1;MISC;5;;;;601
+2 ;;MXANNUIT;ANNUITANT IND;2;2;MISC;6;;;;602
+3 ;;MXVETSTATUS;VET STATUS;3;3;MISC;7;;;;603
+4 ;;MXEQAIND;LEVEL;4;4;MISC;8;;;;604
+5 ;;MXSCHID;SCHEDULE NUMBER;5;8;MISC;9;;;;605
