ISRxChemicalLink.NumValue

Description

The number value of the Rx preparation chemical link.

Syntax

object.NumValue

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

Restriction: This property is readonly.

Return Value

Decimal

Example

Display some information about the Rx preparations loaded on the basis of the selected filter, including the number values of their chemical links.

Dim aFilter
Dim aRxPreparation, aRxCollection
Dim i, j
Dim aChemicalLink
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 Preparation Count = " & aRxCollection.Count & vbNewLine 

for i = 0 to aRxCollection.Count - 1
  set aRxPreparation = aRxCollection.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " & aRxPreparation.AsString &_
    " (Chemical Links Count = " & aRxPreparation.ChemicalLinkCount & ")"
  for j = 0 to aRxPreparation.ChemicalLinkCount - 1
    set aChemicalLink = aRxPreparation.ChemicalLink(j)
    aMessage = aMessage & vbNewLine & vbTab & (i + 1) & "." & (j + 1) & ". " &_
      "Chemical Link: " & aChemicalLink.ChemicalName & ", " &_
      aChemicalLink.NumValue & " " & aChemicalLink.NumUnit.Name & vbNewLine    
  next 'j      
next 'i

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Number Value cannot be found, but Rx preparations can be found in Maintain > Formulary > Rx, in Clinical > Medical Record > New Encounter > Scripts > Rx or in Clinical > New Encounter > Scripts > Rx.

Version information

Added in v8.4.0