ISProcedure.Side

Example

Display the number of the patient's surgical procedures within the collection, their descriptions, dates, start time and the patient's sides these procedures are being completed on.

sub main ()
  Dim aPatient  
  Dim aProcedureList, aProcedure
  Dim i
  Dim aMessage

  Set aPatient = Profile.SelectPatient 
  set aProcedureList = aPatient.ProcedureList
  aMessage = "Procedures Count = " & aProcedureList.Count & vbNewLine

  for i = 0 to aProcedureList.Count - 1
    set aProcedure = aProcedureList.Item(i)
    aMessage = aMessage & vbNewLine & (i + 1) & ") " &_ 
      aProcedure.ProcedureExplanation & " (scheduled date and time: " &_ 
      aProcedure.StartTime & ")" & vbNewLine & "      -The patient's side = " &_ 
      GetSideDescr(aProcedure.Side) & vbNewLine  
  next
    
  Profile.MsgBox(aMessage)
end sub

function GetSideDescr(aSide)
  Dim aResult

  Select Case aSide
    Case 0
      aResult = "N/A"
    Case 1
      aResult = "Left"
    Case 2
      aResult = "Right"
    Case 3
      aResult = "Bilateral"         
  End Select
  
  GetSideDescr = aResult
end function