1 files changed, 45 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S4347.hs b/specification/src/Text/Edifact/D96A/Simples/S4347.hs
new file mode 100644
index 0000000..4e8b8ad
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S4347.hs
@@ -0,0 +1,45 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S4347
+  ( simple4347
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >   4347  Product id. function qualifier
+-- >
+-- >   Desc: Indication of the function of the product code.
+-- >
+-- >   Repr: an..3
+-- >
+-- >         1 Additional identification
+-- >              Information which specifies and qualifies product
+-- >              identifications.
+-- >         2 Identification for potential substitution
+-- >              The given item number(s) describe(s) a substituting
+-- >              product if the original product is not available.
+-- >         3 Substituted by
+-- >              The given item number is the number of the product that
+-- >              substitutes another one.
+-- >         4 Substituted for
+-- >              The given item number is the number of the original
+-- >              product substituted by another.
+-- >         5 Product identification
+-- >              Self explanatory.
+-- >         6 Successor product id
+-- >              Product id of the product that will follow the one
+-- >              currently in production/trade.
+-- >         7 Predecessor product id
+-- >              Product id of the predecessor of the product currently in
+-- >              production/trade.
+-- >         8 Expired/out of production
+-- >              The given item number is the expired item number of the
+-- >              product. It has been replaced.
+simple4347 :: Parser Value
+simple4347 = simple "4347" (alphaNumeric `upTo` 3)