1 files changed, 82 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S5375.hs b/specification/src/Text/Edifact/D96A/Simples/S5375.hs
new file mode 100644
index 0000000..8722270
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S5375.hs
@@ -0,0 +1,82 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S5375
+  ( simple5375
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > * 5375  Price type, coded
+-- >
+-- >   Desc: Code identifying the type of price of an item.
+-- >
+-- >   Repr: an..3
+-- >
+-- >    AA     Cancellation price
+-- >              Price authorized to be charged in the event of an order
+-- >              being cancelled.
+-- >    AB     Per ton
+-- >              To indicate that the price applies per ton.
+-- > +  AC     Minimum order price
+-- >              A code to identify the price when the minimum number is
+-- >              purchased.
+-- > +  AD     Export price
+-- >              A code to identify the price of a given article for the
+-- >              export market.
+-- > +  AE     Range dependent price
+-- >              A code identifying the price for a specific range of
+-- >              purchase quantities.
+-- >    AI     Active ingredient
+-- >              The price is referring to the active ingredient.
+-- >    AQ     As is quantity
+-- >              The price is referring to the measured quantity.
+-- >    CA     Catalogue
+-- >              Self explanatory.
+-- >    CT     Contract
+-- >              Self explanatory.
+-- >    CU     Consumer unit
+-- >              The price is referring to the consumer unit.
+-- >    DI     Distributor
+-- >              Self explanatory.
+-- >    EC     ECSC price
+-- >              Price registered at European Commission Steel and Carbon
+-- >              office (DG III).
+-- >    NW     Net weight
+-- >              Self explanatory.
+-- >    PC     Price catalogue
+-- >              Self explanatory.
+-- >    PE     Per each
+-- >              Self explanatory.
+-- >    PK     Per kilogram
+-- >              Self explanatory.
+-- >    PL     Per litre
+-- >              Self explanatory.
+-- >    PT     Per tonne
+-- >              Self explanatory.
+-- >    PU     Specified unit
+-- >              Self explanatory.
+-- >    PV     Provisional price
+-- >              Self explanatory.
+-- >    PW     Gross weight
+-- >              Self explanatory.
+-- >    QT     Quoted
+-- >              Self explanatory.
+-- >    SR     Suggested retail
+-- >              Self explanatory.
+-- >    TB     To be negotiated
+-- >              Self explanatory.
+-- >    TU     Traded unit
+-- >              The price is referring to the traded unit.
+-- >    TW     Theoretical weight
+-- >              Weight calculated on ordered dimension (length, width,
+-- >              thickness) not on final dimension (e.g. steel products).
+-- >    WH     Wholesale
+-- >              Self explanatory.
+simple5375 :: Parser Value
+simple5375 = simple "5375" (alphaNumeric `upTo` 3)