specification/src/Text/Edifact/D01B/Simples/S8101.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S8101
   7   ( simple8101
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      8101  Transit direction indicator code                        [B]
  16 -- >
  17 -- >      Desc: Code specifying the direction of transport.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      BS    Buyer to seller
  22 -- >               Self explanatory.
  23 -- >
  24 -- >      SB    Seller to buyer
  25 -- >               The transport from the seller to the buyer.
  26 -- >
  27 -- >      SC    Subcontractor to seller
  28 -- >               The transport from the subcontractor to the seller.
  29 -- >
  30 -- >      SD    Seller to drop ship designated location
  31 -- >               The transport from the seller to the drop ship
  32 -- >               designated location.
  33 -- >
  34 -- >      SF    Seller to freight forwarder
  35 -- >               The transport from the seller to the freight forwarder.
  36 -- >
  37 -- >      SS    Seller to subcontractor
  38 -- >               The transport from the seller to the subcontractor.
  39 -- >
  40 -- >      ST    Mother vessel to lighter
  41 -- >               Cargo is transferred from the main carriage or mother
  42 -- >               vessel to a lighter.
  43 -- >
  44 -- >      SU    Lighter to mother vessel
  45 -- >               Cargo is transferred from the lighter vessel to a main
  46 -- >               carriage or mother vessel.
  47 -- >
  48 -- >      ZZZ   Mutually defined
  49 -- >               A code assigned within a code list to be used on an
  50 -- >               interim basis and as defined among trading partners
  51 -- >               until a precise code can be assigned to the code list.
  52 simple8101 :: Parser Value
  53 simple8101 = simple "8101" (alphaNumeric `upTo` 3)