specification/src/Text/Edifact/D01B/Composites/C213.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Composites.C213
   7   ( -- * Definition
   8     compositeC213
   9     -- * Dependencies
  10   , simple1131
  11   , simple3055
  12   , simple7064
  13   , simple7065
  14   , simple7224
  15   , simple7233
  16   ) where
  17
  18 import           Text.Edifact.D01B.Simples (simple1131, simple3055, simple7064,
  19                                             simple7065, simple7224, simple7233)
  20
  21 import           Text.Edifact.Parsing
  22 import           Text.Edifact.Types        (Value)
  23
  24 -- | Derived from this specification:
  25 --
  26 -- >        C213 NUMBER AND TYPE OF PACKAGES
  27 -- >
  28 -- >        Desc: Number and type of individual parts of a shipment.
  29 -- >
  30 -- > 010    7224  Package quantity                          C      n..8
  31 -- > 020    7065  Package type description code             C      an..17
  32 -- > 030    1131  Code list identification code             C      an..17
  33 -- > 040    3055  Code list responsible agency code         C      an..3
  34 -- > 050    7064  Type of packages                          C      an..35
  35 -- > 060    7233  Packaging related description code        C      an..3
  36 --
  37 -- Dependencies: 'simple1131', 'simple3055', 'simple7064', 'simple7065', 'simple7224', 'simple7233'.
  38 compositeC213 :: Parser Value
  39 compositeC213 =
  40   composite "C213"
  41     [ "010" .@ optional  simple7224
  42     , "020" .@ optional  simple7065
  43     , "030" .@ optional  simple1131
  44     , "040" .@ optional  simple3055
  45     , "050" .@ optional  simple7064
  46     , "060" .@ optional  simple7233
  47     ]