blob: 36a86078ff9fa430192588589ed2b75ab75f0c7b (
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S4295
( simple4295
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > * 4295 Change reason, coded
-- >
-- > Desc: Identification of the reason for a change.
-- >
-- > Repr: an..3
-- >
-- > AA Member attribute change
-- > An attribute of a member of a group has changed.
-- > AB Abroad
-- > In an other country.
-- > AC Member category change
-- > The member or benefits category has changed.
-- > AD Death
-- > Subject has died.
-- > AE Disability
-- > Subject is disabled.
-- > AF Early retirement
-- > Retirement before the normal retirement age.
-- > AG Hardship
-- > Subject is incurring hardship.
-- > AH Ill health
-- > Subject has ill health.
-- > AI Leaving employer
-- > Subject is leaving employer.
-- > AJ Leaving industry
-- > Person is leaving, or has left, an identified industry.
-- > AK Level/rate table change
-- > The insurance level/rate table has changed.
-- > AL Normal retirement
-- > Subject has retired at the normal retirement age.
-- > AM Other
-- > Reason differs from any of the other coded values.
-- > AN Retrenchment
-- > Subject has been retrenched from work.
-- > AO Resignation
-- > Subject has resigned from work.
-- > AP Member status change
-- > The member status has changed.
-- > AQ Alternate quantity and unit of measurement
-- > Self explanatory.
-- > + AR Article out of assortment for particular company
-- > Item normally part of a suppliers standard assortment but
-- > is unavailable for a specific buyer due to legal or
-- > commercial reasons.
-- > + AS Article out of assortment
-- > Article normally part of a standard assortment is
-- > unavailable.
-- > + AT Item not ordered
-- > Code indicating the item or product was not ordered.
-- > + AU No delivery due to outstanding payments
-- > Delivery of an item was stopped due to outstanding
-- > deliveries which have not yet been paid.
-- > + AV Out of inventory
-- > Item is out of inventory.
-- > BD Blueprint deviation
-- > Self explanatory.
-- > BQ Balancing quantity
-- > Amount needed to resolve difference between ordered and
-- > delivered quantity.
-- > DC Date change
-- > Self explanatory.
-- > EV Estimated quantity
-- > Self explanatory.
-- > GU Gross volume per pack and unit of measure
-- > Self explanatory.
-- > GW Gross weight per pack
-- > Self explanatory.
-- > LD Length difference
-- > Self explanatory.
-- > MC Pack/size measure difference
-- > Description to be provided.
-- > PC Pack difference
-- > Self-explanatory.
-- > PD Pack dimension difference
-- > Description to be provided.
-- > PQ Pack quantity
-- > Self explanatory.
-- > PS Product/services ID change
-- > Self explanatory.
-- > PW Pack weight difference
-- > Self explanatory.
-- > PZ Pack size difference
-- > Self-explanatory.
-- > QO Quantity ordered
-- > Self explanatory.
-- > QP Quantity based on price qualifier
-- > Self explanatory.
-- > QT Quantity price break
-- > Self explanatory.
-- > SC Size difference
-- > Self explanatory.
-- > UM Unit of measure difference
-- > Self explanatory.
-- > UP Unit price
-- > Self explanatory.
-- > WD Width difference
-- > Self explanatory.
-- > WO Weight qualifier/gross weight per package
-- > Self explanatory.
-- > ZZZ Mutually defined
-- > Self explanatory.
simple4295 :: Parser Value
simple4295 = simple "4295" (alphaNumeric `upTo` 3)
|