- PRSDEU02 ;HISC/MGD-PAID EDIT AND UPDATE DOWNLOAD RECORD 2 LAYOUT ;09/10/2003
- ;;4.0;PAID;**48,82**;Sep 21, 1995
- ;
- ;3/29/99 - llh - Changes made to Group 4, FEGLI code from 1 char to 2
- ;and from being in the first position to the 15 & 16. Total length of
- ;data in the group changed from 14 to 16. By SR#99-119.
- ;
- 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 2;17
- ;;
- 1 ;;Group 1;11;28;X
- ;;MXFWSFLX;COMPRESSED/FLEXITIME CODE;1;1;1;7;S:DATA=0 DATA="";;;54
- ;;MXPTINT;PART TIME VHA IND;2;2;1;22;;;;69
- ;;MXWIG597;WGI VA FORM 5-97 ISSUED;3;3;0;47;;;;46
- ;;MXWIG50;WGI SF50 ISSUED;4;4;0;46;;;;45
- ;;MXPOSNO;POSITION NUMBER;5;10;0;24;;;;23
- ;;MXFUNCCD;FUNCTIONAL CODE;11;12;0;13;;;;12
- ;;MXORGCOD;LABOR DIST CODE-1 COST CENTER;13;16;0;18;;;;17
- ;;MXORGCOD;LABOR DIST CODE-1 COST CTR/ORG;13;20;0;49;S MULT=1,MFLD=3 D ORGCC^PRSDUTIL,LD^PRSDUTIL;;;458
- ;;MXFUNDCP;LABOR DIST CODE-1 FUND CTRL POINT;21;23;MISC4;12;S MULT=1,MFLD=4 D LD^PRSDUTIL;;;451
- ;;MXSUBACT;SUBACCT CODE;24;25;0;19;;;;18
- ;;MXCOMPLV;COMPETITIVE LEVEL;26;28;0;38;;;;37
- ;;
- 2 ;;Group 2;4;27;X
- ;;MXDOB;DATE OF BIRTH;1;8;0;33;D DATE^PRSDUTIL;;;32
- ;;MXSCD;SERVICE COMPUTATION DATE;9;16;0;31;D DATE^PRSDUTIL;;;30
- ;;MXAPPTDT;STATION EOD;17;24;0;3;D DATE^PRSDUTIL;;;2
- ;;MXHICOD;HEALTH INSURANCE;25;27;FEHB;2;;;;231
- ;;
- 3 ;;Group 3;3;3;X
- ;;MXHINXPP;HEALTH BENEFITS NEXT PPD IND;1;1;FEHB;3;;;;232
- ;;MXHIFEP;HEALTH BENEFITS PRORATION IND;2;2;FEHB;4;;;;233
- ;;MXHIELSR;HEALTH BENEFITS ELIGIBILITY;3;3;FEHB;5;;;;234
- ;;
- 4 ;;Group 4;5;16;X
- ;;MXFEGLI;FEGLI CODE;15;16;FEGLI;4;;;;226
- ;;MXEDCODE;EDUCATION;2;2;0;11;;;;10
- ;;MXEDYRDG;YEAR OF DEGREE;4;7;0;48;S:DATA="0000" DATA="";;;47
- ;;MXEDCMAJ;INSTRUCTIONAL PROGRAM;8;13;0;6;;;;5
- ;;MXADDLI;ADDNL LIFE INSURANCE;14;14;0;2;S:DATA=0 DATA="";;;1
- ;;
- 5 ;;Group 5;3;3;X
- ;;MXLVGRP;LEAVE GROUP;1;1;0;15;;;;14
- ;;MXLVRSTR;AL NON-ACCRUAL IND;2;2;ANNUAL;1;;;;460
- ;;MXLVNXPP;LEAVE ACCRUAL ELIG IND NPPD;3;3;ANNUAL;8;;;;467
- ;;
- 6 ;;Group 6;1;7;9
- ;;MXANNBAL;ANNUAL LEAVE CURRENT BALANCE;1;7;ANNUAL;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;462
- ;;
- 7 ;;Group 7;1;5;9
- ;;MXANNCRH;ANNUAL LEAVE CREDIT HOURS;1;5;ANNUAL;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;461
- ;;
- 8 ;;Group 8;1;7;9
- ;;MXANNER;ANNUAL LEAVE EARNED LYTD;1;7;ANNUAL;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;463
- ;;
- 9 ;;Group 9;1;7;9
- ;;MXANNUSE;ANNUAL LEAVE USED LYTD;1;7;ANNUAL;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;466
- ;;
- 10 ;;Group 10;1;7;9
- ;;MXANEOPY;ANNUAL LEAVE EOPY BALANCE;1;7;ANNUAL;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;464
- ;;
- 11 ;;Group 11;1;7;9
- ;;MXSICKBL;TOTAL SICK LEAVE BALANCE;1;7;SICK;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;510
- ;;
- 12 ;;Group 12;1;5;9
- ;;MXSICKCR;TOTAL SICK LEAVE CREDIT HOURS;1;5;SICK;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;509
- ;;
- 13 ;;Group 13;1;7;9
- ;;MXSICKER;TOTAL SICK LEAVE EARNED LYTD;1;7;SICK;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;511
- ;;
- 14 ;;Group 14;1;7;9
- ;;MXSKUSE;TOTAL SICK LEAVE USED LYTD;1;7;SICK;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;514
- ;;
- 15 ;;Group 15;1;7;9
- ;;MXSICKEP;TOTAL SICK LEAVE EOPY BALANCE;1;7;SICK;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;512
- ;;
- 16 ;;Group 16;7;28;X
- ;;MXUDADTE;UNION DUES ANNIVERSARY DATE;1;8;UNION;3;D DATE^PRSDUTIL;;;430
- ;;MXUAADTE;UNIFORM ALLOWANCE EFF DATE;9;16;UNIFORM;2;D DATE^PRSDUTIL;;;564
- ;;MXRETMIL;RETIRED MILITARY;17;17;1;17;;;;64
- ;;MXVETPRF;VETERANS PREFERENCE;18;18;0;44;;;;43
- ;;MXMEDMOS;MEDICAL MOS;19;19;1;16;S:DATA=0 DATA="";;;63
- ;;MXUPMOB;UPWARD MOBILITY;20;20;1;38;S:DATA=0 DATA="";;;85
- ;;MXUPDTE;UPWARD MOBILITY DATE;21;28;1;39;D DATE^PRSDUTIL;;;86
- ;;
- 17 ;;Group 17;7;20;X
- ;;MXPRPFC1;PRIOR PERFORMANCE 1;1;1;0;25;;;;24
- ;;MXPRPFC2;PRIOR PERFORMANCE 2;2;2;0;26;;;;25
- ;;MXAPTAU1;CURRENT APPT AUTH 1;3;5;1;9;;;;56
- ;;MXAPTAU2;CURRENT APPT AUTH 2;6;8;1;10;;;;57
- ;;MXCRMILS;CREDITABLE MILITARY SERVICE;9;12;1;8;S:DATA="0000" DATA="";;;55
- ;;MXFERFSL;FROZEN SICK LEAVE;13;19;SICK;1;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;508
- ;;MXMSTAT;MARITAL STATUS;20;20;FED;11;;;;222
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDEU02 4143 printed Jan 18, 2025@03:26:23 Page 2
- PRSDEU02 ;HISC/MGD-PAID EDIT AND UPDATE DOWNLOAD RECORD 2 LAYOUT ;09/10/2003
- +1 ;;4.0;PAID;**48,82**;Sep 21, 1995
- +2 ;
- +3 ;3/29/99 - llh - Changes made to Group 4, FEGLI code from 1 char to 2
- +4 ;and from being in the first position to the 15 & 16. Total length of
- +5 ;data in the group changed from 14 to 16. By SR#99-119.
- +6 ;
- +7 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
- +8 QUIT
- RECORD ;;Record 2;17
- +1 ;;
- 1 ;;Group 1;11;28;X
- +1 ;;MXFWSFLX;COMPRESSED/FLEXITIME CODE;1;1;1;7;S:DATA=0 DATA="";;;54
- +2 ;;MXPTINT;PART TIME VHA IND;2;2;1;22;;;;69
- +3 ;;MXWIG597;WGI VA FORM 5-97 ISSUED;3;3;0;47;;;;46
- +4 ;;MXWIG50;WGI SF50 ISSUED;4;4;0;46;;;;45
- +5 ;;MXPOSNO;POSITION NUMBER;5;10;0;24;;;;23
- +6 ;;MXFUNCCD;FUNCTIONAL CODE;11;12;0;13;;;;12
- +7 ;;MXORGCOD;LABOR DIST CODE-1 COST CENTER;13;16;0;18;;;;17
- +8 ;;MXORGCOD;LABOR DIST CODE-1 COST CTR/ORG;13;20;0;49;S MULT=1,MFLD=3 D ORGCC^PRSDUTIL,LD^PRSDUTIL;;;458
- +9 ;;MXFUNDCP;LABOR DIST CODE-1 FUND CTRL POINT;21;23;MISC4;12;S MULT=1,MFLD=4 D LD^PRSDUTIL;;;451
- +10 ;;MXSUBACT;SUBACCT CODE;24;25;0;19;;;;18
- +11 ;;MXCOMPLV;COMPETITIVE LEVEL;26;28;0;38;;;;37
- +12 ;;
- 2 ;;Group 2;4;27;X
- +1 ;;MXDOB;DATE OF BIRTH;1;8;0;33;D DATE^PRSDUTIL;;;32
- +2 ;;MXSCD;SERVICE COMPUTATION DATE;9;16;0;31;D DATE^PRSDUTIL;;;30
- +3 ;;MXAPPTDT;STATION EOD;17;24;0;3;D DATE^PRSDUTIL;;;2
- +4 ;;MXHICOD;HEALTH INSURANCE;25;27;FEHB;2;;;;231
- +5 ;;
- 3 ;;Group 3;3;3;X
- +1 ;;MXHINXPP;HEALTH BENEFITS NEXT PPD IND;1;1;FEHB;3;;;;232
- +2 ;;MXHIFEP;HEALTH BENEFITS PRORATION IND;2;2;FEHB;4;;;;233
- +3 ;;MXHIELSR;HEALTH BENEFITS ELIGIBILITY;3;3;FEHB;5;;;;234
- +4 ;;
- 4 ;;Group 4;5;16;X
- +1 ;;MXFEGLI;FEGLI CODE;15;16;FEGLI;4;;;;226
- +2 ;;MXEDCODE;EDUCATION;2;2;0;11;;;;10
- +3 ;;MXEDYRDG;YEAR OF DEGREE;4;7;0;48;S:DATA="0000" DATA="";;;47
- +4 ;;MXEDCMAJ;INSTRUCTIONAL PROGRAM;8;13;0;6;;;;5
- +5 ;;MXADDLI;ADDNL LIFE INSURANCE;14;14;0;2;S:DATA=0 DATA="";;;1
- +6 ;;
- 5 ;;Group 5;3;3;X
- +1 ;;MXLVGRP;LEAVE GROUP;1;1;0;15;;;;14
- +2 ;;MXLVRSTR;AL NON-ACCRUAL IND;2;2;ANNUAL;1;;;;460
- +3 ;;MXLVNXPP;LEAVE ACCRUAL ELIG IND NPPD;3;3;ANNUAL;8;;;;467
- +4 ;;
- 6 ;;Group 6;1;7;9
- +1 ;;MXANNBAL;ANNUAL LEAVE CURRENT BALANCE;1;7;ANNUAL;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;462
- +2 ;;
- 7 ;;Group 7;1;5;9
- +1 ;;MXANNCRH;ANNUAL LEAVE CREDIT HOURS;1;5;ANNUAL;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;461
- +2 ;;
- 8 ;;Group 8;1;7;9
- +1 ;;MXANNER;ANNUAL LEAVE EARNED LYTD;1;7;ANNUAL;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;463
- +2 ;;
- 9 ;;Group 9;1;7;9
- +1 ;;MXANNUSE;ANNUAL LEAVE USED LYTD;1;7;ANNUAL;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;466
- +2 ;;
- 10 ;;Group 10;1;7;9
- +1 ;;MXANEOPY;ANNUAL LEAVE EOPY BALANCE;1;7;ANNUAL;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;464
- +2 ;;
- 11 ;;Group 11;1;7;9
- +1 ;;MXSICKBL;TOTAL SICK LEAVE BALANCE;1;7;SICK;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;510
- +2 ;;
- 12 ;;Group 12;1;5;9
- +1 ;;MXSICKCR;TOTAL SICK LEAVE CREDIT HOURS;1;5;SICK;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;509
- +2 ;;
- 13 ;;Group 13;1;7;9
- +1 ;;MXSICKER;TOTAL SICK LEAVE EARNED LYTD;1;7;SICK;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;511
- +2 ;;
- 14 ;;Group 14;1;7;9
- +1 ;;MXSKUSE;TOTAL SICK LEAVE USED LYTD;1;7;SICK;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;514
- +2 ;;
- 15 ;;Group 15;1;7;9
- +1 ;;MXSICKEP;TOTAL SICK LEAVE EOPY BALANCE;1;7;SICK;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;512
- +2 ;;
- 16 ;;Group 16;7;28;X
- +1 ;;MXUDADTE;UNION DUES ANNIVERSARY DATE;1;8;UNION;3;D DATE^PRSDUTIL;;;430
- +2 ;;MXUAADTE;UNIFORM ALLOWANCE EFF DATE;9;16;UNIFORM;2;D DATE^PRSDUTIL;;;564
- +3 ;;MXRETMIL;RETIRED MILITARY;17;17;1;17;;;;64
- +4 ;;MXVETPRF;VETERANS PREFERENCE;18;18;0;44;;;;43
- +5 ;;MXMEDMOS;MEDICAL MOS;19;19;1;16;S:DATA=0 DATA="";;;63
- +6 ;;MXUPMOB;UPWARD MOBILITY;20;20;1;38;S:DATA=0 DATA="";;;85
- +7 ;;MXUPDTE;UPWARD MOBILITY DATE;21;28;1;39;D DATE^PRSDUTIL;;;86
- +8 ;;
- 17 ;;Group 17;7;20;X
- +1 ;;MXPRPFC1;PRIOR PERFORMANCE 1;1;1;0;25;;;;24
- +2 ;;MXPRPFC2;PRIOR PERFORMANCE 2;2;2;0;26;;;;25
- +3 ;;MXAPTAU1;CURRENT APPT AUTH 1;3;5;1;9;;;;56
- +4 ;;MXAPTAU2;CURRENT APPT AUTH 2;6;8;1;10;;;;57
- +5 ;;MXCRMILS;CREDITABLE MILITARY SERVICE;9;12;1;8;S:DATA="0000" DATA="";;;55
- +6 ;;MXFERFSL;FROZEN SICK LEAVE;13;19;SICK;1;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;508
- +7 ;;MXMSTAT;MARITAL STATUS;20;20;FED;11;;;;222