ISEncounter.PatientId

Description

ID of the patient the encounter is created for.

Syntax

object.PatientId

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the encounters and some information about them, including the full names of the patients.

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

Note:

In Profile Client v8 on User Interface Patient ID cannot be found, but Patient can be found in Clinical > Medical Record > Results > Set Properties > Patient.

Version information

Added in v7.8.0