1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Segments.DLM
16 import Text.Edifact.D96A.Composites (compositeC214, compositeC522)
17 import Text.Edifact.D96A.Simples (simple4455, simple4457)
19 import Text.Edifact.Parsing
20 import Text.Edifact.Types (Value)
22 -- | Derived from this specification:
24 -- > DLM DELIVERY LIMITATIONS
26 -- > Function: To specify limitations on deliveries.
28 -- > 010 4455 BACK ORDER, CODED C an..3
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
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
44 -- > 040 4457 PRODUCT/SERVICE SUBSTITUTION, CODED C an..3
46 -- Dependencies: 'compositeC214', 'compositeC522', 'simple4455', 'simple4457'.
47 segmentDLM :: Parser Value
50 [ "010" .@ optional simple4455
51 , "020" .@ optional compositeC522
52 , "030" .@ optional compositeC214
53 , "040" .@ optional simple4457