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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.DLM
   7   ( -- * Definition
   8     segmentDLM
   9     -- * Dependencies
  10   , compositeC214
  11   , compositeC522
  12   , simple4455
  13   , simple4457
  14   ) where
  15
  16 import           Text.Edifact.D96A.Composites (compositeC214, compositeC522)
  17 import           Text.Edifact.D96A.Simples    (simple4455, simple4457)
  18
  19 import           Text.Edifact.Parsing
  20 import           Text.Edifact.Types           (Value)
  21
  22 -- | Derived from this specification:
  23 --
  24 -- >       DLM    DELIVERY LIMITATIONS
  25 -- >
  26 -- >       Function: To specify limitations on deliveries.
  27 -- >
  28 -- > 010   4455  BACK ORDER, CODED                              C  an..3
  29 -- >
  30 -- > 020   C522  INSTRUCTION                                    C
  31 -- >       4403   Instruction qualifier                         M  an..3
  32 -- >       4401   Instruction, coded                            C  an..3
  33 -- >       1131   Code list qualifier                           C  an..3
  34 -- >       3055   Code list responsible agency, coded           C  an..3
  35 -- >       4400   Instruction                                   C  an..35
  36 -- >
  37 -- > 030   C214  SPECIAL SERVICES IDENTIFICATION                C
  38 -- >       7161   Special services, coded                       C  an..3
  39 -- >       1131   Code list qualifier                           C  an..3
  40 -- >       3055   Code list responsible agency, coded           C  an..3
  41 -- >       7160   Special service                               C  an..35
  42 -- >       7160   Special service                               C  an..35
  43 -- >
  44 -- > 040   4457  PRODUCT/SERVICE SUBSTITUTION, CODED            C  an..3
  45 --
  46 -- Dependencies: 'compositeC214', 'compositeC522', 'simple4455', 'simple4457'.
  47 segmentDLM :: Parser Value
  48 segmentDLM =
  49   segment "DLM"
  50     [ "010" .@ optional  simple4455
  51     , "020" .@ optional  compositeC522
  52     , "030" .@ optional  compositeC214
  53     , "040" .@ optional  simple4457
  54     ]