27: -- Parameters :
28: --
29: -- Standard IN Parameters :
30: -- p_api_version IN NUMBER Required
31: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
32: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
33: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
34: --
35: -- Standard OUT Parameters :
28: --
29: -- Standard IN Parameters :
30: -- p_api_version IN NUMBER Required
31: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
32: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
33: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
34: --
35: -- Standard OUT Parameters :
36: -- x_return_status OUT VARCHAR2 Required
29: -- Standard IN Parameters :
30: -- p_api_version IN NUMBER Required
31: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
32: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
33: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
34: --
35: -- Standard OUT Parameters :
36: -- x_return_status OUT VARCHAR2 Required
37: -- x_msg_count OUT NUMBER Required
45: -- 16/08/2010 JKJain Initial Creation
46: -------------------------------------------------------------------
47: PROCEDURE Calc_Contract_Exp_Date (
48: p_api_version IN NUMBER,
49: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
50: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
51: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
52: p_module_type IN VARCHAR2 := NULL,
53: p_warranty_contract_id_tbl IN warranty_contract_id_tbl_type,
46: -------------------------------------------------------------------
47: PROCEDURE Calc_Contract_Exp_Date (
48: p_api_version IN NUMBER,
49: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
50: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
51: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
52: p_module_type IN VARCHAR2 := NULL,
53: p_warranty_contract_id_tbl IN warranty_contract_id_tbl_type,
54: x_return_status OUT NOCOPY VARCHAR2,
47: PROCEDURE Calc_Contract_Exp_Date (
48: p_api_version IN NUMBER,
49: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
50: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
51: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
52: p_module_type IN VARCHAR2 := NULL,
53: p_warranty_contract_id_tbl IN warranty_contract_id_tbl_type,
54: x_return_status OUT NOCOPY VARCHAR2,
55: x_msg_count OUT NOCOPY NUMBER,
119: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
120: END IF;
121:
122: -- initialize return status.
123: x_return_status := FND_API.G_RET_STS_SUCCESS;
124:
125: -- Standard start of API savepoint
126: SAVEPOINT Calc_Contract_Exp_Date_Pvt;
127:
125: -- Standard start of API savepoint
126: SAVEPOINT Calc_Contract_Exp_Date_Pvt;
127:
128: -- Initialize message list if p_init_msg_list is set to TRUE
129: IF FND_API.To_Boolean(p_init_msg_list) THEN
130: FND_MSG_PUB.Initialize;
131: END IF;
132:
133: -- Initialize API return status to success
130: FND_MSG_PUB.Initialize;
131: END IF;
132:
133: -- Initialize API return status to success
134: x_return_status := FND_API.G_RET_STS_SUCCESS;
135:
136: -- Standard call to check for call compatibility.
137: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
138: p_api_version,
133: -- Initialize API return status to success
134: x_return_status := FND_API.G_RET_STS_SUCCESS;
135:
136: -- Standard call to check for call compatibility.
137: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
138: p_api_version,
139: l_api_name,G_PKG_NAME) THEN
140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
141: END IF;
136: -- Standard call to check for call compatibility.
137: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
138: p_api_version,
139: l_api_name,G_PKG_NAME) THEN
140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
141: END IF;
142:
143: -- Basic Validation
144:
153: 'ahl.plsql.Calc_Contract_Exp_Date',
154: 'For this API flow, Warranty Contract Id is mandatory but found null in input '
155: );
156: END IF;
157: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158: END IF;
159:
160: IF (l_log_statement >= l_log_current_level) THEN
161: fnd_log.string(l_log_statement,L_DEBUG_KEY,'p_warranty_contract_id_tbl.COUNT : '||p_warranty_contract_id_tbl.COUNT);
174: IF (get_cont_details%NOTFOUND) THEN
175: FND_MESSAGE.Set_Name('AHL','AHL_WARRANTY_CNTRCT_ID_INVALID');
176: FND_MSG_PUB.ADD;
177: CLOSE get_cont_details;
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: END IF;
180: CLOSE get_cont_details;
181:
182: l_user_id := to_number(fnd_global.USER_ID);
207: x_return_status => l_return_status,
208: x_msg_data => l_msg_data,
209: x_msg_count => l_msg_count);
210:
211: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
214: RAISE FND_API.G_EXC_ERROR;
215: END IF;
208: x_msg_data => l_msg_data,
209: x_msg_count => l_msg_count);
210:
211: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
214: RAISE FND_API.G_EXC_ERROR;
215: END IF;
216:
209: x_msg_count => l_msg_count);
210:
211: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
214: RAISE FND_API.G_EXC_ERROR;
215: END IF;
216:
217: --Update Contract Counter table with new expiration date
210:
211: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
214: RAISE FND_API.G_EXC_ERROR;
215: END IF;
216:
217: --Update Contract Counter table with new expiration date
218: FORALL i IN l_warranty_counter_tbl.FIRST..l_warranty_counter_tbl.LAST
266:
267: END LOOP;
268:
269: -- Standard check of p_commit
270: IF FND_API.TO_BOOLEAN(p_commit) THEN
271: COMMIT WORK;
272: END IF;
273:
274: IF (l_log_procedure >= l_log_current_level)THEN
277:
278:
279:
280: EXCEPTION
281: WHEN FND_API.G_EXC_ERROR THEN
282: x_return_status := FND_API.G_RET_STS_ERROR;
283: ROLLBACK TO Calc_Contract_Exp_Date_Pvt;
284: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
285: p_data => x_msg_data,
278:
279:
280: EXCEPTION
281: WHEN FND_API.G_EXC_ERROR THEN
282: x_return_status := FND_API.G_RET_STS_ERROR;
283: ROLLBACK TO Calc_Contract_Exp_Date_Pvt;
284: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
285: p_data => x_msg_data,
286: p_encoded => fnd_api.g_false);
282: x_return_status := FND_API.G_RET_STS_ERROR;
283: ROLLBACK TO Calc_Contract_Exp_Date_Pvt;
284: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
285: p_data => x_msg_data,
286: p_encoded => fnd_api.g_false);
287:
288:
289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: p_data => x_msg_data,
286: p_encoded => fnd_api.g_false);
287:
288:
289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
291: ROLLBACK TO Calc_Contract_Exp_Date_Pvt;
292: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
293: p_data => x_msg_data,
286: p_encoded => fnd_api.g_false);
287:
288:
289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
291: ROLLBACK TO Calc_Contract_Exp_Date_Pvt;
292: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
293: p_data => x_msg_data,
294: p_encoded => fnd_api.g_false);
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
291: ROLLBACK TO Calc_Contract_Exp_Date_Pvt;
292: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
293: p_data => x_msg_data,
294: p_encoded => fnd_api.g_false);
295:
296:
297: WHEN OTHERS THEN
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
294: p_encoded => fnd_api.g_false);
295:
296:
297: WHEN OTHERS THEN
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
299: ROLLBACK TO Calc_Contract_Exp_Date_Pvt;
300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
301: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
302: p_procedure_name => 'Calc_Contract_Exp_Date',
303: p_error_text => SUBSTR(SQLERRM,1,500));
304: END IF;
305: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
306: p_data => x_msg_data,
307: p_encoded => fnd_api.g_false);
308:
309: END Calc_Contract_Exp_Date;
310:
311: --------------------------------------------------------------------
360: -- initialize return status to success
361: retcode := 0;
362:
363: -- Standard call to check for call compatibility
364: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
365: retcode := 2;
366: errbuf := FND_MSG_PUB.Get;
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
363: -- Standard call to check for call compatibility
364: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
365: retcode := 2;
366: errbuf := FND_MSG_PUB.Get;
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369:
370: -- 2. Dump all input parameters
371: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
393:
394: l_msg_count := FND_MSG_PUB.Count_Msg;
395: IF (l_msg_count > 0) THEN
396: fnd_file.put_line(fnd_file.log, 'Following error occured while calculating Warranty Expiration...');
397: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
398: RAISE FND_API.G_EXC_ERROR;
399: ELSE
400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401: END IF;
394: l_msg_count := FND_MSG_PUB.Count_Msg;
395: IF (l_msg_count > 0) THEN
396: fnd_file.put_line(fnd_file.log, 'Following error occured while calculating Warranty Expiration...');
397: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
398: RAISE FND_API.G_EXC_ERROR;
399: ELSE
400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401: END IF;
402: END IF;
396: fnd_file.put_line(fnd_file.log, 'Following error occured while calculating Warranty Expiration...');
397: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
398: RAISE FND_API.G_EXC_ERROR;
399: ELSE
400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401: END IF;
402: END IF;
403:
404: fnd_file.put_line(fnd_file.log, 'After calling Calc_Contract_Exp_Date successfully');
407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Successfully calculated and updated expiration date for '|| l_count ||' warranty contracts. ');
408:
409:
410: EXCEPTION
411: WHEN FND_API.G_EXC_ERROR THEN
412: ROLLBACK TO Calc_Contract_Exp_Date_CP;
413: retcode := 2;
414: errbuf := l_api_name || ':ERR_EXP:' || substrb(sqlerrm,1,60);
415: FOR i IN 1..l_msg_count
414: errbuf := l_api_name || ':ERR_EXP:' || substrb(sqlerrm,1,60);
415: FOR i IN 1..l_msg_count
416: LOOP
417: fnd_msg_pub.get( p_msg_index => i,
418: p_encoded => FND_API.G_FALSE,
419: p_data => l_err_msg,
420: p_msg_index_out => l_msg_index_out);
421:
422: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
422: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
423: END LOOP;
424:
425:
426: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
427: ROLLBACK TO Calc_Contract_Exp_Date_CP;
428: retcode := 2;
429: errbuf := l_api_name || ':ERR_UNEXP:' || substrb(sqlerrm,1,60);
430: l_msg_count := Fnd_Msg_Pub.count_msg;
430: l_msg_count := Fnd_Msg_Pub.count_msg;
431: FOR i IN 1..l_msg_count
432: LOOP
433: fnd_msg_pub.get( p_msg_index => i,
434: p_encoded => FND_API.G_FALSE,
435: p_data => l_err_msg,
436: p_msg_index_out => l_msg_index_out);
437:
438: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
451: l_msg_count := Fnd_Msg_Pub.count_msg;
452: FOR i IN 1..l_msg_count
453: LOOP
454: fnd_msg_pub.get( p_msg_index => i,
455: p_encoded => FND_API.G_FALSE,
456: p_data => l_err_msg,
457: p_msg_index_out => l_msg_index_out);
458:
459: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
520: -- initialize return status to success
521: retcode := 0;
522:
523: -- Standard call to check for call compatibility
524: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
525: retcode := 2;
526: errbuf := FND_MSG_PUB.Get;
527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
528: END IF;
523: -- Standard call to check for call compatibility
524: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
525: retcode := 2;
526: errbuf := FND_MSG_PUB.Get;
527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
528: END IF;
529:
530: -- 2. Dump all input parameters
531: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
575: l_msg_count := Fnd_Msg_Pub.count_msg;
576: FOR i IN 1..l_msg_count
577: LOOP
578: fnd_msg_pub.get( p_msg_index => i,
579: p_encoded => FND_API.G_FALSE,
580: p_data => l_err_msg,
581: p_msg_index_out => l_msg_index_out);
582:
583: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
598: -- Parameters :
599: --
600: -- Standard IN Parameters :
601: -- p_api_version IN NUMBER Required
602: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
603: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
604: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
605: --
606: -- Standard OUT Parameters :
599: --
600: -- Standard IN Parameters :
601: -- p_api_version IN NUMBER Required
602: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
603: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
604: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
605: --
606: -- Standard OUT Parameters :
607: -- x_return_status OUT VARCHAR2 Required
600: -- Standard IN Parameters :
601: -- p_api_version IN NUMBER Required
602: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
603: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
604: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
605: --
606: -- Standard OUT Parameters :
607: -- x_return_status OUT VARCHAR2 Required
608: -- x_msg_count OUT NUMBER Required
616: -- 30-NOV-2010 JKJain Modified for the new requirements
617: -------------------------------------------------------------------
618: PROCEDURE Disable_Templates_For_Vendor (
619: p_api_version IN NUMBER,
620: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
621: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
622: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
623: p_module_type IN VARCHAR2 := NULL,
624: p_warranty_vendor_id_tbl IN warranty_vendor_id_tbl_type,
617: -------------------------------------------------------------------
618: PROCEDURE Disable_Templates_For_Vendor (
619: p_api_version IN NUMBER,
620: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
621: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
622: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
623: p_module_type IN VARCHAR2 := NULL,
624: p_warranty_vendor_id_tbl IN warranty_vendor_id_tbl_type,
625: x_return_status OUT NOCOPY VARCHAR2,
618: PROCEDURE Disable_Templates_For_Vendor (
619: p_api_version IN NUMBER,
620: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
621: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
622: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
623: p_module_type IN VARCHAR2 := NULL,
624: p_warranty_vendor_id_tbl IN warranty_vendor_id_tbl_type,
625: x_return_status OUT NOCOPY VARCHAR2,
626: x_msg_count OUT NOCOPY NUMBER,
659: -- Standard start of API savepoint
660: SAVEPOINT Disable_Tmpls_For_Vendor_Pvt;
661:
662: -- Initialize message list if p_init_msg_list is set to TRUE
663: IF FND_API.To_Boolean(p_init_msg_list) THEN
664: FND_MSG_PUB.Initialize;
665: END IF;
666:
667: -- Initialize API return status to success
664: FND_MSG_PUB.Initialize;
665: END IF;
666:
667: -- Initialize API return status to success
668: x_return_status := FND_API.G_RET_STS_SUCCESS;
669:
670: -- Standard call to check for call compatibility.
671: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
672: p_api_version,
667: -- Initialize API return status to success
668: x_return_status := FND_API.G_RET_STS_SUCCESS;
669:
670: -- Standard call to check for call compatibility.
671: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
672: p_api_version,
673: l_api_name,G_PKG_NAME) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
670: -- Standard call to check for call compatibility.
671: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
672: p_api_version,
673: l_api_name,G_PKG_NAME) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:
677: -- Basic Validation
678:
687: 'ahl.plsql.Disable_Templates_For_Vendor',
688: 'For this API flow, Vendor Id in table is mandatory but found null in input '
689: );
690: END IF;
691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
692: END IF;
693:
694: IF (l_log_statement >= l_log_current_level) THEN
695: fnd_log.string(l_log_statement,L_DEBUG_KEY,'p_warranty_vendor_id count : '||p_warranty_vendor_id_tbl.COUNT);
722:
723: END LOOP;
724: */
725: -- Standard check of p_commit
726: IF FND_API.TO_BOOLEAN(p_commit) THEN
727: COMMIT WORK;
728: END IF;
729:
730: IF (l_log_procedure >= l_log_current_level)THEN
732: END IF;
733:
734:
735: EXCEPTION
736: WHEN FND_API.G_EXC_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_ERROR;
738: ROLLBACK TO Disable_Tmpls_For_Vendor_Pvt;
739: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
740: p_data => x_msg_data,
733:
734:
735: EXCEPTION
736: WHEN FND_API.G_EXC_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_ERROR;
738: ROLLBACK TO Disable_Tmpls_For_Vendor_Pvt;
739: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
740: p_data => x_msg_data,
741: p_encoded => fnd_api.g_false);
737: x_return_status := FND_API.G_RET_STS_ERROR;
738: ROLLBACK TO Disable_Tmpls_For_Vendor_Pvt;
739: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
740: p_data => x_msg_data,
741: p_encoded => fnd_api.g_false);
742:
743:
744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
740: p_data => x_msg_data,
741: p_encoded => fnd_api.g_false);
742:
743:
744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: ROLLBACK TO Disable_Tmpls_For_Vendor_Pvt;
747: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
748: p_data => x_msg_data,
741: p_encoded => fnd_api.g_false);
742:
743:
744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: ROLLBACK TO Disable_Tmpls_For_Vendor_Pvt;
747: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
748: p_data => x_msg_data,
749: p_encoded => fnd_api.g_false);
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: ROLLBACK TO Disable_Tmpls_For_Vendor_Pvt;
747: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
748: p_data => x_msg_data,
749: p_encoded => fnd_api.g_false);
750:
751:
752: WHEN OTHERS THEN
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
749: p_encoded => fnd_api.g_false);
750:
751:
752: WHEN OTHERS THEN
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754: ROLLBACK TO Disable_Tmpls_For_Vendor_Pvt;
755: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
756: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
757: p_procedure_name => 'Disable_Templates_For_Vendor',
758: p_error_text => SUBSTR(SQLERRM,1,500));
759: END IF;
760: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
761: p_data => x_msg_data,
762: p_encoded => fnd_api.g_false);
763:
764: END Disable_Templates_For_Vendor;
765:
766: -------------------------------------------------------------------
775: -- Parameters :
776: --
777: -- Standard IN Parameters :
778: -- p_api_version IN NUMBER Required
779: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
780: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
781: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
782: --
783: -- Standard OUT Parameters :
776: --
777: -- Standard IN Parameters :
778: -- p_api_version IN NUMBER Required
779: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
780: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
781: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
782: --
783: -- Standard OUT Parameters :
784: -- x_return_status OUT VARCHAR2 Required
777: -- Standard IN Parameters :
778: -- p_api_version IN NUMBER Required
779: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
780: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
781: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
782: --
783: -- Standard OUT Parameters :
784: -- x_return_status OUT VARCHAR2 Required
785: -- x_msg_count OUT NUMBER Required
795: -- 15-Oct-2010 JKJain Initial Creation
796: -------------------------------------------------------------------
797: PROCEDURE Process_Attachments (
798: p_api_version IN NUMBER,
799: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
800: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
801: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
802: p_module_type IN VARCHAR2 := NULL,
803: p_entity_name IN VARCHAR2,
796: -------------------------------------------------------------------
797: PROCEDURE Process_Attachments (
798: p_api_version IN NUMBER,
799: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
800: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
801: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
802: p_module_type IN VARCHAR2 := NULL,
803: p_entity_name IN VARCHAR2,
804: p_pk1_value IN NUMBER,
797: PROCEDURE Process_Attachments (
798: p_api_version IN NUMBER,
799: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
800: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
801: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
802: p_module_type IN VARCHAR2 := NULL,
803: p_entity_name IN VARCHAR2,
804: p_pk1_value IN NUMBER,
805: p_copy_from_entity IN VARCHAR2,
864: -- Standard start of API savepoint
865: SAVEPOINT Process_Attachments_Pvt;
866:
867: -- Initialize message list if p_init_msg_list is set to TRUE
868: IF FND_API.To_Boolean(p_init_msg_list) THEN
869: FND_MSG_PUB.Initialize;
870: END IF;
871:
872: -- Initialize API return status to success
869: FND_MSG_PUB.Initialize;
870: END IF;
871:
872: -- Initialize API return status to success
873: x_return_status := FND_API.G_RET_STS_SUCCESS;
874:
875: -- Standard call to check for call compatibility.
876: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
877: p_api_version,
872: -- Initialize API return status to success
873: x_return_status := FND_API.G_RET_STS_SUCCESS;
874:
875: -- Standard call to check for call compatibility.
876: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
877: p_api_version,
878: l_api_name,G_PKG_NAME) THEN
879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
880: END IF;
875: -- Standard call to check for call compatibility.
876: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
877: p_api_version,
878: l_api_name,G_PKG_NAME) THEN
879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
880: END IF;
881:
882: -- Basic Validation
883:
892: 'ahl.plsql.Process_Attachments',
893: 'For this API flow, mandatory input are p_entity_name = ' || p_entity_name || ' p_dml_operation = '||p_dml_operation||' p_pk1_value = '||p_pk1_value
894: );
895: END IF;
896: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
897: END IF;
898:
899: IF (l_log_statement >= l_log_current_level) THEN
900: fnd_log.string(l_log_statement,L_DEBUG_KEY,'mandatory input are p_entity_name = ' || p_entity_name ||
921: -- Copy from p_copy_from_pk
922: IF(p_copy_from_pk IS NULL OR p_copy_from_entity IS NULL)THEN
923: FND_MESSAGE.Set_Name('AHL','AHL_SW_ATTCH_INPUT_INV');
924: FND_MSG_PUB.ADD;
925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
926: END IF;
927:
928: FOR csr_index in attachment_csr(p_copy_from_entity,p_copy_from_pk)
929: LOOP
1088:
1089:
1090:
1091: -- Standard check of p_commit
1092: IF FND_API.TO_BOOLEAN(p_commit) THEN
1093: COMMIT WORK;
1094: END IF;
1095:
1096: IF (l_log_procedure >= l_log_current_level)THEN
1098: END IF;
1099:
1100:
1101: EXCEPTION
1102: WHEN FND_API.G_EXC_ERROR THEN
1103: x_return_status := FND_API.G_RET_STS_ERROR;
1104: ROLLBACK TO Process_Attachments_Pvt;
1105: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1106: p_data => x_msg_data,
1099:
1100:
1101: EXCEPTION
1102: WHEN FND_API.G_EXC_ERROR THEN
1103: x_return_status := FND_API.G_RET_STS_ERROR;
1104: ROLLBACK TO Process_Attachments_Pvt;
1105: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1106: p_data => x_msg_data,
1107: p_encoded => fnd_api.g_false);
1103: x_return_status := FND_API.G_RET_STS_ERROR;
1104: ROLLBACK TO Process_Attachments_Pvt;
1105: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1106: p_data => x_msg_data,
1107: p_encoded => fnd_api.g_false);
1108:
1109:
1110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1106: p_data => x_msg_data,
1107: p_encoded => fnd_api.g_false);
1108:
1109:
1110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1112: ROLLBACK TO Process_Attachments_Pvt;
1113: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1114: p_data => x_msg_data,
1107: p_encoded => fnd_api.g_false);
1108:
1109:
1110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1112: ROLLBACK TO Process_Attachments_Pvt;
1113: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1114: p_data => x_msg_data,
1115: p_encoded => fnd_api.g_false);
1111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1112: ROLLBACK TO Process_Attachments_Pvt;
1113: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1114: p_data => x_msg_data,
1115: p_encoded => fnd_api.g_false);
1116:
1117:
1118: WHEN OTHERS THEN
1119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1115: p_encoded => fnd_api.g_false);
1116:
1117:
1118: WHEN OTHERS THEN
1119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1120: ROLLBACK TO Process_Attachments_Pvt;
1121: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1122: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1123: p_procedure_name => 'Process_Attachments',
1124: p_error_text => SUBSTR(SQLERRM,1,500));
1125: END IF;
1126: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
1127: p_data => x_msg_data,
1128: p_encoded => fnd_api.g_false);
1129:
1130: END Process_Attachments;
1131:
1132: -------------------------------------------------------------------
1141: -- Parameters :
1142: --
1143: -- Standard IN Parameters :
1144: -- p_api_version IN NUMBER Required
1145: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1146: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1147: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1148: -- p_default IN VARCHAR2 Default FND_API.G_FALSE
1149: -- p_module_type IN VARCHAR2 Default Null
1142: --
1143: -- Standard IN Parameters :
1144: -- p_api_version IN NUMBER Required
1145: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1146: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1147: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1148: -- p_default IN VARCHAR2 Default FND_API.G_FALSE
1149: -- p_module_type IN VARCHAR2 Default Null
1150: -- Standard OUT Parameters :
1143: -- Standard IN Parameters :
1144: -- p_api_version IN NUMBER Required
1145: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1146: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1147: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1148: -- p_default IN VARCHAR2 Default FND_API.G_FALSE
1149: -- p_module_type IN VARCHAR2 Default Null
1150: -- Standard OUT Parameters :
1151: -- x_return_status OUT VARCHAR2 Required
1144: -- p_api_version IN NUMBER Required
1145: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
1146: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1147: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1148: -- p_default IN VARCHAR2 Default FND_API.G_FALSE
1149: -- p_module_type IN VARCHAR2 Default Null
1150: -- Standard OUT Parameters :
1151: -- x_return_status OUT VARCHAR2 Required
1152: -- x_msg_count OUT NUMBER Required
1160: -------------------------------------------------------------------
1161:
1162: PROCEDURE Insert_Turnover_Notes (
1163: p_api_version IN NUMBER := 1.0 ,
1164: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1165: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1166: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1167: p_default IN VARCHAR2 := FND_API.G_FALSE,
1168: p_module_type IN VARCHAR2 := Null,
1161:
1162: PROCEDURE Insert_Turnover_Notes (
1163: p_api_version IN NUMBER := 1.0 ,
1164: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1165: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1166: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1167: p_default IN VARCHAR2 := FND_API.G_FALSE,
1168: p_module_type IN VARCHAR2 := Null,
1169: x_return_status OUT NOCOPY VARCHAR2,
1162: PROCEDURE Insert_Turnover_Notes (
1163: p_api_version IN NUMBER := 1.0 ,
1164: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1165: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1166: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1167: p_default IN VARCHAR2 := FND_API.G_FALSE,
1168: p_module_type IN VARCHAR2 := Null,
1169: x_return_status OUT NOCOPY VARCHAR2,
1170: x_msg_count OUT NOCOPY NUMBER,
1163: p_api_version IN NUMBER := 1.0 ,
1164: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1165: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1166: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1167: p_default IN VARCHAR2 := FND_API.G_FALSE,
1168: p_module_type IN VARCHAR2 := Null,
1169: x_return_status OUT NOCOPY VARCHAR2,
1170: x_msg_count OUT NOCOPY NUMBER,
1171: x_msg_data OUT NOCOPY VARCHAR2,
1187: -- Standard start of API savepoint
1188: SAVEPOINT Insert_Turnover_Notes;
1189:
1190: -- Standard call to check for call compatibility
1191: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
1192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1193: END IF;
1194:
1195: -- Initialize message list if p_init_msg_list is set to TRUE
1188: SAVEPOINT Insert_Turnover_Notes;
1189:
1190: -- Standard call to check for call compatibility
1191: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
1192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1193: END IF;
1194:
1195: -- Initialize message list if p_init_msg_list is set to TRUE
1196: IF FND_API.To_Boolean( p_init_msg_list) THEN
1192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1193: END IF;
1194:
1195: -- Initialize message list if p_init_msg_list is set to TRUE
1196: IF FND_API.To_Boolean( p_init_msg_list) THEN
1197: FND_MSG_PUB.Initialize;
1198: END IF;
1199:
1200: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1212:
1213: END IF;
1214:
1215: -- Initialize API return status to success
1216: x_return_status := FND_API.G_RET_STS_SUCCESS;
1217:
1218: -- Insert notes
1219: FOR i IN p_trunover_notes_tbl.FIRST..p_trunover_notes_tbl.LAST LOOP
1220: -- validate entered data
1253: -- add notes if no messages
1254: IF(FND_MSG_PUB.count_msg = 0)THEN
1255: JTF_NOTES_PUB.Create_note(
1256: p_api_version => 1.0,
1257: p_init_msg_list => FND_API.G_FALSE,
1258: p_commit => FND_API.G_FALSE,
1259: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1260: x_return_status => x_return_status,
1261: x_msg_count => x_msg_count,
1254: IF(FND_MSG_PUB.count_msg = 0)THEN
1255: JTF_NOTES_PUB.Create_note(
1256: p_api_version => 1.0,
1257: p_init_msg_list => FND_API.G_FALSE,
1258: p_commit => FND_API.G_FALSE,
1259: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1260: x_return_status => x_return_status,
1261: x_msg_count => x_msg_count,
1262: x_msg_data => x_msg_data,
1255: JTF_NOTES_PUB.Create_note(
1256: p_api_version => 1.0,
1257: p_init_msg_list => FND_API.G_FALSE,
1258: p_commit => FND_API.G_FALSE,
1259: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1260: x_return_status => x_return_status,
1261: x_msg_count => x_msg_count,
1262: x_msg_data => x_msg_data,
1263: p_source_object_id => p_trunover_notes_tbl(i).source_object_id,
1273:
1274: -- Check Error Message stack.
1275: x_msg_count := FND_MSG_PUB.count_msg;
1276: IF x_msg_count > 0 THEN
1277: RAISE FND_API.G_EXC_ERROR;
1278: END IF;
1279:
1280: -- Standard check of p_commit
1281: IF FND_API.TO_BOOLEAN(p_commit) THEN
1277: RAISE FND_API.G_EXC_ERROR;
1278: END IF;
1279:
1280: -- Standard check of p_commit
1281: IF FND_API.TO_BOOLEAN(p_commit) THEN
1282: COMMIT WORK;
1283: END IF;
1284:
1285: -- Standard call to get message count and if count is 1, get message info
1284:
1285: -- Standard call to get message count and if count is 1, get message info
1286: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1287: p_data => x_msg_data,
1288: p_encoded => fnd_api.g_false
1289: );
1290:
1291: IF(x_msg_count > 0 )THEN
1292: RAISE FND_API.G_EXC_ERROR;
1288: p_encoded => fnd_api.g_false
1289: );
1290:
1291: IF(x_msg_count > 0 )THEN
1292: RAISE FND_API.G_EXC_ERROR;
1293: END IF;
1294:
1295: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1296: fnd_log.string(
1302: END IF;
1303:
1304: EXCEPTION
1305:
1306: WHEN FND_API.G_EXC_ERROR THEN
1307: Rollback to Insert_Turnover_Notes;
1308: x_return_status := FND_API.G_RET_STS_ERROR;
1309: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1310: p_data => x_msg_data,
1304: EXCEPTION
1305:
1306: WHEN FND_API.G_EXC_ERROR THEN
1307: Rollback to Insert_Turnover_Notes;
1308: x_return_status := FND_API.G_RET_STS_ERROR;
1309: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1310: p_data => x_msg_data,
1311: p_encoded => fnd_api.g_false);
1312:
1307: Rollback to Insert_Turnover_Notes;
1308: x_return_status := FND_API.G_RET_STS_ERROR;
1309: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1310: p_data => x_msg_data,
1311: p_encoded => fnd_api.g_false);
1312:
1313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1314: Rollback to Insert_Turnover_Notes;
1315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1309: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1310: p_data => x_msg_data,
1311: p_encoded => fnd_api.g_false);
1312:
1313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1314: Rollback to Insert_Turnover_Notes;
1315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1316: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1317: p_data => x_msg_data,
1311: p_encoded => fnd_api.g_false);
1312:
1313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1314: Rollback to Insert_Turnover_Notes;
1315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1316: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1317: p_data => x_msg_data,
1318: p_encoded => fnd_api.g_false);
1319:
1314: Rollback to Insert_Turnover_Notes;
1315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1316: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1317: p_data => x_msg_data,
1318: p_encoded => fnd_api.g_false);
1319:
1320: WHEN OTHERS THEN
1321: Rollback to Insert_Turnover_Notes;
1322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1318: p_encoded => fnd_api.g_false);
1319:
1320: WHEN OTHERS THEN
1321: Rollback to Insert_Turnover_Notes;
1322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1323: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1324: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1325: p_procedure_name => l_api_name,
1326: p_error_text => SUBSTRB(SQLERRM,1,500));
1326: p_error_text => SUBSTRB(SQLERRM,1,500));
1327: END IF;
1328: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1329: p_data => x_msg_data,
1330: p_encoded => fnd_api.g_false);
1331: END Insert_Turnover_Notes;
1332:
1333: ------------------------------------------------------------------------------------
1334: -- Start of Comments