blob: 523b8fb243fbde38ec19e77953ed1f887c18f7f1 (
plain) (
blame)
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
37
38
39
40
41
42
43
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S4403
( simple4403
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 4403 Instruction qualifier
-- >
-- > Desc: Code giving specific meaning to the type of instructions.
-- >
-- > Repr: an..3
-- >
-- > 1 Action required
-- > Instruction requires action.
-- > 2 Party instructions
-- > Self explanatory.
-- > 3 Maximum value exceeded instructions
-- > Instruction how to act if maximum value will be or has
-- > been exceeded.
-- > 4 Confirmation instructions
-- > Documentary credit confirmation instructions.
-- > 5 Method of issuance
-- > Documentary credit confirmation of issuance.
-- > 6 Pre-advice instructions
-- > Documentary credit pre-advice instructions.
-- > 7 Documents delivery instruction
-- > Delivery instructions for documents required under a
-- > documentary credit.
-- > 8 Additional terms and/or conditions documentary credit
-- > Additional terms and/or conditions to the documentary
-- > credit.
-- > 9 Investment instruction
-- > Instruction refers to an investment.
simple4403 :: Parser Value
simple4403 = simple "4403" (alphaNumeric `upTo` 3)
|