PRSDEU14 ;HISC/MGD-PAID EDIT AND UPDATE DOWNLOAD RECORD 14 LAYOUT ;08/26/2003
;;4.0;PAID;**78,82,132**;Sep 21, 1995;Build 13
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 withing 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;21
;;
1 ;;Group 1;1;23;X
;;SBONDS-ADDR-LINE1-4;SAVINGS BOND-4 ADD LINE-1;1;23;BOND4;1;;;;735
;;
2 ;;Group 2;1;23;X
;;SBONDS-ADDR-LINE2-4;SAVINGS BOND-4 ADD LINE-2;1;23;BOND4;2;;;;736
;;
3 ;;Group 3;1;16;X
;;SBONDS-ADDR-LINE3-4;SAVINGS BOND-4 ADD LINE-3;1;16;BOND4;3;;;;737
;;
4 ;;Group 4;1;9;X
;;SBONDS-COST-4;BOND BALANCE - NOT USED;1;9;;;;;;
;;
5 ;;Group 5;1;1;X
;;SBONDS-BENE-CODE-4;SAVINGS BOND-4 BENE CODE;1;1;BOND4;5;;;;739
;;
6 ;;Group 6;1;28;X
;;SBONDS-COOWNER-4;SAVINGS BOND-4 CO-OWNER;1;28;BOND4;6;;;;740
;;
7 ;;Group 7;1;9;X
;;SBONDS-COOWNER-SSN-4;SAVINGS BOND-4 CO-OWNER SSN;1;9;BOND4;7;;;;741
;;
8 ;;Group 8;1;7;9
;;SBONDS-DED-BAL-4;SAVINGS BOND-4 DED BALANCE;1;7;BOND4;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;742
;;
9 ;;Group 9;1;7;9
;;SBONDS-DED-PAY-PERIOD-4;SAVINGS BOND-4 DED EPPD;1;7;BOND4;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;743
;;
10 ;;Group 10;1;1;X
;;SBONDS-DENOM-4;SAVINGS BOND-4 DENOMINATION;1;1;BOND4;10;;;;744
;;
11 ;;Group 11;1;6;
;;SBONDS-EFFT-DATE-4;SAVINGS BOND-4 EFFECTIVE DATE;1;6;BOND4;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;745
;;
12 ;;Group 12;1;32;X
;;SBONDS-OWNER-4;SAVINGS BOND-4 OWNER;1;32;BOND4;12;;;;746
;;
13 ;;Group 13;1;9;X
;;SBONDS-OWNER-SSN-4;SAVINGS BOND-4 OWNER SSN;1;9;BOND4;13;;;;747
;;
14 ;;Group 14;1;9;9
;;SBONDS-ZIP-CODE-4;SAVINGS BOND-4 ZIP CODE;1;9;BOND4;14;D ZIP^PRSDUTIL;;;748
;;
15 ;;Group 15;1;1;
;;SBONDS-TYPE-4;SAVINGS BOND-4 TYPE;1;1;BOND4;15;;;;749
;;
16 ;;Group 16;1;7;9
;;MIB1BAL;SAVINGS BOND-1 DED BALANCE;1;7;BOND1;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;351
;;
17 ;;Group 17;1;7;9
;;MKB2BAL;SAVINGS BOND-2 DED BALANCE;1;7;BOND2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;365
;;
18 ;;Group 18;1;5;9
;;VOL-ALLOT-AMT-3;VOLUNTARY ALLOTMENT-3 AMT;1;5;VALLOT;6;D SIGN^PRSDUTIL S DATA=+DATA;;;439.1
;;
19 ;;Group 19;1;4;9
;;VOL-ALLOT-CNTL-3;VOLUNTARY ALLOTMENT-3 CTRL NO;1;4;VALLOT;7;;;;439.2
;;
20 ;;Group 20;1;5;9
;;VOL-ALLOT-AMT-4;VOLUNTARY ALLOTMENT-4 AMT;1;5;VALLOT;8;D SIGN^PRSDUTIL S DATA=+DATA;;;439.3
;;
21 ;;Group 21;1;4;9
;;VOL-ALLOT-CNTL-4;VOLUNTARY ALLOTMENT-4 CTRL NO;1;4;VALLOT;9;;;;439.4
;;
22 ;;GROUP 22;1;1;X
;;TELEWORK INDICATOR;TELEWORK INDICATOR;1;1;1;45;;;;634
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDEU14 3513 printed Dec 13, 2024@02:25:24 Page 2
PRSDEU14 ;HISC/MGD-PAID EDIT AND UPDATE DOWNLOAD RECORD 14 LAYOUT ;08/26/2003
+1 ;;4.0;PAID;**78,82,132**;Sep 21, 1995;Build 13
+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 withing 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;21
+1 ;;
1 ;;Group 1;1;23;X
+1 ;;SBONDS-ADDR-LINE1-4;SAVINGS BOND-4 ADD LINE-1;1;23;BOND4;1;;;;735
+2 ;;
2 ;;Group 2;1;23;X
+1 ;;SBONDS-ADDR-LINE2-4;SAVINGS BOND-4 ADD LINE-2;1;23;BOND4;2;;;;736
+2 ;;
3 ;;Group 3;1;16;X
+1 ;;SBONDS-ADDR-LINE3-4;SAVINGS BOND-4 ADD LINE-3;1;16;BOND4;3;;;;737
+2 ;;
4 ;;Group 4;1;9;X
+1 ;;SBONDS-COST-4;BOND BALANCE - NOT USED;1;9;;;;;;
+2 ;;
5 ;;Group 5;1;1;X
+1 ;;SBONDS-BENE-CODE-4;SAVINGS BOND-4 BENE CODE;1;1;BOND4;5;;;;739
+2 ;;
6 ;;Group 6;1;28;X
+1 ;;SBONDS-COOWNER-4;SAVINGS BOND-4 CO-OWNER;1;28;BOND4;6;;;;740
+2 ;;
7 ;;Group 7;1;9;X
+1 ;;SBONDS-COOWNER-SSN-4;SAVINGS BOND-4 CO-OWNER SSN;1;9;BOND4;7;;;;741
+2 ;;
8 ;;Group 8;1;7;9
+1 ;;SBONDS-DED-BAL-4;SAVINGS BOND-4 DED BALANCE;1;7;BOND4;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;742
+2 ;;
9 ;;Group 9;1;7;9
+1 ;;SBONDS-DED-PAY-PERIOD-4;SAVINGS BOND-4 DED EPPD;1;7;BOND4;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;743
+2 ;;
10 ;;Group 10;1;1;X
+1 ;;SBONDS-DENOM-4;SAVINGS BOND-4 DENOMINATION;1;1;BOND4;10;;;;744
+2 ;;
11 ;;Group 11;1;6;
+1 ;;SBONDS-EFFT-DATE-4;SAVINGS BOND-4 EFFECTIVE DATE;1;6;BOND4;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;745
+2 ;;
12 ;;Group 12;1;32;X
+1 ;;SBONDS-OWNER-4;SAVINGS BOND-4 OWNER;1;32;BOND4;12;;;;746
+2 ;;
13 ;;Group 13;1;9;X
+1 ;;SBONDS-OWNER-SSN-4;SAVINGS BOND-4 OWNER SSN;1;9;BOND4;13;;;;747
+2 ;;
14 ;;Group 14;1;9;9
+1 ;;SBONDS-ZIP-CODE-4;SAVINGS BOND-4 ZIP CODE;1;9;BOND4;14;D ZIP^PRSDUTIL;;;748
+2 ;;
15 ;;Group 15;1;1;
+1 ;;SBONDS-TYPE-4;SAVINGS BOND-4 TYPE;1;1;BOND4;15;;;;749
+2 ;;
16 ;;Group 16;1;7;9
+1 ;;MIB1BAL;SAVINGS BOND-1 DED BALANCE;1;7;BOND1;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;351
+2 ;;
17 ;;Group 17;1;7;9
+1 ;;MKB2BAL;SAVINGS BOND-2 DED BALANCE;1;7;BOND2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;365
+2 ;;
18 ;;Group 18;1;5;9
+1 ;;VOL-ALLOT-AMT-3;VOLUNTARY ALLOTMENT-3 AMT;1;5;VALLOT;6;D SIGN^PRSDUTIL S DATA=+DATA;;;439.1
+2 ;;
19 ;;Group 19;1;4;9
+1 ;;VOL-ALLOT-CNTL-3;VOLUNTARY ALLOTMENT-3 CTRL NO;1;4;VALLOT;7;;;;439.2
+2 ;;
20 ;;Group 20;1;5;9
+1 ;;VOL-ALLOT-AMT-4;VOLUNTARY ALLOTMENT-4 AMT;1;5;VALLOT;8;D SIGN^PRSDUTIL S DATA=+DATA;;;439.3
+2 ;;
21 ;;Group 21;1;4;9
+1 ;;VOL-ALLOT-CNTL-4;VOLUNTARY ALLOTMENT-4 CTRL NO;1;4;VALLOT;9;;;;439.4
+2 ;;
22 ;;GROUP 22;1;1;X
+1 ;;TELEWORK INDICATOR;TELEWORK INDICATOR;1;1;1;45;;;;634
+2 ;;
