'Declaration
Sub StoreDicom( _
ByVal As DicomDataSet, _
ByVal As String, _
ByVal As String, _
ByVal () As ReferencedImages, _
ByVal As Boolean, _
ByVal As Boolean, _
ByVal As Boolean, _
ByVal As Boolean _
)
'Usage
Dim instance As IStorageDataAccessAgent
Dim dataSet As DicomDataSet
Dim referencedFileName As String
Dim retrieveAe As String
Dim images() As ReferencedImages
Dim updateExistentPatient As Boolean
Dim updateExistentStudy As Boolean
Dim updateExistentSeries As Boolean
Dim updateExistentInstances As Boolean
instance.StoreDicom(dataSet, referencedFileName, retrieveAe, images, updateExistentPatient, updateExistentStudy, updateExistentSeries, updateExistentInstances)