VistA-WorldVistAEHR/r/PAID-PRS/PRSDLD06.m

68 lines
3.9 KiB
Mathematica

PRSDLD06 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 6 LAYOUT ;04/03/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 6;62
;;MAAGEDAT;SPECIAL PAY AGREEMENT DATE;T38;25;D DATE^PRSDUTIL;;;;;143
;;MAAGELNG;SPECIAL PAY AGREEMENT LENGTH;T38;26;;;;;;144
;;MAC7FUE1;FUNCTIONAL EXPERIENCE 1;PCD;5;S:DATA=0 DATA="";;;;;172
;;MAC7FUE2;FUNCTIONAL EXPERIENCE 2;PCD;6;S:DATA=0 DATA="";;;;;173
;;MASPPAYC;SPECIAL CALC INDICATOR;T38;31;;;;;;149
;;MADPCC1;DIPLOMATE;T38;21;S:DATA="00" DATA="";;;;;139
;;MADPCC2;ADDL DIPLOMATE SPECIALTY A;T38;2;S:DATA="00" DATA="";;;;;120
;;MADPCC3;ADDL DIPLOMATE SPECIALTY B;T38;14;S:DATA="00" DATA="";;;;;132
;;MAANVERP;ANNUAL REVIEW IND;T38;4;;;;;;122
;;MABRDCD1;BOARD ELIGIBLE SPECIALTY A;T38;5;S:DATA="00" DATA="";;;;;123
;;MABRDCD2;BOARD ELIGIBLE SPECIALTY B;T38;6;S:DATA="00" DATA="";;;;;124
;;MAACDTIT;ACADEMIC TITLE;T38;1;S:DATA=0 DATA="";;;;;119
;;MACBRTH;COUNTRY OF BIRTH;T38;9;;;;;;127
;;MACMEDD;COUNTRY OF MEDICAL SCHOOL;T38;10;;;;;;128
;;MACPOST;COUNTRY OF POST GR TRAINING;T38;11;;;;;;129
;;MAQLDATE;SPECIAL PAY AGREEMENT QUAL APT;T38;27;;;;;;145
;;MAQLCURR;SPECIAL PAY AGREEMENT QUAL CUR;T38;28;;;;;;146
;;MACEDDAT;CONTINUING EDUC CODE (AT APPT);T38;7;;;;;;125
;;MACEDCUR;CONTINUING EDUC CODE (CURRENT);T38;8;;;;;;126
;;MANAGDAT;NO AGREEMENT REASON (AT APPT);T38;16;;;;;;134
;;MANAGCUR;NO AGREEMENT REASON (CURRENT);T38;17;;;;;;135
;;MAPRVAST;PRIOR VA EXPERIENCE (S/I/R);PVAE;;D PVAE^PRSDUTIL;;;;;
;;MAPRVAOT;PRIOR VA EXPERIENCE (OTHER);PVAE;;D PVAE^PRSDUTIL;;;;;
;;MAADVTEN;ANNUAL TENURE CHANGE;T38;3;;;;;;121
;;MAPPOSRF;POSITION PREFERENCE;PCD;9;;;;;;176
;;MAPGEO1;GEOGRAPHIC PREFERENCE 1;PCD;7;;;;;;174
;;MAPGEO2;GEOGRAPHIC PREFERENCE 2;PCD;8;;;;;;175
;;MAPDATEA;DATE AVAILABLE;PCD;4;D DATE^PRSDUTIL;;;;;171
;;MAPDATAS;DATE ASSIGNED PRESENT POSITION;PCD;3;D DATE^PRSDUTIL;;;;;170
;;MAPSTAT;STATUS CODE;PCD;12;S:DATA=2 DATA="";;;;;179
;;MARETPAY;SPECIAL PAY RET DED;T38;29;;;;;;147
;;MAC7SPPG;SPECIAL PROGRAM;PCD;10;S:DATA=0 DATA="";;;;;177
;;MAC7YRCM;YEAR COMPLETED;PCD;11;S:DATA="0000" DATA="";;;;;178
;;MAC7TRPG;TRAINING PROGRAM;PCD;13;S:DATA=0 DATA="";;;;;180
;;MBMNAUN;MONTHLY ANNUITY;MISC4;17;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;456
;;MBSLCODE;LIMITATION CODE;1;29;S:DATA=0 DATA="";;;;;76
;;MBSLHRD;HOURS/SALARY LIMITATION;1;31;D SIGN^PRSDUTIL S DATA=+DATA;;;;;78
;;MBSLHRDA;LIMITATION HOURS TO DATE;1;32;D SIGN^PRSDUTIL S DATA=+DATA;;;;;79
;;MBSLANNV;LIMITATION EXP DATE;1;30;D DATE^PRSDUTIL;;;;;77
;;MBUNCOD2;UNION CODE-2;UNION;2;;;;;;429
;;MBUNDES2;UNION DUES-2 DEDUCTION EPPD;UNION;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;434
;;MBQTRCOD;QUARTERS CODE;QSGP;6;D SIGN^PRSDUTIL;;;;;323
;;MBQTRDED;QUARTERS DEDUCTION EPPD;QSGP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;324
;;MBQTRQS;QUARTERS STATION;QSGP;9;;;;;;326
;;MBSUBSIS;SUBSISTANCE DEDUCTION EPPD;QSGP;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;328
;;MBGARAGE;GARAGE DEDUCTION EPPD;QSGP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;319
;;MBPARK;PARKING DEDUCTION EPPD;QSGP;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;322
;;MBSTATFR;VA STATION TRANSFERRED FROM;1;40;;;;;;87
;;MBSEPAR;SEPARATION IND;1;33;D SEPIND^PRSDMISC;;;;;80
;;MBAPDISB;DISABILITY RETIREMENT;1;11;;;;;;58
;;MBBECBEN;OWCP BENEFICIARY IND;1;21;;;;;;68
;;MBSACODE;ACCESSION/SEPARATION CODE;1;1;;;;;;48
;;MBSADATE;ACCESSION/SEPARATION EFF DATE;1;2;D DATE^PRSDUTIL,ACCSEP^PRSDMISC;;;;;49
;;MBSANOAC;ACCESSION/SEPARATION NOA CODE;1;3;;;;;;50
;;MBSAELG;RETIREMENT ANN SURV ELIG CODE;1;28;;;;;;75
;;MBFINPAY;FINAL PAY IND;MISC4;10;;;;;;449
;;MBPRBSUP;SUPV APPT PROBATION PERIOD IND;1;37;;;;;;84
;;MBPRBSES;SES APPT PROBATION PERIOD IND;1;34;;;;;;81
;;MCSTX-GSACODE;STATE TAX-2 GSA CODE;STATE;21;;;;;;392
;;MCSTX-MARITAL-STATUS;STATE TAX-2 MARITAL STATUS;STATE;22;;;;;;393
;;MCSTX-RESIDENCE;STATE TAX-2 RESIDENCE STATE;STATE;23;;;;;;394
;;MCSTX-EXEMPTION-1;STATE TAX-2 EXEMPTION CODE-1;STATE;17;D SIGN^PRSDUTIL,D^PRSDUTIL S DATA=+DATA;;;;;388