specification/src/Text/Edifact/D01B/Segments/HAN.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Segments.HAN
   7   ( -- * Definition
   8     segmentHAN
   9     -- * Dependencies
  10   , compositeC218
  11   , compositeC524
  12   ) where
  13
  14 import           Text.Edifact.D01B.Composites (compositeC218, compositeC524)
  15
  16 import           Text.Edifact.Parsing
  17 import           Text.Edifact.Types           (Value)
  18
  19 -- | Derived from this specification:
  20 --
  21 -- >        HAN  HANDLING INSTRUCTIONS
  22 -- >
  23 -- >        Function: To specify handling and where necessary, notify
  24 -- >                  hazards.
  25 -- >
  26 -- > 010    C524 HANDLING INSTRUCTIONS                      C    1
  27 -- >        4079  Handling instruction description code     C      an..3
  28 -- >        1131  Code list identification code             C      an..17
  29 -- >        3055  Code list responsible agency code         C      an..3
  30 -- >        4078  Handling instruction description          C      an..70
  31 -- >
  32 -- > 020    C218 HAZARDOUS MATERIAL                         C    1
  33 -- >        7419  Hazardous material category name code     C      an..7
  34 -- >        1131  Code list identification code             C      an..17
  35 -- >        3055  Code list responsible agency code         C      an..3
  36 -- >        7418  Hazardous material category name          C      an..35
  37 --
  38 -- Dependencies: 'compositeC218', 'compositeC524'.
  39 segmentHAN :: Parser Value
  40 segmentHAN =
  41   segment "HAN"
  42     [ "010" .@ optional  compositeC524
  43     , "020" .@ optional  compositeC218
  44     ]