ISDiseaseCodeSearchAreaItem.SubGroupID

Description

ID of the grouping entity.

Syntax

object.SubGroupID

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

Restriction: This property is readonly.

Return Value

int

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)

Note: The grouping entity depends on the area. Usually it is Termset Identifier for ssaTermsets, Shortcode Identifier for ssaDiseaseCodes, etc. In Profile Client v8 on User Sub Group ID cannot be found.

Version information

Added in v7.8.0