PRSDLD02.m

PRSDLD02 ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 2 LAYOUT ;09/10/2003

 ;;4.0;PAID;**82**;Sep 21, 1995

 F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD=""  D LDSET^PRSDSET

 Q

RECORD ;;Record 2;50

 ;;MXFLSA;FLSA CODE;0;12;;;;;;11

 ;;MXWANITE;NIGHT DIFFERENTIAL IND;PREMIUM;9;;;;;;551

 ;;MXMAILCD;CHECK DISTRIBUTION CODE;MISC4;5;;;;;;444

 ;;MXBANKCD;BANK EFT ROUTING NUMBER;MISC4;3;;;;;;442

 ;;MXACCNO;BANK ACCOUNT NUMBER;MISC4;1;;;;;;440

 ;;MXTYPACC;BANK ACCOUNT TYPE;MISC4;2;;;;;;441

 ;;MXSTRES;RESIDENCE STATE;ADD;6;;;;;;186

 ;;MXAUOPCT;AUO SALARY PERCENTAGE;PREMIUM;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;544

 ;;MXMSDIND;MSD IND;MSD2;6;;;;;;281

 ;;MXPRPYCD;PREMIUM PAY IND;PREMIUM;6;S:DATA=0 DATA="";;;;;548

 ;;MXFWSFLX;COMPRESSED/FLEXITIME CODE;1;7;S:DATA=0 DATA="";;;;;54

 ;;MXPTINT;PART TIME VHSRA INDICATOR;1;22;;;;;;69

 ;;MXWIG597;WGI VA FORM 5-97 ISSUED;0;47;;;;;;46

 ;;MXWIG50;WGI SF50 ISSUED;0;46;;;;;;45

 ;;MXPOSNO;POSITION NUMBER;0;24;;;;;;23

 ;;MXFUNCCD;FUNCTIONAL CODE;0;13;;;;;;12

 ;;MXORGCOD;LABOR DIST CODE-1 COST CTR/ORG;0;49;S MULT=1,MFLD=3 D ORGCC^PRSDUTIL,LD^PRSDUTIL;;;;;458

 ;;MXFUNDCP;LABOR DIST CODE-1 FUND CTRL POINT;MISC4;12;S MULT=1,MFLD=4 D LD^PRSDUTIL;;;;;451

 ;;MXSUBACT;SUB-ACCOUNT;0;19;;;;;;18

 ;;MXCOMPLV;COMPETITIVE LEVEL;0;38;;;;;;37

 ;;MXDOB;DATE OF BIRTH;0;33;D DATE^PRSDUTIL;;;;;32

 ;;MXSCD;SERVICE COMPUTATION DATE;0;31;D DATE^PRSDUTIL;;;;;30

 ;;MXAPPTDT;APPOINTMENT DATE;0;3;D DATE^PRSDUTIL;;;;;2

 ;;MXHICOD;FEHB ENROLLMENT CODE;FEHB;2;;;;;;231

 ;;MXHINXPP;FEHB NEXT PPD IND;FEHB;3;;;;;;232

 ;;MXHIFEP;FEHB PART-TIME PRORATION IND;FEHB;4;;;;;;233

 ;;MXHIELSR;FEHB SURVIVORS ELIGIBILITY IND;FEHB;5;;;;;;234

 ;;MXFEGLI;FEGLI CODE;FEGLI;4;;;;;;226

 ;;MXEDCODE;EDUCATION;0;11;;;;;;10

 ;;MXEDYRDG;YEAR OF DEGREE;0;48;S:DATA="0000" DATA="";;;;;47

 ;;MXEDCMAJ;INSTRUCTIONAL PROGRAM;0;6;;;;;;5

 ;;MXADDLI;ADDNL LIFE INSURANCE;0;2;S:DATA=0 DATA="";;;;;1

 ;;MXLVGRP;LEAVE GROUP;0;15;;;;;;14

 ;;MXLVRSTR;AL NON-ACCRUAL IND;ANNUAL;1;;;;;;460

 ;;MXLVNXPP;LEAVE ACCRUAL ELIG IND NPPD;ANNUAL;8;;;;;;467

 ;;MXANNBAL;ANNUAL LEAVE CURRENT BALANCE;ANNUAL;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;462

 ;;MXANNCRH;ANNUAL LEAVE CREDIT HOURS;ANNUAL;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;461

 ;;MXANNER;ANNUAL LEAVE EARNED LYTD;ANNUAL;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;463

 ;;MXANNUSE;ANNUAL LEAVE USED LYTD;ANNUAL;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;466

 ;;MXANEOPY;ANNUAL LEAVE EOPY BALANCE;ANNUAL;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;464

 ;;MXSICKBL;TOTAL SICK LEAVE BALANCE;SICK;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;510

 ;;MXSICKCR;TOTAL SICK LEAVE CREDIT HOURS;SICK;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;509

 ;;MXSICKER;TOTAL SICK LEAVE EARNED LYTD;SICK;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;511

 ;;MXSKUSE;TOTAL SICK LEAVE USED LYTD;SICK;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;514

 ;;MXSICKEP;TOTAL SICK LEAVE EOPY BALANCE;SICK;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;512

 ;;MXSKILLS;SPECIALIZED SKILLS IND;MISC;5;;;;;;601

 ;;MXANNUIT;ANNUITANT IND;MISC;6;;;;;;602

 ;;MXVETSTATUS;VET STATUS;MISC;7;;;;;;603

 ;;MXEQAIND;LEVEL;MISC;8;;;;;;604

 ;;MXSCHID;SCHEDULE NUMBER;MISC;9;;;;;;605

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDLD02   3114     printed  Apr 09, 2024@21:27:56                                                                                                                                                                                                    Page 2

