blob: fa997d8bcad8c5fce0392350b258e967677d3a56 (
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S4405
( simple4405
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 4405 Status, coded
-- >
-- > Desc: Provides information regarding a status.
-- >
-- > Repr: an..3
-- >
-- > 1 To be done
-- > Remark that the requested service in the order remains
-- > outstanding.
-- > 2 Done
-- > The instruction has been completed.
-- > 3 Passed on
-- > The information has been passed on.
-- > 4 Final
-- > The amount has the status of finality.
-- > 5 Subject to final payment
-- > The amount is subject to finality.
-- > 6 Minimum
-- > The amount quoted is a minimum tariff.
-- > 7 Fixed
-- > The amount quoted is a fixed tariff.
-- > 8 Maximum
-- > The amount quoted is a maximum tariff.
-- > 9 Information
-- > The amount is quoted for information only, it is not part
-- > of the charges to be deducted or added.
-- > 10 0 day available
-- > The amount is available today.
-- > 11 1 day available
-- > The amount is available on the next banking office day
-- > after the booking date.
-- > 12 2 days available
-- > The amount is available on the second banking office day
-- > after the booking date.
-- > 13 3 days available
-- > The amount available on the third banking office day
-- > after the booking date.
-- > 14 Uncollected funds
-- > Funds not collected by beneficiary.
-- > 15 Nil
-- > Self explanatory.
-- > 16 None advised
-- > Self explanatory.
-- > 17 Requested
-- > Self explanatory.
-- > 18 Free of charge
-- > Self explanatory.
-- > 19 Rounded
-- > Self explanatory.
-- > 20 Permanent
-- > Self-explanatory.
-- > 21 Temporary
-- > Self-explanatory.
simple4405 :: Parser Value
simple4405 = simple "4405" (alphaNumeric `upTo` 3)
|