PRSDEU08.m

PRSDEU08 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 8 LAYOUT ;6/16/93  11:07

 ;;4.0;PAID;**34**;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 8;7

 ;;

1 ;;Group 1;1;23;X

 ;;MGCKAD1;CHECK MAILING ADDRESS LINE 1;1;23;ADD;1;;;;181

 ;;

2 ;;Group 2;1;23;X

 ;;MGCKAD2;CHECK MAILING ADDRESS LINE 2;1;23;ADD;2;;;;182

 ;;

3 ;;Group 3;2;25;X

 ;;MGCKAD3;CHECK MAILING ADDRESS LINE 3;1;16;ADD;3;;;;183

 ;;MGCKZIP;CHECK MAILING ADDRESS ZIP CODE;17;25;ADD;4;D ZIP^PRSDUTIL;;;184

 ;;

4 ;;Group 4;3;10;X

 ;;MGVALTNO;VOLUNTARY ALLOTMENT-2 CTRL NO;1;4;VALLOT;5;;;;439

 ;;MGVALAMT;VOLUNTARY ALLOTMENT-2 AMT;5;9;VALLOT;4;D SIGN^PRSDUTIL S DATA=+DATA;;;438

 ;;MGELOPCD;EARNINGS & LEAVE OPTION;10;10;ADD;5;;;;185

 ;;

5 ;;Group 5;12;34;9

 ;;MLVCS6SB;VCS 601 COST ACCOUNT SUBCODE;1;1;VCS;6;D SIGN^PRSDUTIL;;;571

 ;;MLVCS301;VCS 301 COST ACCOUNT;2;4;VCS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;566

 ;;MLVCS302;VCS 302 COST ACCOUNT;5;7;VCS;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;567

 ;;MLVCS303;VCS 303 COST ACCOUNT;8;10;VCS;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;568

 ;;MLVCS304;VCS 304 COST ACCOUNT;11;13;VCS;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;569

 ;;MLVCS701;VCS 701 COST ACCOUNT;14;16;VCS;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;572

 ;;MLVCS702;VCS 702 COST ACCOUNT;17;19;VCS;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;573

 ;;MLVCS703;VCS 703 COST ACCOUNT;20;22;VCS;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;574

 ;;MLVCS704;VCS 704 COST ACCOUNT;23;25;VCS;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;575

 ;;MLVCS706;VCS 706 COST ACCOUNT;26;28;VCS;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;576

 ;;MLVCS709;VCS 709 COST ACCOUNT;29;31;VCS;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;577

 ;;MLVCS601;VCS 601 COST ACCOUNT;32;34;VCS;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;570

 ;;

6 ;;Group 6;21;79;X

 ;;MLLVLIB;VCS LEAVE LIABILITY;1;7;VCS;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;584

 ;;MLPLIFUN;VCS BASIC LIFE INS UNITS;8;10;VCS;15;D SIGN^PRSDUTIL S DATA=+DATA;;;580

 ;;MLPCOMM;VCS COMMISSION PERCENT;11;13;VCS;16;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;581

 ;;MLPHRRAT;VCS HRLY RATE FOR LEAVE/HOL;14;18;VCS;17;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;582

 ;;MLPOPTLI;VCS ADDNL OPTIONAL LIFE INS;19;23;VCS;13;D SIGN^PRSDUTIL S DATA=+DATA;;;578

 ;;MLCOMT-PP1;COMPTIME/CREDIT HRS PPD1 NAME;24;25;COMP;10;;;;497

 ;;MLCOMT-BAL1;COMPTIME/CREDIT HRS BAL PPD1;26;30;COMP;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;488

 ;;MLCOMT-PP2;COMPTIME/CREDIT HRS PPD2 NAME;31;32;COMP;11;;;;498

 ;;MLCOMT-BAL2;COMPTIME/CREDIT HRS BAL PPD2;33;37;COMP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;489

 ;;MLCOMT-PP3;COMPTIME/CREDIT HRS PPD3 NAME;38;39;COMP;12;;;;499

 ;;MLCOMT-BAL3;COMPTIME/CREDIT HRS BAL PPD3;40;44;COMP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;490

 ;;MLCOMT-PP4;COMPTIME/CREDIT HRS PPD4 NAME;45;46;COMP;13;;;;500

 ;;MLCOMT-BAL4;COMPTIME/CREDIT HRS BAL PPD4;47;51;COMP;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;491

 ;;MLCOMT-PP5;COMPTIME/CREDIT HRS PPD5 NAME;52;53;COMP;14;;;;501

 ;;MLCOMT-BAL5;COMPTIME/CREDIT HRS BAL PPD5;54;58;COMP;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;492

 ;;MLCOMT-PP6;COMPTIME/CREDIT HRS PPD6 NAME;59;60;COMP;15;;;;502

 ;;MLCOMT-BAL6;COMPTIME/CREDIT HRS BAL PPD6;61;65;COMP;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;493

 ;;MLCOMT-PP7;COMPTIME/CREDIT HRS PPD7 NAME;66;67;COMP;16;;;;503

 ;;MLCOMT-BAL7;COMPTIME/CREDIT HRS BAL PPD7;68;72;COMP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;494

 ;;MLCOMT-PP8;COMPTIME/CREDIT HRS PPD8 NAME;73;74;COMP;17;;;;504

 ;;MLCOMT-BAL8;COMPTIME/CREDIT HRS BAL PPD8;75;79;COMP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL,COMP^PRSDUTIL;;;495

 ;;

