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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.STS
   7   ( -- * Definition
   8     segmentSTS
   9     -- * Dependencies
  10   , compositeC555
  11   , compositeC556
  12   , compositeC601
  13   ) where
  14
  15 import           Text.Edifact.D96A.Composites (compositeC555, compositeC556,
  16                                                compositeC601)
  17
  18 import           Text.Edifact.Parsing
  19 import           Text.Edifact.Types           (Value)
  20
  21 -- | Derived from this specification:
  22 --
  23 -- >       STS    STATUS
  24 -- >
  25 -- >       Function: To specify the type of industry sector/application to
  26 -- >                 which this segment refers, giving the status and
  27 -- >                 status reason relevant to conducting business and/or
  28 -- >                 services.
  29 -- >
  30 -- > 010   C601  STATUS TYPE                                    C
  31 -- >       9015   Status type, coded                            M  an..3
  32 -- >       1131   Code list qualifier                           C  an..3
  33 -- >       3055   Code list responsible agency, coded           C  an..3
  34 -- >
  35 -- > 020   C555  STATUS EVENT                                   C
  36 -- >       9011   Status event, coded                           M  an..3
  37 -- >       1131   Code list qualifier                           C  an..3
  38 -- >       3055   Code list responsible agency, coded           C  an..3
  39 -- >       9010   Status event                                  C  an..35
  40 -- >
  41 -- > 030   C556  STATUS REASON                                  C
  42 -- >       9013   Status reason, coded                          M  an..3
  43 -- >       1131   Code list qualifier                           C  an..3
  44 -- >       3055   Code list responsible agency, coded           C  an..3
  45 -- >       9012   Status reason                                 C  an..35
  46 -- >
  47 -- > 040   C556  STATUS REASON                                  C
  48 -- >       9013   Status reason, coded                          M  an..3
  49 -- >       1131   Code list qualifier                           C  an..3
  50 -- >       3055   Code list responsible agency, coded           C  an..3
  51 -- >       9012   Status reason                                 C  an..35
  52 -- >
  53 -- > 050   C556  STATUS REASON                                  C
  54 -- >       9013   Status reason, coded                          M  an..3
  55 -- >       1131   Code list qualifier                           C  an..3
  56 -- >       3055   Code list responsible agency, coded           C  an..3
  57 -- >       9012   Status reason                                 C  an..35
  58 -- >
  59 -- > 060   C556  STATUS REASON                                  C
  60 -- >       9013   Status reason, coded                          M  an..3
  61 -- >       1131   Code list qualifier                           C  an..3
  62 -- >       3055   Code list responsible agency, coded           C  an..3
  63 -- >       9012   Status reason                                 C  an..35
  64 -- >
  65 -- > 070   C556  STATUS REASON                                  C
  66 -- >       9013   Status reason, coded                          M  an..3
  67 -- >       1131   Code list qualifier                           C  an..3
  68 -- >       3055   Code list responsible agency, coded           C  an..3
  69 -- >       9012   Status reason                                 C  an..35
  70 --
  71 -- Dependencies: 'compositeC555', 'compositeC556', 'compositeC601'.
  72 segmentSTS :: Parser Value
  73 segmentSTS =
  74   segment "STS"
  75     [ "010" .@ optional  compositeC601
  76     , "020" .@ optional  compositeC555
  77     , "030" .@ optional  compositeC556
  78     , "040" .@ optional  compositeC556
  79     , "050" .@ optional  compositeC556
  80     , "060" .@ optional  compositeC556
  81     , "070" .@ optional  compositeC556
  82     ]