specification/src/Text/Edifact/D96A/Segments/TSR.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.TSR
   7   ( -- * Definition
   8     segmentTSR
   9     -- * Dependencies
  10   , compositeC233
  11   , compositeC536
  12   , compositeC537
  13   , compositeC703
  14   ) where
  15
  16 import           Text.Edifact.D96A.Composites (compositeC233, compositeC536,
  17                                                compositeC537, compositeC703)
  18
  19 import           Text.Edifact.Parsing
  20 import           Text.Edifact.Types           (Value)
  21
  22 -- | Derived from this specification:
  23 --
  24 -- >       TSR    TRANSPORT SERVICE REQUIREMENTS
  25 -- >
  26 -- >       Function: To specify the contract and carriage conditions and
  27 -- >                 service and priority requirements for the transport.
  28 -- >
  29 -- > 010   C536  CONTRACT AND CARRIAGE CONDITION                C
  30 -- >       4065   Contract and carriage condition, coded        M  an..3
  31 -- >       1131   Code list qualifier                           C  an..3
  32 -- >       3055   Code list responsible agency, coded           C  an..3
  33 -- >
  34 -- > 020   C233  SERVICE                                        C
  35 -- >       7273   Service requirement, coded                    M  an..3
  36 -- >       1131   Code list qualifier                           C  an..3
  37 -- >       3055   Code list responsible agency, coded           C  an..3
  38 -- >       7273   Service requirement, coded                    C  an..3
  39 -- >       1131   Code list qualifier                           C  an..3
  40 -- >       3055   Code list responsible agency, coded           C  an..3
  41 -- >
  42 -- > 030   C537  TRANSPORT PRIORITY                             C
  43 -- >       4219   Transport priority, coded                     M  an..3
  44 -- >       1131   Code list qualifier                           C  an..3
  45 -- >       3055   Code list responsible agency, coded           C  an..3
  46 -- >
  47 -- > 040   C703  NATURE OF CARGO                                C
  48 -- >       7085   Nature of cargo, coded                        M  an..3
  49 -- >       1131   Code list qualifier                           C  an..3
  50 -- >       3055   Code list responsible agency, coded           C  an..3
  51 --
  52 -- Dependencies: 'compositeC233', 'compositeC536', 'compositeC537', 'compositeC703'.
  53 segmentTSR :: Parser Value
  54 segmentTSR =
  55   segment "TSR"
  56     [ "010" .@ optional  compositeC536
  57     , "020" .@ optional  compositeC233
  58     , "030" .@ optional  compositeC537
  59     , "040" .@ optional  compositeC703
  60     ]