aboutsummaryrefslogtreecommitdiffhomepage
path: root/specification/src/Text/Edifact/D01B/Segments/GID.hs
blob: 4bb41b17b043844d2d7c8877c0df9d0fb17c1745 (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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
{-# LANGUAGE OverloadedStrings #-}

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

module Text.Edifact.D01B.Segments.GID
  ( -- * Definition
    segmentGID
    -- * Dependencies
  , compositeC213
  , simple1496
  ) where

import           Text.Edifact.D01B.Composites (compositeC213)
import           Text.Edifact.D01B.Simples    (simple1496)

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

-- | Derived from this specification:
--
-- >        GID  GOODS ITEM DETAILS
-- >
-- >        Function: To indicate totals of a goods item.
-- >
-- > 010    1496 GOODS ITEM NUMBER                          C    1 n..5
-- >
-- > 020    C213 NUMBER AND TYPE OF PACKAGES                C    1
-- >        7224  Package quantity                          C      n..8
-- >        7065  Package type description code             C      an..17
-- >        1131  Code list identification code             C      an..17
-- >        3055  Code list responsible agency code         C      an..3
-- >        7064  Type of packages                          C      an..35
-- >        7233  Packaging related description code        C      an..3
-- >
-- > 030    C213 NUMBER AND TYPE OF PACKAGES                C    1
-- >        7224  Package quantity                          C      n..8
-- >        7065  Package type description code             C      an..17
-- >        1131  Code list identification code             C      an..17
-- >        3055  Code list responsible agency code         C      an..3
-- >        7064  Type of packages                          C      an..35
-- >        7233  Packaging related description code        C      an..3
-- >
-- > 040    C213 NUMBER AND TYPE OF PACKAGES                C    1
-- >        7224  Package quantity                          C      n..8
-- >        7065  Package type description code             C      an..17
-- >        1131  Code list identification code             C      an..17
-- >        3055  Code list responsible agency code         C      an..3
-- >        7064  Type of packages                          C      an..35
-- >        7233  Packaging related description code        C      an..3
-- >
-- > 050    C213 NUMBER AND TYPE OF PACKAGES                C    1
-- >        7224  Package quantity                          C      n..8
-- >        7065  Package type description code             C      an..17
-- >        1131  Code list identification code             C      an..17
-- >        3055  Code list responsible agency code         C      an..3
-- >        7064  Type of packages                          C      an..35
-- >        7233  Packaging related description code        C      an..3
-- >
-- > 060    C213 NUMBER AND TYPE OF PACKAGES                C    1
-- >        7224  Package quantity                          C      n..8
-- >        7065  Package type description code             C      an..17
-- >        1131  Code list identification code             C      an..17
-- >        3055  Code list responsible agency code         C      an..3
-- >        7064  Type of packages                          C      an..35
-- >        7233  Packaging related description code        C      an..3
--
-- Dependencies: 'compositeC213', 'simple1496'.
segmentGID :: Parser Value
segmentGID =
  segment "GID"
    [ "010" .@ optional  simple1496
    , "020" .@ optional  compositeC213
    , "030" .@ optional  compositeC213
    , "040" .@ optional  compositeC213
    , "050" .@ optional  compositeC213
    , "060" .@ optional  compositeC213
    ]