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

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