The Vendor Manager

PreviousNext

Implementing the Vendor Manager

(c) 2011 Hermetech International Ltd.

Creating MS Windows Forms applications using the EasyHL7MC40 objects just got easier.

 

EasyHL7 Vendor Manager

EasyHL7 Vendor Manager

 

The Vendor Manager is a pre-built user interface for dealing with EasyHL7 Vendor definitions which you can include in your MS WIndows Forms applications with just a few lines of code. You can also restrict user access within the Vendor Manager in several ways (see the section on Using Vendor Access). From within the Vendor manager (access permitting) you can:

 

•Import and Export EasyHL7 Vendor Definitions (see the 'File' menu)
•Create New EasyHL7 Vendor Definitions (see the 'File' menu)
•Install (or reinstall) some or all of the "Default" EasyHL7 Vendor definitions which are embedded in the EasyHL7MC40.HL7Vendor object (see the 'File' menu).
•Delete a Vendor Definition
•Access the Vendor Reports (click the 'Reports' button)
•View / Edit HL7 Segments within a Vendor definition (click the 'HL7 Segments' button)
•View Edit Different Vendor objects and properties like HL7 Data Types, HL7 Internal Tables and the Vendor Properties. See the 'Tools' menu.
•Change the "Vendor Path"
Example Code to invoke the Vendor Manager

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 to grant the user full access to everything BUT

      'my program relies on the HL7Vendors being in a 

      'pre-defined location so I don't want the user to change it.

       'Step 1: Give them Full Access

      .VendorAccess.GrantAllVendorAccess()

       'Step 2: Take away the rights to change the vendor path

      .VendorAccess.AllowVendorPathChange = False

      .ProductName = "My HL7 Application"

      .WebSite = "www.hermetechnz.com"

      .ShowVendorManager()

       If .UpdatesWereMade Then 

        MessageBox.Show("You changed something!")

       End If   

    End With