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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.SEL
   7   ( -- * Definition
   8     segmentSEL
   9     -- * Dependencies
  10   , compositeC215
  11   , simple4517
  12   , simple9308
  13   ) where
  14
  15 import           Text.Edifact.D96A.Composites (compositeC215)
  16 import           Text.Edifact.D96A.Simples    (simple4517, simple9308)
  17
  18 import           Text.Edifact.Parsing
  19 import           Text.Edifact.Types           (Value)
  20
  21 -- | Derived from this specification:
  22 --
  23 -- >       SEL    SEAL NUMBER
  24 -- >
  25 -- >       Function: To specify a seal number related to equipment.
  26 -- >
  27 -- > 010   9308  SEAL NUMBER                                    M  an..10
  28 -- >
  29 -- > 020   C215  SEAL ISSUER                                    C
  30 -- >       9303   Sealing party, coded                          C  an..3
  31 -- >       1131   Code list qualifier                           C  an..3
  32 -- >       3055   Code list responsible agency, coded           C  an..3
  33 -- >       9302   Sealing party                                 C  an..35
  34 -- >
  35 -- > 030   4517  SEAL CONDITION, CODED                          C  an..3
  36 --
  37 -- Dependencies: 'compositeC215', 'simple4517', 'simple9308'.
  38 segmentSEL :: Parser Value
  39 segmentSEL =
  40   segment "SEL"
  41     [ "010" .@ mandatory simple9308
  42     , "020" .@ optional  compositeC215
  43     , "030" .@ optional  simple4517
  44     ]