ISCareVisit.ID

Description

ID of the intervention template.

Syntax

object.ID

Part Attribute Type Description
object Required
The object always implements the ISCareVisit interface
Restriction: This property is readonly.

Return Value

int

Example

Display ID of the intervention template.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit

Set aCarePlan = Profile.LoadCarePlanByCode ("FLU") 
set aVisits = aCarePlan.Visits

if aVisits.Count = 0 then
  aMessage = aMessage & vbNewLine & "There are no care visits!"
else
  
  for i = 0 to aVisits.Count - 1
    set aVisit = aVisits.Item(i)
    aMessage = aMessage & vbNewLine & "ID of the intervention template '" &_
    aVisit.Description & "'" & " is "  & aVisit.ID   
  next
  
end if       
   
Profile.MsgBox (aMessage)  
Note:

In Profile Client v8 on User Interface ID cannot be found.

Version information

Added in v7.8.0