]>
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.S4401 | |
7 | ( simple4401 | |
8 | ) where | |
9 | ||
10 | import Text.Edifact.Parsing | |
11 | import Text.Edifact.Types (Value) | |
12 | ||
13 | -- | Derived from this specification: | |
14 | -- | |
15 | -- > 4401 Instruction, coded | |
16 | -- > | |
17 | -- > Desc: Specification of an action to be taken by the receiver of the | |
18 | -- > message. | |
19 | -- > | |
20 | -- > Repr: an..3 | |
21 | -- > | |
22 | -- > AA Send credit note | |
23 | -- > Self explanatory. | |
24 | -- > AB Change invoice | |
25 | -- > Send invoice, taking into account specified | |
26 | -- > discrepancies. | |
27 | -- > AD Advise | |
28 | -- > Instruction to advise a party. | |
29 | -- > X AE Change invoice | |
30 | -- > Send invoice, taking into account specified | |
31 | -- > discrepancies. Use code value AB. | |
32 | -- > AF Stop delivery process | |
33 | -- > Self-explanatory. | |
34 | -- > AG Send replacement | |
35 | -- > The identified item must be sent for replacement. | |
36 | -- > AH Pick-up | |
37 | -- > The identified item is to be picked up. | |
38 | -- > AI Advise by telecommunication | |
39 | -- > Advise of documentary credit by telecommunication. | |
40 | -- > AJ Advise by fax | |
41 | -- > Instruction to advise party by fax. | |
42 | -- > AK By registered airmail | |
43 | -- > Issue documentary credit by registered airmail. | |
44 | -- > AL By registered airmail in one set | |
45 | -- > Deliver documents in one set by registered airmail. | |
46 | -- > AM By registered airmail in two sets | |
47 | -- > Deliver documents in two sets by registered airmail. | |
48 | -- > AP Advise by phone | |
49 | -- > Instruction to advise party by phone. | |
50 | -- > AT Advise by telex | |
51 | -- > Instruction to advise party by telex. | |
52 | -- > CO Convert | |
53 | -- > Convert the message into other format. | |
54 | -- > DA Without | |
55 | -- > The bank advising the documentary credit is not requested | |
56 | -- > to confirm the credit. | |
57 | -- > DB May add | |
58 | -- > The bank advising the documentary credit may add its | |
59 | -- > confirmation to the documentary credit. | |
60 | -- > DC Confirm | |
61 | -- > The bank advising the documentary credit is requested to | |
62 | -- > confirm the credit. | |
63 | -- > DD By registered mail | |
64 | -- > Issue documentary credit by registered mail. | |
65 | -- > DE By courier service | |
66 | -- > Issue documentary credit by courier service. | |
67 | -- > DF By teletransmission | |
68 | -- > Issue documentary credit by teletransmission. | |
69 | -- > DG Preadvice by teletransmission | |
70 | -- > Preadvise documentary credit by teletransmission. | |
71 | -- > DH By courier service in one set | |
72 | -- > Deliver documents in one set by courier service. | |
73 | -- > DI By courier service in two sets | |
74 | -- > Deliver documents in two sets by courier service. | |
75 | -- > DJ By registered mail in one set | |
76 | -- > Deliver documents in one set by registered mail. | |
77 | -- > DK By registered mail in two sets | |
78 | -- > Deliver documents in two sets by registered mail. | |
79 | -- > DN Per teletransmission | |
80 | -- > Deliver documents by teletransmission. | |
81 | -- > DO Advise beneficiary by phone | |
82 | -- > Advise beneficiary of documentary credit by phone. | |
83 | -- > DP Late presentation of documents within D/C validity | |
84 | -- > acceptable | |
85 | -- > Late presentation of documents with the documentary | |
86 | -- > credit validity is acceptable. | |
87 | -- > EI EDI | |
88 | -- > Instructions to advise beneficiary by EDI. | |
89 | -- > EM Electronic mail | |
90 | -- > Instructions to advise beneficiary by electronic mail. | |
91 | -- > EX Expedite | |
92 | -- > Forward the information to requested party immediately. | |
93 | -- > QC Quality control held | |
94 | -- > Goods to be held from distribution by stockholder until a | |
95 | -- > quality control assessment is completed by the | |
96 | -- > manufacturer. | |
97 | -- > QE Quality control embargo | |
98 | -- > Quality control assessment is negative, goods are to be | |
99 | -- > held from distribution by stockholder. | |
100 | -- > RL Released | |
101 | -- > Goods are released by manufacturer for distribution by | |
102 | -- > stockholder. | |
103 | -- > SW S.W.I.F.T. | |
104 | -- > Instructions to advise beneficiary by S.W.I.F.T. | |
105 | simple4401 :: Parser Value | |
106 | simple4401 = simple "4401" (alphaNumeric `upTo` 3) |