specification/src/Text/Edifact/D01B/Simples/S8275.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S8275
   7   ( simple8275
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      8275  Container or package contents indicator code            [B]
  16 -- >
  17 -- >      Desc: Code indicating the contents of container or package.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      1     Full load
  22 -- >               Container represents the full consignment of goods
  23 -- >               declared on a single Customs declaration (i.e. all goods
  24 -- >               in the container relate to a single Customs
  25 -- >               declaration).
  26 -- >
  27 -- >      2     Part load
  28 -- >               Container represents part of a consignment declared on a
  29 -- >               single Customs declaration (i.e. the Customs declaration
  30 -- >               covers more than one container).
  31 -- >
  32 -- >      3     Full load mixed consignments
  33 -- >               Container holds the full consignment related to the
  34 -- >               Customs declaration but also holds goods related to
  35 -- >               other declarations.
  36 -- >
  37 -- >      4     Part load mixed consignments
  38 -- >               Container represents part of the consignment declared on
  39 -- >               a single Customs declaration with the remainder being in
  40 -- >               other containers. Other goods, related to other
  41 -- >               declarations, are also in the container.
  42 -- >
  43 -- >      5     Single invoiced load
  44 -- >               Merchandise within a container/package covered by a
  45 -- >               single invoice.
  46 -- >
  47 -- >      6     Multi invoiced load
  48 -- >               Merchandise within a container/package covered by more
  49 -- >               than one invoice.
  50 -- >
  51 -- >      7     Empty
  52 -- >               Container holds no goods.
  53 -- >
  54 -- >      8     Full load, multiple bills
  55 -- >               A container representing a consignment of goods for one
  56 -- >               consignee with multiple bill of lading numbers.
  57 simple8275 :: Parser Value
  58 simple8275 = simple "8275" (alphaNumeric `upTo` 3)