Routine: PRSDLD04

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

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  Feb 18, 2025@23:52:02                                                                                                                                                                                                    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

PRSDLD04.m