1 package body aml_find_party_match_pvt as
2 /* $Header: amlvcpmb.pls 115.1 2004/03/04 06:09:51 aanjaria noship $ */
3
4 -- Start of Comments
5 -- Package name : aml_find_party_match_pvt
6 -- NOTE : This is a custom program that contains user logic.
7 -- This program should be used as a template and customers
8 -- can modify the code for their filtering/validations.
9 --
10 -- This program will be invoked by lead import program
11 -- for each record before processing the import record
12 -- through DQM. Execution of this program is controlled
13 -- by profile 'OS: Execute custom code from lead import'.
14 --
15 -- End of Comments
16
17 PROCEDURE main (imp IN OUT NOCOPY as_import_interface%rowtype,
18 x_return_status OUT NOCOPY varchar2) as
19
20 l_party_id number;
21
22 BEGIN
23
24 x_return_status := FND_API.G_RET_STS_SUCCESS;
25
26 IF imp.party_id IS NULL THEN
27
28 SELECT party_id
29 INTO l_party_id
30 FROM hz_parties hzp
31 WHERE hzp.party_name = imp.customer_name;
32
33 imp.party_id := l_party_id;
34
35 UPDATE as_import_interface
36 SET party_id = l_party_id
37 WHERE import_interface_id = imp.import_interface_id;
38
39 END IF;
40
41 EXCEPTION
42 -- Handle known exception
43 WHEN NO_DATA_FOUND THEN
44 l_party_id := NULL;
45
46 WHEN TOO_MANY_ROWS THEN
47 l_party_id := NULL;
48
49 /* --dont need following..let lead import program handle the exception
50 WHEN OTHERS THEN
51 x_return_status := FND_API.G_RET_STS_ERROR;
52 */
53 END main;
54
55 END aml_find_party_match_pvt;