source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDLD04.m@ 634

Last change on this file since 634 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.5 KB
RevLine 
[613]1PRSDLD04 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 4 LAYOUT ;7/1/93 09:18
2 ;;4.0;PAID;;Sep 21, 1995
3 F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
4 Q
5RECORD ;;Record 4;40
6 ;;MXCTX-YTD-GROSS;CITY TAX-1 GROSS PAY YTD;CITY;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;194
7 ;;MXSTX-PR-EXEMPTION;PUERTO RICO STATE TAX EXEMPT;STATE;1;D SIGN^PRSDUTIL S DATA=+DATA;;;;;372
8 ;;MXVALTNO;VOLUNTARY ALLOTMENT-1 CTRL NO;VALLOT;3;;;;;;437
9 ;;MXVALAMT;VOLUNTARY ALLOTMENT-1 AMT;VALLOT;1;D SIGN^PRSDUTIL S DATA=+DATA;;;;;435
10 ;;MXCFCCOD;CFC CODE;CFC;2;;;;;;210
11 ;;MXCFCBIW;CFC BIWEEKLY DEDUCTION;CFC;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;209
12 ;;MXHRUNAL;UNIFORM ALLOWANCE HOURLY RATE;UNIFORM;3;D SIGN^PRSDUTIL S DATA=$E(DATA,1,4) D DDDD^PRSDUTIL;;;;;565
13 ;;MXUNRID1;BUS CODE;1;5;;;;;;52
14 ;;MXUNCOD1;UNION CODE-1;UNION;1;;;;;;428
15 ;;MXUNDES1;UNION DUES-1 DEDUCTION EPPD;UNION;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;432
16 ;;MXFLCD-1;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
17 ;;MXFLYD-1;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
18 ;;MXFLCD-2;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
19 ;;MXFLYD-2;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
20 ;;MXFLCD-3;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
21 ;;MXFLYD-3;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
22 ;;MXFLCD-4;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
23 ;;MXFLYD-4;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
24 ;;MXFLCD-5;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
25 ;;MXFLYD-5;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
26 ;;MXFLCD-6;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
27 ;;MXFLYD-6;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
28 ;;MXFLCD-7;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
29 ;;MXFLYD-7;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
30 ;;MXFLCD-8;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
31 ;;MXFLYD-8;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
32 ;;MXFLCD-9;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
33 ;;MXFLYD-9;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
34 ;;MXFLCD-10;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
35 ;;MXFLYD-10;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
36 ;;MXFLCD-11;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
37 ;;MXFLYD-11;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
38 ;;MXFLCD-12;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
39 ;;MXFLYD-12;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
40 ;;MXFLCD-13;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
41 ;;MXFLYD-13;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
42 ;;MXFLCD-14;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
43 ;;MXFLYD-14;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
44 ;;MXFLCD-15;FOLLOWUP CODE;;;S F=DATA D:F="DT" ^PRSDFOLL
45 ;;MXFLYD-15;FOLLOWUP DATE;;;S DATA=F_DATA D ^PRSDFOLL
Note: See TracBrowser for help on using the repository browser.