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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.GIR
   7   ( -- * Definition
   8     segmentGIR
   9     -- * Dependencies
  10   , compositeC206
  11   , simple7297
  12   ) where
  13
  14 import           Text.Edifact.D96A.Composites (compositeC206)
  15 import           Text.Edifact.D96A.Simples    (simple7297)
  16
  17 import           Text.Edifact.Parsing
  18 import           Text.Edifact.Types           (Value)
  19
  20 -- | Derived from this specification:
  21 --
  22 -- >       GIR    RELATED IDENTIFICATION NUMBERS
  23 -- >
  24 -- >       Function: To specify a related set of identification numbers.
  25 -- >
  26 -- > 010   7297  SET IDENTIFICATION QUALIFIER                   M  an..3
  27 -- >
  28 -- > 020   C206  IDENTIFICATION NUMBER                          M
  29 -- >       7402   Identity number                               M  an..35
  30 -- >       7405   Identity number qualifier                     C  an..3
  31 -- >       4405   Status, coded                                 C  an..3
  32 -- >
  33 -- > 030   C206  IDENTIFICATION NUMBER                          C
  34 -- >       7402   Identity number                               M  an..35
  35 -- >       7405   Identity number qualifier                     C  an..3
  36 -- >       4405   Status, coded                                 C  an..3
  37 -- >
  38 -- > 040   C206  IDENTIFICATION NUMBER                          C
  39 -- >       7402   Identity number                               M  an..35
  40 -- >       7405   Identity number qualifier                     C  an..3
  41 -- >       4405   Status, coded                                 C  an..3
  42 -- >
  43 -- > 050   C206  IDENTIFICATION NUMBER                          C
  44 -- >       7402   Identity number                               M  an..35
  45 -- >       7405   Identity number qualifier                     C  an..3
  46 -- >       4405   Status, coded                                 C  an..3
  47 -- >
  48 -- > 060   C206  IDENTIFICATION NUMBER                          C
  49 -- >       7402   Identity number                               M  an..35
  50 -- >       7405   Identity number qualifier                     C  an..3
  51 -- >       4405   Status, coded                                 C  an..3
  52 --
  53 -- Dependencies: 'compositeC206', 'simple7297'.
  54 segmentGIR :: Parser Value
  55 segmentGIR =
  56   segment "GIR"
  57     [ "010" .@ mandatory simple7297
  58     , "020" .@ mandatory compositeC206
  59     , "030" .@ optional  compositeC206
  60     , "040" .@ optional  compositeC206
  61     , "050" .@ optional  compositeC206
  62     , "060" .@ optional  compositeC206
  63     ]