ISAddress.DateTo

Description

The date and time the patient's additional address is valid to.

Syntax

object.DateTo

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

Return Value

DateTime

Example

Display the date and time the patient's additional address is valid to.

Dim aPatient  
Dim aAddresses
Dim aAddress
Dim aDateTo
Dim aMessage   

Set aPatient = Profile.SelectPatient 

set aAddresses = aPatient.LoadAddresses
aMessage = "Addresses Count = " & aAddresses.Count

for i = 0 to aAddresses.Count - 1
  set aAddress = aAddresses.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & "To " & aAddress.DateTo 
next 

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Date To can be found in Patient > Alter Patient > Personal > Additional Addresses > Date To field.

Version information

Added in v7.10.110