PRSDEU01.m

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 ---PRSDEU01   3798     printed  Apr 09, 2024@21:27:03                                                                                                                                                                                                    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