7 ;;Group 7;7;31;X

 ;;MMPDMS1;MSD ACTION CODE-1;1;1;MSD1;1;S:DATA="D" DATA="";;;258

 ;;MMDTENT1;MSD DATE ENTERED MIL SVC-1;2;9;MSD1;10;D DATE^PRSDUTIL;;;267

 ;;MMDTSEP1;MSD DATE SEPARATED MIL SVC-1;10;17;MSD1;13;D DATE^PRSDUTIL;;;270

 ;;MMBRSV1;MSD BRANCH OF SERVICE-1;18;18;MSD1;7;;;;264

 ;;MMLOST1;MSD LOST TIME-1;19;23;MSD1;16;D SIGN^PRSDUTIL S DATA=+DATA;;;273

 ;;MMAMTDU1;MSD AMT DUE THIS PERIOD-1;24;30;MSD1;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;261

 ;;MMPDMS2;MSD ACTION CODE-2;31;31;MSD1;2;S:DATA="D" DATA="";;;259

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDEU08   4132     printed  Apr 09, 2024@21:30:32                                                                                                                                                                                                    Page 2

PRSDEU08  ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 8 LAYOUT ;6/16/93  11:07

 +1       ;;4.0;PAID;**34**;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 8;7

 +1       ;;

1         ;;Group 1;1;23;X

 +1       ;;MGCKAD1;CHECK MAILING ADDRESS LINE 1;1;23;ADD;1;;;;181

 +2       ;;

2         ;;Group 2;1;23;X

 +1       ;;MGCKAD2;CHECK MAILING ADDRESS LINE 2;1;23;ADD;2;;;;182

 +2       ;;

3         ;;Group 3;2;25;X

 +1       ;;MGCKAD3;CHECK MAILING ADDRESS LINE 3;1;16;ADD;3;;;;183

 +2       ;;MGCKZIP;CHECK MAILING ADDRESS ZIP CODE;17;25;ADD;4;D ZIP^PRSDUTIL;;;184

 +3       ;;

4         ;;Group 4;3;10;X

 +1       ;;MGVALTNO;VOLUNTARY ALLOTMENT-2 CTRL NO;1;4;VALLOT;5;;;;439

 +2       ;;MGVALAMT;VOLUNTARY ALLOTMENT-2 AMT;5;9;VALLOT;4;D SIGN^PRSDUTIL S DATA=+DATA;;;438

 +3       ;;MGELOPCD;EARNINGS & LEAVE OPTION;10;10;ADD;5;;;;185

 +4       ;;

5         ;;Group 5;12;34;9

 +1       ;;MLVCS6SB;VCS 601 COST ACCOUNT SUBCODE;1;1;VCS;6;D SIGN^PRSDUTIL;;;571

 +2       ;;MLVCS301;VCS 301 COST ACCOUNT;2;4;VCS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;566

 +3       ;;MLVCS302;VCS 302 COST ACCOUNT;5;7;VCS;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;567

 +4       ;;MLVCS303;VCS 303 COST ACCOUNT;8;10;VCS;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;568

 +5       ;;MLVCS304;VCS 304 COST ACCOUNT;11;13;VCS;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;569

 +6       ;;MLVCS701;VCS 701 COST ACCOUNT;14;16;VCS;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;572

 +7       ;;MLVCS702;VCS 702 COST ACCOUNT;17;19;VCS;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;573

 +8       ;;MLVCS703;VCS 703 COST ACCOUNT;20;22;VCS;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;574

 +9       ;;MLVCS704;VCS 704 COST ACCOUNT;23;25;VCS;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;575

 +10      ;;MLVCS706;VCS 706 COST ACCOUNT;26;28;VCS;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;576

 +11      ;;MLVCS709;VCS 709 COST ACCOUNT;29;31;VCS;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;577

 +12      ;;MLVCS601;VCS 601 COST ACCOUNT;32;34;VCS;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;570

 +13      ;;

