ISProfile.CreateQuote

Description

This function creates a new quote.

Syntax

object.CreateQuote(aPatientID, aGuarantorID, aPayerType, aIncomeProviderID, aPOSID, aDate)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aPatientID`	In, Required	int	ID of the patient
`aGuarantorID`	In, Required	int	ID of the guarantor
`aPayerType`	In, Required	TSPayerType	The type of the payer
`aIncomeProviderID`	In, Required	int	ID of the income provider
`aPOSID`	In, Required	int	ID of the place of service
`aDate`	In, Required	DateTime	The date of the quote

Return Value

ISQuote

Returns the created quote.

Example

Create a new quote and display some information about it.

Dim aTr
Dim aPatient, aPatientID
Dim aGuarantorID
Dim aIncomeProviderID
Dim aPOSID
Dim aDate 
Dim aPayerType 
Dim aQuote, aQuoteId
Dim aMessage

Set aTr = Profile.StartMapTransaction
set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID
aGuarantorID = aPatient.ID
aIncomeProviderID = Profile.LoadProvider("AM").ID
aPOSID = Profile.CurrentPOSId
aDate = Now
aPayerType = 2 'sptGuarantor 

set aQuote = Profile.CreateQuote(aPatientID, aGuarantorID, aPayerType, aIncomeProviderID,_
  aPOSID, aDate)

aTr.SnapShot
aQuoteId = aQuote.Save

set aQuote = Profile.LoadQuote(aQuoteId)

aMessage = aMessage & vbNewLine & _
  "Created Date: " & aQuote.CreatedDate & vbNewLine &_
  "ID: " & aQuote.ID & vbNewLine &_
  "Pos Code: " & aQuote.PosCode & vbNewLine 
    
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Quotes can be created in Financial > Quotes > Create a new Quote.

Version information

Added in v7.8.0