PRSDEU13.m

PRSDEU13 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 13 LAYOUT ;02/13/2003

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

 ; The RECORD line tag shows represents ;; Record #;# of Groups

 ;

 ; The Groups are defined as follows:

 ;

 ; Line Tag      ;;3;4;5;6

 ;

 ; Where piece

 ;       3 = The Group number within the Record.  Each Record is an

 ;            individual line in the ^XMB(3.9 mail global.

 ;       4 = The number of fields in the group

 ;       5 = The number of bytes in the group

 ;       6 = Special formatting information

 ; 

 ; Each individual line under the numeric line tag represents the

 ; following:

 ;

 ; Where piece

 ;       3 = The Central PAID field name

 ;       4 = VistA PAID/ETA field name

 ;       5 = Starting Byte

 ;       6 = Ending Byte

 ;       7 = Node in PAID EMPLOYEE (#450)

 ;       8 = Piece within the Node in #450

 ;       9 = Formatting information

 ;      10 = Node in PAID PAYRUN DATA (#459)

 ;      11 = Piece within the Node in #459

 ;      12 = Field # within #459

 ;

RECORD ;;Record 13;15

 ;;

1 ;;Group 1;1;23;X

 ;;SBONDS-ADDR-LINE1-3;SAVINGS BOND-3 ADD LINE-1;1;23;BOND3;1;;;;720

 ;;

2 ;;Group 2;1;23;X

 ;;SBONDS-ADDR-LINE2-3;SAVINGS BOND-3 ADD LINE-2;1;23;BOND3;2;;;;721

 ;;

3 ;;Group 3;1;16;X

 ;;SBONDS-ADDR-LINE3-3;SAVINGS BOND-3 ADD LINE-3;1;16;BOND3;3;;;;722

 ;;

4 ;;Group 4;1;9;X

 ;;SBONDS-COST-3;BOND BALANCE - NOT USED;1;9;;;;;;

 ;;

5 ;;Group 5;1;1;X

 ;;SBONDS-BENE-CODE-3;SAVINGS BOND-3 BENE CODE;1;1;BOND3;5;;;;724

 ;;

6 ;;Group 6;1;28;X

 ;;SBONDS-COOWNER-3;SAVINGS BOND-3 CO-OWNER;1;28;BOND3;6;;;;725

 ;;

7 ;;Group 7;1;9;X

 ;;SBONDS-COOWNER-SSN-3;SAVINGS BOND-3 CO-OWNER SSN;1;9;BOND3;7;;;;726

 ;;

8 ;;Group 8;1;7;9

 ;;SBONDS-DED-BAL-3;SAVINGS BOND-3 DED BALANCE;1;7;BOND3;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;727

 ;;

9 ;;Group 9;1;7;9

 ;;SBONDS-DED-PAY-PERIOD-3;SAVINGS BOND-3 DED EPPD;1;7;BOND3;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;728

 ;;

10 ;;Group 10;1;1;X

 ;;SBONDS-DENOM-3;SAVINGS BOND-3 DENOMINATION;1;1;BOND3;10;;;;729

 ;;

11 ;;Group 11;1;6;

 ;;SBONDS-EFFT-DATE-3;SAVINGS BOND-3 EFFECTIVE DATE;1;6;BOND3;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;730

 ;;

12 ;;Group 12;1;32;X

 ;;SBONDS-OWNER-3;SAVINGS BOND-3 OWNER;1;32;BOND3;12;;;;731

 ;;

13 ;;Group 13;1;9;X

 ;;SBONDS-OWNER-SSN-3;SAVINGS BOND-3 OWNER SSN;1;9;BOND3;13;;;;732

 ;;

14 ;;Group 14;1;9;9

 ;;SBONDS-ZIP-CODE-3;SAVINGS BOND-3 ZIP CODE;1;9;BOND3;14;D ZIP^PRSDUTIL;;;733

 ;;

15 ;;Group 15;1;1;

 ;;SBONDS-TYPE-3;SAVINGS BOND-3 TYPE;1;1;BOND3;15;;;;734

 ;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDEU13   2748     printed  Apr 09, 2024@21:32:17                                                                                                                                                                                                    Page 2

PRSDEU13  ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 13 LAYOUT ;02/13/2003

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

 +4       ; The RECORD line tag shows represents ;; Record #;# of Groups

 +5       ;

 +6       ; The Groups are defined as follows:

 +7       ;

 +8       ; Line Tag      ;;3;4;5;6

 +9       ;

 +10      ; Where piece

 +11      ;       3 = The Group number within the Record.  Each Record is an

 +12      ;            individual line in the ^XMB(3.9 mail global.

 +13      ;       4 = The number of fields in the group

 +14      ;       5 = The number of bytes in the group

 +15      ;       6 = Special formatting information

 +16      ; 

 +17      ; Each individual line under the numeric line tag represents the

 +18      ; following:

 +19      ;

 +20      ; Where piece

 +21      ;       3 = The Central PAID field name

 +22      ;       4 = VistA PAID/ETA field name

 +23      ;       5 = Starting Byte

 +24      ;       6 = Ending Byte

 +25      ;       7 = Node in PAID EMPLOYEE (#450)

 +26      ;       8 = Piece within the Node in #450

 +27      ;       9 = Formatting information

 +28      ;      10 = Node in PAID PAYRUN DATA (#459)

 +29      ;      11 = Piece within the Node in #459

 +30      ;      12 = Field # within #459

 +31      ;

RECORD    ;;Record 13;15

 +1       ;;

1         ;;Group 1;1;23;X

 +1       ;;SBONDS-ADDR-LINE1-3;SAVINGS BOND-3 ADD LINE-1;1;23;BOND3;1;;;;720

 +2       ;;

2         ;;Group 2;1;23;X

 +1       ;;SBONDS-ADDR-LINE2-3;SAVINGS BOND-3 ADD LINE-2;1;23;BOND3;2;;;;721

 +2       ;;

3         ;;Group 3;1;16;X

 +1       ;;SBONDS-ADDR-LINE3-3;SAVINGS BOND-3 ADD LINE-3;1;16;BOND3;3;;;;722

 +2       ;;

4         ;;Group 4;1;9;X

 +1       ;;SBONDS-COST-3;BOND BALANCE - NOT USED;1;9;;;;;;

 +2       ;;

5         ;;Group 5;1;1;X

 +1       ;;SBONDS-BENE-CODE-3;SAVINGS BOND-3 BENE CODE;1;1;BOND3;5;;;;724

 +2       ;;

6         ;;Group 6;1;28;X

 +1       ;;SBONDS-COOWNER-3;SAVINGS BOND-3 CO-OWNER;1;28;BOND3;6;;;;725

 +2       ;;

7         ;;Group 7;1;9;X

 +1       ;;SBONDS-COOWNER-SSN-3;SAVINGS BOND-3 CO-OWNER SSN;1;9;BOND3;7;;;;726

 +2       ;;

8         ;;Group 8;1;7;9

 +1       ;;SBONDS-DED-BAL-3;SAVINGS BOND-3 DED BALANCE;1;7;BOND3;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;727

 +2       ;;

9         ;;Group 9;1;7;9

 +1       ;;SBONDS-DED-PAY-PERIOD-3;SAVINGS BOND-3 DED EPPD;1;7;BOND3;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;728

 +2       ;;

10        ;;Group 10;1;1;X

 +1       ;;SBONDS-DENOM-3;SAVINGS BOND-3 DENOMINATION;1;1;BOND3;10;;;;729

 +2       ;;

11        ;;Group 11;1;6;

 +1       ;;SBONDS-EFFT-DATE-3;SAVINGS BOND-3 EFFECTIVE DATE;1;6;BOND3;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;730

 +2       ;;

12        ;;Group 12;1;32;X

 +1       ;;SBONDS-OWNER-3;SAVINGS BOND-3 OWNER;1;32;BOND3;12;;;;731

 +2       ;;

13        ;;Group 13;1;9;X

 +1       ;;SBONDS-OWNER-SSN-3;SAVINGS BOND-3 OWNER SSN;1;9;BOND3;13;;;;732

 +2       ;;

14        ;;Group 14;1;9;9

 +1       ;;SBONDS-ZIP-CODE-3;SAVINGS BOND-3 ZIP CODE;1;9;BOND3;14;D ZIP^PRSDUTIL;;;733

 +2       ;;

15        ;;Group 15;1;1;

 +1       ;;SBONDS-TYPE-3;SAVINGS BOND-3 TYPE;1;1;BOND3;15;;;;734

 +2       ;;