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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.IMD
   7   ( -- * Definition
   8     segmentIMD
   9     -- * Dependencies
  10   , compositeC273
  11   , simple7077
  12   , simple7081
  13   , simple7383
  14   ) where
  15
  16 import           Text.Edifact.D96A.Composites (compositeC273)
  17 import           Text.Edifact.D96A.Simples    (simple7077, simple7081,
  18                                                simple7383)
  19
  20 import           Text.Edifact.Parsing
  21 import           Text.Edifact.Types           (Value)
  22
  23 -- | Derived from this specification:
  24 --
  25 -- >       IMD    ITEM DESCRIPTION
  26 -- >
  27 -- >       Function: To describe an item in either an industry or free
  28 -- >                 format.
  29 -- >
  30 -- > 010   7077  ITEM DESCRIPTION TYPE, CODED                   C  an..3
  31 -- >
  32 -- > 020   7081  ITEM CHARACTERISTIC, CODED                     C  an..3
  33 -- >
  34 -- > 030   C273  ITEM DESCRIPTION                               C
  35 -- >       7009   Item description identification               C  an..17
  36 -- >       1131   Code list qualifier                           C  an..3
  37 -- >       3055   Code list responsible agency, coded           C  an..3
  38 -- >       7008   Item description                              C  an..35
  39 -- >       7008   Item description                              C  an..35
  40 -- >       3453   Language, coded                               C  an..3
  41 -- >
  42 -- > 040   7383  SURFACE/LAYER INDICATOR, CODED                 C  an..3
  43 --
  44 -- Dependencies: 'compositeC273', 'simple7077', 'simple7081', 'simple7383'.
  45 segmentIMD :: Parser Value
  46 segmentIMD =
  47   segment "IMD"
  48     [ "010" .@ optional  simple7077
  49     , "020" .@ optional  simple7081
  50     , "030" .@ optional  compositeC273
  51     , "040" .@ optional  simple7383
  52     ]