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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDEU04 1880 printed Dec 13, 2024@02:25:14 Page 2
PRSDEU04 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 4 LAYOUT ;5/28/93 13:04
+1 ;;4.0;PAID;;Sep 21, 1995
+2 FOR CC=1:1
SET GRP=$TEXT(@CC)
if GRP=""
QUIT
SET GRPVAL=$PIECE(RCD,":",CC)
IF GRPVAL'=""
SET GNUM=$PIECE(GRP,";",4)
SET LTH=$PIECE(GRP,";",5)
SET PIC=$PIECE(GRP,";",6)
if PIC=9
DO PIC9^PRSDUTIL
FOR EE=1:1:GNUM
SET FLD=$TEXT(@CC+EE)
DO EPTSET^PRSDSET
+3 QUIT
RECORD ;;Record 4;8
+1 ;;
1 ;;Group 1;15;150;X
+1 ;;MXFLCD-1;FOLLOWUP CODE-01;1;10;;;D ^PRSDFOLL
+2 ;;MXFLCD-2;FOLLOWUP CODE-02;11;20;;;D ^PRSDFOLL
+3 ;;MXFLCD-3;FOLLOWUP CODE-03;21;30;;;D ^PRSDFOLL
+4 ;;MXFLCD-4;FOLLOWUP CODE-04;31;40;;;D ^PRSDFOLL
+5 ;;MXFLCD-5;FOLLOWUP CODE-05;41;50;;;D ^PRSDFOLL
+6 ;;MXFLCD-6;FOLLOWUP CODE-06;51;60;;;D ^PRSDFOLL
+7 ;;MXFLCD-7;FOLLOWUP CODE-07;61;70;;;D ^PRSDFOLL
+8 ;;MXFLCD-8;FOLLOWUP CODE-08;71;80;;;D ^PRSDFOLL
+9 ;;MXFLCD-9;FOLLOWUP CODE-09;81;90;;;D ^PRSDFOLL
+10 ;;MXFLCD-10;FOLLOWUP CODE-10;91;100;;;D ^PRSDFOLL
+11 ;;MXFLCD-11;FOLLOWUP CODE-11;101;110;;;D ^PRSDFOLL
+12 ;;MXFLCD-12;FOLLOWUP CODE-12;111;120;;;D ^PRSDFOLL
+13 ;;MXFLCD-13;FOLLOWUP CODE-13;121;130;;;D ^PRSDFOLL
+14 ;;MXFLCD-14;FOLLOWUP CODE-14;131;140;;;D ^PRSDFOLL
+15 ;;MXFLCD-15;FOLLOWUP CODE-15;141;150;;;D ^PRSDFOLL
+16 ;;
2 ;;Group 2;1;9;9
+1 ;;MXMEDTXQ;MEDICARE AMT WITHHELD QTD;1;9;MEDICARE;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;251
+2 ;;
3 ;;Group 3;1;9;9
+1 ;;MXMEDTXY;MEDICARE AMT WITHHELD YTD;1;9;MEDICARE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;252
+2 ;;
4 ;;Group 4;1;9;9
+1 ;;MXMEDWGQ;GROSS PAY QTD;1;9;MEDICARE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;254
+2 ;;
5 ;;Group 5;1;9;9
+1 ;;MXMEDWGY;GROSS PAY YTD;1;9;MEDICARE;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;255
+2 ;;
6 ;;Group 6;1;9;9
+1 ;;MXFICTRF;OASDI WAGES PRIOR AGCY YTD;1;9;OASDI;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;299
+2 ;;
7 ;;Group 7;1;9;9
+1 ;;MXFICAQ;OASDI TAX AMT WITHHELD QTD;1;9;OASDI;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;291
+2 ;;
8 ;;Group 8;1;9;9
+1 ;;MXFICAYD;OASDI TAX AMT WITHHELD YTD;1;9;OASDI;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;292
