ISPatient.Get_PosId

Description

This function returns the identifier of the patient's default place of service.

Syntax

object.Get_PosId()

Part Attribute Type Description
object Required
ISPatient
The object always implements the ISPatient interface

Return Value

int

Returns the identifier of the patient's default place of service.

Example

Display the identifier of the patient's default place of service. 

Dim aPatient  
Dim aPOSID

Set aPatient = Profile.SelectPatient
aPOSID = aPatient.Get_PosId
Profile.MsgBox (aPOSID)
Note: If the POS field in Patient/Alter Patient/Internet is empty the current POS is default.

In Profile Client v8 on User Interface default POS ID cannot be found.

Version information

Added in v7.8.0
Parent topic: ISPatient