blob: 8fe105622cc43c6acaa94326cf4247e411f5f67d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D01B.Segments.CTA
( -- * Definition
segmentCTA
-- * Dependencies
, compositeC056
, simple3139
) where
import Text.Edifact.D01B.Composites (compositeC056)
import Text.Edifact.D01B.Simples (simple3139)
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > CTA CONTACT INFORMATION
-- >
-- > Function: To identify a person or a department to whom
-- > communication should be directed.
-- >
-- > 010 3139 CONTACT FUNCTION CODE C 1 an..3
-- >
-- > 020 C056 DEPARTMENT OR EMPLOYEE DETAILS C 1
-- > 3413 Department or employee name code C an..17
-- > 3412 Department or employee name C an..35
--
-- Dependencies: 'compositeC056', 'simple3139'.
segmentCTA :: Parser Value
segmentCTA =
segment "CTA"
[ "010" .@ optional simple3139
, "020" .@ optional compositeC056
]
|