Attribute VB_Name = "VerifyMdl" Option Explicit ' Implementation Class Public Const IMPLEMENTATION_CLASS_UID = "1.2.840.114257.1123456" ' Implementation Version Public Const IMPLEMENTATION_VERSION_NAME = "1" Public Const PROTOCOL_VERSION = 1 ' Registry location Public Const REGISTRY_LOCATION = "SOFTWARE\LEAD Technologies, Inc.\VB_DicomVRF" ' Demo error codes Public Const GENERAL_ERRROR = -1 Public Const VRFY_CONNECT_FAILED = 1 ' Connect operation failed Public Const VRFY_CONNECT_SUCCEEDED = 2 ' Connect operation succeeded Public Const VRFY_SEND_ASSOCIATION_REQUEST = 3 ' Sending association request Public Const VRFY_RECEIVE_ASSOCIATE_ACCEPT = 4 ' Receiving association accept Public Const VRFY_RECEIVE_ASSOCIATE_REJECT = 5 ' Receiving association reject Public Const VRFY_VERIFICATION_NOT_SUPPORTED = 6 ' Verification not supported by this association Public Const VRFY_SEND_CECHO_REQUEST = 7 ' Sending C-ECHO request Public Const VRFY_RECEIVE_CECHO_RESPONSE = 8 ' Verification (C-ECHO) completed successfully Public Const VRFY_CONNECTION_CLOSED = 9 ' Closing connection Public Const VRFY_PROCESS_TERMINATED = 10 ' Verification has been terminated Public Const VRFY_SEND_RELEASE_REQUEST = 11 ' Verification has been terminated Public Const VRFY_RECEIVE_RELEASE_RESPONSE = 12 ' Verification has been terminated Public Const VRFY_DICOM_ERROR = 13 ' General DICOM Error -- Error code describes this error