ISRxFilter.IdentificationNumber

Description

This filter property is used to load the Rx items by the identification number.

Syntax

object.IdentificationNumber

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

Return Value

string

Example

Display the number of the Rx items loaded on the basis of the selected filter and their names.

Dim aFilter
Dim aRxCollection, aRx
Dim i
Dim aMessage   

Set aFilter = Profile.CreateRxFilter
aFilter.IdentificationNumber = "00598208"
aFilter.IncludeChemicals = True
aFilter.IncludeGroups = True
aFilter.IncludePackages = True
aFilter.IncludePreparations = True  

set aRxCollection = Profile.LoadRxCollection(aFilter)

aMessage = "Rx Items Count: " & aRxCollection.Count & vbNewLine 

for i = 0 to aRxCollection.Count - 1
  set aRx = aRxCollection.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aRx.Name
next          

Profile.MsgBox(aMessage)

Note: This filter property is specific for Canada.

In Profile Client v8 on User Interface Identification Number can be found in Maintain > Formulary > Rx > Show Information Panel > DIN, in Clinical > Medical Record > New Encounter > Scripts > Rx > Show Information Panel > DIN or in Clinical > New Encounter > Scripts > Rx > Show Information Panel > DIN.

Version information

Added in v8.4.13