aboutsummaryrefslogtreecommitdiffhomepage
path: root/specification/src/Text/Edifact/D96A/Segments/DGS.hs
blob: 6330f6d38ae7da99af65027ad9e95be2894035dc (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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
{-# LANGUAGE OverloadedStrings #-}

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

module Text.Edifact.D96A.Segments.DGS
  ( -- * Definition
    segmentDGS
    -- * Dependencies
  , compositeC205
  , compositeC223
  , compositeC234
  , compositeC235
  , compositeC236
  , simple8126
  , simple8211
  , simple8255
  , simple8273
  , simple8325
  , simple8339
  , simple8364
  , simple8410
  ) where

import           Text.Edifact.D96A.Composites (compositeC205, compositeC223,
                                               compositeC234, compositeC235,
                                               compositeC236)
import           Text.Edifact.D96A.Simples    (simple8126, simple8211,
                                               simple8255, simple8273,
                                               simple8325, simple8339,
                                               simple8364, simple8410)

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

-- | Derived from this specification:
--
-- >       DGS    DANGEROUS GOODS
-- >
-- >       Function: To identify dangerous goods.
-- >
-- > 010   8273  DANGEROUS GOODS REGULATIONS, CODED             C  an..3
-- >
-- > 020   C205  HAZARD CODE                                    C
-- >       8351   Hazard code identification                    M  an..7
-- >       8078   Hazard substance/item/page number             C  an..7
-- >       8092   Hazard code version number                    C  an..10
-- >
-- > 030   C234  UNDG INFORMATION                               C
-- >       7124   UNDG number                                   C  n4
-- >       7088   Dangerous goods flashpoint                    C  an..8
-- >
-- > 040   C223  DANGEROUS GOODS SHIPMENT FLASHPOINT            C
-- >       7106   Shipment flashpoint                           C  n3
-- >       6411   Measure unit qualifier                        C  an..3
-- >
-- > 050   8339  PACKING GROUP, CODED                           C  an..3
-- >
-- > 060   8364  EMS NUMBER                                     C  an..6
-- >
-- > 070   8410  MFAG                                           C  an..4
-- >
-- > 080   8126  TREM CARD NUMBER                               C  an..10
-- >
-- > 090   C235  HAZARD IDENTIFICATION                          C
-- >       8158   Hazard identification number, upper part      C  an..4
-- >       8186   Substance identification number, lower part   C  an4
-- >
-- > 100   C236  DANGEROUS GOODS LABEL                          C
-- >       8246   Dangerous goods label marking                 C  an..4
-- >       8246   Dangerous goods label marking                 C  an..4
-- >       8246   Dangerous goods label marking                 C  an..4
-- >
-- > 110   8255  PACKING INSTRUCTION, CODED                     C  an..3
-- >
-- > 120   8325  CATEGORY OF MEANS OF TRANSPORT, CODED          C  an..3
-- >
-- > 130   8211  PERMISSION FOR TRANSPORT, CODED                C  an..3
--
-- Dependencies: 'compositeC205', 'compositeC223', 'compositeC234', 'compositeC235', 'compositeC236', 'simple8126', 'simple8211', 'simple8255', 'simple8273', 'simple8325', 'simple8339', 'simple8364', 'simple8410'.
segmentDGS :: Parser Value
segmentDGS =
  segment "DGS"
    [ "010" .@ optional  simple8273
    , "020" .@ optional  compositeC205
    , "030" .@ optional  compositeC234
    , "040" .@ optional  compositeC223
    , "050" .@ optional  simple8339
    , "060" .@ optional  simple8364
    , "070" .@ optional  simple8410
    , "080" .@ optional  simple8126
    , "090" .@ optional  compositeC235
    , "100" .@ optional  compositeC236
    , "110" .@ optional  simple8255
    , "120" .@ optional  simple8325
    , "130" .@ optional  simple8211
    ]