DBA Data[Home] [Help]

APPS.AHL_WARRANTY_CONTRACTS_PVT dependencies on FND_API

Line 107: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN

103: FND_FILE.put_line(FND_FILE.LOG, 'p_api_version -> '|| p_api_version);
104: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
105: FND_FILE.put_line(FND_FILE.LOG, 'l_api_version -> '|| l_api_version);
106: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
107: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
108: retcode := 2;
109: errbuf := FND_MSG_PUB.Get;
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;

Line 110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

106: FND_FILE.NEW_LINE(FND_FILE.LOG, 2);
107: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
108: retcode := 2;
109: errbuf := FND_MSG_PUB.Get;
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;
112:
113: --------------------Start of API Body-----------------------------------
114:

Line 148: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

144:
145: l_msg_count := FND_MSG_PUB.Count_Msg;
146: IF (l_msg_count > 0) THEN
147: CLOSE auto_assign_item_instances_csr;
148: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
149: RAISE FND_API.G_EXC_ERROR;
150: ELSE
151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
152: END IF;

Line 149: RAISE FND_API.G_EXC_ERROR;

145: l_msg_count := FND_MSG_PUB.Count_Msg;
146: IF (l_msg_count > 0) THEN
147: CLOSE auto_assign_item_instances_csr;
148: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
149: RAISE FND_API.G_EXC_ERROR;
150: ELSE
151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
152: END IF;
153: END IF;

Line 151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

147: CLOSE auto_assign_item_instances_csr;
148: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
149: RAISE FND_API.G_EXC_ERROR;
150: ELSE
151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
152: END IF;
153: END IF;
154:
155: FND_FILE.put_line(FND_FILE.LOG, 'after calling AHL_SW_CONTRACTS_PVT.Create_Contract');

Line 177: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

173: x_msg_data => l_msg_data);
174:
175: l_msg_count := FND_MSG_PUB.Count_Msg;
176: IF (l_msg_count > 0) THEN
177: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
178: RAISE FND_API.G_EXC_ERROR;
179: ELSE
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: END IF;

Line 178: RAISE FND_API.G_EXC_ERROR;

174:
175: l_msg_count := FND_MSG_PUB.Count_Msg;
176: IF (l_msg_count > 0) THEN
177: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
178: RAISE FND_API.G_EXC_ERROR;
179: ELSE
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: END IF;
182: END IF;

Line 180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

176: IF (l_msg_count > 0) THEN
177: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
178: RAISE FND_API.G_EXC_ERROR;
179: ELSE
180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: END IF;
182: END IF;
183:
184: FND_FILE.put_line(FND_FILE.LOG, 'after calling AHL_WARRANTY_UTILS_PVT.Calc_Contract_Exp_Date');

Line 197: WHEN FND_API.G_EXC_ERROR THEN

193:
194: ---------------------------End of Body-------------------------------------
195:
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: ROLLBACK TO Auto_Create_Warranty_Contracts;
199: l_msg_count := FND_MSG_PUB.Count_Msg;
200: retcode := 2;
201:

Line 211: p_encoded => FND_API.G_FALSE,

207: FOR i IN 1..l_msg_count
208: LOOP
209: FND_MSG_PUB.get(
210: p_msg_index => i,
211: p_encoded => FND_API.G_FALSE,
212: p_data => l_err_msg,
213: p_msg_index_out => l_msg_index_out);
214:
215: FND_FILE.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);

Line 219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

215: FND_FILE.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
216: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
217: END LOOP;
218:
219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
220: ROLLBACK TO Auto_Create_Warranty_Contracts;
221: l_msg_count := FND_MSG_PUB.Count_Msg;
222: retcode := 2;
223:

Line 233: p_encoded => FND_API.G_FALSE,

229: FOR i IN 1..l_msg_count
230: LOOP
231: FND_MSG_PUB.get(
232: p_msg_index => i,
233: p_encoded => FND_API.G_FALSE,
234: p_data => l_err_msg,
235: p_msg_index_out => l_msg_index_out);
236:
237: FND_FILE.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);

Line 262: p_encoded => FND_API.G_FALSE,

258: FOR i IN 1..l_msg_count
259: LOOP
260: fnd_msg_pub.get(
261: p_msg_index => i,
262: p_encoded => FND_API.G_FALSE,
263: p_data => l_err_msg,
264: p_msg_index_out => l_msg_index_out);
265:
266: FND_FILE.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);

Line 292: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,

