ISDiseaseCodeLookupController.GetDiseaseCodeSearchAreaItems

Description

This function returns the disease code areas.

Syntax

object.GetDiseaseCodeSearchAreaItems(aDefArea, aDefSubGroupID, aDefaultItemName, aIsSearchAreaFixed, aItemIndex, aWarningMsg)

Part	Attribute	Type	Description
`object`	Required	ISDiseaseCodeLookupController	The `object` always implements the ISDiseaseCodeLookupController interface
`aDefArea`	In, Required	TSDiseaseCodeSearchArea	The default search area
`aDefSubGroupID`	In, Required	int	ID of the default subgroup
`aDefaultItemName`	In, Required	string	The name of the default item
`aIsSearchAreaFixed`	In/Out, Required	object&	The boolean value is true if the user is not allowed to select the search area in the list, or false otherwise
`aItemIndex`	In/Out, Required	object&	The integer index of the selected search area in the list
`aWarningMsg`	Out, Required	object&	The string that contains the warning message for the selected search area

Return Value

ISDiseaseCodeSearchAreaItems

Returns the disease code areas.

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 = False
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 &_
    " SubGroup ID = " & aAreaItem.SubGroupID & vbNewLine &_
    " Area = " & aAreaItem.Area & vbNewLine 
next

Profile.MessageBox(aMessage)

Note:

In Profile Client v8 on User Interface Search Area Items can be found in Maintain > Disease Codes > Group.

Version information

Added in v7.8.0