I'm experimenting with adapting SDA3 object model to store medical data in relational form, e.g.:
class Demo.DemoPatient extends (%Persistent, HS.SDA3.Patient) {}
The HS.SDA3.Patient class has the Aliases property which is a nested collection (list) of objects of type HS.SDA3.Name:
#dim record as Demo.DemoPatient = ##class(Demo.DemoPatient).%New()
set record.Name.FamilyName = "Clemens"
set record.Name.GivenName = "Samuel"
set record.BirthTime = "1935-11-30T12:00:00"
#dim alias as HS.SDA3.Name = ##class(HS.SDA3.Name).%New()
set alias.FamilyName = "Twain"
set alias..png)

.png)
.png)
.png)
.png)
.png)
.png)
.png)
.png)


