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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.HAN
   7   ( -- * Definition
   8     segmentHAN
   9     -- * Dependencies
  10   , compositeC218
  11   , compositeC524
  12   ) where
  13
  14 import           Text.Edifact.D96A.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
  27 -- >       4079   Handling instructions, coded                  C  an..3
  28 -- >       1131   Code list qualifier                           C  an..3
  29 -- >       3055   Code list responsible agency, coded           C  an..3
  30 -- >       4078   Handling instructions                         C  an..70
  31 -- >
  32 -- > 020   C218  HAZARDOUS MATERIAL                             C
  33 -- >       7419   Hazardous material class code, identification C  an..4
  34 -- >       1131   Code list qualifier                           C  an..3
  35 -- >       3055   Code list responsible agency, coded           C  an..3
  36 --
  37 -- Dependencies: 'compositeC218', 'compositeC524'.
  38 segmentHAN :: Parser Value
  39 segmentHAN =
  40   segment "HAN"
  41     [ "010" .@ optional  compositeC524
  42     , "020" .@ optional  compositeC218
  43     ]