ISService.AddServicePrice

Description

This function adds the service price to the specified service.

Syntax

object.AddServicePrice(aStart, aEnd[, aDefaultQuantity = 1])

Part	Attribute	Type	Description
`object`	Required	ISService	The `object` always implements the ISService interface
`aStart`	In, Required	DateTime	The start date of the service
`aEnd`	In, Required	DateTime	The end date of the service
`aDefaultQuantity`	In, Optional Default value is 1	Decimal	The default quantity value

Return Value

ISServicePrice

Returns the added service price.

Example

Add the service price to the service and display the number of the service prices before and after adding.

Dim aPatient
Dim aFilter
Dim aServices
Dim aTrans
Dim aService
Dim aServicePrices
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Injection"
set aServices = Profile.LoadServicesByFilter(aFilter)

set aTrans = Profile.StartMapTransaction

aMessage = "Services Count = " & aServices.Count & vbNewLine
for i = 0 to aServices.Count - 1
  set aService = aServices.Item(i)      
  set aServicePrices = aService.GetServicePrices
  aMessage = aMessage & vbNewLine &_
    "The number of the service prices before adding is " & aServicePrices.Count
next 
   
aService.AddServicePrice #05/05/2019#, #07/07/2019#, 1

aTrans.SnapShot  
  
set aServicePrices = aService.GetServicePrices
aMessage = aMessage & vbNewLine &_
  "The number of the service prices after adding is " & aServicePrices.Count                         

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Service Price can be found and added in Maintain > Services > Edit the selected service > Financial.

Version information

Added in v8.3.0

parameter aDefaultQuantity added in v8.3.0