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.healthlake
let apiVersion = "2017-07-01"
let endpointPrefix = "healthlake"
let serviceFullName = "Amazon HealthLake"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "HealthLake"
let targetPrefix = "HealthLake"
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 EncryptionKeyID =
  struct
    type nonrec t = string
    let context_ = "EncryptionKeyID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:400) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(arn:aws((-us-gov)|(-iso)|(-iso-b)|(-cn))?:kms:)?([a-z]{2}-[a-z]+(-[a-z]+)?-\\d:)?(\\d{12}:)?(((key/)?[a-zA-Z0-9-_]+)|(alias/[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:"EncryptionKeyID" j
    let to_json = simple_to_json to_value
  end
module S3Uri =
  struct
    type nonrec t = string
    let context_ = "S3Uri"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"s3://[a-z0-9][\\.\\-a-z0-9]{1,61}[a-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:"S3Uri" j
    let to_json = simple_to_json to_value
  end
module CmkType =
  struct
    type nonrec t =
      | CUSTOMER_MANAGED_KMS_KEY 
      | AWS_OWNED_KMS_KEY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUSTOMER_MANAGED_KMS_KEY -> "CUSTOMER_MANAGED_KMS_KEY"
      | AWS_OWNED_KMS_KEY -> "AWS_OWNED_KMS_KEY"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUSTOMER_MANAGED_KMS_KEY" -> CUSTOMER_MANAGED_KMS_KEY
      | "AWS_OWNED_KMS_KEY" -> AWS_OWNED_KMS_KEY
      | 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 CmkType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CmkType" j)
    let to_json = simple_to_json to_value
  end
module GenericDouble =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double 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 double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module GenericLong =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module S3Configuration =
  struct
    type nonrec t =
      {
      s3Uri: S3Uri.t
        [@ocaml.doc
          "The S3Uri is the user-specified S3 location of the FHIR data to be imported into AWS HealthLake."];
      kmsKeyId: EncryptionKeyID.t
        [@ocaml.doc
          "The Key Management Service (KMS) key ID used to access the S3 bucket."]}
    let context_ = "S3Configuration"
    let make ~s3Uri = fun ~kmsKeyId -> fun () -> { s3Uri; kmsKeyId }
    let to_value x =
      structure_to_value
        [("S3Uri", (Some (S3Uri.to_value x.s3Uri)));
        ("KmsKeyId", (Some (EncryptionKeyID.to_value x.kmsKeyId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyId =
        EncryptionKeyID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KmsKeyId") in
      let s3Uri =
        S3Uri.of_xml (Xml.child_exn ~context:context_ xml_arg0 "S3Uri") in
      make ~kmsKeyId ~s3Uri ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyId = field_map_exn json__ "KmsKeyId" EncryptionKeyID.of_json in
      let s3Uri = field_map_exn json__ "S3Uri" S3Uri.of_json in
      make ~kmsKeyId ~s3Uri ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The configuration of the S3 bucket for either an import or export job. This includes assigning access permissions."]
module ErrorCategory =
  struct
    type nonrec t =
      | RETRYABLE_ERROR 
      | NON_RETRYABLE_ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RETRYABLE_ERROR -> "RETRYABLE_ERROR"
      | NON_RETRYABLE_ERROR -> "NON_RETRYABLE_ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "RETRYABLE_ERROR" -> RETRYABLE_ERROR
      | "NON_RETRYABLE_ERROR" -> NON_RETRYABLE_ERROR
      | 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 ErrorCategory" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ErrorCategory" 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:4096) >>=
             (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:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module AuthorizationStrategy =
  struct
    type nonrec t =
      | SMART_ON_FHIR_V1 
      | SMART_ON_FHIR 
      | AWS_AUTH 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SMART_ON_FHIR_V1 -> "SMART_ON_FHIR_V1"
      | SMART_ON_FHIR -> "SMART_ON_FHIR"
      | AWS_AUTH -> "AWS_AUTH"
      | Non_static_id s -> s
    let of_string =
      function
      | "SMART_ON_FHIR_V1" -> SMART_ON_FHIR_V1
      | "SMART_ON_FHIR" -> SMART_ON_FHIR
      | "AWS_AUTH" -> AWS_AUTH
      | 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 AuthorizationStrategy" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AuthorizationStrategy" j)
    let to_json = simple_to_json to_value
  end
module Boolean =
  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 ConfigurationMetadata =
  struct
    type nonrec t = string
    let context_ = "ConfigurationMetadata"
    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:"ConfigurationMetadata" j
    let to_json = simple_to_json to_value
  end
module LambdaArn =
  struct
    type nonrec t = string
    let context_ = "LambdaArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:49) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:lambda:[a-z]{2}-[a-z]+-\\d{1}:\\d{12}:function:[a-zA-Z0-9\\-_\\.]+(:(\\$LATEST|[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:"LambdaArn" j
    let to_json = simple_to_json to_value
  end
module PreloadDataType =
  struct
    type nonrec t =
      | SYNTHEA 
      | Non_static_id of string 
    let make i = i
    let to_string = function | SYNTHEA -> "SYNTHEA" | Non_static_id s -> s
    let of_string = function | "SYNTHEA" -> SYNTHEA | 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 PreloadDataType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PreloadDataType" j)
    let to_json = simple_to_json to_value
  end
module KmsEncryptionConfig =
  struct
    type nonrec t =
      {
      cmkType: CmkType.t
        [@ocaml.doc
          "The type of customer-managed-key (CMK) used for encryption."];
      kmsKeyId: EncryptionKeyID.t option
        [@ocaml.doc
          "The Key Management Service (KMS) encryption key id/alias used to encrypt the data store contents at rest."]}
    let context_ = "KmsEncryptionConfig"
    let make ?kmsKeyId = fun ~cmkType -> fun () -> { kmsKeyId; cmkType }
    let to_value x =
      structure_to_value
        [("CmkType", (Some (CmkType.to_value x.cmkType)));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:EncryptionKeyID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyId =
        (Option.map ~f:EncryptionKeyID.of_xml)
          (Xml.child xml_arg0 "KmsKeyId") in
      let cmkType =
        CmkType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "CmkType") in
      make ?kmsKeyId ~cmkType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyId = field_map json__ "KmsKeyId" EncryptionKeyID.of_json in
      let cmkType = field_map_exn json__ "CmkType" CmkType.of_json in
      make ?kmsKeyId ~cmkType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The customer-managed-key (CMK) used when creating a data store. If a customer-owned key is not specified, an AWS-owned key is used for encryption."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$")));
        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_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$")));
        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 DatastoreId =
  struct
    type nonrec t = string
    let context_ = "DatastoreId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-%@]*)$")));
        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:"DatastoreId" j
    let to_json = simple_to_json to_value
  end
module IamRoleArn =
  struct
    type nonrec t = string
    let context_ = "IamRoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(-[^:]+)?:iam::[0-9]{12}:role/.+")));
        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:"IamRoleArn" j
    let to_json = simple_to_json to_value
  end
module InputDataConfig =
  struct
    type nonrec t =
      {
      s3Uri: S3Uri.t option
        [@ocaml.doc
          "The S3Uri is the user-specified S3 location of the FHIR data to be imported into AWS HealthLake."]}
    let make ?s3Uri = fun () -> { s3Uri }
    let to_value x =
      structure_to_value [("S3Uri", (Option.map x.s3Uri ~f:S3Uri.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Uri = (Option.map ~f:S3Uri.of_xml) (Xml.child xml_arg0 "S3Uri") in
      make ?s3Uri ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Uri = field_map json__ "S3Uri" S3Uri.of_json in make ?s3Uri ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The import job input properties."]
module JobId =
  struct
    type nonrec t = string
    let context_ = "JobId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-%@]*)$")));
        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:"JobId" j
    let to_json = simple_to_json to_value
  end
module JobName =
  struct
    type nonrec t = string
    let context_ = "JobName"
    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:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-%@]*)$")));
        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:"JobName" j
    let to_json = simple_to_json to_value
  end
