- 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 ---[H[J[2J[HPRSDEU08 4132 printed Jan 18, 2025@03:26:28 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