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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

{-# LANGUAGE OverloadedStrings #-}

---- Machine generated code.
---- Output of edi-parser-scaffolder

module Text.Edifact.D01B.Segments.MOA
  ( -- * Definition
    segmentMOA
    -- * Dependencies
  , compositeC516
  ) where

import           Text.Edifact.D01B.Composites (compositeC516)

import           Text.Edifact.Parsing
import           Text.Edifact.Types           (Value)

-- | Derived from this specification:
--
-- >        MOA  MONETARY AMOUNT
-- >
-- >        Function: To specify a monetary amount.
-- >
-- > 010    C516 MONETARY AMOUNT                            M    1
-- >        5025  Monetary amount type code qualifier       M      an..3
-- >        5004  Monetary amount                           C      n..35
-- >        6345  Currency identification code              C      an..3
-- >        6343  Currency type code qualifier              C      an..3
-- >        4405  Status description code                   C      an..3
--
-- Dependencies: 'compositeC516'.
segmentMOA :: Parser Value
segmentMOA =
  segment "MOA"
    [ "010" .@ mandatory compositeC516
    ]