6         ;;Group 6;21;79;X

 +1       ;;MLLVLIB;VCS LEAVE LIABILITY;1;7;VCS;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;584

 +2       ;;MLPLIFUN;VCS BASIC LIFE INS UNITS;8;10;VCS;15;D SIGN^PRSDUTIL S DATA=+DATA;;;580

 +3       ;;MLPCOMM;VCS COMMISSION PERCENT;11;13;VCS;16;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;581

 +4       ;;MLPHRRAT;VCS HRLY RATE FOR LEAVE/HOL;14;18;VCS;17;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;582

 +5       ;;MLPOPTLI;VCS ADDNL OPTIONAL LIFE INS;19;23;VCS;13;D SIGN^PRSDUTIL S DATA=+DATA;;;578

 +6       ;;MLCOMT-PP1;COMPTIME/CREDIT HRS PPD1 NAME;24;25;COMP;10;;;;497

 +7       ;;MLCOMT-BAL1;COMPTIME/CREDIT HRS BAL PPD1;26;30;COMP;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;488

 +8       ;;MLCOMT-PP2;COMPTIME/CREDIT HRS PPD2 NAME;31;32;COMP;11;;;;498

 +9       ;;MLCOMT-BAL2;COMPTIME/CREDIT HRS BAL PPD2;33;37;COMP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;489

 +10      ;;MLCOMT-PP3;COMPTIME/CREDIT HRS PPD3 NAME;38;39;COMP;12;;;;499

 +11      ;;MLCOMT-BAL3;COMPTIME/CREDIT HRS BAL PPD3;40;44;COMP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;490

 +12      ;;MLCOMT-PP4;COMPTIME/CREDIT HRS PPD4 NAME;45;46;COMP;13;;;;500

 +13      ;;MLCOMT-BAL4;COMPTIME/CREDIT HRS BAL PPD4;47;51;COMP;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;491

 +14      ;;MLCOMT-PP5;COMPTIME/CREDIT HRS PPD5 NAME;52;53;COMP;14;;;;501

 +15      ;;MLCOMT-BAL5;COMPTIME/CREDIT HRS BAL PPD5;54;58;COMP;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;492

 +16      ;;MLCOMT-PP6;COMPTIME/CREDIT HRS PPD6 NAME;59;60;COMP;15;;;;502

 +17      ;;MLCOMT-BAL6;COMPTIME/CREDIT HRS BAL PPD6;61;65;COMP;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;493

 +18      ;;MLCOMT-PP7;COMPTIME/CREDIT HRS PPD7 NAME;66;67;COMP;16;;;;503

 +19      ;;MLCOMT-BAL7;COMPTIME/CREDIT HRS BAL PPD7;68;72;COMP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;494

 +20      ;;MLCOMT-PP8;COMPTIME/CREDIT HRS PPD8 NAME;73;74;COMP;17;;;;504

 +21      ;;MLCOMT-BAL8;COMPTIME/CREDIT HRS BAL PPD8;75;79;COMP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL,COMP^PRSDUTIL;;;495

 +22      ;;

7         ;;Group 7;7;31;X

 +1       ;;MMPDMS1;MSD ACTION CODE-1;1;1;MSD1;1;S:DATA="D" DATA="";;;258

 +2       ;;MMDTENT1;MSD DATE ENTERED MIL SVC-1;2;9;MSD1;10;D DATE^PRSDUTIL;;;267

 +3       ;;MMDTSEP1;MSD DATE SEPARATED MIL SVC-1;10;17;MSD1;13;D DATE^PRSDUTIL;;;270

 +4       ;;MMBRSV1;MSD BRANCH OF SERVICE-1;18;18;MSD1;7;;;;264

 +5       ;;MMLOST1;MSD LOST TIME-1;19;23;MSD1;16;D SIGN^PRSDUTIL S DATA=+DATA;;;273

 +6       ;;MMAMTDU1;MSD AMT DUE THIS PERIOD-1;24;30;MSD1;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;261

 +7       ;;MMPDMS2;MSD ACTION CODE-2;31;31;MSD1;2;S:DATA="D" DATA="";;;259