'Declaration
Public Sub SendNActionResponse( _
ByVal As Byte, _
ByVal As Integer, _
ByVal As String, _
ByVal As String, _
ByVal As DicomCommandStatusType, _
ByVal As Integer, _
ByVal As DicomDataSet, _
ByVal As String _
)
'Usage
Dim instance As ClientSession
Dim presentationID As Byte
Dim messageID As Integer
Dim affectedClass As String
Dim affectedInstance As String
Dim status As DicomCommandStatusType
Dim actionType As Integer
Dim responseDataset As DicomDataSet
Dim descriptionMessage As String
instance.SendNActionResponse(presentationID, messageID, affectedClass, affectedInstance, status, actionType, responseDataset, descriptionMessage)