source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDEU15.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.6 KB
Line 
1PRSDEU15 ;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 ;
33RECORD ;;Record 15;14
34 ;;
351 ;;Group 1;1;4;
36 ;;LD-CODE1;LABOR DIST CODE-1;1;4;LD;2;S MULT=1,MFLD=1;;;757
37 ;;
382 ;;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 ;;
413 ;;Group 3;1;4
42 ;;LD-CODE2;LABOR DIST CODE-2;1;4;LD;2;S MULT=2,MFLD=1;;;759
43 ;;
444 ;;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 ;;
475 ;;Group 5;1;4
48 ;;LD-MHORGCOD2;LABOR DIST CODE-2 COST CENTER;1;4;LD;4;S MULT=2,MFLD=3;;;761
49 ;;
506 ;;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 ;;
537 ;;Group 7;1;4
54 ;;LD-CODE3;LABOR DIST CODE-3;1;4;LD;2;S MULT=3,MFLD=1;;;763
55 ;;
568 ;;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 ;;
599 ;;Group 9;1;4
60 ;;LD-MHORGCOD3;LABOR DIST CODE-3 COST CENTER;1;4;LD;4;S MULT=3,MFLD=3;;;765
61 ;;
6210 ;;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 ;;
6511 ;;Group 11;1;4
66 ;;LD-CODE4;LABOR DIST CODE-4;1;4;LD;2;S MULT=4,MFLD=1;;;767
67 ;;
6812 ;;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 ;;
7113 ;;Group 13;1;4
72 ;;LD-MHORGCOD4;LABOR DIST CODE-4 COST CENTER;1;4;LD;4;S MULT=4,MFLD=3;;;769
73 ;;
7414 ;;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 ;;
Note: See TracBrowser for help on using the repository browser.