ISEncounter.ClinicalGuideline

Example

Display the number of the encounters and some information about them, including the clinical guidelines applied to them.

Dim aPatient        
Dim aFilter  
Dim aEncounters, aEncounter               
Dim i                                                                                                             
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aFilter = Profile.CreateEncounterFilter                     
aFilter.PatientId = aPatient.ID 
set aEncounters = aPatient.LoadEncounters(aFilter)

aMessage = "Encounters Count = " & aEncounters.Count

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  set aSection = Profile.LoadShortCode(aEncounter.Section)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Auto Created: " & aEncounter.AutoCreated & vbNewLine &_                             
    "Block From Patient Access: " & aEncounter.BlockFromPatientAccess & vbNewLine &_ 
    "Child Protection: " & aEncounter.ChildProtection & vbNewLine &_
    "Date: " & aEncounter.Date & vbNewLine &_                            
    "Date Created: " & aEncounter.DateCreated & vbNewLine &_
    "Date Altered: " & aEncounter.DateAltered & vbNewLine &_
    "Date Ended: " & aEncounter.DateEnded & vbNewLine &_
    "Date Time: " & aEncounter.DateTime & vbNewLine &_
    "ID: " & aEncounter.ID & vbNewLine &_
    "Time: " & aEncounter.Time & vbNewLine &_
    "Duration: " & aEncounter.Duration & vbNewLine &_
    "Patient Id: " & aEncounter.PatientId & vbNewLine &_
    "Pos Code: " & aEncounter.PosCode & vbNewLine &_
    "Provider Code: " & aEncounter.ProviderCode & vbNewLine &_
    "Service Code: " & aEncounter.ServiceCode & vbNewLine &_
    "Type Code: " & aEncounter.TypeCode & vbNewLine &_                
    "Type Description: " & aEncounter.TypeDescription & vbNewLine &_
    "Type ID: " & aEncounter.TypeID & vbNewLine
    
  if not aEncounter.ClinicalGuideline is nothing then
    aMessage = aMessage & "ClinicalGuideline: " & aEncounter.ClinicalGuideline.Description & vbNewLine
  end if
next  
                                               
Profile.MsgBox(aMessage)