1 files changed, 44 insertions, 0 deletions

diff --git a/core/src/Text/Edifact/Common/Segments/UNH.hs b/core/src/Text/Edifact/Common/Segments/UNH.hs
new file mode 100644
index 0000000..61cb6b3
--- /dev/null
+++ b/core/src/Text/Edifact/Common/Segments/UNH.hs
@@ -0,0 +1,44 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Text.Edifact.Common.Segments.UNH
+  ( segmentUNH
+  ) where
+
+import           Text.Edifact.Common.Composites (compositeS009, compositeS010)
+import           Text.Edifact.Common.Simples    (simple0062, simple0068)
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types          (Value)
+
+-- | Derived from this specification:
+--
+-- >         Change indicators
+-- >
+-- >           UNH    MESSAGE HEADER
+-- >
+-- >           Function: To head, identify and specify a message.
+-- >
+-- >     010   0062  MESSAGE REFERENCE NUMBER                              M  an..14
+-- >
+-- >     020   S009  MESSAGE IDENTIFIER                                    M
+-- >           0065   Message type                                         M  an..6
+-- >           0052   Message version number                               M  an..3
+-- >           0054   Message release number                               M  an..3
+-- >           0051   Controlling agency                                   M  an..2
+-- >           0057   Association assigned code                            C  an..6
+-- >
+-- >     030   0068  COMMON ACCESS REFERENCE                               C  an..35
+-- >
+-- >     040   S010  STATUS OF THE TRANSFER                                C
+-- >           0070   Sequence of transfers                                M  n..2
+-- >           0073   First and last transfer                              C  a1
+--
+-- Dependencies: 'compositeS009', 'compositeS010', 'simple0062', 'simple0068'.
+segmentUNH :: Parser Value
+segmentUNH =
+  segment "UNH"
+    [ "010" .@ mandatory simple0062
+    , "020" .@ mandatory compositeS009
+    , "030" .@ optional  simple0068
+    , "040" .@ optional  compositeS010
+    ]