160:
161: PROCEDURE DELETE_DOC_TYPE_ASSOC
162: (
163: p_api_version IN NUMBER := 1.0 ,
164: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
165: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
166: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
167: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
168: p_doc_type_assoc_tbl IN doc_type_assoc_tbl ,
161: PROCEDURE DELETE_DOC_TYPE_ASSOC
162: (
163: p_api_version IN NUMBER := 1.0 ,
164: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
165: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
166: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
167: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
168: p_doc_type_assoc_tbl IN doc_type_assoc_tbl ,
169: x_return_status OUT NOCOPY VARCHAR2 ,
162: (
163: p_api_version IN NUMBER := 1.0 ,
164: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
165: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
166: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
167: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
168: p_doc_type_assoc_tbl IN doc_type_assoc_tbl ,
169: x_return_status OUT NOCOPY VARCHAR2 ,
170: x_msg_count OUT NOCOPY NUMBER ,
163: p_api_version IN NUMBER := 1.0 ,
164: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
165: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
166: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
167: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
168: p_doc_type_assoc_tbl IN doc_type_assoc_tbl ,
169: x_return_status OUT NOCOPY VARCHAR2 ,
170: x_msg_count OUT NOCOPY NUMBER ,
171: x_msg_data OUT NOCOPY VARCHAR2)
224:
225: END IF;
226: END IF;
227: -- Standard call to check for call compatibility.
228: IF FND_API.to_boolean(p_init_msg_list)
229: THEN
230: FND_MSG_PUB.initialize;
231: END IF;
232: -- Initialize API return status to success
231: END IF;
232: -- Initialize API return status to success
233: x_return_status := 'S';
234: -- Initialize message list if p_init_msg_list is set to TRUE.
235: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
236: p_api_version,
237: l_api_name,G_PKG_NAME)
238: THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
235: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
236: p_api_version,
237: l_api_name,G_PKG_NAME)
238: THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241: FOR i IN p_doc_type_assoc_tbl.FIRST..p_doc_type_assoc_tbl.LAST
242: LOOP
243:
301: l_msg_count := FND_MSG_PUB.count_msg;
302:
303: IF l_msg_count > 0 THEN
304: X_msg_count := l_msg_count;
305: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308: --Standard check for commit
309: IF FND_API.TO_BOOLEAN(p_commit) THEN
302:
303: IF l_msg_count > 0 THEN
304: X_msg_count := l_msg_count;
305: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308: --Standard check for commit
309: IF FND_API.TO_BOOLEAN(p_commit) THEN
310: COMMIT;
305: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308: --Standard check for commit
309: IF FND_API.TO_BOOLEAN(p_commit) THEN
310: COMMIT;
311: END IF;
312: -- Debug info
313: IF G_DEBUG='Y' THEN
320:
321: END IF;
322:
323: EXCEPTION
324: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
325: ROLLBACK TO delete_doc_type_assoc;
326: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
328: p_count => x_msg_count,
322:
323: EXCEPTION
324: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
325: ROLLBACK TO delete_doc_type_assoc;
326: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
328: p_count => x_msg_count,
329: p_data => x_msg_data);
330: IF G_DEBUG='Y' THEN
323: EXCEPTION
324: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
325: ROLLBACK TO delete_doc_type_assoc;
326: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
328: p_count => x_msg_count,
329: p_data => x_msg_data);
330: IF G_DEBUG='Y' THEN
331: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
336: AHL_DEBUG_PUB.disable_debug;
337:
338: END IF;
339:
340: WHEN FND_API.G_EXC_ERROR THEN
341: ROLLBACK TO delete_doc_type_assoc;
342: X_return_status := FND_API.G_RET_STS_ERROR;
343: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
344: p_count => x_msg_count,
338: END IF;
339:
340: WHEN FND_API.G_EXC_ERROR THEN
341: ROLLBACK TO delete_doc_type_assoc;
342: X_return_status := FND_API.G_RET_STS_ERROR;
343: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
344: p_count => x_msg_count,
345: p_data => X_msg_data);
346: -- Debug info.
339:
340: WHEN FND_API.G_EXC_ERROR THEN
341: ROLLBACK TO delete_doc_type_assoc;
342: X_return_status := FND_API.G_RET_STS_ERROR;
343: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
344: p_count => x_msg_count,
345: p_data => X_msg_data);
346: -- Debug info.
347: IF G_DEBUG='Y' THEN
355: END IF;
356:
357: WHEN OTHERS THEN
358: ROLLBACK TO delete_doc_type_assoc;
359: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
361: THEN
362: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_PRO_TYPE_ASO_PVT',
363: p_procedure_name => 'DELETE_DOC_TYPE_ASSOC',
362: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_PRO_TYPE_ASO_PVT',
363: p_procedure_name => 'DELETE_DOC_TYPE_ASSOC',
364: p_error_text => SUBSTR(SQLERRM,1,240));
365: END IF;
366: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
367: p_count => x_msg_count,
368: p_data => X_msg_data);
369:
370: -- Debug info.
388:
389: PROCEDURE CREATE_DOC_TYPE_ASSOC
390: (
391: p_api_version IN NUMBER := 1.0 ,
392: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
393: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
394: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
396: p_x_doc_type_assoc_tbl IN OUT NOCOPY doc_type_assoc_tbl ,
389: PROCEDURE CREATE_DOC_TYPE_ASSOC
390: (
391: p_api_version IN NUMBER := 1.0 ,
392: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
393: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
394: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
396: p_x_doc_type_assoc_tbl IN OUT NOCOPY doc_type_assoc_tbl ,
397: x_return_status OUT NOCOPY VARCHAR2 ,
390: (
391: p_api_version IN NUMBER := 1.0 ,
392: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
393: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
394: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
396: p_x_doc_type_assoc_tbl IN OUT NOCOPY doc_type_assoc_tbl ,
397: x_return_status OUT NOCOPY VARCHAR2 ,
398: x_msg_count OUT NOCOPY NUMBER ,
391: p_api_version IN NUMBER := 1.0 ,
392: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
393: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
394: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
395: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
396: p_x_doc_type_assoc_tbl IN OUT NOCOPY doc_type_assoc_tbl ,
397: x_return_status OUT NOCOPY VARCHAR2 ,
398: x_msg_count OUT NOCOPY NUMBER ,
399: x_msg_data OUT NOCOPY VARCHAR2)
441:
442: END IF;
443: END IF;
444: -- Standard call to check for call compatibility.
445: IF FND_API.to_boolean(p_init_msg_list)
446: THEN
447: FND_MSG_PUB.initialize;
448: END IF;
449: -- Initialize API return status to success
448: END IF;
449: -- Initialize API return status to success
450: x_return_status := 'S';
451: -- Initialize message list if p_init_msg_list is set to TRUE.
452: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
453: p_api_version,
454: l_api_name,G_PKG_NAME)
455: THEN
456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
452: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
453: p_api_version,
454: l_api_name,G_PKG_NAME)
455: THEN
456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
457: END IF;
458: --Start of API Body
459: IF p_x_doc_type_assoc_tbl.count > 0
460: THEN
471: l_msg_count := FND_MSG_PUB.count_msg;
472:
473: IF l_msg_count > 0 THEN
474: X_msg_count := l_msg_count;
475: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478:
479: FOR i IN p_x_doc_type_assoc_tbl.FIRST..p_x_doc_type_assoc_tbl.LAST
472:
473: IF l_msg_count > 0 THEN
474: X_msg_count := l_msg_count;
475: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478:
479: FOR i IN p_x_doc_type_assoc_tbl.FIRST..p_x_doc_type_assoc_tbl.LAST
480: LOOP
507: CLOSE get_doc_sub_type_code ;
508: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCSUB_DUP_RECORD');
509: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_meaning);
510: FND_MSG_PUB.ADD;
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513: CLOSE dup_rec;
514: --
515: -- Gets the sequence number
577: l_msg_count := FND_MSG_PUB.count_msg;
578:
579: IF l_msg_count > 0 THEN
580: X_msg_count := l_msg_count;
581: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: RAISE FND_API.G_EXC_ERROR;
583: END IF;
584: END IF;
585: END LOOP;
578:
579: IF l_msg_count > 0 THEN
580: X_msg_count := l_msg_count;
581: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582: RAISE FND_API.G_EXC_ERROR;
583: END IF;
584: END IF;
585: END LOOP;
586: END IF;
584: END IF;
585: END LOOP;
586: END IF;
587: --Standard check for commit
588: IF FND_API.TO_BOOLEAN(p_commit) THEN
589: COMMIT;
590: END IF;
591: -- Debug info
592: IF G_DEBUG='Y' THEN
599:
600: END IF;
601:
602: EXCEPTION
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: ROLLBACK TO create_doc_type_assoc;
605: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
607: p_count => x_msg_count,
601:
602: EXCEPTION
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: ROLLBACK TO create_doc_type_assoc;
605: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
607: p_count => x_msg_count,
608: p_data => x_msg_data);
609: IF G_DEBUG='Y' THEN
602: EXCEPTION
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: ROLLBACK TO create_doc_type_assoc;
605: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
607: p_count => x_msg_count,
608: p_data => x_msg_data);
609: IF G_DEBUG='Y' THEN
610: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
615: AHL_DEBUG_PUB.disable_debug;
616:
617: END IF;
618:
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO create_doc_type_assoc;
621: X_return_status := FND_API.G_RET_STS_ERROR;
622: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
623: p_count => x_msg_count,
617: END IF;
618:
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO create_doc_type_assoc;
621: X_return_status := FND_API.G_RET_STS_ERROR;
622: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
623: p_count => x_msg_count,
624: p_data => X_msg_data);
625: -- Debug info.
618:
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO create_doc_type_assoc;
621: X_return_status := FND_API.G_RET_STS_ERROR;
622: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
623: p_count => x_msg_count,
624: p_data => X_msg_data);
625: -- Debug info.
626: IF G_DEBUG='Y' THEN
634: END IF;
635:
636: WHEN OTHERS THEN
637: ROLLBACK TO create_doc_type_assoc;
638: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
640: THEN
641: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_PRO_TYPE_ASO_PVT',
642: p_procedure_name => 'CREATE_DOC_TYPE_ASSOC',
641: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_PRO_TYPE_ASO_PVT',
642: p_procedure_name => 'CREATE_DOC_TYPE_ASSOC',
643: p_error_text => SUBSTR(SQLERRM,1,240));
644: END IF;
645: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
646: p_count => x_msg_count,
647: p_data => X_msg_data);
648:
649: -- Debug info.
666: /*------------------------------------------------------*/
667: PROCEDURE MODIFY_DOC_TYPE_ASSOC
668: (
669: p_api_version IN NUMBER := 1.0 ,
670: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
671: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
672: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
673: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
674: p_x_doc_type_assoc_tbl IN OUT NOCOPY doc_type_assoc_tbl ,
667: PROCEDURE MODIFY_DOC_TYPE_ASSOC
668: (
669: p_api_version IN NUMBER := 1.0 ,
670: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
671: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
672: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
673: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
674: p_x_doc_type_assoc_tbl IN OUT NOCOPY doc_type_assoc_tbl ,
675: x_return_status OUT NOCOPY VARCHAR2 ,
668: (
669: p_api_version IN NUMBER := 1.0 ,
670: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
671: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
672: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
673: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
674: p_x_doc_type_assoc_tbl IN OUT NOCOPY doc_type_assoc_tbl ,
675: x_return_status OUT NOCOPY VARCHAR2 ,
676: x_msg_count OUT NOCOPY NUMBER ,
669: p_api_version IN NUMBER := 1.0 ,
670: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
671: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
672: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
673: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
674: p_x_doc_type_assoc_tbl IN OUT NOCOPY doc_type_assoc_tbl ,
675: x_return_status OUT NOCOPY VARCHAR2 ,
676: x_msg_count OUT NOCOPY NUMBER ,
677: x_msg_data OUT NOCOPY VARCHAR2
767:
768: END IF;
769: END IF;
770: -- Standard call to check for call compatibility.
771: IF FND_API.to_boolean(p_init_msg_list)
772: THEN
773: FND_MSG_PUB.initialize;
774: END IF;
775: -- Initialize API return status to success
774: END IF;
775: -- Initialize API return status to success
776: x_return_status := 'S';
777: -- Initialize message list if p_init_msg_list is set to TRUE.
778: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
779: p_api_version,
780: l_api_name,G_PKG_NAME)
781: THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
779: p_api_version,
780: l_api_name,G_PKG_NAME)
781: THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: END IF;
784: --Start of API Body
785: IF p_x_doc_type_assoc_tbl.COUNT > 0
786: THEN
797: l_msg_count := FND_MSG_PUB.count_msg;
798:
799: IF l_msg_count > 0 THEN
800: X_msg_count := l_msg_count;
801: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804: --
805: FOR i IN p_x_doc_type_assoc_tbl.FIRST..p_x_doc_type_assoc_tbl.LAST
798:
799: IF l_msg_count > 0 THEN
800: X_msg_count := l_msg_count;
801: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804: --
805: FOR i IN p_x_doc_type_assoc_tbl.FIRST..p_x_doc_type_assoc_tbl.LAST
806: LOOP
817: -- FND_MESSAGE.SET_TOKEN('SUBTYPE',initcap(l_doc_sub_type_code));
818:
819:
820: -- FND_MSG_PUB.ADD;
821: RAISE FND_API.G_EXC_ERROR;
822: End IF;
823: */
824:
825: IF p_x_doc_type_assoc_tbl(i).document_sub_type_id IS NOT NULL
970:
971:
972: /* DELETE_DOC_TYPE_ASSOC
973: (p_api_version => 1.0 ,
974: p_init_msg_list => FND_API.G_TRUE ,
975: p_commit => FND_API.G_FALSE ,
976: p_validate_only => FND_API.G_TRUE ,
977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
978: p_doc_type_assoc_tbl => p_x_doc_type_assoc_tbl ,
971:
972: /* DELETE_DOC_TYPE_ASSOC
973: (p_api_version => 1.0 ,
974: p_init_msg_list => FND_API.G_TRUE ,
975: p_commit => FND_API.G_FALSE ,
976: p_validate_only => FND_API.G_TRUE ,
977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
978: p_doc_type_assoc_tbl => p_x_doc_type_assoc_tbl ,
979: x_return_status => x_return_status ,
972: /* DELETE_DOC_TYPE_ASSOC
973: (p_api_version => 1.0 ,
974: p_init_msg_list => FND_API.G_TRUE ,
975: p_commit => FND_API.G_FALSE ,
976: p_validate_only => FND_API.G_TRUE ,
977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
978: p_doc_type_assoc_tbl => p_x_doc_type_assoc_tbl ,
979: x_return_status => x_return_status ,
980: x_msg_count => x_msg_count ,
973: (p_api_version => 1.0 ,
974: p_init_msg_list => FND_API.G_TRUE ,
975: p_commit => FND_API.G_FALSE ,
976: p_validate_only => FND_API.G_TRUE ,
977: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
978: p_doc_type_assoc_tbl => p_x_doc_type_assoc_tbl ,
979: x_return_status => x_return_status ,
980: x_msg_count => x_msg_count ,
981: x_msg_data => x_msg_data);
993: l_msg_count := FND_MSG_PUB.count_msg;
994:
995: IF l_msg_count > 0 THEN
996: X_msg_count := l_msg_count;
997: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
998: RAISE FND_API.G_EXC_ERROR;
999: END IF;
1000:
1001: --Standard check for commit
994:
995: IF l_msg_count > 0 THEN
996: X_msg_count := l_msg_count;
997: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
998: RAISE FND_API.G_EXC_ERROR;
999: END IF;
1000:
1001: --Standard check for commit
1002: IF FND_API.TO_BOOLEAN(p_commit) THEN
998: RAISE FND_API.G_EXC_ERROR;
999: END IF;
1000:
1001: --Standard check for commit
1002: IF FND_API.TO_BOOLEAN(p_commit) THEN
1003: COMMIT;
1004: END IF;
1005: -- Debug info
1006: IF G_DEBUG='Y' THEN
1013:
1014: END IF;
1015:
1016: EXCEPTION
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: ROLLBACK TO modify_doc_type_assoc;
1019: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1020: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1021: p_count => x_msg_count,
1015:
1016: EXCEPTION
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: ROLLBACK TO modify_doc_type_assoc;
1019: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1020: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1021: p_count => x_msg_count,
1022: p_data => x_msg_data);
1023: IF G_DEBUG='Y' THEN
1016: EXCEPTION
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: ROLLBACK TO modify_doc_type_assoc;
1019: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1020: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1021: p_count => x_msg_count,
1022: p_data => x_msg_data);
1023: IF G_DEBUG='Y' THEN
1024: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
1029: AHL_DEBUG_PUB.disable_debug;
1030:
1031: END IF;
1032:
1033: WHEN FND_API.G_EXC_ERROR THEN
1034: ROLLBACK TO modify_doc_type_assoc;
1035: X_return_status := FND_API.G_RET_STS_ERROR;
1036: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1037: p_count => x_msg_count,
1031: END IF;
1032:
1033: WHEN FND_API.G_EXC_ERROR THEN
1034: ROLLBACK TO modify_doc_type_assoc;
1035: X_return_status := FND_API.G_RET_STS_ERROR;
1036: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1037: p_count => x_msg_count,
1038: p_data => X_msg_data);
1039: -- Debug info.
1032:
1033: WHEN FND_API.G_EXC_ERROR THEN
1034: ROLLBACK TO modify_doc_type_assoc;
1035: X_return_status := FND_API.G_RET_STS_ERROR;
1036: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1037: p_count => x_msg_count,
1038: p_data => X_msg_data);
1039: -- Debug info.
1040: IF G_DEBUG='Y' THEN
1048: END IF;
1049:
1050: WHEN OTHERS THEN
1051: ROLLBACK TO modify_doc_type_assoc;
1052: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1054: THEN
1055: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_PRO_TYPE_ASO_PVT',
1056: p_procedure_name => 'MODIFY_DOC_TYPE_ASSOC',
1055: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_PRO_TYPE_ASO_PVT',
1056: p_procedure_name => 'MODIFY_DOC_TYPE_ASSOC',
1057: p_error_text => SUBSTR(SQLERRM,1,240));
1058: END IF;
1059: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1060: p_count => x_msg_count,
1061: p_data => X_msg_data);
1062: -- Debug info.
1063: IF G_DEBUG='Y' THEN