PRSDLD02  ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 2 LAYOUT ;09/10/2003

 +1       ;;4.0;PAID;**82**;Sep 21, 1995

 +2        FOR CC=1:1

               SET FLD=$TEXT(RECORD+CC)

               if FLD=""

                   QUIT 

               DO LDSET^PRSDSET

 +3        QUIT 

RECORD    ;;Record 2;50

 +1       ;;MXFLSA;FLSA CODE;0;12;;;;;;11

 +2       ;;MXWANITE;NIGHT DIFFERENTIAL IND;PREMIUM;9;;;;;;551

 +3       ;;MXMAILCD;CHECK DISTRIBUTION CODE;MISC4;5;;;;;;444

 +4       ;;MXBANKCD;BANK EFT ROUTING NUMBER;MISC4;3;;;;;;442

 +5       ;;MXACCNO;BANK ACCOUNT NUMBER;MISC4;1;;;;;;440

 +6       ;;MXTYPACC;BANK ACCOUNT TYPE;MISC4;2;;;;;;441

 +7       ;;MXSTRES;RESIDENCE STATE;ADD;6;;;;;;186

 +8       ;;MXAUOPCT;AUO SALARY PERCENTAGE;PREMIUM;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;544

 +9       ;;MXMSDIND;MSD IND;MSD2;6;;;;;;281

 +10      ;;MXPRPYCD;PREMIUM PAY IND;PREMIUM;6;S:DATA=0 DATA="";;;;;548

 +11      ;;MXFWSFLX;COMPRESSED/FLEXITIME CODE;1;7;S:DATA=0 DATA="";;;;;54

 +12      ;;MXPTINT;PART TIME VHSRA INDICATOR;1;22;;;;;;69

 +13      ;;MXWIG597;WGI VA FORM 5-97 ISSUED;0;47;;;;;;46

 +14      ;;MXWIG50;WGI SF50 ISSUED;0;46;;;;;;45

 +15      ;;MXPOSNO;POSITION NUMBER;0;24;;;;;;23

 +16      ;;MXFUNCCD;FUNCTIONAL CODE;0;13;;;;;;12

 +17      ;;MXORGCOD;LABOR DIST CODE-1 COST CTR/ORG;0;49;S MULT=1,MFLD=3 D ORGCC^PRSDUTIL,LD^PRSDUTIL;;;;;458

 +18      ;;MXFUNDCP;LABOR DIST CODE-1 FUND CTRL POINT;MISC4;12;S MULT=1,MFLD=4 D LD^PRSDUTIL;;;;;451

 +19      ;;MXSUBACT;SUB-ACCOUNT;0;19;;;;;;18

 +20      ;;MXCOMPLV;COMPETITIVE LEVEL;0;38;;;;;;37

 +21      ;;MXDOB;DATE OF BIRTH;0;33;D DATE^PRSDUTIL;;;;;32

 +22      ;;MXSCD;SERVICE COMPUTATION DATE;0;31;D DATE^PRSDUTIL;;;;;30

 +23      ;;MXAPPTDT;APPOINTMENT DATE;0;3;D DATE^PRSDUTIL;;;;;2

 +24      ;;MXHICOD;FEHB ENROLLMENT CODE;FEHB;2;;;;;;231

 +25      ;;MXHINXPP;FEHB NEXT PPD IND;FEHB;3;;;;;;232

 +26      ;;MXHIFEP;FEHB PART-TIME PRORATION IND;FEHB;4;;;;;;233

 +27      ;;MXHIELSR;FEHB SURVIVORS ELIGIBILITY IND;FEHB;5;;;;;;234

 +28      ;;MXFEGLI;FEGLI CODE;FEGLI;4;;;;;;226

 +29      ;;MXEDCODE;EDUCATION;0;11;;;;;;10

 +30      ;;MXEDYRDG;YEAR OF DEGREE;0;48;S:DATA="0000" DATA="";;;;;47

 +31      ;;MXEDCMAJ;INSTRUCTIONAL PROGRAM;0;6;;;;;;5

 +32      ;;MXADDLI;ADDNL LIFE INSURANCE;0;2;S:DATA=0 DATA="";;;;;1

 +33      ;;MXLVGRP;LEAVE GROUP;0;15;;;;;;14

 +34      ;;MXLVRSTR;AL NON-ACCRUAL IND;ANNUAL;1;;;;;;460

 +35      ;;MXLVNXPP;LEAVE ACCRUAL ELIG IND NPPD;ANNUAL;8;;;;;;467

 +36      ;;MXANNBAL;ANNUAL LEAVE CURRENT BALANCE;ANNUAL;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;462

 +37      ;;MXANNCRH;ANNUAL LEAVE CREDIT HOURS;ANNUAL;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;461

 +38      ;;MXANNER;ANNUAL LEAVE EARNED LYTD;ANNUAL;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;463

 +39      ;;MXANNUSE;ANNUAL LEAVE USED LYTD;ANNUAL;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;466

 +40      ;;MXANEOPY;ANNUAL LEAVE EOPY BALANCE;ANNUAL;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;464

 +41      ;;MXSICKBL;TOTAL SICK LEAVE BALANCE;SICK;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;510

 +42      ;;MXSICKCR;TOTAL SICK LEAVE CREDIT HOURS;SICK;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;509

 +43      ;;MXSICKER;TOTAL SICK LEAVE EARNED LYTD;SICK;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;511

 +44      ;;MXSKUSE;TOTAL SICK LEAVE USED LYTD;SICK;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;514

 +45      ;;MXSICKEP;TOTAL SICK LEAVE EOPY BALANCE;SICK;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;;;512

 +46      ;;MXSKILLS;SPECIALIZED SKILLS IND;MISC;5;;;;;;601

 +47      ;;MXANNUIT;ANNUITANT IND;MISC;6;;;;;;602

 +48      ;;MXVETSTATUS;VET STATUS;MISC;7;;;;;;603

 +49      ;;MXEQAIND;LEVEL;MISC;8;;;;;;604

 +50      ;;MXSCHID;SCHEDULE NUMBER;MISC;9;;;;;;605