ISPatientRecallPlan.IsValidForCase

Description

This function checks if the patient's care plan is valid for the specified case.

Syntax

object.IsValidForCase(CaseID)

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallPlan	The `object` always implements the ISPatientRecallPlan interface
`CaseID`	In, Required	int	ID of the case

Return Value

bool

Returns True if the patient's care plan is valid for the specified case.

Example

Display IsValidForCase for the patient's care plan.

sub main()
  if not Profile.Lookup_PatientCaseSearch(aPatientID, aCaseID, "", true) then 
    exit sub
  end if
    
  set aPatient = Profile.LoadPatient(aPatientId)  

  set aRecallPlans = aPatient.RecallPlans

  aMessage = GetPlansInfo(aRecallPlans, aCaseID)
  
  Profile.MsgBox(aMessage)
end sub

function GetPlansInfo(aPlans, aCaseID)
  Dim info, aCase
  
  set aCase = Profile.OpenCase(aCaseID)
  if aCase is nothing then
    aCaseName = ""
  else
    aCaseName = aCase.CaseTitle
  end if  
  
  for each aPlan in aPlans  
    info = info & "The plan '" & aPlan.Description  &_
     "' is valid for the case '" & aCaseName & "' ---"&_
      aPlan.IsValidForCase(aCaseID) & vbNewLine
  next
  GetPlansInfo = info
end function

Note:

In Profile Client v8 on User Interface Is Valid For cannot be found.

Version information

Added in v7.8.0