'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)