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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Segments.GIN
   7   ( -- * Definition
   8     segmentGIN
   9     -- * Dependencies
  10   , compositeC208
  11   , simple7405
  12   ) where
  13
  14 import           Text.Edifact.D01B.Composites (compositeC208)
  15 import           Text.Edifact.D01B.Simples    (simple7405)
  16
  17 import           Text.Edifact.Parsing
  18 import           Text.Edifact.Types           (Value)
  19
  20 -- | Derived from this specification:
  21 --
  22 -- >        GIN  GOODS IDENTITY NUMBER
  23 -- >
  24 -- >        Function: To give specific identification numbers, either
  25 -- >                  as single numbers or ranges.
  26 -- >
  27 -- > 010    7405 OBJECT IDENTIFICATION CODE QUALIFIER       M    1 an..3
  28 -- >
  29 -- > 020    C208 IDENTITY NUMBER RANGE                      M    1
  30 -- >        7402  Object identifier                         M      an..35
  31 -- >        7402  Object identifier                         C      an..35
  32 -- >
  33 -- > 030    C208 IDENTITY NUMBER RANGE                      C    1
  34 -- >        7402  Object identifier                         M      an..35
  35 -- >        7402  Object identifier                         C      an..35
  36 -- >
  37 -- > 040    C208 IDENTITY NUMBER RANGE                      C    1
  38 -- >        7402  Object identifier                         M      an..35
  39 -- >        7402  Object identifier                         C      an..35
  40 -- >
  41 -- > 050    C208 IDENTITY NUMBER RANGE                      C    1
  42 -- >        7402  Object identifier                         M      an..35
  43 -- >        7402  Object identifier                         C      an..35
  44 -- >
  45 -- > 060    C208 IDENTITY NUMBER RANGE                      C    1
  46 -- >        7402  Object identifier                         M      an..35
  47 -- >        7402  Object identifier                         C      an..35
  48 --
  49 -- Dependencies: 'compositeC208', 'simple7405'.
  50 segmentGIN :: Parser Value
  51 segmentGIN =
  52   segment "GIN"
  53     [ "010" .@ mandatory simple7405
  54     , "020" .@ mandatory compositeC208
  55     , "030" .@ optional  compositeC208
  56     , "040" .@ optional  compositeC208
  57     , "050" .@ optional  compositeC208
  58     , "060" .@ optional  compositeC208
  59     ]