72: --| |
73: --==============================================================================
74: PROCEDURE Create_Lead_Opportunity (
75: p_api_version IN NUMBER,
76: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
77: p_commit IN VARCHAR2 := FND_API.g_false,
78: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
79: p_referral_id IN NUMBER,
80: p_customer_party_id IN NUMBER := NULL,
73: --==============================================================================
74: PROCEDURE Create_Lead_Opportunity (
75: p_api_version IN NUMBER,
76: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
77: p_commit IN VARCHAR2 := FND_API.g_false,
78: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
79: p_referral_id IN NUMBER,
80: p_customer_party_id IN NUMBER := NULL,
81: p_customer_party_site_id IN NUMBER := NULL,
74: PROCEDURE Create_Lead_Opportunity (
75: p_api_version IN NUMBER,
76: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
77: p_commit IN VARCHAR2 := FND_API.g_false,
78: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
79: p_referral_id IN NUMBER,
80: p_customer_party_id IN NUMBER := NULL,
81: p_customer_party_site_id IN NUMBER := NULL,
82: p_customer_org_contact_id IN NUMBER := NULL,
98: BEGIN
99: g_api_name := 'Create_Lead_Opportunity';
100:
101: -------------------- initialize -------------------------
102: IF FND_API.to_boolean(p_init_msg_list) THEN
103: FND_MSG_PUB.initialize;
104: END IF;
105:
106: IF NOT FND_API.compatible_api_call(
102: IF FND_API.to_boolean(p_init_msg_list) THEN
103: FND_MSG_PUB.initialize;
104: END IF;
105:
106: IF NOT FND_API.compatible_api_call(
107: l_api_version,
108: p_api_version,
109: g_api_name,
110: g_pkg_name
108: p_api_version,
109: g_api_name,
110: g_pkg_name
111: ) THEN
112: RAISE FND_API.g_exc_unexpected_error;
113: END IF;
114:
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116:
111: ) THEN
112: RAISE FND_API.g_exc_unexpected_error;
113: END IF;
114:
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116:
117:
118:
119: Debug('user_id : ' || fnd_global.user_id());
122:
123:
124: Debug('Return Status: ' || x_return_status);
125:
126: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
127: RAISE FND_API.G_EXC_ERROR;
128:
129: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
130: RAISE FND_API.g_exc_unexpected_error;
123:
124: Debug('Return Status: ' || x_return_status);
125:
126: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
127: RAISE FND_API.G_EXC_ERROR;
128:
129: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
130: RAISE FND_API.g_exc_unexpected_error;
131: END IF;
125:
126: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
127: RAISE FND_API.G_EXC_ERROR;
128:
129: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
130: RAISE FND_API.g_exc_unexpected_error;
131: END IF;
132:
133:
126: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
127: RAISE FND_API.G_EXC_ERROR;
128:
129: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
130: RAISE FND_API.g_exc_unexpected_error;
131: END IF;
132:
133:
134:
133:
134:
135: -------------------- Exception --------------------------
136: EXCEPTION
137: WHEN FND_API.G_EXC_ERROR THEN
138: ROLLBACK;
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
141: p_count => x_msg_count,
135: -------------------- Exception --------------------------
136: EXCEPTION
137: WHEN FND_API.G_EXC_ERROR THEN
138: ROLLBACK;
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
141: p_count => x_msg_count,
142: p_data => x_msg_data);
143:
136: EXCEPTION
137: WHEN FND_API.G_EXC_ERROR THEN
138: ROLLBACK;
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
141: p_count => x_msg_count,
142: p_data => x_msg_data);
143:
144: WHEN FND_API.g_exc_unexpected_error THEN
140: FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
141: p_count => x_msg_count,
142: p_data => x_msg_data);
143:
144: WHEN FND_API.g_exc_unexpected_error THEN
145: ROLLBACK;
146: x_return_status := FND_API.g_ret_sts_unexp_error;
147: FND_MSG_PUB.count_and_get(
148: p_encoded => FND_API.g_false,
142: p_data => x_msg_data);
143:
144: WHEN FND_API.g_exc_unexpected_error THEN
145: ROLLBACK;
146: x_return_status := FND_API.g_ret_sts_unexp_error;
147: FND_MSG_PUB.count_and_get(
148: p_encoded => FND_API.g_false,
149: p_count => x_msg_count,
150: p_data => x_msg_data
144: WHEN FND_API.g_exc_unexpected_error THEN
145: ROLLBACK;
146: x_return_status := FND_API.g_ret_sts_unexp_error;
147: FND_MSG_PUB.count_and_get(
148: p_encoded => FND_API.g_false,
149: p_count => x_msg_count,
150: p_data => x_msg_data
151: );
152:
155: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
156: FND_MSG_PUB.add_exc_msg(g_pkg_name, g_api_name);
157: END IF;
158:
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: FND_MSG_PUB.count_and_get(
161: p_encoded => FND_API.g_false,
162: p_count => x_msg_count,
163: p_data => x_msg_data
157: END IF;
158:
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: FND_MSG_PUB.count_and_get(
161: p_encoded => FND_API.g_false,
162: p_count => x_msg_count,
163: p_data => x_msg_data
164: );
165: