[github/fretlink/edi-parser.git] / specification / src / Text / Edifact / D96A / Segments / DLM.hs

{-# LANGUAGE OverloadedStrings #-}

---- Machine generated code.
---- Output of edi-parser-scaffolder

module Text.Edifact.D96A.Segments.DLM
  ( -- * Definition
    segmentDLM
    -- * Dependencies
  , compositeC214
  , compositeC522
  , simple4455
  , simple4457
  ) where

import           Text.Edifact.D96A.Composites (compositeC214, compositeC522)
import           Text.Edifact.D96A.Simples    (simple4455, simple4457)

import           Text.Edifact.Parsing
import           Text.Edifact.Types           (Value)

-- | Derived from this specification:
--
-- >       DLM    DELIVERY LIMITATIONS
-- >
-- >       Function: To specify limitations on deliveries.
-- >
-- > 010   4455  BACK ORDER, CODED                              C  an..3
-- >
-- > 020   C522  INSTRUCTION                                    C
-- >       4403   Instruction qualifier                         M  an..3
-- >       4401   Instruction, coded                            C  an..3
-- >       1131   Code list qualifier                           C  an..3
-- >       3055   Code list responsible agency, coded           C  an..3
-- >       4400   Instruction                                   C  an..35
-- >
-- > 030   C214  SPECIAL SERVICES IDENTIFICATION                C
-- >       7161   Special services, coded                       C  an..3
-- >       1131   Code list qualifier                           C  an..3
-- >       3055   Code list responsible agency, coded           C  an..3
-- >       7160   Special service                               C  an..35
-- >       7160   Special service                               C  an..35
-- >
-- > 040   4457  PRODUCT/SERVICE SUBSTITUTION, CODED            C  an..3
--
-- Dependencies: 'compositeC214', 'compositeC522', 'simple4455', 'simple4457'.
segmentDLM :: Parser Value
segmentDLM =
  segment "DLM"
    [ "010" .@ optional  simple4455
    , "020" .@ optional  compositeC522
    , "030" .@ optional  compositeC214
    , "040" .@ optional  simple4457
    ]
Commit	Line	Data
a9d77a20 FM	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	]