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

{-# LANGUAGE OverloadedStrings #-}

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

module Text.Edifact.D96A.Composites.C233
  ( -- * Definition
    compositeC233
    -- * Dependencies
  , simple1131
  , simple3055
  , simple7273
  ) where

import           Text.Edifact.D96A.Simples (simple1131, simple3055, simple7273)

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

-- | Derived from this specification:
--
-- >     | C233  SERVICE
-- >
-- >     | Desc: To identify a service (which may constitute an additional
-- >             component to a basic contract).
-- >
-- > 010   7273   Service requirement, coded                    M  an..3
-- > 020   1131   Code list qualifier                           C  an..3
-- > 030   3055   Code list responsible agency, coded           C  an..3
-- > 040   7273   Service requirement, coded                    C  an..3
-- > 050   1131   Code list qualifier                           C  an..3
-- > 060   3055   Code list responsible agency, coded           C  an..3
--
-- Dependencies: 'simple1131', 'simple3055', 'simple7273'.
compositeC233 :: Parser Value
compositeC233 =
  composite "C233"
    [ "010" .@ mandatory simple7273
    , "020" .@ optional  simple1131
    , "030" .@ optional  simple3055
    , "040" .@ optional  simple7273
    , "050" .@ optional  simple1131
    , "060" .@ optional  simple3055
    ]
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.Composites.C233
	7	( -- * Definition
	8	compositeC233
	9	-- * Dependencies
	10	, simple1131
	11	, simple3055
	12	, simple7273
	13	) where
	14
	15	import Text.Edifact.D96A.Simples (simple1131, simple3055, simple7273)
	16
	17	import Text.Edifact.Parsing
	18	import Text.Edifact.Types (Value)
	19
	20	-- \| Derived from this specification:
	21	--
	22	-- > \| C233 SERVICE
	23	-- >
	24	-- > \| Desc: To identify a service (which may constitute an additional
	25	-- > component to a basic contract).
	26	-- >
	27	-- > 010 7273 Service requirement, coded M an..3
	28	-- > 020 1131 Code list qualifier C an..3
	29	-- > 030 3055 Code list responsible agency, coded C an..3
	30	-- > 040 7273 Service requirement, coded C an..3
	31	-- > 050 1131 Code list qualifier C an..3
	32	-- > 060 3055 Code list responsible agency, coded C an..3
	33	--
	34	-- Dependencies: 'simple1131', 'simple3055', 'simple7273'.
	35	compositeC233 :: Parser Value
	36	compositeC233 =
	37	composite "C233"
	38	[ "010" .@ mandatory simple7273
	39	, "020" .@ optional simple1131
	40	, "030" .@ optional simple3055
	41	, "040" .@ optional simple7273
	42	, "050" .@ optional simple1131
	43	, "060" .@ optional simple3055
	44	]