Vendor Reports

The Reports can be accessed from within the Vendor Manager or invoked directly from the EasyHL7MC40_UI.UserInterfaces object. There are two main methods for displaying the Vendor Reports, ShowVendorReport() and ShowMessageReport(). The ShowVendorReport() method is for displaying different HL7 object definitions stored in the HL7Vendor including HL7 Segment definitions (in the Definition tab), HL7 Data Types, HL7 Internal Tables and HL7 Vendors Summary and Detail reports (in the Miscellaneous tab).

In this example MyVendorObject is a fully instantiated HL7Vendor object

which has a Vendor definition opened (see the OpenVendor method).

See Programming with the HL7Vendor Object for more information.

Dim obUI As New EasyHL7MC40_UI.UserInterfaces(MyVendorObject)

With obUI

'I want my own Help to display in the help menu and reports

.HelpURL = "www.mywebsite.com/help/myproduct.html"

'I want my product name to display in the reports

'and the Window Caption

.ProductName = "My HL7 Interface"

'I want my Company's website to display in the Help menu as well

.Website = "www.mywebsite.com"

'Now I'm ready to display the reports

'for my opened vendor object

.ShowVendorReport(MyVendorObject)

End With

Use the ShowMessageReport() method to display a Vendor Report window which also displays an HL7 message. In addition to the new Message Data tab, you also have all of the standard definition reports available as well in the Definition and Miscellaneous tabs.

In this example MyVendorObject is a fully instantiated HL7Vendor object

which has a Vendor definition opened (see the OpenVendor method).

See Programming with the HL7Vendor Object for more information.

Dim obUI As New EasyHL7MC40_UI.UserInterfaces(MyVendorObject)

'We need an HL7 message (string) and we've got an

'example message in the resources

Dim sHL7 As String = My.Resources.SingleHL7Message.ToString

'Clean up the text so that it's not corrupted.

sHL7 = Replace(sHL7, Environment.NewLine, MyVendorObject.SegmentDelimiter)

With obUI

'I want my own Help to display in the help menu and reports

.HelpURL = "www.mywebsite.com/help/myproduct.html"

'I want my product name to display in the reports

'and the Window Caption

.ProductName = "My HL7 Interface"

'I want my Company's website to display in the Help menu as well

.Website = "www.mywebsite.com"

'Now I'm ready to display the reports

'for my opened vendor object

.ShowMessageReport(MyVendorObject, sHL7)

'OR I could create an EasyHL7Message Object

Dim oMsg As EasyHL7MC40.EasyHL7Message

oMsg = MyVendorObject.NewHL7Message(sHL7)

.ShowMessageReport(MyVendorObject, oMsg)

End With

In addition to the two "canned" report methods described above the UserInterfaces class gives you 2 additional handy display dialogs for use in your applications. They are:

Parameter 1: strRichText (String) - A string containing RichText to display such as the .RTF property of a .Net RichTextbox or EasyHL7MC40_UI.EasyHL7RichTextbox control)

Parameter 2: strReportTitle (Optional String - Default = "System Report") The title of the report to display in the Window caption.

Description: Invokes a dialog displaying strRichText with options to Save, Print, Copy.

In this example MyVendorObject is a fully instantiated HL7Vendor object

which has a Vendor definition opened (see the OpenVendor method).

See Programming with the HL7Vendor Object for more information.

Dim obUI As New EasyHL7MC40_UI.UserInterfaces(MyVendorObject)

With obUI

.ShowRTFReport(Me.TopicRTF.Rtf, lblChapter.Text & " - " & lblSubject.Text)

End With

ScreenShot:

ShowRTFReport() Method

Parameter 1: strText (String) - A string containing plain text to display such as the .Text property of a .Net Textbox, RichTextbox, or EasyHL7MC40_UI.EasyHL7RichTextbox control)

Parameter 2: strReportTitle (Optional String - Default = "System Report") The title of the report to display in the Window caption.

Description: Invokes a dialog displaying strText with options to Save, Print, Copy.

In this example MyVendorObject is a fully instantiated HL7Vendor object

which has a Vendor definition opened (see the OpenVendor method).

See Programming with the HL7Vendor Object for more information.

Dim obUI As New EasyHL7MC40_UI.UserInterfaces(MyVendorObject)

With obUI

.ShowTextReport(Me.TopicRTF.Text, lblChapter.Text & " - " & lblSubject.Text)

End With

ScreenShot:

ShowTextReport() Method