DeleteDataType()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

METHOD

Name: DeleteDataType()

Parameters:   1) strDataType (String) the name of the data type to delete.

Returns: Boolean

Description: Deletes an HL7 datatype definition.

*NOTE* Development license required to call this method successfully

See Also: HL7DataTypesXML(), AddHL7DataType(), DataTypeComponents()

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim strVendorID As String

myVendorObj.VendorPath = "C:\EasyHL7"

strVendorID = myVendorObj.GetVendorID("Default","2.3")

If strVendorID = "" Then

    MsgBox myVendorObj.LastError

    Set myVendorObj = Nothing

    Exit Sub

End If

If Not MyVendorObj.DeleteVendor(strVendorID) Then

    MsgBox myVendorObj.LastError

    Set myVendorObj = Nothing

    Exit Sub

Else

    MsgBox "The vendor definition has been deleted"

End If

If Not myVendorObj.DeleteDataType("CE") Then

       MsgBox myVendorObj.LastError

       Exit Sub

Else

       MsgBox "Datatype 'CE' has been deleted"

End If

End Sub