288:
289:
290: PROCEDURE Create_Contract (
291: p_api_version IN NUMBER,
292: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
293: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
294: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
295: p_module_type IN VARCHAR2 := NULL,
296: p_warranty_template_id IN NUMBER,

Line 293: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,

289:
290: PROCEDURE Create_Contract (
291: p_api_version IN NUMBER,
292: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
293: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
294: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
295: p_module_type IN VARCHAR2 := NULL,
296: p_warranty_template_id IN NUMBER,
297: p_item_instance_id IN NUMBER,

Line 294: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,

290: PROCEDURE Create_Contract (
291: p_api_version IN NUMBER,
292: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
293: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
294: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
295: p_module_type IN VARCHAR2 := NULL,
296: p_warranty_template_id IN NUMBER,
297: p_item_instance_id IN NUMBER,
298: x_warranty_contract_id OUT NOCOPY NUMBER,

Line 372: IF FND_API.To_Boolean(p_init_msg_list) THEN

368: 'Item Instance ID' || p_item_instance_id);
369: END IF;
370:
371: -- Initialize message list if p_init_msg_list is set to TRUE
372: IF FND_API.To_Boolean(p_init_msg_list) THEN
373: FND_MSG_PUB.Initialize;
374: END IF;
375:
376: -- Initialize API return status to success

Line 377: x_return_status := FND_API.G_RET_STS_SUCCESS;

373: FND_MSG_PUB.Initialize;
374: END IF;
375:
376: -- Initialize API return status to success
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: -- Standard call to check for call compatibility.
380: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
381: p_api_version,

Line 380: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

376: -- Initialize API return status to success
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: -- Standard call to check for call compatibility.
380: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
381: p_api_version,
382: l_api_name,G_PKG_NAME) THEN
383: IF (l_log_statement >= l_log_current_level) THEN
384: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR',

Line 387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

383: IF (l_log_statement >= l_log_current_level) THEN
384: fnd_log.string(l_log_statement,L_DEBUG_KEY||'UNEXPECTED ERROR',
385: 'l_api_version :' || l_api_version || 'p_api_version :' || p_api_version );
386: END IF;
387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
388: END IF;
389:
390: --------------------Start of API Body-----------------------------------
391:

Line 405: RAISE Fnd_Api.G_EXC_ERROR;

401: IF (l_log_statement >= l_log_current_level) THEN
402: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Item Instance ID :' || p_item_instance_id || 'is invalid' );
403: END IF;
404:
405: RAISE Fnd_Api.G_EXC_ERROR;
406: END IF;
407: CLOSE validate_instance_csr;
408:
409: -- fetch the template details

Line 421: RAISE Fnd_Api.G_EXC_ERROR;

417: IF (l_log_statement >= l_log_current_level) THEN
418: fnd_log.string(l_log_statement,L_DEBUG_KEY,'warranty template: ' || p_warranty_template_id || 'is invalid' );
419: END IF;
420:
421: RAISE Fnd_Api.G_EXC_ERROR;
422: END IF;
423: CLOSE warranty_template_csr;
424:
425: -- store the contract's end date for populating in the counter's table, before expiration calculation API is called

Line 670: IF Fnd_Api.To_Boolean ( p_commit ) THEN

666: --
667: -- END of API body.
668: --
669: -- Standard check of p_commit.
670: IF Fnd_Api.To_Boolean ( p_commit ) THEN
671: COMMIT WORK;
672: END IF;
673:
674: IF (l_log_procedure >= l_log_current_level)THEN

Line 680: WHEN FND_API.G_EXC_ERROR THEN

676: 'At the end of PLSQL procedure Create_Contract, x_return_status=' || x_return_status);
677: END IF;
678:
679: EXCEPTION
680: WHEN FND_API.G_EXC_ERROR THEN
681: x_return_status := FND_API.G_RET_STS_ERROR;
682: ROLLBACK TO Create_Contract;
683: FND_MSG_PUB.count_and_get(
684: p_count => x_msg_count,

Line 681: x_return_status := FND_API.G_RET_STS_ERROR;

677: END IF;
678:
679: EXCEPTION
680: WHEN FND_API.G_EXC_ERROR THEN
681: x_return_status := FND_API.G_RET_STS_ERROR;
682: ROLLBACK TO Create_Contract;
683: FND_MSG_PUB.count_and_get(
684: p_count => x_msg_count,
685: p_data => x_msg_data,

Line 686: p_encoded => fnd_api.g_false);

682: ROLLBACK TO Create_Contract;
683: FND_MSG_PUB.count_and_get(
684: p_count => x_msg_count,
685: p_data => x_msg_data,
686: p_encoded => fnd_api.g_false);
687:
688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690: ROLLBACK TO Create_Contract;

Line 688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

684: p_count => x_msg_count,
685: p_data => x_msg_data,
686: p_encoded => fnd_api.g_false);
687:
688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690: ROLLBACK TO Create_Contract;
691: FND_MSG_PUB.count_and_get(
692: p_count => x_msg_count,

Line 689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

685: p_data => x_msg_data,
686: p_encoded => fnd_api.g_false);
687:
688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690: ROLLBACK TO Create_Contract;
691: FND_MSG_PUB.count_and_get(
692: p_count => x_msg_count,
693: p_data => x_msg_data,

Line 694: p_encoded => fnd_api.g_false);

690: ROLLBACK TO Create_Contract;
691: FND_MSG_PUB.count_and_get(
692: p_count => x_msg_count,
693: p_data => x_msg_data,
694: p_encoded => fnd_api.g_false);
695:
696: WHEN OTHERS THEN
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: ROLLBACK TO Create_Contract;

Line 697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

693: p_data => x_msg_data,
694: p_encoded => fnd_api.g_false);
695:
696: WHEN OTHERS THEN
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: ROLLBACK TO Create_Contract;
699: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
700: fnd_msg_pub.add_exc_msg(
701: p_pkg_name => G_PKG_NAME,

Line 707: p_encoded => fnd_api.g_false);

703: p_error_text => SUBSTR(SQLERRM,1,500));
704: END IF;
705: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
706: p_data => x_msg_data,
707: p_encoded => fnd_api.g_false);
708:
709: END Create_Contract;
710:
711: