ISDiseaseCodeSearchAreaItem.Area

Example

Display the number of the disease code areas and some information about them.

Dim aLookupReason
Dim aEnableSearchInTermset
Dim aController
Dim aDefArea   
Dim aDefSubGroupID                 
Dim aDefaultItemName 
Dim aIsSearchAreaFixed 
Dim aItemIndex 
Dim aWarningMsg 
Dim aIsDescriptionSearch
Dim aAreaItem, aAreaItems
Dim i
Dim aMessage

aLookupReason = 0  'TSDiseaseCodeLookupReason.slrDiseaseCode    
aEnableSearchInTermset = True

set aController = Profile.ProfileInternal.CreateDiseaseCodeLookupController(_
aLookupReason, aEnableSearchInTermset) 'ISDiseaseCodeLookupController

aDefArea = 1  'TSDiseaseCodeSearchArea.ssaDiseaseCodes    
aDefSubGroupID = 0                 
aDefaultItemName = "HEP"
aIsSearchAreaFixed = 0
aItemIndex = 0
aWarningMsg = "Warning"

set aAreaItems = aController.GetDiseaseCodeSearchAreaItems(aDefArea,_
  aDefSubGroupID, aDefaultItemName, aIsSearchAreaFixed, aItemIndex, aWarningMsg) 

aMessage = "The number of the area items is " & aAreaItems.Count & ": " & vbNewLine

for i = 0 to aAreaItems.Count - 1
  set aAreaItem = aAreaItems.Item(i) 'ISDiseaseCodeSearchAreaItems
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") " & aAreaItem.Name & vbNewLine &_
    " SubGroupID = " & aAreaItem.SubGroupID & vbNewLine &_
    " Area = " & aAreaItem.Area & vbNewLine 
next

Profile.MessageBox(aMessage)