DeleteHL7Element()

Object: EHL7.HL7Vendors

FileName: EHL7.dll

METHOD

Name: DeleteHL7Element()

Parameters:   1) strGUID (String) the GUID ID of the Element to delete

Returns: Boolean

Description: Deletes a field Element from an HL7 Segment Definition.

*NOTE* Development license required to call this method successfully

See Also: UpdateHL7Elements(), HL7ElementsXML(), SegmentsXML

Example:

Private Sub VendorTest()

Dim myVendorObj As New EHL7.HL7Vendors

Dim strVendorID As String

Dim strXML As String

Dim i As Long

Dim strElementID As String

Dim nodeElements As Object

Dim myXMLObj As New EHL7.qsXML

myVendorObj.VendorPath = "C:\EasyHL7"

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

If strVendorID = "" Then

    MsgBox myVendorObj.LastError

    Set myVendorObj = Nothing

    Exit Sub

End If

strXML = MyVendorObj.HL7ElementsXML("PID")

With myXMLObj

  .OpenFromString strXML

  Set nodeElements = .GetRootChildren()

  strElementID = .GetAttribute(nodeElements(3),"ITEMGUID")

End With

If Not MyVendorObj.DeleteHL7Element(strElementID) Then

    MsgBox myVendorObj.LastError

    Set myVendorObj = Nothing

    Exit Sub

Else

    MsgBox "The element definition has been deleted"

End If

End Sub