specification/src/Text/Edifact/D01B/Segments/TDT.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Segments.TDT
   7   ( -- * Definition
   8     segmentTDT
   9     -- * Dependencies
  10   , compositeC040
  11   , compositeC220
  12   , compositeC222
  13   , compositeC228
  14   , compositeC401
  15   , simple8028
  16   , simple8051
  17   , simple8101
  18   , simple8281
  19   ) where
  20
  21 import           Text.Edifact.D01B.Composites (compositeC040, compositeC220,
  22                                                compositeC222, compositeC228,
  23                                                compositeC401)
  24 import           Text.Edifact.D01B.Simples    (simple8028, simple8051,
  25                                                simple8101, simple8281)
  26
  27 import           Text.Edifact.Parsing
  28 import           Text.Edifact.Types           (Value)
  29
  30 -- | Derived from this specification:
  31 --
  32 -- >        TDT  DETAILS OF TRANSPORT
  33 -- >
  34 -- >        Function: To specify the transport details such as mode of
  35 -- >                  transport, means of transport, its conveyance
  36 -- >                  reference number and the identification of the
  37 -- >                  means of transport.
  38 -- >                  The segment may be pointed to by the TPL
  39 -- >                  segment.
  40 -- >
  41 -- > 010    8051 TRANSPORT STAGE CODE QUALIFIER             M    1 an..3
  42 -- >
  43 -- > 020    8028 MEANS OF TRANSPORT JOURNEY IDENTIFIER      C    1 an..17
  44 -- >
  45 -- > 030    C220 MODE OF TRANSPORT                          C    1
  46 -- >        8067  Transport mode name code                  C      an..3
  47 -- >        8066  Transport mode name                       C      an..17
  48 -- >
  49 -- > 040    C228 TRANSPORT MEANS                            C    1
  50 -- >        8179  Transport means description code          C      an..8
  51 -- >        8178  Transport means description               C      an..17
  52 -- >
  53 -- > 050    C040 CARRIER                                    C    1
  54 -- >        3127  Carrier identifier                        C      an..17
  55 -- >        1131  Code list identification code             C      an..17
  56 -- >        3055  Code list responsible agency code         C      an..3
  57 -- >        3128  Carrier name                              C      an..35
  58 -- >
  59 -- > 060    8101 TRANSIT DIRECTION INDICATOR CODE           C    1 an..3
  60 -- >
  61 -- > 070    C401 EXCESS TRANSPORTATION INFORMATION          C    1
  62 -- >        8457  Excess transportation reason code         M      an..3
  63 -- >        8459  Excess transportation responsibility code M      an..3
  64 -- >        7130  Customer shipment authorisation
  65 -- >              identifier                                C      an..17
  66 -- >
  67 -- > 080    C222 TRANSPORT IDENTIFICATION                   C    1
  68 -- >        8213  Transport means identification name
  69 -- >              identifier                                C      an..9
  70 -- >        1131  Code list identification code             C      an..17
  71 -- >        3055  Code list responsible agency code         C      an..3
  72 -- >        8212  Transport means identification name       C      an..35
  73 -- >        8453  Transport means nationality code          C      an..3
  74 -- >
  75 -- > 090    8281 TRANSPORT MEANS OWNERSHIP INDICATOR CODE   C    1 an..3
  76 --
  77 -- Dependencies: 'compositeC040', 'compositeC220', 'compositeC222', 'compositeC228', 'compositeC401', 'simple8028', 'simple8051', 'simple8101', 'simple8281'.
  78 segmentTDT :: Parser Value
  79 segmentTDT =
  80   segment "TDT"
  81     [ "010" .@ mandatory simple8051
  82     , "020" .@ optional  simple8028
  83     , "030" .@ optional  compositeC220
  84     , "040" .@ optional  compositeC228
  85     , "050" .@ optional  compositeC040
  86     , "060" .@ optional  simple8101
  87     , "070" .@ optional  compositeC401
  88     , "080" .@ optional  compositeC222
  89     , "090" .@ optional  simple8281
  90     ]