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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.BGM
   7   ( -- * Definition
   8     segmentBGM
   9     -- * Dependencies
  10   , compositeC002
  11   , simple1004
  12   , simple1225
  13   , simple4343
  14   ) where
  15
  16 import           Text.Edifact.D96A.Composites (compositeC002)
  17 import           Text.Edifact.D96A.Simples    (simple1004, simple1225,
  18                                                simple4343)
  19
  20 import           Text.Edifact.Parsing
  21 import           Text.Edifact.Types           (Value)
  22
  23 -- | Derived from this specification:
  24 --
  25 -- >       BGM    BEGINNING OF MESSAGE
  26 -- >
  27 -- >       Function: To indicate the type and function of a message and to
  28 -- >                 transmit the identifying number.
  29 -- >
  30 -- > 010   C002  DOCUMENT/MESSAGE NAME                          C
  31 -- >       1001   Document/message name, coded                  C  an..3
  32 -- >       1131   Code list qualifier                           C  an..3
  33 -- >       3055   Code list responsible agency, coded           C  an..3
  34 -- >       1000   Document/message name                         C  an..35
  35 -- >
  36 -- > 020   1004  DOCUMENT/MESSAGE NUMBER                        C  an..35
  37 -- >
  38 -- > 030   1225  MESSAGE FUNCTION, CODED                        C  an..3
  39 -- >
  40 -- > 040   4343  RESPONSE TYPE, CODED                           C  an..3
  41 --
  42 -- Dependencies: 'compositeC002', 'simple1004', 'simple1225', 'simple4343'.
  43 segmentBGM :: Parser Value
  44 segmentBGM =
  45   segment "BGM"
  46     [ "010" .@ optional  compositeC002
  47     , "020" .@ optional  simple1004
  48     , "030" .@ optional  simple1225
  49     , "040" .@ optional  simple4343
  50     ]