specification/src/Text/Edifact/D96A/Segments/LIN.hs

   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     ]