aboutsummaryrefslogtreecommitdiffhomepage
path: root/specification/src/Text/Edifact/D96A/Segments
diff options
context:
space:
mode:
Diffstat (limited to 'specification/src/Text/Edifact/D96A/Segments')
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/ALI.hs53
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/BGM.hs50
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/CNI.hs44
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/CNT.hs34
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/COM.hs34
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/CPI.hs46
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/CPS.hs42
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/CTA.hs39
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/CUX.hs52
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/DGS.hs97
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/DIM.hs40
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/DLM.hs54
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/DOC.hs61
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/DTM.hs34
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/EQA.hs40
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/EQD.hs61
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/EQN.hs33
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/FTX.hs57
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/GDS.hs35
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/GID.hs57
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/GIN.hs59
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/GIR.hs63
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/GOR.hs63
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/HAN.hs43
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/IMD.hs52
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/LIN.hs59
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/LOC.hs62
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/MEA.hs54
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/MOA.hs36
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/NAD.hs87
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/PAC.hs65
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/PCD.hs36
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/PCI.hs58
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/PIA.hs69
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/PRI.hs42
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/QTY.hs34
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/QVR.hs50
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/RFF.hs35
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/RNG.hs39
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/SEL.hs44
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/SGP.hs41
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/STS.hs82
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/TCC.hs68
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/TDT.hs87
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/TMD.hs44
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/TMP.hs38
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/TOD.hs45
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/TPL.hs38
-rw-r--r--specification/src/Text/Edifact/D96A/Segments/TSR.hs60
49 files changed, 2516 insertions, 0 deletions
diff --git a/specification/src/Text/Edifact/D96A/Segments/ALI.hs b/specification/src/Text/Edifact/D96A/Segments/ALI.hs
new file mode 100644
index 0000000..3b4fc54
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/ALI.hs
@@ -0,0 +1,53 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.ALI
7 ( -- * Definition
8 segmentALI
9 -- * Dependencies
10 , simple3239
11 , simple4183
12 , simple9213
13 ) where
14
15import Text.Edifact.D96A.Simples (simple3239, simple4183, simple9213)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > ALI ADDITIONAL INFORMATION
23-- >
24-- > Function: To indicate that special conditions due to the origin,
25-- > customs preference, fiscal or commercial factors are
26-- > applicable.
27-- >
28-- > 010 3239 COUNTRY OF ORIGIN, CODED C an..3
29-- >
30-- > 020 9213 TYPE OF DUTY REGIME, CODED C an..3
31-- >
32-- > 030 4183 SPECIAL CONDITIONS, CODED C an..3
33-- >
34-- > 040 4183 SPECIAL CONDITIONS, CODED C an..3
35-- >
36-- > 050 4183 SPECIAL CONDITIONS, CODED C an..3
37-- >
38-- > 060 4183 SPECIAL CONDITIONS, CODED C an..3
39-- >
40-- > 070 4183 SPECIAL CONDITIONS, CODED C an..3
41--
42-- Dependencies: 'simple3239', 'simple4183', 'simple9213'.
43segmentALI :: Parser Value
44segmentALI =
45 segment "ALI"
46 [ "010" .@ optional simple3239
47 , "020" .@ optional simple9213
48 , "030" .@ optional simple4183
49 , "040" .@ optional simple4183
50 , "050" .@ optional simple4183
51 , "060" .@ optional simple4183
52 , "070" .@ optional simple4183
53 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/BGM.hs b/specification/src/Text/Edifact/D96A/Segments/BGM.hs
new file mode 100644
index 0000000..5c30fcd
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/BGM.hs
@@ -0,0 +1,50 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.BGM
7 ( -- * Definition
8 segmentBGM
9 -- * Dependencies
10 , compositeC002
11 , simple1004
12 , simple1225
13 , simple4343
14 ) where
15
16import Text.Edifact.D96A.Composites (compositeC002)
17import Text.Edifact.D96A.Simples (simple1004, simple1225,
18 simple4343)
19
20import Text.Edifact.Parsing
21import Text.Edifact.Types (Value)
22
23-- | Derived from this specification:
24--
25-- > BGM BEGINNING OF MESSAGE
26-- >
27-- > Function: To indicate the type and function of a message and to
28-- > transmit the identifying number.
29-- >
30-- > 010 C002 DOCUMENT/MESSAGE NAME C
31-- > 1001 Document/message name, coded C an..3
32-- > 1131 Code list qualifier C an..3
33-- > 3055 Code list responsible agency, coded C an..3
34-- > 1000 Document/message name C an..35
35-- >
36-- > 020 1004 DOCUMENT/MESSAGE NUMBER C an..35
37-- >
38-- > 030 1225 MESSAGE FUNCTION, CODED C an..3
39-- >
40-- > 040 4343 RESPONSE TYPE, CODED C an..3
41--
42-- Dependencies: 'compositeC002', 'simple1004', 'simple1225', 'simple4343'.
43segmentBGM :: Parser Value
44segmentBGM =
45 segment "BGM"
46 [ "010" .@ optional compositeC002
47 , "020" .@ optional simple1004
48 , "030" .@ optional simple1225
49 , "040" .@ optional simple4343
50 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/CNI.hs b/specification/src/Text/Edifact/D96A/Segments/CNI.hs
new file mode 100644
index 0000000..cdd22fd
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/CNI.hs
@@ -0,0 +1,44 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.CNI
7 ( -- * Definition
8 segmentCNI
9 -- * Dependencies
10 , compositeC503
11 , simple1312
12 , simple1490
13 ) where
14
15import Text.Edifact.D96A.Composites (compositeC503)
16import Text.Edifact.D96A.Simples (simple1312, simple1490)
17
18import Text.Edifact.Parsing
19import Text.Edifact.Types (Value)
20
21-- | Derived from this specification:
22--
23-- > CNI CONSIGNMENT INFORMATION
24-- >
25-- > Function: To identify one consignment.
26-- >
27-- > 010 1490 CONSOLIDATION ITEM NUMBER C n..4
28-- >
29-- > 020 C503 DOCUMENT/MESSAGE DETAILS C
30-- > 1004 Document/message number C an..35
31-- > 1373 Document/message status, coded C an..3
32-- > 1366 Document/message source C an..35
33-- > 3453 Language, coded C an..3
34-- >
35-- > 030 1312 CONSIGNMENT LOAD SEQUENCE NUMBER C n..4
36--
37-- Dependencies: 'compositeC503', 'simple1312', 'simple1490'.
38segmentCNI :: Parser Value
39segmentCNI =
40 segment "CNI"
41 [ "010" .@ optional simple1490
42 , "020" .@ optional compositeC503
43 , "030" .@ optional simple1312
44 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/CNT.hs b/specification/src/Text/Edifact/D96A/Segments/CNT.hs
new file mode 100644
index 0000000..a5a2273
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/CNT.hs
@@ -0,0 +1,34 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.CNT
7 ( -- * Definition
8 segmentCNT
9 -- * Dependencies
10 , compositeC270
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC270)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > CNT CONTROL TOTAL
21-- >
22-- > Function: To provide control total.
23-- >
24-- > 010 C270 CONTROL M
25-- > 6069 Control qualifier M an..3
26-- > 6066 Control value M n..18
27-- > 6411 Measure unit qualifier C an..3
28--
29-- Dependencies: 'compositeC270'.
30segmentCNT :: Parser Value
31segmentCNT =
32 segment "CNT"
33 [ "010" .@ mandatory compositeC270
34 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/COM.hs b/specification/src/Text/Edifact/D96A/Segments/COM.hs
new file mode 100644
index 0000000..5f5782b
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/COM.hs
@@ -0,0 +1,34 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.COM
7 ( -- * Definition
8 segmentCOM
9 -- * Dependencies
10 , compositeC076
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC076)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > COM COMMUNICATION CONTACT
21-- >
22-- > Function: To identify a communication number of a department or
23-- > a person to whom communication should be directed.
24-- >
25-- > 010 C076 COMMUNICATION CONTACT M
26-- > 3148 Communication number M an..512
27-- > 3155 Communication channel qualifier M an..3
28--
29-- Dependencies: 'compositeC076'.
30segmentCOM :: Parser Value
31segmentCOM =
32 segment "COM"
33 [ "010" .@ mandatory compositeC076
34 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/CPI.hs b/specification/src/Text/Edifact/D96A/Segments/CPI.hs
new file mode 100644
index 0000000..7325e32
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/CPI.hs
@@ -0,0 +1,46 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.CPI
7 ( -- * Definition
8 segmentCPI
9 -- * Dependencies
10 , compositeC229
11 , compositeC231
12 , simple4237
13 ) where
14
15import Text.Edifact.D96A.Composites (compositeC229, compositeC231)
16import Text.Edifact.D96A.Simples (simple4237)
17
18import Text.Edifact.Parsing
19import Text.Edifact.Types (Value)
20
21-- | Derived from this specification:
22--
23-- > CPI CHARGE PAYMENT INSTRUCTIONS
24-- >
25-- > Function: To identify a charge.
26-- >
27-- > 010 C229 CHARGE CATEGORY C
28-- > 5237 Charge category, coded M an..3
29-- > 1131 Code list qualifier C an..3
30-- > 3055 Code list responsible agency, coded C an..3
31-- >
32-- > 020 C231 METHOD OF PAYMENT C
33-- > 4215 Transport charges method of payment, coded M an..3
34-- > 1131 Code list qualifier C an..3
35-- > 3055 Code list responsible agency, coded C an..3
36-- >
37-- > 030 4237 PREPAID/COLLECT INDICATOR, CODED C an..3
38--
39-- Dependencies: 'compositeC229', 'compositeC231', 'simple4237'.
40segmentCPI :: Parser Value
41segmentCPI =
42 segment "CPI"
43 [ "010" .@ optional compositeC229
44 , "020" .@ optional compositeC231
45 , "030" .@ optional simple4237
46 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/CPS.hs b/specification/src/Text/Edifact/D96A/Segments/CPS.hs
new file mode 100644
index 0000000..0ce27b5
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/CPS.hs
@@ -0,0 +1,42 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.CPS
7 ( -- * Definition
8 segmentCPS
9 -- * Dependencies
10 , simple7075
11 , simple7164
12 , simple7166
13 ) where
14
15import Text.Edifact.D96A.Simples (simple7075, simple7164, simple7166)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > CPS CONSIGNMENT PACKING SEQUENCE
23-- >
24-- > Function: To identify the sequence in which physical packing is
25-- > presented in the consignment, and optionally to
26-- > identify the hierarchical relationship between packing
27-- > layers.
28-- >
29-- > 010 7164 HIERARCHICAL ID. NUMBER M an..12
30-- >
31-- > 020 7166 HIERARCHICAL PARENT ID. C an..12
32-- >
33-- > 030 7075 PACKAGING LEVEL, CODED C an..3
34--
35-- Dependencies: 'simple7075', 'simple7164', 'simple7166'.
36segmentCPS :: Parser Value
37segmentCPS =
38 segment "CPS"
39 [ "010" .@ mandatory simple7164
40 , "020" .@ optional simple7166
41 , "030" .@ optional simple7075
42 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/CTA.hs b/specification/src/Text/Edifact/D96A/Segments/CTA.hs
new file mode 100644
index 0000000..3d7dac8
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/CTA.hs
@@ -0,0 +1,39 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.CTA
7 ( -- * Definition
8 segmentCTA
9 -- * Dependencies
10 , compositeC056
11 , simple3139
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC056)
15import Text.Edifact.D96A.Simples (simple3139)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > CTA CONTACT INFORMATION
23-- >
24-- > Function: To identify a person or a department to whom
25-- > communication should be directed.
26-- >
27-- > 010 3139 CONTACT FUNCTION, CODED C an..3
28-- >
29-- > 020 C056 DEPARTMENT OR EMPLOYEE DETAILS C
30-- > 3413 Department or employee identification C an..17
31-- > 3412 Department or employee C an..35
32--
33-- Dependencies: 'compositeC056', 'simple3139'.
34segmentCTA :: Parser Value
35segmentCTA =
36 segment "CTA"
37 [ "010" .@ optional simple3139
38 , "020" .@ optional compositeC056
39 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/CUX.hs b/specification/src/Text/Edifact/D96A/Segments/CUX.hs
new file mode 100644
index 0000000..c4982a6
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/CUX.hs
@@ -0,0 +1,52 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.CUX
7 ( -- * Definition
8 segmentCUX
9 -- * Dependencies
10 , compositeC504
11 , simple5402
12 , simple6341
13 ) where
14
15import Text.Edifact.D96A.Composites (compositeC504)
16import Text.Edifact.D96A.Simples (simple5402, simple6341)
17
18import Text.Edifact.Parsing
19import Text.Edifact.Types (Value)
20
21-- | Derived from this specification:
22--
23-- > CUX CURRENCIES
24-- >
25-- > Function: To specify currencies used in the transaction and
26-- > relevant details for the rate of exchange.
27-- >
28-- > 010 C504 CURRENCY DETAILS C
29-- > 6347 Currency details qualifier M an..3
30-- > 6345 Currency, coded C an..3
31-- > 6343 Currency qualifier C an..3
32-- > 6348 Currency rate base C n..4
33-- >
34-- > 020 C504 CURRENCY DETAILS C
35-- > 6347 Currency details qualifier M an..3
36-- > 6345 Currency, coded C an..3
37-- > 6343 Currency qualifier C an..3
38-- > 6348 Currency rate base C n..4
39-- >
40-- > 030 5402 RATE OF EXCHANGE C n..12
41-- >
42-- > 040 6341 CURRENCY MARKET EXCHANGE, CODED C an..3
43--
44-- Dependencies: 'compositeC504', 'simple5402', 'simple6341'.
45segmentCUX :: Parser Value
46segmentCUX =
47 segment "CUX"
48 [ "010" .@ optional compositeC504
49 , "020" .@ optional compositeC504
50 , "030" .@ optional simple5402
51 , "040" .@ optional simple6341
52 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/DGS.hs b/specification/src/Text/Edifact/D96A/Segments/DGS.hs
new file mode 100644
index 0000000..6330f6d
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/DGS.hs
@@ -0,0 +1,97 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.DGS
7 ( -- * Definition
8 segmentDGS
9 -- * Dependencies
10 , compositeC205
11 , compositeC223
12 , compositeC234
13 , compositeC235
14 , compositeC236
15 , simple8126
16 , simple8211
17 , simple8255
18 , simple8273
19 , simple8325
20 , simple8339
21 , simple8364
22 , simple8410
23 ) where
24
25import Text.Edifact.D96A.Composites (compositeC205, compositeC223,
26 compositeC234, compositeC235,
27 compositeC236)
28import Text.Edifact.D96A.Simples (simple8126, simple8211,
29 simple8255, simple8273,
30 simple8325, simple8339,
31 simple8364, simple8410)
32
33import Text.Edifact.Parsing
34import Text.Edifact.Types (Value)
35
36-- | Derived from this specification:
37--
38-- > DGS DANGEROUS GOODS
39-- >
40-- > Function: To identify dangerous goods.
41-- >
42-- > 010 8273 DANGEROUS GOODS REGULATIONS, CODED C an..3
43-- >
44-- > 020 C205 HAZARD CODE C
45-- > 8351 Hazard code identification M an..7
46-- > 8078 Hazard substance/item/page number C an..7
47-- > 8092 Hazard code version number C an..10
48-- >
49-- > 030 C234 UNDG INFORMATION C
50-- > 7124 UNDG number C n4
51-- > 7088 Dangerous goods flashpoint C an..8
52-- >
53-- > 040 C223 DANGEROUS GOODS SHIPMENT FLASHPOINT C
54-- > 7106 Shipment flashpoint C n3
55-- > 6411 Measure unit qualifier C an..3
56-- >
57-- > 050 8339 PACKING GROUP, CODED C an..3
58-- >
59-- > 060 8364 EMS NUMBER C an..6
60-- >
61-- > 070 8410 MFAG C an..4
62-- >
63-- > 080 8126 TREM CARD NUMBER C an..10
64-- >
65-- > 090 C235 HAZARD IDENTIFICATION C
66-- > 8158 Hazard identification number, upper part C an..4
67-- > 8186 Substance identification number, lower part C an4
68-- >
69-- > 100 C236 DANGEROUS GOODS LABEL C
70-- > 8246 Dangerous goods label marking C an..4
71-- > 8246 Dangerous goods label marking C an..4
72-- > 8246 Dangerous goods label marking C an..4
73-- >
74-- > 110 8255 PACKING INSTRUCTION, CODED C an..3
75-- >
76-- > 120 8325 CATEGORY OF MEANS OF TRANSPORT, CODED C an..3
77-- >
78-- > 130 8211 PERMISSION FOR TRANSPORT, CODED C an..3
79--
80-- Dependencies: 'compositeC205', 'compositeC223', 'compositeC234', 'compositeC235', 'compositeC236', 'simple8126', 'simple8211', 'simple8255', 'simple8273', 'simple8325', 'simple8339', 'simple8364', 'simple8410'.
81segmentDGS :: Parser Value
82segmentDGS =
83 segment "DGS"
84 [ "010" .@ optional simple8273
85 , "020" .@ optional compositeC205
86 , "030" .@ optional compositeC234
87 , "040" .@ optional compositeC223
88 , "050" .@ optional simple8339
89 , "060" .@ optional simple8364
90 , "070" .@ optional simple8410
91 , "080" .@ optional simple8126
92 , "090" .@ optional compositeC235
93 , "100" .@ optional compositeC236
94 , "110" .@ optional simple8255
95 , "120" .@ optional simple8325
96 , "130" .@ optional simple8211
97 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/DIM.hs b/specification/src/Text/Edifact/D96A/Segments/DIM.hs
new file mode 100644
index 0000000..a42b6db
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/DIM.hs
@@ -0,0 +1,40 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.DIM
7 ( -- * Definition
8 segmentDIM
9 -- * Dependencies
10 , compositeC211
11 , simple6145
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC211)
15import Text.Edifact.D96A.Simples (simple6145)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > DIM DIMENSIONS
23-- >
24-- > Function: To specify dimensions.
25-- >
26-- > 010 6145 DIMENSION QUALIFIER M an..3
27-- >
28-- > 020 C211 DIMENSIONS M
29-- > 6411 Measure unit qualifier M an..3
30-- > 6168 Length dimension C n..15
31-- > 6140 Width dimension C n..15
32-- > 6008 Height dimension C n..15
33--
34-- Dependencies: 'compositeC211', 'simple6145'.
35segmentDIM :: Parser Value
36segmentDIM =
37 segment "DIM"
38 [ "010" .@ mandatory simple6145
39 , "020" .@ mandatory compositeC211
40 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/DLM.hs b/specification/src/Text/Edifact/D96A/Segments/DLM.hs
new file mode 100644
index 0000000..94c31a9
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/DLM.hs
@@ -0,0 +1,54 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.DLM
7 ( -- * Definition
8 segmentDLM
9 -- * Dependencies
10 , compositeC214
11 , compositeC522
12 , simple4455
13 , simple4457
14 ) where
15
16import Text.Edifact.D96A.Composites (compositeC214, compositeC522)
17import Text.Edifact.D96A.Simples (simple4455, simple4457)
18
19import Text.Edifact.Parsing
20import Text.Edifact.Types (Value)
21
22-- | Derived from this specification:
23--
24-- > DLM DELIVERY LIMITATIONS
25-- >
26-- > Function: To specify limitations on deliveries.
27-- >
28-- > 010 4455 BACK ORDER, CODED C an..3
29-- >
30-- > 020 C522 INSTRUCTION C
31-- > 4403 Instruction qualifier M an..3
32-- > 4401 Instruction, coded C an..3
33-- > 1131 Code list qualifier C an..3
34-- > 3055 Code list responsible agency, coded C an..3
35-- > 4400 Instruction C an..35
36-- >
37-- > 030 C214 SPECIAL SERVICES IDENTIFICATION C
38-- > 7161 Special services, coded C an..3
39-- > 1131 Code list qualifier C an..3
40-- > 3055 Code list responsible agency, coded C an..3
41-- > 7160 Special service C an..35
42-- > 7160 Special service C an..35
43-- >
44-- > 040 4457 PRODUCT/SERVICE SUBSTITUTION, CODED C an..3
45--
46-- Dependencies: 'compositeC214', 'compositeC522', 'simple4455', 'simple4457'.
47segmentDLM :: Parser Value
48segmentDLM =
49 segment "DLM"
50 [ "010" .@ optional simple4455
51 , "020" .@ optional compositeC522
52 , "030" .@ optional compositeC214
53 , "040" .@ optional simple4457
54 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/DOC.hs b/specification/src/Text/Edifact/D96A/Segments/DOC.hs
new file mode 100644
index 0000000..61bf69c
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/DOC.hs
@@ -0,0 +1,61 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.DOC
7 ( -- * Definition
8 segmentDOC
9 -- * Dependencies
10 , compositeC002
11 , compositeC503
12 , simple1218
13 , simple1220
14 , simple3153
15 ) where
16
17import Text.Edifact.D96A.Composites (compositeC002, compositeC503)
18import Text.Edifact.D96A.Simples (simple1218, simple1220,
19 simple3153)
20
21import Text.Edifact.Parsing
22import Text.Edifact.Types (Value)
23
24-- | Derived from this specification:
25--
26-- > DOC DOCUMENT/MESSAGE DETAILS
27-- >
28-- > Function: To identify documents, either printed, electronically
29-- > transferred, or referenced as specified in message
30-- > description, including, where relevant, the
31-- > identification of the type of transaction that will
32-- > result from this message.
33-- >
34-- > 010 C002 DOCUMENT/MESSAGE NAME M
35-- > 1001 Document/message name, coded C an..3
36-- > 1131 Code list qualifier C an..3
37-- > 3055 Code list responsible agency, coded C an..3
38-- > 1000 Document/message name C an..35
39-- >
40-- > 020 C503 DOCUMENT/MESSAGE DETAILS C
41-- > 1004 Document/message number C an..35
42-- > 1373 Document/message status, coded C an..3
43-- > 1366 Document/message source C an..35
44-- > 3453 Language, coded C an..3
45-- >
46-- > 030 3153 COMMUNICATION CHANNEL IDENTIFIER, CODED C an..3
47-- >
48-- > 040 1220 NUMBER OF COPIES OF DOCUMENT REQUIRED C n..2
49-- >
50-- > 050 1218 NUMBER OF ORIGINALS OF DOCUMENT REQUIRED C n..2
51--
52-- Dependencies: 'compositeC002', 'compositeC503', 'simple1218', 'simple1220', 'simple3153'.
53segmentDOC :: Parser Value
54segmentDOC =
55 segment "DOC"
56 [ "010" .@ mandatory compositeC002
57 , "020" .@ optional compositeC503
58 , "030" .@ optional simple3153
59 , "040" .@ optional simple1220
60 , "050" .@ optional simple1218
61 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/DTM.hs b/specification/src/Text/Edifact/D96A/Segments/DTM.hs
new file mode 100644
index 0000000..066724c
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/DTM.hs
@@ -0,0 +1,34 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.DTM
7 ( -- * Definition
8 segmentDTM
9 -- * Dependencies
10 , compositeC507
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC507)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > DTM DATE/TIME/PERIOD
21-- >
22-- > Function: To specify date, and/or time, or period.
23-- >
24-- > 010 C507 DATE/TIME/PERIOD M
25-- > 2005 Date/time/period qualifier M an..3
26-- > 2380 Date/time/period C an..35
27-- > 2379 Date/time/period format qualifier C an..3
28--
29-- Dependencies: 'compositeC507'.
30segmentDTM :: Parser Value
31segmentDTM =
32 segment "DTM"
33 [ "010" .@ mandatory compositeC507
34 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/EQA.hs b/specification/src/Text/Edifact/D96A/Segments/EQA.hs
new file mode 100644
index 0000000..d16d109
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/EQA.hs
@@ -0,0 +1,40 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.EQA
7 ( -- * Definition
8 segmentEQA
9 -- * Dependencies
10 , compositeC237
11 , simple8053
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC237)
15import Text.Edifact.D96A.Simples (simple8053)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > EQA ATTACHED EQUIPMENT
23-- >
24-- > Function: To specify attached or related equipment.
25-- >
26-- > 010 8053 EQUIPMENT QUALIFIER M an..3
27-- >
28-- > 020 C237 EQUIPMENT IDENTIFICATION C
29-- > 8260 Equipment identification number C an..17
30-- > 1131 Code list qualifier C an..3
31-- > 3055 Code list responsible agency, coded C an..3
32-- > 3207 Country, coded C an..3
33--
34-- Dependencies: 'compositeC237', 'simple8053'.
35segmentEQA :: Parser Value
36segmentEQA =
37 segment "EQA"
38 [ "010" .@ mandatory simple8053
39 , "020" .@ optional compositeC237
40 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/EQD.hs b/specification/src/Text/Edifact/D96A/Segments/EQD.hs
new file mode 100644
index 0000000..e0f63d7
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/EQD.hs
@@ -0,0 +1,61 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.EQD
7 ( -- * Definition
8 segmentEQD
9 -- * Dependencies
10 , compositeC224
11 , compositeC237
12 , simple8053
13 , simple8077
14 , simple8169
15 , simple8249
16 ) where
17
18import Text.Edifact.D96A.Composites (compositeC224, compositeC237)
19import Text.Edifact.D96A.Simples (simple8053, simple8077,
20 simple8169, simple8249)
21
22import Text.Edifact.Parsing
23import Text.Edifact.Types (Value)
24
25-- | Derived from this specification:
26--
27-- > EQD EQUIPMENT DETAILS
28-- >
29-- > Function: To identify a unit of equipment.
30-- >
31-- > 010 8053 EQUIPMENT QUALIFIER M an..3
32-- >
33-- > 020 C237 EQUIPMENT IDENTIFICATION C
34-- > 8260 Equipment identification number C an..17
35-- > 1131 Code list qualifier C an..3
36-- > 3055 Code list responsible agency, coded C an..3
37-- > 3207 Country, coded C an..3
38-- >
39-- > 030 C224 EQUIPMENT SIZE AND TYPE C
40-- > 8155 Equipment size and type identification C an..10
41-- > 1131 Code list qualifier C an..3
42-- > 3055 Code list responsible agency, coded C an..3
43-- > 8154 Equipment size and type C an..35
44-- >
45-- > 040 8077 EQUIPMENT SUPPLIER, CODED C an..3
46-- >
47-- > 050 8249 EQUIPMENT STATUS, CODED C an..3
48-- >
49-- > 060 8169 FULL/EMPTY INDICATOR, CODED C an..3
50--
51-- Dependencies: 'compositeC224', 'compositeC237', 'simple8053', 'simple8077', 'simple8169', 'simple8249'.
52segmentEQD :: Parser Value
53segmentEQD =
54 segment "EQD"
55 [ "010" .@ mandatory simple8053
56 , "020" .@ optional compositeC237
57 , "030" .@ optional compositeC224
58 , "040" .@ optional simple8077
59 , "050" .@ optional simple8249
60 , "060" .@ optional simple8169
61 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/EQN.hs b/specification/src/Text/Edifact/D96A/Segments/EQN.hs
new file mode 100644
index 0000000..ce052a2
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/EQN.hs
@@ -0,0 +1,33 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.EQN
7 ( -- * Definition
8 segmentEQN
9 -- * Dependencies
10 , compositeC523
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC523)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > EQN NUMBER OF UNITS
21-- >
22-- > Function: To specify the number of units.
23-- >
24-- > 010 C523 NUMBER OF UNIT DETAILS M
25-- > 6350 Number of units C n..15
26-- > 6353 Number of units qualifier C an..3
27--
28-- Dependencies: 'compositeC523'.
29segmentEQN :: Parser Value
30segmentEQN =
31 segment "EQN"
32 [ "010" .@ mandatory compositeC523
33 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/FTX.hs b/specification/src/Text/Edifact/D96A/Segments/FTX.hs
new file mode 100644
index 0000000..68eebbc
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/FTX.hs
@@ -0,0 +1,57 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.FTX
7 ( -- * Definition
8 segmentFTX
9 -- * Dependencies
10 , compositeC107
11 , compositeC108
12 , simple3453
13 , simple4451
14 , simple4453
15 ) where
16
17import Text.Edifact.D96A.Composites (compositeC107, compositeC108)
18import Text.Edifact.D96A.Simples (simple3453, simple4451,
19 simple4453)
20
21import Text.Edifact.Parsing
22import Text.Edifact.Types (Value)
23
24-- | Derived from this specification:
25--
26-- > FTX FREE TEXT
27-- >
28-- > Function: To provide free form or coded text information.
29-- >
30-- > 010 4451 TEXT SUBJECT QUALIFIER M an..3
31-- >
32-- > 020 4453 TEXT FUNCTION, CODED C an..3
33-- >
34-- > 030 C107 TEXT REFERENCE C
35-- > 4441 Free text, coded M an..3
36-- > 1131 Code list qualifier C an..3
37-- > 3055 Code list responsible agency, coded C an..3
38-- >
39-- > 040 C108 TEXT LITERAL C
40-- > 4440 Free text M an..70
41-- > 4440 Free text C an..70
42-- > 4440 Free text C an..70
43-- > 4440 Free text C an..70
44-- > 4440 Free text C an..70
45-- >
46-- > 050 3453 LANGUAGE, CODED C an..3
47--
48-- Dependencies: 'compositeC107', 'compositeC108', 'simple3453', 'simple4451', 'simple4453'.
49segmentFTX :: Parser Value
50segmentFTX =
51 segment "FTX"
52 [ "010" .@ mandatory simple4451
53 , "020" .@ optional simple4453
54 , "030" .@ optional compositeC107
55 , "040" .@ optional compositeC108
56 , "050" .@ optional simple3453
57 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/GDS.hs b/specification/src/Text/Edifact/D96A/Segments/GDS.hs
new file mode 100644
index 0000000..5ea1ae2
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/GDS.hs
@@ -0,0 +1,35 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.GDS
7 ( -- * Definition
8 segmentGDS
9 -- * Dependencies
10 , compositeC703
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC703)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > GDS NATURE OF CARGO
21-- >
22-- > Function: To indicate the type of cargo as a general
23-- > classification.
24-- >
25-- > 010 C703 NATURE OF CARGO C
26-- > 7085 Nature of cargo, coded M an..3
27-- > 1131 Code list qualifier C an..3
28-- > 3055 Code list responsible agency, coded C an..3
29--
30-- Dependencies: 'compositeC703'.
31segmentGDS :: Parser Value
32segmentGDS =
33 segment "GDS"
34 [ "010" .@ optional compositeC703
35 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/GID.hs b/specification/src/Text/Edifact/D96A/Segments/GID.hs
new file mode 100644
index 0000000..cdb8254
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/GID.hs
@@ -0,0 +1,57 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.GID
7 ( -- * Definition
8 segmentGID
9 -- * Dependencies
10 , compositeC213
11 , simple1496
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC213)
15import Text.Edifact.D96A.Simples (simple1496)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > GID GOODS ITEM DETAILS
23-- >
24-- > Function: To indicate totals of a goods item.
25-- >
26-- > 010 1496 GOODS ITEM NUMBER C n..5
27-- >
28-- > 020 C213 NUMBER AND TYPE OF PACKAGES C
29-- > 7224 Number of packages C n..8
30-- > 7065 Type of packages identification C an..17
31-- > 1131 Code list qualifier C an..3
32-- > 3055 Code list responsible agency, coded C an..3
33-- > 7064 Type of packages C an..35
34-- >
35-- > 030 C213 NUMBER AND TYPE OF PACKAGES C
36-- > 7224 Number of packages C n..8
37-- > 7065 Type of packages identification C an..17
38-- > 1131 Code list qualifier C an..3
39-- > 3055 Code list responsible agency, coded C an..3
40-- > 7064 Type of packages C an..35
41-- >
42-- > 040 C213 NUMBER AND TYPE OF PACKAGES C
43-- > 7224 Number of packages C n..8
44-- > 7065 Type of packages identification C an..17
45-- > 1131 Code list qualifier C an..3
46-- > 3055 Code list responsible agency, coded C an..3
47-- > 7064 Type of packages C an..35
48--
49-- Dependencies: 'compositeC213', 'simple1496'.
50segmentGID :: Parser Value
51segmentGID =
52 segment "GID"
53 [ "010" .@ optional simple1496
54 , "020" .@ optional compositeC213
55 , "030" .@ optional compositeC213
56 , "040" .@ optional compositeC213
57 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/GIN.hs b/specification/src/Text/Edifact/D96A/Segments/GIN.hs
new file mode 100644
index 0000000..a349490
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/GIN.hs
@@ -0,0 +1,59 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.GIN
7 ( -- * Definition
8 segmentGIN
9 -- * Dependencies
10 , compositeC208
11 , simple7405
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC208)
15import Text.Edifact.D96A.Simples (simple7405)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > GIN GOODS IDENTITY NUMBER
23-- >
24-- > Function: To give specific identification numbers, either as
25-- > single numbers or ranges.
26-- >
27-- > 010 7405 IDENTITY NUMBER QUALIFIER M an..3
28-- >
29-- > 020 C208 IDENTITY NUMBER RANGE M
30-- > 7402 Identity number M an..35
31-- > 7402 Identity number C an..35
32-- >
33-- > 030 C208 IDENTITY NUMBER RANGE C
34-- > 7402 Identity number M an..35
35-- > 7402 Identity number C an..35
36-- >
37-- > 040 C208 IDENTITY NUMBER RANGE C
38-- > 7402 Identity number M an..35
39-- > 7402 Identity number C an..35
40-- >
41-- > 050 C208 IDENTITY NUMBER RANGE C
42-- > 7402 Identity number M an..35
43-- > 7402 Identity number C an..35
44-- >
45-- > 060 C208 IDENTITY NUMBER RANGE C
46-- > 7402 Identity number M an..35
47-- > 7402 Identity number C an..35
48--
49-- Dependencies: 'compositeC208', 'simple7405'.
50segmentGIN :: Parser Value
51segmentGIN =
52 segment "GIN"
53 [ "010" .@ mandatory simple7405
54 , "020" .@ mandatory compositeC208
55 , "030" .@ optional compositeC208
56 , "040" .@ optional compositeC208
57 , "050" .@ optional compositeC208
58 , "060" .@ optional compositeC208
59 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/GIR.hs b/specification/src/Text/Edifact/D96A/Segments/GIR.hs
new file mode 100644
index 0000000..b70cef7
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/GIR.hs
@@ -0,0 +1,63 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.GIR
7 ( -- * Definition
8 segmentGIR
9 -- * Dependencies
10 , compositeC206
11 , simple7297
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC206)
15import Text.Edifact.D96A.Simples (simple7297)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > GIR RELATED IDENTIFICATION NUMBERS
23-- >
24-- > Function: To specify a related set of identification numbers.
25-- >
26-- > 010 7297 SET IDENTIFICATION QUALIFIER M an..3
27-- >
28-- > 020 C206 IDENTIFICATION NUMBER M
29-- > 7402 Identity number M an..35
30-- > 7405 Identity number qualifier C an..3
31-- > 4405 Status, coded C an..3
32-- >
33-- > 030 C206 IDENTIFICATION NUMBER C
34-- > 7402 Identity number M an..35
35-- > 7405 Identity number qualifier C an..3
36-- > 4405 Status, coded C an..3
37-- >
38-- > 040 C206 IDENTIFICATION NUMBER C
39-- > 7402 Identity number M an..35
40-- > 7405 Identity number qualifier C an..3
41-- > 4405 Status, coded C an..3
42-- >
43-- > 050 C206 IDENTIFICATION NUMBER C
44-- > 7402 Identity number M an..35
45-- > 7405 Identity number qualifier C an..3
46-- > 4405 Status, coded C an..3
47-- >
48-- > 060 C206 IDENTIFICATION NUMBER C
49-- > 7402 Identity number M an..35
50-- > 7405 Identity number qualifier C an..3
51-- > 4405 Status, coded C an..3
52--
53-- Dependencies: 'compositeC206', 'simple7297'.
54segmentGIR :: Parser Value
55segmentGIR =
56 segment "GIR"
57 [ "010" .@ mandatory simple7297
58 , "020" .@ mandatory compositeC206
59 , "030" .@ optional compositeC206
60 , "040" .@ optional compositeC206
61 , "050" .@ optional compositeC206
62 , "060" .@ optional compositeC206
63 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/GOR.hs b/specification/src/Text/Edifact/D96A/Segments/GOR.hs
new file mode 100644
index 0000000..fd28bf8
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/GOR.hs
@@ -0,0 +1,63 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.GOR
7 ( -- * Definition
8 segmentGOR
9 -- * Dependencies
10 , compositeC232
11 , simple8323
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC232)
15import Text.Edifact.D96A.Simples (simple8323)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > GOR GOVERNMENTAL REQUIREMENTS
23-- >
24-- > Function: To indicate the requirement for a specific govermental
25-- > action and/or procedure or which specific procedure is
26-- > valid for a specific part of the transport.
27-- >
28-- > 010 8323 TRANSPORT MOVEMENT, CODED C an..3
29-- >
30-- > 020 C232 GOVERNMENT ACTION C
31-- > 9415 Government agency, coded C an..3
32-- > 9411 Government involvement, coded C an..3
33-- > 9417 Government action, coded C an..3
34-- > 9353 Government procedure, coded C an..3
35-- >
36-- > 030 C232 GOVERNMENT ACTION C
37-- > 9415 Government agency, coded C an..3
38-- > 9411 Government involvement, coded C an..3
39-- > 9417 Government action, coded C an..3
40-- > 9353 Government procedure, coded C an..3
41-- >
42-- > 040 C232 GOVERNMENT ACTION C
43-- > 9415 Government agency, coded C an..3
44-- > 9411 Government involvement, coded C an..3
45-- > 9417 Government action, coded C an..3
46-- > 9353 Government procedure, coded C an..3
47-- >
48-- > 050 C232 GOVERNMENT ACTION C
49-- > 9415 Government agency, coded C an..3
50-- > 9411 Government involvement, coded C an..3
51-- > 9417 Government action, coded C an..3
52-- > 9353 Government procedure, coded C an..3
53--
54-- Dependencies: 'compositeC232', 'simple8323'.
55segmentGOR :: Parser Value
56segmentGOR =
57 segment "GOR"
58 [ "010" .@ optional simple8323
59 , "020" .@ optional compositeC232
60 , "030" .@ optional compositeC232
61 , "040" .@ optional compositeC232
62 , "050" .@ optional compositeC232
63 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/HAN.hs b/specification/src/Text/Edifact/D96A/Segments/HAN.hs
new file mode 100644
index 0000000..2f6f523
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/HAN.hs
@@ -0,0 +1,43 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.HAN
7 ( -- * Definition
8 segmentHAN
9 -- * Dependencies
10 , compositeC218
11 , compositeC524
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC218, compositeC524)
15
16import Text.Edifact.Parsing
17import Text.Edifact.Types (Value)
18
19-- | Derived from this specification:
20--
21-- > HAN HANDLING INSTRUCTIONS
22-- >
23-- > Function: To specify handling and where necessary, notify
24-- > hazards.
25-- >
26-- > 010 C524 HANDLING INSTRUCTIONS C
27-- > 4079 Handling instructions, coded C an..3
28-- > 1131 Code list qualifier C an..3
29-- > 3055 Code list responsible agency, coded C an..3
30-- > 4078 Handling instructions C an..70
31-- >
32-- > 020 C218 HAZARDOUS MATERIAL C
33-- > 7419 Hazardous material class code, identification C an..4
34-- > 1131 Code list qualifier C an..3
35-- > 3055 Code list responsible agency, coded C an..3
36--
37-- Dependencies: 'compositeC218', 'compositeC524'.
38segmentHAN :: Parser Value
39segmentHAN =
40 segment "HAN"
41 [ "010" .@ optional compositeC524
42 , "020" .@ optional compositeC218
43 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/IMD.hs b/specification/src/Text/Edifact/D96A/Segments/IMD.hs
new file mode 100644
index 0000000..165c1af
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/IMD.hs
@@ -0,0 +1,52 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.IMD
7 ( -- * Definition
8 segmentIMD
9 -- * Dependencies
10 , compositeC273
11 , simple7077
12 , simple7081
13 , simple7383
14 ) where
15
16import Text.Edifact.D96A.Composites (compositeC273)
17import Text.Edifact.D96A.Simples (simple7077, simple7081,
18 simple7383)
19
20import Text.Edifact.Parsing
21import Text.Edifact.Types (Value)
22
23-- | Derived from this specification:
24--
25-- > IMD ITEM DESCRIPTION
26-- >
27-- > Function: To describe an item in either an industry or free
28-- > format.
29-- >
30-- > 010 7077 ITEM DESCRIPTION TYPE, CODED C an..3
31-- >
32-- > 020 7081 ITEM CHARACTERISTIC, CODED C an..3
33-- >
34-- > 030 C273 ITEM DESCRIPTION C
35-- > 7009 Item description identification C an..17
36-- > 1131 Code list qualifier C an..3
37-- > 3055 Code list responsible agency, coded C an..3
38-- > 7008 Item description C an..35
39-- > 7008 Item description C an..35
40-- > 3453 Language, coded C an..3
41-- >
42-- > 040 7383 SURFACE/LAYER INDICATOR, CODED C an..3
43--
44-- Dependencies: 'compositeC273', 'simple7077', 'simple7081', 'simple7383'.
45segmentIMD :: Parser Value
46segmentIMD =
47 segment "IMD"
48 [ "010" .@ optional simple7077
49 , "020" .@ optional simple7081
50 , "030" .@ optional compositeC273
51 , "040" .@ optional simple7383
52 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/LIN.hs b/specification/src/Text/Edifact/D96A/Segments/LIN.hs
new file mode 100644
index 0000000..42dced8
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/LIN.hs
@@ -0,0 +1,59 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.LIN
7 ( -- * Definition
8 segmentLIN
9 -- * Dependencies
10 , compositeC212
11 , compositeC829
12 , simple1082
13 , simple1222
14 , simple1229
15 , simple7083
16 ) where
17
18import Text.Edifact.D96A.Composites (compositeC212, compositeC829)
19import Text.Edifact.D96A.Simples (simple1082, simple1222,
20 simple1229, simple7083)
21
22import Text.Edifact.Parsing
23import Text.Edifact.Types (Value)
24
25-- | Derived from this specification:
26--
27-- > LIN LINE ITEM
28-- >
29-- > Function: To identify a line item and configuration.
30-- >
31-- > 010 1082 LINE ITEM NUMBER C n..6
32-- >
33-- > 020 1229 ACTION REQUEST/NOTIFICATION, CODED C an..3
34-- >
35-- > 030 C212 ITEM NUMBER IDENTIFICATION C
36-- > 7140 Item number C an..35
37-- > 7143 Item number type, coded C an..3
38-- > 1131 Code list qualifier C an..3
39-- > 3055 Code list responsible agency, coded C an..3
40-- >
41-- > 040 C829 SUB-LINE INFORMATION C
42-- > 5495 Sub-line indicator, coded C an..3
43-- > 1082 Line item number C n..6
44-- >
45-- > 050 1222 CONFIGURATION LEVEL C n..2
46-- >
47-- > 060 7083 CONFIGURATION, CODED C an..3
48--
49-- Dependencies: 'compositeC212', 'compositeC829', 'simple1082', 'simple1222', 'simple1229', 'simple7083'.
50segmentLIN :: Parser Value
51segmentLIN =
52 segment "LIN"
53 [ "010" .@ optional simple1082
54 , "020" .@ optional simple1229
55 , "030" .@ optional compositeC212
56 , "040" .@ optional compositeC829
57 , "050" .@ optional simple1222
58 , "060" .@ optional simple7083
59 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/LOC.hs b/specification/src/Text/Edifact/D96A/Segments/LOC.hs
new file mode 100644
index 0000000..91a4022
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/LOC.hs
@@ -0,0 +1,62 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.LOC
7 ( -- * Definition
8 segmentLOC
9 -- * Dependencies
10 , compositeC517
11 , compositeC519
12 , compositeC553
13 , simple3227
14 , simple5479
15 ) where
16
17import Text.Edifact.D96A.Composites (compositeC517, compositeC519,
18 compositeC553)
19import Text.Edifact.D96A.Simples (simple3227, simple5479)
20
21import Text.Edifact.Parsing
22import Text.Edifact.Types (Value)
23
24-- | Derived from this specification:
25--
26-- > LOC PLACE/LOCATION IDENTIFICATION
27-- >
28-- > Function: To identify a country/place/location/related location
29-- > one/related location two.
30-- >
31-- > 010 3227 PLACE/LOCATION QUALIFIER M an..3
32-- >
33-- > 020 C517 LOCATION IDENTIFICATION C
34-- > 3225 Place/location identification C an..25
35-- > 1131 Code list qualifier C an..3
36-- > 3055 Code list responsible agency, coded C an..3
37-- > 3224 Place/location C an..70
38-- >
39-- > 030 C519 RELATED LOCATION ONE IDENTIFICATION C
40-- > 3223 Related place/location one identification C an..25
41-- > 1131 Code list qualifier C an..3
42-- > 3055 Code list responsible agency, coded C an..3
43-- > 3222 Related place/location one C an..70
44-- >
45-- > 040 C553 RELATED LOCATION TWO IDENTIFICATION C
46-- > 3233 Related place/location two identification C an..25
47-- > 1131 Code list qualifier C an..3
48-- > 3055 Code list responsible agency, coded C an..3
49-- > 3232 Related place/location two C an..70
50-- >
51-- > 050 5479 RELATION, CODED C an..3
52--
53-- Dependencies: 'compositeC517', 'compositeC519', 'compositeC553', 'simple3227', 'simple5479'.
54segmentLOC :: Parser Value
55segmentLOC =
56 segment "LOC"
57 [ "010" .@ mandatory simple3227
58 , "020" .@ optional compositeC517
59 , "030" .@ optional compositeC519
60 , "040" .@ optional compositeC553
61 , "050" .@ optional simple5479
62 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/MEA.hs b/specification/src/Text/Edifact/D96A/Segments/MEA.hs
new file mode 100644
index 0000000..8985f7a
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/MEA.hs
@@ -0,0 +1,54 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.MEA
7 ( -- * Definition
8 segmentMEA
9 -- * Dependencies
10 , compositeC174
11 , compositeC502
12 , simple6311
13 , simple7383
14 ) where
15
16import Text.Edifact.D96A.Composites (compositeC174, compositeC502)
17import Text.Edifact.D96A.Simples (simple6311, simple7383)
18
19import Text.Edifact.Parsing
20import Text.Edifact.Types (Value)
21
22-- | Derived from this specification:
23--
24-- > MEA MEASUREMENTS
25-- >
26-- > Function: To specify physical measurements, including dimension
27-- > tolerances, weights and counts.
28-- >
29-- > 010 6311 MEASUREMENT APPLICATION QUALIFIER M an..3
30-- >
31-- > 020 C502 MEASUREMENT DETAILS C
32-- > 6313 Measurement dimension, coded C an..3
33-- > 6321 Measurement significance, coded C an..3
34-- > 6155 Measurement attribute, coded C an..3
35-- > 6154 Measurement attribute C an..70
36-- >
37-- > 030 C174 VALUE/RANGE C
38-- > 6411 Measure unit qualifier M an..3
39-- > 6314 Measurement value C n..18
40-- > 6162 Range minimum C n..18
41-- > 6152 Range maximum C n..18
42-- > 6432 Significant digits C n..2
43-- >
44-- > 040 7383 SURFACE/LAYER INDICATOR, CODED C an..3
45--
46-- Dependencies: 'compositeC174', 'compositeC502', 'simple6311', 'simple7383'.
47segmentMEA :: Parser Value
48segmentMEA =
49 segment "MEA"
50 [ "010" .@ mandatory simple6311
51 , "020" .@ optional compositeC502
52 , "030" .@ optional compositeC174
53 , "040" .@ optional simple7383
54 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/MOA.hs b/specification/src/Text/Edifact/D96A/Segments/MOA.hs
new file mode 100644
index 0000000..db1def8
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/MOA.hs
@@ -0,0 +1,36 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.MOA
7 ( -- * Definition
8 segmentMOA
9 -- * Dependencies
10 , compositeC516
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC516)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > MOA MONETARY AMOUNT
21-- >
22-- > Function: To specify a monetary amount.
23-- >
24-- > 010 C516 MONETARY AMOUNT M
25-- > 5025 Monetary amount type qualifier M an..3
26-- > 5004 Monetary amount C n..18
27-- > 6345 Currency, coded C an..3
28-- > 6343 Currency qualifier C an..3
29-- > 4405 Status, coded C an..3
30--
31-- Dependencies: 'compositeC516'.
32segmentMOA :: Parser Value
33segmentMOA =
34 segment "MOA"
35 [ "010" .@ mandatory compositeC516
36 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/NAD.hs b/specification/src/Text/Edifact/D96A/Segments/NAD.hs
new file mode 100644
index 0000000..251d04b
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/NAD.hs
@@ -0,0 +1,87 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.NAD
7 ( -- * Definition
8 segmentNAD
9 -- * Dependencies
10 , compositeC058
11 , compositeC059
12 , compositeC080
13 , compositeC082
14 , simple3035
15 , simple3164
16 , simple3207
17 , simple3229
18 , simple3251
19 ) where
20
21import Text.Edifact.D96A.Composites (compositeC058, compositeC059,
22 compositeC080, compositeC082)
23import Text.Edifact.D96A.Simples (simple3035, simple3164,
24 simple3207, simple3229,
25 simple3251)
26
27import Text.Edifact.Parsing
28import Text.Edifact.Types (Value)
29
30-- | Derived from this specification:
31--
32-- > NAD NAME AND ADDRESS
33-- >
34-- > Function: To specify the name/address and their related
35-- > function, either by CO82 only and/or unstructured by
36-- > CO58 or structured by CO80 thru 3207.
37-- >
38-- > 010 3035 PARTY QUALIFIER M an..3
39-- >
40-- > 020 C082 PARTY IDENTIFICATION DETAILS C
41-- > 3039 Party id. identification M an..35
42-- > 1131 Code list qualifier C an..3
43-- > 3055 Code list responsible agency, coded C an..3
44-- >
45-- > 030 C058 NAME AND ADDRESS C
46-- > 3124 Name and address line M an..35
47-- > 3124 Name and address line C an..35
48-- > 3124 Name and address line C an..35
49-- > 3124 Name and address line C an..35
50-- > 3124 Name and address line C an..35
51-- >
52-- > 040 C080 PARTY NAME C
53-- > 3036 Party name M an..35
54-- > 3036 Party name C an..35
55-- > 3036 Party name C an..35
56-- > 3036 Party name C an..35
57-- > 3036 Party name C an..35
58-- > 3045 Party name format, coded C an..3
59-- >
60-- > 050 C059 STREET C
61-- > 3042 Street and number/p.o. box M an..35
62-- > 3042 Street and number/p.o. box C an..35
63-- > 3042 Street and number/p.o. box C an..35
64-- > 3042 Street and number/p.o. box C an..35
65-- >
66-- > 060 3164 CITY NAME C an..35
67-- >
68-- > 070 3229 COUNTRY SUB-ENTITY IDENTIFICATION C an..9
69-- >
70-- > 080 3251 POSTCODE IDENTIFICATION C an..9
71-- >
72-- > 090 3207 COUNTRY, CODED C an..3
73--
74-- Dependencies: 'compositeC058', 'compositeC059', 'compositeC080', 'compositeC082', 'simple3035', 'simple3164', 'simple3207', 'simple3229', 'simple3251'.
75segmentNAD :: Parser Value
76segmentNAD =
77 segment "NAD"
78 [ "010" .@ mandatory simple3035
79 , "020" .@ optional compositeC082
80 , "030" .@ optional compositeC058
81 , "040" .@ optional compositeC080
82 , "050" .@ optional compositeC059
83 , "060" .@ optional simple3164
84 , "070" .@ optional simple3229
85 , "080" .@ optional simple3251
86 , "090" .@ optional simple3207
87 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/PAC.hs b/specification/src/Text/Edifact/D96A/Segments/PAC.hs
new file mode 100644
index 0000000..52fa367
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/PAC.hs
@@ -0,0 +1,65 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.PAC
7 ( -- * Definition
8 segmentPAC
9 -- * Dependencies
10 , compositeC202
11 , compositeC402
12 , compositeC531
13 , compositeC532
14 , simple7224
15 ) where
16
17import Text.Edifact.D96A.Composites (compositeC202, compositeC402,
18 compositeC531, compositeC532)
19import Text.Edifact.D96A.Simples (simple7224)
20
21import Text.Edifact.Parsing
22import Text.Edifact.Types (Value)
23
24-- | Derived from this specification:
25--
26-- > PAC PACKAGE
27-- >
28-- > Function: To describe the number and type of packages/physical
29-- > units.
30-- >
31-- > 010 7224 NUMBER OF PACKAGES C n..8
32-- >
33-- > 020 C531 PACKAGING DETAILS C
34-- > 7075 Packaging level, coded C an..3
35-- > 7233 Packaging related information, coded C an..3
36-- > 7073 Packaging terms and conditions, coded C an..3
37-- >
38-- > 030 C202 PACKAGE TYPE C
39-- > 7065 Type of packages identification C an..17
40-- > 1131 Code list qualifier C an..3
41-- > 3055 Code list responsible agency, coded C an..3
42-- > 7064 Type of packages C an..35
43-- >
44-- > 040 C402 PACKAGE TYPE IDENTIFICATION C
45-- > 7077 Item description type, coded M an..3
46-- > 7064 Type of packages M an..35
47-- > 7143 Item number type, coded C an..3
48-- > 7064 Type of packages C an..35
49-- > 7143 Item number type, coded C an..3
50-- >
51-- > 050 C532 RETURNABLE PACKAGE DETAILS C
52-- > 8395 Returnable package freight payment C an..3
53-- > responsibility, coded
54-- > 8393 Returnable package load contents, coded C an..3
55--
56-- Dependencies: 'compositeC202', 'compositeC402', 'compositeC531', 'compositeC532', 'simple7224'.
57segmentPAC :: Parser Value
58segmentPAC =
59 segment "PAC"
60 [ "010" .@ optional simple7224
61 , "020" .@ optional compositeC531
62 , "030" .@ optional compositeC202
63 , "040" .@ optional compositeC402
64 , "050" .@ optional compositeC532
65 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/PCD.hs b/specification/src/Text/Edifact/D96A/Segments/PCD.hs
new file mode 100644
index 0000000..6f4da2d
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/PCD.hs
@@ -0,0 +1,36 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.PCD
7 ( -- * Definition
8 segmentPCD
9 -- * Dependencies
10 , compositeC501
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC501)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > PCD PERCENTAGE DETAILS
21-- >
22-- > Function: To specify percentage information.
23-- >
24-- > 010 C501 PERCENTAGE DETAILS M
25-- > 5245 Percentage qualifier M an..3
26-- > 5482 Percentage C n..10
27-- > 5249 Percentage basis, coded C an..3
28-- > 1131 Code list qualifier C an..3
29-- > 3055 Code list responsible agency, coded C an..3
30--
31-- Dependencies: 'compositeC501'.
32segmentPCD :: Parser Value
33segmentPCD =
34 segment "PCD"
35 [ "010" .@ mandatory compositeC501
36 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/PCI.hs b/specification/src/Text/Edifact/D96A/Segments/PCI.hs
new file mode 100644
index 0000000..cd5e458
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/PCI.hs
@@ -0,0 +1,58 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.PCI
7 ( -- * Definition
8 segmentPCI
9 -- * Dependencies
10 , compositeC210
11 , compositeC827
12 , simple4233
13 , simple8275
14 ) where
15
16import Text.Edifact.D96A.Composites (compositeC210, compositeC827)
17import Text.Edifact.D96A.Simples (simple4233, simple8275)
18
19import Text.Edifact.Parsing
20import Text.Edifact.Types (Value)
21
22-- | Derived from this specification:
23--
24-- > PCI PACKAGE IDENTIFICATION
25-- >
26-- > Function: To specify markings and labels on individual packages
27-- > or physical units.
28-- >
29-- > 010 4233 MARKING INSTRUCTIONS, CODED C an..3
30-- >
31-- > 020 C210 MARKS & LABELS C
32-- > 7102 Shipping marks M an..35
33-- > 7102 Shipping marks C an..35
34-- > 7102 Shipping marks C an..35
35-- > 7102 Shipping marks C an..35
36-- > 7102 Shipping marks C an..35
37-- > 7102 Shipping marks C an..35
38-- > 7102 Shipping marks C an..35
39-- > 7102 Shipping marks C an..35
40-- > 7102 Shipping marks C an..35
41-- > 7102 Shipping marks C an..35
42-- >
43-- > 030 8275 CONTAINER/PACKAGE STATUS, CODED C an..3
44-- >
45-- > 040 C827 TYPE OF MARKING C
46-- > 7511 Type of marking, coded M an..3
47-- > 1131 Code list qualifier C an..3
48-- > 3055 Code list responsible agency, coded C an..3
49--
50-- Dependencies: 'compositeC210', 'compositeC827', 'simple4233', 'simple8275'.
51segmentPCI :: Parser Value
52segmentPCI =
53 segment "PCI"
54 [ "010" .@ optional simple4233
55 , "020" .@ optional compositeC210
56 , "030" .@ optional simple8275
57 , "040" .@ optional compositeC827
58 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/PIA.hs b/specification/src/Text/Edifact/D96A/Segments/PIA.hs
new file mode 100644
index 0000000..95d9813
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/PIA.hs
@@ -0,0 +1,69 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.PIA
7 ( -- * Definition
8 segmentPIA
9 -- * Dependencies
10 , compositeC212
11 , simple4347
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC212)
15import Text.Edifact.D96A.Simples (simple4347)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > PIA ADDITIONAL PRODUCT ID
23-- >
24-- > Function: To specify additional or substitutional item
25-- > identification codes.
26-- >
27-- > 010 4347 PRODUCT ID. FUNCTION QUALIFIER M an..3
28-- >
29-- > 020 C212 ITEM NUMBER IDENTIFICATION M
30-- > 7140 Item number C an..35
31-- > 7143 Item number type, coded C an..3
32-- > 1131 Code list qualifier C an..3
33-- > 3055 Code list responsible agency, coded C an..3
34-- >
35-- > 030 C212 ITEM NUMBER IDENTIFICATION C
36-- > 7140 Item number C an..35
37-- > 7143 Item number type, coded C an..3
38-- > 1131 Code list qualifier C an..3
39-- > 3055 Code list responsible agency, coded C an..3
40-- >
41-- > 040 C212 ITEM NUMBER IDENTIFICATION C
42-- > 7140 Item number C an..35
43-- > 7143 Item number type, coded C an..3
44-- > 1131 Code list qualifier C an..3
45-- > 3055 Code list responsible agency, coded C an..3
46-- >
47-- > 050 C212 ITEM NUMBER IDENTIFICATION C
48-- > 7140 Item number C an..35
49-- > 7143 Item number type, coded C an..3
50-- > 1131 Code list qualifier C an..3
51-- > 3055 Code list responsible agency, coded C an..3
52-- >
53-- > 060 C212 ITEM NUMBER IDENTIFICATION C
54-- > 7140 Item number C an..35
55-- > 7143 Item number type, coded C an..3
56-- > 1131 Code list qualifier C an..3
57-- > 3055 Code list responsible agency, coded C an..3
58--
59-- Dependencies: 'compositeC212', 'simple4347'.
60segmentPIA :: Parser Value
61segmentPIA =
62 segment "PIA"
63 [ "010" .@ mandatory simple4347
64 , "020" .@ mandatory compositeC212
65 , "030" .@ optional compositeC212
66 , "040" .@ optional compositeC212
67 , "050" .@ optional compositeC212
68 , "060" .@ optional compositeC212
69 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/PRI.hs b/specification/src/Text/Edifact/D96A/Segments/PRI.hs
new file mode 100644
index 0000000..09c4834
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/PRI.hs
@@ -0,0 +1,42 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.PRI
7 ( -- * Definition
8 segmentPRI
9 -- * Dependencies
10 , compositeC509
11 , simple5213
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC509)
15import Text.Edifact.D96A.Simples (simple5213)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > PRI PRICE DETAILS
23-- >
24-- > Function: To specify price information.
25-- >
26-- > 010 C509 PRICE INFORMATION C
27-- > 5125 Price qualifier M an..3
28-- > 5118 Price C n..15
29-- > 5375 Price type, coded C an..3
30-- > 5387 Price type qualifier C an..3
31-- > 5284 Unit price basis C n..9
32-- > 6411 Measure unit qualifier C an..3
33-- >
34-- > 020 5213 SUB-LINE PRICE CHANGE, CODED C an..3
35--
36-- Dependencies: 'compositeC509', 'simple5213'.
37segmentPRI :: Parser Value
38segmentPRI =
39 segment "PRI"
40 [ "010" .@ optional compositeC509
41 , "020" .@ optional simple5213
42 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/QTY.hs b/specification/src/Text/Edifact/D96A/Segments/QTY.hs
new file mode 100644
index 0000000..9d8027b
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/QTY.hs
@@ -0,0 +1,34 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.QTY
7 ( -- * Definition
8 segmentQTY
9 -- * Dependencies
10 , compositeC186
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC186)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > QTY QUANTITY
21-- >
22-- > Function: To specify a pertinent quantity.
23-- >
24-- > 010 C186 QUANTITY DETAILS M
25-- > 6063 Quantity qualifier M an..3
26-- > 6060 Quantity M n..15
27-- > 6411 Measure unit qualifier C an..3
28--
29-- Dependencies: 'compositeC186'.
30segmentQTY :: Parser Value
31segmentQTY =
32 segment "QTY"
33 [ "010" .@ mandatory compositeC186
34 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/QVR.hs b/specification/src/Text/Edifact/D96A/Segments/QVR.hs
new file mode 100644
index 0000000..8130fe1
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/QVR.hs
@@ -0,0 +1,50 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.QVR
7 ( -- * Definition
8 segmentQVR
9 -- * Dependencies
10 , compositeC279
11 , compositeC960
12 , simple4221
13 ) where
14
15import Text.Edifact.D96A.Composites (compositeC279, compositeC960)
16import Text.Edifact.D96A.Simples (simple4221)
17
18import Text.Edifact.Parsing
19import Text.Edifact.Types (Value)
20
21-- | Derived from this specification:
22--
23-- > QVR QUANTITY VARIANCES
24-- >
25-- > Function: To specify item details relating to quantity
26-- > variances.
27-- >
28-- > Note: This segment replaces segment QVA (which has been
29-- > deleted in this directory).
30-- >
31-- > 010 C279 QUANTITY DIFFERENCE INFORMATION C
32-- > 6064 Quantity difference M n..15
33-- > 6063 Quantity qualifier C an..3
34-- >
35-- > 020 4221 DISCREPANCY, CODED C an..3
36-- >
37-- > 030 C960 REASON FOR CHANGE C
38-- > 4295 Change reason, coded C an..3
39-- > 1131 Code list qualifier C an..3
40-- > 3055 Code list responsible agency, coded C an..3
41-- > 4294 Change reason C an..35
42--
43-- Dependencies: 'compositeC279', 'compositeC960', 'simple4221'.
44segmentQVR :: Parser Value
45segmentQVR =
46 segment "QVR"
47 [ "010" .@ optional compositeC279
48 , "020" .@ optional simple4221
49 , "030" .@ optional compositeC960
50 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/RFF.hs b/specification/src/Text/Edifact/D96A/Segments/RFF.hs
new file mode 100644
index 0000000..a5bbab6
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/RFF.hs
@@ -0,0 +1,35 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.RFF
7 ( -- * Definition
8 segmentRFF
9 -- * Dependencies
10 , compositeC506
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC506)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > RFF REFERENCE
21-- >
22-- > Function: To specify a reference.
23-- >
24-- > 010 C506 REFERENCE M
25-- > 1153 Reference qualifier M an..3
26-- > 1154 Reference number C an..35
27-- > 1156 Line number C an..6
28-- > 4000 Reference version number C an..35
29--
30-- Dependencies: 'compositeC506'.
31segmentRFF :: Parser Value
32segmentRFF =
33 segment "RFF"
34 [ "010" .@ mandatory compositeC506
35 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/RNG.hs b/specification/src/Text/Edifact/D96A/Segments/RNG.hs
new file mode 100644
index 0000000..013d6b7
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/RNG.hs
@@ -0,0 +1,39 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.RNG
7 ( -- * Definition
8 segmentRNG
9 -- * Dependencies
10 , compositeC280
11 , simple6167
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC280)
15import Text.Edifact.D96A.Simples (simple6167)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > RNG RANGE DETAILS
23-- >
24-- > Function: To identify a range.
25-- >
26-- > 010 6167 RANGE TYPE QUALIFIER M an..3
27-- >
28-- > 020 C280 RANGE C
29-- > 6411 Measure unit qualifier M an..3
30-- > 6162 Range minimum C n..18
31-- > 6152 Range maximum C n..18
32--
33-- Dependencies: 'compositeC280', 'simple6167'.
34segmentRNG :: Parser Value
35segmentRNG =
36 segment "RNG"
37 [ "010" .@ mandatory simple6167
38 , "020" .@ optional compositeC280
39 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/SEL.hs b/specification/src/Text/Edifact/D96A/Segments/SEL.hs
new file mode 100644
index 0000000..fab1a00
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/SEL.hs
@@ -0,0 +1,44 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.SEL
7 ( -- * Definition
8 segmentSEL
9 -- * Dependencies
10 , compositeC215
11 , simple4517
12 , simple9308
13 ) where
14
15import Text.Edifact.D96A.Composites (compositeC215)
16import Text.Edifact.D96A.Simples (simple4517, simple9308)
17
18import Text.Edifact.Parsing
19import Text.Edifact.Types (Value)
20
21-- | Derived from this specification:
22--
23-- > SEL SEAL NUMBER
24-- >
25-- > Function: To specify a seal number related to equipment.
26-- >
27-- > 010 9308 SEAL NUMBER M an..10
28-- >
29-- > 020 C215 SEAL ISSUER C
30-- > 9303 Sealing party, coded C an..3
31-- > 1131 Code list qualifier C an..3
32-- > 3055 Code list responsible agency, coded C an..3
33-- > 9302 Sealing party C an..35
34-- >
35-- > 030 4517 SEAL CONDITION, CODED C an..3
36--
37-- Dependencies: 'compositeC215', 'simple4517', 'simple9308'.
38segmentSEL :: Parser Value
39segmentSEL =
40 segment "SEL"
41 [ "010" .@ mandatory simple9308
42 , "020" .@ optional compositeC215
43 , "030" .@ optional simple4517
44 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/SGP.hs b/specification/src/Text/Edifact/D96A/Segments/SGP.hs
new file mode 100644
index 0000000..41b6144
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/SGP.hs
@@ -0,0 +1,41 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.SGP
7 ( -- * Definition
8 segmentSGP
9 -- * Dependencies
10 , compositeC237
11 , simple7224
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC237)
15import Text.Edifact.D96A.Simples (simple7224)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > SGP SPLIT GOODS PLACEMENT
23-- >
24-- > Function: To specify the placement of goods in relation to
25-- > equipment.
26-- >
27-- > 010 C237 EQUIPMENT IDENTIFICATION M
28-- > 8260 Equipment identification number C an..17
29-- > 1131 Code list qualifier C an..3
30-- > 3055 Code list responsible agency, coded C an..3
31-- > 3207 Country, coded C an..3
32-- >
33-- > 020 7224 NUMBER OF PACKAGES C n..8
34--
35-- Dependencies: 'compositeC237', 'simple7224'.
36segmentSGP :: Parser Value
37segmentSGP =
38 segment "SGP"
39 [ "010" .@ mandatory compositeC237
40 , "020" .@ optional simple7224
41 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/STS.hs b/specification/src/Text/Edifact/D96A/Segments/STS.hs
new file mode 100644
index 0000000..f162dc4
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/STS.hs
@@ -0,0 +1,82 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.STS
7 ( -- * Definition
8 segmentSTS
9 -- * Dependencies
10 , compositeC555
11 , compositeC556
12 , compositeC601
13 ) where
14
15import Text.Edifact.D96A.Composites (compositeC555, compositeC556,
16 compositeC601)
17
18import Text.Edifact.Parsing
19import Text.Edifact.Types (Value)
20
21-- | Derived from this specification:
22--
23-- > STS STATUS
24-- >
25-- > Function: To specify the type of industry sector/application to
26-- > which this segment refers, giving the status and
27-- > status reason relevant to conducting business and/or
28-- > services.
29-- >
30-- > 010 C601 STATUS TYPE C
31-- > 9015 Status type, coded M an..3
32-- > 1131 Code list qualifier C an..3
33-- > 3055 Code list responsible agency, coded C an..3
34-- >
35-- > 020 C555 STATUS EVENT C
36-- > 9011 Status event, coded M an..3
37-- > 1131 Code list qualifier C an..3
38-- > 3055 Code list responsible agency, coded C an..3
39-- > 9010 Status event C an..35
40-- >
41-- > 030 C556 STATUS REASON C
42-- > 9013 Status reason, coded M an..3
43-- > 1131 Code list qualifier C an..3
44-- > 3055 Code list responsible agency, coded C an..3
45-- > 9012 Status reason C an..35
46-- >
47-- > 040 C556 STATUS REASON C
48-- > 9013 Status reason, coded M an..3
49-- > 1131 Code list qualifier C an..3
50-- > 3055 Code list responsible agency, coded C an..3
51-- > 9012 Status reason C an..35
52-- >
53-- > 050 C556 STATUS REASON C
54-- > 9013 Status reason, coded M an..3
55-- > 1131 Code list qualifier C an..3
56-- > 3055 Code list responsible agency, coded C an..3
57-- > 9012 Status reason C an..35
58-- >
59-- > 060 C556 STATUS REASON C
60-- > 9013 Status reason, coded M an..3
61-- > 1131 Code list qualifier C an..3
62-- > 3055 Code list responsible agency, coded C an..3
63-- > 9012 Status reason C an..35
64-- >
65-- > 070 C556 STATUS REASON C
66-- > 9013 Status reason, coded M an..3
67-- > 1131 Code list qualifier C an..3
68-- > 3055 Code list responsible agency, coded C an..3
69-- > 9012 Status reason C an..35
70--
71-- Dependencies: 'compositeC555', 'compositeC556', 'compositeC601'.
72segmentSTS :: Parser Value
73segmentSTS =
74 segment "STS"
75 [ "010" .@ optional compositeC601
76 , "020" .@ optional compositeC555
77 , "030" .@ optional compositeC556
78 , "040" .@ optional compositeC556
79 , "050" .@ optional compositeC556
80 , "060" .@ optional compositeC556
81 , "070" .@ optional compositeC556
82 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/TCC.hs b/specification/src/Text/Edifact/D96A/Segments/TCC.hs
new file mode 100644
index 0000000..3595b96
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/TCC.hs
@@ -0,0 +1,68 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.TCC
7 ( -- * Definition
8 segmentTCC
9 -- * Dependencies
10 , compositeC200
11 , compositeC203
12 , compositeC528
13 , compositeC554
14 ) where
15
16import Text.Edifact.D96A.Composites (compositeC200, compositeC203,
17 compositeC528, compositeC554)
18
19import Text.Edifact.Parsing
20import Text.Edifact.Types (Value)
21
22-- | Derived from this specification:
23--
24-- > TCC TRANSPORT CHARGE/RATE CALCULATIONS
25-- >
26-- > Function: To specify charges.
27-- >
28-- > 010 C200 CHARGE C
29-- > 8023 Freight and charges identification C an..17
30-- > 1131 Code list qualifier C an..3
31-- > 3055 Code list responsible agency, coded C an..3
32-- > 8022 Freight and charges C an..26
33-- > 4237 Prepaid/collect indicator, coded C an..3
34-- > 7140 Item number C an..35
35-- >
36-- > 020 C203 RATE/TARIFF CLASS C
37-- > 5243 Rate/tariff class identification M an..9
38-- > 1131 Code list qualifier C an..3
39-- > 3055 Code list responsible agency, coded C an..3
40-- > 5242 Rate/tariff class C an..35
41-- > 5275 Supplementary rate/tariff basis C an..6
42-- > identification
43-- > 1131 Code list qualifier C an..3
44-- > 3055 Code list responsible agency, coded C an..3
45-- > 5275 Supplementary rate/tariff basis C an..6
46-- > identification
47-- > 1131 Code list qualifier C an..3
48-- > 3055 Code list responsible agency, coded C an..3
49-- >
50-- > 030 C528 COMMODITY/RATE DETAIL C
51-- > 7357 Commodity/rate identification C an..18
52-- > 1131 Code list qualifier C an..3
53-- > 3055 Code list responsible agency, coded C an..3
54-- >
55-- > 040 C554 RATE/TARIFF CLASS DETAIL C
56-- > 5243 Rate/tariff class identification C an..9
57-- > 1131 Code list qualifier C an..3
58-- > 3055 Code list responsible agency, coded C an..3
59--
60-- Dependencies: 'compositeC200', 'compositeC203', 'compositeC528', 'compositeC554'.
61segmentTCC :: Parser Value
62segmentTCC =
63 segment "TCC"
64 [ "010" .@ optional compositeC200
65 , "020" .@ optional compositeC203
66 , "030" .@ optional compositeC528
67 , "040" .@ optional compositeC554
68 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/TDT.hs b/specification/src/Text/Edifact/D96A/Segments/TDT.hs
new file mode 100644
index 0000000..2d65eea
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/TDT.hs
@@ -0,0 +1,87 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.TDT
7 ( -- * Definition
8 segmentTDT
9 -- * Dependencies
10 , compositeC040
11 , compositeC220
12 , compositeC222
13 , compositeC228
14 , compositeC401
15 , simple8028
16 , simple8051
17 , simple8101
18 , simple8281
19 ) where
20
21import Text.Edifact.D96A.Composites (compositeC040, compositeC220,
22 compositeC222, compositeC228,
23 compositeC401)
24import Text.Edifact.D96A.Simples (simple8028, simple8051,
25 simple8101, simple8281)
26
27import Text.Edifact.Parsing
28import Text.Edifact.Types (Value)
29
30-- | Derived from this specification:
31--
32-- > TDT DETAILS OF TRANSPORT
33-- >
34-- > Function: To specify the transport details such as mode of
35-- > transport, means of transport, its conveyance
36-- > reference number and the identification of the means
37-- > of transport.
38-- > The segment may be pointed to by the TPL segment.
39-- >
40-- > 010 8051 TRANSPORT STAGE QUALIFIER M an..3
41-- >
42-- > 020 8028 CONVEYANCE REFERENCE NUMBER C an..17
43-- >
44-- > 030 C220 MODE OF TRANSPORT C
45-- > 8067 Mode of transport, coded C an..3
46-- > 8066 Mode of transport C an..17
47-- >
48-- > 040 C228 TRANSPORT MEANS C
49-- > 8179 Type of means of transport identification C an..8
50-- > 8178 Type of means of transport C an..17
51-- >
52-- > 050 C040 CARRIER C
53-- > 3127 Carrier identification C an..17
54-- > 1131 Code list qualifier C an..3
55-- > 3055 Code list responsible agency, coded C an..3
56-- > 3128 Carrier name C an..35
57-- >
58-- > 060 8101 TRANSIT DIRECTION, CODED C an..3
59-- >
60-- > 070 C401 EXCESS TRANSPORTATION INFORMATION C
61-- > 8457 Excess transportation reason, coded M an..3
62-- > 8459 Excess transportation responsibility, coded M an..3
63-- > 7130 Customer authorization number C an..17
64-- >
65-- > 080 C222 TRANSPORT IDENTIFICATION C
66-- > 8213 Id. of means of transport identification C an..9
67-- > 1131 Code list qualifier C an..3
68-- > 3055 Code list responsible agency, coded C an..3
69-- > 8212 Id. of the means of transport C an..35
70-- > 8453 Nationality of means of transport, coded C an..3
71-- >
72-- > 090 8281 TRANSPORT OWNERSHIP, CODED C an..3
73--
74-- Dependencies: 'compositeC040', 'compositeC220', 'compositeC222', 'compositeC228', 'compositeC401', 'simple8028', 'simple8051', 'simple8101', 'simple8281'.
75segmentTDT :: Parser Value
76segmentTDT =
77 segment "TDT"
78 [ "010" .@ mandatory simple8051
79 , "020" .@ optional simple8028
80 , "030" .@ optional compositeC220
81 , "040" .@ optional compositeC228
82 , "050" .@ optional compositeC040
83 , "060" .@ optional simple8101
84 , "070" .@ optional compositeC401
85 , "080" .@ optional compositeC222
86 , "090" .@ optional simple8281
87 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/TMD.hs b/specification/src/Text/Edifact/D96A/Segments/TMD.hs
new file mode 100644
index 0000000..df7157a
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/TMD.hs
@@ -0,0 +1,44 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.TMD
7 ( -- * Definition
8 segmentTMD
9 -- * Dependencies
10 , compositeC219
11 , simple8332
12 , simple8341
13 ) where
14
15import Text.Edifact.D96A.Composites (compositeC219)
16import Text.Edifact.D96A.Simples (simple8332, simple8341)
17
18import Text.Edifact.Parsing
19import Text.Edifact.Types (Value)
20
21-- | Derived from this specification:
22--
23-- > | TMD TRANSPORT MOVEMENT DETAILS
24-- >
25-- > | Function: To specify operational transport movement details for
26-- > a goods item or equipment (which may differ from the
27-- > contractual conditions).
28-- >
29-- > 010 C219 MOVEMENT TYPE C
30-- > 8335 Movement type, coded C an..3
31-- > 8334 Movement type C an..35
32-- >
33-- > 020 8332 EQUIPMENT PLAN C an..26
34-- >
35-- > 030 8341 HAULAGE ARRANGEMENTS, CODED C an..3
36--
37-- Dependencies: 'compositeC219', 'simple8332', 'simple8341'.
38segmentTMD :: Parser Value
39segmentTMD =
40 segment "TMD"
41 [ "010" .@ optional compositeC219
42 , "020" .@ optional simple8332
43 , "030" .@ optional simple8341
44 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/TMP.hs b/specification/src/Text/Edifact/D96A/Segments/TMP.hs
new file mode 100644
index 0000000..7f251c8
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/TMP.hs
@@ -0,0 +1,38 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.TMP
7 ( -- * Definition
8 segmentTMP
9 -- * Dependencies
10 , compositeC239
11 , simple6245
12 ) where
13
14import Text.Edifact.D96A.Composites (compositeC239)
15import Text.Edifact.D96A.Simples (simple6245)
16
17import Text.Edifact.Parsing
18import Text.Edifact.Types (Value)
19
20-- | Derived from this specification:
21--
22-- > TMP TEMPERATURE
23-- >
24-- > Function: To specify the temperature setting.
25-- >
26-- > 010 6245 TEMPERATURE QUALIFIER M an..3
27-- >
28-- > 020 C239 TEMPERATURE SETTING C
29-- > 6246 Temperature setting C n3
30-- > 6411 Measure unit qualifier C an..3
31--
32-- Dependencies: 'compositeC239', 'simple6245'.
33segmentTMP :: Parser Value
34segmentTMP =
35 segment "TMP"
36 [ "010" .@ mandatory simple6245
37 , "020" .@ optional compositeC239
38 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/TOD.hs b/specification/src/Text/Edifact/D96A/Segments/TOD.hs
new file mode 100644
index 0000000..a0c129a
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/TOD.hs
@@ -0,0 +1,45 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.TOD
7 ( -- * Definition
8 segmentTOD
9 -- * Dependencies
10 , compositeC100
11 , simple4055
12 , simple4215
13 ) where
14
15import Text.Edifact.D96A.Composites (compositeC100)
16import Text.Edifact.D96A.Simples (simple4055, simple4215)
17
18import Text.Edifact.Parsing
19import Text.Edifact.Types (Value)
20
21-- | Derived from this specification:
22--
23-- > TOD TERMS OF DELIVERY OR TRANSPORT
24-- >
25-- > Function: To specify terms of delivery or transport.
26-- >
27-- > 010 4055 TERMS OF DELIVERY OR TRANSPORT FUNCTION, CODED C an..3
28-- >
29-- > 020 4215 TRANSPORT CHARGES METHOD OF PAYMENT, CODED C an..3
30-- >
31-- > 030 C100 TERMS OF DELIVERY OR TRANSPORT C
32-- > 4053 Terms of delivery or transport, coded C an..3
33-- > 1131 Code list qualifier C an..3
34-- > 3055 Code list responsible agency, coded C an..3
35-- > 4052 Terms of delivery or transport C an..70
36-- > 4052 Terms of delivery or transport C an..70
37--
38-- Dependencies: 'compositeC100', 'simple4055', 'simple4215'.
39segmentTOD :: Parser Value
40segmentTOD =
41 segment "TOD"
42 [ "010" .@ optional simple4055
43 , "020" .@ optional simple4215
44 , "030" .@ optional compositeC100
45 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/TPL.hs b/specification/src/Text/Edifact/D96A/Segments/TPL.hs
new file mode 100644
index 0000000..2e9f64a
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/TPL.hs
@@ -0,0 +1,38 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.TPL
7 ( -- * Definition
8 segmentTPL
9 -- * Dependencies
10 , compositeC222
11 ) where
12
13import Text.Edifact.D96A.Composites (compositeC222)
14
15import Text.Edifact.Parsing
16import Text.Edifact.Types (Value)
17
18-- | Derived from this specification:
19--
20-- > TPL TRANSPORT PLACEMENT
21-- >
22-- > Function: To specify placement of goods or equipment in relation
23-- > to the transport used. The segment serves as a pointer
24-- > to the TDT segment group.
25-- >
26-- > 010 C222 TRANSPORT IDENTIFICATION M
27-- > 8213 Id. of means of transport identification C an..9
28-- > 1131 Code list qualifier C an..3
29-- > 3055 Code list responsible agency, coded C an..3
30-- > 8212 Id. of the means of transport C an..35
31-- > 8453 Nationality of means of transport, coded C an..3
32--
33-- Dependencies: 'compositeC222'.
34segmentTPL :: Parser Value
35segmentTPL =
36 segment "TPL"
37 [ "010" .@ mandatory compositeC222
38 ]
diff --git a/specification/src/Text/Edifact/D96A/Segments/TSR.hs b/specification/src/Text/Edifact/D96A/Segments/TSR.hs
new file mode 100644
index 0000000..9c65396
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Segments/TSR.hs
@@ -0,0 +1,60 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Segments.TSR
7 ( -- * Definition
8 segmentTSR
9 -- * Dependencies
10 , compositeC233
11 , compositeC536
12 , compositeC537
13 , compositeC703
14 ) where
15
16import Text.Edifact.D96A.Composites (compositeC233, compositeC536,
17 compositeC537, compositeC703)
18
19import Text.Edifact.Parsing
20import Text.Edifact.Types (Value)
21
22-- | Derived from this specification:
23--
24-- > TSR TRANSPORT SERVICE REQUIREMENTS
25-- >
26-- > Function: To specify the contract and carriage conditions and
27-- > service and priority requirements for the transport.
28-- >
29-- > 010 C536 CONTRACT AND CARRIAGE CONDITION C
30-- > 4065 Contract and carriage condition, coded M an..3
31-- > 1131 Code list qualifier C an..3
32-- > 3055 Code list responsible agency, coded C an..3
33-- >
34-- > 020 C233 SERVICE C
35-- > 7273 Service requirement, coded M an..3
36-- > 1131 Code list qualifier C an..3
37-- > 3055 Code list responsible agency, coded C an..3
38-- > 7273 Service requirement, coded C an..3
39-- > 1131 Code list qualifier C an..3
40-- > 3055 Code list responsible agency, coded C an..3
41-- >
42-- > 030 C537 TRANSPORT PRIORITY C
43-- > 4219 Transport priority, coded M an..3
44-- > 1131 Code list qualifier C an..3
45-- > 3055 Code list responsible agency, coded C an..3
46-- >
47-- > 040 C703 NATURE OF CARGO C
48-- > 7085 Nature of cargo, coded M an..3
49-- > 1131 Code list qualifier C an..3
50-- > 3055 Code list responsible agency, coded C an..3
51--
52-- Dependencies: 'compositeC233', 'compositeC536', 'compositeC537', 'compositeC703'.
53segmentTSR :: Parser Value
54segmentTSR =
55 segment "TSR"
56 [ "010" .@ optional compositeC536
57 , "020" .@ optional compositeC233
58 , "030" .@ optional compositeC537
59 , "040" .@ optional compositeC703
60 ]