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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.TOD
   7   ( -- * Definition
   8     segmentTOD
   9     -- * Dependencies
  10   , compositeC100
  11   , simple4055
  12   , simple4215
  13   ) where
  14
  15 import           Text.Edifact.D96A.Composites (compositeC100)
  16 import           Text.Edifact.D96A.Simples    (simple4055, simple4215)
  17
  18 import           Text.Edifact.Parsing
  19 import           Text.Edifact.Types           (Value)
  20
  21 -- | Derived from this specification:
  22 --
  23 -- >       TOD    TERMS OF DELIVERY OR TRANSPORT
  24 -- >
  25 -- >       Function: To specify terms of delivery or transport.
  26 -- >
  27 -- > 010   4055  TERMS OF DELIVERY OR TRANSPORT FUNCTION, CODED C  an..3
  28 -- >
  29 -- > 020   4215  TRANSPORT CHARGES METHOD OF PAYMENT, CODED     C  an..3
  30 -- >
  31 -- > 030   C100  TERMS OF DELIVERY OR TRANSPORT                 C
  32 -- >       4053   Terms of delivery or transport, coded         C  an..3
  33 -- >       1131   Code list qualifier                           C  an..3
  34 -- >       3055   Code list responsible agency, coded           C  an..3
  35 -- >       4052   Terms of delivery or transport                C  an..70
  36 -- >       4052   Terms of delivery or transport                C  an..70
  37 --
  38 -- Dependencies: 'compositeC100', 'simple4055', 'simple4215'.
  39 segmentTOD :: Parser Value
  40 segmentTOD =
  41   segment "TOD"
  42     [ "010" .@ optional  simple4055
  43     , "020" .@ optional  simple4215
  44     , "030" .@ optional  compositeC100
  45     ]