]> git.immae.eu Git - github/fretlink/edi-parser.git/blob - specification/src/Text/Edifact/D01B/Segments/GOR.hs
Release code as open source
[github/fretlink/edi-parser.git] / specification / src / Text / Edifact / D01B / Segments / GOR.hs
1 {-# LANGUAGE OverloadedStrings #-}
2
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
5
6 module Text.Edifact.D01B.Segments.GOR
7 ( -- * Definition
8 segmentGOR
9 -- * Dependencies
10 , compositeC232
11 , simple8323
12 ) where
13
14 import Text.Edifact.D01B.Composites (compositeC232)
15 import Text.Edifact.D01B.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
25 -- > governmental action and/or procedure or which
26 -- > specific procedure is valid for a specific part
27 -- > of the transport.
28 -- >
29 -- > 010 8323 TRANSPORT MOVEMENT CODE C 1 an..3
30 -- >
31 -- > 020 C232 GOVERNMENT ACTION C 1
32 -- > 9415 Government agency identification code C an..3
33 -- > 9411 Government involvement code C an..3
34 -- > 9417 Government action code C an..3
35 -- > 9353 Government procedure code C an..3
36 -- >
37 -- > 030 C232 GOVERNMENT ACTION C 1
38 -- > 9415 Government agency identification code C an..3
39 -- > 9411 Government involvement code C an..3
40 -- > 9417 Government action code C an..3
41 -- > 9353 Government procedure code C an..3
42 -- >
43 -- > 040 C232 GOVERNMENT ACTION C 1
44 -- > 9415 Government agency identification code C an..3
45 -- > 9411 Government involvement code C an..3
46 -- > 9417 Government action code C an..3
47 -- > 9353 Government procedure code C an..3
48 -- >
49 -- > 050 C232 GOVERNMENT ACTION C 1
50 -- > 9415 Government agency identification code C an..3
51 -- > 9411 Government involvement code C an..3
52 -- > 9417 Government action code C an..3
53 -- > 9353 Government procedure code C an..3
54 --
55 -- Dependencies: 'compositeC232', 'simple8323'.
56 segmentGOR :: Parser Value
57 segmentGOR =
58 segment "GOR"
59 [ "010" .@ optional simple8323
60 , "020" .@ optional compositeC232
61 , "030" .@ optional compositeC232
62 , "040" .@ optional compositeC232
63 , "050" .@ optional compositeC232
64 ]