ISRxPreparation.Identifier

Description

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

Syntax

object.Identifier

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

Restriction: This property is readonly.

Return Value

string

Example

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

Dim aFilter
Dim aRxCollection
Dim aRxPreparation
Dim i
Dim aMessage

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

aMessage = "Rx Preparations Count = " & aRxCollection.Count &_
  vbNewLine & vbNewLine & "#  Identifier" & vbTab & vbTab & "As String"

for i = 0 to aRxCollection.Count - 1
  set aRxPreparation = aRxCollection.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ")  " &_
    aRxPreparation.Identifier & vbTab & vbTab &_
    aRxPreparation.AsString  
next      

Profile.MsgBox(aMessage)

Note: This property is specific for Canada.

Version information

Added in v8.4.0