ISRxSystem.DT

Example

Display the names of the Rx items loaded on the basis of the selected filter, and some information about the default Rx system including its validity period and deadline.

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 &_ 
    " -Deadline: " & aRxSystem.DT(aDeadLine) & vbNewLine &_        
    vbNewLine 
next

Profile.MsgBox(aMessage)