1 files changed, 90 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D01B/Segments/TDT.hs b/specification/src/Text/Edifact/D01B/Segments/TDT.hs
new file mode 100644
index 0000000..82315f2
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Segments/TDT.hs
@@ -0,0 +1,90 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D01B.Segments.TDT
+  ( -- * Definition
+    segmentTDT
+    -- * Dependencies
+  , compositeC040
+  , compositeC220
+  , compositeC222
+  , compositeC228
+  , compositeC401
+  , simple8028
+  , simple8051
+  , simple8101
+  , simple8281
+  ) where
+
+import           Text.Edifact.D01B.Composites (compositeC040, compositeC220,
+                                               compositeC222, compositeC228,
+                                               compositeC401)
+import           Text.Edifact.D01B.Simples    (simple8028, simple8051,
+                                               simple8101, simple8281)
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types           (Value)
+
+-- | Derived from this specification:
+--
+-- >        TDT  DETAILS OF TRANSPORT
+-- >
+-- >        Function: To specify the transport details such as mode of
+-- >                  transport, means of transport, its conveyance
+-- >                  reference number and the identification of the
+-- >                  means of transport.
+-- >                  The segment may be pointed to by the TPL
+-- >                  segment.
+-- >
+-- > 010    8051 TRANSPORT STAGE CODE QUALIFIER             M    1 an..3
+-- >
+-- > 020    8028 MEANS OF TRANSPORT JOURNEY IDENTIFIER      C    1 an..17
+-- >
+-- > 030    C220 MODE OF TRANSPORT                          C    1
+-- >        8067  Transport mode name code                  C      an..3
+-- >        8066  Transport mode name                       C      an..17
+-- >
+-- > 040    C228 TRANSPORT MEANS                            C    1
+-- >        8179  Transport means description code          C      an..8
+-- >        8178  Transport means description               C      an..17
+-- >
+-- > 050    C040 CARRIER                                    C    1
+-- >        3127  Carrier identifier                        C      an..17
+-- >        1131  Code list identification code             C      an..17
+-- >        3055  Code list responsible agency code         C      an..3
+-- >        3128  Carrier name                              C      an..35
+-- >
+-- > 060    8101 TRANSIT DIRECTION INDICATOR CODE           C    1 an..3
+-- >
+-- > 070    C401 EXCESS TRANSPORTATION INFORMATION          C    1
+-- >        8457  Excess transportation reason code         M      an..3
+-- >        8459  Excess transportation responsibility code M      an..3
+-- >        7130  Customer shipment authorisation
+-- >              identifier                                C      an..17
+-- >
+-- > 080    C222 TRANSPORT IDENTIFICATION                   C    1
+-- >        8213  Transport means identification name
+-- >              identifier                                C      an..9
+-- >        1131  Code list identification code             C      an..17
+-- >        3055  Code list responsible agency code         C      an..3
+-- >        8212  Transport means identification name       C      an..35
+-- >        8453  Transport means nationality code          C      an..3
+-- >
+-- > 090    8281 TRANSPORT MEANS OWNERSHIP INDICATOR CODE   C    1 an..3
+--
+-- Dependencies: 'compositeC040', 'compositeC220', 'compositeC222', 'compositeC228', 'compositeC401', 'simple8028', 'simple8051', 'simple8101', 'simple8281'.
+segmentTDT :: Parser Value
+segmentTDT =
+  segment "TDT"
+    [ "010" .@ mandatory simple8051
+    , "020" .@ optional  simple8028
+    , "030" .@ optional  compositeC220
+    , "040" .@ optional  compositeC228
+    , "050" .@ optional  compositeC040
+    , "060" .@ optional  simple8101
+    , "070" .@ optional  compositeC401
+    , "080" .@ optional  compositeC222
+    , "090" .@ optional  simple8281
+    ]