ISPatientRecallVisit.IsValidForCase

Description

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

Syntax

object.IsValidForCase(CasweID)

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

Return Value

bool

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

Example

Display IsValidForCase for the patient's intervention.

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

  set aVisits = aPatient.RecallVisits.Completed

  aMessage = GetVisistsInfo(aPatient.RecallVisits.Completed, aCaseID) &_
    GetVisistsInfo(aPatient.RecallVisits.Due, aCaseID) 
  
  Profile.MsgBox(aMessage)
end sub

function GetVisistsInfo(aVisits, aCaseID)
  Dim info
  for each aVisit in aVisits  
    info = info & "The intervention '" & aVisit.Description  &_
     "' is valid for the specified case: " &_
      aVisit.IsValidForCase(aCaseID) & vbNewLine
  next
  GetVisistsInfo = info
end function

Note:

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

Version information

Added in v7.8.0