1 files changed, 265 insertions, 0 deletions
diff --git a/specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs b/specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs
new file mode 100644
index 0000000..23e53c3
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs
@@ -0,0 +1,265 @@
+{-# LANGUAGE OverloadedStrings #-}
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+module Text.Edifact.D01B.Messages.IFTSTA
+  ( -- * Definition
+    messageIFTSTA
+    -- * Dependencies
+  , segmentBGM
+  , segmentCNI
+  , segmentCNT
+  , segmentCOM
+  , segmentCTA
+  , segmentDGS
+  , segmentDIM
+  , segmentDOC
+  , segmentDTM
+  , segmentEQA
+  , segmentEQD
+  , segmentEQN
+  , segmentFTX
+  , segmentGID
+  , segmentGIN
+  , segmentHAN
+  , segmentLOC
+  , segmentMEA
+  , segmentNAD
+  , segmentPCI
+  , segmentRFF
+  , segmentSEL
+  , segmentSGP
+  , segmentSTS
+  , segmentTDT
+  , segmentTMD
+  , segmentTPL
+  , segmentTSR
+  ) where
+import           Text.Edifact.Common.Segments
+import           Text.Edifact.D01B.Segments   (segmentBGM, segmentCNI,
+                                               segmentCNT, segmentCOM,
+                                               segmentCTA, segmentDGS,
+                                               segmentDIM, segmentDOC,
+                                               segmentDTM, segmentEQA,
+                                               segmentEQD, segmentEQN,
+                                               segmentFTX, segmentGID,
+                                               segmentGIN, segmentHAN,
+                                               segmentLOC, segmentMEA,
+                                               segmentNAD, segmentPCI,
+                                               segmentRFF, segmentSEL,
+                                               segmentSGP, segmentSTS,
+                                               segmentTDT, segmentTMD,
+                                               segmentTPL, segmentTSR)
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types           (Value)
+-- | Derived from this specification:
+--
+-- > 4.3    Message structure
+-- >
+-- > 4.3.1  Segment table
+-- >
+-- > Pos    Tag Name                                      S   R
+-- >
+-- > 0010   UNH Message header                            M   1
+-- > 0020   BGM Beginning of message                      M   1
+-- > 0030   DTM Date/time/period                          C   9
+-- > 0040   TSR Transport service requirements            C   1
+-- >
+-- > 0050       ----- Segment group 1  ------------------ C   9-----------+
+-- > 0060   NAD Name and address                          M   1           |
+-- >                                                                      |
+-- > 0070       ----- Segment group 2  ------------------ C   9----------+|
+-- > 0080   CTA Contact information                       M   1          ||
+-- > 0090   COM Communication contact                     C   9----------++
+-- >
+-- > 0100       ----- Segment group 3  ------------------ C   9-----------+
+-- > 0110   RFF Reference                                 M   1           |
+-- > 0120   DTM Date/time/period                          C   1-----------+
+-- > 0130   LOC Place/location identification             C   9
+-- > 0140   FTX Free text                                 C   9
+-- > 0150   CNT Control total                             C   9
+-- >
+-- > 0160       ----- Segment group 4  ------------------ C   99999-------+
+-- > 0170   CNI Consignment information                   M   1           |
+-- > 0180   LOC Place/location identification             C   9           |
+-- > 0190   CNT Control total                             C   9           |
+-- >                                                                      |
+-- > 0200       ----- Segment group 5  ------------------ M   99---------+|
+-- > 0210   STS Status                                    M   1          ||
+-- > 0220   RFF Reference                                 C   999        ||
+-- > 0230   DTM Date/time/period                          C   9          ||
+-- > 0240   DOC Document/message details                  C   1          ||
+-- > 0250   FTX Free text                                 C   9          ||
+-- >                                                                     ||
+-- > 0260       ----- Segment group 6  ------------------ C   9---------+||
+-- > 0270   NAD Name and address                          M   1         |||
+-- >                                                                    |||
+-- > 0280       ----- Segment group 7  ------------------ C   9--------+|||
+-- > 0290   CTA Contact information                       M   1        ||||
+-- > 0300   COM Communication contact                     C   9--------++||
+-- > 0310   LOC Place/location identification             C   1          ||
+-- > 0320   PCI Package identification                    C   99         ||
+-- >                                                                     ||
+-- > 0330       ----- Segment group 8  ------------------ C   99--------+||
+-- > 0340   TDT Details of transport                      M   1         |||
+-- > 0350   DTM Date/time/period                          C   9         |||
+-- > 0360   RFF Reference                                 C   9         |||
+-- >                                                                    |||
+-- > 0370       ----- Segment group 9  ------------------ C   9--------+|||
+-- > 0380   LOC Place/location identification             M   1        ||||
+-- > 0390   DTM Date/time/period                          C   9--------++||
+-- >                                                                     ||
+-- > 0400       ----- Segment group 10 ------------------ C   99--------+||
+-- > 0410   EQD Equipment details                         M   1         |||
+-- > 0420   MEA Measurements                              C   9         |||
+-- > 0430   DIM Dimensions                                C   9         |||
+-- > 0440   SEL Seal number                               C   9         |||
+-- > 0450   RFF Reference                                 C   9         |||
+-- > 0460   TPL Transport placement                       C   9         |||
+-- > 0470   TMD Transport movement details                C   1         |||
+-- >                                                                    |||
+-- > 0480       ----- Segment group 11 ------------------ C   99-------+|||
+-- > 0490   EQA Attached equipment                        M   1        ||||
+-- > 0500   SEL Seal number                               C   9--------++||
+-- >                                                                     ||
+-- > 0510       ----- Segment group 12 ------------------ C   99--------+||
+-- > 0520   GID Goods item details                        M   1         |||
+-- > 0530   HAN Handling instructions                     C   9         |||
+-- > 0540   SGP Split goods placement                     C   99        |||
+-- > 0550   DGS Dangerous goods                           C   9         |||
+-- > 0560   FTX Free text                                 C   9         |||
+-- >                                                                    |||
+-- > 0570       ----- Segment group 13 ------------------ C   99-------+|||
+-- > 0580   MEA Measurements                              M   1        ||||
+-- > 0590   EQN Number of units                           C   1--------+|||
+-- >                                                                    |||
+-- > 0600       ----- Segment group 14 ------------------ C   99-------+|||
+-- > 0610   DIM Dimensions                                M   1        ||||
+-- > 0620   EQN Number of units                           C   1--------+|||
+-- >                                                                    |||
+-- > 0630       ----- Segment group 15 ------------------ C   99-------+|||
+-- > 0640   PCI Package identification                    M   1        ||||
+-- > 0650   GIN Goods identity number                     C   9--------++++
+-- > 0660   UNT Message trailer                           M   1
+--
+-- Dependencies: 'segmentBGM', 'segmentCNI', 'segmentCNT', 'segmentCOM', 'segmentCTA', 'segmentDGS', 'segmentDIM', 'segmentDOC', 'segmentDTM', 'segmentEQA', 'segmentEQD', 'segmentEQN', 'segmentFTX', 'segmentGID', 'segmentGIN', 'segmentHAN', 'segmentLOC', 'segmentMEA', 'segmentNAD', 'segmentPCI', 'segmentRFF', 'segmentSEL', 'segmentSGP', 'segmentSTS', 'segmentTDT', 'segmentTMD', 'segmentTPL', 'segmentTSR'.
+messageIFTSTA :: Parser Value
+messageIFTSTA =
+  message "IFTSTA"
+    [ "0010" .@ once segmentUNH
+    , "0020" .@ once segmentBGM
+    , "0030" .@ repeated 9 segmentDTM
+    , "0040" .@ maybeOnce segmentTSR
+    , "0050" .@ repeated 9 (
+      segmentGroup "1"
+        [ "0060" .@ once segmentNAD
+        , "0070" .@ repeated 9 (
+          segmentGroup "2"
+            [ "0080" .@ once segmentCTA
+            , "0090" .@ repeated 9 segmentCOM
+            ]
+          )
+        ]
+      )
+    , "0100" .@ repeated 9 (
+      segmentGroup "3"
+        [ "0110" .@ once segmentRFF
+        , "0120" .@ maybeOnce segmentDTM
+        ]
+      )
+    , "0130" .@ repeated 9 segmentLOC
+    , "0140" .@ repeated 9 segmentFTX
+    , "0150" .@ repeated 9 segmentCNT
+    , "0160" .@ repeated 99999 (
+      segmentGroup "4"
+        [ "0170" .@ once segmentCNI
+        , "0180" .@ repeated 9 segmentLOC
+        , "0190" .@ repeated 9 segmentCNT
+        , "0200" .@ repeatedAtLeastOnce 99 (
+          segmentGroup "5"
+            [ "0210" .@ once segmentSTS
+            , "0220" .@ repeated 999 segmentRFF
+            , "0230" .@ repeated 9 segmentDTM
+            , "0240" .@ maybeOnce segmentDOC
+            , "0250" .@ repeated 9 segmentFTX
+            , "0260" .@ repeated 9 (
+              segmentGroup "6"
+                [ "0270" .@ once segmentNAD
+                , "0280" .@ repeated 9 (
+                  segmentGroup "7"
+                    [ "0290" .@ once segmentCTA
+                    , "0300" .@ repeated 9 segmentCOM
+                    ]
+                  )
+                ]
+              )
+            , "0310" .@ maybeOnce segmentLOC
+            , "0320" .@ repeated 99 segmentPCI
+            , "0330" .@ repeated 99 (
+              segmentGroup "8"
+                [ "0340" .@ once segmentTDT
+                , "0350" .@ repeated 9 segmentDTM
+                , "0360" .@ repeated 9 segmentRFF
+                , "0370" .@ repeated 9 (
+                  segmentGroup "9"
+                    [ "0380" .@ once segmentLOC
+                    , "0390" .@ repeated 9 segmentDTM
+                    ]
+                  )
+                ]
+              )
+            , "0400" .@ repeated 99 (
+              segmentGroup "10"
+                [ "0410" .@ once segmentEQD
+                , "0420" .@ repeated 9 segmentMEA
+                , "0430" .@ repeated 9 segmentDIM
+                , "0440" .@ repeated 9 segmentSEL
+                , "0450" .@ repeated 9 segmentRFF
+                , "0460" .@ repeated 9 segmentTPL
+                , "0470" .@ maybeOnce segmentTMD
+                , "0480" .@ repeated 99 (
+                  segmentGroup "11"
+                    [ "0490" .@ once segmentEQA
+                    , "0500" .@ repeated 9 segmentSEL
+                    ]
+                  )
+                ]
+              )
+            , "0510" .@ repeated 99 (
+              segmentGroup "12"
+                [ "0520" .@ once segmentGID
+                , "0530" .@ repeated 9 segmentHAN
+                , "0540" .@ repeated 99 segmentSGP
+                , "0550" .@ repeated 9 segmentDGS
+                , "0560" .@ repeated 9 segmentFTX
+                , "0570" .@ repeated 99 (
+                  segmentGroup "13"
+                    [ "0580" .@ once segmentMEA
+                    , "0590" .@ maybeOnce segmentEQN
+                    ]
+                  )
+                , "0600" .@ repeated 99 (
+                  segmentGroup "14"
+                    [ "0610" .@ once segmentDIM
+                    , "0620" .@ maybeOnce segmentEQN
+                    ]
+                  )
+                , "0630" .@ repeated 99 (
+                  segmentGroup "15"
+                    [ "0640" .@ once segmentPCI
+                    , "0650" .@ repeated 9 segmentGIN
+                    ]
+                  )
+                ]
+              )
+            ]
+          )
+        ]
+      )
+    , "0660" .@ once segmentUNT
+    ]

diff --git a/specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs b/specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs new file mode 100644 index 0000000..23e53c3 --- /dev/null +++ b/specification/src/Text/Edifact/D01B/Messages/IFTSTA.hs
@@ -0,0 +1,265 @@
	1	{-# LANGUAGE OverloadedStrings #-}
	2
	3	---- Machine generated code.
	4	---- Output of edi-parser-scaffolder
	5
	6	module Text.Edifact.D01B.Messages.IFTSTA
	7	( -- * Definition
	8	messageIFTSTA
	9	-- * Dependencies
	10	, segmentBGM
	11	, segmentCNI
	12	, segmentCNT
	13	, segmentCOM
	14	, segmentCTA
	15	, segmentDGS
	16	, segmentDIM
	17	, segmentDOC
	18	, segmentDTM
	19	, segmentEQA
	20	, segmentEQD
	21	, segmentEQN
	22	, segmentFTX
	23	, segmentGID
	24	, segmentGIN
	25	, segmentHAN
	26	, segmentLOC
	27	, segmentMEA
	28	, segmentNAD
	29	, segmentPCI
	30	, segmentRFF
	31	, segmentSEL
	32	, segmentSGP
	33	, segmentSTS
	34	, segmentTDT
	35	, segmentTMD
	36	, segmentTPL
	37	, segmentTSR
	38	) where
	39
	40	import Text.Edifact.Common.Segments
	41
	42	import Text.Edifact.D01B.Segments (segmentBGM, segmentCNI,
	43	segmentCNT, segmentCOM,
	44	segmentCTA, segmentDGS,
	45	segmentDIM, segmentDOC,
	46	segmentDTM, segmentEQA,
	47	segmentEQD, segmentEQN,
	48	segmentFTX, segmentGID,
	49	segmentGIN, segmentHAN,
	50	segmentLOC, segmentMEA,
	51	segmentNAD, segmentPCI,
	52	segmentRFF, segmentSEL,
	53	segmentSGP, segmentSTS,
	54	segmentTDT, segmentTMD,
	55	segmentTPL, segmentTSR)
	56
	57	import Text.Edifact.Parsing
	58	import Text.Edifact.Types (Value)
	59
	60	-- \| Derived from this specification:
	61	--
	62	-- > 4.3 Message structure
	63	-- >
	64	-- > 4.3.1 Segment table
	65	-- >
	66	-- > Pos Tag Name S R
	67	-- >
	68	-- > 0010 UNH Message header M 1
	69	-- > 0020 BGM Beginning of message M 1
	70	-- > 0030 DTM Date/time/period C 9
	71	-- > 0040 TSR Transport service requirements C 1
	72	-- >
	73	-- > 0050 ----- Segment group 1 ------------------ C 9-----------+
	74	-- > 0060 NAD Name and address M 1 \|
	75	-- > \|
	76	-- > 0070 ----- Segment group 2 ------------------ C 9----------+\|
	77	-- > 0080 CTA Contact information M 1 \|\|
	78	-- > 0090 COM Communication contact C 9----------++
	79	-- >
	80	-- > 0100 ----- Segment group 3 ------------------ C 9-----------+
	81	-- > 0110 RFF Reference M 1 \|
	82	-- > 0120 DTM Date/time/period C 1-----------+
	83	-- > 0130 LOC Place/location identification C 9
	84	-- > 0140 FTX Free text C 9
	85	-- > 0150 CNT Control total C 9
	86	-- >
	87	-- > 0160 ----- Segment group 4 ------------------ C 99999-------+
	88	-- > 0170 CNI Consignment information M 1 \|
	89	-- > 0180 LOC Place/location identification C 9 \|
	90	-- > 0190 CNT Control total C 9 \|
	91	-- > \|
	92	-- > 0200 ----- Segment group 5 ------------------ M 99---------+\|
	93	-- > 0210 STS Status M 1 \|\|
	94	-- > 0220 RFF Reference C 999 \|\|
	95	-- > 0230 DTM Date/time/period C 9 \|\|
	96	-- > 0240 DOC Document/message details C 1 \|\|
	97	-- > 0250 FTX Free text C 9 \|\|
	98	-- > \|\|
	99	-- > 0260 ----- Segment group 6 ------------------ C 9---------+\|\|
	100	-- > 0270 NAD Name and address M 1 \|\|\|
	101	-- > \|\|\|
	102	-- > 0280 ----- Segment group 7 ------------------ C 9--------+\|\|\|
	103	-- > 0290 CTA Contact information M 1 \|\|\|\|
	104	-- > 0300 COM Communication contact C 9--------++\|\|
	105	-- > 0310 LOC Place/location identification C 1 \|\|
	106	-- > 0320 PCI Package identification C 99 \|\|
	107	-- > \|\|
	108	-- > 0330 ----- Segment group 8 ------------------ C 99--------+\|\|
	109	-- > 0340 TDT Details of transport M 1 \|\|\|
	110	-- > 0350 DTM Date/time/period C 9 \|\|\|
	111	-- > 0360 RFF Reference C 9 \|\|\|
	112	-- > \|\|\|
	113	-- > 0370 ----- Segment group 9 ------------------ C 9--------+\|\|\|
	114	-- > 0380 LOC Place/location identification M 1 \|\|\|\|
	115	-- > 0390 DTM Date/time/period C 9--------++\|\|
	116	-- > \|\|
	117	-- > 0400 ----- Segment group 10 ------------------ C 99--------+\|\|
	118	-- > 0410 EQD Equipment details M 1 \|\|\|
	119	-- > 0420 MEA Measurements C 9 \|\|\|
	120	-- > 0430 DIM Dimensions C 9 \|\|\|
	121	-- > 0440 SEL Seal number C 9 \|\|\|
	122	-- > 0450 RFF Reference C 9 \|\|\|
	123	-- > 0460 TPL Transport placement C 9 \|\|\|
	124	-- > 0470 TMD Transport movement details C 1 \|\|\|
	125	-- > \|\|\|
	126	-- > 0480 ----- Segment group 11 ------------------ C 99-------+\|\|\|
	127	-- > 0490 EQA Attached equipment M 1 \|\|\|\|
	128	-- > 0500 SEL Seal number C 9--------++\|\|
	129	-- > \|\|
	130	-- > 0510 ----- Segment group 12 ------------------ C 99--------+\|\|
	131	-- > 0520 GID Goods item details M 1 \|\|\|
	132	-- > 0530 HAN Handling instructions C 9 \|\|\|
	133	-- > 0540 SGP Split goods placement C 99 \|\|\|
	134	-- > 0550 DGS Dangerous goods C 9 \|\|\|
	135	-- > 0560 FTX Free text C 9 \|\|\|
	136	-- > \|\|\|
	137	-- > 0570 ----- Segment group 13 ------------------ C 99-------+\|\|\|
	138	-- > 0580 MEA Measurements M 1 \|\|\|\|
	139	-- > 0590 EQN Number of units C 1--------+\|\|\|
	140	-- > \|\|\|
	141	-- > 0600 ----- Segment group 14 ------------------ C 99-------+\|\|\|
	142	-- > 0610 DIM Dimensions M 1 \|\|\|\|
	143	-- > 0620 EQN Number of units C 1--------+\|\|\|
	144	-- > \|\|\|
	145	-- > 0630 ----- Segment group 15 ------------------ C 99-------+\|\|\|
	146	-- > 0640 PCI Package identification M 1 \|\|\|\|
	147	-- > 0650 GIN Goods identity number C 9--------++++
	148	-- > 0660 UNT Message trailer M 1
	149	--
	150	-- Dependencies: 'segmentBGM', 'segmentCNI', 'segmentCNT', 'segmentCOM', 'segmentCTA', 'segmentDGS', 'segmentDIM', 'segmentDOC', 'segmentDTM', 'segmentEQA', 'segmentEQD', 'segmentEQN', 'segmentFTX', 'segmentGID', 'segmentGIN', 'segmentHAN', 'segmentLOC', 'segmentMEA', 'segmentNAD', 'segmentPCI', 'segmentRFF', 'segmentSEL', 'segmentSGP', 'segmentSTS', 'segmentTDT', 'segmentTMD', 'segmentTPL', 'segmentTSR'.
	151	messageIFTSTA :: Parser Value
	152	messageIFTSTA =
	153	message "IFTSTA"
	154	[ "0010" .@ once segmentUNH
	155	, "0020" .@ once segmentBGM
	156	, "0030" .@ repeated 9 segmentDTM
	157	, "0040" .@ maybeOnce segmentTSR
	158	, "0050" .@ repeated 9 (
	159	segmentGroup "1"
	160	[ "0060" .@ once segmentNAD
	161	, "0070" .@ repeated 9 (
	162	segmentGroup "2"
	163	[ "0080" .@ once segmentCTA
	164	, "0090" .@ repeated 9 segmentCOM
	165	]
	166	)
	167	]
	168	)
	169	, "0100" .@ repeated 9 (
	170	segmentGroup "3"
	171	[ "0110" .@ once segmentRFF
	172	, "0120" .@ maybeOnce segmentDTM
	173	]
	174	)
	175	, "0130" .@ repeated 9 segmentLOC
	176	, "0140" .@ repeated 9 segmentFTX
	177	, "0150" .@ repeated 9 segmentCNT
	178	, "0160" .@ repeated 99999 (
	179	segmentGroup "4"
	180	[ "0170" .@ once segmentCNI
	181	, "0180" .@ repeated 9 segmentLOC
	182	, "0190" .@ repeated 9 segmentCNT
	183	, "0200" .@ repeatedAtLeastOnce 99 (
	184	segmentGroup "5"
	185	[ "0210" .@ once segmentSTS
	186	, "0220" .@ repeated 999 segmentRFF
	187	, "0230" .@ repeated 9 segmentDTM
	188	, "0240" .@ maybeOnce segmentDOC
	189	, "0250" .@ repeated 9 segmentFTX
	190	, "0260" .@ repeated 9 (
	191	segmentGroup "6"
	192	[ "0270" .@ once segmentNAD
	193	, "0280" .@ repeated 9 (
	194	segmentGroup "7"
	195	[ "0290" .@ once segmentCTA
	196	, "0300" .@ repeated 9 segmentCOM
	197	]
	198	)
	199	]
	200	)
	201	, "0310" .@ maybeOnce segmentLOC
	202	, "0320" .@ repeated 99 segmentPCI
	203	, "0330" .@ repeated 99 (
	204	segmentGroup "8"
	205	[ "0340" .@ once segmentTDT
	206	, "0350" .@ repeated 9 segmentDTM
	207	, "0360" .@ repeated 9 segmentRFF
	208	, "0370" .@ repeated 9 (
	209	segmentGroup "9"
	210	[ "0380" .@ once segmentLOC
	211	, "0390" .@ repeated 9 segmentDTM
	212	]
	213	)
	214	]
	215	)
	216	, "0400" .@ repeated 99 (
	217	segmentGroup "10"
	218	[ "0410" .@ once segmentEQD
	219	, "0420" .@ repeated 9 segmentMEA
	220	, "0430" .@ repeated 9 segmentDIM
	221	, "0440" .@ repeated 9 segmentSEL
	222	, "0450" .@ repeated 9 segmentRFF
	223	, "0460" .@ repeated 9 segmentTPL
	224	, "0470" .@ maybeOnce segmentTMD
	225	, "0480" .@ repeated 99 (
	226	segmentGroup "11"
	227	[ "0490" .@ once segmentEQA
	228	, "0500" .@ repeated 9 segmentSEL
	229	]
	230	)
	231	]
	232	)
	233	, "0510" .@ repeated 99 (
	234	segmentGroup "12"
	235	[ "0520" .@ once segmentGID
	236	, "0530" .@ repeated 9 segmentHAN
	237	, "0540" .@ repeated 99 segmentSGP
	238	, "0550" .@ repeated 9 segmentDGS
	239	, "0560" .@ repeated 9 segmentFTX
	240	, "0570" .@ repeated 99 (
	241	segmentGroup "13"
	242	[ "0580" .@ once segmentMEA
	243	, "0590" .@ maybeOnce segmentEQN
	244	]
	245	)
	246	, "0600" .@ repeated 99 (
	247	segmentGroup "14"
	248	[ "0610" .@ once segmentDIM
	249	, "0620" .@ maybeOnce segmentEQN
	250	]
	251	)
	252	, "0630" .@ repeated 99 (
	253	segmentGroup "15"
	254	[ "0640" .@ once segmentPCI
	255	, "0650" .@ repeated 9 segmentGIN
	256	]
	257	)
	258	]
	259	)
	260	]
	261	)
	262	]
	263	)
	264	, "0660" .@ once segmentUNT
	265	]