1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Segments.TCC
( -- * Definition
segmentTCC
-- * Dependencies
, compositeC200
, compositeC203
, compositeC528
, compositeC554
) where
import Text.Edifact.D96A.Composites (compositeC200, compositeC203,
compositeC528, compositeC554)
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > TCC TRANSPORT CHARGE/RATE CALCULATIONS
-- >
-- > Function: To specify charges.
-- >
-- > 010 C200 CHARGE C
-- > 8023 Freight and charges identification C an..17
-- > 1131 Code list qualifier C an..3
-- > 3055 Code list responsible agency, coded C an..3
-- > 8022 Freight and charges C an..26
-- > 4237 Prepaid/collect indicator, coded C an..3
-- > 7140 Item number C an..35
-- >
-- > 020 C203 RATE/TARIFF CLASS C
-- > 5243 Rate/tariff class identification M an..9
-- > 1131 Code list qualifier C an..3
-- > 3055 Code list responsible agency, coded C an..3
-- > 5242 Rate/tariff class C an..35
-- > 5275 Supplementary rate/tariff basis C an..6
-- > identification
-- > 1131 Code list qualifier C an..3
-- > 3055 Code list responsible agency, coded C an..3
-- > 5275 Supplementary rate/tariff basis C an..6
-- > identification
-- > 1131 Code list qualifier C an..3
-- > 3055 Code list responsible agency, coded C an..3
-- >
-- > 030 C528 COMMODITY/RATE DETAIL C
-- > 7357 Commodity/rate identification C an..18
-- > 1131 Code list qualifier C an..3
-- > 3055 Code list responsible agency, coded C an..3
-- >
-- > 040 C554 RATE/TARIFF CLASS DETAIL C
-- > 5243 Rate/tariff class identification C an..9
-- > 1131 Code list qualifier C an..3
-- > 3055 Code list responsible agency, coded C an..3
--
-- Dependencies: 'compositeC200', 'compositeC203', 'compositeC528', 'compositeC554'.
segmentTCC :: Parser Value
segmentTCC =
segment "TCC"
[ "010" .@ optional compositeC200
, "020" .@ optional compositeC203
, "030" .@ optional compositeC528
, "040" .@ optional compositeC554
]
|