ISEncounter.PosCode

Example

Display the number of the encounters and some information about them, including the codes of the places of service for the encounters.

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)
  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 &_
    "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 &_
    "Resolved: " & aEncounter.Resolved & vbNewLine 
  
next   
                                              
Profile.MsgBox(aMessage)