[github/fretlink/edi-parser.git] / specification / src / Text / Edifact / D96A / Simples / S1373.hs

{-# LANGUAGE OverloadedStrings #-}

---- Machine generated code.
---- Output of edi-parser-scaffolder

module Text.Edifact.D96A.Simples.S1373
  ( simple1373
  ) where

import           Text.Edifact.Parsing
import           Text.Edifact.Types   (Value)

-- | Derived from this specification:
--
-- > * 1373  Document/message status, coded
-- >
-- >   Desc: To identify the status of a document/message.
-- >
-- >   Repr: an..3
-- >
-- >         1 Accepted
-- >              Self explanatory.
-- >         2 Accompanying goods
-- >              Notice that a specific document will be accompanying the
-- >              goods.
-- >         3 Conditionally accepted
-- >              Self explanatory.
-- >         4 To arrive by separate EDI message
-- >              Notice that a specific document/message will be
-- >              transmitted via a separate EDI message.
-- >         5 Information only
-- >              Notice that the specific document or message is for
-- >              information only.
-- >         6 To arrive by manual means
-- >              Notice that a specific document or message will not be
-- >              sent via EDI.
-- >         7 To be raised and sent
-- >              Request for a specific message to be formatted and
-- >              transmitted or a request for a specific document to be
-- >              raised and sent.
-- >         8 Rejected
-- >              Self explanatory.
-- >         9 To be printed
-- >              The document or message is to be printed.
-- > +      10 Document currently valid
-- >              Specific document is currently valid.
-- >        11 Document not available
-- >              Specified document is not available.
-- >        12 Document exhausted by declaration and attached
-- >              Customs declaration to which the document is related
-- >              completed or exhaust the allowance stated on the
-- >              document. The document is attached to the Customs
-- >              declaration.
-- >        13 Document not exhausted by declaration and attached
-- >              Customs declaration to which the document is related does
-- >              not complete or exhaust the allowance stated on the
-- >              document . The document is not attached to the
-- >              declaration but has already been lodged in the Customs
-- >              station.
-- >        14 Document exhausted by declaration and previously lodged
-- >              Customs declaration to which the document is related
-- >              completed or exhaust the allowance stated on the
-- >              document. The usage of the document is complete. The
-- >              document is not attached to the declaration but has
-- >              already been lodged in the Customs station.
-- >        15 Document not exhausted by declaration and previously lodged
-- >              Customs declaration to which the document is related does
-- >              not complete or exhaust the allowance stated on the
-- >              document. The document can continue to be used for future
-- >              declarations until the allowance is exhausted.
-- >              The document is not attached to the declaration but has
-- >              already been lodged in the Customs station.
-- >        16 Document not attached
-- >              Specified document is not or cannot be attached.
-- >        17 Document with the goods
-- >              Document not attached to the Customs declaration but is
-- >              attached to the goods.
-- >        18 Document attached, to be returned after endorsement
-- >              Specified document is attached to the Customs declaration
-- >              and will be required to be returned to the declarant
-- >              after Customs endorsement.
-- >        19 Document applied for
-- >              Application has been submitted for that document.
-- >        20 Received for shipment
-- >              Indicates that the document has legal validity from the
-- >              date of receival of the cargo.
-- >        21 Shipped on board
-- >              Indicates that the document has legal validity from the
-- >              date that cargo is loaded on board a vessel.
simple1373 :: Parser Value
simple1373 = simple "1373" (alphaNumeric `upTo` 3)
Commit	Line	Data
a9d77a20 FM	1	{-# LANGUAGE OverloadedStrings #-}
	2
	3	---- Machine generated code.
	4	---- Output of edi-parser-scaffolder
	5
	6	module Text.Edifact.D96A.Simples.S1373
	7	( simple1373
	8	) where
	9
	10	import Text.Edifact.Parsing
	11	import Text.Edifact.Types (Value)
	12
	13	-- \| Derived from this specification:
	14	--
	15	-- > * 1373 Document/message status, coded
	16	-- >
	17	-- > Desc: To identify the status of a document/message.
	18	-- >
	19	-- > Repr: an..3
	20	-- >
	21	-- > 1 Accepted
	22	-- > Self explanatory.
	23	-- > 2 Accompanying goods
	24	-- > Notice that a specific document will be accompanying the
	25	-- > goods.
	26	-- > 3 Conditionally accepted
	27	-- > Self explanatory.
	28	-- > 4 To arrive by separate EDI message
	29	-- > Notice that a specific document/message will be
	30	-- > transmitted via a separate EDI message.
	31	-- > 5 Information only
	32	-- > Notice that the specific document or message is for
	33	-- > information only.
	34	-- > 6 To arrive by manual means
	35	-- > Notice that a specific document or message will not be
	36	-- > sent via EDI.
	37	-- > 7 To be raised and sent
	38	-- > Request for a specific message to be formatted and
	39	-- > transmitted or a request for a specific document to be
	40	-- > raised and sent.
	41	-- > 8 Rejected
	42	-- > Self explanatory.
	43	-- > 9 To be printed
	44	-- > The document or message is to be printed.
	45	-- > + 10 Document currently valid
	46	-- > Specific document is currently valid.
	47	-- > 11 Document not available
	48	-- > Specified document is not available.
	49	-- > 12 Document exhausted by declaration and attached
	50	-- > Customs declaration to which the document is related
	51	-- > completed or exhaust the allowance stated on the
	52	-- > document. The document is attached to the Customs
	53	-- > declaration.
	54	-- > 13 Document not exhausted by declaration and attached
	55	-- > Customs declaration to which the document is related does
	56	-- > not complete or exhaust the allowance stated on the
	57	-- > document . The document is not attached to the
	58	-- > declaration but has already been lodged in the Customs
	59	-- > station.
	60	-- > 14 Document exhausted by declaration and previously lodged
	61	-- > Customs declaration to which the document is related
	62	-- > completed or exhaust the allowance stated on the
	63	-- > document. The usage of the document is complete. The
	64	-- > document is not attached to the declaration but has
65	-- > already been lodged in the Customs station.
66	-- > 15 Document not exhausted by declaration and previously lodged
67	-- > Customs declaration to which the document is related does
68	-- > not complete or exhaust the allowance stated on the
69	-- > document. The document can continue to be used for future
70	-- > declarations until the allowance is exhausted.
71	-- > The document is not attached to the declaration but has
72	-- > already been lodged in the Customs station.
73	-- > 16 Document not attached
74	-- > Specified document is not or cannot be attached.
75	-- > 17 Document with the goods
76	-- > Document not attached to the Customs declaration but is
77	-- > attached to the goods.
78	-- > 18 Document attached, to be returned after endorsement
79	-- > Specified document is attached to the Customs declaration
80	-- > and will be required to be returned to the declarant
81	-- > after Customs endorsement.
82	-- > 19 Document applied for
83	-- > Application has been submitted for that document.
84	-- > 20 Received for shipment
85	-- > Indicates that the document has legal validity from the
86	-- > date of receival of the cargo.
87	-- > 21 Shipped on board
88	-- > Indicates that the document has legal validity from the
89	-- > date that cargo is loaded on board a vessel.
90	simple1373 :: Parser Value
91	simple1373 = simple "1373" (alphaNumeric `upTo` 3)