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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.EQD
   7   ( -- * Definition
   8     segmentEQD
   9     -- * Dependencies
  10   , compositeC224
  11   , compositeC237
  12   , simple8053
  13   , simple8077
  14   , simple8169
  15   , simple8249
  16   ) where
  17
  18 import           Text.Edifact.D96A.Composites (compositeC224, compositeC237)
  19 import           Text.Edifact.D96A.Simples    (simple8053, simple8077,
  20                                                simple8169, simple8249)
  21
  22 import           Text.Edifact.Parsing
  23 import           Text.Edifact.Types           (Value)
  24
  25 -- | Derived from this specification:
  26 --
  27 -- >       EQD    EQUIPMENT DETAILS
  28 -- >
  29 -- >       Function: To identify a unit of equipment.
  30 -- >
  31 -- > 010   8053  EQUIPMENT QUALIFIER                            M  an..3
  32 -- >
  33 -- > 020   C237  EQUIPMENT IDENTIFICATION                       C
  34 -- >       8260   Equipment identification number               C  an..17
  35 -- >       1131   Code list qualifier                           C  an..3
  36 -- >       3055   Code list responsible agency, coded           C  an..3
  37 -- >       3207   Country, coded                                C  an..3
  38 -- >
  39 -- > 030   C224  EQUIPMENT SIZE AND TYPE                        C
  40 -- >       8155   Equipment size and type identification        C  an..10
  41 -- >       1131   Code list qualifier                           C  an..3
  42 -- >       3055   Code list responsible agency, coded           C  an..3
  43 -- >       8154   Equipment size and type                       C  an..35
  44 -- >
  45 -- > 040   8077  EQUIPMENT SUPPLIER, CODED                      C  an..3
  46 -- >
  47 -- > 050   8249  EQUIPMENT STATUS, CODED                        C  an..3
  48 -- >
  49 -- > 060   8169  FULL/EMPTY INDICATOR, CODED                    C  an..3
  50 --
  51 -- Dependencies: 'compositeC224', 'compositeC237', 'simple8053', 'simple8077', 'simple8169', 'simple8249'.
  52 segmentEQD :: Parser Value
  53 segmentEQD =
  54   segment "EQD"
  55     [ "010" .@ mandatory simple8053
  56     , "020" .@ optional  compositeC237
  57     , "030" .@ optional  compositeC224
  58     , "040" .@ optional  simple8077
  59     , "050" .@ optional  simple8249
  60     , "060" .@ optional  simple8169
  61     ]