PRSDEU15 ;HISC/MGD-PAID EDIT AND UPDATE DOWNLOAD RECORD 15 LAYOUT ;09/12/2003
;;4.0;PAID;**82**;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 15;14
;;
1 ;;Group 1;1;4;
;;LD-CODE1;LABOR DIST CODE-1;1;4;LD;2;S MULT=1,MFLD=1;;;757
;;
2 ;;Group 2;1;3;
;;LD-PERCENT1;LABOR DIST CODE-1 PCT;1;3;LD;3;S MULT=1,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;758
;;
3 ;;Group 3;1;4
;;LD-CODE2;LABOR DIST CODE-2;1;4;LD;2;S MULT=2,MFLD=1;;;759
;;
4 ;;Group 4;1;3
;;LD-PERCENT2;LABOR DIST CODE-2 PCT;1;3;LD;3;S MULT=2,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;760
;;
5 ;;Group 5;1;4
;;LD-MHORGCOD2;LABOR DIST CODE-2 COST CENTER;1;4;LD;4;S MULT=2,MFLD=3;;;761
;;
6 ;;Group 6;1;3
;;LD-MHFUNDCP2;LABOR DIST CODE-2 FUND CTRL PNT;1;3;LD;5;S MULT=2,MFLD=4;;;762
;;
7 ;;Group 7;1;4
;;LD-CODE3;LABOR DIST CODE-3;1;4;LD;2;S MULT=3,MFLD=1;;;763
;;
8 ;;Group 8;1;3
;;LD-PERCENT3;LABOR DIST CODE-3 PCT;1;3;LD;3;S MULT=3,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;764
;;
9 ;;Group 9;1;4
;;LD-MHORGCOD3;LABOR DIST CODE-3 COST CENTER;1;4;LD;4;S MULT=3,MFLD=3;;;765
;;
10 ;;Group 10;1;3
;;LD-MHFUNDCP3;LABOR DIST CODE-3 FUND CTRL PNT;1;3;LD;5;S MULT=3,MFLD=4;;;766
;;
11 ;;Group 11;1;4
;;LD-CODE4;LABOR DIST CODE-4;1;4;LD;2;S MULT=4,MFLD=1;;;767
;;
12 ;;Group 12;1;3
;;LD-PERCENT4;LABOR DIST CODE-4 PCT;1;3;LD;3;S MULT=4,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;768
;;
13 ;;Group 13;1;4
;;LD-MHORGCOD4;LABOR DIST CODE-4 COST CENTER;1;4;LD;4;S MULT=4,MFLD=3;;;769
;;
14 ;;Group 14;1;3
;;LD-MHFUNDCP4;LABOR DIST CODE-4 FUND CTRL PNT;1;3;LD;5;S MULT=4,MFLD=4;;;770
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDEU15 2697 printed Nov 22, 2024@17:35:28 Page 2
PRSDEU15 ;HISC/MGD-PAID EDIT AND UPDATE DOWNLOAD RECORD 15 LAYOUT ;09/12/2003
+1 ;;4.0;PAID;**82**;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 15;14
+1 ;;
1 ;;Group 1;1;4;
+1 ;;LD-CODE1;LABOR DIST CODE-1;1;4;LD;2;S MULT=1,MFLD=1;;;757
+2 ;;
2 ;;Group 2;1;3;
+1 ;;LD-PERCENT1;LABOR DIST CODE-1 PCT;1;3;LD;3;S MULT=1,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;758
+2 ;;
3 ;;Group 3;1;4
+1 ;;LD-CODE2;LABOR DIST CODE-2;1;4;LD;2;S MULT=2,MFLD=1;;;759
+2 ;;
4 ;;Group 4;1;3
+1 ;;LD-PERCENT2;LABOR DIST CODE-2 PCT;1;3;LD;3;S MULT=2,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;760
+2 ;;
5 ;;Group 5;1;4
+1 ;;LD-MHORGCOD2;LABOR DIST CODE-2 COST CENTER;1;4;LD;4;S MULT=2,MFLD=3;;;761
+2 ;;
6 ;;Group 6;1;3
+1 ;;LD-MHFUNDCP2;LABOR DIST CODE-2 FUND CTRL PNT;1;3;LD;5;S MULT=2,MFLD=4;;;762
+2 ;;
7 ;;Group 7;1;4
+1 ;;LD-CODE3;LABOR DIST CODE-3;1;4;LD;2;S MULT=3,MFLD=1;;;763
+2 ;;
8 ;;Group 8;1;3
+1 ;;LD-PERCENT3;LABOR DIST CODE-3 PCT;1;3;LD;3;S MULT=3,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;764
+2 ;;
9 ;;Group 9;1;4
+1 ;;LD-MHORGCOD3;LABOR DIST CODE-3 COST CENTER;1;4;LD;4;S MULT=3,MFLD=3;;;765
+2 ;;
10 ;;Group 10;1;3
+1 ;;LD-MHFUNDCP3;LABOR DIST CODE-3 FUND CTRL PNT;1;3;LD;5;S MULT=3,MFLD=4;;;766
+2 ;;
11 ;;Group 11;1;4
+1 ;;LD-CODE4;LABOR DIST CODE-4;1;4;LD;2;S MULT=4,MFLD=1;;;767
+2 ;;
12 ;;Group 12;1;3
+1 ;;LD-PERCENT4;LABOR DIST CODE-4 PCT;1;3;LD;3;S MULT=4,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;768
+2 ;;
13 ;;Group 13;1;4
+1 ;;LD-MHORGCOD4;LABOR DIST CODE-4 COST CENTER;1;4;LD;4;S MULT=4,MFLD=3;;;769
+2 ;;
14 ;;Group 14;1;3
+1 ;;LD-MHFUNDCP4;LABOR DIST CODE-4 FUND CTRL PNT;1;3;LD;5;S MULT=4,MFLD=4;;;770
+2 ;;