module JobProgressReport =
  struct
    type nonrec t =
      {
      totalNumberOfScannedFiles: GenericLong.t option
        [@ocaml.doc "The number of files scanned from the S3 input bucket."];
      totalSizeOfScannedFilesInMB: GenericDouble.t option
        [@ocaml.doc
          "The size (in MB) of files scanned from the S3 input bucket."];
      totalNumberOfImportedFiles: GenericLong.t option
        [@ocaml.doc "The number of files imported."];
      totalNumberOfResourcesScanned: GenericLong.t option
        [@ocaml.doc
          "The number of resources scanned from the S3 input bucket."];
      totalNumberOfResourcesImported: GenericLong.t option
        [@ocaml.doc "The number of resources imported."];
      totalNumberOfResourcesWithCustomerError: GenericLong.t option
        [@ocaml.doc
          "The number of resources that failed due to customer error."];
      totalNumberOfFilesReadWithCustomerError: GenericLong.t option
        [@ocaml.doc
          "The number of files that failed to be read from the S3 input bucket due to customer error."];
      throughput: GenericDouble.t option
        [@ocaml.doc "The transaction rate the import job is processed at."]}
    let make ?totalNumberOfScannedFiles =
      fun ?totalSizeOfScannedFilesInMB ->
        fun ?totalNumberOfImportedFiles ->
          fun ?totalNumberOfResourcesScanned ->
            fun ?totalNumberOfResourcesImported ->
              fun ?totalNumberOfResourcesWithCustomerError ->
                fun ?totalNumberOfFilesReadWithCustomerError ->
                  fun ?throughput ->
                    fun () ->
                      {
                        totalNumberOfScannedFiles;
                        totalSizeOfScannedFilesInMB;
                        totalNumberOfImportedFiles;
                        totalNumberOfResourcesScanned;
                        totalNumberOfResourcesImported;
                        totalNumberOfResourcesWithCustomerError;
                        totalNumberOfFilesReadWithCustomerError;
                        throughput
                      }
    let to_value x =
      structure_to_value
        [("TotalNumberOfScannedFiles",
           (Option.map x.totalNumberOfScannedFiles ~f:GenericLong.to_value));
        ("TotalSizeOfScannedFilesInMB",
          (Option.map x.totalSizeOfScannedFilesInMB ~f:GenericDouble.to_value));
        ("TotalNumberOfImportedFiles",
          (Option.map x.totalNumberOfImportedFiles ~f:GenericLong.to_value));
        ("TotalNumberOfResourcesScanned",
          (Option.map x.totalNumberOfResourcesScanned ~f:GenericLong.to_value));
        ("TotalNumberOfResourcesImported",
          (Option.map x.totalNumberOfResourcesImported
             ~f:GenericLong.to_value));
        ("TotalNumberOfResourcesWithCustomerError",
          (Option.map x.totalNumberOfResourcesWithCustomerError
             ~f:GenericLong.to_value));
        ("TotalNumberOfFilesReadWithCustomerError",
          (Option.map x.totalNumberOfFilesReadWithCustomerError
             ~f:GenericLong.to_value));
        ("Throughput", (Option.map x.throughput ~f:GenericDouble.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let throughput =
        (Option.map ~f:GenericDouble.of_xml)
          (Xml.child xml_arg0 "Throughput") in
      let totalNumberOfFilesReadWithCustomerError =
        (Option.map ~f:GenericLong.of_xml)
          (Xml.child xml_arg0 "TotalNumberOfFilesReadWithCustomerError") in
      let totalNumberOfResourcesWithCustomerError =
        (Option.map ~f:GenericLong.of_xml)
          (Xml.child xml_arg0 "TotalNumberOfResourcesWithCustomerError") in
      let totalNumberOfResourcesImported =
        (Option.map ~f:GenericLong.of_xml)
          (Xml.child xml_arg0 "TotalNumberOfResourcesImported") in
      let totalNumberOfResourcesScanned =
        (Option.map ~f:GenericLong.of_xml)
          (Xml.child xml_arg0 "TotalNumberOfResourcesScanned") in
      let totalNumberOfImportedFiles =
        (Option.map ~f:GenericLong.of_xml)
          (Xml.child xml_arg0 "TotalNumberOfImportedFiles") in
      let totalSizeOfScannedFilesInMB =
        (Option.map ~f:GenericDouble.of_xml)
          (Xml.child xml_arg0 "TotalSizeOfScannedFilesInMB") in
      let totalNumberOfScannedFiles =
        (Option.map ~f:GenericLong.of_xml)
          (Xml.child xml_arg0 "TotalNumberOfScannedFiles") in
      make ?throughput ?totalNumberOfFilesReadWithCustomerError
        ?totalNumberOfResourcesWithCustomerError
        ?totalNumberOfResourcesImported ?totalNumberOfResourcesScanned
        ?totalNumberOfImportedFiles ?totalSizeOfScannedFilesInMB
        ?totalNumberOfScannedFiles ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let throughput = field_map json__ "Throughput" GenericDouble.of_json in
      let totalNumberOfFilesReadWithCustomerError =
        field_map json__ "TotalNumberOfFilesReadWithCustomerError"
          GenericLong.of_json in
      let totalNumberOfResourcesWithCustomerError =
        field_map json__ "TotalNumberOfResourcesWithCustomerError"
          GenericLong.of_json in
      let totalNumberOfResourcesImported =
        field_map json__ "TotalNumberOfResourcesImported" GenericLong.of_json in
      let totalNumberOfResourcesScanned =
        field_map json__ "TotalNumberOfResourcesScanned" GenericLong.of_json in
      let totalNumberOfImportedFiles =
        field_map json__ "TotalNumberOfImportedFiles" GenericLong.of_json in
      let totalSizeOfScannedFilesInMB =
        field_map json__ "TotalSizeOfScannedFilesInMB" GenericDouble.of_json in
      let totalNumberOfScannedFiles =
        field_map json__ "TotalNumberOfScannedFiles" GenericLong.of_json in
      make ?throughput ?totalNumberOfFilesReadWithCustomerError
        ?totalNumberOfResourcesWithCustomerError
        ?totalNumberOfResourcesImported ?totalNumberOfResourcesScanned
        ?totalNumberOfImportedFiles ?totalSizeOfScannedFilesInMB
        ?totalNumberOfScannedFiles ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The progress report for the import job."]
module JobStatus =
  struct
    type nonrec t =
      | SUBMITTED 
      | QUEUED 
      | IN_PROGRESS 
      | COMPLETED_WITH_ERRORS 
      | COMPLETED 
      | FAILED 
      | CANCEL_SUBMITTED 
      | CANCEL_IN_PROGRESS 
      | CANCEL_COMPLETED 
      | CANCEL_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUBMITTED -> "SUBMITTED"
      | QUEUED -> "QUEUED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED_WITH_ERRORS -> "COMPLETED_WITH_ERRORS"
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | CANCEL_SUBMITTED -> "CANCEL_SUBMITTED"
      | CANCEL_IN_PROGRESS -> "CANCEL_IN_PROGRESS"
      | CANCEL_COMPLETED -> "CANCEL_COMPLETED"
      | CANCEL_FAILED -> "CANCEL_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUBMITTED" -> SUBMITTED
      | "QUEUED" -> QUEUED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED_WITH_ERRORS" -> COMPLETED_WITH_ERRORS
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | "CANCEL_SUBMITTED" -> CANCEL_SUBMITTED
      | "CANCEL_IN_PROGRESS" -> CANCEL_IN_PROGRESS
      | "CANCEL_COMPLETED" -> CANCEL_COMPLETED
      | "CANCEL_FAILED" -> CANCEL_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 JobStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobStatus" j)
    let to_json = simple_to_json to_value
  end
module Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-%@]*)$")));
        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:"Message" j
    let to_json = simple_to_json to_value
  end
module OutputDataConfig =
  struct
    type nonrec t =
      {
      s3Configuration: S3Configuration.t option
        [@ocaml.doc
          "The output data configuration supplied when the export job was created."]}
    let make ?s3Configuration = fun () -> { s3Configuration }
    let to_value x =
      structure_to_value
        [("S3Configuration",
           (Option.map x.s3Configuration ~f:S3Configuration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Configuration =
        (Option.map ~f:S3Configuration.of_xml)
          (Xml.child xml_arg0 "S3Configuration") in
      make ?s3Configuration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Configuration =
        field_map json__ "S3Configuration" S3Configuration.of_json in
      make ?s3Configuration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The output data configuration supplied when the export job was created."]
module Timestamp =
  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 ValidationLevel =
  struct
    type nonrec t =
      | Strict 
      | Structure_only 
      | Minimal 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Strict -> "strict"
      | Structure_only -> "structure-only"
      | Minimal -> "minimal"
      | Non_static_id s -> s
    let of_string =
      function
      | "strict" -> Strict
      | "structure-only" -> Structure_only
      | "minimal" -> Minimal
      | 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 ValidationLevel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ValidationLevel" j)
    let to_json = simple_to_json to_value
  end
module DatastoreArn =
  struct
    type nonrec t = string
    let context_ = "DatastoreArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^arn:aws((-us-gov)|(-iso)|(-iso-b)|(-cn))?:healthlake:[a-zA-Z0-9-]+:[0-9]{12}:datastore/.+?");
        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:"DatastoreArn" j
    let to_json = simple_to_json to_value
  end
module DatastoreName =
  struct
    type nonrec t = string
    let context_ = "DatastoreName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-%@]*)$")));
        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:"DatastoreName" j
    let to_json = simple_to_json to_value
  end
module DatastoreStatus =
  struct
    type nonrec t =
      | CREATING 
      | ACTIVE 
      | DELETING 
      | DELETED 
      | CREATE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | ACTIVE -> "ACTIVE"
      | DELETING -> "DELETING"
      | DELETED -> "DELETED"
      | CREATE_FAILED -> "CREATE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "ACTIVE" -> ACTIVE
      | "DELETING" -> DELETING
      | "DELETED" -> DELETED
      | "CREATE_FAILED" -> CREATE_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 DatastoreStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DatastoreStatus" j)
    let to_json = simple_to_json to_value
  end
