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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.CNI
   7   ( -- * Definition
   8     segmentCNI
   9     -- * Dependencies
  10   , compositeC503
  11   , simple1312
  12   , simple1490
  13   ) where
  14
  15 import           Text.Edifact.D96A.Composites (compositeC503)
  16 import           Text.Edifact.D96A.Simples    (simple1312, simple1490)
  17
  18 import           Text.Edifact.Parsing
  19 import           Text.Edifact.Types           (Value)
  20
  21 -- | Derived from this specification:
  22 --
  23 -- >       CNI    CONSIGNMENT INFORMATION
  24 -- >
  25 -- >       Function: To identify one consignment.
  26 -- >
  27 -- > 010   1490  CONSOLIDATION ITEM NUMBER                      C  n..4
  28 -- >
  29 -- > 020   C503  DOCUMENT/MESSAGE DETAILS                       C
  30 -- >       1004   Document/message number                       C  an..35
  31 -- >       1373   Document/message status, coded                C  an..3
  32 -- >       1366   Document/message source                       C  an..35
  33 -- >       3453   Language, coded                               C  an..3
  34 -- >
  35 -- > 030   1312  CONSIGNMENT LOAD SEQUENCE NUMBER               C  n..4
  36 --
  37 -- Dependencies: 'compositeC503', 'simple1312', 'simple1490'.
  38 segmentCNI :: Parser Value
  39 segmentCNI =
  40   segment "CNI"
  41     [ "010" .@ optional  simple1490
  42     , "020" .@ optional  compositeC503
  43     , "030" .@ optional  simple1312
  44     ]