feat: Implement creation of References

Cargo.toml

@@ -4,6 +4,7 @@ resolver = "2"
 
 [profile.dev.build-override]
 opt-level = 2
-
+[profile.test.build-override]
+opt-level = 2
 [profile.release.build-override]
 opt-level = 2

crates/fhir-model/Cargo.toml

@@ -29,7 +29,8 @@ serde_json = "1.0.94"
 
 [profile.dev.build-override]
 opt-level = 2
-
+[profile.test.build-override]
+opt-level = 2
 [profile.release.build-override]
 opt-level = 2
 

crates/fhir-model/src/r4b/mod.rs

@@ -1,6 +1,7 @@
 //! Revision 4B types of FHIR.
 
 pub mod codes;
+pub mod reference;
 pub mod resources;
 pub mod types;
 

crates/fhir-model/src/r4b/reference.rs

@@ -0,0 +1,51 @@
+//! Extended [`Reference`] functionality.
+
+use super::{
+	resources::{BaseResource, NamedResource},
+	types::{Reference, ReferenceInner},
+};
+
+/// Create relative [`Reference`] to the given resource.
+pub fn create_to<R>(resource: R) -> Option<Reference>
+where
+	R: NamedResource + BaseResource,
+{
+	Some(
+		ReferenceInner {
+			id: None,
+			extension: Vec::new(),
+			reference: Some(format!("{}/{}", R::TYPE, resource.id().as_ref()?)),
+			reference_ext: None,
+			r#type: Some(R::TYPE.to_string()),
+			type_ext: None,
+			identifier: None,
+			identifier_ext: None,
+			display: None,
+			display_ext: None,
+		}
+		.into(),
+	)
+}
+
+/// Create local [`Reference`] to the given resource. Make sure the resource is
+/// going to be in the `contained` field of the referencing resource.
+pub fn create_local_to<R>(resource: R) -> Option<Reference>
+where
+	R: NamedResource + BaseResource,
+{
+	Some(
+		ReferenceInner {
+			id: None,
+			extension: Vec::new(),
+			reference: Some(format!("#{}", resource.id().as_ref()?)),
+			reference_ext: None,
+			r#type: Some(R::TYPE.to_string()),
+			type_ext: None,
+			identifier: None,
+			identifier_ext: None,
+			display: None,
+			display_ext: None,
+		}
+		.into(),
+	)
+}

crates/fhir-model/src/r5/mod.rs

@@ -1,6 +1,7 @@
 //! Revision 5 types of FHIR.
 
 pub mod codes;
+pub mod reference;
 pub mod resources;
 pub mod types;
 

crates/fhir-model/src/r5/reference.rs

@@ -0,0 +1,51 @@
+//! Extended [`Reference`] functionality.
+
+use super::{
+	resources::{BaseResource, NamedResource},
+	types::{Reference, ReferenceInner},
+};
+
+/// Create relative [`Reference`] to the given resource.
+pub fn create_to<R>(resource: R) -> Option<Reference>
+where
+	R: NamedResource + BaseResource,
+{
+	Some(
+		ReferenceInner {
+			id: None,
+			extension: Vec::new(),
+			reference: Some(format!("{}/{}", R::TYPE, resource.id().as_ref()?)),
+			reference_ext: None,
+			r#type: Some(R::TYPE.to_string()),
+			type_ext: None,
+			identifier: None,
+			identifier_ext: None,
+			display: None,
+			display_ext: None,
+		}
+		.into(),
+	)
+}
+
+/// Create local [`Reference`] to the given resource. Make sure the resource is
+/// going to be in the `contained` field of the referencing resource.
+pub fn create_local_to<R>(resource: R) -> Option<Reference>
+where
+	R: NamedResource + BaseResource,
+{
+	Some(
+		ReferenceInner {
+			id: None,
+			extension: Vec::new(),
+			reference: Some(format!("#{}", resource.id().as_ref()?)),
+			reference_ext: None,
+			r#type: Some(R::TYPE.to_string()),
+			type_ext: None,
+			identifier: None,
+			identifier_ext: None,
+			display: None,
+			display_ext: None,
+		}
+		.into(),
+	)
+}