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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.PAC
   7   ( -- * Definition
   8     segmentPAC
   9     -- * Dependencies
  10   , compositeC202
  11   , compositeC402
  12   , compositeC531
  13   , compositeC532
  14   , simple7224
  15   ) where
  16
  17 import           Text.Edifact.D96A.Composites (compositeC202, compositeC402,
  18                                                compositeC531, compositeC532)
  19 import           Text.Edifact.D96A.Simples    (simple7224)
  20
  21 import           Text.Edifact.Parsing
  22 import           Text.Edifact.Types           (Value)
  23
  24 -- | Derived from this specification:
  25 --
  26 -- >       PAC    PACKAGE
  27 -- >
  28 -- >       Function: To describe the number and type of packages/physical
  29 -- >                 units.
  30 -- >
  31 -- > 010   7224  NUMBER OF PACKAGES                             C  n..8
  32 -- >
  33 -- > 020   C531  PACKAGING DETAILS                              C
  34 -- >       7075   Packaging level, coded                        C  an..3
  35 -- >       7233   Packaging related information, coded          C  an..3
  36 -- >       7073   Packaging terms and conditions, coded         C  an..3
  37 -- >
  38 -- > 030   C202  PACKAGE TYPE                                   C
  39 -- >       7065   Type of packages identification               C  an..17
  40 -- >       1131   Code list qualifier                           C  an..3
  41 -- >       3055   Code list responsible agency, coded           C  an..3
  42 -- >       7064   Type of packages                              C  an..35
  43 -- >
  44 -- > 040   C402  PACKAGE TYPE IDENTIFICATION                    C
  45 -- >       7077   Item description type, coded                  M  an..3
  46 -- >       7064   Type of packages                              M  an..35
  47 -- >       7143   Item number type, coded                       C  an..3
  48 -- >       7064   Type of packages                              C  an..35
  49 -- >       7143   Item number type, coded                       C  an..3
  50 -- >
  51 -- > 050   C532  RETURNABLE PACKAGE DETAILS                     C
  52 -- >       8395   Returnable package freight payment            C  an..3
  53 -- >              responsibility, coded
  54 -- >       8393   Returnable package load contents, coded       C  an..3
  55 --
  56 -- Dependencies: 'compositeC202', 'compositeC402', 'compositeC531', 'compositeC532', 'simple7224'.
  57 segmentPAC :: Parser Value
  58 segmentPAC =
  59   segment "PAC"
  60     [ "010" .@ optional  simple7224
  61     , "020" .@ optional  compositeC531
  62     , "030" .@ optional  compositeC202
  63     , "040" .@ optional  compositeC402
  64     , "050" .@ optional  compositeC532
  65     ]