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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.FTX
   7   ( -- * Definition
   8     segmentFTX
   9     -- * Dependencies
  10   , compositeC107
  11   , compositeC108
  12   , simple3453
  13   , simple4451
  14   , simple4453
  15   ) where
  16
  17 import           Text.Edifact.D96A.Composites (compositeC107, compositeC108)
  18 import           Text.Edifact.D96A.Simples    (simple3453, simple4451,
  19                                                simple4453)
  20
  21 import           Text.Edifact.Parsing
  22 import           Text.Edifact.Types           (Value)
  23
  24 -- | Derived from this specification:
  25 --
  26 -- >       FTX    FREE TEXT
  27 -- >
  28 -- >       Function: To provide free form or coded text information.
  29 -- >
  30 -- > 010   4451  TEXT SUBJECT QUALIFIER                         M  an..3
  31 -- >
  32 -- > 020   4453  TEXT FUNCTION, CODED                           C  an..3
  33 -- >
  34 -- > 030   C107  TEXT REFERENCE                                 C
  35 -- >       4441   Free text, coded                              M  an..3
  36 -- >       1131   Code list qualifier                           C  an..3
  37 -- >       3055   Code list responsible agency, coded           C  an..3
  38 -- >
  39 -- > 040   C108  TEXT LITERAL                                   C
  40 -- >       4440   Free text                                     M  an..70
  41 -- >       4440   Free text                                     C  an..70
  42 -- >       4440   Free text                                     C  an..70
  43 -- >       4440   Free text                                     C  an..70
  44 -- >       4440   Free text                                     C  an..70
  45 -- >
  46 -- > 050   3453  LANGUAGE, CODED                                C  an..3
  47 --
  48 -- Dependencies: 'compositeC107', 'compositeC108', 'simple3453', 'simple4451', 'simple4453'.
  49 segmentFTX :: Parser Value
  50 segmentFTX =
  51   segment "FTX"
  52     [ "010" .@ mandatory simple4451
  53     , "020" .@ optional  simple4453
  54     , "030" .@ optional  compositeC107
  55     , "040" .@ optional  compositeC108
  56     , "050" .@ optional  simple3453
  57     ]