ISPatientRecallVisit.CompleteForm_ShcdID

Example

Display short code ID of the complete form for the patient's intervention.

sub main()
  Dim aPatient,aSCode,aVisits,aMessage

  set aPatient = Profile.SelectPatient
  set aSCode = Profile.LoadShortCodeByCodeType("CPI", 11) ' sscForms 
  set aVisits = aPatient.RecallVisits.Completed

  aMessage = aMessage & "BEFORE" & vbNewLine & GetVisistsInfo(aVisits)

  for each aVisit in aVisits
    aVisit.CompleteForm_ShcdID = aSCode.Id
  next
 
  aMessage = aMessage & "AFTER" & vbNewLine & GetVisistsInfo(aVisits)
  
  Profile.MsgBox(aMessage)
end sub

function GetVisistsInfo(aVisits)
  for each aVisit in aVisits
     info = info & aVisit.Description  & " -- " & aVisit.CompleteForm_ShcdID & vbNewLine
     set aActions = aVisit.Actions
     for i = 0 to aActions.Count - 1
       set aAction = aActions.Item(i) 
       info = info & "  -" & aAction.Description & vbNewLine   
     next
  next
  GetVisistsInfo = info
end function