source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDEU04.m@ 623

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1PRSDEU04 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 4 LAYOUT ;5/28/93 13:04
2 ;;4.0;PAID;;Sep 21, 1995
3 F CC=1:1 S GRP=$T(@CC) Q:GRP="" S GRPVAL=$P(RCD,":",CC) I GRPVAL'="" S GNUM=$P(GRP,";",4),LTH=$P(GRP,";",5),PIC=$P(GRP,";",6) D:PIC=9 PIC9^PRSDUTIL F EE=1:1:GNUM S FLD=$T(@CC+EE) D EPTSET^PRSDSET
4 Q
5RECORD ;;Record 4;8
6 ;;
71 ;;Group 1;15;150;X
8 ;;MXFLCD-1;FOLLOWUP CODE-01;1;10;;;D ^PRSDFOLL
9 ;;MXFLCD-2;FOLLOWUP CODE-02;11;20;;;D ^PRSDFOLL
10 ;;MXFLCD-3;FOLLOWUP CODE-03;21;30;;;D ^PRSDFOLL
11 ;;MXFLCD-4;FOLLOWUP CODE-04;31;40;;;D ^PRSDFOLL
12 ;;MXFLCD-5;FOLLOWUP CODE-05;41;50;;;D ^PRSDFOLL
13 ;;MXFLCD-6;FOLLOWUP CODE-06;51;60;;;D ^PRSDFOLL
14 ;;MXFLCD-7;FOLLOWUP CODE-07;61;70;;;D ^PRSDFOLL
15 ;;MXFLCD-8;FOLLOWUP CODE-08;71;80;;;D ^PRSDFOLL
16 ;;MXFLCD-9;FOLLOWUP CODE-09;81;90;;;D ^PRSDFOLL
17 ;;MXFLCD-10;FOLLOWUP CODE-10;91;100;;;D ^PRSDFOLL
18 ;;MXFLCD-11;FOLLOWUP CODE-11;101;110;;;D ^PRSDFOLL
19 ;;MXFLCD-12;FOLLOWUP CODE-12;111;120;;;D ^PRSDFOLL
20 ;;MXFLCD-13;FOLLOWUP CODE-13;121;130;;;D ^PRSDFOLL
21 ;;MXFLCD-14;FOLLOWUP CODE-14;131;140;;;D ^PRSDFOLL
22 ;;MXFLCD-15;FOLLOWUP CODE-15;141;150;;;D ^PRSDFOLL
23 ;;
242 ;;Group 2;1;9;9
25 ;;MXMEDTXQ;MEDICARE AMT WITHHELD QTD;1;9;MEDICARE;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;251
26 ;;
273 ;;Group 3;1;9;9
28 ;;MXMEDTXY;MEDICARE AMT WITHHELD YTD;1;9;MEDICARE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;252
29 ;;
304 ;;Group 4;1;9;9
31 ;;MXMEDWGQ;GROSS PAY QTD;1;9;MEDICARE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;254
32 ;;
335 ;;Group 5;1;9;9
34 ;;MXMEDWGY;GROSS PAY YTD;1;9;MEDICARE;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;255
35 ;;
366 ;;Group 6;1;9;9
37 ;;MXFICTRF;OASDI WAGES PRIOR AGCY YTD;1;9;OASDI;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;299
38 ;;
397 ;;Group 7;1;9;9
40 ;;MXFICAQ;OASDI TAX AMT WITHHELD QTD;1;9;OASDI;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;291
41 ;;
428 ;;Group 8;1;9;9
43 ;;MXFICAYD;OASDI TAX AMT WITHHELD YTD;1;9;OASDI;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;292
Note: See TracBrowser for help on using the repository browser.