ISProfile.CreateInvoice

Description

This function creates a new invoice.

Syntax

object.CreateInvoice(aPatientID, aGuarantorID, 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
`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 invoice

Return Value

ISInvoice

Returns the created invoice.

Example

Create a new invoice and display some information about it.

Dim aTr
Dim aPatient, aPatientID
Dim aGuarantorID
Dim aIncomeProviderID
Dim aPOSID
Dim aDate  
Dim aMessage
Dim aInvoice, aInvoiceId  

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

set aInvoice = Profile.CreateInvoice(aPatientID, aGuarantorID, aIncomeProviderID,_
  aPOSID, aDate)

aTr.SnapShot
aInvoiceId = aInvoice.Save

set aInvoice = Profile.LoadInvoice(aInvoiceId)

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

Note:

In Profile Client v8 on User Interface Invoice can be found in Financial > Audit Transactions.

Version information

Added in v7.8.0