ISPatientRecallPlan.AddVisitByCareVisit

Description

This function adds an intervention to the patient's care plan based on the intervention template.

Syntax

object.AddVisitByCareVisit(aCareVisit)

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallPlan	The `object` always implements the ISPatientRecallPlan interface
`aCareVisit`	In, Required	ISCareVisit	The intervention template

Return Value

ISPatientRecallVisit

Returns the intervention added to the patient's care plan based on the intervention template.

Example

Add the intervention to the patient's care plan based on the intervention template.

sub main()
  Set aCarePlanTemplate = Profile.LoadCarePlanByCode ("FLU") 
  set aInterventionTemplates = aCarePlanTemplate.Visits          
       
  set aPatient = Profile.SelectPatient               
  set aCarePlans = aPatient.RecallPlans

  aMessage = "BEFORE: " & vbNewLine & GetPlansAsText(aCarePlans) 

  for each aCarePlan in aCarePlans
    for i = 0 to aInterventionTemplates.Count - 1
      set aInterventionTemplate = aInterventionTemplates.Item(i)
      set aIntervention = aCarePlan.AddVisitByCareVisit(aInterventionTemplate)
    next
  next
  
  aMessage = aMessage & "AFTER:" & vbNewLine & GetPlansAsText(aCarePlans)
  
  Profile.MsgBox(aMessage)
end sub


function GetPlansAsText(aCarePlans)
  for each aCarePlan in aCarePlans
    aMessage = aMessage & vbNewLine & aCarePlan.Description 
    set aInterventions = aCarePlan.Visits
    for each aIntervention in aInterventions
      aMessage = aMessage & vbNewLine & "  - " & aIntervention.Description
    next  
  next
  GetPlansAsText = aMessage
end function

Note:

In Profile Client v8 on User Interface Interventions can be found in Clinacal > Medical Record > Care Plans.

Version information

Added in v7.8.0