ストアドプロシージャの呼び出し

他のSQL ストアドプロシージャと同様に、FHIRCommand を使用してストアドプロシージャを呼び出すことができます。FHIRCommand オブジェクトをインスタンス化するには、コンストラクタへの引数として、ストアドプロシージャの名前とFHIRConnection インスタンスを渡します。CommandType プロパティをStoredProcedure に設定し、FHIRCommand インスタンスのParameters コレクションにキーと値のペアとしてパラメータを追加します。

string connectionString = "URL=http://test.fhir.org/r4b/;ConnectionType=Generic;ContentType=JSON;AuthScheme=None;";

using (FHIRConnection connection = new FHIRConnection(connectionString)) {
  FHIRCommand cmd = new FHIRCommand("SampleProcedure", connection);
  cmd.CommandType = CommandType.StoredProcedure; 
  cmd.Parameters.Add(new FHIRParameter("@Id", "7"));
  // Add other parameters as needed ...

  FHIRDataReader rdr = cmd.ExecuteReader();
  while (rdr.Read()) {
    for (int i = 0; i < rdr.FieldCount; i++) {
      Console.WriteLine(rdr.GetName(i) + " --> " + rdr[i]);
    }
    Console.WriteLine();
  }
}

VB.NET

Dim connectionString As String = "URL=http://test.fhir.org/r4b/;ConnectionType=Generic;ContentType=JSON;AuthScheme=None;"

Using connection As New FHIRConnection(connectionString)
  Dim cmd As New FHIRCommand("SampleProcedure", connection)
  cmd.CommandType = CommandType.StoredProcedure
  cmd.Parameters.Add(New FHIRParameter("@Id", "7"))
  ' Add other parameters as needed ...

  Dim rdr As FHIRDataReader = cmd.ExecuteReader()
  While rdr.Read()
	  For i As Integer = 0 To rdr.FieldCount - 1
		  Console.WriteLine(rdr.GetName(i) + " --> " + rdr(i))
	  Next
	  Console.WriteLine()
  End While
End Using

別の方法として、ストアドプロシージャのパラメータをコマンドのテキストとして設定することもできます。ストアドプロシージャのステートメントは、次の標準的な形式でサポートされます。

"EXECUTE my_proc @first = 1, @second = 2, @third = 3;"

"EXEC my_proc @first = 1, @second = 2, @third = 3;"

パラメータ化されたクエリを実行するには、FHIRCommand インスタンスのParameters コレクションに、キーと値のペアとしてパラメータを追加します。

string connectionString = "URL=http://test.fhir.org/r4b/;ConnectionType=Generic;ContentType=JSON;AuthScheme=None;";

using (FHIRConnection connection = new FHIRConnection(connectionString)) {
  FHIRCommand cmd = new FHIRCommand("EXECUTE SampleProcedure Id = @Id;", connection); 
  cmd.Parameters.Add(new FHIRParameter("@Id", "7"));
  // Add other parameters as needed ...

  FHIRDataReader rdr = cmd.ExecuteReader();
  while (rdr.Read()) {
    for (int i = 0; i < rdr.FieldCount; i++) {
      Console.WriteLine(rdr.GetName(i) + " --> " + rdr[i]);
    }
    Console.WriteLine();
  }
}

VB.NET

Dim connectionString As String = "URL=http://test.fhir.org/r4b/;ConnectionType=Generic;ContentType=JSON;AuthScheme=None;"

Using connection As New FHIRConnection(connectionString)
  Dim cmd As New FHIRCommand("EXECUTE SampleProcedure Id = @Id;", connection)
  cmd.Parameters.Add(New FHIRParameter("@Id", "7"))
  ' Add other parameters as needed ...

  Dim rdr As FHIRDataReader = cmd.ExecuteReader()
  While rdr.Read()
	  For i As Integer = 0 To rdr.FieldCount - 1
		  Console.WriteLine(rdr.GetName(i) + " --> " + rdr(i))
	  Next
	  Console.WriteLine()
  End While
End Using

ADO.NET Provider for FHIR

ストアドプロシージャの呼び出し