ISPatient.Get_POS

Description

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

Syntax

object.Get_POS()

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

Return Value

string

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

Example

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

Dim aPatient  
Dim aPOS

Set aPatient = Profile.SelectPatient
aPOS = aPatient.Get_POS
Profile.MsgBox (aPOS)
Note: If the POS field is empty the current POS is default.

In Profile Client v8 on User Interface default POS can be found in Patient > Alter Patient > Internet > POS field.

Version information

Added in v7.8.0
Parent topic: ISPatient