specification/src/Text/Edifact/D01B/Segments/DOC.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.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.D01B.Composites (compositeC002, compositeC503)
  18 import           Text.Edifact.D01B.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 and details directly
  29 -- >                  related to it.
  30 -- >
  31 -- > 010    C002 DOCUMENT/MESSAGE NAME                      M    1
  32 -- >        1001  Document name code                        C      an..3
  33 -- >        1131  Code list identification code             C      an..17
  34 -- >        3055  Code list responsible agency code         C      an..3
  35 -- >        1000  Document name                             C      an..35
  36 -- >
  37 -- > 020    C503 DOCUMENT/MESSAGE DETAILS                   C    1
  38 -- >        1004  Document identifier                       C      an..35
  39 -- >        1373  Document status code                      C      an..3
  40 -- >        1366  Document source description               C      an..70
  41 -- >        3453  Language name code                        C      an..3
  42 -- >        1056  Version identifier                        C      an..9
  43 -- >        1060  Revision identifier                       C      an..6
  44 -- >
  45 -- > 030    3153 COMMUNICATION MEDIUM TYPE CODE             C    1 an..3
  46 -- >
  47 -- > 040    1220 DOCUMENT COPIES REQUIRED QUANTITY          C    1 n..2
  48 -- >
  49 -- > 050    1218 DOCUMENT ORIGINALS REQUIRED QUANTITY       C    1 n..2
  50 --
  51 -- Dependencies: 'compositeC002', 'compositeC503', 'simple1218', 'simple1220', 'simple3153'.
  52 segmentDOC :: Parser Value
  53 segmentDOC =
  54   segment "DOC"
  55     [ "010" .@ mandatory compositeC002
  56     , "020" .@ optional  compositeC503
  57     , "030" .@ optional  simple3153
  58     , "040" .@ optional  simple1220
  59     , "050" .@ optional  simple1218
  60     ]