ISRxSystem.OID

Example

Display the names of the Rx items loaded on the basis of the selected filter, and the short information about the default Rx system including its OID.

Dim aFilter
Dim aRx, aRxCollection
Dim i
Dim aRxSystem 
Dim aMessage

Set aFilter = Profile.CreateRxFilter
aFilter.RxName = "Deralin"
aFilter.RxNameSearchMode = 1 'rnsmStartsWith
aFilter.IncludeChemicals = True
aFilter.IncludeGroups = True
aFilter.IncludePackages = True
aFilter.IncludePreparations = True  

const aDateValidFrom = 0
const aDateValidTo = 1
const aDeadLine = 2

set aRxCollection = Profile.LoadRxCollection(aFilter)

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

for i = 0 to aRxCollection.Count - 1
  set aRx = aRxCollection.Item(i)
  aMessage = aMessage & (i + 1) & ") " & aRx.AsString & vbNewLine
  
  set aRxSystem = aRx.RxSystem
   
  aMessage = aMessage &_
    "Rx System Name: " & aRxSystem.Name & vbNewLine &_
    " -Code: " & aRxSystem.Code & vbNewLine &_
    " -OID: " & aRxSystem.OID & vbNewLine &_
    " -Termset Code: " & aRxSystem.TermsetCode & vbNewLine &_
    " -Version: " & aRxSystem.Version & vbNewLine &_ 
    " -Valid from: " & aRxSystem.DT(aDateValidFrom) & vbNewLine &_ 
    " -Valid to: " & aRxSystem.DT(aDateValidTo) & vbNewLine &_ 
    " -Dead Line: " & aRxSystem.DT(aDeadLine) & vbNewLine &_        
    vbNewLine 
next

Profile.MsgBox(aMessage)