1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S8459
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > * 8459 Excess transportation responsibility code [B]
17 -- > Desc: Code specifying the responsibility for excess
22 -- > X A Customer plant (receiving location)
23 -- > Self explanatory.
26 -- > 1. This code value will be removed effective with
29 -- > B Material release issuer
30 -- > The responsibility for excess transportation is with the
31 -- > material release issuer.
33 -- > S Supplier authority
34 -- > The responsibility for excess transportation is with the
35 -- > supplier authority.
37 -- > X Responsibility to be determined
38 -- > The responsibility for the excess transportation is to
41 -- > ZZZ Mutually defined
42 -- > A code assigned within a code list to be used on an
43 -- > interim basis and as defined among trading partners
44 -- > until a precise code can be assigned to the code list.
45 simple8459 :: Parser Value
46 simple8459 = simple "8459" (alphaNumeric `upTo` 3)