aboutsummaryrefslogtreecommitdiffhomepage
path: root/specification/src/Text/Edifact/D96A/Simples/S3139.hs
blob: 50ffe3f12e9829b7f3e383b513889472dab21b89 (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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
{-# LANGUAGE OverloadedStrings #-}

---- Machine generated code.
---- Output of edi-parser-scaffolder

module Text.Edifact.D96A.Simples.S3139
  ( simple3139
  ) where

import           Text.Edifact.Parsing
import           Text.Edifact.Types   (Value)

-- | Derived from this specification:
--
-- >   3139  Contact function, coded
-- >
-- >   Desc: Code specifying the function of a contact (e.g. department or
-- >         person).
-- >
-- >   Repr: an..3
-- >
-- >    AA     Insurance contact
-- >              Department/person to contact for matters regarding
-- >              insurance.
-- >    AB     Workshop contact
-- >              Department/person to contact for matters regarding the
-- >              workshop.
-- >    AC     Accepting contact
-- >              Department/person in charge of accepting incoming goods.
-- >    AD     Accounting contact
-- >              Department/person responsible for the accounts payable
-- >              function within a corporation.
-- >    AE     Contract contact
-- >              Department/person to contact for matters regarding
-- >              contracts.
-- >    AF     Land registry contact
-- >              Department/person to contact for matters regarding land
-- >              registry.
-- >    AG     Agent
-- >              Department/person of the agent which acts on behalf of
-- >              another party.
-- >    AH     Coordination contact
-- >              Department/person to contact for matters regarding
-- >              technical coordination of works.
-- >    AI     Project management contact
-- >              Department/person to contact for matters regarding
-- >              project management on behalf of the contractor.
-- >    AJ     Investment contact
-- >              Department/person to contact for matters regarding
-- >              investments.
-- >    AK     Works management contact
-- >              Department/person to contact for matters regarding
-- >              management of works on behalf of the owner.
-- >    AL     Personnel contact
-- >              Department/person to contact for matters regarding
-- >              personnel (human resources).
-- >    AM     Claims contact
-- >              Department/person to contact for matters regarding
-- >              claims.
-- >    AN     Laboratory contact
-- >              Department/person to contact for laboratory matters.
-- >    AO     Plant/equipment contact
-- >              Department/person to contact for matters regarding
-- >              plant/equipment.
-- >    AP     Accounts payable contact
-- >              Department/person responsible for the accounts payable
-- >              function within a corporation.
-- >    AQ     Quantity surveyor contact
-- >              Department/person to contact for matters regarding
-- >              quantity surveying.
-- >    AR     Accounts receivable contact
-- >              Department/person responsible for the accounts receivable
-- >              within a corporation.
-- >    AS     Public relations contact
-- >              Department/person to contact for matters regarding public
-- >              relations.
-- >    AT     Technical contact
-- >              Department/person to contact for matters regarding
-- >              technical issues.
-- >    AU     City works authority contact
-- >              Department/person to contact for matters regarding city
-- >              works.
-- >    AV     Maintenance contact
-- >              Department/person to contact for matters regarding
-- >              maintenance.
-- >    AW     Town planning contact
-- >              Department/person to contact for matters regarding town `
-- >              planning.
-- >    AX     Traffic authority contact
-- >              Department/person to contact for matters regarding
-- >              traffic.
-- >    AY     Electricity supply contact
-- >              Department/person to contact for matters regarding
-- >              electricity supply.
-- >    AZ     Gas supply contact
-- >              Department/person to contact for matters regarding gas
-- >              supply.
-- >    BA     Water supply contact
-- >              Department/person to contact for matters regarding water
-- >              supply.
-- >    BB     Telecommunications network contact
-- >              Department/person to contact for matters regarding
-- >              telecommunications network.
-- >    BC     Banking contact
-- >              Contact person for bank.
-- >    BD     New developments contact
-- >              Department/person to contact for matters regarding new
-- >              developments (e.g. construction).
-- >    BE     Transport infrastructure authority
-- >              Department/person to contact for matters regarding
-- >              transport infrastructure.
-- >    BF     Service contact
-- >              Department/person to be contacted in service matters.
-- >    BU     Ultimate consignee
-- >              Department/designated on the invoice or packing list as
-- >              the final recipient of the stated merchandise.
-- >    CA     Carrier
-- >              (3126) Party undertaking or arranging transport of goods
-- >              between named points.
-- >    CB     Changed by
-- >              Person who made the change.
-- >    CC     Responsible person for information production
-- >              Responsible person to contact for matters regarding the
-- >              production of information.
-- >    CD     Responsible person for information dissemination
-- >              Responsible person to contact for matters regarding
-- >              information dissemination.
-- >    CE     Head of unit for computer data processing
-- >              Head of unit to contact for matters regarding computer
-- >              data processing.
-- >    CF     Head of unit for information production
-- >              Head of unit to contact for matters regarding the
-- >              production of information.
-- >    CG     Head of unit for information dissemination
-- >              Head of unit to contact for matters regarding
-- >              dissemination of information.
-- >    CN     Consignee
-- >              (3132) Party to which goods are consigned.
-- >    CO     Consignor
-- >              (3336) Party which, by contract with a carrier, consigns
-- >              or sends goods with the carrier, or has them conveyed by
-- >              him. Synonym: shipper/sender.
-- >    CP     Responsible person for computer data processing
-- >              Responsible person to contact for matters regarding
-- >              computer data processing.
-- >    CR     Customer relations
-- >              Individual responsible for customer relations.
-- >    CW     Confirmed with
-- >              Person with whom the contents of the purchase order has
-- >              been discussed and agreed (e.g. by telephone) prior to
-- >              the sending of this message.
-- >    DE     Department/employee to execute export procedures
-- >              Self explanatory.
-- >    DI     Department/employee to execute import procedures
-- >              Self explanatory.
-- >    DL     Delivery contact
-- >              Department/person responsible for delivery.
-- >    EB     Entered by
-- >              Name of an individual who made the entry.
-- >    EC     Education coordinator
-- >              Person in charge of coordination of education.
-- >    ED     Engineering contact
-- >              Department/person to contact for matters regarding
-- >              engineering.
-- >    EX     Expeditor
-- >              Party to be contacted where goods are (to be) expedited.
-- >    GR     Goods receiving contact
-- >              Department/person responsible for receiving the goods at
-- >              the place of delivery.
-- >    HE     Emergency dangerous goods contact
-- >              Party who is to be contacted to intervene in case of
-- >              emergency.
-- >    HG     Dangerous goods contact
-- >              Department/person to be contacted for details about the
-- >              transportation of dangerous goods/hazardous material.
-- >    HM     Hazardous material contact
-- >              Department/person responsible for hazardous material
-- >              control.
-- >    IC     Information contact
-- >              Department/person to contact for questions regarding
-- >              transactions.
-- >    IN     Insurer contact
-- >              Self explanatory.
-- >    LB     Place of delivery contact
-- >              Self explanatory.
-- >    LO     Place of collection contact
-- >              Self explanatory.
-- >    MC     Material control contact
-- >              Department/person responsible for the
-- >              controlling/inspection of goods.
-- >    MD     Material disposition contact
-- >              Department/person responsible for the
-- >              disposition/scheduling of goods.
-- >    MH     Material handling contact
-- >              Self explanatory.
-- >    MR     Message recipient contact
-- >              Self explanatory.
-- >    MS     Message sender contact
-- >              Self explanatory.
-- >    NT     Notification contact
-- >              Self explanatory.
-- >    OC     Order contact
-- >              An individual to contact for questions regarding this
-- >              order.
-- >    PA     Prototype coordinator
-- >              Description to be provided.
-- >    PD     Purchasing contact
-- >              Department/person responsible for issuing this purchase
-- >              order.
-- >    PE     Payee contact
-- >              Self explanatory.
-- >    PM     Product management contact
-- >              Department/person to contact for questions regarding this
-- >              order.
-- >    QA     Quality assurance contact
-- >              Quality assurance contact within an organization.
-- >    QC     Quality coordinator contact
-- >              Quality coordinator contact within an organization.
-- >    RD     Receiving dock contact
-- >              The receiving dock contact within an organization.
-- >    SA     Sales administration
-- >              Name of the sales administration contact within a
-- >              corporation.
-- >    SC     Schedule contact
-- >              Name of the scheduling contact within a corporation.
-- >    SD     Shipping contact
-- >              The shipping department contact within an organization.
-- >    SR     Sales representative or department
-- >              The sales representative or department contact within an
-- >              organization.
-- >    SU     Supplier contact
-- >              Department/person to be contacted at the supplier.
-- >    TA     Traffic administrator
-- >              The traffic administrator contact within an organization.
-- >    TD     Test contact
-- >              Department/person responsible for testing contact.
-- >    TI     Technical documentation recipient
-- >              Department/person to receive technical documentation.
-- >    TR     Transport contact
-- >              Department/person in charge of transportation.
-- >    WH     Warehouse
-- >              The warehouse contact within an organization.
-- >    ZZZ    Mutually defined
-- >              Self explanatory.
simple3139 :: Parser Value
simple3139 = simple "3139" (alphaNumeric `upTo` 3)