ISAddresses.DateTo

Description

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

Syntax

object.DateTo

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

Return Value

DateTime

Example

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

Dim aPatient  
Dim aAddresses, aAddress
Dim i
Dim aAddressCollection
Dim aMessage   

Set aPatient = Profile.SelectPatient 

set aAddressCollection = aPatient.LoadAddresses

for i = 0 to aAddressCollection.Count - 1
  set aAddress = aAddressCollection.Item(i)  
  set aAddresses = Profile.LoadAdditionalAddress(aAddress.Id)
  
  aMessage = aMessage & vbNewLine &_
    "The date and time the patient's " &_
    "additional address  " & aAddress.AsLine &_
    " is valid from - " & aAddress.DateFrom  
next 
Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0