]>
Commit | Line | Data |
---|---|---|
a9d77a20 FM |
1 | {-# LANGUAGE OverloadedStrings #-} |
2 | ||
3 | ---- Machine generated code. | |
4 | ---- Output of edi-parser-scaffolder | |
5 | ||
6 | module Text.Edifact.D96A.Simples.S4221 | |
7 | ( simple4221 | |
8 | ) where | |
9 | ||
10 | import Text.Edifact.Parsing | |
11 | import Text.Edifact.Types (Value) | |
12 | ||
13 | -- | Derived from this specification: | |
14 | -- | |
15 | -- > * 4221 Discrepancy, coded | |
16 | -- > | |
17 | -- > Desc: Code defining the disposition of any difference between the | |
18 | -- > quantity ordered and invoiced, or shipped and invoiced for a | |
19 | -- > line item or transaction. | |
20 | -- > | |
21 | -- > Repr: an..3 | |
22 | -- > | |
23 | -- > + AA Item discontinued by wholesaler | |
24 | -- > The wholesaler no longer offers the ordered product. | |
25 | -- > + AB Item no longer produced | |
26 | -- > The item ordered has been discontinued and is no longer | |
27 | -- > in production. | |
28 | -- > + AC Over-shipped | |
29 | -- > Code indicating that there was an excess quantity of | |
30 | -- > goods in a shipment relative to the order. | |
31 | -- > + AD Item out of stock at manufacturer | |
32 | -- > The item is out of stock at manufacturer. | |
33 | -- > + AE Delivered but not advised | |
34 | -- > Shipment or goods have been delivered without any advance | |
35 | -- > notification of delivery. | |
36 | -- > + AF Goods delivered damaged | |
37 | -- > Part or all of the goods in a shipment were delivered | |
38 | -- > damaged. | |
39 | -- > + AG Delivered too late | |
40 | -- > Delivered but at a later date than the delivery date | |
41 | -- > under the agreed conditions or stipulated in the order. | |
42 | -- > AN Available now - no shipping schedule | |
43 | -- > Self explanatory. | |
44 | -- > AS Available now - scheduled to ship (date) | |
45 | -- > Self explanatory. | |
46 | -- > BK Back ordered from previous order | |
47 | -- > Self explanatory. | |
48 | -- > BP Shipment partial - back order to follow | |
49 | -- > Self explanatory. | |
50 | -- > CA Customer inquiry - all items | |
51 | -- > Self explanatory. | |
52 | -- > CC Shipment complete | |
53 | -- > Self explanatory. | |
54 | -- > CE Shipment includes extra items to meet price break | |
55 | -- > Self explanatory. | |
56 | -- > CI Customer inquiry - shipped items only | |
57 | -- > Self explanatory. | |
58 | -- > CK Cancelled from previous order | |
59 | -- > Self explanatory. | |
60 | -- > CM Shipment complete with additional quantity | |
61 | -- > Self explanatory. | |
62 | -- > CN Next carrier, PVE - (date) | |
63 | -- > Self explanatory. | |
64 | -- > CO Customer inquiry - unshipped items only | |
65 | -- > Self explanatory. | |
66 | -- > CP Shipment partial - considered complete, no backorder | |
67 | -- > Self explanatory. | |
68 | -- > CS Shipment complete with substitution | |
69 | -- > Self explanatory. | |
70 | -- > IC Item cancelled | |
71 | -- > Self explanatory. | |
72 | -- > IS Item represents substitution from original order | |
73 | -- > Self explanatory. | |
74 | -- > LS Last shipment (date) | |
75 | -- > Self explanatory. | |
76 | -- > NF Not yet published | |
77 | -- > Self explanatory. | |
78 | -- > NN Not in process - no shipping schedule | |
79 | -- > Self explanatory. | |
80 | -- > NS Not in process - schedule to ship (date) | |
81 | -- > Self explanatory. | |
82 | -- > OF Order sent to factory for production (date) | |
83 | -- > Self explanatory. | |
84 | -- > OM Item sent to factory for production (date) | |
85 | -- > Self explanatory. | |
86 | -- > OP Out of print | |
87 | -- > Self explanatory. | |
88 | -- > OS Item out of stock because of strike of force majeure | |
89 | -- > Self explanatory. | |
90 | -- > OW Item out of stock at wholesaler | |
91 | -- > Self explanatory. | |
92 | -- > PA Purchase order inquiry - all items | |
93 | -- > Self explanatory. | |
94 | -- > PD Purchase order complete | |
95 | -- > Self explanatory. | |
96 | -- > PI Purchase order inquiry - shipped items only | |
97 | -- > Self explanatory. | |
98 | -- > PK Packed-to-date (date) | |
99 | -- > Self explanatory. | |
100 | -- > PN In process - no shipping schedule | |
101 | -- > Self explanatory. | |
102 | -- > PO Purchase order inquiry - unshipped items only | |
103 | -- > Self explanatory. | |
104 | -- > PP Purchase order inquiry - specific items | |
105 | -- > Self explanatory. | |
106 | -- > PS In process - scheduled to ship (date) | |
107 | -- > Self explanatory. | |
108 | -- > RA Item rationed | |
109 | -- > Self explanatory. | |
110 | -- > SL Shipped-to-date (date) | |
111 | -- > Self explanatory. | |
112 | -- > SP Scheduled for production at factory | |
113 | -- > Self explanatory. | |
114 | -- > SS Split shipment | |
115 | -- > Shipment is only part of the ordered quantity. | |
116 | -- > TW Item temporary discontinued by wholesaler | |
117 | -- > Self explanatory. | |
118 | -- > UR Unsolicited report | |
119 | -- > Self explanatory. | |
120 | -- > ZZZ Mutually defined | |
121 | -- > Self explanatory. | |
122 | simple4221 :: Parser Value | |
123 | simple4221 = simple "4221" (alphaNumeric `upTo` 3) |