ISCmiDetail.Code

Description

The code of Consumer medicine information.

Syntax

object.Code

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

Restriction: This property is readonly.

Return Value

string

Example

Display Cmi details and their codes for the loaded Rx items.

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 Code: " &_
      aCmiDetail.Code  
  next 'j 
next 'i      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Code cannot be found, but Cmi details can be found in Maintain > Formulary > Rx > Show Consumer medicine information, in Clinical > Medical Record > New Encounter > Scripts > Usual Scrips tab > Show Consumer medicine information or in Clinical > New Encounter > Scripts > Usual Scrips tab > Show Consumer medicine information.

Version information

Added in v7.8.0