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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Segments.PCI
   7   ( -- * Definition
   8     segmentPCI
   9     -- * Dependencies
  10   , compositeC210
  11   , compositeC827
  12   , simple4233
  13   , simple8275
  14   ) where
  15
  16 import           Text.Edifact.D01B.Composites (compositeC210, compositeC827)
  17 import           Text.Edifact.D01B.Simples    (simple4233, simple8275)
  18
  19 import           Text.Edifact.Parsing
  20 import           Text.Edifact.Types           (Value)
  21
  22 -- | Derived from this specification:
  23 --
  24 -- >        PCI  PACKAGE IDENTIFICATION
  25 -- >
  26 -- >        Function: To specify markings and labels on individual
  27 -- >                  packages or physical units.
  28 -- >
  29 -- > 010    4233 MARKING INSTRUCTIONS CODE                  C    1 an..3
  30 -- >
  31 -- > 020    C210 MARKS & LABELS                             C    1
  32 -- >        7102  Shipping marks description                M      an..35
  33 -- >        7102  Shipping marks description                C      an..35
  34 -- >        7102  Shipping marks description                C      an..35
  35 -- >        7102  Shipping marks description                C      an..35
  36 -- >        7102  Shipping marks description                C      an..35
  37 -- >        7102  Shipping marks description                C      an..35
  38 -- >        7102  Shipping marks description                C      an..35
  39 -- >        7102  Shipping marks description                C      an..35
  40 -- >        7102  Shipping marks description                C      an..35
  41 -- >        7102  Shipping marks description                C      an..35
  42 -- >
  43 -- > 030    8275 CONTAINER OR PACKAGE CONTENTS INDICATOR
  44 -- >             CODE                                       C    1 an..3
  45 -- >
  46 -- > 040    C827 TYPE OF MARKING                            C    1
  47 -- >        7511  Marking type code                         M      an..3
  48 -- >        1131  Code list identification code             C      an..17
  49 -- >        3055  Code list responsible agency code         C      an..3
  50 --
  51 -- Dependencies: 'compositeC210', 'compositeC827', 'simple4233', 'simple8275'.
  52 segmentPCI :: Parser Value
  53 segmentPCI =
  54   segment "PCI"
  55     [ "010" .@ optional  simple4233
  56     , "020" .@ optional  compositeC210
  57     , "030" .@ optional  simple8275
  58     , "040" .@ optional  compositeC827
  59     ]