diff options
Diffstat (limited to 'specification/src/Text/Edifact/D96A/Segments')
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 | |||
6 | module Text.Edifact.D96A.Segments.ALI | ||
7 | ( -- * Definition | ||
8 | segmentALI | ||
9 | -- * Dependencies | ||
10 | , simple3239 | ||
11 | , simple4183 | ||
12 | , simple9213 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Simples (simple3239, simple4183, simple9213) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
43 | segmentALI :: Parser Value | ||
44 | segmentALI = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.BGM | ||
7 | ( -- * Definition | ||
8 | segmentBGM | ||
9 | -- * Dependencies | ||
10 | , compositeC002 | ||
11 | , simple1004 | ||
12 | , simple1225 | ||
13 | , simple4343 | ||
14 | ) where | ||
15 | |||
16 | import Text.Edifact.D96A.Composites (compositeC002) | ||
17 | import Text.Edifact.D96A.Simples (simple1004, simple1225, | ||
18 | simple4343) | ||
19 | |||
20 | import Text.Edifact.Parsing | ||
21 | import 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'. | ||
43 | segmentBGM :: Parser Value | ||
44 | segmentBGM = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.CNI | ||
7 | ( -- * Definition | ||
8 | segmentCNI | ||
9 | -- * Dependencies | ||
10 | , compositeC503 | ||
11 | , simple1312 | ||
12 | , simple1490 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Composites (compositeC503) | ||
16 | import Text.Edifact.D96A.Simples (simple1312, simple1490) | ||
17 | |||
18 | import Text.Edifact.Parsing | ||
19 | import 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'. | ||
38 | segmentCNI :: Parser Value | ||
39 | segmentCNI = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.CNT | ||
7 | ( -- * Definition | ||
8 | segmentCNT | ||
9 | -- * Dependencies | ||
10 | , compositeC270 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC270) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
30 | segmentCNT :: Parser Value | ||
31 | segmentCNT = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.COM | ||
7 | ( -- * Definition | ||
8 | segmentCOM | ||
9 | -- * Dependencies | ||
10 | , compositeC076 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC076) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
30 | segmentCOM :: Parser Value | ||
31 | segmentCOM = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.CPI | ||
7 | ( -- * Definition | ||
8 | segmentCPI | ||
9 | -- * Dependencies | ||
10 | , compositeC229 | ||
11 | , compositeC231 | ||
12 | , simple4237 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Composites (compositeC229, compositeC231) | ||
16 | import Text.Edifact.D96A.Simples (simple4237) | ||
17 | |||
18 | import Text.Edifact.Parsing | ||
19 | import 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'. | ||
40 | segmentCPI :: Parser Value | ||
41 | segmentCPI = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.CPS | ||
7 | ( -- * Definition | ||
8 | segmentCPS | ||
9 | -- * Dependencies | ||
10 | , simple7075 | ||
11 | , simple7164 | ||
12 | , simple7166 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Simples (simple7075, simple7164, simple7166) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
36 | segmentCPS :: Parser Value | ||
37 | segmentCPS = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.CTA | ||
7 | ( -- * Definition | ||
8 | segmentCTA | ||
9 | -- * Dependencies | ||
10 | , compositeC056 | ||
11 | , simple3139 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC056) | ||
15 | import Text.Edifact.D96A.Simples (simple3139) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
34 | segmentCTA :: Parser Value | ||
35 | segmentCTA = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.CUX | ||
7 | ( -- * Definition | ||
8 | segmentCUX | ||
9 | -- * Dependencies | ||
10 | , compositeC504 | ||
11 | , simple5402 | ||
12 | , simple6341 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Composites (compositeC504) | ||
16 | import Text.Edifact.D96A.Simples (simple5402, simple6341) | ||
17 | |||
18 | import Text.Edifact.Parsing | ||
19 | import 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'. | ||
45 | segmentCUX :: Parser Value | ||
46 | segmentCUX = | ||
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 | |||
6 | module 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 | |||
25 | import Text.Edifact.D96A.Composites (compositeC205, compositeC223, | ||
26 | compositeC234, compositeC235, | ||
27 | compositeC236) | ||
28 | import Text.Edifact.D96A.Simples (simple8126, simple8211, | ||
29 | simple8255, simple8273, | ||
30 | simple8325, simple8339, | ||
31 | simple8364, simple8410) | ||
32 | |||
33 | import Text.Edifact.Parsing | ||
34 | import 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'. | ||
81 | segmentDGS :: Parser Value | ||
82 | segmentDGS = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.DIM | ||
7 | ( -- * Definition | ||
8 | segmentDIM | ||
9 | -- * Dependencies | ||
10 | , compositeC211 | ||
11 | , simple6145 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC211) | ||
15 | import Text.Edifact.D96A.Simples (simple6145) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
35 | segmentDIM :: Parser Value | ||
36 | segmentDIM = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.DLM | ||
7 | ( -- * Definition | ||
8 | segmentDLM | ||
9 | -- * Dependencies | ||
10 | , compositeC214 | ||
11 | , compositeC522 | ||
12 | , simple4455 | ||
13 | , simple4457 | ||
14 | ) where | ||
15 | |||
16 | import Text.Edifact.D96A.Composites (compositeC214, compositeC522) | ||
17 | import Text.Edifact.D96A.Simples (simple4455, simple4457) | ||
18 | |||
19 | import Text.Edifact.Parsing | ||
20 | import 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'. | ||
47 | segmentDLM :: Parser Value | ||
48 | segmentDLM = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.DOC | ||
7 | ( -- * Definition | ||
8 | segmentDOC | ||
9 | -- * Dependencies | ||
10 | , compositeC002 | ||
11 | , compositeC503 | ||
12 | , simple1218 | ||
13 | , simple1220 | ||
14 | , simple3153 | ||
15 | ) where | ||
16 | |||
17 | import Text.Edifact.D96A.Composites (compositeC002, compositeC503) | ||
18 | import Text.Edifact.D96A.Simples (simple1218, simple1220, | ||
19 | simple3153) | ||
20 | |||
21 | import Text.Edifact.Parsing | ||
22 | import 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'. | ||
53 | segmentDOC :: Parser Value | ||
54 | segmentDOC = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.DTM | ||
7 | ( -- * Definition | ||
8 | segmentDTM | ||
9 | -- * Dependencies | ||
10 | , compositeC507 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC507) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
30 | segmentDTM :: Parser Value | ||
31 | segmentDTM = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.EQA | ||
7 | ( -- * Definition | ||
8 | segmentEQA | ||
9 | -- * Dependencies | ||
10 | , compositeC237 | ||
11 | , simple8053 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC237) | ||
15 | import Text.Edifact.D96A.Simples (simple8053) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
35 | segmentEQA :: Parser Value | ||
36 | segmentEQA = | ||
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 | |||
6 | module 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 | |||
18 | import Text.Edifact.D96A.Composites (compositeC224, compositeC237) | ||
19 | import Text.Edifact.D96A.Simples (simple8053, simple8077, | ||
20 | simple8169, simple8249) | ||
21 | |||
22 | import Text.Edifact.Parsing | ||
23 | import 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'. | ||
52 | segmentEQD :: Parser Value | ||
53 | segmentEQD = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.EQN | ||
7 | ( -- * Definition | ||
8 | segmentEQN | ||
9 | -- * Dependencies | ||
10 | , compositeC523 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC523) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
29 | segmentEQN :: Parser Value | ||
30 | segmentEQN = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.FTX | ||
7 | ( -- * Definition | ||
8 | segmentFTX | ||
9 | -- * Dependencies | ||
10 | , compositeC107 | ||
11 | , compositeC108 | ||
12 | , simple3453 | ||
13 | , simple4451 | ||
14 | , simple4453 | ||
15 | ) where | ||
16 | |||
17 | import Text.Edifact.D96A.Composites (compositeC107, compositeC108) | ||
18 | import Text.Edifact.D96A.Simples (simple3453, simple4451, | ||
19 | simple4453) | ||
20 | |||
21 | import Text.Edifact.Parsing | ||
22 | import 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'. | ||
49 | segmentFTX :: Parser Value | ||
50 | segmentFTX = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.GDS | ||
7 | ( -- * Definition | ||
8 | segmentGDS | ||
9 | -- * Dependencies | ||
10 | , compositeC703 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC703) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
31 | segmentGDS :: Parser Value | ||
32 | segmentGDS = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.GID | ||
7 | ( -- * Definition | ||
8 | segmentGID | ||
9 | -- * Dependencies | ||
10 | , compositeC213 | ||
11 | , simple1496 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC213) | ||
15 | import Text.Edifact.D96A.Simples (simple1496) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
50 | segmentGID :: Parser Value | ||
51 | segmentGID = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.GIN | ||
7 | ( -- * Definition | ||
8 | segmentGIN | ||
9 | -- * Dependencies | ||
10 | , compositeC208 | ||
11 | , simple7405 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC208) | ||
15 | import Text.Edifact.D96A.Simples (simple7405) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
50 | segmentGIN :: Parser Value | ||
51 | segmentGIN = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.GIR | ||
7 | ( -- * Definition | ||
8 | segmentGIR | ||
9 | -- * Dependencies | ||
10 | , compositeC206 | ||
11 | , simple7297 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC206) | ||
15 | import Text.Edifact.D96A.Simples (simple7297) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
54 | segmentGIR :: Parser Value | ||
55 | segmentGIR = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.GOR | ||
7 | ( -- * Definition | ||
8 | segmentGOR | ||
9 | -- * Dependencies | ||
10 | , compositeC232 | ||
11 | , simple8323 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC232) | ||
15 | import Text.Edifact.D96A.Simples (simple8323) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
55 | segmentGOR :: Parser Value | ||
56 | segmentGOR = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.HAN | ||
7 | ( -- * Definition | ||
8 | segmentHAN | ||
9 | -- * Dependencies | ||
10 | , compositeC218 | ||
11 | , compositeC524 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC218, compositeC524) | ||
15 | |||
16 | import Text.Edifact.Parsing | ||
17 | import 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'. | ||
38 | segmentHAN :: Parser Value | ||
39 | segmentHAN = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.IMD | ||
7 | ( -- * Definition | ||
8 | segmentIMD | ||
9 | -- * Dependencies | ||
10 | , compositeC273 | ||
11 | , simple7077 | ||
12 | , simple7081 | ||
13 | , simple7383 | ||
14 | ) where | ||
15 | |||
16 | import Text.Edifact.D96A.Composites (compositeC273) | ||
17 | import Text.Edifact.D96A.Simples (simple7077, simple7081, | ||
18 | simple7383) | ||
19 | |||
20 | import Text.Edifact.Parsing | ||
21 | import 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'. | ||
45 | segmentIMD :: Parser Value | ||
46 | segmentIMD = | ||
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 | |||
6 | module 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 | |||
18 | import Text.Edifact.D96A.Composites (compositeC212, compositeC829) | ||
19 | import Text.Edifact.D96A.Simples (simple1082, simple1222, | ||
20 | simple1229, simple7083) | ||
21 | |||
22 | import Text.Edifact.Parsing | ||
23 | import 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'. | ||
50 | segmentLIN :: Parser Value | ||
51 | segmentLIN = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.LOC | ||
7 | ( -- * Definition | ||
8 | segmentLOC | ||
9 | -- * Dependencies | ||
10 | , compositeC517 | ||
11 | , compositeC519 | ||
12 | , compositeC553 | ||
13 | , simple3227 | ||
14 | , simple5479 | ||
15 | ) where | ||
16 | |||
17 | import Text.Edifact.D96A.Composites (compositeC517, compositeC519, | ||
18 | compositeC553) | ||
19 | import Text.Edifact.D96A.Simples (simple3227, simple5479) | ||
20 | |||
21 | import Text.Edifact.Parsing | ||
22 | import 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'. | ||
54 | segmentLOC :: Parser Value | ||
55 | segmentLOC = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.MEA | ||
7 | ( -- * Definition | ||
8 | segmentMEA | ||
9 | -- * Dependencies | ||
10 | , compositeC174 | ||
11 | , compositeC502 | ||
12 | , simple6311 | ||
13 | , simple7383 | ||
14 | ) where | ||
15 | |||
16 | import Text.Edifact.D96A.Composites (compositeC174, compositeC502) | ||
17 | import Text.Edifact.D96A.Simples (simple6311, simple7383) | ||
18 | |||
19 | import Text.Edifact.Parsing | ||
20 | import 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'. | ||
47 | segmentMEA :: Parser Value | ||
48 | segmentMEA = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.MOA | ||
7 | ( -- * Definition | ||
8 | segmentMOA | ||
9 | -- * Dependencies | ||
10 | , compositeC516 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC516) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
32 | segmentMOA :: Parser Value | ||
33 | segmentMOA = | ||
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 | |||
6 | module 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 | |||
21 | import Text.Edifact.D96A.Composites (compositeC058, compositeC059, | ||
22 | compositeC080, compositeC082) | ||
23 | import Text.Edifact.D96A.Simples (simple3035, simple3164, | ||
24 | simple3207, simple3229, | ||
25 | simple3251) | ||
26 | |||
27 | import Text.Edifact.Parsing | ||
28 | import 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'. | ||
75 | segmentNAD :: Parser Value | ||
76 | segmentNAD = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.PAC | ||
7 | ( -- * Definition | ||
8 | segmentPAC | ||
9 | -- * Dependencies | ||
10 | , compositeC202 | ||
11 | , compositeC402 | ||
12 | , compositeC531 | ||
13 | , compositeC532 | ||
14 | , simple7224 | ||
15 | ) where | ||
16 | |||
17 | import Text.Edifact.D96A.Composites (compositeC202, compositeC402, | ||
18 | compositeC531, compositeC532) | ||
19 | import Text.Edifact.D96A.Simples (simple7224) | ||
20 | |||
21 | import Text.Edifact.Parsing | ||
22 | import 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'. | ||
57 | segmentPAC :: Parser Value | ||
58 | segmentPAC = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.PCD | ||
7 | ( -- * Definition | ||
8 | segmentPCD | ||
9 | -- * Dependencies | ||
10 | , compositeC501 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC501) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
32 | segmentPCD :: Parser Value | ||
33 | segmentPCD = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.PCI | ||
7 | ( -- * Definition | ||
8 | segmentPCI | ||
9 | -- * Dependencies | ||
10 | , compositeC210 | ||
11 | , compositeC827 | ||
12 | , simple4233 | ||
13 | , simple8275 | ||
14 | ) where | ||
15 | |||
16 | import Text.Edifact.D96A.Composites (compositeC210, compositeC827) | ||
17 | import Text.Edifact.D96A.Simples (simple4233, simple8275) | ||
18 | |||
19 | import Text.Edifact.Parsing | ||
20 | import 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'. | ||
51 | segmentPCI :: Parser Value | ||
52 | segmentPCI = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.PIA | ||
7 | ( -- * Definition | ||
8 | segmentPIA | ||
9 | -- * Dependencies | ||
10 | , compositeC212 | ||
11 | , simple4347 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC212) | ||
15 | import Text.Edifact.D96A.Simples (simple4347) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
60 | segmentPIA :: Parser Value | ||
61 | segmentPIA = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.PRI | ||
7 | ( -- * Definition | ||
8 | segmentPRI | ||
9 | -- * Dependencies | ||
10 | , compositeC509 | ||
11 | , simple5213 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC509) | ||
15 | import Text.Edifact.D96A.Simples (simple5213) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
37 | segmentPRI :: Parser Value | ||
38 | segmentPRI = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.QTY | ||
7 | ( -- * Definition | ||
8 | segmentQTY | ||
9 | -- * Dependencies | ||
10 | , compositeC186 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC186) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
30 | segmentQTY :: Parser Value | ||
31 | segmentQTY = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.QVR | ||
7 | ( -- * Definition | ||
8 | segmentQVR | ||
9 | -- * Dependencies | ||
10 | , compositeC279 | ||
11 | , compositeC960 | ||
12 | , simple4221 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Composites (compositeC279, compositeC960) | ||
16 | import Text.Edifact.D96A.Simples (simple4221) | ||
17 | |||
18 | import Text.Edifact.Parsing | ||
19 | import 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'. | ||
44 | segmentQVR :: Parser Value | ||
45 | segmentQVR = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.RFF | ||
7 | ( -- * Definition | ||
8 | segmentRFF | ||
9 | -- * Dependencies | ||
10 | , compositeC506 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC506) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
31 | segmentRFF :: Parser Value | ||
32 | segmentRFF = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.RNG | ||
7 | ( -- * Definition | ||
8 | segmentRNG | ||
9 | -- * Dependencies | ||
10 | , compositeC280 | ||
11 | , simple6167 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC280) | ||
15 | import Text.Edifact.D96A.Simples (simple6167) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
34 | segmentRNG :: Parser Value | ||
35 | segmentRNG = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.SEL | ||
7 | ( -- * Definition | ||
8 | segmentSEL | ||
9 | -- * Dependencies | ||
10 | , compositeC215 | ||
11 | , simple4517 | ||
12 | , simple9308 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Composites (compositeC215) | ||
16 | import Text.Edifact.D96A.Simples (simple4517, simple9308) | ||
17 | |||
18 | import Text.Edifact.Parsing | ||
19 | import 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'. | ||
38 | segmentSEL :: Parser Value | ||
39 | segmentSEL = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.SGP | ||
7 | ( -- * Definition | ||
8 | segmentSGP | ||
9 | -- * Dependencies | ||
10 | , compositeC237 | ||
11 | , simple7224 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC237) | ||
15 | import Text.Edifact.D96A.Simples (simple7224) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
36 | segmentSGP :: Parser Value | ||
37 | segmentSGP = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.STS | ||
7 | ( -- * Definition | ||
8 | segmentSTS | ||
9 | -- * Dependencies | ||
10 | , compositeC555 | ||
11 | , compositeC556 | ||
12 | , compositeC601 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Composites (compositeC555, compositeC556, | ||
16 | compositeC601) | ||
17 | |||
18 | import Text.Edifact.Parsing | ||
19 | import 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'. | ||
72 | segmentSTS :: Parser Value | ||
73 | segmentSTS = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.TCC | ||
7 | ( -- * Definition | ||
8 | segmentTCC | ||
9 | -- * Dependencies | ||
10 | , compositeC200 | ||
11 | , compositeC203 | ||
12 | , compositeC528 | ||
13 | , compositeC554 | ||
14 | ) where | ||
15 | |||
16 | import Text.Edifact.D96A.Composites (compositeC200, compositeC203, | ||
17 | compositeC528, compositeC554) | ||
18 | |||
19 | import Text.Edifact.Parsing | ||
20 | import 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'. | ||
61 | segmentTCC :: Parser Value | ||
62 | segmentTCC = | ||
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 | |||
6 | module 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 | |||
21 | import Text.Edifact.D96A.Composites (compositeC040, compositeC220, | ||
22 | compositeC222, compositeC228, | ||
23 | compositeC401) | ||
24 | import Text.Edifact.D96A.Simples (simple8028, simple8051, | ||
25 | simple8101, simple8281) | ||
26 | |||
27 | import Text.Edifact.Parsing | ||
28 | import 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'. | ||
75 | segmentTDT :: Parser Value | ||
76 | segmentTDT = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.TMD | ||
7 | ( -- * Definition | ||
8 | segmentTMD | ||
9 | -- * Dependencies | ||
10 | , compositeC219 | ||
11 | , simple8332 | ||
12 | , simple8341 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Composites (compositeC219) | ||
16 | import Text.Edifact.D96A.Simples (simple8332, simple8341) | ||
17 | |||
18 | import Text.Edifact.Parsing | ||
19 | import 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'. | ||
38 | segmentTMD :: Parser Value | ||
39 | segmentTMD = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.TMP | ||
7 | ( -- * Definition | ||
8 | segmentTMP | ||
9 | -- * Dependencies | ||
10 | , compositeC239 | ||
11 | , simple6245 | ||
12 | ) where | ||
13 | |||
14 | import Text.Edifact.D96A.Composites (compositeC239) | ||
15 | import Text.Edifact.D96A.Simples (simple6245) | ||
16 | |||
17 | import Text.Edifact.Parsing | ||
18 | import 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'. | ||
33 | segmentTMP :: Parser Value | ||
34 | segmentTMP = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.TOD | ||
7 | ( -- * Definition | ||
8 | segmentTOD | ||
9 | -- * Dependencies | ||
10 | , compositeC100 | ||
11 | , simple4055 | ||
12 | , simple4215 | ||
13 | ) where | ||
14 | |||
15 | import Text.Edifact.D96A.Composites (compositeC100) | ||
16 | import Text.Edifact.D96A.Simples (simple4055, simple4215) | ||
17 | |||
18 | import Text.Edifact.Parsing | ||
19 | import 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'. | ||
39 | segmentTOD :: Parser Value | ||
40 | segmentTOD = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.TPL | ||
7 | ( -- * Definition | ||
8 | segmentTPL | ||
9 | -- * Dependencies | ||
10 | , compositeC222 | ||
11 | ) where | ||
12 | |||
13 | import Text.Edifact.D96A.Composites (compositeC222) | ||
14 | |||
15 | import Text.Edifact.Parsing | ||
16 | import 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'. | ||
34 | segmentTPL :: Parser Value | ||
35 | segmentTPL = | ||
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 | |||
6 | module Text.Edifact.D96A.Segments.TSR | ||
7 | ( -- * Definition | ||
8 | segmentTSR | ||
9 | -- * Dependencies | ||
10 | , compositeC233 | ||
11 | , compositeC536 | ||
12 | , compositeC537 | ||
13 | , compositeC703 | ||
14 | ) where | ||
15 | |||
16 | import Text.Edifact.D96A.Composites (compositeC233, compositeC536, | ||
17 | compositeC537, compositeC703) | ||
18 | |||
19 | import Text.Edifact.Parsing | ||
20 | import 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'. | ||
53 | segmentTSR :: Parser Value | ||
54 | segmentTSR = | ||
55 | segment "TSR" | ||
56 | [ "010" .@ optional compositeC536 | ||
57 | , "020" .@ optional compositeC233 | ||
58 | , "030" .@ optional compositeC537 | ||
59 | , "040" .@ optional compositeC703 | ||
60 | ] | ||