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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Segments.SEL
   7   ( -- * Definition
   8     segmentSEL
   9     -- * Dependencies
  10   , compositeC208
  11   , compositeC215
  12   , simple4517
  13   , simple9308
  14   ) where
  15
  16 import           Text.Edifact.D01B.Composites (compositeC208, compositeC215)
  17 import           Text.Edifact.D01B.Simples    (simple4517, simple9308)
  18
  19 import           Text.Edifact.Parsing
  20 import           Text.Edifact.Types           (Value)
  21
  22 -- | Derived from this specification:
  23 --
  24 -- >        SEL  SEAL NUMBER
  25 -- >
  26 -- >        Function: To specify the seal number or a range of seal
  27 -- >                  numbers.
  28 -- >
  29 -- > 010    9308 SEAL IDENTIFIER                            C    1 an..35
  30 -- >
  31 -- > 020    C215 SEAL ISSUER                                C    1
  32 -- >        9303  Sealing party name code                   C      an..3
  33 -- >        1131  Code list identification code             C      an..17
  34 -- >        3055  Code list responsible agency code         C      an..3
  35 -- >        9302  Sealing party name                        C      an..35
  36 -- >
  37 -- > 030    4517 SEAL CONDITION CODE                        C    1 an..3
  38 -- >
  39 -- > 040    C208 IDENTITY NUMBER RANGE                      C    1
  40 -- >        7402  Object identifier                         M      an..35
  41 -- >        7402  Object identifier                         C      an..35
  42 --
  43 -- Dependencies: 'compositeC208', 'compositeC215', 'simple4517', 'simple9308'.
  44 segmentSEL :: Parser Value
  45 segmentSEL =
  46   segment "SEL"
  47     [ "010" .@ optional  simple9308
  48     , "020" .@ optional  compositeC215
  49     , "030" .@ optional  simple4517
  50     , "040" .@ optional  compositeC208
  51     ]