source: FOIAVistA/tag/r/PAID-PRS/PRSDEU04.m@ 628

PRSDEU04 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 4 LAYOUT ;5/28/93  13:04
 ;;4.0;PAID;;Sep 21, 1995
 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
 Q
RECORD ;;Record 4;8
 ;;
1 ;;Group 1;15;150;X
 ;;MXFLCD-1;FOLLOWUP CODE-01;1;10;;;D ^PRSDFOLL
 ;;MXFLCD-2;FOLLOWUP CODE-02;11;20;;;D ^PRSDFOLL
 ;;MXFLCD-3;FOLLOWUP CODE-03;21;30;;;D ^PRSDFOLL
 ;;MXFLCD-4;FOLLOWUP CODE-04;31;40;;;D ^PRSDFOLL
 ;;MXFLCD-5;FOLLOWUP CODE-05;41;50;;;D ^PRSDFOLL
 ;;MXFLCD-6;FOLLOWUP CODE-06;51;60;;;D ^PRSDFOLL
 ;;MXFLCD-7;FOLLOWUP CODE-07;61;70;;;D ^PRSDFOLL
 ;;MXFLCD-8;FOLLOWUP CODE-08;71;80;;;D ^PRSDFOLL
 ;;MXFLCD-9;FOLLOWUP CODE-09;81;90;;;D ^PRSDFOLL
 ;;MXFLCD-10;FOLLOWUP CODE-10;91;100;;;D ^PRSDFOLL
 ;;MXFLCD-11;FOLLOWUP CODE-11;101;110;;;D ^PRSDFOLL
 ;;MXFLCD-12;FOLLOWUP CODE-12;111;120;;;D ^PRSDFOLL
 ;;MXFLCD-13;FOLLOWUP CODE-13;121;130;;;D ^PRSDFOLL
 ;;MXFLCD-14;FOLLOWUP CODE-14;131;140;;;D ^PRSDFOLL
 ;;MXFLCD-15;FOLLOWUP CODE-15;141;150;;;D ^PRSDFOLL
 ;;
2 ;;Group 2;1;9;9
 ;;MXMEDTXQ;MEDICARE AMT WITHHELD QTD;1;9;MEDICARE;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;251
 ;;
3 ;;Group 3;1;9;9
 ;;MXMEDTXY;MEDICARE AMT WITHHELD YTD;1;9;MEDICARE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;252
 ;;
4 ;;Group 4;1;9;9
 ;;MXMEDWGQ;GROSS PAY QTD;1;9;MEDICARE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;254
 ;;
5 ;;Group 5;1;9;9
 ;;MXMEDWGY;GROSS PAY YTD;1;9;MEDICARE;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;255
 ;;
6 ;;Group 6;1;9;9
 ;;MXFICTRF;OASDI WAGES PRIOR AGCY YTD;1;9;OASDI;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;299
 ;;
7 ;;Group 7;1;9;9
 ;;MXFICAQ;OASDI TAX AMT WITHHELD QTD;1;9;OASDI;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;291
 ;;
8 ;;Group 8;1;9;9
 ;;MXFICAYD;OASDI TAX AMT WITHHELD YTD;1;9;OASDI;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;292