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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S8457
   7   ( simple8457
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      8457  Excess transportation reason code                       [B]
  16 -- >
  17 -- >      Desc: Code specifying the reason for excess transportation.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      A     Special rail car order, schedule increase forecast change
  22 -- >               The reason for the excess transportation is due to
  23 -- >               special rail car order, schedule increase forecast
  24 -- >               change.
  25 -- >
  26 -- >      B     Engineering change or late release
  27 -- >               The reason for the excess transportation is due to
  28 -- >               engineering change or late release.
  29 -- >
  30 -- >      C     Specification (schedule) error/overbuilding
  31 -- >               The reason for the excess transportation is due to
  32 -- >               special rail car order, schedule increase forecast
  33 -- >               change specification (schedule) error/overbuilding.
  34 -- >
  35 -- >      D     Shipment tracing delay
  36 -- >               The reason for the excess transportation is due to
  37 -- >               shipment tracing delay.
  38 -- >
  39 -- >      E     Plant inventory loss
  40 -- >               The reason for the excess transportation is due to plant
  41 -- >               inventory loss.
  42 -- >
  43 -- >      F     Building ahead of schedule
  44 -- >               The reason for the excess transportation is due to
  45 -- >               building ahead of schedule.
  46 -- >
  47 -- >      G     Vendor behind schedule
  48 -- >               The reason for the excess transportation is due to
  49 -- >               vendor behind schedule.
  50 -- >
  51 -- >      H     Failed to include in last shipment
  52 -- >               The reason for the excess transportation is due to
  53 -- >               failure to include costs in last shipment.
  54 -- >
  55 -- >      I     Carrier loss claim
  56 -- >               The reason for the excess transportation is due to
  57 -- >               carrier loss claim.
  58 -- >
  59 -- >      J     Transportation failure
  60 -- >               The reason for the excess transportation is due to
  61 -- >               transportation failure.
  62 -- >
  63 -- >      K     Insufficient weight for carload
  64 -- >               The reason for the excess transportation is due to
  65 -- >               insufficient weight for carload.
  66 -- >
  67 -- >      L     Reject or discrepancy (material rejected in prior shipment)
  68 -- >               The reason for the excess transportation is due to
  69 -- >               reject or discrepancy.
  70 -- >
  71 -- >      M     Transportation delay
  72 -- >               The reason for the excess transportation is due to
  73 -- >               transportation delay.
  74 -- >
  75 -- >      N     Lack of railcar or railroad equipment
  76 -- >               The reason for the excess transportation is due to lack
  77 -- >               of railcar of railroad equipment.
  78 -- >
  79 -- >      P     Releasing error
  80 -- >               The reason for the excess transportation is due to
  81 -- >               releasing error.
  82 -- >
  83 -- >      R     Record error or cate reported discrepancy report
  84 -- >               The reason for the excess transportation is due to
  85 -- >               record error or cate reported discrepancy report.
  86 -- >
  87 -- >      T     Common or peculiar part schedule increase
  88 -- >               The reason for the excess transportation is due to
  89 -- >               common or peculiar part schedule increase.
  90 -- >
  91 -- >      U     Alternative supplier shipping for responsible supplier
  92 -- >               The reason for the excess transportation is due to
  93 -- >               alternative supplier shipping for responsible supplier.
  94 -- >
  95 -- >      V     Direct schedule or locally controlled
  96 -- >               The reason for the excess transportation is due to
  97 -- >               direct schedule or locally controlled.
  98 -- >
  99 -- >      W     Purchasing waiver approval
 100 -- >               The reason for the excess transportation is due to
 101 -- >               purchasing waiver approved.
 102 -- >
 103 -- >      X     Authorization code to be determined
 104 -- >               The reason for the excess transportation is due to
 105 -- >               authorization code to be determined.
 106 -- >
 107 -- >      Y     Pilot material
 108 -- >               The reason for the excess transportation is due to pilot
 109 -- >               material.
 110 -- >
 111 -- >      ZZZ   Mutually defined
 112 -- >               A code assigned within a code list to be used on an
 113 -- >               interim basis and as defined among trading partners
 114 -- >               until a precise code can be assigned to the code list.
 115 simple8457 :: Parser Value
 116 simple8457 = simple "8457" (alphaNumeric `upTo` 3)