specification/src/Text/Edifact/D96A/Simples/S8335.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S8335
   7   ( simple8335
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >   8335  Movement type, coded
  16 -- >
  17 -- >   Desc: Code indicating the type of movement.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >         1 Breakbulk
  22 -- >              Defines the movement of general cargo not carried in ISO
  23 -- >              standard containers.
  24 -- >         2 LCL/LCL
  25 -- >              Defines the movement of cargo packed in and unpacked from
  26 -- >              containers by the carrier on behalf of the
  27 -- >              shipper/consignee. 'LCL' means Less than Container Load.
  28 -- >         3 FCL/FCL
  29 -- >              Defines the movement of cargo packed by the shipper or
  30 -- >              shipper's agent and unpacked by the consignee or
  31 -- >              consignee's agent. 'FCL' means Full Container Load.
  32 -- >         4 FCL/LCL
  33 -- >              Defines the movement of cargo packed by the shipper or
  34 -- >              shipper's agent and unpacked by the carrier. 'FCL' means
  35 -- >              Full Container Load. 'LCL' means Less than Container
  36 -- >              Load.
  37 -- >         5 LCL/FCL
  38 -- >              Defines the movement of cargo packed by the carrier and
  39 -- >              unpacked by the consignee or consignee's agent. 'LCL'
  40 -- >              means Less than Container Load. 'FCL' means Full Load.
  41 -- >        11 House to house
  42 -- >              Cargo packed in a unit by the shipper at point of origin
  43 -- >              and unpacked by consignee at final destination.
  44 -- >        12 House to terminal
  45 -- >              Cargo packed in a unit by the shipper at point of origin
  46 -- >              and unpacked at the carrier's inland facility between the
  47 -- >              ship's point of discharge and the final destination.
  48 -- >        13 House to pier
  49 -- >              Cargo packed in a unit by the shipper at point of origin
  50 -- >              and unpacked by carrier at ship's point of discharge
  51 -- >              (pier).
  52 -- >        21 Terminal to house
  53 -- >              Cargo packed in a unit at a carrier's inland facility
  54 -- >              between point of origin and the ship's point of loading
  55 -- >              and unpacked by consignee at the final destination.
  56 -- >        22 Terminal to terminal
  57 -- >              Cargo packed in a unit at a carrier's inland facility
  58 -- >              between point of origin and the ship's point of loading
  59 -- >              and unpacked at a carrier's inland facility between
  60 -- >              ship's point of discharge and final destination.
  61 -- >        23 Terminal to pier
  62 -- >              Cargo packed in a unit at a carrier's inland facility
  63 -- >              between point of origin and ship's point of loading and
  64 -- >              unpacked by carrier at ship's point of discharge (pier).
  65 -- >        31 Pier to house
  66 -- >              Cargo packed in a unit at ship's point of loading and
  67 -- >              unpacked by consignee at final destination.
  68 -- >        32 Pier to terminal
  69 -- >              Cargo packed in a unit at ship's point of loading and
  70 -- >              unpacked at a carrier's inland facility between ship's
  71 -- >              point of discharge and final destination.
  72 -- >        33 Pier to pier
  73 -- >              Cargo packed in a unit at ship's point of loading and
  74 -- >              unpacked by carrier at ship's point of discharge (pier).
  75 -- >        41 Station to station
  76 -- >              Self explanatory.
  77 -- >        42 House to warehouse
  78 -- >              Self explanatory.
  79 -- >        43 Warehouse to house
  80 -- >              Self explanatory.
  81 -- >        44 Station to house
  82 -- >              Self explanatory.
  83 simple8335 :: Parser Value
  84 simple8335 = simple "8335" (alphaNumeric `upTo` 3)