| 1 | PRSDEU15 ;HISC/MGD-PAID EDIT AND UPDATE DOWNLOAD RECORD 15 LAYOUT ;09/12/2003
|
|---|
| 2 | ;;4.0;PAID;**82**;Sep 21, 1995
|
|---|
| 3 | 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
|
|---|
| 4 | Q
|
|---|
| 5 | ; The RECORD line tag shows represents ;; Record #;# of Groups
|
|---|
| 6 | ;
|
|---|
| 7 | ; The Groups are defined as follows:
|
|---|
| 8 | ;
|
|---|
| 9 | ; Line Tag ;;3;4;5;6
|
|---|
| 10 | ;
|
|---|
| 11 | ; Where piece
|
|---|
| 12 | ; 3 = The Group number within the Record. Each Record is an
|
|---|
| 13 | ; individual line in the ^XMB(3.9 mail global.
|
|---|
| 14 | ; 4 = The number of fields in the group
|
|---|
| 15 | ; 5 = The number of bytes in the group
|
|---|
| 16 | ; 6 = Special formatting information
|
|---|
| 17 | ;
|
|---|
| 18 | ; Each individual line under the numeric line tag represents the
|
|---|
| 19 | ; following:
|
|---|
| 20 | ;
|
|---|
| 21 | ; Where piece
|
|---|
| 22 | ; 3 = The Central PAID field name
|
|---|
| 23 | ; 4 = VistA PAID/ETA field name
|
|---|
| 24 | ; 5 = Starting Byte
|
|---|
| 25 | ; 6 = Ending Byte
|
|---|
| 26 | ; 7 = Node in PAID EMPLOYEE (#450)
|
|---|
| 27 | ; 8 = Piece within the Node in #450
|
|---|
| 28 | ; 9 = Formatting information
|
|---|
| 29 | ; 10 = Node in PAID PAYRUN DATA (#459)
|
|---|
| 30 | ; 11 = Piece within the Node in #459
|
|---|
| 31 | ; 12 = Field # within #459
|
|---|
| 32 | ;
|
|---|
| 33 | RECORD ;;Record 15;14
|
|---|
| 34 | ;;
|
|---|
| 35 | 1 ;;Group 1;1;4;
|
|---|
| 36 | ;;LD-CODE1;LABOR DIST CODE-1;1;4;LD;2;S MULT=1,MFLD=1;;;757
|
|---|
| 37 | ;;
|
|---|
| 38 | 2 ;;Group 2;1;3;
|
|---|
| 39 | ;;LD-PERCENT1;LABOR DIST CODE-1 PCT;1;3;LD;3;S MULT=1,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;758
|
|---|
| 40 | ;;
|
|---|
| 41 | 3 ;;Group 3;1;4
|
|---|
| 42 | ;;LD-CODE2;LABOR DIST CODE-2;1;4;LD;2;S MULT=2,MFLD=1;;;759
|
|---|
| 43 | ;;
|
|---|
| 44 | 4 ;;Group 4;1;3
|
|---|
| 45 | ;;LD-PERCENT2;LABOR DIST CODE-2 PCT;1;3;LD;3;S MULT=2,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;760
|
|---|
| 46 | ;;
|
|---|
| 47 | 5 ;;Group 5;1;4
|
|---|
| 48 | ;;LD-MHORGCOD2;LABOR DIST CODE-2 COST CENTER;1;4;LD;4;S MULT=2,MFLD=3;;;761
|
|---|
| 49 | ;;
|
|---|
| 50 | 6 ;;Group 6;1;3
|
|---|
| 51 | ;;LD-MHFUNDCP2;LABOR DIST CODE-2 FUND CTRL PNT;1;3;LD;5;S MULT=2,MFLD=4;;;762
|
|---|
| 52 | ;;
|
|---|
| 53 | 7 ;;Group 7;1;4
|
|---|
| 54 | ;;LD-CODE3;LABOR DIST CODE-3;1;4;LD;2;S MULT=3,MFLD=1;;;763
|
|---|
| 55 | ;;
|
|---|
| 56 | 8 ;;Group 8;1;3
|
|---|
| 57 | ;;LD-PERCENT3;LABOR DIST CODE-3 PCT;1;3;LD;3;S MULT=3,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;764
|
|---|
| 58 | ;;
|
|---|
| 59 | 9 ;;Group 9;1;4
|
|---|
| 60 | ;;LD-MHORGCOD3;LABOR DIST CODE-3 COST CENTER;1;4;LD;4;S MULT=3,MFLD=3;;;765
|
|---|
| 61 | ;;
|
|---|
| 62 | 10 ;;Group 10;1;3
|
|---|
| 63 | ;;LD-MHFUNDCP3;LABOR DIST CODE-3 FUND CTRL PNT;1;3;LD;5;S MULT=3,MFLD=4;;;766
|
|---|
| 64 | ;;
|
|---|
| 65 | 11 ;;Group 11;1;4
|
|---|
| 66 | ;;LD-CODE4;LABOR DIST CODE-4;1;4;LD;2;S MULT=4,MFLD=1;;;767
|
|---|
| 67 | ;;
|
|---|
| 68 | 12 ;;Group 12;1;3
|
|---|
| 69 | ;;LD-PERCENT4;LABOR DIST CODE-4 PCT;1;3;LD;3;S MULT=4,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;768
|
|---|
| 70 | ;;
|
|---|
| 71 | 13 ;;Group 13;1;4
|
|---|
| 72 | ;;LD-MHORGCOD4;LABOR DIST CODE-4 COST CENTER;1;4;LD;4;S MULT=4,MFLD=3;;;769
|
|---|
| 73 | ;;
|
|---|
| 74 | 14 ;;Group 14;1;3
|
|---|
| 75 | ;;LD-MHFUNDCP4;LABOR DIST CODE-4 FUND CTRL PNT;1;3;LD;5;S MULT=4,MFLD=4;;;770
|
|---|
| 76 | ;;
|
|---|
