ISRx.BelongsTo

Description

This function checks if the Rx item belongs to the group with the specified code.

Syntax

object.BelongsTo(RxCode)

Part	Attribute	Type	Description
`object`	Required	ISRx	The `object` always implements the ISRx interface
`RxCode`	In, Required	string	The code of the Rx group

Return Value

bool

Returns True if the Rx item belongs to the group with the specified code.

Example

Display BelongsTo for the Rx items loaded on the basis of the selected filter.

Dim aFilter
Dim aRxCollections, aRxCollection
Dim aRxCode
Dim i
Dim aMessage

Set aFilter = Profile.CreateRxFilter
aFilter.RxName = "Pendine"
aFilter.RxNameSearchMode = 1 'rnsmStartsWith
set aRxCollection = Profile.LoadRxCollection(aFilter)

aRxCode = "MMTC390" 'Gabapentin 

aMessage = "Rx Items Count = " & aRxCollection.Count &_
  vbNewLine & vbNewLine & "#  Name" & vbTab & vbTab & vbTab & vbTab &_
  "Belongs to the group" 
  
for i = 0 to aRxCollection.Count - 1
  set aRx = aRxCollection.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aRx.Name &_
    vbTab & vbTab & vbTab & aRx.BelongsTo(aRxCode)  
next      

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0