ISCareVisit.AgeEndMonth

Description

The patient's age in months till which the intervention template is to be applied to.

Syntax

object.AgeEndMonth

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

Return Value

int

Example

Display the patient's age in months till which the intervention template is to be applied to.

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 & "The patient's age in months " &_
    "till which the intervention template '" & aVisit.Description &_
    "'" & " is to be applied to is "  & aVisit.AgeEndMonth
  next

end if       
   
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Age End Month can be found in Maintain > Care Plans > Open Plan > Interventions > Alter Intervention > Valid for > To fields.

Version information

Added in v7.8.0