ISRxChemicalLink.NumUnit

Description

The number unit of the Rx preparation chemical link.

Syntax

object.NumUnit

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

Restriction: This property is readonly.

Return Value

ISConcept

Example

Display some information about the Rx preparations loaded on the basis of the selected filter, including the number units 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 Preparations 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 Unit 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