ISEncounter.PosID

Description

ID of the place of service for the encounter.

Syntax

object.PosID

Part	Attribute	Type	Description
`object`	Required	ISEncounter	The `object` always implements the ISEncounter interface

Return Value

int

Example

Display the number of the encounters and some information about them, including their POSes.

Dim aPatient        
Dim aFilter  
Dim aEncounters, aEncounter
Dim i 
Dim aPOS                                                                                                             
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 aPOS = Profile.LoadProviderById(aEncounter.PosID)
  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 &_
    "Duration: " & aEncounter.Duration & vbNewLine &_                          
    "Patient: " & aPatient.SurnameFirstName & vbNewLine &_
    "Pos Code: " & aEncounter.PosCode & vbNewLine &_
    "Pos: " & aPOS.FullName & 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 &_
    "Version Count: " & aEncounter.VersionCount & vbNewLine 
next  
                                               
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface POS ID cannot be found, but POS can be found in Clinical > Medical Record > New Encounter > Actions > Encounter > POS.

Version information

Added in v7.8.0