module ErrorCause =
  struct
    type nonrec t =
      {
      errorMessage: ErrorMessage.t option
        [@ocaml.doc "The error message text for ErrorCause."];
      errorCategory: ErrorCategory.t option
        [@ocaml.doc "The error category for ErrorCause."]}
    let make ?errorMessage =
      fun ?errorCategory -> fun () -> { errorMessage; errorCategory }
    let to_value x =
      structure_to_value
        [("ErrorMessage",
           (Option.map x.errorMessage ~f:ErrorMessage.to_value));
        ("ErrorCategory",
          (Option.map x.errorCategory ~f:ErrorCategory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCategory =
        (Option.map ~f:ErrorCategory.of_xml)
          (Xml.child xml_arg0 "ErrorCategory") in
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      make ?errorCategory ?errorMessage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCategory =
        field_map json__ "ErrorCategory" ErrorCategory.of_json in
      let errorMessage = field_map json__ "ErrorMessage" ErrorMessage.of_json in
      make ?errorCategory ?errorMessage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The error information for CreateFHIRDatastore and DeleteFHIRDatastore actions."]
module FHIRVersion =
  struct
    type nonrec t =
      | R4 
      | Non_static_id of string 
    let make i = i
    let to_string = function | R4 -> "R4" | Non_static_id s -> s
    let of_string = function | "R4" -> R4 | 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 FHIRVersion" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FHIRVersion" j)
    let to_json = simple_to_json to_value
  end
module IdentityProviderConfiguration =
  struct
    type nonrec t =
      {
      authorizationStrategy: AuthorizationStrategy.t
        [@ocaml.doc
          "The authorization strategy selected when the HealthLake data store is created. HealthLake provides support for both SMART on FHIR V1 and V2 as described below. SMART_ON_FHIR_V1 \226\128\147 Support for only SMART on FHIR V1, which includes read (read/search) and write (create/update/delete) permissions. SMART_ON_FHIR \226\128\147 Support for both SMART on FHIR V1 and V2, which includes create, read, update, delete, and search permissions. AWS_AUTH \226\128\147 The default HealthLake authorization strategy; not affiliated with SMART on FHIR."];
      fineGrainedAuthorizationEnabled: Boolean.t option
        [@ocaml.doc
          "The parameter to enable SMART on FHIR fine-grained authorization for the data store."];
      metadata: ConfigurationMetadata.t option
        [@ocaml.doc
          "The JSON metadata elements to use in your identity provider configuration. Required elements are listed based on the launch specification of the SMART application. For more information on all possible elements, see Metadata in SMART's App Launch specification. authorization_endpoint: The URL to the OAuth2 authorization endpoint. grant_types_supported: An array of grant types that are supported at the token endpoint. You must provide at least one grant type option. Valid options are authorization_code and client_credentials. token_endpoint: The URL to the OAuth2 token endpoint. capabilities: An array of strings of the SMART capabilities that the authorization server supports. code_challenge_methods_supported: An array of strings of supported PKCE code challenge methods. You must include the S256 method in the array of PKCE code challenge methods."];
      idpLambdaArn: LambdaArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Lambda function to use to decode the access token created by the authorization server."]}
    let context_ = "IdentityProviderConfiguration"
    let make ?fineGrainedAuthorizationEnabled =
      fun ?metadata ->
        fun ?idpLambdaArn ->
          fun ~authorizationStrategy ->
            fun () ->
              {
                fineGrainedAuthorizationEnabled;
                metadata;
                idpLambdaArn;
                authorizationStrategy
              }
    let to_value x =
      structure_to_value
        [("AuthorizationStrategy",
           (Some (AuthorizationStrategy.to_value x.authorizationStrategy)));
        ("FineGrainedAuthorizationEnabled",
          (Option.map x.fineGrainedAuthorizationEnabled ~f:Boolean.to_value));
        ("Metadata",
          (Option.map x.metadata ~f:ConfigurationMetadata.to_value));
        ("IdpLambdaArn", (Option.map x.idpLambdaArn ~f:LambdaArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let idpLambdaArn =
        (Option.map ~f:LambdaArn.of_xml) (Xml.child xml_arg0 "IdpLambdaArn") in
      let metadata =
        (Option.map ~f:ConfigurationMetadata.of_xml)
          (Xml.child xml_arg0 "Metadata") in
      let fineGrainedAuthorizationEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "FineGrainedAuthorizationEnabled") in
      let authorizationStrategy =
        AuthorizationStrategy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AuthorizationStrategy") in
      make ?idpLambdaArn ?metadata ?fineGrainedAuthorizationEnabled
        ~authorizationStrategy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let idpLambdaArn = field_map json__ "IdpLambdaArn" LambdaArn.of_json in
      let metadata =
        field_map json__ "Metadata" ConfigurationMetadata.of_json in
      let fineGrainedAuthorizationEnabled =
        field_map json__ "FineGrainedAuthorizationEnabled" Boolean.of_json in
      let authorizationStrategy =
        field_map_exn json__ "AuthorizationStrategy"
          AuthorizationStrategy.of_json in
      make ?idpLambdaArn ?metadata ?fineGrainedAuthorizationEnabled
        ~authorizationStrategy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The identity provider configuration selected when the data store was created."]
module PreloadDataConfig =
  struct
    type nonrec t =
      {
      preloadDataType: PreloadDataType.t
        [@ocaml.doc
          "The type of preloaded data. Only Synthea preloaded data is supported."]}
    let context_ = "PreloadDataConfig"
    let make ~preloadDataType = fun () -> { preloadDataType }
    let to_value x =
      structure_to_value
        [("PreloadDataType",
           (Some (PreloadDataType.to_value x.preloadDataType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let preloadDataType =
        PreloadDataType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PreloadDataType") in
      make ~preloadDataType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let preloadDataType =
        field_map_exn json__ "PreloadDataType" PreloadDataType.of_json in
      make ~preloadDataType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input properties for the preloaded (Synthea) data store."]
module SseConfiguration =
  struct
    type nonrec t =
      {
      kmsEncryptionConfig: KmsEncryptionConfig.t
        [@ocaml.doc
          "The Key Management Service (KMS) encryption configuration used to provide details for data encryption."]}
    let context_ = "SseConfiguration"
    let make ~kmsEncryptionConfig = fun () -> { kmsEncryptionConfig }
    let to_value x =
      structure_to_value
        [("KmsEncryptionConfig",
           (Some (KmsEncryptionConfig.to_value x.kmsEncryptionConfig)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsEncryptionConfig =
        KmsEncryptionConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "KmsEncryptionConfig") in
      make ~kmsEncryptionConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsEncryptionConfig =
        field_map_exn json__ "KmsEncryptionConfig"
          KmsEncryptionConfig.of_json in
      make ~kmsEncryptionConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The server-side encryption key configuration for a customer-provided encryption key."]
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (fun () -> check_pattern i ~pattern:"[\\P{M}\\p{M}]{0,10000}"));
        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 Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc "The key portion of a tag. Tag keys are case sensitive."];
      value: TagValue.t
        [@ocaml.doc
          "The value portion of a tag. Tag values are case-sensitive."]}
    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
       "A label consisting of a user-defined key and value. The form for tags is \\{\"Key\", \"Value\"\\}"]
module ImportJobProperties =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The import job identifier."];
      jobName: JobName.t option [@ocaml.doc "The import job name."];
      jobStatus: JobStatus.t option [@ocaml.doc "The import job status."];
      submitTime: Timestamp.t option
        [@ocaml.doc "The time the import job was submitted for processing."];
      endTime: Timestamp.t option
        [@ocaml.doc "The time the import job was completed."];
      datastoreId: DatastoreId.t option
        [@ocaml.doc "The data store identifier."];
      inputDataConfig: InputDataConfig.t option
        [@ocaml.doc
          "The input data configuration supplied when the import job was created."];
      jobOutputDataConfig: OutputDataConfig.t option ;
      jobProgressReport: JobProgressReport.t option
        [@ocaml.doc
          "Displays the progress of the import job, including total resources scanned, total resources imported, and total size of data imported."];
      dataAccessRoleArn: IamRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that grants AWS HealthLake access to the input data."];
      message: Message.t option
        [@ocaml.doc
          "An explanation of any errors that might have occurred during the FHIR import job."];
      validationLevel: ValidationLevel.t option
        [@ocaml.doc "The validation level of the import job."]}
    let make ?jobId =
      fun ?jobName ->
        fun ?jobStatus ->
          fun ?submitTime ->
            fun ?endTime ->
              fun ?datastoreId ->
                fun ?inputDataConfig ->
                  fun ?jobOutputDataConfig ->
                    fun ?jobProgressReport ->
                      fun ?dataAccessRoleArn ->
                        fun ?message ->
                          fun ?validationLevel ->
                            fun () ->
                              {
                                jobId;
                                jobName;
                                jobStatus;
                                submitTime;
                                endTime;
                                datastoreId;
                                inputDataConfig;
                                jobOutputDataConfig;
                                jobProgressReport;
                                dataAccessRoleArn;
                                message;
                                validationLevel
                              }
    let to_value x =
      structure_to_value
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("JobName", (Option.map x.jobName ~f:JobName.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("SubmitTime", (Option.map x.submitTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("DatastoreId", (Option.map x.datastoreId ~f:DatastoreId.to_value));
        ("InputDataConfig",
          (Option.map x.inputDataConfig ~f:InputDataConfig.to_value));
        ("JobOutputDataConfig",
          (Option.map x.jobOutputDataConfig ~f:OutputDataConfig.to_value));
        ("JobProgressReport",
          (Option.map x.jobProgressReport ~f:JobProgressReport.to_value));
        ("DataAccessRoleArn",
          (Option.map x.dataAccessRoleArn ~f:IamRoleArn.to_value));
        ("Message", (Option.map x.message ~f:Message.to_value));
        ("ValidationLevel",
          (Option.map x.validationLevel ~f:ValidationLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationLevel =
        (Option.map ~f:ValidationLevel.of_xml)
          (Xml.child xml_arg0 "ValidationLevel") in
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      let dataAccessRoleArn =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "DataAccessRoleArn") in
      let jobProgressReport =
        (Option.map ~f:JobProgressReport.of_xml)
          (Xml.child xml_arg0 "JobProgressReport") in
      let jobOutputDataConfig =
        (Option.map ~f:OutputDataConfig.of_xml)
          (Xml.child xml_arg0 "JobOutputDataConfig") in
      let inputDataConfig =
        (Option.map ~f:InputDataConfig.of_xml)
          (Xml.child xml_arg0 "InputDataConfig") in
      let datastoreId =
        (Option.map ~f:DatastoreId.of_xml) (Xml.child xml_arg0 "DatastoreId") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let submitTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "SubmitTime") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let jobName =
        (Option.map ~f:JobName.of_xml) (Xml.child xml_arg0 "JobName") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?validationLevel ?message ?dataAccessRoleArn ?jobProgressReport
        ?jobOutputDataConfig ?inputDataConfig ?datastoreId ?endTime
        ?submitTime ?jobStatus ?jobName ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationLevel =
        field_map json__ "ValidationLevel" ValidationLevel.of_json in
      let message = field_map json__ "Message" Message.of_json in
      let dataAccessRoleArn =
        field_map json__ "DataAccessRoleArn" IamRoleArn.of_json in
      let jobProgressReport =
        field_map json__ "JobProgressReport" JobProgressReport.of_json in
      let jobOutputDataConfig =
        field_map json__ "JobOutputDataConfig" OutputDataConfig.of_json in
      let inputDataConfig =
        field_map json__ "InputDataConfig" InputDataConfig.of_json in
      let datastoreId = field_map json__ "DatastoreId" DatastoreId.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let submitTime = field_map json__ "SubmitTime" Timestamp.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let jobName = field_map json__ "JobName" JobName.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?validationLevel ?message ?dataAccessRoleArn ?jobProgressReport
        ?jobOutputDataConfig ?inputDataConfig ?datastoreId ?endTime
        ?submitTime ?jobStatus ?jobName ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The import job properties."]
module ExportJobProperties =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The export job identifier."];
      jobName: JobName.t option [@ocaml.doc "The export job name."];
      jobStatus: JobStatus.t option [@ocaml.doc "The export job status."];
      submitTime: Timestamp.t option
        [@ocaml.doc "The time the export job was initiated."];
      endTime: Timestamp.t option
        [@ocaml.doc "The time the export job completed."];
      datastoreId: DatastoreId.t option
        [@ocaml.doc
          "The data store identifier from which files are being exported."];
      outputDataConfig: OutputDataConfig.t option
        [@ocaml.doc
          "The output data configuration supplied when the export job was created."];
      dataAccessRoleArn: IamRoleArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) used during the initiation of the export job."];
      message: Message.t option
        [@ocaml.doc
          "An explanation of any errors that might have occurred during the export job."]}
    let make ?jobId =
      fun ?jobName ->
        fun ?jobStatus ->
          fun ?submitTime ->
            fun ?endTime ->
              fun ?datastoreId ->
                fun ?outputDataConfig ->
                  fun ?dataAccessRoleArn ->
                    fun ?message ->
                      fun () ->
                        {
                          jobId;
                          jobName;
                          jobStatus;
                          submitTime;
                          endTime;
                          datastoreId;
                          outputDataConfig;
                          dataAccessRoleArn;
                          message
                        }
    let to_value x =
      structure_to_value
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("JobName", (Option.map x.jobName ~f:JobName.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("SubmitTime", (Option.map x.submitTime ~f:Timestamp.to_value));
        ("EndTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("DatastoreId", (Option.map x.datastoreId ~f:DatastoreId.to_value));
        ("OutputDataConfig",
          (Option.map x.outputDataConfig ~f:OutputDataConfig.to_value));
        ("DataAccessRoleArn",
          (Option.map x.dataAccessRoleArn ~f:IamRoleArn.to_value));
        ("Message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "Message") in
      let dataAccessRoleArn =
        (Option.map ~f:IamRoleArn.of_xml)
          (Xml.child xml_arg0 "DataAccessRoleArn") in
      let outputDataConfig =
        (Option.map ~f:OutputDataConfig.of_xml)
          (Xml.child xml_arg0 "OutputDataConfig") in
      let datastoreId =
        (Option.map ~f:DatastoreId.of_xml) (Xml.child xml_arg0 "DatastoreId") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "EndTime") in
      let submitTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "SubmitTime") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let jobName =
        (Option.map ~f:JobName.of_xml) (Xml.child xml_arg0 "JobName") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?message ?dataAccessRoleArn ?outputDataConfig ?datastoreId
        ?endTime ?submitTime ?jobStatus ?jobName ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Message.of_json in
      let dataAccessRoleArn =
        field_map json__ "DataAccessRoleArn" IamRoleArn.of_json in
      let outputDataConfig =
        field_map json__ "OutputDataConfig" OutputDataConfig.of_json in
      let datastoreId = field_map json__ "DatastoreId" DatastoreId.of_json in
      let endTime = field_map json__ "EndTime" Timestamp.of_json in
      let submitTime = field_map json__ "SubmitTime" Timestamp.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let jobName = field_map json__ "JobName" JobName.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?message ?dataAccessRoleArn ?outputDataConfig ?datastoreId
        ?endTime ?submitTime ?jobStatus ?jobName ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The properties of a FHIR export job."]
module DatastoreProperties =
  struct
    type nonrec t =
      {
      datastoreId: DatastoreId.t option
        [@ocaml.doc "The data store identifier."];
      datastoreArn: DatastoreArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) used in the creation of the data store."];
      datastoreName: DatastoreName.t option
        [@ocaml.doc "The data store name."];
      datastoreStatus: DatastoreStatus.t option
        [@ocaml.doc "The data store status."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The time the data store was created."];
      datastoreTypeVersion: FHIRVersion.t option
        [@ocaml.doc
          "The FHIR release version supported by the data store. Current support is for version R4."];
      datastoreEndpoint: String_.t option
        [@ocaml.doc "The AWS endpoint for the data store."];
      sseConfiguration: SseConfiguration.t option
        [@ocaml.doc
          "The server-side encryption key configuration for a customer provided encryption key."];
      preloadDataConfig: PreloadDataConfig.t option
        [@ocaml.doc
          "The preloaded Synthea data configuration for the data store."];
      identityProviderConfiguration: IdentityProviderConfiguration.t option
        [@ocaml.doc
          "The identity provider selected during data store creation."];
      errorCause: ErrorCause.t option
        [@ocaml.doc "The error cause for the current data store operation."]}
    let make ?datastoreId =
      fun ?datastoreArn ->
        fun ?datastoreName ->
          fun ?datastoreStatus ->
            fun ?createdAt ->
              fun ?datastoreTypeVersion ->
                fun ?datastoreEndpoint ->
                  fun ?sseConfiguration ->
                    fun ?preloadDataConfig ->
                      fun ?identityProviderConfiguration ->
                        fun ?errorCause ->
                          fun () ->
                            {
                              datastoreId;
                              datastoreArn;
                              datastoreName;
                              datastoreStatus;
                              createdAt;
                              datastoreTypeVersion;
                              datastoreEndpoint;
                              sseConfiguration;
                              preloadDataConfig;
                              identityProviderConfiguration;
                              errorCause
                            }
    let to_value x =
      structure_to_value
        [("DatastoreId", (Option.map x.datastoreId ~f:DatastoreId.to_value));
        ("DatastoreArn",
          (Option.map x.datastoreArn ~f:DatastoreArn.to_value));
        ("DatastoreName",
          (Option.map x.datastoreName ~f:DatastoreName.to_value));
        ("DatastoreStatus",
          (Option.map x.datastoreStatus ~f:DatastoreStatus.to_value));
        ("CreatedAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("DatastoreTypeVersion",
          (Option.map x.datastoreTypeVersion ~f:FHIRVersion.to_value));
        ("DatastoreEndpoint",
          (Option.map x.datastoreEndpoint ~f:String_.to_value));
        ("SseConfiguration",
          (Option.map x.sseConfiguration ~f:SseConfiguration.to_value));
        ("PreloadDataConfig",
          (Option.map x.preloadDataConfig ~f:PreloadDataConfig.to_value));
        ("IdentityProviderConfiguration",
          (Option.map x.identityProviderConfiguration
             ~f:IdentityProviderConfiguration.to_value));
        ("ErrorCause", (Option.map x.errorCause ~f:ErrorCause.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCause =
        (Option.map ~f:ErrorCause.of_xml) (Xml.child xml_arg0 "ErrorCause") in
      let identityProviderConfiguration =
        (Option.map ~f:IdentityProviderConfiguration.of_xml)
          (Xml.child xml_arg0 "IdentityProviderConfiguration") in
      let preloadDataConfig =
        (Option.map ~f:PreloadDataConfig.of_xml)
          (Xml.child xml_arg0 "PreloadDataConfig") in
      let sseConfiguration =
        (Option.map ~f:SseConfiguration.of_xml)
          (Xml.child xml_arg0 "SseConfiguration") in
      let datastoreEndpoint =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DatastoreEndpoint") in
      let datastoreTypeVersion =
        (Option.map ~f:FHIRVersion.of_xml)
          (Xml.child xml_arg0 "DatastoreTypeVersion") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreatedAt") in
      let datastoreStatus =
        (Option.map ~f:DatastoreStatus.of_xml)
          (Xml.child xml_arg0 "DatastoreStatus") in
      let datastoreName =
        (Option.map ~f:DatastoreName.of_xml)
          (Xml.child xml_arg0 "DatastoreName") in
      let datastoreArn =
        (Option.map ~f:DatastoreArn.of_xml)
          (Xml.child xml_arg0 "DatastoreArn") in
      let datastoreId =
        (Option.map ~f:DatastoreId.of_xml) (Xml.child xml_arg0 "DatastoreId") in
      make ?errorCause ?identityProviderConfiguration ?preloadDataConfig
        ?sseConfiguration ?datastoreEndpoint ?datastoreTypeVersion ?createdAt
        ?datastoreStatus ?datastoreName ?datastoreArn ?datastoreId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCause = field_map json__ "ErrorCause" ErrorCause.of_json in
      let identityProviderConfiguration =
        field_map json__ "IdentityProviderConfiguration"
          IdentityProviderConfiguration.of_json in
      let preloadDataConfig =
        field_map json__ "PreloadDataConfig" PreloadDataConfig.of_json in
      let sseConfiguration =
        field_map json__ "SseConfiguration" SseConfiguration.of_json in
      let datastoreEndpoint =
        field_map json__ "DatastoreEndpoint" String_.of_json in
      let datastoreTypeVersion =
        field_map json__ "DatastoreTypeVersion" FHIRVersion.of_json in
      let createdAt = field_map json__ "CreatedAt" Timestamp.of_json in
      let datastoreStatus =
        field_map json__ "DatastoreStatus" DatastoreStatus.of_json in
      let datastoreName =
        field_map json__ "DatastoreName" DatastoreName.of_json in
      let datastoreArn = field_map json__ "DatastoreArn" DatastoreArn.of_json in
      let datastoreId = field_map json__ "DatastoreId" DatastoreId.of_json in
      make ?errorCause ?identityProviderConfiguration ?preloadDataConfig
        ?sseConfiguration ?datastoreEndpoint ?datastoreTypeVersion ?createdAt
        ?datastoreStatus ?datastoreName ?datastoreArn ?datastoreId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The data store properties."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The requested data store was not found."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The user input parameter was invalid."]
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:aws((-us-gov)|(-iso)|(-iso-b)|(-cn))?:healthlake:[a-z0-9-]+:\\d{12}:datastore\\/fhir\\/.{32}")));
        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 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 AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Access is denied. Your account is not authorized to perform this operation."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An unknown internal error occurred in the service."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user has exceeded their maximum number of allowed calls to the given API."]
module ClientTokenString =
  struct
    type nonrec t = string
    let context_ = "ClientTokenString"
    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:"ClientTokenString" j
    let to_json = simple_to_json to_value
  end
module ImportJobPropertiesList =
  struct
    type nonrec t = ImportJobProperties.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:ImportJobProperties.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:ImportJobProperties.of_xml)
    let of_json j =
      list_of_json ~kind:"ImportJobPropertiesList"
        ~of_json:ImportJobProperties.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8192) >>=
             (fun () -> check_pattern i ~pattern:"\\p{ASCII}{0,8192}"));
        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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module MaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:500) >>= (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 MaxResultsInteger" 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 ExportJobPropertiesList =
  struct
    type nonrec t = ExportJobProperties.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:ExportJobProperties.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:ExportJobProperties.of_xml)
    let of_json j =
      list_of_json ~kind:"ExportJobPropertiesList"
        ~of_json:ExportJobProperties.of_json j
    let to_json v = composed_to_json to_value v
  end
module DatastorePropertiesList =
  struct
    type nonrec t = DatastoreProperties.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:DatastoreProperties.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:DatastoreProperties.of_xml)
    let of_json j =
      list_of_json ~kind:"DatastorePropertiesList"
        ~of_json:DatastoreProperties.of_json j
    let to_json v = composed_to_json to_value v
  end
module DatastoreFilter =
  struct
    type nonrec t =
      {
      datastoreName: DatastoreName.t option
        [@ocaml.doc "Filter data store results by name."];
      datastoreStatus: DatastoreStatus.t option
        [@ocaml.doc "Filter data store results by status."];
      createdBefore: Timestamp.t option
        [@ocaml.doc
          "Filter to set cutoff dates for records. All data stores created before the specified date are included in the results."];
      createdAfter: Timestamp.t option
        [@ocaml.doc
          "Filter to set cutoff dates for records. All data stores created after the specified date are included in the results."]}
    let make ?datastoreName =
      fun ?datastoreStatus ->
        fun ?createdBefore ->
          fun ?createdAfter ->
            fun () ->
              { datastoreName; datastoreStatus; createdBefore; createdAfter }
    let to_value x =
      structure_to_value
        [("DatastoreName",
           (Option.map x.datastoreName ~f:DatastoreName.to_value));
        ("DatastoreStatus",
          (Option.map x.datastoreStatus ~f:DatastoreStatus.to_value));
        ("CreatedBefore", (Option.map x.createdBefore ~f:Timestamp.to_value));
        ("CreatedAfter", (Option.map x.createdAfter ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAfter =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreatedAfter") in
      let createdBefore =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreatedBefore") in
      let datastoreStatus =
        (Option.map ~f:DatastoreStatus.of_xml)
          (Xml.child xml_arg0 "DatastoreStatus") in
      let datastoreName =
        (Option.map ~f:DatastoreName.of_xml)
          (Xml.child xml_arg0 "DatastoreName") in
      make ?createdAfter ?createdBefore ?datastoreStatus ?datastoreName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAfter = field_map json__ "CreatedAfter" Timestamp.of_json in
      let createdBefore = field_map json__ "CreatedBefore" Timestamp.of_json in
      let datastoreStatus =
        field_map json__ "DatastoreStatus" DatastoreStatus.of_json in
      let datastoreName =
        field_map json__ "DatastoreName" DatastoreName.of_json in
      make ?createdAfter ?createdBefore ?datastoreStatus ?datastoreName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The filters applied to a data store query."]
module BoundedLengthString =
  struct
    type nonrec t = string
    let context_ = "BoundedLengthString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:5000) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[\\P{M}\\p{M}]{1,5000}")));
        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:"BoundedLengthString" j
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_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
      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" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The data store is in a transition state and the user requested action cannot be performed."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Remove a user-specifed key and value tag from a data store."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the data store from which tags are being removed."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The keys for the tags to be removed from the data store."]}
    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
       "Remove a user-specifed key and value tag from a data store."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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 of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Add a user-specifed key and value tag to a data store."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that grants access to the data store tags are being added to."];
      tags: TagList.t
        [@ocaml.doc
          "The user-specified key and value pair tags being added to a data store."]}
    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 "Add a user-specifed key and value tag to a data store."]
module StartFHIRImportJobResponse =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The import job identifier."];
      jobStatus: JobStatus.t option [@ocaml.doc "The import job status."];
      datastoreId: DatastoreId.t option
        [@ocaml.doc "The data store identifier."]}
    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 ?jobId =
      fun ?jobStatus ->
        fun ?datastoreId -> fun () -> { jobId; jobStatus; datastoreId }
    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
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("DatastoreId", (Option.map x.datastoreId ~f:DatastoreId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datastoreId =
        (Option.map ~f:DatastoreId.of_xml) (Xml.child xml_arg0 "DatastoreId") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?datastoreId ?jobStatus ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datastoreId = field_map json__ "DatastoreId" DatastoreId.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?datastoreId ?jobStatus ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Start importing bulk FHIR data into an ACTIVE data store. The import job imports FHIR data found in the InputDataConfig object and stores processing results in the JobOutputDataConfig object."]
module StartFHIRImportJobRequest =
  struct
    type nonrec t =
      {
      jobName: JobName.t option [@ocaml.doc "The import job name."];
      inputDataConfig: InputDataConfig.t
        [@ocaml.doc "The input properties for the import job request."];
      jobOutputDataConfig: OutputDataConfig.t ;
      datastoreId: DatastoreId.t [@ocaml.doc "The data store identifier."];
      dataAccessRoleArn: IamRoleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that grants access permission to AWS HealthLake."];
      clientToken: ClientTokenString.t option
        [@ocaml.doc
          "The optional user-provided token used for ensuring API idempotency."];
      validationLevel: ValidationLevel.t option
        [@ocaml.doc "The validation level of the import job."]}
    let context_ = "StartFHIRImportJobRequest"
    let make ?jobName =
      fun ?clientToken ->
        fun ?validationLevel ->
          fun ~inputDataConfig ->
            fun ~jobOutputDataConfig ->
              fun ~datastoreId ->
                fun ~dataAccessRoleArn ->
                  fun () ->
                    {
                      jobName;
                      clientToken;
                      validationLevel;
                      inputDataConfig;
                      jobOutputDataConfig;
                      datastoreId;
                      dataAccessRoleArn
                    }
    let to_value x =
      structure_to_value
        [("JobName", (Option.map x.jobName ~f:JobName.to_value));
        ("InputDataConfig",
          (Some (InputDataConfig.to_value x.inputDataConfig)));
        ("JobOutputDataConfig",
          (Some (OutputDataConfig.to_value x.jobOutputDataConfig)));
        ("DatastoreId", (Some (DatastoreId.to_value x.datastoreId)));
        ("DataAccessRoleArn",
          (Some (IamRoleArn.to_value x.dataAccessRoleArn)));
        ("ClientToken",
          (Option.map x.clientToken ~f:ClientTokenString.to_value));
        ("ValidationLevel",
          (Option.map x.validationLevel ~f:ValidationLevel.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let validationLevel =
        (Option.map ~f:ValidationLevel.of_xml)
          (Xml.child xml_arg0 "ValidationLevel") in
      let clientToken =
        (Option.map ~f:ClientTokenString.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      let dataAccessRoleArn =
        IamRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DataAccessRoleArn") in
      let datastoreId =
        DatastoreId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatastoreId") in
      let jobOutputDataConfig =
        OutputDataConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "JobOutputDataConfig") in
      let inputDataConfig =
        InputDataConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InputDataConfig") in
      let jobName =
        (Option.map ~f:JobName.of_xml) (Xml.child xml_arg0 "JobName") in
      make ?validationLevel ?clientToken ~dataAccessRoleArn ~datastoreId
        ~jobOutputDataConfig ~inputDataConfig ?jobName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let validationLevel =
        field_map json__ "ValidationLevel" ValidationLevel.of_json in
      let clientToken =
        field_map json__ "ClientToken" ClientTokenString.of_json in
      let dataAccessRoleArn =
        field_map_exn json__ "DataAccessRoleArn" IamRoleArn.of_json in
      let datastoreId =
        field_map_exn json__ "DatastoreId" DatastoreId.of_json in
      let jobOutputDataConfig =
        field_map_exn json__ "JobOutputDataConfig" OutputDataConfig.of_json in
      let inputDataConfig =
        field_map_exn json__ "InputDataConfig" InputDataConfig.of_json in
      let jobName = field_map json__ "JobName" JobName.of_json in
      make ?validationLevel ?clientToken ~dataAccessRoleArn ~datastoreId
        ~jobOutputDataConfig ~inputDataConfig ?jobName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Start importing bulk FHIR data into an ACTIVE data store. The import job imports FHIR data found in the InputDataConfig object and stores processing results in the JobOutputDataConfig object."]
module StartFHIRExportJobResponse =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The export job identifier."];
      jobStatus: JobStatus.t option [@ocaml.doc "The export job status."];
      datastoreId: DatastoreId.t option
        [@ocaml.doc
          "The data store identifier from which files are being exported."]}
    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 ?jobId =
      fun ?jobStatus ->
        fun ?datastoreId -> fun () -> { jobId; jobStatus; datastoreId }
    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
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("DatastoreId", (Option.map x.datastoreId ~f:DatastoreId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datastoreId =
        (Option.map ~f:DatastoreId.of_xml) (Xml.child xml_arg0 "DatastoreId") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?datastoreId ?jobStatus ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datastoreId = field_map json__ "DatastoreId" DatastoreId.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?datastoreId ?jobStatus ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Start a FHIR export job."]
module StartFHIRExportJobRequest =
  struct
    type nonrec t =
      {
      jobName: JobName.t option [@ocaml.doc "The export job name."];
      outputDataConfig: OutputDataConfig.t
        [@ocaml.doc
          "The output data configuration supplied when the export job was started."];
      datastoreId: DatastoreId.t
        [@ocaml.doc
          "The data store identifier from which files are being exported."];
      dataAccessRoleArn: IamRoleArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) used during initiation of the export job."];
      clientToken: ClientTokenString.t option
        [@ocaml.doc
          "An optional user provided token used for ensuring API idempotency."]}
    let context_ = "StartFHIRExportJobRequest"
    let make ?jobName =
      fun ?clientToken ->
        fun ~outputDataConfig ->
          fun ~datastoreId ->
            fun ~dataAccessRoleArn ->
              fun () ->
                {
                  jobName;
                  clientToken;
                  outputDataConfig;
                  datastoreId;
                  dataAccessRoleArn
                }
    let to_value x =
      structure_to_value
        [("JobName", (Option.map x.jobName ~f:JobName.to_value));
        ("OutputDataConfig",
          (Some (OutputDataConfig.to_value x.outputDataConfig)));
        ("DatastoreId", (Some (DatastoreId.to_value x.datastoreId)));
        ("DataAccessRoleArn",
          (Some (IamRoleArn.to_value x.dataAccessRoleArn)));
        ("ClientToken",
          (Option.map x.clientToken ~f:ClientTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientTokenString.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      let dataAccessRoleArn =
        IamRoleArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DataAccessRoleArn") in
      let datastoreId =
        DatastoreId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatastoreId") in
      let outputDataConfig =
        OutputDataConfig.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OutputDataConfig") in
      let jobName =
        (Option.map ~f:JobName.of_xml) (Xml.child xml_arg0 "JobName") in
      make ?clientToken ~dataAccessRoleArn ~datastoreId ~outputDataConfig
        ?jobName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken =
        field_map json__ "ClientToken" ClientTokenString.of_json in
      let dataAccessRoleArn =
        field_map_exn json__ "DataAccessRoleArn" IamRoleArn.of_json in
      let datastoreId =
        field_map_exn json__ "DatastoreId" DatastoreId.of_json in
      let outputDataConfig =
        field_map_exn json__ "OutputDataConfig" OutputDataConfig.of_json in
      let jobName = field_map json__ "JobName" JobName.of_json in
      make ?clientToken ~dataAccessRoleArn ~datastoreId ~outputDataConfig
        ?jobName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Start a FHIR export job."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc "Returns a list of tags associated with a data store."]}
    type nonrec error =
      [ `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
      | "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
      | "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
      | `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
       "Returns a list of all existing tags associated with a data store."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the data store to which tags are being added."]}
    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
       "Returns a list of all existing tags associated with a data store."]
module ListFHIRImportJobsResponse =
  struct
    type nonrec t =
      {
      importJobPropertiesList: ImportJobPropertiesList.t option
        [@ocaml.doc "The properties for listed import jobs."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token used to identify the next page of results to return."]}
    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 ?importJobPropertiesList =
      fun ?nextToken -> fun () -> { importJobPropertiesList; 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
        [("ImportJobPropertiesList",
           (Option.map x.importJobPropertiesList
              ~f:ImportJobPropertiesList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let importJobPropertiesList =
        (Option.map ~f:ImportJobPropertiesList.of_xml)
          (Xml.child xml_arg0 "ImportJobPropertiesList") in
      make ?nextToken ?importJobPropertiesList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let importJobPropertiesList =
        field_map json__ "ImportJobPropertiesList"
          ImportJobPropertiesList.of_json in
      make ?nextToken ?importJobPropertiesList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all FHIR import jobs associated with an account and their statuses."]
module ListFHIRImportJobsRequest =
  struct
    type nonrec t =
      {
      datastoreId: DatastoreId.t
        [@ocaml.doc
          "Limits the response to the import job with the specified data store ID."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token used to identify the next page of results to return."];
      maxResults: MaxResultsInteger.t option
        [@ocaml.doc
          "Limits the number of results returned for ListFHIRImportJobs to a maximum quantity specified by the user."];
      jobName: JobName.t option
        [@ocaml.doc
          "Limits the response to the import job with the specified job name."];
      jobStatus: JobStatus.t option
        [@ocaml.doc
          "Limits the response to the import job with the specified job status."];
      submittedBefore: Timestamp.t option
        [@ocaml.doc
          "Limits the response to FHIR import jobs submitted before a user- specified date."];
      submittedAfter: Timestamp.t option
        [@ocaml.doc
          "Limits the response to FHIR import jobs submitted after a user-specified date."]}
    let context_ = "ListFHIRImportJobsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?jobName ->
          fun ?jobStatus ->
            fun ?submittedBefore ->
              fun ?submittedAfter ->
                fun ~datastoreId ->
                  fun () ->
                    {
                      nextToken;
                      maxResults;
                      jobName;
                      jobStatus;
                      submittedBefore;
                      submittedAfter;
                      datastoreId
                    }
    let to_value x =
      structure_to_value
        [("DatastoreId", (Some (DatastoreId.to_value x.datastoreId)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxResultsInteger.to_value));
        ("JobName", (Option.map x.jobName ~f:JobName.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("SubmittedBefore",
          (Option.map x.submittedBefore ~f:Timestamp.to_value));
        ("SubmittedAfter",
          (Option.map x.submittedAfter ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let submittedAfter =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubmittedAfter") in
      let submittedBefore =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubmittedBefore") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let jobName =
        (Option.map ~f:JobName.of_xml) (Xml.child xml_arg0 "JobName") in
      let maxResults =
        (Option.map ~f:MaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let datastoreId =
        DatastoreId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatastoreId") in
      make ?submittedAfter ?submittedBefore ?jobStatus ?jobName ?maxResults
        ?nextToken ~datastoreId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let submittedAfter =
        field_map json__ "SubmittedAfter" Timestamp.of_json in
      let submittedBefore =
        field_map json__ "SubmittedBefore" Timestamp.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let jobName = field_map json__ "JobName" JobName.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxResultsInteger.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let datastoreId =
        field_map_exn json__ "DatastoreId" DatastoreId.of_json in
      make ?submittedAfter ?submittedBefore ?jobStatus ?jobName ?maxResults
        ?nextToken ~datastoreId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all FHIR import jobs associated with an account and their statuses."]
module ListFHIRExportJobsResponse =
  struct
    type nonrec t =
      {
      exportJobPropertiesList: ExportJobPropertiesList.t option
        [@ocaml.doc "The properties of listed FHIR export jobs."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token used to identify the next page of results to return."]}
    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 ?exportJobPropertiesList =
      fun ?nextToken -> fun () -> { exportJobPropertiesList; 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
        [("ExportJobPropertiesList",
           (Option.map x.exportJobPropertiesList
              ~f:ExportJobPropertiesList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let exportJobPropertiesList =
        (Option.map ~f:ExportJobPropertiesList.of_xml)
          (Xml.child xml_arg0 "ExportJobPropertiesList") in
      make ?nextToken ?exportJobPropertiesList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let exportJobPropertiesList =
        field_map json__ "ExportJobPropertiesList"
          ExportJobPropertiesList.of_json in
      make ?nextToken ?exportJobPropertiesList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all FHIR export jobs associated with an account and their statuses."]
module ListFHIRExportJobsRequest =
  struct
    type nonrec t =
      {
      datastoreId: DatastoreId.t
        [@ocaml.doc
          "Limits the response to the export job with the specified data store ID."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A pagination token used to identify the next page of results to return."];
      maxResults: MaxResultsInteger.t option
        [@ocaml.doc
          "Limits the number of results returned for a ListFHIRExportJobs to a maximum quantity specified by the user."];
      jobName: JobName.t option
        [@ocaml.doc
          "Limits the response to the export job with the specified job name."];
      jobStatus: JobStatus.t option
        [@ocaml.doc
          "Limits the response to export jobs with the specified job status."];
      submittedBefore: Timestamp.t option
        [@ocaml.doc
          "Limits the response to FHIR export jobs submitted before a user- specified date."];
      submittedAfter: Timestamp.t option
        [@ocaml.doc
          "Limits the response to FHIR export jobs submitted after a user-specified date."]}
    let context_ = "ListFHIRExportJobsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?jobName ->
          fun ?jobStatus ->
            fun ?submittedBefore ->
              fun ?submittedAfter ->
                fun ~datastoreId ->
                  fun () ->
                    {
                      nextToken;
                      maxResults;
                      jobName;
                      jobStatus;
                      submittedBefore;
                      submittedAfter;
                      datastoreId
                    }
    let to_value x =
      structure_to_value
        [("DatastoreId", (Some (DatastoreId.to_value x.datastoreId)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxResultsInteger.to_value));
        ("JobName", (Option.map x.jobName ~f:JobName.to_value));
        ("JobStatus", (Option.map x.jobStatus ~f:JobStatus.to_value));
        ("SubmittedBefore",
          (Option.map x.submittedBefore ~f:Timestamp.to_value));
        ("SubmittedAfter",
          (Option.map x.submittedAfter ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let submittedAfter =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubmittedAfter") in
      let submittedBefore =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "SubmittedBefore") in
      let jobStatus =
        (Option.map ~f:JobStatus.of_xml) (Xml.child xml_arg0 "JobStatus") in
      let jobName =
        (Option.map ~f:JobName.of_xml) (Xml.child xml_arg0 "JobName") in
      let maxResults =
        (Option.map ~f:MaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let datastoreId =
        DatastoreId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatastoreId") in
      make ?submittedAfter ?submittedBefore ?jobStatus ?jobName ?maxResults
        ?nextToken ~datastoreId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let submittedAfter =
        field_map json__ "SubmittedAfter" Timestamp.of_json in
      let submittedBefore =
        field_map json__ "SubmittedBefore" Timestamp.of_json in
      let jobStatus = field_map json__ "JobStatus" JobStatus.of_json in
      let jobName = field_map json__ "JobName" JobName.of_json in
      let maxResults =
        field_map json__ "MaxResults" MaxResultsInteger.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let datastoreId =
        field_map_exn json__ "DatastoreId" DatastoreId.of_json in
      make ?submittedAfter ?submittedBefore ?jobStatus ?jobName ?maxResults
        ?nextToken ~datastoreId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all FHIR export jobs associated with an account and their statuses."]
module ListFHIRDatastoresResponse =
  struct
    type nonrec t =
      {
      datastorePropertiesList: DatastorePropertiesList.t option
        [@ocaml.doc "The properties associated with all listed data stores."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The pagination token used to retrieve the next page of results."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datastorePropertiesList =
      fun ?nextToken -> fun () -> { datastorePropertiesList; nextToken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("DatastorePropertiesList",
           (Option.map x.datastorePropertiesList
              ~f:DatastorePropertiesList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let datastorePropertiesList =
        (Option.map ~f:DatastorePropertiesList.of_xml)
          (Xml.child xml_arg0 "DatastorePropertiesList") in
      make ?nextToken ?datastorePropertiesList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let datastorePropertiesList =
        field_map json__ "DatastorePropertiesList"
          DatastorePropertiesList.of_json in
      make ?nextToken ?datastorePropertiesList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all FHIR-enabled data stores in a user\226\128\153s account, regardless of data store status."]
module ListFHIRDatastoresRequest =
  struct
    type nonrec t =
      {
      filter: DatastoreFilter.t option
        [@ocaml.doc
          "List all filters associated with a FHIR data store request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token used to retrieve the next page of data stores when results are paginated."];
      maxResults: MaxResultsInteger.t option
        [@ocaml.doc "The maximum number of data stores returned on a page."]}
    let make ?filter =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { filter; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("Filter", (Option.map x.filter ~f:DatastoreFilter.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxResultsInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let filter =
        (Option.map ~f:DatastoreFilter.of_xml) (Xml.child xml_arg0 "Filter") in
      make ?maxResults ?nextToken ?filter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" MaxResultsInteger.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let filter = field_map json__ "Filter" DatastoreFilter.of_json in
      make ?maxResults ?nextToken ?filter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all FHIR-enabled data stores in a user\226\128\153s account, regardless of data store status."]
module DescribeFHIRImportJobResponse =
  struct
    type nonrec t =
      {
      importJobProperties: ImportJobProperties.t option
        [@ocaml.doc "The import job properties."]}
    type nonrec error =
      [ `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 ?importJobProperties = fun () -> { importJobProperties }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("ImportJobProperties",
           (Option.map x.importJobProperties ~f:ImportJobProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let importJobProperties =
        (Option.map ~f:ImportJobProperties.of_xml)
          (Xml.child xml_arg0 "ImportJobProperties") in
      make ?importJobProperties ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let importJobProperties =
        field_map json__ "ImportJobProperties" ImportJobProperties.of_json in
      make ?importJobProperties ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the import job properties to learn more about the job or job progress."]
module DescribeFHIRImportJobRequest =
  struct
    type nonrec t =
      {
      datastoreId: DatastoreId.t [@ocaml.doc "The data store identifier."];
      jobId: JobId.t [@ocaml.doc "The import job identifier."]}
    let context_ = "DescribeFHIRImportJobRequest"
    let make ~datastoreId = fun ~jobId -> fun () -> { datastoreId; jobId }
    let to_value x =
      structure_to_value
        [("DatastoreId", (Some (DatastoreId.to_value x.datastoreId)));
        ("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      let datastoreId =
        DatastoreId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatastoreId") in
      make ~jobId ~datastoreId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      let datastoreId =
        field_map_exn json__ "DatastoreId" DatastoreId.of_json in
      make ~jobId ~datastoreId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the import job properties to learn more about the job or job progress."]
module DescribeFHIRExportJobResponse =
  struct
    type nonrec t =
      {
      exportJobProperties: ExportJobProperties.t option
        [@ocaml.doc "The export job properties."]}
    type nonrec error =
      [ `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 ?exportJobProperties = fun () -> { exportJobProperties }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("ExportJobProperties",
           (Option.map x.exportJobProperties ~f:ExportJobProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportJobProperties =
        (Option.map ~f:ExportJobProperties.of_xml)
          (Xml.child xml_arg0 "ExportJobProperties") in
      make ?exportJobProperties ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportJobProperties =
        field_map json__ "ExportJobProperties" ExportJobProperties.of_json in
      make ?exportJobProperties ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get FHIR export job properties."]
module DescribeFHIRExportJobRequest =
  struct
    type nonrec t =
      {
      datastoreId: DatastoreId.t
        [@ocaml.doc
          "The data store identifier from which FHIR data is being exported from."];
      jobId: JobId.t [@ocaml.doc "The export job identifier."]}
    let context_ = "DescribeFHIRExportJobRequest"
    let make ~datastoreId = fun ~jobId -> fun () -> { datastoreId; jobId }
    let to_value x =
      structure_to_value
        [("DatastoreId", (Some (DatastoreId.to_value x.datastoreId)));
        ("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      let datastoreId =
        DatastoreId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatastoreId") in
      make ~jobId ~datastoreId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      let datastoreId =
        field_map_exn json__ "DatastoreId" DatastoreId.of_json in
      make ~jobId ~datastoreId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get FHIR export job properties."]
module DescribeFHIRDatastoreResponse =
  struct
    type nonrec t =
      {
      datastoreProperties: DatastoreProperties.t option
        [@ocaml.doc "The data store properties."]}
    type nonrec error =
      [ `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 ?datastoreProperties = fun () -> { datastoreProperties }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("DatastoreProperties",
           (Option.map x.datastoreProperties ~f:DatastoreProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datastoreProperties =
        (Option.map ~f:DatastoreProperties.of_xml)
          (Xml.child xml_arg0 "DatastoreProperties") in
      make ?datastoreProperties ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datastoreProperties =
        field_map json__ "DatastoreProperties" DatastoreProperties.of_json in
      make ?datastoreProperties ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get properties for a FHIR-enabled data store."]
module DescribeFHIRDatastoreRequest =
  struct
    type nonrec t =
      {
      datastoreId: DatastoreId.t [@ocaml.doc "The data store identifier."]}
    let context_ = "DescribeFHIRDatastoreRequest"
    let make ~datastoreId = fun () -> { datastoreId }
    let to_value x =
      structure_to_value
        [("DatastoreId", (Some (DatastoreId.to_value x.datastoreId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datastoreId =
        DatastoreId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatastoreId") in
      make ~datastoreId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datastoreId =
        field_map_exn json__ "DatastoreId" DatastoreId.of_json in
      make ~datastoreId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get properties for a FHIR-enabled data store."]
module DeleteFHIRDatastoreResponse =
  struct
    type nonrec t =
      {
      datastoreId: DatastoreId.t option
        [@ocaml.doc "The AWS-generated ID for the deleted data store."];
      datastoreArn: DatastoreArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that grants access permission to AWS HealthLake."];
      datastoreStatus: DatastoreStatus.t option
        [@ocaml.doc "The data store status."];
      datastoreEndpoint: BoundedLengthString.t option
        [@ocaml.doc "The AWS endpoint of the data store to be deleted."]}
    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 ?datastoreId =
      fun ?datastoreArn ->
        fun ?datastoreStatus ->
          fun ?datastoreEndpoint ->
            fun () ->
              { datastoreId; datastoreArn; datastoreStatus; datastoreEndpoint
              }
    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
        [("DatastoreId", (Option.map x.datastoreId ~f:DatastoreId.to_value));
        ("DatastoreArn",
          (Option.map x.datastoreArn ~f:DatastoreArn.to_value));
        ("DatastoreStatus",
          (Option.map x.datastoreStatus ~f:DatastoreStatus.to_value));
        ("DatastoreEndpoint",
          (Option.map x.datastoreEndpoint ~f:BoundedLengthString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datastoreEndpoint =
        (Option.map ~f:BoundedLengthString.of_xml)
          (Xml.child xml_arg0 "DatastoreEndpoint") in
      let datastoreStatus =
        (Option.map ~f:DatastoreStatus.of_xml)
          (Xml.child xml_arg0 "DatastoreStatus") in
      let datastoreArn =
        (Option.map ~f:DatastoreArn.of_xml)
          (Xml.child xml_arg0 "DatastoreArn") in
      let datastoreId =
        (Option.map ~f:DatastoreId.of_xml) (Xml.child xml_arg0 "DatastoreId") in
      make ?datastoreEndpoint ?datastoreStatus ?datastoreArn ?datastoreId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datastoreEndpoint =
        field_map json__ "DatastoreEndpoint" BoundedLengthString.of_json in
      let datastoreStatus =
        field_map json__ "DatastoreStatus" DatastoreStatus.of_json in
      let datastoreArn = field_map json__ "DatastoreArn" DatastoreArn.of_json in
      let datastoreId = field_map json__ "DatastoreId" DatastoreId.of_json in
      make ?datastoreEndpoint ?datastoreStatus ?datastoreArn ?datastoreId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete a FHIR-enabled data store."]
module DeleteFHIRDatastoreRequest =
  struct
    type nonrec t =
      {
      datastoreId: DatastoreId.t
        [@ocaml.doc
          "The AWS-generated identifier for the data store to be deleted."]}
    let context_ = "DeleteFHIRDatastoreRequest"
    let make ~datastoreId = fun () -> { datastoreId }
    let to_value x =
      structure_to_value
        [("DatastoreId", (Some (DatastoreId.to_value x.datastoreId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datastoreId =
        DatastoreId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatastoreId") in
      make ~datastoreId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datastoreId =
        field_map_exn json__ "DatastoreId" DatastoreId.of_json in
      make ~datastoreId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete a FHIR-enabled data store."]
module CreateFHIRDatastoreResponse =
  struct
    type nonrec t =
      {
      datastoreId: DatastoreId.t option
        [@ocaml.doc "The data store identifier."];
      datastoreArn: DatastoreArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the data store."];
      datastoreStatus: DatastoreStatus.t option
        [@ocaml.doc "The data store status."];
      datastoreEndpoint: BoundedLengthString.t option
        [@ocaml.doc "The AWS endpoint created for the data store."]}
    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 ?datastoreId =
      fun ?datastoreArn ->
        fun ?datastoreStatus ->
          fun ?datastoreEndpoint ->
            fun () ->
              { datastoreId; datastoreArn; datastoreStatus; datastoreEndpoint
              }
    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
        [("DatastoreId", (Option.map x.datastoreId ~f:DatastoreId.to_value));
        ("DatastoreArn",
          (Option.map x.datastoreArn ~f:DatastoreArn.to_value));
        ("DatastoreStatus",
          (Option.map x.datastoreStatus ~f:DatastoreStatus.to_value));
        ("DatastoreEndpoint",
          (Option.map x.datastoreEndpoint ~f:BoundedLengthString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datastoreEndpoint =
        (Option.map ~f:BoundedLengthString.of_xml)
          (Xml.child xml_arg0 "DatastoreEndpoint") in
      let datastoreStatus =
        (Option.map ~f:DatastoreStatus.of_xml)
          (Xml.child xml_arg0 "DatastoreStatus") in
      let datastoreArn =
        (Option.map ~f:DatastoreArn.of_xml)
          (Xml.child xml_arg0 "DatastoreArn") in
      let datastoreId =
        (Option.map ~f:DatastoreId.of_xml) (Xml.child xml_arg0 "DatastoreId") in
      make ?datastoreEndpoint ?datastoreStatus ?datastoreArn ?datastoreId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datastoreEndpoint =
        field_map json__ "DatastoreEndpoint" BoundedLengthString.of_json in
      let datastoreStatus =
        field_map json__ "DatastoreStatus" DatastoreStatus.of_json in
      let datastoreArn = field_map json__ "DatastoreArn" DatastoreArn.of_json in
      let datastoreId = field_map json__ "DatastoreId" DatastoreId.of_json in
      make ?datastoreEndpoint ?datastoreStatus ?datastoreArn ?datastoreId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create a FHIR-enabled data store."]
module CreateFHIRDatastoreRequest =
  struct
    type nonrec t =
      {
      datastoreName: DatastoreName.t option
        [@ocaml.doc "The data store name (user-generated)."];
      datastoreTypeVersion: FHIRVersion.t
        [@ocaml.doc
          "The FHIR release version supported by the data store. Current support is for version R4."];
      sseConfiguration: SseConfiguration.t option
        [@ocaml.doc
          "The server-side encryption key configuration for a customer-provided encryption key specified for creating a data store."];
      preloadDataConfig: PreloadDataConfig.t option
        [@ocaml.doc
          "An optional parameter to preload (import) open source Synthea FHIR data upon creation of the data store."];
      clientToken: ClientTokenString.t option
        [@ocaml.doc
          "An optional user-provided token to ensure API idempotency."];
      tags: TagList.t option
        [@ocaml.doc
          "The resource tags applied to a data store when it is created."];
      identityProviderConfiguration: IdentityProviderConfiguration.t option
        [@ocaml.doc
          "The identity provider configuration to use for the data store."]}
    let context_ = "CreateFHIRDatastoreRequest"
    let make ?datastoreName =
      fun ?sseConfiguration ->
        fun ?preloadDataConfig ->
          fun ?clientToken ->
            fun ?tags ->
              fun ?identityProviderConfiguration ->
                fun ~datastoreTypeVersion ->
                  fun () ->
                    {
                      datastoreName;
                      sseConfiguration;
                      preloadDataConfig;
                      clientToken;
                      tags;
                      identityProviderConfiguration;
                      datastoreTypeVersion
                    }
    let to_value x =
      structure_to_value
        [("DatastoreName",
           (Option.map x.datastoreName ~f:DatastoreName.to_value));
        ("DatastoreTypeVersion",
          (Some (FHIRVersion.to_value x.datastoreTypeVersion)));
        ("SseConfiguration",
          (Option.map x.sseConfiguration ~f:SseConfiguration.to_value));
        ("PreloadDataConfig",
          (Option.map x.preloadDataConfig ~f:PreloadDataConfig.to_value));
        ("ClientToken",
          (Option.map x.clientToken ~f:ClientTokenString.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("IdentityProviderConfiguration",
          (Option.map x.identityProviderConfiguration
             ~f:IdentityProviderConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityProviderConfiguration =
        (Option.map ~f:IdentityProviderConfiguration.of_xml)
          (Xml.child xml_arg0 "IdentityProviderConfiguration") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientToken =
        (Option.map ~f:ClientTokenString.of_xml)
          (Xml.child xml_arg0 "ClientToken") in
      let preloadDataConfig =
        (Option.map ~f:PreloadDataConfig.of_xml)
          (Xml.child xml_arg0 "PreloadDataConfig") in
      let sseConfiguration =
        (Option.map ~f:SseConfiguration.of_xml)
          (Xml.child xml_arg0 "SseConfiguration") in
      let datastoreTypeVersion =
        FHIRVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatastoreTypeVersion") in
      let datastoreName =
        (Option.map ~f:DatastoreName.of_xml)
          (Xml.child xml_arg0 "DatastoreName") in
      make ?identityProviderConfiguration ?tags ?clientToken
        ?preloadDataConfig ?sseConfiguration ~datastoreTypeVersion
        ?datastoreName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityProviderConfiguration =
        field_map json__ "IdentityProviderConfiguration"
          IdentityProviderConfiguration.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let clientToken =
        field_map json__ "ClientToken" ClientTokenString.of_json in
      let preloadDataConfig =
        field_map json__ "PreloadDataConfig" PreloadDataConfig.of_json in
      let sseConfiguration =
        field_map json__ "SseConfiguration" SseConfiguration.of_json in
      let datastoreTypeVersion =
        field_map_exn json__ "DatastoreTypeVersion" FHIRVersion.of_json in
      let datastoreName =
        field_map json__ "DatastoreName" DatastoreName.of_json in
      make ?identityProviderConfiguration ?tags ?clientToken
        ?preloadDataConfig ?sseConfiguration ~datastoreTypeVersion
        ?datastoreName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create a FHIR-enabled data store."]