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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.PIA
   7   ( -- * Definition
   8     segmentPIA
   9     -- * Dependencies
  10   , compositeC212
  11   , simple4347
  12   ) where
  13
  14 import           Text.Edifact.D96A.Composites (compositeC212)
  15 import           Text.Edifact.D96A.Simples    (simple4347)
  16
  17 import           Text.Edifact.Parsing
  18 import           Text.Edifact.Types           (Value)
  19
  20 -- | Derived from this specification:
  21 --
  22 -- >       PIA    ADDITIONAL PRODUCT ID
  23 -- >
  24 -- >       Function: To specify additional or substitutional item
  25 -- >                 identification codes.
  26 -- >
  27 -- > 010   4347  PRODUCT ID. FUNCTION QUALIFIER                 M  an..3
  28 -- >
  29 -- > 020   C212  ITEM NUMBER IDENTIFICATION                     M
  30 -- >       7140   Item number                                   C  an..35
  31 -- >       7143   Item number type, coded                       C  an..3
  32 -- >       1131   Code list qualifier                           C  an..3
  33 -- >       3055   Code list responsible agency, 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   C212  ITEM NUMBER IDENTIFICATION                     C
  42 -- >       7140   Item number                                   C  an..35
  43 -- >       7143   Item number type, coded                       C  an..3
  44 -- >       1131   Code list qualifier                           C  an..3
  45 -- >       3055   Code list responsible agency, coded           C  an..3
  46 -- >
  47 -- > 050   C212  ITEM NUMBER IDENTIFICATION                     C
  48 -- >       7140   Item number                                   C  an..35
  49 -- >       7143   Item number type, coded                       C  an..3
  50 -- >       1131   Code list qualifier                           C  an..3
  51 -- >       3055   Code list responsible agency, coded           C  an..3
  52 -- >
  53 -- > 060   C212  ITEM NUMBER IDENTIFICATION                     C
  54 -- >       7140   Item number                                   C  an..35
  55 -- >       7143   Item number type, coded                       C  an..3
  56 -- >       1131   Code list qualifier                           C  an..3
  57 -- >       3055   Code list responsible agency, coded           C  an..3
  58 --
  59 -- Dependencies: 'compositeC212', 'simple4347'.
  60 segmentPIA :: Parser Value
  61 segmentPIA =
  62   segment "PIA"
  63     [ "010" .@ mandatory simple4347
  64     , "020" .@ mandatory compositeC212
  65     , "030" .@ optional  compositeC212
  66     , "040" .@ optional  compositeC212
  67     , "050" .@ optional  compositeC212
  68     , "060" .@ optional  compositeC212
  69     ]