ISRxPackage.Identifier

Description

The identifier of the Rx package. The property value is equal to the value of the 'Identification Number' property.

Syntax

object.Identifier

Part	Attribute	Type	Description
`object`	Required	ISRxPackage	The `object` always implements the ISRxPackage interface

Restriction: This property is readonly.

Return Value

string

Example

Display some information about the Rx packages loaded on the basis of the selected filter, including their identifiers.

Dim aFilter
Dim aRxCollection
Dim aRxPackage
Dim i
Dim aMessage

Set aFilter = Profile.CreateRxFilter
aFilter.RxName = "Pentasa"
aFilter.IncludePreparations = False
aFilter.IncludePackages = True
aFilter.IncludeGroups = False
aFilter.IncludeChemicals = False
aFilter.RxNameSearchMode = 1 'rnsmStartsWith
set aRxCollection = Profile.LoadRxCollection(aFilter)

aMessage = "Rx Packages Count = " & aRxCollection.Count & vbNewLine 

for i = 0 to aRxCollection.Count - 1
  set aRxPackage = aRxCollection.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aRxPackage.Name &_
    vbNewLine & "-Code: " & aRxPackage.Code & vbNewLine & "-Identifier: " &_
    aRxPackage.Identifier & vbNewLine
next

Profile.MsgBox(aMessage)

Note: This property is specific for Canada.

Version information

Added in v8.4.0