PACKAGE: APPS.AML_LEAD_DEDUPE_PVT

Source

1 PACKAGE AML_LEAD_DEDUPE_PVT AUTHID CURRENT_USER as
2 /* $Header: amlvddps.pls 115.3 2003/11/10 12:52:49 aanjaria noship $ */
3 
4 -- Start of Comments
5 -- Package name     : aml_lead_dedupe_pvt
6 -- Purpose          : To find duplicate lead
7 -- NOTE             :
8 -- History          :
9 --                    11-Aug-2003  AANJARIA  Created.
10 --
11 -- End of Comments
12 
13 TYPE category_id_type IS TABLE OF as_sales_lead_lines.category_id%TYPE
14                                        INDEX BY BINARY_INTEGER;
15 
16 TYPE dedupe_rec_type IS RECORD (
17 	party_id                NUMBER,
18 	party_site_id           NUMBER,
19 	contact_id              NUMBER,
20 	vehicle_response_code   VARCHAR2(30),
21 	source_code             VARCHAR2(50),
22 	lead_note               VARCHAR2(2000),
23 	note_type               VARCHAR2(30),
24 	budget_amount           NUMBER,
25 	purchase_amount	        NUMBER,
26 	budget_status_code      VARCHAR2(30),
27 	project_code            VARCHAR2(80),
28 	purchase_timeframe_code	VARCHAR2(30),
29 	category_id_tbl         category_id_type
30 );
31 
32 PROCEDURE main (
33 	p_init_msg_list    IN   VARCHAR2 := FND_API.G_FALSE,
34 	p_dedupe_rec       IN   dedupe_rec_type,  -- Input Lead Record
35 	x_duplicate_flag   OUT  NOCOPY VARCHAR2,  -- D/U
36 	x_sales_lead_id    OUT  NOCOPY NUMBER,
37 	x_return_status    OUT  NOCOPY VARCHAR2,
38 	x_msg_count        OUT  NOCOPY NUMBER,
39 	x_msg_data         OUT  NOCOPY VARCHAR2
40 );
41 
42 END AML_LEAD_DEDUPE_PVT;