- 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 Apr 23, 2025@18:39:57 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 ;;
