VistA-FOIAVistA/r/PAID-PRS/PRSDLD04.m

46 lines
2.5 KiB
Mathematica

PRSDLD04 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 4 LAYOUT ;7/1/93 09:18
;;4.0;PAID;;Sep 21, 1995
F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
Q
RECORD ;;Record 4;40
;;MXCTX-YTD-GROSS;CITY TAX-1 GROSS PAY YTD;CITY;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;194
;;MXSTX-PR-EXEMPTION;PUERTO RICO STATE TAX EXEMPT;STATE;1;D SIGN^PRSDUTIL S DATA=+DATA;;;;;372
;;MXVALTNO;VOLUNTARY ALLOTMENT-1 CTRL NO;VALLOT;3;;;;;;437
;;MXVALAMT;VOLUNTARY ALLOTMENT-1 AMT;VALLOT;1;D SIGN^PRSDUTIL S DATA=+DATA;;;;;435
;;MXCFCCOD;CFC CODE;CFC;2;;;;;;210
;;MXCFCBIW;CFC BIWEEKLY DEDUCTION;CFC;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;209
;;MXHRUNAL;UNIFORM ALLOWANCE HOURLY RATE;UNIFORM;3;D SIGN^PRSDUTIL S DATA=$E(DATA,1,4) D DDDD^PRSDUTIL;;;;;565
;;MXUNRID1;BUS CODE;1;5;;;;;;52
;;MXUNCOD1;UNION CODE-1;UNION;1;;;;;;428
;;MXUNDES1;UNION DUES-1 DEDUCTION EPPD;UNION;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;432
;;MXFLCD-1;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-1;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-2;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-2;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-3;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-3;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-4;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-4;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-5;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-5;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-6;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-6;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-7;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-7;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-8;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-8;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-9;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-9;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-10;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-10;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-11;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-11;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-12;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-12;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-13;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-13;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-14;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-14;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
;;MXFLCD-15;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
;;MXFLYD-15;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL