Source file values.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso
open! Import
[@@@warning "-32"]
let service = Service.b2bi
let apiVersion = "2022-06-23"
let endpointPrefix = "b2bi"
let serviceFullName = "AWS B2B Data Interchange"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "AWS B2BI"
let targetPrefix = "B2BI"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module CodeList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j = list_of_json ~kind:"CodeList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ElementId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A string type representing an X12 element ID. Element IDs are four-digit numeric identifiers that uniquely identify elements within the X12 standard. This type enforces a pattern of exactly four digits to ensure valid element IDs are used in validation rules."]
    let context_ = "ElementId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ElementId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A string type representing an X12 element ID. Element IDs are four-digit numeric identifiers that uniquely identify elements within the X12 standard. This type enforces a pattern of exactly four digits to ensure valid element IDs are used in validation rules."]
module X12ElementLengthValidationRuleMaxLengthInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000000) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for X12ElementLengthValidationRuleMaxLengthInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module X12ElementLengthValidationRuleMinLengthInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000000) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for X12ElementLengthValidationRuleMinLengthInteger"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ElementPosition =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A string type representing the position of an element within an X12 segment. The format follows the pattern of segment identifier followed by element position (e.g., \"ST-01\" for the first element of the ST segment) and optionally a component position (e.g., \"ST-01-02\" for the second component of the first element). This type is used in validation rules to precisely identify which element in which position is being validated."]
    let context_ = "ElementPosition"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ElementPosition" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A string type representing the position of an element within an X12 segment. The format follows the pattern of segment identifier followed by element position (e.g., \"ST-01\" for the first element of the ST segment) and optionally a component position (e.g., \"ST-01-02\" for the second component of the first element). This type is used in validation rules to precisely identify which element in which position is being validated."]
module ElementRequirement =
  struct
    type nonrec t =
      | OPTIONAL 
      | MANDATORY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OPTIONAL -> "OPTIONAL"
      | MANDATORY -> "MANDATORY"
      | Non_static_id s -> s
    let of_string =
      function
      | "OPTIONAL" -> OPTIONAL
      | "MANDATORY" -> MANDATORY
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ElementRequirement" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ElementRequirement" j)
    let to_json = simple_to_json to_value
  end
module X12CodeListValidationRule =
  struct
    type nonrec t =
      {
      elementId: ElementId.t
        [@ocaml.doc
          "Specifies the four-digit element ID to which the code list modifications apply. This identifies which X12 element will have its allowed code values modified."];
      codesToAdd: CodeList.t option
        [@ocaml.doc
          "Specifies a list of code values to add to the element's allowed values. These codes will be considered valid for the specified element in addition to the standard codes defined by the X12 specification."];
      codesToRemove: CodeList.t option
        [@ocaml.doc
          "Specifies a list of code values to remove from the element's allowed values. These codes will be considered invalid for the specified element, even if they are part of the standard codes defined by the X12 specification."]}
    let context_ = "X12CodeListValidationRule"
    let make ?codesToAdd =
      fun ?codesToRemove ->
        fun ~elementId -> fun () -> { codesToAdd; codesToRemove; elementId }
    let to_value x =
      structure_to_value
        [("elementId", (Some (ElementId.to_value x.elementId)));
        ("codesToAdd", (Option.map x.codesToAdd ~f:CodeList.to_value));
        ("codesToRemove", (Option.map x.codesToRemove ~f:CodeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let codesToRemove =
        (Option.map ~f:CodeList.of_xml) (Xml.child xml_arg0 "codesToRemove") in
      let codesToAdd =
        (Option.map ~f:CodeList.of_xml) (Xml.child xml_arg0 "codesToAdd") in
      let elementId =
        ElementId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "elementId") in
      make ?codesToRemove ?codesToAdd ~elementId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let codesToRemove = field_map json__ "codesToRemove" CodeList.of_json in
      let codesToAdd = field_map json__ "codesToAdd" CodeList.of_json in
      let elementId = field_map_exn json__ "elementId" ElementId.of_json in
      make ?codesToRemove ?codesToAdd ~elementId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a validation rule that modifies the allowed code values for a specific X12 element. This rule allows you to add or remove valid codes from an element's standard code list, providing flexibility to accommodate trading partner-specific requirements or industry variations. You can specify codes to add to expand the allowed values beyond the X12 standard, or codes to remove to restrict the allowed values for stricter validation."]
module X12ElementLengthValidationRule =
  struct
    type nonrec t =
      {
      elementId: ElementId.t
        [@ocaml.doc
          "Specifies the four-digit element ID to which the length constraints will be applied. This identifies which X12 element will have its length requirements modified."];
      maxLength: X12ElementLengthValidationRuleMaxLengthInteger.t
        [@ocaml.doc
          "Specifies the maximum allowed length for the identified element. This value must be between 1 and 200 characters and defines the upper limit for the element's content length."];
      minLength: X12ElementLengthValidationRuleMinLengthInteger.t
        [@ocaml.doc
          "Specifies the minimum required length for the identified element. This value must be between 1 and 200 characters and defines the lower limit for the element's content length."]}
    let context_ = "X12ElementLengthValidationRule"
    let make ~elementId =
      fun ~maxLength ->
        fun ~minLength -> fun () -> { elementId; maxLength; minLength }
    let to_value x =
      structure_to_value
        [("elementId", (Some (ElementId.to_value x.elementId)));
        ("maxLength",
          (Some
             (X12ElementLengthValidationRuleMaxLengthInteger.to_value
                x.maxLength)));
        ("minLength",
          (Some
             (X12ElementLengthValidationRuleMinLengthInteger.to_value
                x.minLength)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minLength =
        X12ElementLengthValidationRuleMinLengthInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "minLength") in
      let maxLength =
        X12ElementLengthValidationRuleMaxLengthInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "maxLength") in
      let elementId =
        ElementId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "elementId") in
      make ~minLength ~maxLength ~elementId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minLength =
        field_map_exn json__ "minLength"
          X12ElementLengthValidationRuleMinLengthInteger.of_json in
      let maxLength =
        field_map_exn json__ "maxLength"
          X12ElementLengthValidationRuleMaxLengthInteger.of_json in
      let elementId = field_map_exn json__ "elementId" ElementId.of_json in
      make ~minLength ~maxLength ~elementId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a validation rule that specifies custom length constraints for a specific X12 element. This rule allows you to override the standard minimum and maximum length requirements for an element, enabling validation of trading partner-specific length requirements that may differ from the X12 specification. Both minimum and maximum length values must be specified and must be between 1 and 200 characters."]
module X12ElementRequirementValidationRule =
  struct
    type nonrec t =
      {
      elementPosition: ElementPosition.t
        [@ocaml.doc
          "Specifies the position of the element within an X12 segment for which the requirement status will be modified. The format follows the pattern of segment identifier followed by element position (e.g., \"ST-01\" for the first element of the ST segment)."];
      requirement: ElementRequirement.t
        [@ocaml.doc
          "Specifies the requirement status for the element at the specified position. Valid values are OPTIONAL (the element may be omitted) or MANDATORY (the element must be present)."]}
    let context_ = "X12ElementRequirementValidationRule"
    let make ~elementPosition =
      fun ~requirement -> fun () -> { elementPosition; requirement }
    let to_value x =
      structure_to_value
        [("elementPosition",
           (Some (ElementPosition.to_value x.elementPosition)));
        ("requirement", (Some (ElementRequirement.to_value x.requirement)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requirement =
        ElementRequirement.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "requirement") in
      let elementPosition =
        ElementPosition.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "elementPosition") in
      make ~requirement ~elementPosition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requirement =
        field_map_exn json__ "requirement" ElementRequirement.of_json in
      let elementPosition =
        field_map_exn json__ "elementPosition" ElementPosition.of_json in
      make ~requirement ~elementPosition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines a validation rule that modifies the requirement status of a specific X12 element within a segment. This rule allows you to make optional elements mandatory or mandatory elements optional, providing flexibility to accommodate different trading partner requirements and business rules. The rule targets a specific element position within a segment and sets its requirement status to either OPTIONAL or MANDATORY."]
module X12ValidationRule =
  struct
    type nonrec t =
      {
      codeListValidationRule: X12CodeListValidationRule.t option
        [@ocaml.doc
          "Specifies a code list validation rule that modifies the allowed code values for a specific X12 element. This rule enables you to customize which codes are considered valid for an element, allowing for trading partner-specific code requirements."];
      elementLengthValidationRule: X12ElementLengthValidationRule.t option
        [@ocaml.doc
          "Specifies an element length validation rule that defines custom length constraints for a specific X12 element. This rule allows you to enforce minimum and maximum length requirements that may differ from the standard X12 specification."];
      elementRequirementValidationRule:
        X12ElementRequirementValidationRule.t option
        [@ocaml.doc
          "Specifies an element requirement validation rule that modifies whether a specific X12 element is required or optional within a segment. This rule provides flexibility to accommodate different trading partner requirements for element presence."]}
    let make ?codeListValidationRule =
      fun ?elementLengthValidationRule ->
        fun ?elementRequirementValidationRule ->
          fun () ->
            {
              codeListValidationRule;
              elementLengthValidationRule;
              elementRequirementValidationRule
            }
    let to_value x =
      structure_to_value
        [("codeListValidationRule",
           (Option.map x.codeListValidationRule
              ~f:X12CodeListValidationRule.to_value));
        ("elementLengthValidationRule",
          (Option.map x.elementLengthValidationRule
             ~f:X12ElementLengthValidationRule.to_value));
        ("elementRequirementValidationRule",
          (Option.map x.elementRequirementValidationRule
             ~f:X12ElementRequirementValidationRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let elementRequirementValidationRule =
        (Option.map ~f:X12ElementRequirementValidationRule.of_xml)
          (Xml.child xml_arg0 "elementRequirementValidationRule") in
      let elementLengthValidationRule =
        (Option.map ~f:X12ElementLengthValidationRule.of_xml)
          (Xml.child xml_arg0 "elementLengthValidationRule") in
      let codeListValidationRule =
        (Option.map ~f:X12CodeListValidationRule.of_xml)
          (Xml.child xml_arg0 "codeListValidationRule") in
      make ?elementRequirementValidationRule ?elementLengthValidationRule
        ?codeListValidationRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let elementRequirementValidationRule =
        field_map json__ "elementRequirementValidationRule"
          X12ElementRequirementValidationRule.of_json in
      let elementLengthValidationRule =
        field_map json__ "elementLengthValidationRule"
          X12ElementLengthValidationRule.of_json in
      let codeListValidationRule =
        field_map json__ "codeListValidationRule"
          X12CodeListValidationRule.of_json in
      make ?elementRequirementValidationRule ?elementLengthValidationRule
        ?codeListValidationRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a single validation rule that can be applied during X12 EDI processing. This is a union type that can contain one of several specific validation rule types: code list validation rules for modifying allowed element codes, element length validation rules for enforcing custom length constraints, or element requirement validation rules for changing mandatory/optional status. Each validation rule targets specific aspects of EDI document validation to ensure compliance with trading partner requirements and business rules."]
module StartingFunctionalGroupControlNumber =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:999999999) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for StartingFunctionalGroupControlNumber"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module StartingInterchangeControlNumber =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:999999999) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for StartingInterchangeControlNumber" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module StartingTransactionSetControlNumber =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:999999999) >>=
             (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for StartingTransactionSetControlNumber"
           xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module X12ComponentSeparator =
  struct
    type nonrec t = string
    let context_ = "X12ComponentSeparator"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[!&'()*+,\\-./:;?=%@\\[\\]_{}|<>~^`\"]")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12ComponentSeparator" j
    let to_json = simple_to_json to_value
  end
module X12DataElementSeparator =
  struct
    type nonrec t = string
    let context_ = "X12DataElementSeparator"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[!&'()*+,\\-./:;?=%@\\[\\]_{}|<>~^`\"]")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12DataElementSeparator" j
    let to_json = simple_to_json to_value
  end
module X12SegmentTerminator =
  struct
    type nonrec t = string
    let context_ = "X12SegmentTerminator"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[!&'()*+,\\-./:;?=%@\\[\\]_{}|<>~^`\"]")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12SegmentTerminator" j
    let to_json = simple_to_json to_value
  end
module X12ApplicationReceiverCode =
  struct
    type nonrec t = string
    let context_ = "X12ApplicationReceiverCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9 ]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12ApplicationReceiverCode" j
    let to_json = simple_to_json to_value
  end
module X12ApplicationSenderCode =
  struct
    type nonrec t = string
    let context_ = "X12ApplicationSenderCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9 ]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12ApplicationSenderCode" j
    let to_json = simple_to_json to_value
  end
module X12ResponsibleAgencyCode =
  struct
    type nonrec t = string
    let context_ = "X12ResponsibleAgencyCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12ResponsibleAgencyCode" j
    let to_json = simple_to_json to_value
  end
module X12AcknowledgmentRequestedCode =
  struct
    type nonrec t = string
    let context_ = "X12AcknowledgmentRequestedCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12AcknowledgmentRequestedCode" j
    let to_json = simple_to_json to_value
  end
module X12IdQualifier =
  struct
    type nonrec t = string
    let context_ = "X12IdQualifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:2) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12IdQualifier" j
    let to_json = simple_to_json to_value
  end
module X12ReceiverId =
  struct
    type nonrec t = string
    let context_ = "X12ReceiverId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9 ]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12ReceiverId" j
    let to_json = simple_to_json to_value
  end
module X12RepetitionSeparator =
  struct
    type nonrec t = string
    let context_ = "X12RepetitionSeparator"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12RepetitionSeparator" j
    let to_json = simple_to_json to_value
  end
module X12SenderId =
  struct
    type nonrec t = string
    let context_ = "X12SenderId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9 ]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12SenderId" j
    let to_json = simple_to_json to_value
  end
module X12UsageIndicatorCode =
  struct
    type nonrec t = string
    let context_ = "X12UsageIndicatorCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"X12UsageIndicatorCode" j
    let to_json = simple_to_json to_value
  end
module X12SplitBy =
  struct
    type nonrec t =
      | NONE 
      | TRANSACTION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | TRANSACTION -> "TRANSACTION"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "TRANSACTION" -> TRANSACTION
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration X12SplitBy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"X12SplitBy" j)
    let to_json = simple_to_json to_value
  end
module X12ValidationRules =
  struct
    type nonrec t = X12ValidationRule.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:X12ValidationRule.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:X12ValidationRule.of_xml)
    let of_json j =
      list_of_json ~kind:"X12ValidationRules"
        ~of_json:X12ValidationRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module X12FunctionalAcknowledgment =
  struct
    type nonrec t =
      | DO_NOT_GENERATE 
      | GENERATE_ALL_SEGMENTS 
      | GENERATE_WITHOUT_TRANSACTION_SET_RESPONSE_LOOP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DO_NOT_GENERATE -> "DO_NOT_GENERATE"
      | GENERATE_ALL_SEGMENTS -> "GENERATE_ALL_SEGMENTS"
      | GENERATE_WITHOUT_TRANSACTION_SET_RESPONSE_LOOP ->
          "GENERATE_WITHOUT_TRANSACTION_SET_RESPONSE_LOOP"
      | Non_static_id s -> s
    let of_string =
      function
      | "DO_NOT_GENERATE" -> DO_NOT_GENERATE
      | "GENERATE_ALL_SEGMENTS" -> GENERATE_ALL_SEGMENTS
      | "GENERATE_WITHOUT_TRANSACTION_SET_RESPONSE_LOOP" ->
          GENERATE_WITHOUT_TRANSACTION_SET_RESPONSE_LOOP
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration X12FunctionalAcknowledgment"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"X12FunctionalAcknowledgment" j)
    let to_json = simple_to_json to_value
  end
module X12TechnicalAcknowledgment =
  struct
    type nonrec t =
      | DO_NOT_GENERATE 
      | GENERATE_ALL_SEGMENTS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DO_NOT_GENERATE -> "DO_NOT_GENERATE"
      | GENERATE_ALL_SEGMENTS -> "GENERATE_ALL_SEGMENTS"
      | Non_static_id s -> s
    let of_string =
      function
      | "DO_NOT_GENERATE" -> DO_NOT_GENERATE
      | "GENERATE_ALL_SEGMENTS" -> GENERATE_ALL_SEGMENTS
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration X12TechnicalAcknowledgment"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"X12TechnicalAcknowledgment" j)
    let to_json = simple_to_json to_value
  end
module LineLength =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for LineLength" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module LineTerminator =
  struct
    type nonrec t =
      | CRLF 
      | LF 
      | CR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CRLF -> "CRLF"
      | LF -> "LF"
      | CR -> "CR"
      | Non_static_id s -> s
    let of_string =
      function
      | "CRLF" -> CRLF
      | "LF" -> LF
      | "CR" -> CR
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration LineTerminator" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LineTerminator" j)
    let to_json = simple_to_json to_value
  end
module WrapFormat =
  struct
    type nonrec t =
      | SEGMENT 
      | ONE_LINE 
      | LINE_LENGTH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SEGMENT -> "SEGMENT"
      | ONE_LINE -> "ONE_LINE"
      | LINE_LENGTH -> "LINE_LENGTH"
      | Non_static_id s -> s
    let of_string =
      function
      | "SEGMENT" -> SEGMENT
      | "ONE_LINE" -> ONE_LINE
      | "LINE_LENGTH" -> LINE_LENGTH
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration WrapFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"WrapFormat" j)
    let to_json = simple_to_json to_value
  end
module X12ControlNumbers =
  struct
    type nonrec t =
      {
      startingInterchangeControlNumber:
        StartingInterchangeControlNumber.t option
        [@ocaml.doc
          "Specifies the starting interchange control number (ISA13) to use for X12 EDI generation. This number is incremented for each new interchange. For the ISA (interchange) envelope, Amazon Web Services B2B Data Interchange generates an interchange control number that is unique for the ISA05 and ISA06 (sender) & ISA07 and ISA08 (receiver) combination."];
      startingFunctionalGroupControlNumber:
        StartingFunctionalGroupControlNumber.t option
        [@ocaml.doc
          "Specifies the starting functional group control number (GS06) to use for X12 EDI generation. This number is incremented for each new functional group. For the GS (functional group) envelope, Amazon Web Services B2B Data Interchange generates a functional group control number that is unique to the sender ID, receiver ID, and functional identifier code combination."];
      startingTransactionSetControlNumber:
        StartingTransactionSetControlNumber.t option
        [@ocaml.doc
          "Specifies the starting transaction set control number (ST02) to use for X12 EDI generation. This number is incremented for each new transaction set."]}
    let make ?startingInterchangeControlNumber =
      fun ?startingFunctionalGroupControlNumber ->
        fun ?startingTransactionSetControlNumber ->
          fun () ->
            {
              startingInterchangeControlNumber;
              startingFunctionalGroupControlNumber;
              startingTransactionSetControlNumber
            }
    let to_value x =
      structure_to_value
        [("startingInterchangeControlNumber",
           (Option.map x.startingInterchangeControlNumber
              ~f:StartingInterchangeControlNumber.to_value));
        ("startingFunctionalGroupControlNumber",
          (Option.map x.startingFunctionalGroupControlNumber
             ~f:StartingFunctionalGroupControlNumber.to_value));
        ("startingTransactionSetControlNumber",
          (Option.map x.startingTransactionSetControlNumber
             ~f:StartingTransactionSetControlNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startingTransactionSetControlNumber =
        (Option.map ~f:StartingTransactionSetControlNumber.of_xml)
          (Xml.child xml_arg0 "startingTransactionSetControlNumber") in
      let startingFunctionalGroupControlNumber =
        (Option.map ~f:StartingFunctionalGroupControlNumber.of_xml)
          (Xml.child xml_arg0 "startingFunctionalGroupControlNumber") in
      let startingInterchangeControlNumber =
        (Option.map ~f:StartingInterchangeControlNumber.of_xml)
          (Xml.child xml_arg0 "startingInterchangeControlNumber") in
      make ?startingTransactionSetControlNumber
        ?startingFunctionalGroupControlNumber
        ?startingInterchangeControlNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startingTransactionSetControlNumber =
        field_map json__ "startingTransactionSetControlNumber"
          StartingTransactionSetControlNumber.of_json in
      let startingFunctionalGroupControlNumber =
        field_map json__ "startingFunctionalGroupControlNumber"
          StartingFunctionalGroupControlNumber.of_json in
      let startingInterchangeControlNumber =
        field_map json__ "startingInterchangeControlNumber"
          StartingInterchangeControlNumber.of_json in
      make ?startingTransactionSetControlNumber
        ?startingFunctionalGroupControlNumber
        ?startingInterchangeControlNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains configuration for X12 control numbers used in X12 EDI generation. Control numbers are used to uniquely identify interchanges, functional groups, and transaction sets."]
module X12Delimiters =
  struct
    type nonrec t =
      {
      componentSeparator: X12ComponentSeparator.t option
        [@ocaml.doc
          "The component, or sub-element, separator. The default value is : (colon)."];
      dataElementSeparator: X12DataElementSeparator.t option
        [@ocaml.doc
          "The data element separator. The default value is * (asterisk)."];
      segmentTerminator: X12SegmentTerminator.t option
        [@ocaml.doc
          "The segment terminator. The default value is ~ (tilde)."]}
    let make ?componentSeparator =
      fun ?dataElementSeparator ->
        fun ?segmentTerminator ->
          fun () ->
            { componentSeparator; dataElementSeparator; segmentTerminator }
    let to_value x =
      structure_to_value
        [("componentSeparator",
           (Option.map x.componentSeparator ~f:X12ComponentSeparator.to_value));
        ("dataElementSeparator",
          (Option.map x.dataElementSeparator
             ~f:X12DataElementSeparator.to_value));
        ("segmentTerminator",
          (Option.map x.segmentTerminator ~f:X12SegmentTerminator.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let segmentTerminator =
        (Option.map ~f:X12SegmentTerminator.of_xml)
          (Xml.child xml_arg0 "segmentTerminator") in
      let dataElementSeparator =
        (Option.map ~f:X12DataElementSeparator.of_xml)
          (Xml.child xml_arg0 "dataElementSeparator") in
      let componentSeparator =
        (Option.map ~f:X12ComponentSeparator.of_xml)
          (Xml.child xml_arg0 "componentSeparator") in
      make ?segmentTerminator ?dataElementSeparator ?componentSeparator ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let segmentTerminator =
        field_map json__ "segmentTerminator" X12SegmentTerminator.of_json in
      let dataElementSeparator =
        field_map json__ "dataElementSeparator"
          X12DataElementSeparator.of_json in
      let componentSeparator =
        field_map json__ "componentSeparator" X12ComponentSeparator.of_json in
      make ?segmentTerminator ?dataElementSeparator ?componentSeparator ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In X12 EDI messages, delimiters are used to mark the end of segments or elements, and are defined in the interchange control header. The delimiters are part of the message's syntax and divide up its different elements."]
module X12FunctionalGroupHeaders =
  struct
    type nonrec t =
      {
      applicationSenderCode: X12ApplicationSenderCode.t option
        [@ocaml.doc
          "A value representing the code used to identify the party transmitting a message, at position GS-02."];
      applicationReceiverCode: X12ApplicationReceiverCode.t option
        [@ocaml.doc
          "A value representing the code used to identify the party receiving a message, at position GS-03."];
      responsibleAgencyCode: X12ResponsibleAgencyCode.t option
        [@ocaml.doc
          "A code that identifies the issuer of the standard, at position GS-07."]}
    let make ?applicationSenderCode =
      fun ?applicationReceiverCode ->
        fun ?responsibleAgencyCode ->
          fun () ->
            {
              applicationSenderCode;
              applicationReceiverCode;
              responsibleAgencyCode
            }
    let to_value x =
      structure_to_value
        [("applicationSenderCode",
           (Option.map x.applicationSenderCode
              ~f:X12ApplicationSenderCode.to_value));
        ("applicationReceiverCode",
          (Option.map x.applicationReceiverCode
             ~f:X12ApplicationReceiverCode.to_value));
        ("responsibleAgencyCode",
          (Option.map x.responsibleAgencyCode
             ~f:X12ResponsibleAgencyCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responsibleAgencyCode =
        (Option.map ~f:X12ResponsibleAgencyCode.of_xml)
          (Xml.child xml_arg0 "responsibleAgencyCode") in
      let applicationReceiverCode =
        (Option.map ~f:X12ApplicationReceiverCode.of_xml)
          (Xml.child xml_arg0 "applicationReceiverCode") in
      let applicationSenderCode =
        (Option.map ~f:X12ApplicationSenderCode.of_xml)
          (Xml.child xml_arg0 "applicationSenderCode") in
      make ?responsibleAgencyCode ?applicationReceiverCode
        ?applicationSenderCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responsibleAgencyCode =
        field_map json__ "responsibleAgencyCode"
          X12ResponsibleAgencyCode.of_json in
      let applicationReceiverCode =
        field_map json__ "applicationReceiverCode"
          X12ApplicationReceiverCode.of_json in
      let applicationSenderCode =
        field_map json__ "applicationSenderCode"
          X12ApplicationSenderCode.of_json in
      make ?responsibleAgencyCode ?applicationReceiverCode
        ?applicationSenderCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Part of the X12 message structure. These are the functional group headers for the X12 EDI object."]
module X12GS05TimeFormat =
  struct
    type nonrec t =
      | HHMM 
      | HHMMSS 
      | HHMMSSDD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HHMM -> "HHMM"
      | HHMMSS -> "HHMMSS"
      | HHMMSSDD -> "HHMMSSDD"
      | Non_static_id s -> s
    let of_string =
      function
      | "HHMM" -> HHMM
      | "HHMMSS" -> HHMMSS
      | "HHMMSSDD" -> HHMMSSDD
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration X12GS05TimeFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"X12GS05TimeFormat" j)
    let to_json = simple_to_json to_value
  end
module X12InterchangeControlHeaders =
  struct
    type nonrec t =
      {
      senderIdQualifier: X12IdQualifier.t option
        [@ocaml.doc
          "Located at position ISA-05 in the header. Qualifier for the sender ID. Together, the ID and qualifier uniquely identify the sending trading partner."];
      senderId: X12SenderId.t option
        [@ocaml.doc
          "Located at position ISA-06 in the header. This value (along with the senderIdQualifier) identifies the sender of the interchange."];
      receiverIdQualifier: X12IdQualifier.t option
        [@ocaml.doc
          "Located at position ISA-07 in the header. Qualifier for the receiver ID. Together, the ID and qualifier uniquely identify the receiving trading partner."];
      receiverId: X12ReceiverId.t option
        [@ocaml.doc
          "Located at position ISA-08 in the header. This value (along with the receiverIdQualifier) identifies the intended recipient of the interchange."];
      repetitionSeparator: X12RepetitionSeparator.t option
        [@ocaml.doc
          "Located at position ISA-11 in the header. This string makes it easier when you need to group similar adjacent element values together without using extra segments. This parameter is only honored for version greater than 401 (VERSION_4010 and higher). For versions less than 401, this field is called StandardsId, in which case our service sets the value to U."];
      acknowledgmentRequestedCode: X12AcknowledgmentRequestedCode.t option
        [@ocaml.doc
          "Located at position ISA-14 in the header. The value \"1\" indicates that the sender is requesting an interchange acknowledgment at receipt of the interchange. The value \"0\" is used otherwise."];
      usageIndicatorCode: X12UsageIndicatorCode.t option
        [@ocaml.doc
          "Located at position ISA-15 in the header. Specifies how this interchange is being used: T indicates this interchange is for testing. P indicates this interchange is for production. I indicates this interchange is informational."]}
    let make ?senderIdQualifier =
      fun ?senderId ->
        fun ?receiverIdQualifier ->
          fun ?receiverId ->
            fun ?repetitionSeparator ->
              fun ?acknowledgmentRequestedCode ->
                fun ?usageIndicatorCode ->
                  fun () ->
                    {
                      senderIdQualifier;
                      senderId;
                      receiverIdQualifier;
                      receiverId;
                      repetitionSeparator;
                      acknowledgmentRequestedCode;
                      usageIndicatorCode
                    }
    let to_value x =
      structure_to_value
        [("senderIdQualifier",
           (Option.map x.senderIdQualifier ~f:X12IdQualifier.to_value));
        ("senderId", (Option.map x.senderId ~f:X12SenderId.to_value));
        ("receiverIdQualifier",
          (Option.map x.receiverIdQualifier ~f:X12IdQualifier.to_value));
        ("receiverId", (Option.map x.receiverId ~f:X12ReceiverId.to_value));
        ("repetitionSeparator",
          (Option.map x.repetitionSeparator
             ~f:X12RepetitionSeparator.to_value));
        ("acknowledgmentRequestedCode",
          (Option.map x.acknowledgmentRequestedCode
             ~f:X12AcknowledgmentRequestedCode.to_value));
        ("usageIndicatorCode",
          (Option.map x.usageIndicatorCode ~f:X12UsageIndicatorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let usageIndicatorCode =
        (Option.map ~f:X12UsageIndicatorCode.of_xml)
          (Xml.child xml_arg0 "usageIndicatorCode") in
      let acknowledgmentRequestedCode =
        (Option.map ~f:X12AcknowledgmentRequestedCode.of_xml)
          (Xml.child xml_arg0 "acknowledgmentRequestedCode") in
      let repetitionSeparator =
        (Option.map ~f:X12RepetitionSeparator.of_xml)
          (Xml.child xml_arg0 "repetitionSeparator") in
      let receiverId =
        (Option.map ~f:X12ReceiverId.of_xml)
          (Xml.child xml_arg0 "receiverId") in
      let receiverIdQualifier =
        (Option.map ~f:X12IdQualifier.of_xml)
          (Xml.child xml_arg0 "receiverIdQualifier") in
      let senderId =
        (Option.map ~f:X12SenderId.of_xml) (Xml.child xml_arg0 "senderId") in
      let senderIdQualifier =
        (Option.map ~f:X12IdQualifier.of_xml)
          (Xml.child xml_arg0 "senderIdQualifier") in
      make ?usageIndicatorCode ?acknowledgmentRequestedCode
        ?repetitionSeparator ?receiverId ?receiverIdQualifier ?senderId
        ?senderIdQualifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let usageIndicatorCode =
        field_map json__ "usageIndicatorCode" X12UsageIndicatorCode.of_json in
      let acknowledgmentRequestedCode =
        field_map json__ "acknowledgmentRequestedCode"
          X12AcknowledgmentRequestedCode.of_json in
      let repetitionSeparator =
        field_map json__ "repetitionSeparator" X12RepetitionSeparator.of_json in
      let receiverId = field_map json__ "receiverId" X12ReceiverId.of_json in
      let receiverIdQualifier =
        field_map json__ "receiverIdQualifier" X12IdQualifier.of_json in
      let senderId = field_map json__ "senderId" X12SenderId.of_json in
      let senderIdQualifier =
        field_map json__ "senderIdQualifier" X12IdQualifier.of_json in
      make ?usageIndicatorCode ?acknowledgmentRequestedCode
        ?repetitionSeparator ?receiverId ?receiverIdQualifier ?senderId
        ?senderIdQualifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "In X12, the Interchange Control Header is the first segment of an EDI document and is part of the Interchange Envelope. It contains information about the sender and receiver, the date and time of transmission, and the X12 version being used. It also includes delivery information, such as the sender and receiver IDs."]
module X12ValidateEdi =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module X12SplitOptions =
  struct
    type nonrec t =
      {
      splitBy: X12SplitBy.t
        [@ocaml.doc
          "Specifies the method used to split X12 EDI files. Valid values include TRANSACTION (split by individual transaction sets), or NONE (no splitting)."]}
    let context_ = "X12SplitOptions"
    let make ~splitBy = fun () -> { splitBy }
    let to_value x =
      structure_to_value
        [("splitBy", (Some (X12SplitBy.to_value x.splitBy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let splitBy =
        X12SplitBy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "splitBy") in
      make ~splitBy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let splitBy = field_map_exn json__ "splitBy" X12SplitBy.of_json in
      make ~splitBy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains options for splitting X12 EDI files into smaller units. This is useful for processing large EDI files more efficiently."]
module X12ValidationOptions =
  struct
    type nonrec t =
      {
      validationRules: X12ValidationRules.t option
        [@ocaml.doc
          "Specifies a list of validation rules to apply during EDI document processing. These rules can include code list modifications, element length constraints, and element requirement changes."]}
    let make ?validationRules = fun () -> { validationRules }
    let to_value x =
      structure_to_value
        [("validationRules",
           (Option.map x.validationRules ~f:X12ValidationRules.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationRules =
        (Option.map ~f:X12ValidationRules.of_xml)
          (Xml.child xml_arg0 "validationRules") in
      make ?validationRules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationRules =
        field_map json__ "validationRules" X12ValidationRules.of_json in
      make ?validationRules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains configuration options for X12 EDI validation. This structure allows you to specify custom validation rules that will be applied during EDI document processing, including element length constraints, code list modifications, and element requirement changes. These validation options provide flexibility to accommodate trading partner-specific requirements while maintaining EDI compliance. The validation rules are applied in addition to standard X12 validation to ensure documents meet both standard and custom requirements."]
module X12TransactionSet =
  struct
    type nonrec t =
      | X12_100 
      | X12_101 
      | X12_102 
      | X12_103 
      | X12_104 
      | X12_105 
      | X12_106 
      | X12_107 
      | X12_108 
      | X12_109 
      | X12_110 
      | X12_111 
      | X12_112 
      | X12_113 
      | X12_120 
      | X12_121 
      | X12_124 
      | X12_125 
      | X12_126 
      | X12_127 
      | X12_128 
      | X12_129 
      | X12_130 
      | X12_131 
      | X12_132 
      | X12_133 
      | X12_135 
      | X12_138 
      | X12_139 
      | X12_140 
      | X12_141 
      | X12_142 
      | X12_143 
      | X12_144 
      | X12_146 
      | X12_147 
      | X12_148 
      | X12_149 
      | X12_150 
      | X12_151 
      | X12_152 
      | X12_153 
      | X12_154 
      | X12_155 
      | X12_157 
      | X12_158 
      | X12_159 
      | X12_160 
      | X12_161 
      | X12_163 
      | X12_170 
      | X12_175 
      | X12_176 
      | X12_179 
      | X12_180 
      | X12_185 
      | X12_186 
      | X12_187 
      | X12_188 
      | X12_189 
      | X12_190 
      | X12_191 
      | X12_194 
      | X12_195 
      | X12_196 
      | X12_197 
      | X12_198 
      | X12_199 
      | X12_200 
      | X12_201 
      | X12_202 
      | X12_203 
      | X12_204 
      | X12_205 
      | X12_206 
      | X12_210 
      | X12_211 
      | X12_212 
      | X12_213 
      | X12_214 
      | X12_215 
      | X12_216 
      | X12_217 
      | X12_218 
      | X12_219 
      | X12_220 
      | X12_222 
      | X12_223 
      | X12_224 
      | X12_225 
      | X12_227 
      | X12_228 
      | X12_240 
      | X12_242 
      | X12_244 
      | X12_245 
      | X12_248 
      | X12_249 
      | X12_250 
      | X12_251 
      | X12_252 
      | X12_255 
      | X12_256 
      | X12_259 
      | X12_260 
      | X12_261 
      | X12_262 
      | X12_263 
      | X12_264 
      | X12_265 
      | X12_266 
      | X12_267 
      | X12_268 
      | X12_269 
      | X12_270 
      | X12_271 
      | X12_272 
      | X12_273 
      | X12_274 
      | X12_275 
      | X12_276 
      | X12_277 
      | X12_278 
      | X12_280 
      | X12_283 
      | X12_284 
      | X12_285 
      | X12_286 
      | X12_288 
      | X12_290 
      | X12_300 
      | X12_301 
      | X12_303 
      | X12_304 
      | X12_309 
      | X12_310 
      | X12_311 
      | X12_312 
      | X12_313 
      | X12_315 
      | X12_317 
      | X12_319 
      | X12_322 
      | X12_323 
      | X12_324 
      | X12_325 
      | X12_326 
      | X12_350 
      | X12_352 
      | X12_353 
      | X12_354 
      | X12_355 
      | X12_356 
      | X12_357 
      | X12_358 
      | X12_361 
      | X12_362 
      | X12_404 
      | X12_410 
      | X12_412 
      | X12_414 
      | X12_417 
      | X12_418 
      | X12_419 
      | X12_420 
      | X12_421 
      | X12_422 
      | X12_423 
      | X12_424 
      | X12_425 
      | X12_426 
      | X12_429 
      | X12_431 
      | X12_432 
      | X12_433 
      | X12_434 
      | X12_435 
      | X12_436 
      | X12_437 
      | X12_440 
      | X12_451 
      | X12_452 
      | X12_453 
      | X12_455 
      | X12_456 
      | X12_460 
      | X12_463 
      | X12_466 
      | X12_468 
      | X12_470 
      | X12_475 
      | X12_485 
      | X12_486 
      | X12_490 
      | X12_492 
      | X12_494 
      | X12_500 
      | X12_501 
      | X12_503 
      | X12_504 
      | X12_511 
      | X12_517 
      | X12_521 
      | X12_527 
      | X12_536 
      | X12_540 
      | X12_561 
      | X12_567 
      | X12_568 
      | X12_601 
      | X12_602 
      | X12_620 
      | X12_625 
      | X12_650 
      | X12_715 
      | X12_753 
      | X12_754 
      | X12_805 
      | X12_806 
      | X12_810 
      | X12_811 
      | X12_812 
      | X12_813 
      | X12_814 
      | X12_815 
      | X12_816 
      | X12_818 
      | X12_819 
      | X12_820 
      | X12_821 
      | X12_822 
      | X12_823 
      | X12_824 
      | X12_826 
      | X12_827 
      | X12_828 
      | X12_829 
      | X12_830 
      | X12_831 
      | X12_832 
      | X12_833 
      | X12_834 
      | X12_835 
      | X12_836 
      | X12_837 
      | X12_838 
      | X12_839 
      | X12_840 
      | X12_841 
      | X12_842 
      | X12_843 
      | X12_844 
      | X12_845 
      | X12_846 
      | X12_847 
      | X12_848 
      | X12_849 
      | X12_850 
      | X12_851 
      | X12_852 
      | X12_853 
      | X12_854 
      | X12_855 
      | X12_856 
      | X12_857 
      | X12_858 
      | X12_859 
      | X12_860 
      | X12_861 
      | X12_862 
      | X12_863 
      | X12_864 
      | X12_865 
      | X12_866 
      | X12_867 
      | X12_868 
      | X12_869 
      | X12_870 
      | X12_871 
      | X12_872 
      | X12_873 
      | X12_874 
      | X12_875 
      | X12_876 
      | X12_877 
      | X12_878 
      | X12_879 
      | X12_880 
      | X12_881 
      | X12_882 
      | X12_883 
      | X12_884 
      | X12_885 
      | X12_886 
      | X12_887 
      | X12_888 
      | X12_889 
      | X12_891 
      | X12_893 
      | X12_894 
      | X12_895 
      | X12_896 
      | X12_920 
      | X12_924 
      | X12_925 
      | X12_926 
      | X12_928 
      | X12_940 
      | X12_943 
      | X12_944 
      | X12_945 
      | X12_947 
      | X12_980 
      | X12_990 
      | X12_993 
      | X12_996 
      | X12_997 
      | X12_998 
      | X12_999 
      | X12_270_X279 
      | X12_271_X279 
      | X12_275_X210 
      | X12_275_X211 
      | X12_276_X212 
      | X12_277_X212 
      | X12_277_X214 
      | X12_277_X364 
      | X12_278_X217 
      | X12_820_X218 
      | X12_820_X306 
      | X12_824_X186 
      | X12_834_X220 
      | X12_834_X307 
      | X12_834_X318 
      | X12_835_X221 
      | X12_837_X222 
      | X12_837_X223 
      | X12_837_X224 
      | X12_837_X291 
      | X12_837_X292 
      | X12_837_X298 
      | X12_999_X231 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | X12_100 -> "X12_100"
      | X12_101 -> "X12_101"
      | X12_102 -> "X12_102"
      | X12_103 -> "X12_103"
      | X12_104 -> "X12_104"
      | X12_105 -> "X12_105"
      | X12_106 -> "X12_106"
      | X12_107 -> "X12_107"
      | X12_108 -> "X12_108"
      | X12_109 -> "X12_109"
      | X12_110 -> "X12_110"
      | X12_111 -> "X12_111"
      | X12_112 -> "X12_112"
      | X12_113 -> "X12_113"
      | X12_120 -> "X12_120"
      | X12_121 -> "X12_121"
      | X12_124 -> "X12_124"
      | X12_125 -> "X12_125"
      | X12_126 -> "X12_126"
      | X12_127 -> "X12_127"
      | X12_128 -> "X12_128"
      | X12_129 -> "X12_129"
      | X12_130 -> "X12_130"
      | X12_131 -> "X12_131"
      | X12_132 -> "X12_132"
      | X12_133 -> "X12_133"
      | X12_135 -> "X12_135"
      | X12_138 -> "X12_138"
      | X12_139 -> "X12_139"
      | X12_140 -> "X12_140"
      | X12_141 -> "X12_141"
      | X12_142 -> "X12_142"
      | X12_143 -> "X12_143"
      | X12_144 -> "X12_144"
      | X12_146 -> "X12_146"
      | X12_147 -> "X12_147"
      | X12_148 -> "X12_148"
      | X12_149 -> "X12_149"
      | X12_150 -> "X12_150"
      | X12_151 -> "X12_151"
      | X12_152 -> "X12_152"
      | X12_153 -> "X12_153"
      | X12_154 -> "X12_154"
      | X12_155 -> "X12_155"
      | X12_157 -> "X12_157"
      | X12_158 -> "X12_158"
      | X12_159 -> "X12_159"
      | X12_160 -> "X12_160"
      | X12_161 -> "X12_161"
      | X12_163 -> "X12_163"
      | X12_170 -> "X12_170"
      | X12_175 -> "X12_175"
      | X12_176 -> "X12_176"
      | X12_179 -> "X12_179"
      | X12_180 -> "X12_180"
      | X12_185 -> "X12_185"
      | X12_186 -> "X12_186"
      | X12_187 -> "X12_187"
      | X12_188 -> "X12_188"
      | X12_189 -> "X12_189"
      | X12_190 -> "X12_190"
      | X12_191 -> "X12_191"
      | X12_194 -> "X12_194"
      | X12_195 -> "X12_195"
      | X12_196 -> "X12_196"
      | X12_197 -> "X12_197"
      | X12_198 -> "X12_198"
      | X12_199 -> "X12_199"
      | X12_200 -> "X12_200"
      | X12_201 -> "X12_201"
      | X12_202 -> "X12_202"
      | X12_203 -> "X12_203"
      | X12_204 -> "X12_204"
      | X12_205 -> "X12_205"
      | X12_206 -> "X12_206"
      | X12_210 -> "X12_210"
      | X12_211 -> "X12_211"
      | X12_212 -> "X12_212"
      | X12_213 -> "X12_213"
      | X12_214 -> "X12_214"
      | X12_215 -> "X12_215"
      | X12_216 -> "X12_216"
      | X12_217 -> "X12_217"
      | X12_218 -> "X12_218"
      | X12_219 -> "X12_219"
      | X12_220 -> "X12_220"
      | X12_222 -> "X12_222"
      | X12_223 -> "X12_223"
      | X12_224 -> "X12_224"
      | X12_225 -> "X12_225"
      | X12_227 -> "X12_227"
      | X12_228 -> "X12_228"
      | X12_240 -> "X12_240"
      | X12_242 -> "X12_242"
      | X12_244 -> "X12_244"
      | X12_245 -> "X12_245"
      | X12_248 -> "X12_248"
      | X12_249 -> "X12_249"
      | X12_250 -> "X12_250"
      | X12_251 -> "X12_251"
      | X12_252 -> "X12_252"
      | X12_255 -> "X12_255"
      | X12_256 -> "X12_256"
      | X12_259 -> "X12_259"
      | X12_260 -> "X12_260"
      | X12_261 -> "X12_261"
      | X12_262 -> "X12_262"
      | X12_263 -> "X12_263"
      | X12_264 -> "X12_264"
      | X12_265 -> "X12_265"
      | X12_266 -> "X12_266"
      | X12_267 -> "X12_267"
      | X12_268 -> "X12_268"
      | X12_269 -> "X12_269"
      | X12_270 -> "X12_270"
      | X12_271 -> "X12_271"
      | X12_272 -> "X12_272"
      | X12_273 -> "X12_273"
      | X12_274 -> "X12_274"
      | X12_275 -> "X12_275"
      | X12_276 -> "X12_276"
      | X12_277 -> "X12_277"
      | X12_278 -> "X12_278"
      | X12_280 -> "X12_280"
      | X12_283 -> "X12_283"
      | X12_284 -> "X12_284"
      | X12_285 -> "X12_285"
      | X12_286 -> "X12_286"
      | X12_288 -> "X12_288"
      | X12_290 -> "X12_290"
      | X12_300 -> "X12_300"
      | X12_301 -> "X12_301"
      | X12_303 -> "X12_303"
      | X12_304 -> "X12_304"
      | X12_309 -> "X12_309"
      | X12_310 -> "X12_310"
      | X12_311 -> "X12_311"
      | X12_312 -> "X12_312"
      | X12_313 -> "X12_313"
      | X12_315 -> "X12_315"
      | X12_317 -> "X12_317"
      | X12_319 -> "X12_319"
      | X12_322 -> "X12_322"
      | X12_323 -> "X12_323"
      | X12_324 -> "X12_324"
      | X12_325 -> "X12_325"
      | X12_326 -> "X12_326"
      | X12_350 -> "X12_350"
      | X12_352 -> "X12_352"
      | X12_353 -> "X12_353"
      | X12_354 -> "X12_354"
      | X12_355 -> "X12_355"
      | X12_356 -> "X12_356"
      | X12_357 -> "X12_357"
      | X12_358 -> "X12_358"
      | X12_361 -> "X12_361"
      | X12_362 -> "X12_362"
      | X12_404 -> "X12_404"
      | X12_410 -> "X12_410"
      | X12_412 -> "X12_412"
      | X12_414 -> "X12_414"
      | X12_417 -> "X12_417"
      | X12_418 -> "X12_418"
      | X12_419 -> "X12_419"
      | X12_420 -> "X12_420"
      | X12_421 -> "X12_421"
      | X12_422 -> "X12_422"
      | X12_423 -> "X12_423"
      | X12_424 -> "X12_424"
      | X12_425 -> "X12_425"
      | X12_426 -> "X12_426"
      | X12_429 -> "X12_429"
      | X12_431 -> "X12_431"
      | X12_432 -> "X12_432"
      | X12_433 -> "X12_433"
      | X12_434 -> "X12_434"
      | X12_435 -> "X12_435"
      | X12_436 -> "X12_436"
      | X12_437 -> "X12_437"
      | X12_440 -> "X12_440"
      | X12_451 -> "X12_451"
      | X12_452 -> "X12_452"
      | X12_453 -> "X12_453"
      | X12_455 -> "X12_455"
      | X12_456 -> "X12_456"
      | X12_460 -> "X12_460"
      | X12_463 -> "X12_463"
      | X12_466 -> "X12_466"
      | X12_468 -> "X12_468"
      | X12_470 -> "X12_470"
      | X12_475 -> "X12_475"
      | X12_485 -> "X12_485"
      | X12_486 -> "X12_486"
      | X12_490 -> "X12_490"
      | X12_492 -> "X12_492"
      | X12_494 -> "X12_494"
      | X12_500 -> "X12_500"
      | X12_501 -> "X12_501"
      | X12_503 -> "X12_503"
      | X12_504 -> "X12_504"
      | X12_511 -> "X12_511"
      | X12_517 -> "X12_517"
      | X12_521 -> "X12_521"
      | X12_527 -> "X12_527"
      | X12_536 -> "X12_536"
      | X12_540 -> "X12_540"
      | X12_561 -> "X12_561"
      | X12_567 -> "X12_567"
      | X12_568 -> "X12_568"
      | X12_601 -> "X12_601"
      | X12_602 -> "X12_602"
      | X12_620 -> "X12_620"
      | X12_625 -> "X12_625"
      | X12_650 -> "X12_650"
      | X12_715 -> "X12_715"
      | X12_753 -> "X12_753"
      | X12_754 -> "X12_754"
      | X12_805 -> "X12_805"
      | X12_806 -> "X12_806"
      | X12_810 -> "X12_810"
      | X12_811 -> "X12_811"
      | X12_812 -> "X12_812"
      | X12_813 -> "X12_813"
      | X12_814 -> "X12_814"
      | X12_815 -> "X12_815"
      | X12_816 -> "X12_816"
      | X12_818 -> "X12_818"
      | X12_819 -> "X12_819"
      | X12_820 -> "X12_820"
      | X12_821 -> "X12_821"
      | X12_822 -> "X12_822"
      | X12_823 -> "X12_823"
      | X12_824 -> "X12_824"
      | X12_826 -> "X12_826"
      | X12_827 -> "X12_827"
      | X12_828 -> "X12_828"
      | X12_829 -> "X12_829"
      | X12_830 -> "X12_830"
      | X12_831 -> "X12_831"
      | X12_832 -> "X12_832"
      | X12_833 -> "X12_833"
      | X12_834 -> "X12_834"
      | X12_835 -> "X12_835"
      | X12_836 -> "X12_836"
      | X12_837 -> "X12_837"
      | X12_838 -> "X12_838"
      | X12_839 -> "X12_839"
      | X12_840 -> "X12_840"
      | X12_841 -> "X12_841"
      | X12_842 -> "X12_842"
      | X12_843 -> "X12_843"
      | X12_844 -> "X12_844"
      | X12_845 -> "X12_845"
      | X12_846 -> "X12_846"
      | X12_847 -> "X12_847"
      | X12_848 -> "X12_848"
      | X12_849 -> "X12_849"
      | X12_850 -> "X12_850"
      | X12_851 -> "X12_851"
      | X12_852 -> "X12_852"
      | X12_853 -> "X12_853"
      | X12_854 -> "X12_854"
      | X12_855 -> "X12_855"
      | X12_856 -> "X12_856"
      | X12_857 -> "X12_857"
      | X12_858 -> "X12_858"
      | X12_859 -> "X12_859"
      | X12_860 -> "X12_860"
      | X12_861 -> "X12_861"
      | X12_862 -> "X12_862"
      | X12_863 -> "X12_863"
      | X12_864 -> "X12_864"
      | X12_865 -> "X12_865"
      | X12_866 -> "X12_866"
      | X12_867 -> "X12_867"
      | X12_868 -> "X12_868"
      | X12_869 -> "X12_869"
      | X12_870 -> "X12_870"
      | X12_871 -> "X12_871"
      | X12_872 -> "X12_872"
      | X12_873 -> "X12_873"
      | X12_874 -> "X12_874"
      | X12_875 -> "X12_875"
      | X12_876 -> "X12_876"
      | X12_877 -> "X12_877"
      | X12_878 -> "X12_878"
      | X12_879 -> "X12_879"
      | X12_880 -> "X12_880"
      | X12_881 -> "X12_881"
      | X12_882 -> "X12_882"
      | X12_883 -> "X12_883"
      | X12_884 -> "X12_884"
      | X12_885 -> "X12_885"
      | X12_886 -> "X12_886"
      | X12_887 -> "X12_887"
      | X12_888 -> "X12_888"
      | X12_889 -> "X12_889"
      | X12_891 -> "X12_891"
      | X12_893 -> "X12_893"
      | X12_894 -> "X12_894"
      | X12_895 -> "X12_895"
      | X12_896 -> "X12_896"
      | X12_920 -> "X12_920"
      | X12_924 -> "X12_924"
      | X12_925 -> "X12_925"
      | X12_926 -> "X12_926"
      | X12_928 -> "X12_928"
      | X12_940 -> "X12_940"
      | X12_943 -> "X12_943"
      | X12_944 -> "X12_944"
      | X12_945 -> "X12_945"
      | X12_947 -> "X12_947"
      | X12_980 -> "X12_980"
      | X12_990 -> "X12_990"
      | X12_993 -> "X12_993"
      | X12_996 -> "X12_996"
      | X12_997 -> "X12_997"
      | X12_998 -> "X12_998"
      | X12_999 -> "X12_999"
      | X12_270_X279 -> "X12_270_X279"
      | X12_271_X279 -> "X12_271_X279"
      | X12_275_X210 -> "X12_275_X210"
      | X12_275_X211 -> "X12_275_X211"
      | X12_276_X212 -> "X12_276_X212"
      | X12_277_X212 -> "X12_277_X212"
      | X12_277_X214 -> "X12_277_X214"
      | X12_277_X364 -> "X12_277_X364"
      | X12_278_X217 -> "X12_278_X217"
      | X12_820_X218 -> "X12_820_X218"
      | X12_820_X306 -> "X12_820_X306"
      | X12_824_X186 -> "X12_824_X186"
      | X12_834_X220 -> "X12_834_X220"
      | X12_834_X307 -> "X12_834_X307"
      | X12_834_X318 -> "X12_834_X318"
      | X12_835_X221 -> "X12_835_X221"
      | X12_837_X222 -> "X12_837_X222"
      | X12_837_X223 -> "X12_837_X223"
      | X12_837_X224 -> "X12_837_X224"
      | X12_837_X291 -> "X12_837_X291"
      | X12_837_X292 -> "X12_837_X292"
      | X12_837_X298 -> "X12_837_X298"
      | X12_999_X231 -> "X12_999_X231"
      | Non_static_id s -> s
    let of_string =
      function
      | "X12_100" -> X12_100
      | "X12_101" -> X12_101
      | "X12_102" -> X12_102
      | "X12_103" -> X12_103
      | "X12_104" -> X12_104
      | "X12_105" -> X12_105
      | "X12_106" -> X12_106
      | "X12_107" -> X12_107
      | "X12_108" -> X12_108
      | "X12_109" -> X12_109
      | "X12_110" -> X12_110
      | "X12_111" -> X12_111
      | "X12_112" -> X12_112
      | "X12_113" -> X12_113
      | "X12_120" -> X12_120
      | "X12_121" -> X12_121
      | "X12_124" -> X12_124
      | "X12_125" -> X12_125
      | "X12_126" -> X12_126
      | "X12_127" -> X12_127
      | "X12_128" -> X12_128
      | "X12_129" -> X12_129
      | "X12_130" -> X12_130
      | "X12_131" -> X12_131
      | "X12_132" -> X12_132
      | "X12_133" -> X12_133
      | "X12_135" -> X12_135
      | "X12_138" -> X12_138
      | "X12_139" -> X12_139
      | "X12_140" -> X12_140
      | "X12_141" -> X12_141
      | "X12_142" -> X12_142
      | "X12_143" -> X12_143
      | "X12_144" -> X12_144
      | "X12_146" -> X12_146
      | "X12_147" -> X12_147
      | "X12_148" -> X12_148
      | "X12_149" -> X12_149
      | "X12_150" -> X12_150
      | "X12_151" -> X12_151
      | "X12_152" -> X12_152
      | "X12_153" -> X12_153
      | "X12_154" -> X12_154
      | "X12_155" -> X12_155
      | "X12_157" -> X12_157
      | "X12_158" -> X12_158
      | "X12_159" -> X12_159
      | "X12_160" -> X12_160
      | "X12_161" -> X12_161
      | "X12_163" -> X12_163
      | "X12_170" -> X12_170
      | "X12_175" -> X12_175
      | "X12_176" -> X12_176
      | "X12_179" -> X12_179
      | "X12_180" -> X12_180
      | "X12_185" -> X12_185
      | "X12_186" -> X12_186
      | "X12_187" -> X12_187
      | "X12_188" -> X12_188
      | "X12_189" -> X12_189
      | "X12_190" -> X12_190
      | "X12_191" -> X12_191
      | "X12_194" -> X12_194
      | "X12_195" -> X12_195
      | "X12_196" -> X12_196
      | "X12_197" -> X12_197
      | "X12_198" -> X12_198
      | "X12_199" -> X12_199
      | "X12_200" -> X12_200
      | "X12_201" -> X12_201
      | "X12_202" -> X12_202
      | "X12_203" -> X12_203
      | "X12_204" -> X12_204
      | "X12_205" -> X12_205
      | "X12_206" -> X12_206
      | "X12_210" -> X12_210
      | "X12_211" -> X12_211
      | "X12_212" -> X12_212
      | "X12_213" -> X12_213
      | "X12_214" -> X12_214
      | "X12_215" -> X12_215
      | "X12_216" -> X12_216
      | "X12_217" -> X12_217
      | "X12_218" -> X12_218
      | "X12_219" -> X12_219
      | "X12_220" -> X12_220
      | "X12_222" -> X12_222
      | "X12_223" -> X12_223
      | "X12_224" -> X12_224
      | "X12_225" -> X12_225
      | "X12_227" -> X12_227
      | "X12_228" -> X12_228
      | "X12_240" -> X12_240
      | "X12_242" -> X12_242
      | "X12_244" -> X12_244
      | "X12_245" -> X12_245
      | "X12_248" -> X12_248
      | "X12_249" -> X12_249
      | "X12_250" -> X12_250
      | "X12_251" -> X12_251
      | "X12_252" -> X12_252
      | "X12_255" -> X12_255
      | "X12_256" -> X12_256
      | "X12_259" -> X12_259
      | "X12_260" -> X12_260
      | "X12_261" -> X12_261
      | "X12_262" -> X12_262
      | "X12_263" -> X12_263
      | "X12_264" -> X12_264
      | "X12_265" -> X12_265
      | "X12_266" -> X12_266
      | "X12_267" -> X12_267
      | "X12_268" -> X12_268
      | "X12_269" -> X12_269
      | "X12_270" -> X12_270
      | "X12_271" -> X12_271
      | "X12_272" -> X12_272
      | "X12_273" -> X12_273
      | "X12_274" -> X12_274
      | "X12_275" -> X12_275
      | "X12_276" -> X12_276
      | "X12_277" -> X12_277
      | "X12_278" -> X12_278
      | "X12_280" -> X12_280
      | "X12_283" -> X12_283
      | "X12_284" -> X12_284
      | "X12_285" -> X12_285
      | "X12_286" -> X12_286
      | "X12_288" -> X12_288
      | "X12_290" -> X12_290
      | "X12_300" -> X12_300
      | "X12_301" -> X12_301
      | "X12_303" -> X12_303
      | "X12_304" -> X12_304
      | "X12_309" -> X12_309
      | "X12_310" -> X12_310
      | "X12_311" -> X12_311
      | "X12_312" -> X12_312
      | "X12_313" -> X12_313
      | "X12_315" -> X12_315
      | "X12_317" -> X12_317
      | "X12_319" -> X12_319
      | "X12_322" -> X12_322
      | "X12_323" -> X12_323
      | "X12_324" -> X12_324
      | "X12_325" -> X12_325
      | "X12_326" -> X12_326
      | "X12_350" -> X12_350
      | "X12_352" -> X12_352
      | "X12_353" -> X12_353
      | "X12_354" -> X12_354
      | "X12_355" -> X12_355
      | "X12_356" -> X12_356
      | "X12_357" -> X12_357
      | "X12_358" -> X12_358
      | "X12_361" -> X12_361
      | "X12_362" -> X12_362
      | "X12_404" -> X12_404
      | "X12_410" -> X12_410
      | "X12_412" -> X12_412
      | "X12_414" -> X12_414
      | "X12_417" -> X12_417
      | "X12_418" -> X12_418
      | "X12_419" -> X12_419
      | "X12_420" -> X12_420
      | "X12_421" -> X12_421
      | "X12_422" -> X12_422
      | "X12_423" -> X12_423
      | "X12_424" -> X12_424
      | "X12_425" -> X12_425
      | "X12_426" -> X12_426
      | "X12_429" -> X12_429
      | "X12_431" -> X12_431
      | "X12_432" -> X12_432
      | "X12_433" -> X12_433
      | "X12_434" -> X12_434
      | "X12_435" -> X12_435
      | "X12_436" -> X12_436
      | "X12_437" -> X12_437
      | "X12_440" -> X12_440
      | "X12_451" -> X12_451
      | "X12_452" -> X12_452
      | "X12_453" -> X12_453
      | "X12_455" -> X12_455
      | "X12_456" -> X12_456
      | "X12_460" -> X12_460
      | "X12_463" -> X12_463
      | "X12_466" -> X12_466
      | "X12_468" -> X12_468
      | "X12_470" -> X12_470
      | "X12_475" -> X12_475
      | "X12_485" -> X12_485
      | "X12_486" -> X12_486
      | "X12_490" -> X12_490
      | "X12_492" -> X12_492
      | "X12_494" -> X12_494
      | "X12_500" -> X12_500
      | "X12_501" -> X12_501
      | "X12_503" -> X12_503
      | "X12_504" -> X12_504
      | "X12_511" -> X12_511
      | "X12_517" -> X12_517
      | "X12_521" -> X12_521
      | "X12_527" -> X12_527
      | "X12_536" -> X12_536
      | "X12_540" -> X12_540
      | "X12_561" -> X12_561
      | "X12_567" -> X12_567
      | "X12_568" -> X12_568
      | "X12_601" -> X12_601
      | "X12_602" -> X12_602
      | "X12_620" -> X12_620
      | "X12_625" -> X12_625
      | "X12_650" -> X12_650
      | "X12_715" -> X12_715
      | "X12_753" -> X12_753
      | "X12_754" -> X12_754
      | "X12_805" -> X12_805
      | "X12_806" -> X12_806
      | "X12_810" -> X12_810
      | "X12_811" -> X12_811
      | "X12_812" -> X12_812
      | "X12_813" -> X12_813
      | "X12_814" -> X12_814
      | "X12_815" -> X12_815
      | "X12_816" -> X12_816
      | "X12_818" -> X12_818
      | "X12_819" -> X12_819
      | "X12_820" -> X12_820
      | "X12_821" -> X12_821
      | "X12_822" -> X12_822
      | "X12_823" -> X12_823
      | "X12_824" -> X12_824
      | "X12_826" -> X12_826
      | "X12_827" -> X12_827
      | "X12_828" -> X12_828
      | "X12_829" -> X12_829
      | "X12_830" -> X12_830
      | "X12_831" -> X12_831
      | "X12_832" -> X12_832
      | "X12_833" -> X12_833
      | "X12_834" -> X12_834
      | "X12_835" -> X12_835
      | "X12_836" -> X12_836
      | "X12_837" -> X12_837
      | "X12_838" -> X12_838
      | "X12_839" -> X12_839
      | "X12_840" -> X12_840
      | "X12_841" -> X12_841
      | "X12_842" -> X12_842
      | "X12_843" -> X12_843
      | "X12_844" -> X12_844
      | "X12_845" -> X12_845
      | "X12_846" -> X12_846
      | "X12_847" -> X12_847
      | "X12_848" -> X12_848
      | "X12_849" -> X12_849
      | "X12_850" -> X12_850
      | "X12_851" -> X12_851
      | "X12_852" -> X12_852
      | "X12_853" -> X12_853
      | "X12_854" -> X12_854
      | "X12_855" -> X12_855
      | "X12_856" -> X12_856
      | "X12_857" -> X12_857
      | "X12_858" -> X12_858
      | "X12_859" -> X12_859
      | "X12_860" -> X12_860
      | "X12_861" -> X12_861
      | "X12_862" -> X12_862
      | "X12_863" -> X12_863
      | "X12_864" -> X12_864
      | "X12_865" -> X12_865
      | "X12_866" -> X12_866
      | "X12_867" -> X12_867
      | "X12_868" -> X12_868
      | "X12_869" -> X12_869
      | "X12_870" -> X12_870
      | "X12_871" -> X12_871
      | "X12_872" -> X12_872
      | "X12_873" -> X12_873
      | "X12_874" -> X12_874
      | "X12_875" -> X12_875
      | "X12_876" -> X12_876
      | "X12_877" -> X12_877
      | "X12_878" -> X12_878
      | "X12_879" -> X12_879
      | "X12_880" -> X12_880
      | "X12_881" -> X12_881
      | "X12_882" -> X12_882
      | "X12_883" -> X12_883
      | "X12_884" -> X12_884
      | "X12_885" -> X12_885
      | "X12_886" -> X12_886
      | "X12_887" -> X12_887
      | "X12_888" -> X12_888
      | "X12_889" -> X12_889
      | "X12_891" -> X12_891
      | "X12_893" -> X12_893
      | "X12_894" -> X12_894
      | "X12_895" -> X12_895
      | "X12_896" -> X12_896
      | "X12_920" -> X12_920
      | "X12_924" -> X12_924
      | "X12_925" -> X12_925
      | "X12_926" -> X12_926
      | "X12_928" -> X12_928
      | "X12_940" -> X12_940
      | "X12_943" -> X12_943
      | "X12_944" -> X12_944
      | "X12_945" -> X12_945
      | "X12_947" -> X12_947
      | "X12_980" -> X12_980
      | "X12_990" -> X12_990
      | "X12_993" -> X12_993
      | "X12_996" -> X12_996
      | "X12_997" -> X12_997
      | "X12_998" -> X12_998
      | "X12_999" -> X12_999
      | "X12_270_X279" -> X12_270_X279
      | "X12_271_X279" -> X12_271_X279
      | "X12_275_X210" -> X12_275_X210
      | "X12_275_X211" -> X12_275_X211
      | "X12_276_X212" -> X12_276_X212
      | "X12_277_X212" -> X12_277_X212
      | "X12_277_X214" -> X12_277_X214
      | "X12_277_X364" -> X12_277_X364
      | "X12_278_X217" -> X12_278_X217
      | "X12_820_X218" -> X12_820_X218
      | "X12_820_X306" -> X12_820_X306
      | "X12_824_X186" -> X12_824_X186
      | "X12_834_X220" -> X12_834_X220
      | "X12_834_X307" -> X12_834_X307
      | "X12_834_X318" -> X12_834_X318
      | "X12_835_X221" -> X12_835_X221
      | "X12_837_X222" -> X12_837_X222
      | "X12_837_X223" -> X12_837_X223
      | "X12_837_X224" -> X12_837_X224
      | "X12_837_X291" -> X12_837_X291
      | "X12_837_X292" -> X12_837_X292
      | "X12_837_X298" -> X12_837_X298
      | "X12_999_X231" -> X12_999_X231
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration X12TransactionSet" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"X12TransactionSet" j)
    let to_json = simple_to_json to_value
  end
module X12Version =
  struct
    type nonrec t =
      | VERSION_4010 
      | VERSION_4030 
      | VERSION_4050 
      | VERSION_4060 
      | VERSION_5010 
      | VERSION_5010_HIPAA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VERSION_4010 -> "VERSION_4010"
      | VERSION_4030 -> "VERSION_4030"
      | VERSION_4050 -> "VERSION_4050"
      | VERSION_4060 -> "VERSION_4060"
      | VERSION_5010 -> "VERSION_5010"
      | VERSION_5010_HIPAA -> "VERSION_5010_HIPAA"
      | Non_static_id s -> s
    let of_string =
      function
      | "VERSION_4010" -> VERSION_4010
      | "VERSION_4030" -> VERSION_4030
      | "VERSION_4050" -> VERSION_4050
      | "VERSION_4060" -> VERSION_4060
      | "VERSION_5010" -> VERSION_5010
      | "VERSION_5010_HIPAA" -> VERSION_5010_HIPAA
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration X12Version" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"X12Version" j)
    let to_json = simple_to_json to_value
  end
module S3Key =
  struct
    type nonrec t = string
    let context_ = "S3Key"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"S3Key" j
    let to_json = simple_to_json to_value
  end
module X12AcknowledgmentOptions =
  struct
    type nonrec t =
      {
      functionalAcknowledgment: X12FunctionalAcknowledgment.t
        [@ocaml.doc
          "Specifies whether functional acknowledgments (997/999) should be generated for incoming X12 transactions. Valid values are DO_NOT_GENERATE, GENERATE_ALL_SEGMENTS and GENERATE_WITHOUT_TRANSACTION_SET_RESPONSE_LOOP. If you choose GENERATE_WITHOUT_TRANSACTION_SET_RESPONSE_LOOP, Amazon Web Services B2B Data Interchange skips the AK2_Loop when generating an acknowledgment document."];
      technicalAcknowledgment: X12TechnicalAcknowledgment.t
        [@ocaml.doc
          "Specifies whether technical acknowledgments (TA1) should be generated for incoming X12 interchanges. Valid values are DO_NOT_GENERATE and GENERATE_ALL_SEGMENTS and."]}
    let context_ = "X12AcknowledgmentOptions"
    let make ~functionalAcknowledgment =
      fun ~technicalAcknowledgment ->
        fun () -> { functionalAcknowledgment; technicalAcknowledgment }
    let to_value x =
      structure_to_value
        [("functionalAcknowledgment",
           (Some
              (X12FunctionalAcknowledgment.to_value
                 x.functionalAcknowledgment)));
        ("technicalAcknowledgment",
          (Some
             (X12TechnicalAcknowledgment.to_value x.technicalAcknowledgment)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let technicalAcknowledgment =
        X12TechnicalAcknowledgment.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "technicalAcknowledgment") in
      let functionalAcknowledgment =
        X12FunctionalAcknowledgment.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "functionalAcknowledgment") in
      make ~technicalAcknowledgment ~functionalAcknowledgment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let technicalAcknowledgment =
        field_map_exn json__ "technicalAcknowledgment"
          X12TechnicalAcknowledgment.of_json in
      let functionalAcknowledgment =
        field_map_exn json__ "functionalAcknowledgment"
          X12FunctionalAcknowledgment.of_json in
      make ~technicalAcknowledgment ~functionalAcknowledgment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains options for configuring X12 acknowledgments. These options control how functional and technical acknowledgments are handled."]
module WrapOptions =
  struct
    type nonrec t =
      {
      wrapBy: WrapFormat.t
        [@ocaml.doc
          "Specifies the method used for wrapping lines in the EDI output. Valid values: SEGMENT: Wraps by segment. ONE_LINE: Indicates that the entire content is on a single line. When you specify ONE_LINE, do not provide either the line length nor the line terminator value. LINE_LENGTH: Wraps by character count, as specified by lineLength value."];
      lineTerminator: LineTerminator.t option
        [@ocaml.doc
          "Specifies the character sequence used to terminate lines when wrapping. Valid values: CRLF: carriage return and line feed LF: line feed) CR: carriage return"];
      lineLength: LineLength.t option
        [@ocaml.doc
          "Specifies the maximum length of a line before wrapping occurs. This value is used when wrapBy is set to LINE_LENGTH."]}
    let context_ = "WrapOptions"
    let make ?lineTerminator =
      fun ?lineLength ->
        fun ~wrapBy -> fun () -> { lineTerminator; lineLength; wrapBy }
    let to_value x =
      structure_to_value
        [("wrapBy", (Some (WrapFormat.to_value x.wrapBy)));
        ("lineTerminator",
          (Option.map x.lineTerminator ~f:LineTerminator.to_value));
        ("lineLength", (Option.map x.lineLength ~f:LineLength.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lineLength =
        (Option.map ~f:LineLength.of_xml) (Xml.child xml_arg0 "lineLength") in
      let lineTerminator =
        (Option.map ~f:LineTerminator.of_xml)
          (Xml.child xml_arg0 "lineTerminator") in
      let wrapBy =
        WrapFormat.of_xml (Xml.child_exn ~context:context_ xml_arg0 "wrapBy") in
      make ?lineLength ?lineTerminator ~wrapBy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lineLength = field_map json__ "lineLength" LineLength.of_json in
      let lineTerminator =
        field_map json__ "lineTerminator" LineTerminator.of_json in
      let wrapBy = field_map_exn json__ "wrapBy" WrapFormat.of_json in
      make ?lineLength ?lineTerminator ~wrapBy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains options for wrapping (line folding) in X12 EDI files. Wrapping controls how long lines are handled in the EDI output."]
module X12OutboundEdiHeaders =
  struct
    type nonrec t =
      {
      interchangeControlHeaders: X12InterchangeControlHeaders.t option
        [@ocaml.doc
          "In X12 EDI messages, delimiters are used to mark the end of segments or elements, and are defined in the interchange control header."];
      functionalGroupHeaders: X12FunctionalGroupHeaders.t option
        [@ocaml.doc "The functional group headers for the X12 object."];
      delimiters: X12Delimiters.t option
        [@ocaml.doc
          "The delimiters, for example semicolon (;), that separates sections of the headers for the X12 object."];
      validateEdi: X12ValidateEdi.t option
        [@ocaml.doc
          "Specifies whether or not to validate the EDI for this X12 object: TRUE or FALSE. When enabled, this performs both standard EDI validation and applies any configured custom validation rules including element length constraints, code list validations, and element requirement checks. Validation results are returned in the response validation messages."];
      controlNumbers: X12ControlNumbers.t option
        [@ocaml.doc
          "Specifies control number configuration for outbound X12 EDI headers. These settings determine the starting values for interchange, functional group, and transaction set control numbers."];
      gs05TimeFormat: X12GS05TimeFormat.t option }
    let make ?interchangeControlHeaders =
      fun ?functionalGroupHeaders ->
        fun ?delimiters ->
          fun ?validateEdi ->
            fun ?controlNumbers ->
              fun ?gs05TimeFormat ->
                fun () ->
                  {
                    interchangeControlHeaders;
                    functionalGroupHeaders;
                    delimiters;
                    validateEdi;
                    controlNumbers;
                    gs05TimeFormat
                  }
    let to_value x =
      structure_to_value
        [("interchangeControlHeaders",
           (Option.map x.interchangeControlHeaders
              ~f:X12InterchangeControlHeaders.to_value));
        ("functionalGroupHeaders",
          (Option.map x.functionalGroupHeaders
             ~f:X12FunctionalGroupHeaders.to_value));
        ("delimiters", (Option.map x.delimiters ~f:X12Delimiters.to_value));
        ("validateEdi",
          (Option.map x.validateEdi ~f:X12ValidateEdi.to_value));
        ("controlNumbers",
          (Option.map x.controlNumbers ~f:X12ControlNumbers.to_value));
        ("gs05TimeFormat",
          (Option.map x.gs05TimeFormat ~f:X12GS05TimeFormat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gs05TimeFormat =
        (Option.map ~f:X12GS05TimeFormat.of_xml)
          (Xml.child xml_arg0 "gs05TimeFormat") in
      let controlNumbers =
        (Option.map ~f:X12ControlNumbers.of_xml)
          (Xml.child xml_arg0 "controlNumbers") in
      let validateEdi =
        (Option.map ~f:X12ValidateEdi.of_xml)
          (Xml.child xml_arg0 "validateEdi") in
      let delimiters =
        (Option.map ~f:X12Delimiters.of_xml)
          (Xml.child xml_arg0 "delimiters") in
      let functionalGroupHeaders =
        (Option.map ~f:X12FunctionalGroupHeaders.of_xml)
          (Xml.child xml_arg0 "functionalGroupHeaders") in
      let interchangeControlHeaders =
        (Option.map ~f:X12InterchangeControlHeaders.of_xml)
          (Xml.child xml_arg0 "interchangeControlHeaders") in
      make ?gs05TimeFormat ?controlNumbers ?validateEdi ?delimiters
        ?functionalGroupHeaders ?interchangeControlHeaders ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gs05TimeFormat =
        field_map json__ "gs05TimeFormat" X12GS05TimeFormat.of_json in
      let controlNumbers =
        field_map json__ "controlNumbers" X12ControlNumbers.of_json in
      let validateEdi = field_map json__ "validateEdi" X12ValidateEdi.of_json in
      let delimiters = field_map json__ "delimiters" X12Delimiters.of_json in
      let functionalGroupHeaders =
        field_map json__ "functionalGroupHeaders"
          X12FunctionalGroupHeaders.of_json in
      let interchangeControlHeaders =
        field_map json__ "interchangeControlHeaders"
          X12InterchangeControlHeaders.of_json in
      make ?gs05TimeFormat ?controlNumbers ?validateEdi ?delimiters
        ?functionalGroupHeaders ?interchangeControlHeaders ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure containing the details for an outbound EDI object."]
module X12AdvancedOptions =
  struct
    type nonrec t =
      {
      splitOptions: X12SplitOptions.t option
        [@ocaml.doc
          "Specifies options for splitting X12 EDI files. These options control how large X12 files are divided into smaller, more manageable units."];
      validationOptions: X12ValidationOptions.t option
        [@ocaml.doc
          "Specifies validation options for X12 EDI processing. These options control how validation rules are applied during EDI document processing, including custom validation rules for element length constraints, code list validations, and element requirement checks."]}
    let make ?splitOptions =
      fun ?validationOptions -> fun () -> { splitOptions; validationOptions }
    let to_value x =
      structure_to_value
        [("splitOptions",
           (Option.map x.splitOptions ~f:X12SplitOptions.to_value));
        ("validationOptions",
          (Option.map x.validationOptions ~f:X12ValidationOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationOptions =
        (Option.map ~f:X12ValidationOptions.of_xml)
          (Xml.child xml_arg0 "validationOptions") in
      let splitOptions =
        (Option.map ~f:X12SplitOptions.of_xml)
          (Xml.child xml_arg0 "splitOptions") in
      make ?validationOptions ?splitOptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationOptions =
        field_map json__ "validationOptions" X12ValidationOptions.of_json in
      let splitOptions =
        field_map json__ "splitOptions" X12SplitOptions.of_json in
      make ?validationOptions ?splitOptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains advanced options specific to X12 EDI processing, such as splitting large X12 files into smaller units."]
module X12Details =
  struct
    type nonrec t =
      {
      transactionSet: X12TransactionSet.t option
        [@ocaml.doc
          "Returns an enumerated type where each value identifies an X12 transaction set. Transaction sets are maintained by the X12 Accredited Standards Committee."];
      version: X12Version.t option
        [@ocaml.doc
          "Returns the version to use for the specified X12 transaction set."]}
    let make ?transactionSet =
      fun ?version -> fun () -> { transactionSet; version }
    let to_value x =
      structure_to_value
        [("transactionSet",
           (Option.map x.transactionSet ~f:X12TransactionSet.to_value));
        ("version", (Option.map x.version ~f:X12Version.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:X12Version.of_xml) (Xml.child xml_arg0 "version") in
      let transactionSet =
        (Option.map ~f:X12TransactionSet.of_xml)
          (Xml.child xml_arg0 "transactionSet") in
      make ?version ?transactionSet ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "version" X12Version.of_json in
      let transactionSet =
        field_map json__ "transactionSet" X12TransactionSet.of_json in
      make ?version ?transactionSet ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains the X12 transaction set and version. The X12 structure is used when the system transforms an EDI (electronic data interchange) file. If an EDI input file contains more than one transaction, each transaction must have the same transaction set and version, for example 214/4010. If not, the transformer cannot parse the file."]
module SampleDocumentKeys =
  struct
    type nonrec t =
      {
      input: S3Key.t option
        [@ocaml.doc "An array of keys for your input sample documents."];
      output: S3Key.t option
        [@ocaml.doc "An array of keys for your output sample documents."]}
    let make ?input = fun ?output -> fun () -> { input; output }
    let to_value x =
      structure_to_value
        [("input", (Option.map x.input ~f:S3Key.to_value));
        ("output", (Option.map x.output ~f:S3Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let output = (Option.map ~f:S3Key.of_xml) (Xml.child xml_arg0 "output") in
      let input = (Option.map ~f:S3Key.of_xml) (Xml.child xml_arg0 "input") in
      make ?output ?input ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let output = field_map json__ "output" S3Key.of_json in
      let input = field_map json__ "input" S3Key.of_json in
      make ?output ?input ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An array of the Amazon S3 keys used to identify the location for your sample documents."]
module X12InboundEdiOptions =
  struct
    type nonrec t =
      {
      acknowledgmentOptions: X12AcknowledgmentOptions.t option
        [@ocaml.doc
          "Specifies acknowledgment options for inbound X12 EDI files. These options control how functional and technical acknowledgments are handled."]}
    let make ?acknowledgmentOptions = fun () -> { acknowledgmentOptions }
    let to_value x =
      structure_to_value
        [("acknowledgmentOptions",
           (Option.map x.acknowledgmentOptions
              ~f:X12AcknowledgmentOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let acknowledgmentOptions =
        (Option.map ~f:X12AcknowledgmentOptions.of_xml)
          (Xml.child xml_arg0 "acknowledgmentOptions") in
      make ?acknowledgmentOptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let acknowledgmentOptions =
        field_map json__ "acknowledgmentOptions"
          X12AcknowledgmentOptions.of_json in
      make ?acknowledgmentOptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains options specific to processing inbound X12 EDI files."]
module X12Envelope =
  struct
    type nonrec t =
      {
      common: X12OutboundEdiHeaders.t option
        [@ocaml.doc "A container for the X12 outbound EDI headers."];
      wrapOptions: WrapOptions.t option }
    let make ?common = fun ?wrapOptions -> fun () -> { common; wrapOptions }
    let to_value x =
      structure_to_value
        [("common", (Option.map x.common ~f:X12OutboundEdiHeaders.to_value));
        ("wrapOptions", (Option.map x.wrapOptions ~f:WrapOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wrapOptions =
        (Option.map ~f:WrapOptions.of_xml) (Xml.child xml_arg0 "wrapOptions") in
      let common =
        (Option.map ~f:X12OutboundEdiHeaders.of_xml)
          (Xml.child xml_arg0 "common") in
      make ?wrapOptions ?common ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wrapOptions = field_map json__ "wrapOptions" WrapOptions.of_json in
      let common = field_map json__ "common" X12OutboundEdiHeaders.of_json in
      make ?wrapOptions ?common ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A wrapper structure for an X12 definition object. the X12 envelope ensures the integrity of the data and the efficiency of the information exchange. The X12 message structure has hierarchical levels. From highest to the lowest, they are: Interchange Envelope Functional Group Transaction Set"]
module BucketName =
  struct
    type nonrec t = string
    let context_ = "BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BucketName" j
    let to_json = simple_to_json to_value
  end
module AdvancedOptions =
  struct
    type nonrec t =
      {
      x12: X12AdvancedOptions.t option
        [@ocaml.doc
          "A structure that contains X12-specific advanced options, such as split options for processing X12 EDI files."]}
    let make ?x12 = fun () -> { x12 }
    let to_value x =
      structure_to_value
        [("x12", (Option.map x.x12 ~f:X12AdvancedOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let x12 =
        (Option.map ~f:X12AdvancedOptions.of_xml) (Xml.child xml_arg0 "x12") in
      make ?x12 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let x12 = field_map json__ "x12" X12AdvancedOptions.of_json in
      make ?x12 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains advanced options for EDI processing. Currently, only X12 advanced options are supported."]
module FormatOptions =
  struct
    type nonrec t = {
      x12: X12Details.t option }
    let make ?x12 = fun () -> { x12 }
    let to_value x =
      structure_to_value [("x12", (Option.map x.x12 ~f:X12Details.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let x12 = (Option.map ~f:X12Details.of_xml) (Xml.child xml_arg0 "x12") in
      make ?x12 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let x12 = field_map json__ "x12" X12Details.of_json in make ?x12 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains the X12 transaction set and version."]
module FromFormat =
  struct
    type nonrec t =
      | X12 
      | Non_static_id of string 
    let make i = i
    let to_string = function | X12 -> "X12" | Non_static_id s -> s
    let of_string = function | "X12" -> X12 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration FromFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FromFormat" j)
    let to_json = simple_to_json to_value
  end
module MappingTemplate =
  struct
    type nonrec t = string
    let context_ = "MappingTemplate"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:350000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MappingTemplate" j
    let to_json = simple_to_json to_value
  end
module MappingTemplateLanguage =
  struct
    type nonrec t =
      | XSLT 
      | JSONATA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | XSLT -> "XSLT" | JSONATA -> "JSONATA" | Non_static_id s -> s
    let of_string =
      function | "XSLT" -> XSLT | "JSONATA" -> JSONATA | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration MappingTemplateLanguage" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"MappingTemplateLanguage" j)
    let to_json = simple_to_json to_value
  end
module ToFormat =
  struct
    type nonrec t =
      | X12 
      | Non_static_id of string 
    let make i = i
    let to_string = function | X12 -> "X12" | Non_static_id s -> s
    let of_string = function | "X12" -> X12 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ToFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ToFormat" j)
    let to_json = simple_to_json to_value
  end
module KeyList =
  struct
    type nonrec t = SampleDocumentKeys.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SampleDocumentKeys.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:SampleDocumentKeys.of_xml)
    let of_json j =
      list_of_json ~kind:"KeyList" ~of_json:SampleDocumentKeys.of_json j
    let to_json v = composed_to_json to_value v
  end
module InboundEdiOptions =
  struct
    type nonrec t =
      {
      x12: X12InboundEdiOptions.t option
        [@ocaml.doc
          "A structure that contains X12-specific options for processing inbound X12 EDI files."]}
    let make ?x12 = fun () -> { x12 }
    let to_value x =
      structure_to_value
        [("x12", (Option.map x.x12 ~f:X12InboundEdiOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let x12 =
        (Option.map ~f:X12InboundEdiOptions.of_xml)
          (Xml.child xml_arg0 "x12") in
      make ?x12 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let x12 = field_map json__ "x12" X12InboundEdiOptions.of_json in
      make ?x12 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains options for processing inbound EDI files. These options allow for customizing how incoming EDI documents are processed."]
module OutboundEdiOptions =
  struct
    type nonrec t =
      {
      x12: X12Envelope.t option
        [@ocaml.doc "A structure that contains an X12 envelope structure."]}
    let make ?x12 = fun () -> { x12 }
    let to_value x =
      structure_to_value
        [("x12", (Option.map x.x12 ~f:X12Envelope.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let x12 = (Option.map ~f:X12Envelope.of_xml) (Xml.child xml_arg0 "x12") in
      make ?x12 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let x12 = field_map json__ "x12" X12Envelope.of_json in make ?x12 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A container for outbound EDI options."]
module CapabilityId =
  struct
    type nonrec t = string
    let context_ = "CapabilityId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CapabilityId" j
    let to_json = simple_to_json to_value
  end
module CapabilityDirection =
  struct
    type nonrec t =
      | INBOUND 
      | OUTBOUND 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INBOUND -> "INBOUND"
      | OUTBOUND -> "OUTBOUND"
      | Non_static_id s -> s
    let of_string =
      function
      | "INBOUND" -> INBOUND
      | "OUTBOUND" -> OUTBOUND
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration CapabilityDirection" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CapabilityDirection" j)
    let to_json = simple_to_json to_value
  end
module EdiType =
  struct
    type nonrec t =
      {
      x12Details: X12Details.t option
        [@ocaml.doc
          "Returns the details for the EDI standard that is being used for the transformer. Currently, only X12 is supported. X12 is a set of standards and corresponding messages that define specific business documents."]}
    let make ?x12Details = fun () -> { x12Details }
    let to_value x =
      structure_to_value
        [("x12Details", (Option.map x.x12Details ~f:X12Details.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let x12Details =
        (Option.map ~f:X12Details.of_xml) (Xml.child xml_arg0 "x12Details") in
      make ?x12Details ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let x12Details = field_map json__ "x12Details" X12Details.of_json in
      make ?x12Details ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the details for the EDI standard that is being used for the transformer. Currently, only X12 is supported. X12 is a set of standards and corresponding messages that define specific business documents."]
module S3Location =
  struct
    type nonrec t =
      {
      bucketName: BucketName.t option
        [@ocaml.doc "Specifies the name of the Amazon S3 bucket."];
      key: S3Key.t option
        [@ocaml.doc "Specifies the Amazon S3 key for the file location."]}
    let make ?bucketName = fun ?key -> fun () -> { bucketName; key }
    let to_value x =
      structure_to_value
        [("bucketName", (Option.map x.bucketName ~f:BucketName.to_value));
        ("key", (Option.map x.key ~f:S3Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:S3Key.of_xml) (Xml.child xml_arg0 "key") in
      let bucketName =
        (Option.map ~f:BucketName.of_xml) (Xml.child xml_arg0 "bucketName") in
      make ?key ?bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "key" S3Key.of_json in
      let bucketName = field_map json__ "bucketName" BucketName.of_json in
      make ?key ?bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the details for the Amazon S3 file location that is being used with Amazon Web Services B2B Data Interchange. File locations in Amazon S3 are identified using a combination of the bucket and key."]
module TransformerId =
  struct
    type nonrec t = string
    let context_ = "TransformerId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransformerId" j
    let to_json = simple_to_json to_value
  end
module InputFileSourceFileContentString =
  struct
    type nonrec t = string
    let context_ = "InputFileSourceFileContentString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5000000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InputFileSourceFileContentString" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module CreatedDate =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module FileFormat =
  struct
    type nonrec t =
      | XML 
      | JSON 
      | NOT_USED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | XML -> "XML"
      | JSON -> "JSON"
      | NOT_USED -> "NOT_USED"
      | Non_static_id s -> s
    let of_string =
      function
      | "XML" -> XML
      | "JSON" -> JSON
      | "NOT_USED" -> NOT_USED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration FileFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FileFormat" j)
    let to_json = simple_to_json to_value
  end
module FileLocation =
  struct
    type nonrec t = string
    let context_ = "FileLocation"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FileLocation" j
    let to_json = simple_to_json to_value
  end
module InputConversion =
  struct
    type nonrec t =
      {
      fromFormat: FromFormat.t
        [@ocaml.doc
          "The format for the transformer input: currently on X12 is supported."];
      formatOptions: FormatOptions.t option
        [@ocaml.doc
          "A structure that contains the formatting options for an inbound transformer."];
      advancedOptions: AdvancedOptions.t option
        [@ocaml.doc
          "Specifies advanced options for the input conversion process. These options provide additional control over how EDI files are processed during transformation."]}
    let context_ = "InputConversion"
    let make ?formatOptions =
      fun ?advancedOptions ->
        fun ~fromFormat ->
          fun () -> { formatOptions; advancedOptions; fromFormat }
    let to_value x =
      structure_to_value
        [("fromFormat", (Some (FromFormat.to_value x.fromFormat)));
        ("formatOptions",
          (Option.map x.formatOptions ~f:FormatOptions.to_value));
        ("advancedOptions",
          (Option.map x.advancedOptions ~f:AdvancedOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let advancedOptions =
        (Option.map ~f:AdvancedOptions.of_xml)
          (Xml.child xml_arg0 "advancedOptions") in
      let formatOptions =
        (Option.map ~f:FormatOptions.of_xml)
          (Xml.child xml_arg0 "formatOptions") in
      let fromFormat =
        FromFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fromFormat") in
      make ?advancedOptions ?formatOptions ~fromFormat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let advancedOptions =
        field_map json__ "advancedOptions" AdvancedOptions.of_json in
      let formatOptions =
        field_map json__ "formatOptions" FormatOptions.of_json in
      let fromFormat = field_map_exn json__ "fromFormat" FromFormat.of_json in
      make ?advancedOptions ?formatOptions ~fromFormat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the input formatting options for an inbound transformer (takes an X12-formatted EDI document as input and converts it to JSON or XML."]
module Mapping =
  struct
    type nonrec t =
      {
      templateLanguage: MappingTemplateLanguage.t
        [@ocaml.doc
          "The transformation language for the template, either XSLT or JSONATA."];
      template: MappingTemplate.t option
        [@ocaml.doc
          "A string that represents the mapping template, in the transformation language specified in templateLanguage."]}
    let context_ = "Mapping"
    let make ?template =
      fun ~templateLanguage -> fun () -> { template; templateLanguage }
    let to_value x =
      structure_to_value
        [("templateLanguage",
           (Some (MappingTemplateLanguage.to_value x.templateLanguage)));
        ("template", (Option.map x.template ~f:MappingTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let template =
        (Option.map ~f:MappingTemplate.of_xml)
          (Xml.child xml_arg0 "template") in
      let templateLanguage =
        MappingTemplateLanguage.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateLanguage") in
      make ?template ~templateLanguage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let template = field_map json__ "template" MappingTemplate.of_json in
      let templateLanguage =
        field_map_exn json__ "templateLanguage"
          MappingTemplateLanguage.of_json in
      make ?template ~templateLanguage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the mapping template for the transformer. This template is used to map the parsed EDI file using JSONata or XSLT."]
module ModifiedDate =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module OutputConversion =
  struct
    type nonrec t =
      {
      toFormat: ToFormat.t
        [@ocaml.doc
          "The format for the output from an outbound transformer: only X12 is currently supported."];
      formatOptions: FormatOptions.t option
        [@ocaml.doc
          "A structure that contains the X12 transaction set and version for the transformer output."];
      advancedOptions: AdvancedOptions.t option }
    let context_ = "OutputConversion"
    let make ?formatOptions =
      fun ?advancedOptions ->
        fun ~toFormat ->
          fun () -> { formatOptions; advancedOptions; toFormat }
    let to_value x =
      structure_to_value
        [("toFormat", (Some (ToFormat.to_value x.toFormat)));
        ("formatOptions",
          (Option.map x.formatOptions ~f:FormatOptions.to_value));
        ("advancedOptions",
          (Option.map x.advancedOptions ~f:AdvancedOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let advancedOptions =
        (Option.map ~f:AdvancedOptions.of_xml)
          (Xml.child xml_arg0 "advancedOptions") in
      let formatOptions =
        (Option.map ~f:FormatOptions.of_xml)
          (Xml.child xml_arg0 "formatOptions") in
      let toFormat =
        ToFormat.of_xml (Xml.child_exn ~context:context_ xml_arg0 "toFormat") in
      make ?advancedOptions ?formatOptions ~toFormat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let advancedOptions =
        field_map json__ "advancedOptions" AdvancedOptions.of_json in
      let formatOptions =
        field_map json__ "formatOptions" FormatOptions.of_json in
      let toFormat = field_map_exn json__ "toFormat" ToFormat.of_json in
      make ?advancedOptions ?formatOptions ~toFormat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the formatting options for an outbound transformer (takes JSON or XML as input and converts it to an EDI document (currently only X12 format is supported)."]
module SampleDocuments =
  struct
    type nonrec t =
      {
      bucketName: BucketName.t
        [@ocaml.doc
          "Contains the Amazon S3 bucket that is used to hold your sample documents."];
      keys: KeyList.t
        [@ocaml.doc
          "Contains an array of the Amazon S3 keys used to identify the location for your sample documents."]}
    let context_ = "SampleDocuments"
    let make ~bucketName = fun ~keys -> fun () -> { bucketName; keys }
    let to_value x =
      structure_to_value
        [("bucketName", (Some (BucketName.to_value x.bucketName)));
        ("keys", (Some (KeyList.to_value x.keys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let keys =
        KeyList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "keys") in
      let bucketName =
        BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucketName") in
      make ~keys ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let keys = field_map_exn json__ "keys" KeyList.of_json in
      let bucketName = field_map_exn json__ "bucketName" BucketName.of_json in
      make ~keys ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a structure that contains the Amazon S3 bucket and an array of the corresponding keys used to identify the location for your sample documents."]
module TransformerName =
  struct
    type nonrec t = string
    let context_ = "TransformerName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:254) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]{1,512}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransformerName" j
    let to_json = simple_to_json to_value
  end
module TransformerStatus =
  struct
    type nonrec t =
      | Active 
      | Inactive 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "active"
      | Inactive -> "inactive"
      | Non_static_id s -> s
    let of_string =
      function
      | "active" -> Active
      | "inactive" -> Inactive
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TransformerStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TransformerStatus" j)
    let to_json = simple_to_json to_value
  end
module BusinessName =
  struct
    type nonrec t = string
    let context_ = "BusinessName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:254) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BusinessName" j
    let to_json = simple_to_json to_value
  end
module LogGroupName =
  struct
    type nonrec t = string
    let context_ = "LogGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LogGroupName" j
    let to_json = simple_to_json to_value
  end
module Logging =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration Logging" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Logging" j)
    let to_json = simple_to_json to_value
  end
module ProfileId =
  struct
    type nonrec t = string
    let context_ = "ProfileId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ProfileId" j
    let to_json = simple_to_json to_value
  end
module ProfileName =
  struct
    type nonrec t = string
    let context_ = "ProfileName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:254) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ProfileName" j
    let to_json = simple_to_json to_value
  end
module CapabilityOptions =
  struct
    type nonrec t =
      {
      outboundEdi: OutboundEdiOptions.t option
        [@ocaml.doc "A structure that contains the outbound EDI options."];
      inboundEdi: InboundEdiOptions.t option
        [@ocaml.doc
          "A structure that contains the inbound EDI options for the capability."]}
    let make ?outboundEdi =
      fun ?inboundEdi -> fun () -> { outboundEdi; inboundEdi }
    let to_value x =
      structure_to_value
        [("outboundEdi",
           (Option.map x.outboundEdi ~f:OutboundEdiOptions.to_value));
        ("inboundEdi",
          (Option.map x.inboundEdi ~f:InboundEdiOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inboundEdi =
        (Option.map ~f:InboundEdiOptions.of_xml)
          (Xml.child xml_arg0 "inboundEdi") in
      let outboundEdi =
        (Option.map ~f:OutboundEdiOptions.of_xml)
          (Xml.child xml_arg0 "outboundEdi") in
      make ?inboundEdi ?outboundEdi ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inboundEdi =
        field_map json__ "inboundEdi" InboundEdiOptions.of_json in
      let outboundEdi =
        field_map json__ "outboundEdi" OutboundEdiOptions.of_json in
      make ?inboundEdi ?outboundEdi ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the details for an Outbound EDI capability."]
module PartnerName =
  struct
    type nonrec t = string
    let context_ = "PartnerName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:254) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PartnerName" j
    let to_json = simple_to_json to_value
  end
module PartnershipCapabilities =
  struct
    type nonrec t = CapabilityId.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CapabilityId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CapabilityId.of_xml)
    let of_json j =
      list_of_json ~kind:"PartnershipCapabilities"
        ~of_json:CapabilityId.of_json j
    let to_json v = composed_to_json to_value v
  end
module PartnershipId =
  struct
    type nonrec t = string
    let context_ = "PartnershipId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PartnershipId" j
    let to_json = simple_to_json to_value
  end
module TradingPartnerId =
  struct
    type nonrec t = string
    let context_ = "TradingPartnerId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TradingPartnerId" j
    let to_json = simple_to_json to_value
  end
module CapabilityName =
  struct
    type nonrec t = string
    let context_ = "CapabilityName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:254) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CapabilityName" j
    let to_json = simple_to_json to_value
  end
module CapabilityType =
  struct
    type nonrec t =
      | Edi 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Edi -> "edi" | Non_static_id s -> s
    let of_string = function | "edi" -> Edi | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration CapabilityType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CapabilityType" j)
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:10));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module EdiConfiguration =
  struct
    type nonrec t =
      {
      capabilityDirection: CapabilityDirection.t option
        [@ocaml.doc
          "Specifies whether this is capability is for inbound or outbound transformations."];
      type_: EdiType.t
        [@ocaml.doc
          "Returns the type of the capability. Currently, only edi is supported."];
      inputLocation: S3Location.t
        [@ocaml.doc
          "Contains the Amazon S3 bucket and prefix for the location of the input file, which is contained in an S3Location object."];
      outputLocation: S3Location.t
        [@ocaml.doc
          "Contains the Amazon S3 bucket and prefix for the location of the output file, which is contained in an S3Location object."];
      transformerId: TransformerId.t
        [@ocaml.doc
          "Returns the system-assigned unique identifier for the transformer."]}
    let context_ = "EdiConfiguration"
    let make ?capabilityDirection =
      fun ~type_ ->
        fun ~inputLocation ->
          fun ~outputLocation ->
            fun ~transformerId ->
              fun () ->
                {
                  capabilityDirection;
                  type_;
                  inputLocation;
                  outputLocation;
                  transformerId
                }
    let to_value x =
      structure_to_value
        [("capabilityDirection",
           (Option.map x.capabilityDirection ~f:CapabilityDirection.to_value));
        ("type", (Some (EdiType.to_value x.type_)));
        ("inputLocation", (Some (S3Location.to_value x.inputLocation)));
        ("outputLocation", (Some (S3Location.to_value x.outputLocation)));
        ("transformerId", (Some (TransformerId.to_value x.transformerId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transformerId =
        TransformerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transformerId") in
      let outputLocation =
        S3Location.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputLocation") in
      let inputLocation =
        S3Location.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputLocation") in
      let type_ =
        EdiType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let capabilityDirection =
        (Option.map ~f:CapabilityDirection.of_xml)
          (Xml.child xml_arg0 "capabilityDirection") in
      make ~transformerId ~outputLocation ~inputLocation ~type_
        ?capabilityDirection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transformerId =
        field_map_exn json__ "transformerId" TransformerId.of_json in
      let outputLocation =
        field_map_exn json__ "outputLocation" S3Location.of_json in
      let inputLocation =
        field_map_exn json__ "inputLocation" S3Location.of_json in
      let type_ = field_map_exn json__ "type" EdiType.of_json in
      let capabilityDirection =
        field_map json__ "capabilityDirection" CapabilityDirection.of_json in
      make ~transformerId ~outputLocation ~inputLocation ~type_
        ?capabilityDirection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the details for the EDI (electronic data interchange) transformation."]
module ConversionSourceFormat =
  struct
    type nonrec t =
      | JSON 
      | XML 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | JSON -> "JSON" | XML -> "XML" | Non_static_id s -> s
    let of_string =
      function | "JSON" -> JSON | "XML" -> XML | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ConversionSourceFormat" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConversionSourceFormat" j)
    let to_json = simple_to_json to_value
  end
module InputFileSource =
  struct
    type nonrec t =
      {
      fileContent: InputFileSourceFileContentString.t option
        [@ocaml.doc
          "Specify the input contents, as a string, for the source of an outbound transformation."]}
    let make ?fileContent = fun () -> { fileContent }
    let to_value x =
      structure_to_value
        [("fileContent",
           (Option.map x.fileContent
              ~f:InputFileSourceFileContentString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileContent =
        (Option.map ~f:InputFileSourceFileContentString.of_xml)
          (Xml.child xml_arg0 "fileContent") in
      make ?fileContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileContent =
        field_map json__ "fileContent"
          InputFileSourceFileContentString.of_json in
      make ?fileContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input file to use for an outbound transformation."]
module ConversionTargetFormat =
  struct
    type nonrec t =
      | X12 
      | Non_static_id of string 
    let make i = i
    let to_string = function | X12 -> "X12" | Non_static_id s -> s
    let of_string = function | "X12" -> X12 | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ConversionTargetFormat" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConversionTargetFormat" j)
    let to_json = simple_to_json to_value
  end
module ConversionTargetFormatDetails =
  struct
    type nonrec t = {
      x12: X12Details.t option }
    let make ?x12 = fun () -> { x12 }
    let to_value x =
      structure_to_value [("x12", (Option.map x.x12 ~f:X12Details.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let x12 = (Option.map ~f:X12Details.of_xml) (Xml.child xml_arg0 "x12") in
      make ?x12 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let x12 = field_map json__ "x12" X12Details.of_json in make ?x12 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains a structure describing the X12 details for the conversion target."]
module OutputSampleFileSource =
  struct
    type nonrec t = {
      fileLocation: S3Location.t option }
    let make ?fileLocation = fun () -> { fileLocation }
    let to_value x =
      structure_to_value
        [("fileLocation", (Option.map x.fileLocation ~f:S3Location.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileLocation =
        (Option.map ~f:S3Location.of_xml) (Xml.child xml_arg0 "fileLocation") in
      make ?fileLocation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileLocation = field_map json__ "fileLocation" S3Location.of_json in
      make ?fileLocation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Container for the location of a sample file used for outbound transformations."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "Specifies the name assigned to the tag that you create."];
      value: TagValue.t
        [@ocaml.doc
          "Contains one or more values that you assigned to the key name that you create."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a key-value pair for a specific resource. Tags are metadata that you can use to search for and group a resource for various purposes. You can apply tags to capabilities, partnerships, profiles and transformers. A tag key can take more than one value. For example, to group capabilities for accounting purposes, you might create a tag called Group and assign the values Research and Accounting to that group."]
module TransformerSummary =
  struct
    type nonrec t =
      {
      transformerId: TransformerId.t option
        [@ocaml.doc
          "Returns the system-assigned unique identifier for the transformer."];
      name: TransformerName.t option
        [@ocaml.doc "Returns the descriptive name for the transformer."];
      status: TransformerStatus.t option
        [@ocaml.doc
          "Returns the state of the newly created transformer. The transformer can be either active or inactive. For the transformer to be used in a capability, its status must active."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp indicating when the transformer was created. For example, 2023-07-20T19:58:44.624Z."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp representing the date and time for the most recent change for the transformer object."];
      fileFormat: FileFormat.t option
        [@ocaml.doc
          "Returns that the currently supported file formats for EDI transformations are JSON and XML."];
      mappingTemplate: MappingTemplate.t option
        [@ocaml.doc
          "Returns the mapping template for the transformer. This template is used to map the parsed EDI file using JSONata or XSLT."];
      ediType: EdiType.t option
        [@ocaml.doc
          "Returns the details for the EDI standard that is being used for the transformer. Currently, only X12 is supported. X12 is a set of standards and corresponding messages that define specific business documents."];
      sampleDocument: FileLocation.t option
        [@ocaml.doc
          "Returns a sample EDI document that is used by a transformer as a guide for processing the EDI data."];
      inputConversion: InputConversion.t option
        [@ocaml.doc
          "Returns a structure that contains the format options for the transformation."];
      mapping: Mapping.t option
        [@ocaml.doc
          "Returns the structure that contains the mapping template and its language (either XSLT or JSONATA)."];
      outputConversion: OutputConversion.t option
        [@ocaml.doc
          "Returns the OutputConversion object, which contains the format options for the outbound transformation."];
      sampleDocuments: SampleDocuments.t option
        [@ocaml.doc
          "Returns a structure that contains the Amazon S3 bucket and an array of the corresponding keys used to identify the location for your sample documents."]}
    let make ?transformerId =
      fun ?name ->
        fun ?status ->
          fun ?createdAt ->
            fun ?modifiedAt ->
              fun ?fileFormat ->
                fun ?mappingTemplate ->
                  fun ?ediType ->
                    fun ?sampleDocument ->
                      fun ?inputConversion ->
                        fun ?mapping ->
                          fun ?outputConversion ->
                            fun ?sampleDocuments ->
                              fun () ->
                                {
                                  transformerId;
                                  name;
                                  status;
                                  createdAt;
                                  modifiedAt;
                                  fileFormat;
                                  mappingTemplate;
                                  ediType;
                                  sampleDocument;
                                  inputConversion;
                                  mapping;
                                  outputConversion;
                                  sampleDocuments
                                }
    let to_value x =
      structure_to_value
        [("transformerId",
           (Option.map x.transformerId ~f:TransformerId.to_value));
        ("name", (Option.map x.name ~f:TransformerName.to_value));
        ("status", (Option.map x.status ~f:TransformerStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value));
        ("fileFormat", (Option.map x.fileFormat ~f:FileFormat.to_value));
        ("mappingTemplate",
          (Option.map x.mappingTemplate ~f:MappingTemplate.to_value));
        ("ediType", (Option.map x.ediType ~f:EdiType.to_value));
        ("sampleDocument",
          (Option.map x.sampleDocument ~f:FileLocation.to_value));
        ("inputConversion",
          (Option.map x.inputConversion ~f:InputConversion.to_value));
        ("mapping", (Option.map x.mapping ~f:Mapping.to_value));
        ("outputConversion",
          (Option.map x.outputConversion ~f:OutputConversion.to_value));
        ("sampleDocuments",
          (Option.map x.sampleDocuments ~f:SampleDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sampleDocuments =
        (Option.map ~f:SampleDocuments.of_xml)
          (Xml.child xml_arg0 "sampleDocuments") in
      let outputConversion =
        (Option.map ~f:OutputConversion.of_xml)
          (Xml.child xml_arg0 "outputConversion") in
      let mapping =
        (Option.map ~f:Mapping.of_xml) (Xml.child xml_arg0 "mapping") in
      let inputConversion =
        (Option.map ~f:InputConversion.of_xml)
          (Xml.child xml_arg0 "inputConversion") in
      let sampleDocument =
        (Option.map ~f:FileLocation.of_xml)
          (Xml.child xml_arg0 "sampleDocument") in
      let ediType =
        (Option.map ~f:EdiType.of_xml) (Xml.child xml_arg0 "ediType") in
      let mappingTemplate =
        (Option.map ~f:MappingTemplate.of_xml)
          (Xml.child xml_arg0 "mappingTemplate") in
      let fileFormat =
        (Option.map ~f:FileFormat.of_xml) (Xml.child xml_arg0 "fileFormat") in
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:TransformerStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:TransformerName.of_xml) (Xml.child xml_arg0 "name") in
      let transformerId =
        (Option.map ~f:TransformerId.of_xml)
          (Xml.child xml_arg0 "transformerId") in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?modifiedAt
        ?createdAt ?status ?name ?transformerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sampleDocuments =
        field_map json__ "sampleDocuments" SampleDocuments.of_json in
      let outputConversion =
        field_map json__ "outputConversion" OutputConversion.of_json in
      let mapping = field_map json__ "mapping" Mapping.of_json in
      let inputConversion =
        field_map json__ "inputConversion" InputConversion.of_json in
      let sampleDocument =
        field_map json__ "sampleDocument" FileLocation.of_json in
      let ediType = field_map json__ "ediType" EdiType.of_json in
      let mappingTemplate =
        field_map json__ "mappingTemplate" MappingTemplate.of_json in
      let fileFormat = field_map json__ "fileFormat" FileFormat.of_json in
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let status = field_map json__ "status" TransformerStatus.of_json in
      let name = field_map json__ "name" TransformerName.of_json in
      let transformerId =
        field_map json__ "transformerId" TransformerId.of_json in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?modifiedAt
        ?createdAt ?status ?name ?transformerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details for a transformer object. A transformer can take an EDI file as input and transform it into a JSON-or XML-formatted document. Alternatively, a transformer can take a JSON-or XML-formatted document as input and transform it into an EDI file."]
module ProfileSummary =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for the profile."];
      name: ProfileName.t option
        [@ocaml.doc "Returns the display name for profile."];
      businessName: BusinessName.t option
        [@ocaml.doc
          "Returns the name for the business associated with this profile."];
      logging: Logging.t option
        [@ocaml.doc
          "Specifies whether or not logging is enabled for this profile."];
      logGroupName: LogGroupName.t option
        [@ocaml.doc "Returns the name of the logging group."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns the timestamp for creation date and time of the profile."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns the timestamp that identifies the most recent date and time that the profile was modified."]}
    let make ?profileId =
      fun ?name ->
        fun ?businessName ->
          fun ?logging ->
            fun ?logGroupName ->
              fun ?createdAt ->
                fun ?modifiedAt ->
                  fun () ->
                    {
                      profileId;
                      name;
                      businessName;
                      logging;
                      logGroupName;
                      createdAt;
                      modifiedAt
                    }
    let to_value x =
      structure_to_value
        [("profileId", (Option.map x.profileId ~f:ProfileId.to_value));
        ("name", (Option.map x.name ~f:ProfileName.to_value));
        ("businessName",
          (Option.map x.businessName ~f:BusinessName.to_value));
        ("logging", (Option.map x.logging ~f:Logging.to_value));
        ("logGroupName",
          (Option.map x.logGroupName ~f:LogGroupName.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let logGroupName =
        (Option.map ~f:LogGroupName.of_xml)
          (Xml.child xml_arg0 "logGroupName") in
      let logging =
        (Option.map ~f:Logging.of_xml) (Xml.child xml_arg0 "logging") in
      let businessName =
        (Option.map ~f:BusinessName.of_xml)
          (Xml.child xml_arg0 "businessName") in
      let name =
        (Option.map ~f:ProfileName.of_xml) (Xml.child xml_arg0 "name") in
      let profileId =
        (Option.map ~f:ProfileId.of_xml) (Xml.child xml_arg0 "profileId") in
      make ?modifiedAt ?createdAt ?logGroupName ?logging ?businessName ?name
        ?profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let logGroupName = field_map json__ "logGroupName" LogGroupName.of_json in
      let logging = field_map json__ "logging" Logging.of_json in
      let businessName = field_map json__ "businessName" BusinessName.of_json in
      let name = field_map json__ "name" ProfileName.of_json in
      let profileId = field_map json__ "profileId" ProfileId.of_json in
      make ?modifiedAt ?createdAt ?logGroupName ?logging ?businessName ?name
        ?profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the details for a profile. A profile is the mechanism used to create the concept of a private network."]
module PartnershipSummary =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for the profile connected to this partnership."];
      partnershipId: PartnershipId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for a partnership."];
      name: PartnerName.t option
        [@ocaml.doc "Returns the name of the partnership."];
      capabilities: PartnershipCapabilities.t option
        [@ocaml.doc
          "Returns one or more capabilities associated with this partnership."];
      capabilityOptions: CapabilityOptions.t option ;
      tradingPartnerId: TradingPartnerId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for a trading partner."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the partnership."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp that identifies the most recent date and time that the partnership was modified."]}
    let make ?profileId =
      fun ?partnershipId ->
        fun ?name ->
          fun ?capabilities ->
            fun ?capabilityOptions ->
              fun ?tradingPartnerId ->
                fun ?createdAt ->
                  fun ?modifiedAt ->
                    fun () ->
                      {
                        profileId;
                        partnershipId;
                        name;
                        capabilities;
                        capabilityOptions;
                        tradingPartnerId;
                        createdAt;
                        modifiedAt
                      }
    let to_value x =
      structure_to_value
        [("profileId", (Option.map x.profileId ~f:ProfileId.to_value));
        ("partnershipId",
          (Option.map x.partnershipId ~f:PartnershipId.to_value));
        ("name", (Option.map x.name ~f:PartnerName.to_value));
        ("capabilities",
          (Option.map x.capabilities ~f:PartnershipCapabilities.to_value));
        ("capabilityOptions",
          (Option.map x.capabilityOptions ~f:CapabilityOptions.to_value));
        ("tradingPartnerId",
          (Option.map x.tradingPartnerId ~f:TradingPartnerId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let tradingPartnerId =
        (Option.map ~f:TradingPartnerId.of_xml)
          (Xml.child xml_arg0 "tradingPartnerId") in
      let capabilityOptions =
        (Option.map ~f:CapabilityOptions.of_xml)
          (Xml.child xml_arg0 "capabilityOptions") in
      let capabilities =
        (Option.map ~f:PartnershipCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      let name =
        (Option.map ~f:PartnerName.of_xml) (Xml.child xml_arg0 "name") in
      let partnershipId =
        (Option.map ~f:PartnershipId.of_xml)
          (Xml.child xml_arg0 "partnershipId") in
      let profileId =
        (Option.map ~f:ProfileId.of_xml) (Xml.child xml_arg0 "profileId") in
      make ?modifiedAt ?createdAt ?tradingPartnerId ?capabilityOptions
        ?capabilities ?name ?partnershipId ?profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let tradingPartnerId =
        field_map json__ "tradingPartnerId" TradingPartnerId.of_json in
      let capabilityOptions =
        field_map json__ "capabilityOptions" CapabilityOptions.of_json in
      let capabilities =
        field_map json__ "capabilities" PartnershipCapabilities.of_json in
      let name = field_map json__ "name" PartnerName.of_json in
      let partnershipId =
        field_map json__ "partnershipId" PartnershipId.of_json in
      let profileId = field_map json__ "profileId" ProfileId.of_json in
      make ?modifiedAt ?createdAt ?tradingPartnerId ?capabilityOptions
        ?capabilities ?name ?partnershipId ?profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains the details for a partnership. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module CapabilitySummary =
  struct
    type nonrec t =
      {
      capabilityId: CapabilityId.t option
        [@ocaml.doc
          "Returns a system-assigned unique identifier for the capability."];
      name: CapabilityName.t option
        [@ocaml.doc "The display name of the capability."];
      type_: CapabilityType.t option
        [@ocaml.doc
          "Returns the type of the capability. Currently, only edi is supported."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the capability."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp that identifies the most recent date and time that the capability was modified."]}
    let make ?capabilityId =
      fun ?name ->
        fun ?type_ ->
          fun ?createdAt ->
            fun ?modifiedAt ->
              fun () -> { capabilityId; name; type_; createdAt; modifiedAt }
    let to_value x =
      structure_to_value
        [("capabilityId",
           (Option.map x.capabilityId ~f:CapabilityId.to_value));
        ("name", (Option.map x.name ~f:CapabilityName.to_value));
        ("type", (Option.map x.type_ ~f:CapabilityType.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let type_ =
        (Option.map ~f:CapabilityType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:CapabilityName.of_xml) (Xml.child xml_arg0 "name") in
      let capabilityId =
        (Option.map ~f:CapabilityId.of_xml)
          (Xml.child xml_arg0 "capabilityId") in
      make ?modifiedAt ?createdAt ?type_ ?name ?capabilityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let type_ = field_map json__ "type" CapabilityType.of_json in
      let name = field_map json__ "name" CapabilityName.of_json in
      let capabilityId = field_map json__ "capabilityId" CapabilityId.of_json in
      make ?modifiedAt ?createdAt ?type_ ?name ?capabilityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the capability summary details. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A conflict exception is thrown when you attempt to delete a resource (such as a profile or a capability) that is being used by other resources."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      retryAfterSeconds: Integer.t option
        [@ocaml.doc "The server attempts to retry a failed command."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("retryAfterSeconds",
          (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "retryAfterSeconds") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when an error occurs in the Amazon Web Services B2B Data Interchange service."]
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Occurs when the requested resource does not exist, or cannot be found. In some cases, the resource exists in a region other than the region specified in the API call."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      resourceId: String_.t option
        [@ocaml.doc
          "The ID for the resource that exceeded the quota, which caused the exception."];
      resourceType: String_.t option
        [@ocaml.doc
          "The resource type (profile, partnership, transformer, or capability) that exceeded the quota, which caused the exception."];
      serviceCode: String_.t option
        [@ocaml.doc
          "The code responsible for exceeding the quota, which caused the exception."];
      quotaCode: String_.t option
        [@ocaml.doc
          "The quota that was exceeded, which caused the exception."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Occurs when the calling command attempts to exceed one of the service quotas, for example trying to create a capability when you already have the maximum number of capabilities allowed."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The server attempts to retry a command that was throttled."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("retryAfterSeconds",
          (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "retryAfterSeconds") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied due to throttling: the data speed and rendering may be limited depending on various parameters and conditions."]
module ValidationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Occurs when a B2BI object cannot be validated against a request from another object. This exception can be thrown during standard EDI validation or when custom validation rules fail, such as when element length constraints are violated, invalid codes are used in code list validations, or required elements are missing based on configured element requirement rules."]
module Email =
  struct
    type nonrec t = string
    let context_ = "Email"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:254) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[\\w\\.\\-]+@[\\w\\.\\-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Email" j
    let to_json = simple_to_json to_value
  end
module Phone =
  struct
    type nonrec t = string
    let context_ = "Phone"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:7) >>=
             (fun () ->
                (check_string_max i ~max:22) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"\\+?([0-9 \\t\\-()\\/]{7,})(?:\\s*(?:#|x\\.?|ext\\.?|extension) \\t*(\\d+))?")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Phone" j
    let to_json = simple_to_json to_value
  end
module CapabilityConfiguration =
  struct
    type nonrec t =
      {
      edi: EdiConfiguration.t option
        [@ocaml.doc
          "An EDI (electronic data interchange) configuration object."]}
    let make ?edi = fun () -> { edi }
    let to_value x =
      structure_to_value
        [("edi", (Option.map x.edi ~f:EdiConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let edi =
        (Option.map ~f:EdiConfiguration.of_xml) (Xml.child xml_arg0 "edi") in
      make ?edi ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let edi = field_map json__ "edi" EdiConfiguration.of_json in
      make ?edi ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A capability object. Currently, only EDI (electronic data interchange) capabilities are supported. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module InstructionsDocuments =
  struct
    type nonrec t = S3Location.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:S3Location.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:S3Location.of_xml)
    let of_json j =
      list_of_json ~kind:"InstructionsDocuments" ~of_json:S3Location.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AmazonResourceName" j
    let to_json = simple_to_json to_value
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module ParsedSplitFileContentsList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"ParsedSplitFileContentsList"
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationMessages =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationMessages" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module TestMappingInputFileContent =
  struct
    type nonrec t = string
    let context_ = "TestMappingInputFileContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5000000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TestMappingInputFileContent" j
    let to_json = simple_to_json to_value
  end
module ConversionSource =
  struct
    type nonrec t =
      {
      fileFormat: ConversionSourceFormat.t
        [@ocaml.doc "The format for the input file: either JSON or XML."];
      inputFile: InputFileSource.t [@ocaml.doc "File to be converted"]}
    let context_ = "ConversionSource"
    let make ~fileFormat =
      fun ~inputFile -> fun () -> { fileFormat; inputFile }
    let to_value x =
      structure_to_value
        [("fileFormat",
           (Some (ConversionSourceFormat.to_value x.fileFormat)));
        ("inputFile", (Some (InputFileSource.to_value x.inputFile)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputFile =
        InputFileSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputFile") in
      let fileFormat =
        ConversionSourceFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileFormat") in
      make ~inputFile ~fileFormat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputFile =
        field_map_exn json__ "inputFile" InputFileSource.of_json in
      let fileFormat =
        field_map_exn json__ "fileFormat" ConversionSourceFormat.of_json in
      make ~inputFile ~fileFormat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the input for an outbound transformation."]
module ConversionTarget =
  struct
    type nonrec t =
      {
      fileFormat: ConversionTargetFormat.t
        [@ocaml.doc "Currently, only X12 format is supported."];
      formatDetails: ConversionTargetFormatDetails.t option
        [@ocaml.doc
          "A structure that contains the formatting details for the conversion target."];
      outputSampleFile: OutputSampleFileSource.t option
        [@ocaml.doc
          "Customer uses this to provide a sample on what should file look like after conversion X12 EDI use case around this would be discovering the file syntax"];
      advancedOptions: AdvancedOptions.t option }
    let context_ = "ConversionTarget"
    let make ?formatDetails =
      fun ?outputSampleFile ->
        fun ?advancedOptions ->
          fun ~fileFormat ->
            fun () ->
              { formatDetails; outputSampleFile; advancedOptions; fileFormat
              }
    let to_value x =
      structure_to_value
        [("fileFormat",
           (Some (ConversionTargetFormat.to_value x.fileFormat)));
        ("formatDetails",
          (Option.map x.formatDetails
             ~f:ConversionTargetFormatDetails.to_value));
        ("outputSampleFile",
          (Option.map x.outputSampleFile ~f:OutputSampleFileSource.to_value));
        ("advancedOptions",
          (Option.map x.advancedOptions ~f:AdvancedOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let advancedOptions =
        (Option.map ~f:AdvancedOptions.of_xml)
          (Xml.child xml_arg0 "advancedOptions") in
      let outputSampleFile =
        (Option.map ~f:OutputSampleFileSource.of_xml)
          (Xml.child xml_arg0 "outputSampleFile") in
      let formatDetails =
        (Option.map ~f:ConversionTargetFormatDetails.of_xml)
          (Xml.child xml_arg0 "formatDetails") in
      let fileFormat =
        ConversionTargetFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileFormat") in
      make ?advancedOptions ?outputSampleFile ?formatDetails ~fileFormat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let advancedOptions =
        field_map json__ "advancedOptions" AdvancedOptions.of_json in
      let outputSampleFile =
        field_map json__ "outputSampleFile" OutputSampleFileSource.of_json in
      let formatDetails =
        field_map json__ "formatDetails"
          ConversionTargetFormatDetails.of_json in
      let fileFormat =
        field_map_exn json__ "fileFormat" ConversionTargetFormat.of_json in
      make ?advancedOptions ?outputSampleFile ?formatDetails ~fileFormat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provide a sample of what the output of the transformation should look like."]
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransformerJobId =
  struct
    type nonrec t = string
    let context_ = "TransformerJobId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:25) >>=
             (fun () ->
                (check_string_max i ~max:25) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TransformerJobId" j
    let to_json = simple_to_json to_value
  end
module PageToken =
  struct
    type nonrec t = string
    let context_ = "PageToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PageToken" j
    let to_json = simple_to_json to_value
  end
module TransformerList =
  struct
    type nonrec t = TransformerSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TransformerSummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TransformerSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"TransformerList"
        ~of_json:TransformerSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ProfileList =
  struct
    type nonrec t = ProfileSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ProfileSummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ProfileSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ProfileList" ~of_json:ProfileSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module PartnershipList =
  struct
    type nonrec t = PartnershipSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PartnershipSummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:PartnershipSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"PartnershipList"
        ~of_json:PartnershipSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module CapabilityList =
  struct
    type nonrec t = CapabilitySummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CapabilitySummary.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CapabilitySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"CapabilityList" ~of_json:CapabilitySummary.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module S3LocationList =
  struct
    type nonrec t = S3Location.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:S3Location.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:S3Location.of_xml)
    let of_json j =
      list_of_json ~kind:"S3LocationList" ~of_json:S3Location.of_json j
    let to_json v = composed_to_json to_value v
  end
module TransformerJobStatus =
  struct
    type nonrec t =
      | Running 
      | Succeeded 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Running -> "running"
      | Succeeded -> "succeeded"
      | Failed -> "failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "running" -> Running
      | "succeeded" -> Succeeded
      | "failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration TransformerJobStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TransformerJobStatus" j)
    let to_json = simple_to_json to_value
  end
module GenerateMappingResponseMappingAccuracyFloat =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:1.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module GenerateMappingInputFileContent =
  struct
    type nonrec t = string
    let context_ = "GenerateMappingInputFileContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5000000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GenerateMappingInputFileContent" j
    let to_json = simple_to_json to_value
  end
module GenerateMappingOutputFileContent =
  struct
    type nonrec t = string
    let context_ = "GenerateMappingOutputFileContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:5000000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GenerateMappingOutputFileContent" j
    let to_json = simple_to_json to_value
  end
module MappingType =
  struct
    type nonrec t =
      | JSONATA 
      | XSLT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | JSONATA -> "JSONATA" | XSLT -> "XSLT" | Non_static_id s -> s
    let of_string =
      function | "JSONATA" -> JSONATA | "XSLT" -> XSLT | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration MappingType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MappingType" j)
    let to_json = simple_to_json to_value
  end
module TemplateDetails =
  struct
    type nonrec t = {
      x12: X12Details.t option }
    let make ?x12 = fun () -> { x12 }
    let to_value x =
      structure_to_value [("x12", (Option.map x.x12 ~f:X12Details.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let x12 = (Option.map ~f:X12Details.of_xml) (Xml.child xml_arg0 "x12") in
      make ?x12 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let x12 = field_map json__ "x12" X12Details.of_json in make ?x12 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A data structure that contains the information to use when generating a mapping template."]
module UpdateTransformerResponse =
  struct
    type nonrec t =
      {
      transformerId: TransformerId.t option
        [@ocaml.doc
          "Returns the system-assigned unique identifier for the transformer."];
      transformerArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: TransformerName.t option
        [@ocaml.doc "Returns the name of the transformer."];
      status: TransformerStatus.t option
        [@ocaml.doc
          "Returns the state of the newly created transformer. The transformer can be either active or inactive. For the transformer to be used in a capability, its status must active."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the transformer."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp for last time the transformer was modified."];
      fileFormat: FileFormat.t option
        [@ocaml.doc
          "Returns that the currently supported file formats for EDI transformations are JSON and XML."];
      mappingTemplate: MappingTemplate.t option
        [@ocaml.doc
          "Returns the mapping template for the transformer. This template is used to map the parsed EDI file using JSONata or XSLT."];
      ediType: EdiType.t option
        [@ocaml.doc
          "Returns the details for the EDI standard that is being used for the transformer. Currently, only X12 is supported. X12 is a set of standards and corresponding messages that define specific business documents."];
      sampleDocument: FileLocation.t option
        [@ocaml.doc
          "Returns a sample EDI document that is used by a transformer as a guide for processing the EDI data."];
      inputConversion: InputConversion.t option
        [@ocaml.doc
          "Returns the InputConversion object, which contains the format options for the inbound transformation."];
      mapping: Mapping.t option
        [@ocaml.doc
          "Returns the structure that contains the mapping template and its language (either XSLT or JSONATA)."];
      outputConversion: OutputConversion.t option
        [@ocaml.doc
          "Returns the OutputConversion object, which contains the format options for the outbound transformation."];
      sampleDocuments: SampleDocuments.t option
        [@ocaml.doc
          "Returns a structure that contains the Amazon S3 bucket and an array of the corresponding keys used to identify the location for your sample documents."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transformerId =
      fun ?transformerArn ->
        fun ?name ->
          fun ?status ->
            fun ?createdAt ->
              fun ?modifiedAt ->
                fun ?fileFormat ->
                  fun ?mappingTemplate ->
                    fun ?ediType ->
                      fun ?sampleDocument ->
                        fun ?inputConversion ->
                          fun ?mapping ->
                            fun ?outputConversion ->
                              fun ?sampleDocuments ->
                                fun () ->
                                  {
                                    transformerId;
                                    transformerArn;
                                    name;
                                    status;
                                    createdAt;
                                    modifiedAt;
                                    fileFormat;
                                    mappingTemplate;
                                    ediType;
                                    sampleDocument;
                                    inputConversion;
                                    mapping;
                                    outputConversion;
                                    sampleDocuments
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("transformerId",
           (Option.map x.transformerId ~f:TransformerId.to_value));
        ("transformerArn",
          (Option.map x.transformerArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:TransformerName.to_value));
        ("status", (Option.map x.status ~f:TransformerStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value));
        ("fileFormat", (Option.map x.fileFormat ~f:FileFormat.to_value));
        ("mappingTemplate",
          (Option.map x.mappingTemplate ~f:MappingTemplate.to_value));
        ("ediType", (Option.map x.ediType ~f:EdiType.to_value));
        ("sampleDocument",
          (Option.map x.sampleDocument ~f:FileLocation.to_value));
        ("inputConversion",
          (Option.map x.inputConversion ~f:InputConversion.to_value));
        ("mapping", (Option.map x.mapping ~f:Mapping.to_value));
        ("outputConversion",
          (Option.map x.outputConversion ~f:OutputConversion.to_value));
        ("sampleDocuments",
          (Option.map x.sampleDocuments ~f:SampleDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sampleDocuments =
        (Option.map ~f:SampleDocuments.of_xml)
          (Xml.child xml_arg0 "sampleDocuments") in
      let outputConversion =
        (Option.map ~f:OutputConversion.of_xml)
          (Xml.child xml_arg0 "outputConversion") in
      let mapping =
        (Option.map ~f:Mapping.of_xml) (Xml.child xml_arg0 "mapping") in
      let inputConversion =
        (Option.map ~f:InputConversion.of_xml)
          (Xml.child xml_arg0 "inputConversion") in
      let sampleDocument =
        (Option.map ~f:FileLocation.of_xml)
          (Xml.child xml_arg0 "sampleDocument") in
      let ediType =
        (Option.map ~f:EdiType.of_xml) (Xml.child xml_arg0 "ediType") in
      let mappingTemplate =
        (Option.map ~f:MappingTemplate.of_xml)
          (Xml.child xml_arg0 "mappingTemplate") in
      let fileFormat =
        (Option.map ~f:FileFormat.of_xml) (Xml.child xml_arg0 "fileFormat") in
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:TransformerStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:TransformerName.of_xml) (Xml.child xml_arg0 "name") in
      let transformerArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "transformerArn") in
      let transformerId =
        (Option.map ~f:TransformerId.of_xml)
          (Xml.child xml_arg0 "transformerId") in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?modifiedAt
        ?createdAt ?status ?name ?transformerArn ?transformerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sampleDocuments =
        field_map json__ "sampleDocuments" SampleDocuments.of_json in
      let outputConversion =
        field_map json__ "outputConversion" OutputConversion.of_json in
      let mapping = field_map json__ "mapping" Mapping.of_json in
      let inputConversion =
        field_map json__ "inputConversion" InputConversion.of_json in
      let sampleDocument =
        field_map json__ "sampleDocument" FileLocation.of_json in
      let ediType = field_map json__ "ediType" EdiType.of_json in
      let mappingTemplate =
        field_map json__ "mappingTemplate" MappingTemplate.of_json in
      let fileFormat = field_map json__ "fileFormat" FileFormat.of_json in
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let status = field_map json__ "status" TransformerStatus.of_json in
      let name = field_map json__ "name" TransformerName.of_json in
      let transformerArn =
        field_map json__ "transformerArn" ResourceArn.of_json in
      let transformerId =
        field_map json__ "transformerId" TransformerId.of_json in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?modifiedAt
        ?createdAt ?status ?name ?transformerArn ?transformerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified parameters for a transformer. A transformer can take an EDI file as input and transform it into a JSON-or XML-formatted document. Alternatively, a transformer can take a JSON-or XML-formatted document as input and transform it into an EDI file."]
module UpdateTransformerRequest =
  struct
    type nonrec t =
      {
      transformerId: TransformerId.t
        [@ocaml.doc
          "Specifies the system-assigned unique identifier for the transformer."];
      name: TransformerName.t option
        [@ocaml.doc
          "Specify a new name for the transformer, if you want to update it."];
      status: TransformerStatus.t option
        [@ocaml.doc
          "Specifies the transformer's status. You can update the state of the transformer from inactive to active."];
      fileFormat: FileFormat.t option
        [@ocaml.doc
          "Specifies that the currently supported file formats for EDI transformations are JSON and XML."];
      mappingTemplate: MappingTemplate.t option
        [@ocaml.doc
          "Specifies the mapping template for the transformer. This template is used to map the parsed EDI file using JSONata or XSLT. This parameter is available for backwards compatibility. Use the Mapping data type instead."];
      ediType: EdiType.t option
        [@ocaml.doc
          "Specifies the details for the EDI standard that is being used for the transformer. Currently, only X12 is supported. X12 is a set of standards and corresponding messages that define specific business documents."];
      sampleDocument: FileLocation.t option
        [@ocaml.doc
          "Specifies a sample EDI document that is used by a transformer as a guide for processing the EDI data."];
      inputConversion: InputConversion.t option
        [@ocaml.doc
          "To update, specify the InputConversion object, which contains the format options for the inbound transformation."];
      mapping: Mapping.t option
        [@ocaml.doc
          "Specify the structure that contains the mapping template and its language (either XSLT or JSONATA)."];
      outputConversion: OutputConversion.t option
        [@ocaml.doc
          "To update, specify the OutputConversion object, which contains the format options for the outbound transformation."];
      sampleDocuments: SampleDocuments.t option
        [@ocaml.doc
          "Specify a structure that contains the Amazon S3 bucket and an array of the corresponding keys used to identify the location for your sample documents."]}
    let context_ = "UpdateTransformerRequest"
    let make ?name =
      fun ?status ->
        fun ?fileFormat ->
          fun ?mappingTemplate ->
            fun ?ediType ->
              fun ?sampleDocument ->
                fun ?inputConversion ->
                  fun ?mapping ->
                    fun ?outputConversion ->
                      fun ?sampleDocuments ->
                        fun ~transformerId ->
                          fun () ->
                            {
                              name;
                              status;
                              fileFormat;
                              mappingTemplate;
                              ediType;
                              sampleDocument;
                              inputConversion;
                              mapping;
                              outputConversion;
                              sampleDocuments;
                              transformerId
                            }
    let to_value x =
      structure_to_value
        [("transformerId", (Some (TransformerId.to_value x.transformerId)));
        ("name", (Option.map x.name ~f:TransformerName.to_value));
        ("status", (Option.map x.status ~f:TransformerStatus.to_value));
        ("fileFormat", (Option.map x.fileFormat ~f:FileFormat.to_value));
        ("mappingTemplate",
          (Option.map x.mappingTemplate ~f:MappingTemplate.to_value));
        ("ediType", (Option.map x.ediType ~f:EdiType.to_value));
        ("sampleDocument",
          (Option.map x.sampleDocument ~f:FileLocation.to_value));
        ("inputConversion",
          (Option.map x.inputConversion ~f:InputConversion.to_value));
        ("mapping", (Option.map x.mapping ~f:Mapping.to_value));
        ("outputConversion",
          (Option.map x.outputConversion ~f:OutputConversion.to_value));
        ("sampleDocuments",
          (Option.map x.sampleDocuments ~f:SampleDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sampleDocuments =
        (Option.map ~f:SampleDocuments.of_xml)
          (Xml.child xml_arg0 "sampleDocuments") in
      let outputConversion =
        (Option.map ~f:OutputConversion.of_xml)
          (Xml.child xml_arg0 "outputConversion") in
      let mapping =
        (Option.map ~f:Mapping.of_xml) (Xml.child xml_arg0 "mapping") in
      let inputConversion =
        (Option.map ~f:InputConversion.of_xml)
          (Xml.child xml_arg0 "inputConversion") in
      let sampleDocument =
        (Option.map ~f:FileLocation.of_xml)
          (Xml.child xml_arg0 "sampleDocument") in
      let ediType =
        (Option.map ~f:EdiType.of_xml) (Xml.child xml_arg0 "ediType") in
      let mappingTemplate =
        (Option.map ~f:MappingTemplate.of_xml)
          (Xml.child xml_arg0 "mappingTemplate") in
      let fileFormat =
        (Option.map ~f:FileFormat.of_xml) (Xml.child xml_arg0 "fileFormat") in
      let status =
        (Option.map ~f:TransformerStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:TransformerName.of_xml) (Xml.child xml_arg0 "name") in
      let transformerId =
        TransformerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transformerId") in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?status ?name
        ~transformerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sampleDocuments =
        field_map json__ "sampleDocuments" SampleDocuments.of_json in
      let outputConversion =
        field_map json__ "outputConversion" OutputConversion.of_json in
      let mapping = field_map json__ "mapping" Mapping.of_json in
      let inputConversion =
        field_map json__ "inputConversion" InputConversion.of_json in
      let sampleDocument =
        field_map json__ "sampleDocument" FileLocation.of_json in
      let ediType = field_map json__ "ediType" EdiType.of_json in
      let mappingTemplate =
        field_map json__ "mappingTemplate" MappingTemplate.of_json in
      let fileFormat = field_map json__ "fileFormat" FileFormat.of_json in
      let status = field_map json__ "status" TransformerStatus.of_json in
      let name = field_map json__ "name" TransformerName.of_json in
      let transformerId =
        field_map_exn json__ "transformerId" TransformerId.of_json in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?status ?name
        ~transformerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified parameters for a transformer. A transformer can take an EDI file as input and transform it into a JSON-or XML-formatted document. Alternatively, a transformer can take a JSON-or XML-formatted document as input and transform it into an EDI file."]
module UpdateProfileResponse =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for the profile."];
      profileArn: ResourceArn.t option
        [@ocaml.doc "Returns an Amazon Resource Name (ARN) for the profile."];
      name: ProfileName.t option
        [@ocaml.doc "Returns the name of the profile."];
      email: Email.t option
        [@ocaml.doc
          "Returns the email address associated with this customer profile."];
      phone: Phone.t option
        [@ocaml.doc "Returns the phone number associated with the profile."];
      businessName: BusinessName.t option
        [@ocaml.doc
          "Returns the name for the business associated with this profile."];
      logging: Logging.t option
        [@ocaml.doc
          "Specifies whether or not logging is enabled for this profile."];
      logGroupName: LogGroupName.t option
        [@ocaml.doc "Returns the name of the logging group."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the profile."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp for last time the profile was modified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileId =
      fun ?profileArn ->
        fun ?name ->
          fun ?email ->
            fun ?phone ->
              fun ?businessName ->
                fun ?logging ->
                  fun ?logGroupName ->
                    fun ?createdAt ->
                      fun ?modifiedAt ->
                        fun () ->
                          {
                            profileId;
                            profileArn;
                            name;
                            email;
                            phone;
                            businessName;
                            logging;
                            logGroupName;
                            createdAt;
                            modifiedAt
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("profileId", (Option.map x.profileId ~f:ProfileId.to_value));
        ("profileArn", (Option.map x.profileArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:ProfileName.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("phone", (Option.map x.phone ~f:Phone.to_value));
        ("businessName",
          (Option.map x.businessName ~f:BusinessName.to_value));
        ("logging", (Option.map x.logging ~f:Logging.to_value));
        ("logGroupName",
          (Option.map x.logGroupName ~f:LogGroupName.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let logGroupName =
        (Option.map ~f:LogGroupName.of_xml)
          (Xml.child xml_arg0 "logGroupName") in
      let logging =
        (Option.map ~f:Logging.of_xml) (Xml.child xml_arg0 "logging") in
      let businessName =
        (Option.map ~f:BusinessName.of_xml)
          (Xml.child xml_arg0 "businessName") in
      let phone = (Option.map ~f:Phone.of_xml) (Xml.child xml_arg0 "phone") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name =
        (Option.map ~f:ProfileName.of_xml) (Xml.child xml_arg0 "name") in
      let profileArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "profileArn") in
      let profileId =
        (Option.map ~f:ProfileId.of_xml) (Xml.child xml_arg0 "profileId") in
      make ?modifiedAt ?createdAt ?logGroupName ?logging ?businessName ?phone
        ?email ?name ?profileArn ?profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let logGroupName = field_map json__ "logGroupName" LogGroupName.of_json in
      let logging = field_map json__ "logging" Logging.of_json in
      let businessName = field_map json__ "businessName" BusinessName.of_json in
      let phone = field_map json__ "phone" Phone.of_json in
      let email = field_map json__ "email" Email.of_json in
      let name = field_map json__ "name" ProfileName.of_json in
      let profileArn = field_map json__ "profileArn" ResourceArn.of_json in
      let profileId = field_map json__ "profileId" ProfileId.of_json in
      make ?modifiedAt ?createdAt ?logGroupName ?logging ?businessName ?phone
        ?email ?name ?profileArn ?profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified parameters for a profile. A profile is the mechanism used to create the concept of a private network."]
module UpdateProfileRequest =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t
        [@ocaml.doc
          "Specifies the unique, system-generated identifier for the profile."];
      name: ProfileName.t option
        [@ocaml.doc "The name of the profile, used to identify it."];
      email: Email.t option
        [@ocaml.doc
          "Specifies the email address associated with this customer profile."];
      phone: Phone.t option
        [@ocaml.doc
          "Specifies the phone number associated with the profile."];
      businessName: BusinessName.t option
        [@ocaml.doc
          "Specifies the name for the business associated with this profile."]}
    let context_ = "UpdateProfileRequest"
    let make ?name =
      fun ?email ->
        fun ?phone ->
          fun ?businessName ->
            fun ~profileId ->
              fun () -> { name; email; phone; businessName; profileId }
    let to_value x =
      structure_to_value
        [("profileId", (Some (ProfileId.to_value x.profileId)));
        ("name", (Option.map x.name ~f:ProfileName.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("phone", (Option.map x.phone ~f:Phone.to_value));
        ("businessName",
          (Option.map x.businessName ~f:BusinessName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let businessName =
        (Option.map ~f:BusinessName.of_xml)
          (Xml.child xml_arg0 "businessName") in
      let phone = (Option.map ~f:Phone.of_xml) (Xml.child xml_arg0 "phone") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name =
        (Option.map ~f:ProfileName.of_xml) (Xml.child xml_arg0 "name") in
      let profileId =
        ProfileId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileId") in
      make ?businessName ?phone ?email ?name ~profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let businessName = field_map json__ "businessName" BusinessName.of_json in
      let phone = field_map json__ "phone" Phone.of_json in
      let email = field_map json__ "email" Email.of_json in
      let name = field_map json__ "name" ProfileName.of_json in
      let profileId = field_map_exn json__ "profileId" ProfileId.of_json in
      make ?businessName ?phone ?email ?name ~profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified parameters for a profile. A profile is the mechanism used to create the concept of a private network."]
module UpdatePartnershipResponse =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for the profile connected to this partnership."];
      partnershipId: PartnershipId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for a partnership."];
      partnershipArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: PartnerName.t option
        [@ocaml.doc "The name of the partnership, used to identify it."];
      email: Email.t option
        [@ocaml.doc
          "Returns the email address associated with this trading partner."];
      phone: Phone.t option
        [@ocaml.doc
          "Returns the phone number associated with the partnership."];
      capabilities: PartnershipCapabilities.t option
        [@ocaml.doc
          "Returns one or more capabilities associated with this partnership."];
      capabilityOptions: CapabilityOptions.t option
        [@ocaml.doc
          "Returns the structure that contains the details for the associated capabilities."];
      tradingPartnerId: TradingPartnerId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for a trading partner."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp that identifies the most recent date and time that the partnership was modified."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp that identifies the most recent date and time that the partnership was modified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileId =
      fun ?partnershipId ->
        fun ?partnershipArn ->
          fun ?name ->
            fun ?email ->
              fun ?phone ->
                fun ?capabilities ->
                  fun ?capabilityOptions ->
                    fun ?tradingPartnerId ->
                      fun ?createdAt ->
                        fun ?modifiedAt ->
                          fun () ->
                            {
                              profileId;
                              partnershipId;
                              partnershipArn;
                              name;
                              email;
                              phone;
                              capabilities;
                              capabilityOptions;
                              tradingPartnerId;
                              createdAt;
                              modifiedAt
                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("profileId", (Option.map x.profileId ~f:ProfileId.to_value));
        ("partnershipId",
          (Option.map x.partnershipId ~f:PartnershipId.to_value));
        ("partnershipArn",
          (Option.map x.partnershipArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:PartnerName.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("phone", (Option.map x.phone ~f:Phone.to_value));
        ("capabilities",
          (Option.map x.capabilities ~f:PartnershipCapabilities.to_value));
        ("capabilityOptions",
          (Option.map x.capabilityOptions ~f:CapabilityOptions.to_value));
        ("tradingPartnerId",
          (Option.map x.tradingPartnerId ~f:TradingPartnerId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let tradingPartnerId =
        (Option.map ~f:TradingPartnerId.of_xml)
          (Xml.child xml_arg0 "tradingPartnerId") in
      let capabilityOptions =
        (Option.map ~f:CapabilityOptions.of_xml)
          (Xml.child xml_arg0 "capabilityOptions") in
      let capabilities =
        (Option.map ~f:PartnershipCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      let phone = (Option.map ~f:Phone.of_xml) (Xml.child xml_arg0 "phone") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name =
        (Option.map ~f:PartnerName.of_xml) (Xml.child xml_arg0 "name") in
      let partnershipArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "partnershipArn") in
      let partnershipId =
        (Option.map ~f:PartnershipId.of_xml)
          (Xml.child xml_arg0 "partnershipId") in
      let profileId =
        (Option.map ~f:ProfileId.of_xml) (Xml.child xml_arg0 "profileId") in
      make ?modifiedAt ?createdAt ?tradingPartnerId ?capabilityOptions
        ?capabilities ?phone ?email ?name ?partnershipArn ?partnershipId
        ?profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let tradingPartnerId =
        field_map json__ "tradingPartnerId" TradingPartnerId.of_json in
      let capabilityOptions =
        field_map json__ "capabilityOptions" CapabilityOptions.of_json in
      let capabilities =
        field_map json__ "capabilities" PartnershipCapabilities.of_json in
      let phone = field_map json__ "phone" Phone.of_json in
      let email = field_map json__ "email" Email.of_json in
      let name = field_map json__ "name" PartnerName.of_json in
      let partnershipArn =
        field_map json__ "partnershipArn" ResourceArn.of_json in
      let partnershipId =
        field_map json__ "partnershipId" PartnershipId.of_json in
      let profileId = field_map json__ "profileId" ProfileId.of_json in
      make ?modifiedAt ?createdAt ?tradingPartnerId ?capabilityOptions
        ?capabilities ?phone ?email ?name ?partnershipArn ?partnershipId
        ?profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates some of the parameters for a partnership between a customer and trading partner. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module UpdatePartnershipRequest =
  struct
    type nonrec t =
      {
      partnershipId: PartnershipId.t
        [@ocaml.doc
          "Specifies the unique, system-generated identifier for a partnership."];
      name: PartnerName.t option
        [@ocaml.doc "The name of the partnership, used to identify it."];
      capabilities: PartnershipCapabilities.t option
        [@ocaml.doc
          "List of the capabilities associated with this partnership."];
      capabilityOptions: CapabilityOptions.t option
        [@ocaml.doc
          "To update, specify the structure that contains the details for the associated capabilities."]}
    let context_ = "UpdatePartnershipRequest"
    let make ?name =
      fun ?capabilities ->
        fun ?capabilityOptions ->
          fun ~partnershipId ->
            fun () ->
              { name; capabilities; capabilityOptions; partnershipId }
    let to_value x =
      structure_to_value
        [("partnershipId", (Some (PartnershipId.to_value x.partnershipId)));
        ("name", (Option.map x.name ~f:PartnerName.to_value));
        ("capabilities",
          (Option.map x.capabilities ~f:PartnershipCapabilities.to_value));
        ("capabilityOptions",
          (Option.map x.capabilityOptions ~f:CapabilityOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capabilityOptions =
        (Option.map ~f:CapabilityOptions.of_xml)
          (Xml.child xml_arg0 "capabilityOptions") in
      let capabilities =
        (Option.map ~f:PartnershipCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      let name =
        (Option.map ~f:PartnerName.of_xml) (Xml.child xml_arg0 "name") in
      let partnershipId =
        PartnershipId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "partnershipId") in
      make ?capabilityOptions ?capabilities ?name ~partnershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capabilityOptions =
        field_map json__ "capabilityOptions" CapabilityOptions.of_json in
      let capabilities =
        field_map json__ "capabilities" PartnershipCapabilities.of_json in
      let name = field_map json__ "name" PartnerName.of_json in
      let partnershipId =
        field_map_exn json__ "partnershipId" PartnershipId.of_json in
      make ?capabilityOptions ?capabilities ?name ~partnershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates some of the parameters for a partnership between a customer and trading partner. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module UpdateCapabilityResponse =
  struct
    type nonrec t =
      {
      capabilityId: CapabilityId.t option
        [@ocaml.doc
          "Returns a system-assigned unique identifier for the capability."];
      capabilityArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: CapabilityName.t option
        [@ocaml.doc
          "Returns the name of the capability, used to identify it."];
      type_: CapabilityType.t option
        [@ocaml.doc
          "Returns the type of the capability. Currently, only edi is supported."];
      configuration: CapabilityConfiguration.t option
        [@ocaml.doc
          "Returns a structure that contains the details for a capability."];
      instructionsDocuments: InstructionsDocuments.t option
        [@ocaml.doc
          "Returns one or more locations in Amazon S3, each specifying an EDI document that can be used with this capability. Each item contains the name of the bucket and the key, to identify the document's location."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the capability."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp for last time the capability was modified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?capabilityId =
      fun ?capabilityArn ->
        fun ?name ->
          fun ?type_ ->
            fun ?configuration ->
              fun ?instructionsDocuments ->
                fun ?createdAt ->
                  fun ?modifiedAt ->
                    fun () ->
                      {
                        capabilityId;
                        capabilityArn;
                        name;
                        type_;
                        configuration;
                        instructionsDocuments;
                        createdAt;
                        modifiedAt
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("capabilityId",
           (Option.map x.capabilityId ~f:CapabilityId.to_value));
        ("capabilityArn",
          (Option.map x.capabilityArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:CapabilityName.to_value));
        ("type", (Option.map x.type_ ~f:CapabilityType.to_value));
        ("configuration",
          (Option.map x.configuration ~f:CapabilityConfiguration.to_value));
        ("instructionsDocuments",
          (Option.map x.instructionsDocuments
             ~f:InstructionsDocuments.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let instructionsDocuments =
        (Option.map ~f:InstructionsDocuments.of_xml)
          (Xml.child xml_arg0 "instructionsDocuments") in
      let configuration =
        (Option.map ~f:CapabilityConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let type_ =
        (Option.map ~f:CapabilityType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:CapabilityName.of_xml) (Xml.child xml_arg0 "name") in
      let capabilityArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "capabilityArn") in
      let capabilityId =
        (Option.map ~f:CapabilityId.of_xml)
          (Xml.child xml_arg0 "capabilityId") in
      make ?modifiedAt ?createdAt ?instructionsDocuments ?configuration
        ?type_ ?name ?capabilityArn ?capabilityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let instructionsDocuments =
        field_map json__ "instructionsDocuments"
          InstructionsDocuments.of_json in
      let configuration =
        field_map json__ "configuration" CapabilityConfiguration.of_json in
      let type_ = field_map json__ "type" CapabilityType.of_json in
      let name = field_map json__ "name" CapabilityName.of_json in
      let capabilityArn =
        field_map json__ "capabilityArn" ResourceArn.of_json in
      let capabilityId = field_map json__ "capabilityId" CapabilityId.of_json in
      make ?modifiedAt ?createdAt ?instructionsDocuments ?configuration
        ?type_ ?name ?capabilityArn ?capabilityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates some of the parameters for a capability, based on the specified parameters. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module UpdateCapabilityRequest =
  struct
    type nonrec t =
      {
      capabilityId: CapabilityId.t
        [@ocaml.doc
          "Specifies a system-assigned unique identifier for the capability."];
      name: CapabilityName.t option
        [@ocaml.doc
          "Specifies a new name for the capability, to replace the existing name."];
      configuration: CapabilityConfiguration.t option
        [@ocaml.doc
          "Specifies a structure that contains the details for a capability."];
      instructionsDocuments: InstructionsDocuments.t option
        [@ocaml.doc
          "Specifies one or more locations in Amazon S3, each specifying an EDI document that can be used with this capability. Each item contains the name of the bucket and the key, to identify the document's location."]}
    let context_ = "UpdateCapabilityRequest"
    let make ?name =
      fun ?configuration ->
        fun ?instructionsDocuments ->
          fun ~capabilityId ->
            fun () ->
              { name; configuration; instructionsDocuments; capabilityId }
    let to_value x =
      structure_to_value
        [("capabilityId", (Some (CapabilityId.to_value x.capabilityId)));
        ("name", (Option.map x.name ~f:CapabilityName.to_value));
        ("configuration",
          (Option.map x.configuration ~f:CapabilityConfiguration.to_value));
        ("instructionsDocuments",
          (Option.map x.instructionsDocuments
             ~f:InstructionsDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instructionsDocuments =
        (Option.map ~f:InstructionsDocuments.of_xml)
          (Xml.child xml_arg0 "instructionsDocuments") in
      let configuration =
        (Option.map ~f:CapabilityConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let name =
        (Option.map ~f:CapabilityName.of_xml) (Xml.child xml_arg0 "name") in
      let capabilityId =
        CapabilityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "capabilityId") in
      make ?instructionsDocuments ?configuration ?name ~capabilityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instructionsDocuments =
        field_map json__ "instructionsDocuments"
          InstructionsDocuments.of_json in
      let configuration =
        field_map json__ "configuration" CapabilityConfiguration.of_json in
      let name = field_map json__ "name" CapabilityName.of_json in
      let capabilityId =
        field_map_exn json__ "capabilityId" CapabilityId.of_json in
      make ?instructionsDocuments ?configuration ?name ~capabilityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates some of the parameters for a capability, based on the specified parameters. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "Specifies an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "Specifies the key-value pairs assigned to ARNs that you can use to group and search for resources by type. You can attach this metadata to resources (capabilities, partnerships, and so on) for any purpose."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tagKeys ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeyList.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detaches a key-value pair from the specified resource, as identified by its Amazon Resource Name (ARN). Resources are capability, partnership, profile, transformers and other entities."]
module TestParsingResponse =
  struct
    type nonrec t =
      {
      parsedFileContent: String_.t option
        [@ocaml.doc
          "Returns the contents of the input file being tested, parsed according to the specified EDI (electronic data interchange) type."];
      parsedSplitFileContents: ParsedSplitFileContentsList.t option
        [@ocaml.doc
          "Returns an array of parsed file contents when the input file is split according to the specified split options. Each element in the array represents a separate split file's parsed content."];
      validationMessages: ValidationMessages.t option
        [@ocaml.doc
          "Returns an array of validation messages generated during EDI validation. These messages provide detailed information about validation errors, warnings, or confirmations based on the configured X12 validation rules such as element length constraints, code list validations, and element requirement checks. This field is populated when the TestParsing API validates EDI documents."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?parsedFileContent =
      fun ?parsedSplitFileContents ->
        fun ?validationMessages ->
          fun () ->
            { parsedFileContent; parsedSplitFileContents; validationMessages
            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("parsedFileContent",
           (Option.map x.parsedFileContent ~f:String_.to_value));
        ("parsedSplitFileContents",
          (Option.map x.parsedSplitFileContents
             ~f:ParsedSplitFileContentsList.to_value));
        ("validationMessages",
          (Option.map x.validationMessages ~f:ValidationMessages.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationMessages =
        (Option.map ~f:ValidationMessages.of_xml)
          (Xml.child xml_arg0 "validationMessages") in
      let parsedSplitFileContents =
        (Option.map ~f:ParsedSplitFileContentsList.of_xml)
          (Xml.child xml_arg0 "parsedSplitFileContents") in
      let parsedFileContent =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "parsedFileContent") in
      make ?validationMessages ?parsedSplitFileContents ?parsedFileContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationMessages =
        field_map json__ "validationMessages" ValidationMessages.of_json in
      let parsedSplitFileContents =
        field_map json__ "parsedSplitFileContents"
          ParsedSplitFileContentsList.of_json in
      let parsedFileContent =
        field_map json__ "parsedFileContent" String_.of_json in
      make ?validationMessages ?parsedSplitFileContents ?parsedFileContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parses the input EDI (electronic data interchange) file. The input file has a file size limit of 250 KB."]
module TestParsingRequest =
  struct
    type nonrec t =
      {
      inputFile: S3Location.t
        [@ocaml.doc
          "Specifies an S3Location object, which contains the Amazon S3 bucket and prefix for the location of the input file."];
      fileFormat: FileFormat.t
        [@ocaml.doc
          "Specifies that the currently supported file formats for EDI transformations are JSON and XML."];
      ediType: EdiType.t
        [@ocaml.doc
          "Specifies the details for the EDI standard that is being used for the transformer. Currently, only X12 is supported. X12 is a set of standards and corresponding messages that define specific business documents."];
      advancedOptions: AdvancedOptions.t option
        [@ocaml.doc
          "Specifies advanced options for parsing the input EDI file. These options allow for more granular control over the parsing process, including split options for X12 files."]}
    let context_ = "TestParsingRequest"
    let make ?advancedOptions =
      fun ~inputFile ->
        fun ~fileFormat ->
          fun ~ediType ->
            fun () -> { advancedOptions; inputFile; fileFormat; ediType }
    let to_value x =
      structure_to_value
        [("inputFile", (Some (S3Location.to_value x.inputFile)));
        ("fileFormat", (Some (FileFormat.to_value x.fileFormat)));
        ("ediType", (Some (EdiType.to_value x.ediType)));
        ("advancedOptions",
          (Option.map x.advancedOptions ~f:AdvancedOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let advancedOptions =
        (Option.map ~f:AdvancedOptions.of_xml)
          (Xml.child xml_arg0 "advancedOptions") in
      let ediType =
        EdiType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ediType") in
      let fileFormat =
        FileFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileFormat") in
      let inputFile =
        S3Location.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputFile") in
      make ?advancedOptions ~ediType ~fileFormat ~inputFile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let advancedOptions =
        field_map json__ "advancedOptions" AdvancedOptions.of_json in
      let ediType = field_map_exn json__ "ediType" EdiType.of_json in
      let fileFormat = field_map_exn json__ "fileFormat" FileFormat.of_json in
      let inputFile = field_map_exn json__ "inputFile" S3Location.of_json in
      make ?advancedOptions ~ediType ~fileFormat ~inputFile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Parses the input EDI (electronic data interchange) file. The input file has a file size limit of 250 KB."]
module TestMappingResponse =
  struct
    type nonrec t =
      {
      mappedFileContent: String_.t option
        [@ocaml.doc
          "Returns a string for the mapping that can be used to identify the mapping. Similar to a fingerprint"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mappedFileContent = fun () -> { mappedFileContent }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("mappedFileContent",
           (Option.map x.mappedFileContent ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mappedFileContent =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "mappedFileContent") in
      make ?mappedFileContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mappedFileContent =
        field_map json__ "mappedFileContent" String_.of_json in
      make ?mappedFileContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Maps the input file according to the provided template file. The API call downloads the file contents from the Amazon S3 location, and passes the contents in as a string, to the inputFileContent parameter."]
module TestMappingRequest =
  struct
    type nonrec t =
      {
      inputFileContent: TestMappingInputFileContent.t
        [@ocaml.doc
          "Specify the contents of the EDI (electronic data interchange) XML or JSON file that is used as input for the transform."];
      mappingTemplate: MappingTemplate.t
        [@ocaml.doc
          "Specifies the mapping template for the transformer. This template is used to map the parsed EDI file using JSONata or XSLT. This parameter is available for backwards compatibility. Use the Mapping data type instead."];
      fileFormat: FileFormat.t
        [@ocaml.doc
          "Specifies that the currently supported file formats for EDI transformations are JSON and XML."]}
    let context_ = "TestMappingRequest"
    let make ~inputFileContent =
      fun ~mappingTemplate ->
        fun ~fileFormat ->
          fun () -> { inputFileContent; mappingTemplate; fileFormat }
    let to_value x =
      structure_to_value
        [("inputFileContent",
           (Some (TestMappingInputFileContent.to_value x.inputFileContent)));
        ("mappingTemplate",
          (Some (MappingTemplate.to_value x.mappingTemplate)));
        ("fileFormat", (Some (FileFormat.to_value x.fileFormat)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileFormat =
        FileFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileFormat") in
      let mappingTemplate =
        MappingTemplate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mappingTemplate") in
      let inputFileContent =
        TestMappingInputFileContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputFileContent") in
      make ~fileFormat ~mappingTemplate ~inputFileContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileFormat = field_map_exn json__ "fileFormat" FileFormat.of_json in
      let mappingTemplate =
        field_map_exn json__ "mappingTemplate" MappingTemplate.of_json in
      let inputFileContent =
        field_map_exn json__ "inputFileContent"
          TestMappingInputFileContent.of_json in
      make ~fileFormat ~mappingTemplate ~inputFileContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Maps the input file according to the provided template file. The API call downloads the file contents from the Amazon S3 location, and passes the contents in as a string, to the inputFileContent parameter."]
module TestConversionResponse =
  struct
    type nonrec t =
      {
      convertedFileContent: String_.t option
        [@ocaml.doc "Returns the converted file content."];
      validationMessages: ValidationMessages.t option
        [@ocaml.doc
          "Returns an array of validation messages that Amazon Web Services B2B Data Interchange generates during the conversion process. These messages include both standard EDI validation results and custom validation messages when custom validation rules are configured. Custom validation messages provide detailed feedback on element length constraints, code list validations, and element requirement checks applied during the outbound EDI generation process."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?convertedFileContent =
      fun ?validationMessages ->
        fun () -> { convertedFileContent; validationMessages }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("convertedFileContent",
           (Option.map x.convertedFileContent ~f:String_.to_value));
        ("validationMessages",
          (Option.map x.validationMessages ~f:ValidationMessages.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationMessages =
        (Option.map ~f:ValidationMessages.of_xml)
          (Xml.child xml_arg0 "validationMessages") in
      let convertedFileContent =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "convertedFileContent") in
      make ?validationMessages ?convertedFileContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationMessages =
        field_map json__ "validationMessages" ValidationMessages.of_json in
      let convertedFileContent =
        field_map json__ "convertedFileContent" String_.of_json in
      make ?validationMessages ?convertedFileContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation mimics the latter half of a typical Outbound EDI request. It takes an input JSON/XML in the B2Bi shape as input, converts it to an X12 EDI string, and return that string."]
module TestConversionRequest =
  struct
    type nonrec t =
      {
      source: ConversionSource.t
        [@ocaml.doc "Specify the source file for an outbound EDI request."];
      target: ConversionTarget.t
        [@ocaml.doc
          "Specify the format (X12 is the only currently supported format), and other details for the conversion target."]}
    let context_ = "TestConversionRequest"
    let make ~source = fun ~target -> fun () -> { source; target }
    let to_value x =
      structure_to_value
        [("source", (Some (ConversionSource.to_value x.source)));
        ("target", (Some (ConversionTarget.to_value x.target)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let target =
        ConversionTarget.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "target") in
      let source =
        ConversionSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "source") in
      make ~target ~source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let target = field_map_exn json__ "target" ConversionTarget.of_json in
      let source = field_map_exn json__ "source" ConversionSource.of_json in
      make ~target ~source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation mimics the latter half of a typical Outbound EDI request. It takes an input JSON/XML in the B2Bi shape as input, converts it to an X12 EDI string, and return that string."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "Specifies an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      tags: TagList.t
        [@ocaml.doc
          "Specifies the key-value pairs assigned to ARNs that you can use to group and search for resources by type. You can attach this metadata to resources (capabilities, partnerships, and so on) for any purpose."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" TagList.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attaches a key-value pair to a resource, as identified by its Amazon Resource Name (ARN). Resources are capability, partnership, profile, transformers and other entities. There is no response returned from this call."]
module StartTransformerJobResponse =
  struct
    type nonrec t =
      {
      transformerJobId: TransformerJobId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for a transformer run."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transformerJobId = fun () -> { transformerJobId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("transformerJobId",
           (Option.map x.transformerJobId ~f:TransformerJobId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transformerJobId =
        (Option.map ~f:TransformerJobId.of_xml)
          (Xml.child xml_arg0 "transformerJobId") in
      make ?transformerJobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transformerJobId =
        field_map json__ "transformerJobId" TransformerJobId.of_json in
      make ?transformerJobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Runs a job, using a transformer, to parse input EDI (electronic data interchange) file into the output structures used by Amazon Web Services B2B Data Interchange. If you only want to transform EDI (electronic data interchange) documents, you don't need to create profiles, partnerships or capabilities. Just create and configure a transformer, and then run the StartTransformerJob API to process your files. The system stores transformer jobs for 30 days. During that period, you can run GetTransformerJob and supply its transformerId and transformerJobId to return details of the job."]
module StartTransformerJobRequest =
  struct
    type nonrec t =
      {
      inputFile: S3Location.t
        [@ocaml.doc
          "Specifies the location of the input file for the transformation. The location consists of an Amazon S3 bucket and prefix."];
      outputLocation: S3Location.t
        [@ocaml.doc
          "Specifies the location of the output file for the transformation. The location consists of an Amazon S3 bucket and prefix."];
      transformerId: TransformerId.t
        [@ocaml.doc
          "Specifies the system-assigned unique identifier for the transformer."];
      clientToken: String_.t option [@ocaml.doc "Reserved for future use."]}
    let context_ = "StartTransformerJobRequest"
    let make ?clientToken =
      fun ~inputFile ->
        fun ~outputLocation ->
          fun ~transformerId ->
            fun () ->
              { clientToken; inputFile; outputLocation; transformerId }
    let to_value x =
      structure_to_value
        [("inputFile", (Some (S3Location.to_value x.inputFile)));
        ("outputLocation", (Some (S3Location.to_value x.outputLocation)));
        ("transformerId", (Some (TransformerId.to_value x.transformerId)));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let transformerId =
        TransformerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transformerId") in
      let outputLocation =
        S3Location.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputLocation") in
      let inputFile =
        S3Location.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputFile") in
      make ?clientToken ~transformerId ~outputLocation ~inputFile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let transformerId =
        field_map_exn json__ "transformerId" TransformerId.of_json in
      let outputLocation =
        field_map_exn json__ "outputLocation" S3Location.of_json in
      let inputFile = field_map_exn json__ "inputFile" S3Location.of_json in
      make ?clientToken ~transformerId ~outputLocation ~inputFile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Runs a job, using a transformer, to parse input EDI (electronic data interchange) file into the output structures used by Amazon Web Services B2B Data Interchange. If you only want to transform EDI (electronic data interchange) documents, you don't need to create profiles, partnerships or capabilities. Just create and configure a transformer, and then run the StartTransformerJob API to process your files. The system stores transformer jobs for 30 days. During that period, you can run GetTransformerJob and supply its transformerId and transformerJobId to return details of the job."]
module ListTransformersResponse =
  struct
    type nonrec t =
      {
      transformers: TransformerList.t option
        [@ocaml.doc
          "Returns an array of one or more transformer objects. For each transformer, a TransformerSummary object is returned. The TransformerSummary contains all the details for a specific transformer."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "When additional results are obtained from the command, a NextToken parameter is returned in the output. You can then pass the NextToken parameter in a subsequent command to continue listing additional resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transformers =
      fun ?nextToken -> fun () -> { transformers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("transformers",
           (Option.map x.transformers ~f:TransformerList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let transformers =
        (Option.map ~f:TransformerList.of_xml)
          (Xml.child xml_arg0 "transformers") in
      make ?nextToken ?transformers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      let transformers =
        field_map json__ "transformers" TransformerList.of_json in
      make ?nextToken ?transformers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the available transformers. A transformer can take an EDI file as input and transform it into a JSON-or XML-formatted document. Alternatively, a transformer can take a JSON-or XML-formatted document as input and transform it into an EDI file."]
module ListTransformersRequest =
  struct
    type nonrec t =
      {
      nextToken: PageToken.t option
        [@ocaml.doc
          "When additional results are obtained from the command, a NextToken parameter is returned in the output. You can then pass the NextToken parameter in a subsequent command to continue listing additional resources."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the number of items to return for the API response."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PageToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the available transformers. A transformer can take an EDI file as input and transform it into a JSON-or XML-formatted document. Alternatively, a transformer can take a JSON-or XML-formatted document as input and transform it into an EDI file."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "Returns the key-value pairs assigned to ARNs that you can use to group and search for resources by type. You can attach this metadata to resources (capabilities, partnerships, and so on) for any purpose."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the tags associated with the Amazon Resource Name (ARN) that you specify. The resource can be a capability, partnership, profile, or transformer."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "Requests the tags associated with a particular Amazon Resource Name (ARN). An ARN is an identifier for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the tags associated with the Amazon Resource Name (ARN) that you specify. The resource can be a capability, partnership, profile, or transformer."]
module ListProfilesResponse =
  struct
    type nonrec t =
      {
      profiles: ProfileList.t option
        [@ocaml.doc "Returns an array of ProfileSummary objects."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "When additional results are obtained from the command, a NextToken parameter is returned in the output. You can then pass the NextToken parameter in a subsequent command to continue listing additional resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profiles = fun ?nextToken -> fun () -> { profiles; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("profiles", (Option.map x.profiles ~f:ProfileList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let profiles =
        (Option.map ~f:ProfileList.of_xml) (Xml.child xml_arg0 "profiles") in
      make ?nextToken ?profiles ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      let profiles = field_map json__ "profiles" ProfileList.of_json in
      make ?nextToken ?profiles ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the profiles associated with your Amazon Web Services account for your current or specified region. A profile is the mechanism used to create the concept of a private network."]
module ListProfilesRequest =
  struct
    type nonrec t =
      {
      nextToken: PageToken.t option
        [@ocaml.doc
          "When additional results are obtained from the command, a NextToken parameter is returned in the output. You can then pass the NextToken parameter in a subsequent command to continue listing additional resources."];
      maxResults: MaxResults.t option
        [@ocaml.doc "Specifies the maximum number of profiles to return."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PageToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the profiles associated with your Amazon Web Services account for your current or specified region. A profile is the mechanism used to create the concept of a private network."]
module ListPartnershipsResponse =
  struct
    type nonrec t =
      {
      partnerships: PartnershipList.t option
        [@ocaml.doc "Specifies a list of your partnerships."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "When additional results are obtained from the command, a NextToken parameter is returned in the output. You can then pass the NextToken parameter in a subsequent command to continue listing additional resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?partnerships =
      fun ?nextToken -> fun () -> { partnerships; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("partnerships",
           (Option.map x.partnerships ~f:PartnershipList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let partnerships =
        (Option.map ~f:PartnershipList.of_xml)
          (Xml.child xml_arg0 "partnerships") in
      make ?nextToken ?partnerships ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      let partnerships =
        field_map json__ "partnerships" PartnershipList.of_json in
      make ?nextToken ?partnerships ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the partnerships associated with your Amazon Web Services account for your current or specified region. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module ListPartnershipsRequest =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t option
        [@ocaml.doc
          "Specifies the unique, system-generated identifier for the profile connected to this partnership."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "When additional results are obtained from the command, a NextToken parameter is returned in the output. You can then pass the NextToken parameter in a subsequent command to continue listing additional resources."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the maximum number of capabilities to return."]}
    let make ?profileId =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { profileId; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("profileId", (Option.map x.profileId ~f:ProfileId.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PageToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let profileId =
        (Option.map ~f:ProfileId.of_xml) (Xml.child xml_arg0 "profileId") in
      make ?maxResults ?nextToken ?profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      let profileId = field_map json__ "profileId" ProfileId.of_json in
      make ?maxResults ?nextToken ?profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the partnerships associated with your Amazon Web Services account for your current or specified region. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module ListCapabilitiesResponse =
  struct
    type nonrec t =
      {
      capabilities: CapabilityList.t option
        [@ocaml.doc
          "Returns one or more capabilities associated with this partnership."];
      nextToken: PageToken.t option
        [@ocaml.doc
          "When additional results are obtained from the command, a NextToken parameter is returned in the output. You can then pass the NextToken parameter in a subsequent command to continue listing additional resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?capabilities =
      fun ?nextToken -> fun () -> { capabilities; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("capabilities",
           (Option.map x.capabilities ~f:CapabilityList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let capabilities =
        (Option.map ~f:CapabilityList.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      make ?nextToken ?capabilities ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      let capabilities =
        field_map json__ "capabilities" CapabilityList.of_json in
      make ?nextToken ?capabilities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the capabilities associated with your Amazon Web Services account for your current or specified region. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module ListCapabilitiesRequest =
  struct
    type nonrec t =
      {
      nextToken: PageToken.t option
        [@ocaml.doc
          "When additional results are obtained from the command, a NextToken parameter is returned in the output. You can then pass the NextToken parameter in a subsequent command to continue listing additional resources."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the maximum number of capabilities to return."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PageToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PageToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" PageToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the capabilities associated with your Amazon Web Services account for your current or specified region. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module GetTransformerResponse =
  struct
    type nonrec t =
      {
      transformerId: TransformerId.t option
        [@ocaml.doc
          "Returns the system-assigned unique identifier for the transformer."];
      transformerArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: TransformerName.t option
        [@ocaml.doc
          "Returns the name of the transformer, used to identify it."];
      status: TransformerStatus.t option
        [@ocaml.doc
          "Returns the state of the newly created transformer. The transformer can be either active or inactive. For the transformer to be used in a capability, its status must active."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the transformer."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp for last time the transformer was modified."];
      fileFormat: FileFormat.t option
        [@ocaml.doc
          "Returns that the currently supported file formats for EDI transformations are JSON and XML."];
      mappingTemplate: MappingTemplate.t option
        [@ocaml.doc
          "Returns the mapping template for the transformer. This template is used to map the parsed EDI file using JSONata or XSLT."];
      ediType: EdiType.t option
        [@ocaml.doc
          "Returns the details for the EDI standard that is being used for the transformer. Currently, only X12 is supported. X12 is a set of standards and corresponding messages that define specific business documents."];
      sampleDocument: FileLocation.t option
        [@ocaml.doc
          "Returns a sample EDI document that is used by a transformer as a guide for processing the EDI data."];
      inputConversion: InputConversion.t option
        [@ocaml.doc
          "Returns the InputConversion object, which contains the format options for the inbound transformation."];
      mapping: Mapping.t option
        [@ocaml.doc
          "Returns the structure that contains the mapping template and its language (either XSLT or JSONATA)."];
      outputConversion: OutputConversion.t option
        [@ocaml.doc
          "Returns the OutputConversion object, which contains the format options for the outbound transformation."];
      sampleDocuments: SampleDocuments.t option
        [@ocaml.doc
          "Returns a structure that contains the Amazon S3 bucket and an array of the corresponding keys used to identify the location for your sample documents."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transformerId =
      fun ?transformerArn ->
        fun ?name ->
          fun ?status ->
            fun ?createdAt ->
              fun ?modifiedAt ->
                fun ?fileFormat ->
                  fun ?mappingTemplate ->
                    fun ?ediType ->
                      fun ?sampleDocument ->
                        fun ?inputConversion ->
                          fun ?mapping ->
                            fun ?outputConversion ->
                              fun ?sampleDocuments ->
                                fun () ->
                                  {
                                    transformerId;
                                    transformerArn;
                                    name;
                                    status;
                                    createdAt;
                                    modifiedAt;
                                    fileFormat;
                                    mappingTemplate;
                                    ediType;
                                    sampleDocument;
                                    inputConversion;
                                    mapping;
                                    outputConversion;
                                    sampleDocuments
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("transformerId",
           (Option.map x.transformerId ~f:TransformerId.to_value));
        ("transformerArn",
          (Option.map x.transformerArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:TransformerName.to_value));
        ("status", (Option.map x.status ~f:TransformerStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value));
        ("fileFormat", (Option.map x.fileFormat ~f:FileFormat.to_value));
        ("mappingTemplate",
          (Option.map x.mappingTemplate ~f:MappingTemplate.to_value));
        ("ediType", (Option.map x.ediType ~f:EdiType.to_value));
        ("sampleDocument",
          (Option.map x.sampleDocument ~f:FileLocation.to_value));
        ("inputConversion",
          (Option.map x.inputConversion ~f:InputConversion.to_value));
        ("mapping", (Option.map x.mapping ~f:Mapping.to_value));
        ("outputConversion",
          (Option.map x.outputConversion ~f:OutputConversion.to_value));
        ("sampleDocuments",
          (Option.map x.sampleDocuments ~f:SampleDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sampleDocuments =
        (Option.map ~f:SampleDocuments.of_xml)
          (Xml.child xml_arg0 "sampleDocuments") in
      let outputConversion =
        (Option.map ~f:OutputConversion.of_xml)
          (Xml.child xml_arg0 "outputConversion") in
      let mapping =
        (Option.map ~f:Mapping.of_xml) (Xml.child xml_arg0 "mapping") in
      let inputConversion =
        (Option.map ~f:InputConversion.of_xml)
          (Xml.child xml_arg0 "inputConversion") in
      let sampleDocument =
        (Option.map ~f:FileLocation.of_xml)
          (Xml.child xml_arg0 "sampleDocument") in
      let ediType =
        (Option.map ~f:EdiType.of_xml) (Xml.child xml_arg0 "ediType") in
      let mappingTemplate =
        (Option.map ~f:MappingTemplate.of_xml)
          (Xml.child xml_arg0 "mappingTemplate") in
      let fileFormat =
        (Option.map ~f:FileFormat.of_xml) (Xml.child xml_arg0 "fileFormat") in
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:TransformerStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:TransformerName.of_xml) (Xml.child xml_arg0 "name") in
      let transformerArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "transformerArn") in
      let transformerId =
        (Option.map ~f:TransformerId.of_xml)
          (Xml.child xml_arg0 "transformerId") in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?modifiedAt
        ?createdAt ?status ?name ?transformerArn ?transformerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sampleDocuments =
        field_map json__ "sampleDocuments" SampleDocuments.of_json in
      let outputConversion =
        field_map json__ "outputConversion" OutputConversion.of_json in
      let mapping = field_map json__ "mapping" Mapping.of_json in
      let inputConversion =
        field_map json__ "inputConversion" InputConversion.of_json in
      let sampleDocument =
        field_map json__ "sampleDocument" FileLocation.of_json in
      let ediType = field_map json__ "ediType" EdiType.of_json in
      let mappingTemplate =
        field_map json__ "mappingTemplate" MappingTemplate.of_json in
      let fileFormat = field_map json__ "fileFormat" FileFormat.of_json in
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let status = field_map json__ "status" TransformerStatus.of_json in
      let name = field_map json__ "name" TransformerName.of_json in
      let transformerArn =
        field_map json__ "transformerArn" ResourceArn.of_json in
      let transformerId =
        field_map json__ "transformerId" TransformerId.of_json in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?modifiedAt
        ?createdAt ?status ?name ?transformerArn ?transformerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details for the transformer specified by the transformer ID. A transformer can take an EDI file as input and transform it into a JSON-or XML-formatted document. Alternatively, a transformer can take a JSON-or XML-formatted document as input and transform it into an EDI file."]
module GetTransformerRequest =
  struct
    type nonrec t =
      {
      transformerId: TransformerId.t
        [@ocaml.doc
          "Specifies the system-assigned unique identifier for the transformer."]}
    let context_ = "GetTransformerRequest"
    let make ~transformerId = fun () -> { transformerId }
    let to_value x =
      structure_to_value
        [("transformerId", (Some (TransformerId.to_value x.transformerId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transformerId =
        TransformerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transformerId") in
      make ~transformerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transformerId =
        field_map_exn json__ "transformerId" TransformerId.of_json in
      make ~transformerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details for the transformer specified by the transformer ID. A transformer can take an EDI file as input and transform it into a JSON-or XML-formatted document. Alternatively, a transformer can take a JSON-or XML-formatted document as input and transform it into an EDI file."]
module GetTransformerJobResponse =
  struct
    type nonrec t =
      {
      status: TransformerJobStatus.t option
        [@ocaml.doc
          "Returns the current state of the transformer job, either running, succeeded, or failed."];
      outputFiles: S3LocationList.t option
        [@ocaml.doc
          "Returns the location for the output files. If the caller specified a directory for the output, then this contains the full path to the output file, including the file name generated by the service."];
      message: String_.t option
        [@ocaml.doc
          "Returns an optional error message, which gets populated when the job is not run successfully."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?outputFiles ->
        fun ?message -> fun () -> { status; outputFiles; message }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:TransformerJobStatus.to_value));
        ("outputFiles",
          (Option.map x.outputFiles ~f:S3LocationList.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let outputFiles =
        (Option.map ~f:S3LocationList.of_xml)
          (Xml.child xml_arg0 "outputFiles") in
      let status =
        (Option.map ~f:TransformerJobStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?message ?outputFiles ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let outputFiles = field_map json__ "outputFiles" S3LocationList.of_json in
      let status = field_map json__ "status" TransformerJobStatus.of_json in
      make ?message ?outputFiles ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the details of the transformer run, based on the Transformer job ID. If 30 days have elapsed since your transformer job was started, the system deletes it. So, if you run GetTransformerJob and supply a transformerId and transformerJobId for a job that was started more than 30 days previously, you receive a 404 response."]
module GetTransformerJobRequest =
  struct
    type nonrec t =
      {
      transformerJobId: TransformerJobId.t
        [@ocaml.doc
          "Specifies the unique, system-generated identifier for a transformer run."];
      transformerId: TransformerId.t
        [@ocaml.doc
          "Specifies the system-assigned unique identifier for the transformer."]}
    let context_ = "GetTransformerJobRequest"
    let make ~transformerJobId =
      fun ~transformerId -> fun () -> { transformerJobId; transformerId }
    let to_value x =
      structure_to_value
        [("transformerJobId",
           (Some (TransformerJobId.to_value x.transformerJobId)));
        ("transformerId", (Some (TransformerId.to_value x.transformerId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transformerId =
        TransformerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transformerId") in
      let transformerJobId =
        TransformerJobId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transformerJobId") in
      make ~transformerId ~transformerJobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transformerId =
        field_map_exn json__ "transformerId" TransformerId.of_json in
      let transformerJobId =
        field_map_exn json__ "transformerJobId" TransformerJobId.of_json in
      make ~transformerId ~transformerJobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the details of the transformer run, based on the Transformer job ID. If 30 days have elapsed since your transformer job was started, the system deletes it. So, if you run GetTransformerJob and supply a transformerId and transformerJobId for a job that was started more than 30 days previously, you receive a 404 response."]
module GetProfileResponse =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for the profile."];
      profileArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: ProfileName.t option
        [@ocaml.doc "Returns the name of the profile, used to identify it."];
      email: Email.t option
        [@ocaml.doc
          "Returns the email address associated with this customer profile."];
      phone: Phone.t option
        [@ocaml.doc "Returns the phone number associated with the profile."];
      businessName: BusinessName.t option
        [@ocaml.doc
          "Returns the name for the business associated with this profile."];
      logging: Logging.t option
        [@ocaml.doc
          "Returns whether or not logging is enabled for this profile."];
      logGroupName: LogGroupName.t option
        [@ocaml.doc "Returns the name of the logging group."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the transformer."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp for last time the profile was modified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileId =
      fun ?profileArn ->
        fun ?name ->
          fun ?email ->
            fun ?phone ->
              fun ?businessName ->
                fun ?logging ->
                  fun ?logGroupName ->
                    fun ?createdAt ->
                      fun ?modifiedAt ->
                        fun () ->
                          {
                            profileId;
                            profileArn;
                            name;
                            email;
                            phone;
                            businessName;
                            logging;
                            logGroupName;
                            createdAt;
                            modifiedAt
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("profileId", (Option.map x.profileId ~f:ProfileId.to_value));
        ("profileArn", (Option.map x.profileArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:ProfileName.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("phone", (Option.map x.phone ~f:Phone.to_value));
        ("businessName",
          (Option.map x.businessName ~f:BusinessName.to_value));
        ("logging", (Option.map x.logging ~f:Logging.to_value));
        ("logGroupName",
          (Option.map x.logGroupName ~f:LogGroupName.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let logGroupName =
        (Option.map ~f:LogGroupName.of_xml)
          (Xml.child xml_arg0 "logGroupName") in
      let logging =
        (Option.map ~f:Logging.of_xml) (Xml.child xml_arg0 "logging") in
      let businessName =
        (Option.map ~f:BusinessName.of_xml)
          (Xml.child xml_arg0 "businessName") in
      let phone = (Option.map ~f:Phone.of_xml) (Xml.child xml_arg0 "phone") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name =
        (Option.map ~f:ProfileName.of_xml) (Xml.child xml_arg0 "name") in
      let profileArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "profileArn") in
      let profileId =
        (Option.map ~f:ProfileId.of_xml) (Xml.child xml_arg0 "profileId") in
      make ?modifiedAt ?createdAt ?logGroupName ?logging ?businessName ?phone
        ?email ?name ?profileArn ?profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let logGroupName = field_map json__ "logGroupName" LogGroupName.of_json in
      let logging = field_map json__ "logging" Logging.of_json in
      let businessName = field_map json__ "businessName" BusinessName.of_json in
      let phone = field_map json__ "phone" Phone.of_json in
      let email = field_map json__ "email" Email.of_json in
      let name = field_map json__ "name" ProfileName.of_json in
      let profileArn = field_map json__ "profileArn" ResourceArn.of_json in
      let profileId = field_map json__ "profileId" ProfileId.of_json in
      make ?modifiedAt ?createdAt ?logGroupName ?logging ?businessName ?phone
        ?email ?name ?profileArn ?profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details for the profile specified by the profile ID. A profile is the mechanism used to create the concept of a private network."]
module GetProfileRequest =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t
        [@ocaml.doc
          "Specifies the unique, system-generated identifier for the profile."]}
    let context_ = "GetProfileRequest"
    let make ~profileId = fun () -> { profileId }
    let to_value x =
      structure_to_value
        [("profileId", (Some (ProfileId.to_value x.profileId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileId =
        ProfileId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileId") in
      make ~profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileId = field_map_exn json__ "profileId" ProfileId.of_json in
      make ~profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details for the profile specified by the profile ID. A profile is the mechanism used to create the concept of a private network."]
module GetPartnershipResponse =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for the profile connected to this partnership."];
      partnershipId: PartnershipId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for a partnership."];
      partnershipArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: PartnerName.t option
        [@ocaml.doc "Returns the display name of the partnership"];
      email: Email.t option
        [@ocaml.doc
          "Returns the email address associated with this trading partner."];
      phone: Phone.t option
        [@ocaml.doc
          "Returns the phone number associated with the partnership."];
      capabilities: PartnershipCapabilities.t option
        [@ocaml.doc
          "Returns one or more capabilities associated with this partnership."];
      capabilityOptions: CapabilityOptions.t option ;
      tradingPartnerId: TradingPartnerId.t option
        [@ocaml.doc
          "Returns the unique identifier for the partner for this partnership."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the partnership."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp that identifies the most recent date and time that the partnership was modified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileId =
      fun ?partnershipId ->
        fun ?partnershipArn ->
          fun ?name ->
            fun ?email ->
              fun ?phone ->
                fun ?capabilities ->
                  fun ?capabilityOptions ->
                    fun ?tradingPartnerId ->
                      fun ?createdAt ->
                        fun ?modifiedAt ->
                          fun () ->
                            {
                              profileId;
                              partnershipId;
                              partnershipArn;
                              name;
                              email;
                              phone;
                              capabilities;
                              capabilityOptions;
                              tradingPartnerId;
                              createdAt;
                              modifiedAt
                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("profileId", (Option.map x.profileId ~f:ProfileId.to_value));
        ("partnershipId",
          (Option.map x.partnershipId ~f:PartnershipId.to_value));
        ("partnershipArn",
          (Option.map x.partnershipArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:PartnerName.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("phone", (Option.map x.phone ~f:Phone.to_value));
        ("capabilities",
          (Option.map x.capabilities ~f:PartnershipCapabilities.to_value));
        ("capabilityOptions",
          (Option.map x.capabilityOptions ~f:CapabilityOptions.to_value));
        ("tradingPartnerId",
          (Option.map x.tradingPartnerId ~f:TradingPartnerId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let tradingPartnerId =
        (Option.map ~f:TradingPartnerId.of_xml)
          (Xml.child xml_arg0 "tradingPartnerId") in
      let capabilityOptions =
        (Option.map ~f:CapabilityOptions.of_xml)
          (Xml.child xml_arg0 "capabilityOptions") in
      let capabilities =
        (Option.map ~f:PartnershipCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      let phone = (Option.map ~f:Phone.of_xml) (Xml.child xml_arg0 "phone") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name =
        (Option.map ~f:PartnerName.of_xml) (Xml.child xml_arg0 "name") in
      let partnershipArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "partnershipArn") in
      let partnershipId =
        (Option.map ~f:PartnershipId.of_xml)
          (Xml.child xml_arg0 "partnershipId") in
      let profileId =
        (Option.map ~f:ProfileId.of_xml) (Xml.child xml_arg0 "profileId") in
      make ?modifiedAt ?createdAt ?tradingPartnerId ?capabilityOptions
        ?capabilities ?phone ?email ?name ?partnershipArn ?partnershipId
        ?profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let tradingPartnerId =
        field_map json__ "tradingPartnerId" TradingPartnerId.of_json in
      let capabilityOptions =
        field_map json__ "capabilityOptions" CapabilityOptions.of_json in
      let capabilities =
        field_map json__ "capabilities" PartnershipCapabilities.of_json in
      let phone = field_map json__ "phone" Phone.of_json in
      let email = field_map json__ "email" Email.of_json in
      let name = field_map json__ "name" PartnerName.of_json in
      let partnershipArn =
        field_map json__ "partnershipArn" ResourceArn.of_json in
      let partnershipId =
        field_map json__ "partnershipId" PartnershipId.of_json in
      let profileId = field_map json__ "profileId" ProfileId.of_json in
      make ?modifiedAt ?createdAt ?tradingPartnerId ?capabilityOptions
        ?capabilities ?phone ?email ?name ?partnershipArn ?partnershipId
        ?profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details for a partnership, based on the partner and profile IDs specified. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module GetPartnershipRequest =
  struct
    type nonrec t =
      {
      partnershipId: PartnershipId.t
        [@ocaml.doc
          "Specifies the unique, system-generated identifier for a partnership."]}
    let context_ = "GetPartnershipRequest"
    let make ~partnershipId = fun () -> { partnershipId }
    let to_value x =
      structure_to_value
        [("partnershipId", (Some (PartnershipId.to_value x.partnershipId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let partnershipId =
        PartnershipId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "partnershipId") in
      make ~partnershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let partnershipId =
        field_map_exn json__ "partnershipId" PartnershipId.of_json in
      make ~partnershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details for a partnership, based on the partner and profile IDs specified. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module GetCapabilityResponse =
  struct
    type nonrec t =
      {
      capabilityId: CapabilityId.t option
        [@ocaml.doc
          "Returns a system-assigned unique identifier for the capability."];
      capabilityArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: CapabilityName.t option
        [@ocaml.doc
          "Returns the name of the capability, used to identify it."];
      type_: CapabilityType.t option
        [@ocaml.doc
          "Returns the type of the capability. Currently, only edi is supported."];
      configuration: CapabilityConfiguration.t option
        [@ocaml.doc
          "Returns a structure that contains the details for a capability."];
      instructionsDocuments: InstructionsDocuments.t option
        [@ocaml.doc
          "Returns one or more locations in Amazon S3, each specifying an EDI document that can be used with this capability. Each item contains the name of the bucket and the key, to identify the document's location."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the capability."];
      modifiedAt: ModifiedDate.t option
        [@ocaml.doc
          "Returns a timestamp for last time the capability was modified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?capabilityId =
      fun ?capabilityArn ->
        fun ?name ->
          fun ?type_ ->
            fun ?configuration ->
              fun ?instructionsDocuments ->
                fun ?createdAt ->
                  fun ?modifiedAt ->
                    fun () ->
                      {
                        capabilityId;
                        capabilityArn;
                        name;
                        type_;
                        configuration;
                        instructionsDocuments;
                        createdAt;
                        modifiedAt
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("capabilityId",
           (Option.map x.capabilityId ~f:CapabilityId.to_value));
        ("capabilityArn",
          (Option.map x.capabilityArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:CapabilityName.to_value));
        ("type", (Option.map x.type_ ~f:CapabilityType.to_value));
        ("configuration",
          (Option.map x.configuration ~f:CapabilityConfiguration.to_value));
        ("instructionsDocuments",
          (Option.map x.instructionsDocuments
             ~f:InstructionsDocuments.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("modifiedAt", (Option.map x.modifiedAt ~f:ModifiedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedAt =
        (Option.map ~f:ModifiedDate.of_xml) (Xml.child xml_arg0 "modifiedAt") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let instructionsDocuments =
        (Option.map ~f:InstructionsDocuments.of_xml)
          (Xml.child xml_arg0 "instructionsDocuments") in
      let configuration =
        (Option.map ~f:CapabilityConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let type_ =
        (Option.map ~f:CapabilityType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:CapabilityName.of_xml) (Xml.child xml_arg0 "name") in
      let capabilityArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "capabilityArn") in
      let capabilityId =
        (Option.map ~f:CapabilityId.of_xml)
          (Xml.child xml_arg0 "capabilityId") in
      make ?modifiedAt ?createdAt ?instructionsDocuments ?configuration
        ?type_ ?name ?capabilityArn ?capabilityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedAt = field_map json__ "modifiedAt" ModifiedDate.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let instructionsDocuments =
        field_map json__ "instructionsDocuments"
          InstructionsDocuments.of_json in
      let configuration =
        field_map json__ "configuration" CapabilityConfiguration.of_json in
      let type_ = field_map json__ "type" CapabilityType.of_json in
      let name = field_map json__ "name" CapabilityName.of_json in
      let capabilityArn =
        field_map json__ "capabilityArn" ResourceArn.of_json in
      let capabilityId = field_map json__ "capabilityId" CapabilityId.of_json in
      make ?modifiedAt ?createdAt ?instructionsDocuments ?configuration
        ?type_ ?name ?capabilityArn ?capabilityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details for the specified capability. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module GetCapabilityRequest =
  struct
    type nonrec t =
      {
      capabilityId: CapabilityId.t
        [@ocaml.doc
          "Specifies a system-assigned unique identifier for the capability."]}
    let context_ = "GetCapabilityRequest"
    let make ~capabilityId = fun () -> { capabilityId }
    let to_value x =
      structure_to_value
        [("capabilityId", (Some (CapabilityId.to_value x.capabilityId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capabilityId =
        CapabilityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "capabilityId") in
      make ~capabilityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capabilityId =
        field_map_exn json__ "capabilityId" CapabilityId.of_json in
      make ~capabilityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details for the specified capability. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module GenerateMappingResponse =
  struct
    type nonrec t =
      {
      mappingTemplate: String_.t option
        [@ocaml.doc "Returns a mapping template based on your inputs."];
      mappingAccuracy: GenerateMappingResponseMappingAccuracyFloat.t option
        [@ocaml.doc
          "Returns a percentage that estimates the accuracy of the generated mapping."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mappingTemplate =
      fun ?mappingAccuracy -> fun () -> { mappingTemplate; mappingAccuracy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("mappingTemplate",
           (Option.map x.mappingTemplate ~f:String_.to_value));
        ("mappingAccuracy",
          (Option.map x.mappingAccuracy
             ~f:GenerateMappingResponseMappingAccuracyFloat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mappingAccuracy =
        (Option.map ~f:GenerateMappingResponseMappingAccuracyFloat.of_xml)
          (Xml.child xml_arg0 "mappingAccuracy") in
      let mappingTemplate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "mappingTemplate") in
      make ?mappingAccuracy ?mappingTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mappingAccuracy =
        field_map json__ "mappingAccuracy"
          GenerateMappingResponseMappingAccuracyFloat.of_json in
      let mappingTemplate =
        field_map json__ "mappingTemplate" String_.of_json in
      make ?mappingAccuracy ?mappingTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Takes sample input and output documents and uses Amazon Bedrock to generate a mapping automatically. Depending on the accuracy and other factors, you can then edit the mapping for your needs. Before you can use the AI-assisted feature for Amazon Web Services B2B Data Interchange you must enable models in Amazon Bedrock. For details, see AI-assisted template mapping prerequisites in the Amazon Web Services B2B Data Interchange User guide. To generate a mapping, perform the following steps: Start with an X12 EDI document to use as the input. Call TestMapping using your EDI document. Use the output from the TestMapping operation as either input or output for your GenerateMapping call, along with your sample file."]
module GenerateMappingRequest =
  struct
    type nonrec t =
      {
      inputFileContent: GenerateMappingInputFileContent.t
        [@ocaml.doc
          "Provide the contents of a sample X12 EDI file, either in JSON or XML format, to use as a starting point for the mapping."];
      outputFileContent: GenerateMappingOutputFileContent.t
        [@ocaml.doc
          "Provide the contents of a sample X12 EDI file, either in JSON or XML format, to use as a target for the mapping."];
      mappingType: MappingType.t
        [@ocaml.doc "Specify the mapping type: either JSONATA or XSLT."]}
    let context_ = "GenerateMappingRequest"
    let make ~inputFileContent =
      fun ~outputFileContent ->
        fun ~mappingType ->
          fun () -> { inputFileContent; outputFileContent; mappingType }
    let to_value x =
      structure_to_value
        [("inputFileContent",
           (Some
              (GenerateMappingInputFileContent.to_value x.inputFileContent)));
        ("outputFileContent",
          (Some
             (GenerateMappingOutputFileContent.to_value x.outputFileContent)));
        ("mappingType", (Some (MappingType.to_value x.mappingType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mappingType =
        MappingType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mappingType") in
      let outputFileContent =
        GenerateMappingOutputFileContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputFileContent") in
      let inputFileContent =
        GenerateMappingInputFileContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputFileContent") in
      make ~mappingType ~outputFileContent ~inputFileContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mappingType =
        field_map_exn json__ "mappingType" MappingType.of_json in
      let outputFileContent =
        field_map_exn json__ "outputFileContent"
          GenerateMappingOutputFileContent.of_json in
      let inputFileContent =
        field_map_exn json__ "inputFileContent"
          GenerateMappingInputFileContent.of_json in
      make ~mappingType ~outputFileContent ~inputFileContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Takes sample input and output documents and uses Amazon Bedrock to generate a mapping automatically. Depending on the accuracy and other factors, you can then edit the mapping for your needs. Before you can use the AI-assisted feature for Amazon Web Services B2B Data Interchange you must enable models in Amazon Bedrock. For details, see AI-assisted template mapping prerequisites in the Amazon Web Services B2B Data Interchange User guide. To generate a mapping, perform the following steps: Start with an X12 EDI document to use as the input. Call TestMapping using your EDI document. Use the output from the TestMapping operation as either input or output for your GenerateMapping call, along with your sample file."]
module DeleteTransformerRequest =
  struct
    type nonrec t =
      {
      transformerId: TransformerId.t
        [@ocaml.doc
          "Specifies the system-assigned unique identifier for the transformer."]}
    let context_ = "DeleteTransformerRequest"
    let make ~transformerId = fun () -> { transformerId }
    let to_value x =
      structure_to_value
        [("transformerId", (Some (TransformerId.to_value x.transformerId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transformerId =
        TransformerId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transformerId") in
      make ~transformerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transformerId =
        field_map_exn json__ "transformerId" TransformerId.of_json in
      make ~transformerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified transformer. A transformer can take an EDI file as input and transform it into a JSON-or XML-formatted document. Alternatively, a transformer can take a JSON-or XML-formatted document as input and transform it into an EDI file."]
module DeleteProfileRequest =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t
        [@ocaml.doc
          "Specifies the unique, system-generated identifier for the profile."]}
    let context_ = "DeleteProfileRequest"
    let make ~profileId = fun () -> { profileId }
    let to_value x =
      structure_to_value
        [("profileId", (Some (ProfileId.to_value x.profileId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileId =
        ProfileId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileId") in
      make ~profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileId = field_map_exn json__ "profileId" ProfileId.of_json in
      make ~profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified profile. A profile is the mechanism used to create the concept of a private network."]
module DeletePartnershipRequest =
  struct
    type nonrec t =
      {
      partnershipId: PartnershipId.t
        [@ocaml.doc
          "Specifies the unique, system-generated identifier for a partnership."]}
    let context_ = "DeletePartnershipRequest"
    let make ~partnershipId = fun () -> { partnershipId }
    let to_value x =
      structure_to_value
        [("partnershipId", (Some (PartnershipId.to_value x.partnershipId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let partnershipId =
        PartnershipId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "partnershipId") in
      make ~partnershipId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let partnershipId =
        field_map_exn json__ "partnershipId" PartnershipId.of_json in
      make ~partnershipId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified partnership. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module DeleteCapabilityRequest =
  struct
    type nonrec t =
      {
      capabilityId: CapabilityId.t
        [@ocaml.doc
          "Specifies a system-assigned unique identifier for the capability."]}
    let context_ = "DeleteCapabilityRequest"
    let make ~capabilityId = fun () -> { capabilityId }
    let to_value x =
      structure_to_value
        [("capabilityId", (Some (CapabilityId.to_value x.capabilityId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let capabilityId =
        CapabilityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "capabilityId") in
      make ~capabilityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let capabilityId =
        field_map_exn json__ "capabilityId" CapabilityId.of_json in
      make ~capabilityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified capability. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module CreateTransformerResponse =
  struct
    type nonrec t =
      {
      transformerId: TransformerId.t option
        [@ocaml.doc
          "Returns the system-assigned unique identifier for the transformer."];
      transformerArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: TransformerName.t option
        [@ocaml.doc
          "Returns the name of the transformer, used to identify it."];
      status: TransformerStatus.t option
        [@ocaml.doc
          "Returns the state of the newly created transformer. The transformer can be either active or inactive. For the transformer to be used in a capability, its status must active."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the transformer."];
      fileFormat: FileFormat.t option
        [@ocaml.doc
          "Returns that the currently supported file formats for EDI transformations are JSON and XML."];
      mappingTemplate: MappingTemplate.t option
        [@ocaml.doc
          "Returns the mapping template for the transformer. This template is used to map the parsed EDI file using JSONata or XSLT."];
      ediType: EdiType.t option
        [@ocaml.doc
          "Returns the details for the EDI standard that is being used for the transformer. Currently, only X12 is supported. X12 is a set of standards and corresponding messages that define specific business documents."];
      sampleDocument: FileLocation.t option
        [@ocaml.doc
          "Returns a sample EDI document that is used by a transformer as a guide for processing the EDI data."];
      inputConversion: InputConversion.t option
        [@ocaml.doc
          "Returns the InputConversion object, which contains the format options for the inbound transformation."];
      mapping: Mapping.t option
        [@ocaml.doc
          "Returns the structure that contains the mapping template and its language (either XSLT or JSONATA)."];
      outputConversion: OutputConversion.t option
        [@ocaml.doc
          "Returns the OutputConversion object, which contains the format options for the outbound transformation."];
      sampleDocuments: SampleDocuments.t option
        [@ocaml.doc
          "Returns a structure that contains the Amazon S3 bucket and an array of the corresponding keys used to identify the location for your sample documents."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?transformerId =
      fun ?transformerArn ->
        fun ?name ->
          fun ?status ->
            fun ?createdAt ->
              fun ?fileFormat ->
                fun ?mappingTemplate ->
                  fun ?ediType ->
                    fun ?sampleDocument ->
                      fun ?inputConversion ->
                        fun ?mapping ->
                          fun ?outputConversion ->
                            fun ?sampleDocuments ->
                              fun () ->
                                {
                                  transformerId;
                                  transformerArn;
                                  name;
                                  status;
                                  createdAt;
                                  fileFormat;
                                  mappingTemplate;
                                  ediType;
                                  sampleDocument;
                                  inputConversion;
                                  mapping;
                                  outputConversion;
                                  sampleDocuments
                                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("transformerId",
           (Option.map x.transformerId ~f:TransformerId.to_value));
        ("transformerArn",
          (Option.map x.transformerArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:TransformerName.to_value));
        ("status", (Option.map x.status ~f:TransformerStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value));
        ("fileFormat", (Option.map x.fileFormat ~f:FileFormat.to_value));
        ("mappingTemplate",
          (Option.map x.mappingTemplate ~f:MappingTemplate.to_value));
        ("ediType", (Option.map x.ediType ~f:EdiType.to_value));
        ("sampleDocument",
          (Option.map x.sampleDocument ~f:FileLocation.to_value));
        ("inputConversion",
          (Option.map x.inputConversion ~f:InputConversion.to_value));
        ("mapping", (Option.map x.mapping ~f:Mapping.to_value));
        ("outputConversion",
          (Option.map x.outputConversion ~f:OutputConversion.to_value));
        ("sampleDocuments",
          (Option.map x.sampleDocuments ~f:SampleDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sampleDocuments =
        (Option.map ~f:SampleDocuments.of_xml)
          (Xml.child xml_arg0 "sampleDocuments") in
      let outputConversion =
        (Option.map ~f:OutputConversion.of_xml)
          (Xml.child xml_arg0 "outputConversion") in
      let mapping =
        (Option.map ~f:Mapping.of_xml) (Xml.child xml_arg0 "mapping") in
      let inputConversion =
        (Option.map ~f:InputConversion.of_xml)
          (Xml.child xml_arg0 "inputConversion") in
      let sampleDocument =
        (Option.map ~f:FileLocation.of_xml)
          (Xml.child xml_arg0 "sampleDocument") in
      let ediType =
        (Option.map ~f:EdiType.of_xml) (Xml.child xml_arg0 "ediType") in
      let mappingTemplate =
        (Option.map ~f:MappingTemplate.of_xml)
          (Xml.child xml_arg0 "mappingTemplate") in
      let fileFormat =
        (Option.map ~f:FileFormat.of_xml) (Xml.child xml_arg0 "fileFormat") in
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:TransformerStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:TransformerName.of_xml) (Xml.child xml_arg0 "name") in
      let transformerArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "transformerArn") in
      let transformerId =
        (Option.map ~f:TransformerId.of_xml)
          (Xml.child xml_arg0 "transformerId") in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?createdAt
        ?status ?name ?transformerArn ?transformerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sampleDocuments =
        field_map json__ "sampleDocuments" SampleDocuments.of_json in
      let outputConversion =
        field_map json__ "outputConversion" OutputConversion.of_json in
      let mapping = field_map json__ "mapping" Mapping.of_json in
      let inputConversion =
        field_map json__ "inputConversion" InputConversion.of_json in
      let sampleDocument =
        field_map json__ "sampleDocument" FileLocation.of_json in
      let ediType = field_map json__ "ediType" EdiType.of_json in
      let mappingTemplate =
        field_map json__ "mappingTemplate" MappingTemplate.of_json in
      let fileFormat = field_map json__ "fileFormat" FileFormat.of_json in
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let status = field_map json__ "status" TransformerStatus.of_json in
      let name = field_map json__ "name" TransformerName.of_json in
      let transformerArn =
        field_map json__ "transformerArn" ResourceArn.of_json in
      let transformerId =
        field_map json__ "transformerId" TransformerId.of_json in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?createdAt
        ?status ?name ?transformerArn ?transformerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a transformer. Amazon Web Services B2B Data Interchange currently supports two scenarios: Inbound EDI: the Amazon Web Services customer receives an EDI file from their trading partner. Amazon Web Services B2B Data Interchange converts this EDI file into a JSON or XML file with a service-defined structure. A mapping template provided by the customer, in JSONata or XSLT format, is optionally applied to this file to produce a JSON or XML file with the structure the customer requires. Outbound EDI: the Amazon Web Services customer has a JSON or XML file containing data that they wish to use in an EDI file. A mapping template, provided by the customer (in either JSONata or XSLT format) is applied to this file to generate a JSON or XML file in the service-defined structure. This file is then converted to an EDI file. The following fields are provided for backwards compatibility only: fileFormat, mappingTemplate, ediType, and sampleDocument. Use the mapping data type in place of mappingTemplate and fileFormat Use the sampleDocuments data type in place of sampleDocument Use either the inputConversion or outputConversion in place of ediType"]
module CreateTransformerRequest =
  struct
    type nonrec t =
      {
      name: TransformerName.t
        [@ocaml.doc
          "Specifies the name of the transformer, used to identify it."];
      clientToken: String_.t option [@ocaml.doc "Reserved for future use."];
      tags: TagList.t option
        [@ocaml.doc
          "Specifies the key-value pairs assigned to ARNs that you can use to group and search for resources by type. You can attach this metadata to resources (capabilities, partnerships, and so on) for any purpose."];
      fileFormat: FileFormat.t option
        [@ocaml.doc
          "Specifies that the currently supported file formats for EDI transformations are JSON and XML."];
      mappingTemplate: MappingTemplate.t option
        [@ocaml.doc
          "Specifies the mapping template for the transformer. This template is used to map the parsed EDI file using JSONata or XSLT. This parameter is available for backwards compatibility. Use the Mapping data type instead."];
      ediType: EdiType.t option
        [@ocaml.doc
          "Specifies the details for the EDI standard that is being used for the transformer. Currently, only X12 is supported. X12 is a set of standards and corresponding messages that define specific business documents."];
      sampleDocument: FileLocation.t option
        [@ocaml.doc
          "Specifies a sample EDI document that is used by a transformer as a guide for processing the EDI data."];
      inputConversion: InputConversion.t option
        [@ocaml.doc
          "Specify the InputConversion object, which contains the format options for the inbound transformation."];
      mapping: Mapping.t option
        [@ocaml.doc
          "Specify the structure that contains the mapping template and its language (either XSLT or JSONATA)."];
      outputConversion: OutputConversion.t option
        [@ocaml.doc
          "A structure that contains the OutputConversion object, which contains the format options for the outbound transformation."];
      sampleDocuments: SampleDocuments.t option
        [@ocaml.doc
          "Specify a structure that contains the Amazon S3 bucket and an array of the corresponding keys used to identify the location for your sample documents."]}
    let context_ = "CreateTransformerRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ?fileFormat ->
          fun ?mappingTemplate ->
            fun ?ediType ->
              fun ?sampleDocument ->
                fun ?inputConversion ->
                  fun ?mapping ->
                    fun ?outputConversion ->
                      fun ?sampleDocuments ->
                        fun ~name ->
                          fun () ->
                            {
                              clientToken;
                              tags;
                              fileFormat;
                              mappingTemplate;
                              ediType;
                              sampleDocument;
                              inputConversion;
                              mapping;
                              outputConversion;
                              sampleDocuments;
                              name
                            }
    let to_value x =
      structure_to_value
        [("name", (Some (TransformerName.to_value x.name)));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value));
        ("fileFormat", (Option.map x.fileFormat ~f:FileFormat.to_value));
        ("mappingTemplate",
          (Option.map x.mappingTemplate ~f:MappingTemplate.to_value));
        ("ediType", (Option.map x.ediType ~f:EdiType.to_value));
        ("sampleDocument",
          (Option.map x.sampleDocument ~f:FileLocation.to_value));
        ("inputConversion",
          (Option.map x.inputConversion ~f:InputConversion.to_value));
        ("mapping", (Option.map x.mapping ~f:Mapping.to_value));
        ("outputConversion",
          (Option.map x.outputConversion ~f:OutputConversion.to_value));
        ("sampleDocuments",
          (Option.map x.sampleDocuments ~f:SampleDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sampleDocuments =
        (Option.map ~f:SampleDocuments.of_xml)
          (Xml.child xml_arg0 "sampleDocuments") in
      let outputConversion =
        (Option.map ~f:OutputConversion.of_xml)
          (Xml.child xml_arg0 "outputConversion") in
      let mapping =
        (Option.map ~f:Mapping.of_xml) (Xml.child xml_arg0 "mapping") in
      let inputConversion =
        (Option.map ~f:InputConversion.of_xml)
          (Xml.child xml_arg0 "inputConversion") in
      let sampleDocument =
        (Option.map ~f:FileLocation.of_xml)
          (Xml.child xml_arg0 "sampleDocument") in
      let ediType =
        (Option.map ~f:EdiType.of_xml) (Xml.child xml_arg0 "ediType") in
      let mappingTemplate =
        (Option.map ~f:MappingTemplate.of_xml)
          (Xml.child xml_arg0 "mappingTemplate") in
      let fileFormat =
        (Option.map ~f:FileFormat.of_xml) (Xml.child xml_arg0 "fileFormat") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let name =
        TransformerName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?tags
        ?clientToken ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sampleDocuments =
        field_map json__ "sampleDocuments" SampleDocuments.of_json in
      let outputConversion =
        field_map json__ "outputConversion" OutputConversion.of_json in
      let mapping = field_map json__ "mapping" Mapping.of_json in
      let inputConversion =
        field_map json__ "inputConversion" InputConversion.of_json in
      let sampleDocument =
        field_map json__ "sampleDocument" FileLocation.of_json in
      let ediType = field_map json__ "ediType" EdiType.of_json in
      let mappingTemplate =
        field_map json__ "mappingTemplate" MappingTemplate.of_json in
      let fileFormat = field_map json__ "fileFormat" FileFormat.of_json in
      let tags = field_map json__ "tags" TagList.of_json in
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let name = field_map_exn json__ "name" TransformerName.of_json in
      make ?sampleDocuments ?outputConversion ?mapping ?inputConversion
        ?sampleDocument ?ediType ?mappingTemplate ?fileFormat ?tags
        ?clientToken ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a transformer. Amazon Web Services B2B Data Interchange currently supports two scenarios: Inbound EDI: the Amazon Web Services customer receives an EDI file from their trading partner. Amazon Web Services B2B Data Interchange converts this EDI file into a JSON or XML file with a service-defined structure. A mapping template provided by the customer, in JSONata or XSLT format, is optionally applied to this file to produce a JSON or XML file with the structure the customer requires. Outbound EDI: the Amazon Web Services customer has a JSON or XML file containing data that they wish to use in an EDI file. A mapping template, provided by the customer (in either JSONata or XSLT format) is applied to this file to generate a JSON or XML file in the service-defined structure. This file is then converted to an EDI file. The following fields are provided for backwards compatibility only: fileFormat, mappingTemplate, ediType, and sampleDocument. Use the mapping data type in place of mappingTemplate and fileFormat Use the sampleDocuments data type in place of sampleDocument Use either the inputConversion or outputConversion in place of ediType"]
module CreateStarterMappingTemplateResponse =
  struct
    type nonrec t =
      {
      mappingTemplate: String_.t option
        [@ocaml.doc "Returns a string that represents the mapping template."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mappingTemplate = fun () -> { mappingTemplate }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("mappingTemplate",
           (Option.map x.mappingTemplate ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mappingTemplate =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "mappingTemplate") in
      make ?mappingTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mappingTemplate =
        field_map json__ "mappingTemplate" String_.of_json in
      make ?mappingTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Web Services B2B Data Interchange uses a mapping template in JSONata or XSLT format to transform a customer input file into a JSON or XML file that can be converted to EDI. If you provide a sample EDI file with the same structure as the EDI files that you wish to generate, then the service can generate a mapping template. The starter template contains placeholder values which you can replace with JSONata or XSLT expressions to take data from your input file and insert it into the JSON or XML file that is used to generate the EDI. If you do not provide a sample EDI file, then the service can generate a mapping template based on the EDI settings in the templateDetails parameter. Currently, we only support generating a template that can generate the input to produce an Outbound X12 EDI file."]
module CreateStarterMappingTemplateRequest =
  struct
    type nonrec t =
      {
      outputSampleLocation: S3Location.t option
        [@ocaml.doc
          "Specify the location of the sample EDI file that is used to generate the mapping template."];
      mappingType: MappingType.t
        [@ocaml.doc
          "Specify the format for the mapping template: either JSONATA or XSLT."];
      templateDetails: TemplateDetails.t
        [@ocaml.doc
          "Describes the details needed for generating the template. Specify the X12 transaction set and version for which the template is used: currently, we only support X12."]}
    let context_ = "CreateStarterMappingTemplateRequest"
    let make ?outputSampleLocation =
      fun ~mappingType ->
        fun ~templateDetails ->
          fun () -> { outputSampleLocation; mappingType; templateDetails }
    let to_value x =
      structure_to_value
        [("outputSampleLocation",
           (Option.map x.outputSampleLocation ~f:S3Location.to_value));
        ("mappingType", (Some (MappingType.to_value x.mappingType)));
        ("templateDetails",
          (Some (TemplateDetails.to_value x.templateDetails)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateDetails =
        TemplateDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateDetails") in
      let mappingType =
        MappingType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mappingType") in
      let outputSampleLocation =
        (Option.map ~f:S3Location.of_xml)
          (Xml.child xml_arg0 "outputSampleLocation") in
      make ~templateDetails ~mappingType ?outputSampleLocation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateDetails =
        field_map_exn json__ "templateDetails" TemplateDetails.of_json in
      let mappingType =
        field_map_exn json__ "mappingType" MappingType.of_json in
      let outputSampleLocation =
        field_map json__ "outputSampleLocation" S3Location.of_json in
      make ~templateDetails ~mappingType ?outputSampleLocation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon Web Services B2B Data Interchange uses a mapping template in JSONata or XSLT format to transform a customer input file into a JSON or XML file that can be converted to EDI. If you provide a sample EDI file with the same structure as the EDI files that you wish to generate, then the service can generate a mapping template. The starter template contains placeholder values which you can replace with JSONata or XSLT expressions to take data from your input file and insert it into the JSON or XML file that is used to generate the EDI. If you do not provide a sample EDI file, then the service can generate a mapping template based on the EDI settings in the templateDetails parameter. Currently, we only support generating a template that can generate the input to produce an Outbound X12 EDI file."]
module CreateProfileResponse =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for the profile."];
      profileArn: ResourceArn.t option
        [@ocaml.doc "Returns an Amazon Resource Name (ARN) for the profile."];
      name: ProfileName.t option
        [@ocaml.doc "Returns the name of the profile, used to identify it."];
      businessName: BusinessName.t option
        [@ocaml.doc
          "Returns the name for the business associated with this profile."];
      phone: Phone.t option
        [@ocaml.doc "Returns the phone number associated with the profile."];
      email: Email.t option
        [@ocaml.doc
          "Returns the email address associated with this customer profile."];
      logging: Logging.t option
        [@ocaml.doc
          "Returns whether or not logging is turned on for this profile."];
      logGroupName: LogGroupName.t option
        [@ocaml.doc "Returns the name of the logging group."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp representing the time the profile was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileId =
      fun ?profileArn ->
        fun ?name ->
          fun ?businessName ->
            fun ?phone ->
              fun ?email ->
                fun ?logging ->
                  fun ?logGroupName ->
                    fun ?createdAt ->
                      fun () ->
                        {
                          profileId;
                          profileArn;
                          name;
                          businessName;
                          phone;
                          email;
                          logging;
                          logGroupName;
                          createdAt
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("profileId", (Option.map x.profileId ~f:ProfileId.to_value));
        ("profileArn", (Option.map x.profileArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:ProfileName.to_value));
        ("businessName",
          (Option.map x.businessName ~f:BusinessName.to_value));
        ("phone", (Option.map x.phone ~f:Phone.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("logging", (Option.map x.logging ~f:Logging.to_value));
        ("logGroupName",
          (Option.map x.logGroupName ~f:LogGroupName.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let logGroupName =
        (Option.map ~f:LogGroupName.of_xml)
          (Xml.child xml_arg0 "logGroupName") in
      let logging =
        (Option.map ~f:Logging.of_xml) (Xml.child xml_arg0 "logging") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let phone = (Option.map ~f:Phone.of_xml) (Xml.child xml_arg0 "phone") in
      let businessName =
        (Option.map ~f:BusinessName.of_xml)
          (Xml.child xml_arg0 "businessName") in
      let name =
        (Option.map ~f:ProfileName.of_xml) (Xml.child xml_arg0 "name") in
      let profileArn =
        (Option.map ~f:ResourceArn.of_xml) (Xml.child xml_arg0 "profileArn") in
      let profileId =
        (Option.map ~f:ProfileId.of_xml) (Xml.child xml_arg0 "profileId") in
      make ?createdAt ?logGroupName ?logging ?email ?phone ?businessName
        ?name ?profileArn ?profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let logGroupName = field_map json__ "logGroupName" LogGroupName.of_json in
      let logging = field_map json__ "logging" Logging.of_json in
      let email = field_map json__ "email" Email.of_json in
      let phone = field_map json__ "phone" Phone.of_json in
      let businessName = field_map json__ "businessName" BusinessName.of_json in
      let name = field_map json__ "name" ProfileName.of_json in
      let profileArn = field_map json__ "profileArn" ResourceArn.of_json in
      let profileId = field_map json__ "profileId" ProfileId.of_json in
      make ?createdAt ?logGroupName ?logging ?email ?phone ?businessName
        ?name ?profileArn ?profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a customer profile. You can have up to five customer profiles, each representing a distinct private network. A profile is the mechanism used to create the concept of a private network."]
module CreateProfileRequest =
  struct
    type nonrec t =
      {
      name: ProfileName.t [@ocaml.doc "Specifies the name of the profile."];
      email: Email.t option
        [@ocaml.doc
          "Specifies the email address associated with this customer profile."];
      phone: Phone.t
        [@ocaml.doc
          "Specifies the phone number associated with the profile."];
      businessName: BusinessName.t
        [@ocaml.doc
          "Specifies the name for the business associated with this profile."];
      logging: Logging.t
        [@ocaml.doc
          "Specifies whether or not logging is enabled for this profile."];
      clientToken: String_.t option [@ocaml.doc "Reserved for future use."];
      tags: TagList.t option
        [@ocaml.doc
          "Specifies the key-value pairs assigned to ARNs that you can use to group and search for resources by type. You can attach this metadata to resources (capabilities, partnerships, and so on) for any purpose."]}
    let context_ = "CreateProfileRequest"
    let make ?email =
      fun ?clientToken ->
        fun ?tags ->
          fun ~name ->
            fun ~phone ->
              fun ~businessName ->
                fun ~logging ->
                  fun () ->
                    {
                      email;
                      clientToken;
                      tags;
                      name;
                      phone;
                      businessName;
                      logging
                    }
    let to_value x =
      structure_to_value
        [("name", (Some (ProfileName.to_value x.name)));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("phone", (Some (Phone.to_value x.phone)));
        ("businessName", (Some (BusinessName.to_value x.businessName)));
        ("logging", (Some (Logging.to_value x.logging)));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let logging =
        Logging.of_xml (Xml.child_exn ~context:context_ xml_arg0 "logging") in
      let businessName =
        BusinessName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "businessName") in
      let phone =
        Phone.of_xml (Xml.child_exn ~context:context_ xml_arg0 "phone") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name =
        ProfileName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?clientToken ~logging ~businessName ~phone ?email ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let logging = field_map_exn json__ "logging" Logging.of_json in
      let businessName =
        field_map_exn json__ "businessName" BusinessName.of_json in
      let phone = field_map_exn json__ "phone" Phone.of_json in
      let email = field_map json__ "email" Email.of_json in
      let name = field_map_exn json__ "name" ProfileName.of_json in
      make ?tags ?clientToken ~logging ~businessName ~phone ?email ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a customer profile. You can have up to five customer profiles, each representing a distinct private network. A profile is the mechanism used to create the concept of a private network."]
module CreatePartnershipResponse =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for the profile connected to this partnership."];
      partnershipId: PartnershipId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for a partnership."];
      partnershipArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: PartnerName.t option
        [@ocaml.doc "Returns a descriptive name for the partnership."];
      email: Email.t option
        [@ocaml.doc
          "Returns the email address associated with this trading partner."];
      phone: Phone.t option
        [@ocaml.doc
          "Returns the phone number associated with the partnership."];
      capabilities: PartnershipCapabilities.t option
        [@ocaml.doc
          "Returns one or more capabilities associated with this partnership."];
      capabilityOptions: CapabilityOptions.t option
        [@ocaml.doc
          "Returns the structure that contains the details for the associated capabilities."];
      tradingPartnerId: TradingPartnerId.t option
        [@ocaml.doc
          "Returns the unique, system-generated identifier for a trading partner."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the partnership."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileId =
      fun ?partnershipId ->
        fun ?partnershipArn ->
          fun ?name ->
            fun ?email ->
              fun ?phone ->
                fun ?capabilities ->
                  fun ?capabilityOptions ->
                    fun ?tradingPartnerId ->
                      fun ?createdAt ->
                        fun () ->
                          {
                            profileId;
                            partnershipId;
                            partnershipArn;
                            name;
                            email;
                            phone;
                            capabilities;
                            capabilityOptions;
                            tradingPartnerId;
                            createdAt
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("profileId", (Option.map x.profileId ~f:ProfileId.to_value));
        ("partnershipId",
          (Option.map x.partnershipId ~f:PartnershipId.to_value));
        ("partnershipArn",
          (Option.map x.partnershipArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:PartnerName.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("phone", (Option.map x.phone ~f:Phone.to_value));
        ("capabilities",
          (Option.map x.capabilities ~f:PartnershipCapabilities.to_value));
        ("capabilityOptions",
          (Option.map x.capabilityOptions ~f:CapabilityOptions.to_value));
        ("tradingPartnerId",
          (Option.map x.tradingPartnerId ~f:TradingPartnerId.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let tradingPartnerId =
        (Option.map ~f:TradingPartnerId.of_xml)
          (Xml.child xml_arg0 "tradingPartnerId") in
      let capabilityOptions =
        (Option.map ~f:CapabilityOptions.of_xml)
          (Xml.child xml_arg0 "capabilityOptions") in
      let capabilities =
        (Option.map ~f:PartnershipCapabilities.of_xml)
          (Xml.child xml_arg0 "capabilities") in
      let phone = (Option.map ~f:Phone.of_xml) (Xml.child xml_arg0 "phone") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name =
        (Option.map ~f:PartnerName.of_xml) (Xml.child xml_arg0 "name") in
      let partnershipArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "partnershipArn") in
      let partnershipId =
        (Option.map ~f:PartnershipId.of_xml)
          (Xml.child xml_arg0 "partnershipId") in
      let profileId =
        (Option.map ~f:ProfileId.of_xml) (Xml.child xml_arg0 "profileId") in
      make ?createdAt ?tradingPartnerId ?capabilityOptions ?capabilities
        ?phone ?email ?name ?partnershipArn ?partnershipId ?profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let tradingPartnerId =
        field_map json__ "tradingPartnerId" TradingPartnerId.of_json in
      let capabilityOptions =
        field_map json__ "capabilityOptions" CapabilityOptions.of_json in
      let capabilities =
        field_map json__ "capabilities" PartnershipCapabilities.of_json in
      let phone = field_map json__ "phone" Phone.of_json in
      let email = field_map json__ "email" Email.of_json in
      let name = field_map json__ "name" PartnerName.of_json in
      let partnershipArn =
        field_map json__ "partnershipArn" ResourceArn.of_json in
      let partnershipId =
        field_map json__ "partnershipId" PartnershipId.of_json in
      let profileId = field_map json__ "profileId" ProfileId.of_json in
      make ?createdAt ?tradingPartnerId ?capabilityOptions ?capabilities
        ?phone ?email ?name ?partnershipArn ?partnershipId ?profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a partnership between a customer and a trading partner, based on the supplied parameters. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module CreatePartnershipRequest =
  struct
    type nonrec t =
      {
      profileId: ProfileId.t
        [@ocaml.doc
          "Specifies the unique, system-generated identifier for the profile connected to this partnership."];
      name: PartnerName.t
        [@ocaml.doc "Specifies a descriptive name for the partnership."];
      email: Email.t
        [@ocaml.doc
          "Specifies the email address associated with this trading partner."];
      phone: Phone.t option
        [@ocaml.doc
          "Specifies the phone number associated with the partnership."];
      capabilities: PartnershipCapabilities.t
        [@ocaml.doc
          "Specifies a list of the capabilities associated with this partnership."];
      capabilityOptions: CapabilityOptions.t option
        [@ocaml.doc
          "Specify the structure that contains the details for the associated capabilities."];
      clientToken: String_.t option [@ocaml.doc "Reserved for future use."];
      tags: TagList.t option
        [@ocaml.doc
          "Specifies the key-value pairs assigned to ARNs that you can use to group and search for resources by type. You can attach this metadata to resources (capabilities, partnerships, and so on) for any purpose."]}
    let context_ = "CreatePartnershipRequest"
    let make ?phone =
      fun ?capabilityOptions ->
        fun ?clientToken ->
          fun ?tags ->
            fun ~profileId ->
              fun ~name ->
                fun ~email ->
                  fun ~capabilities ->
                    fun () ->
                      {
                        phone;
                        capabilityOptions;
                        clientToken;
                        tags;
                        profileId;
                        name;
                        email;
                        capabilities
                      }
    let to_value x =
      structure_to_value
        [("profileId", (Some (ProfileId.to_value x.profileId)));
        ("name", (Some (PartnerName.to_value x.name)));
        ("email", (Some (Email.to_value x.email)));
        ("phone", (Option.map x.phone ~f:Phone.to_value));
        ("capabilities",
          (Some (PartnershipCapabilities.to_value x.capabilities)));
        ("capabilityOptions",
          (Option.map x.capabilityOptions ~f:CapabilityOptions.to_value));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let capabilityOptions =
        (Option.map ~f:CapabilityOptions.of_xml)
          (Xml.child xml_arg0 "capabilityOptions") in
      let capabilities =
        PartnershipCapabilities.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "capabilities") in
      let phone = (Option.map ~f:Phone.of_xml) (Xml.child xml_arg0 "phone") in
      let email =
        Email.of_xml (Xml.child_exn ~context:context_ xml_arg0 "email") in
      let name =
        PartnerName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let profileId =
        ProfileId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileId") in
      make ?tags ?clientToken ?capabilityOptions ~capabilities ?phone ~email
        ~name ~profileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let capabilityOptions =
        field_map json__ "capabilityOptions" CapabilityOptions.of_json in
      let capabilities =
        field_map_exn json__ "capabilities" PartnershipCapabilities.of_json in
      let phone = field_map json__ "phone" Phone.of_json in
      let email = field_map_exn json__ "email" Email.of_json in
      let name = field_map_exn json__ "name" PartnerName.of_json in
      let profileId = field_map_exn json__ "profileId" ProfileId.of_json in
      make ?tags ?clientToken ?capabilityOptions ~capabilities ?phone ~email
        ~name ~profileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a partnership between a customer and a trading partner, based on the supplied parameters. A partnership represents the connection between you and your trading partner. It ties together a profile and one or more trading capabilities."]
module CreateCapabilityResponse =
  struct
    type nonrec t =
      {
      capabilityId: CapabilityId.t option
        [@ocaml.doc
          "Returns a system-assigned unique identifier for the capability."];
      capabilityArn: ResourceArn.t option
        [@ocaml.doc
          "Returns an Amazon Resource Name (ARN) for a specific Amazon Web Services resource, such as a capability, partnership, profile, or transformer."];
      name: CapabilityName.t option
        [@ocaml.doc
          "Returns the name of the capability used to identify it."];
      type_: CapabilityType.t option
        [@ocaml.doc
          "Returns the type of the capability. Currently, only edi is supported."];
      configuration: CapabilityConfiguration.t option
        [@ocaml.doc
          "Returns a structure that contains the details for a capability."];
      instructionsDocuments: InstructionsDocuments.t option
        [@ocaml.doc
          "Returns one or more locations in Amazon S3, each specifying an EDI document that can be used with this capability. Each item contains the name of the bucket and the key, to identify the document's location."];
      createdAt: CreatedDate.t option
        [@ocaml.doc
          "Returns a timestamp for creation date and time of the capability."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?capabilityId =
      fun ?capabilityArn ->
        fun ?name ->
          fun ?type_ ->
            fun ?configuration ->
              fun ?instructionsDocuments ->
                fun ?createdAt ->
                  fun () ->
                    {
                      capabilityId;
                      capabilityArn;
                      name;
                      type_;
                      configuration;
                      instructionsDocuments;
                      createdAt
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("capabilityId",
           (Option.map x.capabilityId ~f:CapabilityId.to_value));
        ("capabilityArn",
          (Option.map x.capabilityArn ~f:ResourceArn.to_value));
        ("name", (Option.map x.name ~f:CapabilityName.to_value));
        ("type", (Option.map x.type_ ~f:CapabilityType.to_value));
        ("configuration",
          (Option.map x.configuration ~f:CapabilityConfiguration.to_value));
        ("instructionsDocuments",
          (Option.map x.instructionsDocuments
             ~f:InstructionsDocuments.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreatedDate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "createdAt") in
      let instructionsDocuments =
        (Option.map ~f:InstructionsDocuments.of_xml)
          (Xml.child xml_arg0 "instructionsDocuments") in
      let configuration =
        (Option.map ~f:CapabilityConfiguration.of_xml)
          (Xml.child xml_arg0 "configuration") in
      let type_ =
        (Option.map ~f:CapabilityType.of_xml) (Xml.child xml_arg0 "type") in
      let name =
        (Option.map ~f:CapabilityName.of_xml) (Xml.child xml_arg0 "name") in
      let capabilityArn =
        (Option.map ~f:ResourceArn.of_xml)
          (Xml.child xml_arg0 "capabilityArn") in
      let capabilityId =
        (Option.map ~f:CapabilityId.of_xml)
          (Xml.child xml_arg0 "capabilityId") in
      make ?createdAt ?instructionsDocuments ?configuration ?type_ ?name
        ?capabilityArn ?capabilityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" CreatedDate.of_json in
      let instructionsDocuments =
        field_map json__ "instructionsDocuments"
          InstructionsDocuments.of_json in
      let configuration =
        field_map json__ "configuration" CapabilityConfiguration.of_json in
      let type_ = field_map json__ "type" CapabilityType.of_json in
      let name = field_map json__ "name" CapabilityName.of_json in
      let capabilityArn =
        field_map json__ "capabilityArn" ResourceArn.of_json in
      let capabilityId = field_map json__ "capabilityId" CapabilityId.of_json in
      make ?createdAt ?instructionsDocuments ?configuration ?type_ ?name
        ?capabilityArn ?capabilityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Instantiates a capability based on the specified parameters. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]
module CreateCapabilityRequest =
  struct
    type nonrec t =
      {
      name: CapabilityName.t
        [@ocaml.doc
          "Specifies the name of the capability, used to identify it."];
      type_: CapabilityType.t
        [@ocaml.doc
          "Specifies the type of the capability. Currently, only edi is supported."];
      configuration: CapabilityConfiguration.t
        [@ocaml.doc
          "Specifies a structure that contains the details for a capability."];
      instructionsDocuments: InstructionsDocuments.t option
        [@ocaml.doc
          "Specifies one or more locations in Amazon S3, each specifying an EDI document that can be used with this capability. Each item contains the name of the bucket and the key, to identify the document's location."];
      clientToken: String_.t option [@ocaml.doc "Reserved for future use."];
      tags: TagList.t option
        [@ocaml.doc
          "Specifies the key-value pairs assigned to ARNs that you can use to group and search for resources by type. You can attach this metadata to resources (capabilities, partnerships, and so on) for any purpose."]}
    let context_ = "CreateCapabilityRequest"
    let make ?instructionsDocuments =
      fun ?clientToken ->
        fun ?tags ->
          fun ~name ->
            fun ~type_ ->
              fun ~configuration ->
                fun () ->
                  {
                    instructionsDocuments;
                    clientToken;
                    tags;
                    name;
                    type_;
                    configuration
                  }
    let to_value x =
      structure_to_value
        [("name", (Some (CapabilityName.to_value x.name)));
        ("type", (Some (CapabilityType.to_value x.type_)));
        ("configuration",
          (Some (CapabilityConfiguration.to_value x.configuration)));
        ("instructionsDocuments",
          (Option.map x.instructionsDocuments
             ~f:InstructionsDocuments.to_value));
        ("clientToken", (Option.map x.clientToken ~f:String_.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "clientToken") in
      let instructionsDocuments =
        (Option.map ~f:InstructionsDocuments.of_xml)
          (Xml.child xml_arg0 "instructionsDocuments") in
      let configuration =
        CapabilityConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "configuration") in
      let type_ =
        CapabilityType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        CapabilityName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?tags ?clientToken ?instructionsDocuments ~configuration ~type_
        ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let clientToken = field_map json__ "clientToken" String_.of_json in
      let instructionsDocuments =
        field_map json__ "instructionsDocuments"
          InstructionsDocuments.of_json in
      let configuration =
        field_map_exn json__ "configuration" CapabilityConfiguration.of_json in
      let type_ = field_map_exn json__ "type" CapabilityType.of_json in
      let name = field_map_exn json__ "name" CapabilityName.of_json in
      make ?tags ?clientToken ?instructionsDocuments ~configuration ~type_
        ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Instantiates a capability based on the specified parameters. A trading capability contains the information required to transform incoming EDI documents into JSON or XML outputs."]