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

{-# LANGUAGE OverloadedStrings #-}

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

module Text.Edifact.D96A.Segments.FTX
  ( -- * Definition
    segmentFTX
    -- * Dependencies
  , compositeC107
  , compositeC108
  , simple3453
  , simple4451
  , simple4453
  ) where

import           Text.Edifact.D96A.Composites (compositeC107, compositeC108)
import           Text.Edifact.D96A.Simples    (simple3453, simple4451,
                                               simple4453)

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

-- | Derived from this specification:
--
-- >       FTX    FREE TEXT
-- >
-- >       Function: To provide free form or coded text information.
-- >
-- > 010   4451  TEXT SUBJECT QUALIFIER                         M  an..3
-- >
-- > 020   4453  TEXT FUNCTION, CODED                           C  an..3
-- >
-- > 030   C107  TEXT REFERENCE                                 C
-- >       4441   Free text, coded                              M  an..3
-- >       1131   Code list qualifier                           C  an..3
-- >       3055   Code list responsible agency, coded           C  an..3
-- >
-- > 040   C108  TEXT LITERAL                                   C
-- >       4440   Free text                                     M  an..70
-- >       4440   Free text                                     C  an..70
-- >       4440   Free text                                     C  an..70
-- >       4440   Free text                                     C  an..70
-- >       4440   Free text                                     C  an..70
-- >
-- > 050   3453  LANGUAGE, CODED                                C  an..3
--
-- Dependencies: 'compositeC107', 'compositeC108', 'simple3453', 'simple4451', 'simple4453'.
segmentFTX :: Parser Value
segmentFTX =
  segment "FTX"
    [ "010" .@ mandatory simple4451
    , "020" .@ optional  simple4453
    , "030" .@ optional  compositeC107
    , "040" .@ optional  compositeC108
    , "050" .@ optional  simple3453
    ]
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.FTX
	7	( -- * Definition
	8	segmentFTX
	9	-- * Dependencies
	10	, compositeC107
	11	, compositeC108
	12	, simple3453
	13	, simple4451
	14	, simple4453
	15	) where
	16
	17	import Text.Edifact.D96A.Composites (compositeC107, compositeC108)
	18	import Text.Edifact.D96A.Simples (simple3453, simple4451,
	19	simple4453)
	20
	21	import Text.Edifact.Parsing
	22	import Text.Edifact.Types (Value)
	23
	24	-- \| Derived from this specification:
	25	--
	26	-- > FTX FREE TEXT
	27	-- >
	28	-- > Function: To provide free form or coded text information.
	29	-- >
	30	-- > 010 4451 TEXT SUBJECT QUALIFIER M an..3
	31	-- >
	32	-- > 020 4453 TEXT FUNCTION, CODED C an..3
	33	-- >
	34	-- > 030 C107 TEXT REFERENCE C
	35	-- > 4441 Free text, coded M an..3
	36	-- > 1131 Code list qualifier C an..3
	37	-- > 3055 Code list responsible agency, coded C an..3
	38	-- >
	39	-- > 040 C108 TEXT LITERAL C
	40	-- > 4440 Free text M an..70
	41	-- > 4440 Free text C an..70
	42	-- > 4440 Free text C an..70
	43	-- > 4440 Free text C an..70
	44	-- > 4440 Free text C an..70
	45	-- >
	46	-- > 050 3453 LANGUAGE, CODED C an..3
	47	--
	48	-- Dependencies: 'compositeC107', 'compositeC108', 'simple3453', 'simple4451', 'simple4453'.
	49	segmentFTX :: Parser Value
	50	segmentFTX =
	51	segment "FTX"
	52	[ "010" .@ mandatory simple4451
	53	, "020" .@ optional simple4453
	54	, "030" .@ optional compositeC107
	55	, "040" .@ optional compositeC108
	56	, "050" .@ optional simple3453
	57	]