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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDLD04 2596 printed Dec 13, 2024@02:25:30 Page 2
PRSDLD04 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 4 LAYOUT ;7/1/93 09:18
+1 ;;4.0;PAID;;Sep 21, 1995
+2 FOR CC=1:1
SET FLD=$TEXT(RECORD+CC)
if FLD=""
QUIT
DO LDSET^PRSDSET
+3 QUIT
RECORD ;;Record 4;40
+1 ;;MXCTX-YTD-GROSS;CITY TAX-1 GROSS PAY YTD;CITY;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;194
+2 ;;MXSTX-PR-EXEMPTION;PUERTO RICO STATE TAX EXEMPT;STATE;1;D SIGN^PRSDUTIL S DATA=+DATA;;;;;372
+3 ;;MXVALTNO;VOLUNTARY ALLOTMENT-1 CTRL NO;VALLOT;3;;;;;;437
+4 ;;MXVALAMT;VOLUNTARY ALLOTMENT-1 AMT;VALLOT;1;D SIGN^PRSDUTIL S DATA=+DATA;;;;;435
+5 ;;MXCFCCOD;CFC CODE;CFC;2;;;;;;210
+6 ;;MXCFCBIW;CFC BIWEEKLY DEDUCTION;CFC;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;209
+7 ;;MXHRUNAL;UNIFORM ALLOWANCE HOURLY RATE;UNIFORM;3;D SIGN^PRSDUTIL S DATA=$E(DATA,1,4) D DDDD^PRSDUTIL;;;;;565
+8 ;;MXUNRID1;BUS CODE;1;5;;;;;;52
+9 ;;MXUNCOD1;UNION CODE-1;UNION;1;;;;;;428
+10 ;;MXUNDES1;UNION DUES-1 DEDUCTION EPPD;UNION;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;432
+11 ;;MXFLCD-1;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+12 ;;MXFLYD-1;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+13 ;;MXFLCD-2;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+14 ;;MXFLYD-2;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+15 ;;MXFLCD-3;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+16 ;;MXFLYD-3;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+17 ;;MXFLCD-4;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+18 ;;MXFLYD-4;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+19 ;;MXFLCD-5;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+20 ;;MXFLYD-5;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+21 ;;MXFLCD-6;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+22 ;;MXFLYD-6;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+23 ;;MXFLCD-7;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+24 ;;MXFLYD-7;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+25 ;;MXFLCD-8;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+26 ;;MXFLYD-8;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+27 ;;MXFLCD-9;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+28 ;;MXFLYD-9;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+29 ;;MXFLCD-10;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+30 ;;MXFLYD-10;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+31 ;;MXFLCD-11;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+32 ;;MXFLYD-11;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+33 ;;MXFLCD-12;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+34 ;;MXFLYD-12;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+35 ;;MXFLCD-13;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+36 ;;MXFLYD-13;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+37 ;;MXFLCD-14;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+38 ;;MXFLYD-14;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
+39 ;;MXFLCD-15;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
+40 ;;MXFLYD-15;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
