blob: 23a7de2e12937e5a6346e9c3a61d469381b1e7ee (
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
118
119
120
121
122
123
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S4221
( simple4221
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > * 4221 Discrepancy, coded
-- >
-- > Desc: Code defining the disposition of any difference between the
-- > quantity ordered and invoiced, or shipped and invoiced for a
-- > line item or transaction.
-- >
-- > Repr: an..3
-- >
-- > + AA Item discontinued by wholesaler
-- > The wholesaler no longer offers the ordered product.
-- > + AB Item no longer produced
-- > The item ordered has been discontinued and is no longer
-- > in production.
-- > + AC Over-shipped
-- > Code indicating that there was an excess quantity of
-- > goods in a shipment relative to the order.
-- > + AD Item out of stock at manufacturer
-- > The item is out of stock at manufacturer.
-- > + AE Delivered but not advised
-- > Shipment or goods have been delivered without any advance
-- > notification of delivery.
-- > + AF Goods delivered damaged
-- > Part or all of the goods in a shipment were delivered
-- > damaged.
-- > + AG Delivered too late
-- > Delivered but at a later date than the delivery date
-- > under the agreed conditions or stipulated in the order.
-- > AN Available now - no shipping schedule
-- > Self explanatory.
-- > AS Available now - scheduled to ship (date)
-- > Self explanatory.
-- > BK Back ordered from previous order
-- > Self explanatory.
-- > BP Shipment partial - back order to follow
-- > Self explanatory.
-- > CA Customer inquiry - all items
-- > Self explanatory.
-- > CC Shipment complete
-- > Self explanatory.
-- > CE Shipment includes extra items to meet price break
-- > Self explanatory.
-- > CI Customer inquiry - shipped items only
-- > Self explanatory.
-- > CK Cancelled from previous order
-- > Self explanatory.
-- > CM Shipment complete with additional quantity
-- > Self explanatory.
-- > CN Next carrier, PVE - (date)
-- > Self explanatory.
-- > CO Customer inquiry - unshipped items only
-- > Self explanatory.
-- > CP Shipment partial - considered complete, no backorder
-- > Self explanatory.
-- > CS Shipment complete with substitution
-- > Self explanatory.
-- > IC Item cancelled
-- > Self explanatory.
-- > IS Item represents substitution from original order
-- > Self explanatory.
-- > LS Last shipment (date)
-- > Self explanatory.
-- > NF Not yet published
-- > Self explanatory.
-- > NN Not in process - no shipping schedule
-- > Self explanatory.
-- > NS Not in process - schedule to ship (date)
-- > Self explanatory.
-- > OF Order sent to factory for production (date)
-- > Self explanatory.
-- > OM Item sent to factory for production (date)
-- > Self explanatory.
-- > OP Out of print
-- > Self explanatory.
-- > OS Item out of stock because of strike of force majeure
-- > Self explanatory.
-- > OW Item out of stock at wholesaler
-- > Self explanatory.
-- > PA Purchase order inquiry - all items
-- > Self explanatory.
-- > PD Purchase order complete
-- > Self explanatory.
-- > PI Purchase order inquiry - shipped items only
-- > Self explanatory.
-- > PK Packed-to-date (date)
-- > Self explanatory.
-- > PN In process - no shipping schedule
-- > Self explanatory.
-- > PO Purchase order inquiry - unshipped items only
-- > Self explanatory.
-- > PP Purchase order inquiry - specific items
-- > Self explanatory.
-- > PS In process - scheduled to ship (date)
-- > Self explanatory.
-- > RA Item rationed
-- > Self explanatory.
-- > SL Shipped-to-date (date)
-- > Self explanatory.
-- > SP Scheduled for production at factory
-- > Self explanatory.
-- > SS Split shipment
-- > Shipment is only part of the ordered quantity.
-- > TW Item temporary discontinued by wholesaler
-- > Self explanatory.
-- > UR Unsolicited report
-- > Self explanatory.
-- > ZZZ Mutually defined
-- > Self explanatory.
simple4221 :: Parser Value
simple4221 = simple "4221" (alphaNumeric `upTo` 3)
|