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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.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.D01B.Composites (compositeC517, compositeC519,
  18                                                compositeC553)
  19 import           Text.Edifact.D01B.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 place or a location and/or related
  29 -- >                  locations.
  30 -- >
  31 -- > 010    3227 LOCATION FUNCTION CODE QUALIFIER           M    1 an..3
  32 -- >
  33 -- > 020    C517 LOCATION IDENTIFICATION                    C    1
  34 -- >        3225  Location name code                        C      an..25
  35 -- >        1131  Code list identification code             C      an..17
  36 -- >        3055  Code list responsible agency code         C      an..3
  37 -- >        3224  Location name                             C      an..256
  38 -- >
  39 -- > 030    C519 RELATED LOCATION ONE IDENTIFICATION        C    1
  40 -- >        3223  First related location name code          C      an..25
  41 -- >        1131  Code list identification code             C      an..17
  42 -- >        3055  Code list responsible agency code         C      an..3
  43 -- >        3222  First related location name               C      an..70
  44 -- >
  45 -- > 040    C553 RELATED LOCATION TWO IDENTIFICATION        C    1
  46 -- >        3233  Second related location name code         C      an..25
  47 -- >        1131  Code list identification code             C      an..17
  48 -- >        3055  Code list responsible agency code         C      an..3
  49 -- >        3232  Second related location name              C      an..70
  50 -- >
  51 -- > 050    5479 RELATION CODE                              C    1 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     ]