The description of Consumer medicine information.
object.Description
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISCmiDetail interface |
string
Display Cmi details and their descriptions for the Rx items loaded on the basis of the selected filter.
Dim aFilter
Dim aRx, aRxCollection
Dim i, j
Dim aCmiDetail
Dim aMessage
Set aFilter = Profile.CreateRxFilter
aFilter.RxName = "Pendine"
set aRxCollection = Profile.LoadRxCollection(aFilter)
aMessage = "Rx Items Count = " & aRxCollection.Count &_
vbNewLine & vbNewLine & "# As String"
for i = 0 to aRxCollection.Count - 1
set aRx = aRxCollection.Item(i)
aMessage = aMessage & vbNewLine & (i + 1) & ") " & aRx.AsString
for j = 0 to aRx.CmiDetailCount - 1
set aCmiDetail = aRx.CmiDetail(j)
aMessage = aMessage & vbNewLine & vbTab & (i + 1) & "." & (j + 1) & " " &_
"Cmi Details Count = " & aRx.CmiDetailCount & "; Cmi Detail Description: " &_
aCmiDetail.Description
next 'j
next 'i
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Description cannot be found, but Cmi details can be found in
, in or in .