ISPatientRecallVisit.PosID

Example

Display ID of the place of service the patient's intervention is to be associated with.

sub main()
   Dim aPatient, aRecallVisits, aMessage
     
   set aPatient = Profile.SelectPatient
   set aRecallVisits = aPatient.RecallVisits
   aMessage = "Due Interventions: " & vbNewLine &_  
     GetVisitCollectionInfo(aRecallVisits.Due) & vbNewLine &_
       "Completed Interventions: " & vbNewLine &_
     GetVisitCollectionInfo(aRecallVisits.Completed) & vbNewLine

  Profile.MsgBox(aMessage)
end sub

function GetVisitCollectionInfo(aVisits)
  Dim aVisit, aPlan, info

  if aVisits.Count = 0 then
    info = "  There are no interventions!"
  else
    info = "  The patient has " & aVisits.Count & " intervention(s):"
  end if   
   
  for each aVisit in aVisits 
    set aPlan = aVisit.ParentPlan
    info = info & vbNewLine & "ID of POS the intervention '" & aVisit.Description &_
    "' is to be associated with = " &aVisit.PosID  

  next
  
  GetVisitCollectionInfo = info
end function