PRSDEU04.m

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 ---PRSDEU04   1880     printed  Apr 09, 2024@21:31:22                                                                                                                                                                                                    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