33: open get_rev_dat(p_association_rec.document_id, p_association_rec.doc_revision_id);
34: fetch get_rev_dat into l_doc_no, l_doc_rev_no;
35: close get_rev_dat;
36:
37: If l_doc_no is not null and l_doc_no<>fnd_api.g_miss_char
38: Then
39: x_record:=x_record||nvl(l_doc_no,'')||' - ';
40: End if;
41:
38: Then
39: x_record:=x_record||nvl(l_doc_no,'')||' - ';
40: End if;
41:
42: If l_doc_rev_no is not null and l_doc_rev_no<>fnd_api.g_miss_char
43: Then
44: x_record:=x_record||nvl(l_doc_rev_no ,'')||' - ';
45: End if;
46:
43: Then
44: x_record:=x_record||nvl(l_doc_rev_no ,'')||' - ';
45: End if;
46:
47: If p_association_rec.chapter is not null and p_association_rec.chapter<>fnd_api.g_miss_char
48: Then
49: x_record:=x_record||nvl(p_association_rec.chapter,'')||' - ';
50: End if;
51:
48: Then
49: x_record:=x_record||nvl(p_association_rec.chapter,'')||' - ';
50: End if;
51:
52: If p_association_rec.section is not null and p_association_rec.section<>fnd_api.g_miss_char
53: Then
54: x_record:=x_record||nvl(p_association_rec.section,'')||' - ';
55: End if;
56:
53: Then
54: x_record:=x_record||nvl(p_association_rec.section,'')||' - ';
55: End if;
56:
57: If p_association_rec.subject is not null and p_association_rec.subject<>fnd_api.g_miss_char
58: Then
59: x_record:=x_record||nvl(p_association_rec.subject,'')||' - ';
60: End if;
61:
58: Then
59: x_record:=x_record||nvl(p_association_rec.subject,'')||' - ';
60: End if;
61:
62: If p_association_rec.figure is not null and p_association_rec.figure<>fnd_api.g_miss_char
63: Then
64: x_record:=x_record||nvl(p_association_rec.figure,'')||' - ';
65: End if;
66:
63: Then
64: x_record:=x_record||nvl(p_association_rec.figure,'')||' - ';
65: End if;
66:
67: If p_association_rec.page is not null and p_association_rec.page<>fnd_api.g_miss_char
68: Then
69: x_record:=x_record||nvl(p_association_rec.page,'');
70: End if;
71:
223: l_num_rec NUMBER;
224: l_msg_count NUMBER;
225: l_msg_data VARCHAR2(2000);
226: l_return_status VARCHAR2(1);
227: l_init_msg_list VARCHAR2(10):=FND_API.G_TRUE;
228: l_counter NUMBER:=0;
229: l_counter1 NUMBER:=0;
230: l_lookup_code VARCHAR2(30):='';
231: l_record VARCHAR2(4000):=P_RECORD;
230: l_lookup_code VARCHAR2(30):='';
231: l_record VARCHAR2(4000):=P_RECORD;
232: l_type_code VARCHAR2(30);
233: BEGIN
234: x_return_status:=FND_API.G_RET_STS_SUCCESS;
235:
236: IF p_dml_operation <> 'D'
237: THEN
238: IF p_aso_object_type_code = 'MR'
239: THEN
240: IF g_pm_install<>'Y'
241: THEN
242:
243: IF p_ASO_OBJECT_ID IS NOT NULL OR p_ASO_OBJECT_ID<>FND_API.G_MISS_NUM
244: THEN
245: OPEN get_mr_type_code (P_ASO_OBJECT_ID);
246: fetch get_mr_type_code into l_type_code;
247: close get_mr_type_code ;
253: END IF;
254: END IF;
255: END IF;
256: END IF;
257: IF p_doc_title_asso_id IS NOT NULL AND p_doc_title_asso_id <> FND_API.G_MISS_NUM
258: THEN
259: OPEN get_doc_assos_rec_b_info(p_doc_title_asso_id);
260: FETCH get_doc_assos_rec_b_info INTO l_document_id,
261: l_doc_revision_id,
356: IF (p_document_id <> l_document_id OR p_doc_revision_id <> l_doc_revision_id OR
357: l_aso_object_type_code <> p_aso_object_type_code OR l_aso_object_id <> p_aso_object_id) THEN
358: FND_MESSAGE.SET_NAME('AHL','AHL_DI_INVALID_ASSOC_STATUS');
359: FND_MSG_PUB.ADD;
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
362: END IF;
363: IF G_DEBUG='Y' THEN
364: AHL_DEBUG_PUB.debug( 'Checked Object Status Complete');
370: FND_MSG_PUB.ADD;
371: RETURN;
372: END IF;
373: -- End of FP #8410484
374: IF p_Doc_revision_id IS NOT NULL and p_doc_revision_id <> FND_API.G_MISS_NUM
375: THEN
376: OPEN get_rev_dat(p_doc_revision_id);
377: FETCH get_rev_dat INTO l_rev_rec1;
378: IF get_rev_dat%notfound
395: END IF;
396: END IF;
397: END IF;
398: IF ((p_doc_title_asso_id IS NULL OR
399: p_doc_title_asso_id = FND_API.G_MISS_NUM) AND
400: (p_document_id IS NULL OR p_document_id = FND_API.G_MISS_NUM))
401: OR
402: ((p_doc_title_asso_id IS NOT NULL AND
403: p_doc_title_asso_id <> FND_API.G_MISS_NUM) AND l_document_id IS NULL)
396: END IF;
397: END IF;
398: IF ((p_doc_title_asso_id IS NULL OR
399: p_doc_title_asso_id = FND_API.G_MISS_NUM) AND
400: (p_document_id IS NULL OR p_document_id = FND_API.G_MISS_NUM))
401: OR
402: ((p_doc_title_asso_id IS NOT NULL AND
403: p_doc_title_asso_id <> FND_API.G_MISS_NUM) AND l_document_id IS NULL)
404: THEN
399: p_doc_title_asso_id = FND_API.G_MISS_NUM) AND
400: (p_document_id IS NULL OR p_document_id = FND_API.G_MISS_NUM))
401: OR
402: ((p_doc_title_asso_id IS NOT NULL AND
403: p_doc_title_asso_id <> FND_API.G_MISS_NUM) AND l_document_id IS NULL)
404: THEN
405: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
406: FND_MSG_PUB.ADD;
407: RETURN;
409:
410: -- This condition checks for Aso Object Type Code is Null
411:
412: IF ((p_doc_title_asso_id IS NULL OR
413: p_doc_title_asso_id = FND_API.G_MISS_NUM) AND
414: (p_aso_object_type_code IS NULL OR
415: p_aso_object_type_code = FND_API.G_MISS_CHAR))
416: OR
417: ((p_doc_title_asso_id IS NOT NULL AND
411:
412: IF ((p_doc_title_asso_id IS NULL OR
413: p_doc_title_asso_id = FND_API.G_MISS_NUM) AND
414: (p_aso_object_type_code IS NULL OR
415: p_aso_object_type_code = FND_API.G_MISS_CHAR))
416: OR
417: ((p_doc_title_asso_id IS NOT NULL AND
418: p_doc_title_asso_id <> FND_API.G_MISS_NUM)
419: AND l_aso_object_type_code IS NULL)
414: (p_aso_object_type_code IS NULL OR
415: p_aso_object_type_code = FND_API.G_MISS_CHAR))
416: OR
417: ((p_doc_title_asso_id IS NOT NULL AND
418: p_doc_title_asso_id <> FND_API.G_MISS_NUM)
419: AND l_aso_object_type_code IS NULL)
420: THEN
421: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJECT_TYPE_NULL');
422: FND_MSG_PUB.ADD;
424: END IF;
425:
426: -- This condiiton checks for Aso Object Id Value Is Null
427: IF ((p_doc_title_asso_id IS NULL OR
428: p_doc_title_asso_id = FND_API.G_MISS_NUM) AND
429: (p_aso_object_id IS NULL OR
430: p_aso_object_id = FND_API.G_MISS_NUM))
431: OR
432: ((p_doc_title_asso_id IS NOT NULL AND
426: -- This condiiton checks for Aso Object Id Value Is Null
427: IF ((p_doc_title_asso_id IS NULL OR
428: p_doc_title_asso_id = FND_API.G_MISS_NUM) AND
429: (p_aso_object_id IS NULL OR
430: p_aso_object_id = FND_API.G_MISS_NUM))
431: OR
432: ((p_doc_title_asso_id IS NOT NULL AND
433: p_doc_title_asso_id <> FND_API.G_MISS_NUM) AND l_aso_object_id IS NULL)
434: THEN
429: (p_aso_object_id IS NULL OR
430: p_aso_object_id = FND_API.G_MISS_NUM))
431: OR
432: ((p_doc_title_asso_id IS NOT NULL AND
433: p_doc_title_asso_id <> FND_API.G_MISS_NUM) AND l_aso_object_id IS NULL)
434: THEN
435: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJECT_ID_NULL');
436: FND_MSG_PUB.ADD;
437: RETURN;
438: END IF;
439:
440: --Check for Aso Object Type Code in fnd lookups
441: IF p_aso_object_type_code IS NOT NULL AND
442: p_aso_object_type_code <> FND_API.G_MISS_CHAR
443: THEN
444: OPEN get_aso_obj_type_code(p_aso_object_type_code);
445: FETCH get_aso_obj_type_code INTO l_dummy;
446: IF get_aso_obj_type_code%NOTFOUND
475: then
476: FND_MESSAGE.SET_NAME('AHL','AHL_DI_USE_LATEST_ERROR');
477: FND_MESSAGE.SET_TOKEN('DOC_NO',l_record);
478: FND_MSG_PUB.ADD;
479: RAISE FND_API.G_EXC_ERROR;
480: elsif (l_counter>0 and p_DML_OPERATION='C') OR (l_counter>1 and p_DML_OPERATION='U')
481: then
482: open CheckLatestRevFlag(NVL(p_DOC_TITLE_ASSO_ID,0),p_aso_object_id,p_aso_object_type_code,p_document_id,NVL(p_use_latest_rev_flag,'X'));
483: fetch CheckLatestRevFlag into l_dummy_char;
485: THEN
486: FND_MESSAGE.SET_NAME('AHL','AHL_DI_USE_LATEST_ERROR');
487: FND_MESSAGE.SET_TOKEN('DOC_NO',l_record);
488: FND_MSG_PUB.ADD;
489: RAISE FND_API.G_EXC_ERROR;
490: RETURN;
491: END IF;
492: close CheckLatestRevFlag;
493: end if;
504: IF l_revision_status_code = 'OBSOLETE'
505: THEN
506: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSOLETE_DOC_ATTACH');
507: FND_MSG_PUB.ADD;
508: RAISE FND_API.G_EXC_ERROR;
509: END IF;
510:
511: -- To validate that two revisions of same document are not added if the use latest = yes for that
512: -- document
536: IF(P_USE_LATEST_REV_FLAG = 'Y' and l_counter1 >0) OR (l_counter > 0 ) Then
537: FND_MESSAGE.SET_NAME('AHL','AHL_DI_USE_LATEST_ERROR');
538: FND_MESSAGE.SET_TOKEN('DOC_NO',l_record);
539: FND_MSG_PUB.ADD;
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;
542:
543: --To validate that if the Use Latest Flag='Y' then only the latest revision is allowed to attach.
544: IF G_DEBUG='Y' THEN
561: IF(p_doc_revision_id <> l_latest_doc_revision_id) THEN
562: FND_MESSAGE.SET_NAME('AHL','AHL_DI_NOT_LATEST_REVISION');
563: FND_MESSAGE.SET_TOKEN('DOC_NO',l_record);
564: FND_MSG_PUB.ADD;
565: RAISE FND_API.G_EXC_ERROR;
566: END IF;
567: END IF;
568: IF G_DEBUG='Y' THEN
569: AHL_DEBUG_PUB.debug( 'latest revision checked');
570: END IF;
571: -- End of FP #8410484
572: END IF;
573: EXCEPTION
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
577: p_count => x_msg_count,
578: p_data => x_msg_data);
571: -- End of FP #8410484
572: END IF;
573: EXCEPTION
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
577: p_count => x_msg_count,
578: p_data => x_msg_data);
579: WHEN FND_API.G_EXC_ERROR THEN
572: END IF;
573: EXCEPTION
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
577: p_count => x_msg_count,
578: p_data => x_msg_data);
579: WHEN FND_API.G_EXC_ERROR THEN
580: X_return_status := FND_API.G_RET_STS_ERROR;
575: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
577: p_count => x_msg_count,
578: p_data => x_msg_data);
579: WHEN FND_API.G_EXC_ERROR THEN
580: X_return_status := FND_API.G_RET_STS_ERROR;
581: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
582: p_count => x_msg_count,
583: p_data => X_msg_data);
576: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
577: p_count => x_msg_count,
578: p_data => x_msg_data);
579: WHEN FND_API.G_EXC_ERROR THEN
580: X_return_status := FND_API.G_RET_STS_ERROR;
581: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
582: p_count => x_msg_count,
583: p_data => X_msg_data);
584: WHEN OTHERS THEN
577: p_count => x_msg_count,
578: p_data => x_msg_data);
579: WHEN FND_API.G_EXC_ERROR THEN
580: X_return_status := FND_API.G_RET_STS_ERROR;
581: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
582: p_count => x_msg_count,
583: p_data => X_msg_data);
584: WHEN OTHERS THEN
585: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
581: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
582: p_count => x_msg_count,
583: p_data => X_msg_data);
584: WHEN OTHERS THEN
585: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
587: THEN
588: fnd_msg_pub.add_exc_msg(p_pkg_name =>g_pkg_name,
589: p_procedure_name =>'VALIDATE_ASSOCIATION',
588: fnd_msg_pub.add_exc_msg(p_pkg_name =>g_pkg_name,
589: p_procedure_name =>'VALIDATE_ASSOCIATION',
590: p_error_text =>SUBSTR(SQLERRM,1,240));
591: END IF;
592: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
593: p_count => x_msg_count,
594: p_data => X_msg_data);
595: END;
596:
604: /*-------------------------------------------------------*/
605: PROCEDURE DELETE_ASSOCIATION
606: (
607: p_api_version IN NUMBER := 1.0 ,
608: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
609: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
610: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
611: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
612: p_association_rec IN association_rec ,
605: PROCEDURE DELETE_ASSOCIATION
606: (
607: p_api_version IN NUMBER := 1.0 ,
608: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
609: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
610: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
611: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
612: p_association_rec IN association_rec ,
613: x_return_status OUT NOCOPY VARCHAR2 ,
606: (
607: p_api_version IN NUMBER := 1.0 ,
608: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
609: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
610: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
611: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
612: p_association_rec IN association_rec ,
613: x_return_status OUT NOCOPY VARCHAR2 ,
614: x_msg_count OUT NOCOPY NUMBER ,
607: p_api_version IN NUMBER := 1.0 ,
608: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
609: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
610: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
611: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
612: p_association_rec IN association_rec ,
613: x_return_status OUT NOCOPY VARCHAR2 ,
614: x_msg_count OUT NOCOPY NUMBER ,
615: x_msg_data OUT NOCOPY VARCHAR2)
644:
645: END IF;
646: END IF;
647: -- Standard call to check for call compatibility.
648: IF FND_API.to_boolean(p_init_msg_list)
649: THEN
650: FND_MSG_PUB.initialize;
651: END IF;
652: -- Initialize API return status to success
651: END IF;
652: -- Initialize API return status to success
653: x_return_status := 'S';
654: -- Initialize message list if p_init_msg_list is set to TRUE.
655: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
656: p_api_version,
657: l_api_name,G_PKG_NAME)
658: THEN
659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
655: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
656: p_api_version,
657: l_api_name,G_PKG_NAME)
658: THEN
659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
660: END IF;
661: --
662: OPEN get_doc_assos_rec_b_info(p_association_rec.doc_title_asso_id);
663: FETCH get_doc_assos_rec_b_info INTO l_rowid,
694: WHERE doc_title_asso_id = p_association_rec.doc_title_asso_id;
695: --
696: */
697: --Standard check for commit;
698: IF FND_API.TO_BOOLEAN(p_commit) THEN
699: COMMIT;
700: END IF;
701: -- Debug info
702: IF G_DEBUG='Y' THEN
709:
710: END IF;
711:
712: EXCEPTION
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: ROLLBACK TO delete_association;
715: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
717: p_count => x_msg_count,
711:
712: EXCEPTION
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: ROLLBACK TO delete_association;
715: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
717: p_count => x_msg_count,
718: p_data => x_msg_data);
719: --Debug Info
712: EXCEPTION
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: ROLLBACK TO delete_association;
715: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
717: p_count => x_msg_count,
718: p_data => x_msg_data);
719: --Debug Info
720: IF G_DEBUG='Y' THEN
727: AHL_DEBUG_PUB.disable_debug;
728:
729: END IF;
730:
731: WHEN FND_API.G_EXC_ERROR THEN
732: ROLLBACK TO delete_association;
733: X_return_status := FND_API.G_RET_STS_ERROR;
734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
735: p_count => x_msg_count,
729: END IF;
730:
731: WHEN FND_API.G_EXC_ERROR THEN
732: ROLLBACK TO delete_association;
733: X_return_status := FND_API.G_RET_STS_ERROR;
734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
735: p_count => x_msg_count,
736: p_data => X_msg_data);
737: -- Debug info.
730:
731: WHEN FND_API.G_EXC_ERROR THEN
732: ROLLBACK TO delete_association;
733: X_return_status := FND_API.G_RET_STS_ERROR;
734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
735: p_count => x_msg_count,
736: p_data => X_msg_data);
737: -- Debug info.
738: IF G_DEBUG='Y' THEN
746: END IF;
747:
748: WHEN OTHERS THEN
749: ROLLBACK TO delete_association;
750: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
751: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
752: THEN
753: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
754: p_procedure_name => 'DELETE_ASSOCIATION',
753: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
754: p_procedure_name => 'DELETE_ASSOCIATION',
755: p_error_text => SUBSTR(SQLERRM,1,240));
756: END IF;
757: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
758: p_count => x_msg_count,
759: p_data => X_msg_data);
760: -- Debug info.
761: IF G_DEBUG='Y' THEN
780: /*------------------------------------------------------*/
781: PROCEDURE PROCESS_ASSOCIATION
782: (
783: p_api_version IN NUMBER := 1.0 ,
784: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
785: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
786: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
787: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
788: p_x_association_tbl IN OUT NOCOPY association_tbl ,
781: PROCEDURE PROCESS_ASSOCIATION
782: (
783: p_api_version IN NUMBER := 1.0 ,
784: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
785: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
786: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
787: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
788: p_x_association_tbl IN OUT NOCOPY association_tbl ,
789: x_return_status OUT NOCOPY VARCHAR2 ,
782: (
783: p_api_version IN NUMBER := 1.0 ,
784: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
785: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
786: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
787: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
788: p_x_association_tbl IN OUT NOCOPY association_tbl ,
789: x_return_status OUT NOCOPY VARCHAR2 ,
790: x_msg_count OUT NOCOPY NUMBER ,
783: p_api_version IN NUMBER := 1.0 ,
784: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
785: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
786: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
787: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
788: p_x_association_tbl IN OUT NOCOPY association_tbl ,
789: x_return_status OUT NOCOPY VARCHAR2 ,
790: x_msg_count OUT NOCOPY NUMBER ,
791: x_msg_data OUT NOCOPY VARCHAR2)
942:
943: END IF;
944: END IF;
945: -- Standard call to check for call compatibility.
946: IF FND_API.to_boolean(p_init_msg_list)
947: THEN
948: FND_MSG_PUB.initialize;
949: END IF;
950: -- Initialize API return status to success
949: END IF;
950: -- Initialize API return status to success
951: x_return_status := 'S';
952: -- Initialize message list if p_init_msg_list is set to TRUE.
953: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
954: p_api_version,
955: l_api_name,G_PKG_NAME)
956: THEN
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
953: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
954: p_api_version,
955: l_api_name,G_PKG_NAME)
956: THEN
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
958: END IF;
959:
960:
961: --Start of API Body
982: p_x_association_tbl(j).use_latest_rev_flag = 'Y')) THEN
983: FND_MESSAGE.SET_NAME('AHL','AHL_DI_USE_LATEST_ERROR');
984: FND_MESSAGE.SET_TOKEN('DOC_NO',l_record);
985: FND_MSG_PUB.ADD;
986: RAISE FND_API.G_EXC_ERROR;
987: END IF;
988: END LOOP;
989: VALIDATE_ASSOCIATION
990: (
1007: l_msg_count := FND_MSG_PUB.count_msg;
1008:
1009: IF l_msg_count > 0 THEN
1010: X_msg_count := l_msg_count;
1011: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014: END LOOP;
1015: END IF;
1008:
1009: IF l_msg_count > 0 THEN
1010: X_msg_count := l_msg_count;
1011: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014: END LOOP;
1015: END IF;
1016:
1064:
1065: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1066: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_record);
1067: FND_MSG_PUB.ADD;
1068: RAISE FND_API.G_EXC_ERROR;
1069:
1070: END IF;
1071: END IF;
1072:
1075: THEN
1076: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1077: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_record);
1078: FND_MSG_PUB.ADD;
1079: RAISE FND_API.G_EXC_ERROR;
1080: END IF;
1081:
1082: END IF;
1083: CLOSE dup_rec_check_cre;
1124:
1125: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1126: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_record);
1127: FND_MSG_PUB.ADD;
1128: RAISE FND_API.G_EXC_ERROR;
1129:
1130: END IF;
1131: END IF;
1132:
1135: THEN
1136: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1137: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_record);
1138: FND_MSG_PUB.ADD;
1139: RAISE FND_API.G_EXC_ERROR;
1140: END IF;
1141:
1142: END IF;
1143: CLOSE dup_rec_check_upd;
1166:
1167: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1168: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_record);
1169: FND_MSG_PUB.ADD;
1170: RAISE FND_API.G_EXC_ERROR;
1171:
1172: END IF;
1173: END IF;
1174:
1177: THEN
1178: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1179: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_record);
1180: FND_MSG_PUB.ADD;
1181: RAISE FND_API.G_EXC_ERROR;
1182: END IF;
1183: END IF;
1184: CLOSE dup_rec;
1185:
1198: l_msg_count := FND_MSG_PUB.count_msg;
1199:
1200: IF l_msg_count > 0 THEN
1201: X_msg_count := l_msg_count;
1202: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1205: */
1206: --prithwi changing code
1199:
1200: IF l_msg_count > 0 THEN
1201: X_msg_count := l_msg_count;
1202: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1205: */
1206: --prithwi changing code
1207: -- FOR i IN p_x_association_tbl.FIRST..p_x_association_tbl.LAST
1211: IF p_x_association_tbl(i).DML_OPERATION ='D'
1212: THEN
1213: DELETE_ASSOCIATION
1214: ( p_api_version => 1.0 ,
1215: p_init_msg_list => FND_API.G_TRUE ,
1216: p_commit => FND_API.G_FALSE ,
1217: p_validate_only => FND_API.G_TRUE ,
1218: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1219: p_association_rec => p_x_association_tbl(i) ,
1212: THEN
1213: DELETE_ASSOCIATION
1214: ( p_api_version => 1.0 ,
1215: p_init_msg_list => FND_API.G_TRUE ,
1216: p_commit => FND_API.G_FALSE ,
1217: p_validate_only => FND_API.G_TRUE ,
1218: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1219: p_association_rec => p_x_association_tbl(i) ,
1220: x_return_status => x_return_status ,
1213: DELETE_ASSOCIATION
1214: ( p_api_version => 1.0 ,
1215: p_init_msg_list => FND_API.G_TRUE ,
1216: p_commit => FND_API.G_FALSE ,
1217: p_validate_only => FND_API.G_TRUE ,
1218: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1219: p_association_rec => p_x_association_tbl(i) ,
1220: x_return_status => x_return_status ,
1221: x_msg_count => x_msg_count ,
1214: ( p_api_version => 1.0 ,
1215: p_init_msg_list => FND_API.G_TRUE ,
1216: p_commit => FND_API.G_FALSE ,
1217: p_validate_only => FND_API.G_TRUE ,
1218: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1219: p_association_rec => p_x_association_tbl(i) ,
1220: x_return_status => x_return_status ,
1221: x_msg_count => x_msg_count ,
1222: x_msg_data => x_msg_data);
1361: END IF;
1362:
1363: IF l_msg_count > 0 THEN
1364: X_msg_count := l_msg_count;
1365: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366: RAISE FND_API.G_EXC_ERROR;
1367: END IF;
1368:
1369: END IF;
1362:
1363: IF l_msg_count > 0 THEN
1364: X_msg_count := l_msg_count;
1365: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1366: RAISE FND_API.G_EXC_ERROR;
1367: END IF;
1368:
1369: END IF;
1370: --Standard check for commit
1367: END IF;
1368:
1369: END IF;
1370: --Standard check for commit
1371: IF FND_API.TO_BOOLEAN(p_commit) THEN
1372: IF G_DEBUG='Y' THEN
1373: AHL_DEBUG_PUB.debug( 'before commit');
1374: END IF;
1375: COMMIT;
1385:
1386: END IF;
1387:
1388: EXCEPTION
1389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1390: ROLLBACK TO process_association;
1391: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1392: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1393: p_count => x_msg_count,
1387:
1388: EXCEPTION
1389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1390: ROLLBACK TO process_association;
1391: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1392: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1393: p_count => x_msg_count,
1394: p_data => x_msg_data);
1395:
1388: EXCEPTION
1389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1390: ROLLBACK TO process_association;
1391: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1392: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1393: p_count => x_msg_count,
1394: p_data => x_msg_data);
1395:
1396: --Debug Info
1403: AHL_DEBUG_PUB.disable_debug;
1404:
1405: END IF;
1406:
1407: WHEN FND_API.G_EXC_ERROR THEN
1408: ROLLBACK TO process_association;
1409: X_return_status := FND_API.G_RET_STS_ERROR;
1410: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1411: p_count => x_msg_count,
1405: END IF;
1406:
1407: WHEN FND_API.G_EXC_ERROR THEN
1408: ROLLBACK TO process_association;
1409: X_return_status := FND_API.G_RET_STS_ERROR;
1410: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1411: p_count => x_msg_count,
1412: p_data => X_msg_data);
1413:
1406:
1407: WHEN FND_API.G_EXC_ERROR THEN
1408: ROLLBACK TO process_association;
1409: X_return_status := FND_API.G_RET_STS_ERROR;
1410: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1411: p_count => x_msg_count,
1412: p_data => X_msg_data);
1413:
1414: -- Debug info.
1423: END IF;
1424:
1425: WHEN OTHERS THEN
1426: ROLLBACK TO process_association;
1427: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1428: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1429: THEN
1430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
1431: p_procedure_name => 'PROCESS_ASSOCIATION',
1430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
1431: p_procedure_name => 'PROCESS_ASSOCIATION',
1432: p_error_text => SUBSTR(SQLERRM,1,240));
1433: END IF;
1434: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1435: p_count => x_msg_count,
1436: p_data => X_msg_data);
1437: -- Debug info.
1438: IF G_DEBUG='Y' THEN
1449:
1450: PROCEDURE INSERT_ASSOC_REC
1451: (
1452: p_api_version IN NUMBER := 1.0 ,
1453: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE ,
1454: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE ,
1455: p_validate_only IN VARCHAR2 := Fnd_Api.G_TRUE ,
1456: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1457: p_association_rec IN ahl_doc_title_assos_vl%ROWTYPE ,
1450: PROCEDURE INSERT_ASSOC_REC
1451: (
1452: p_api_version IN NUMBER := 1.0 ,
1453: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE ,
1454: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE ,
1455: p_validate_only IN VARCHAR2 := Fnd_Api.G_TRUE ,
1456: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1457: p_association_rec IN ahl_doc_title_assos_vl%ROWTYPE ,
1458: x_return_status OUT NOCOPY VARCHAR2 ,
1451: (
1452: p_api_version IN NUMBER := 1.0 ,
1453: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE ,
1454: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE ,
1455: p_validate_only IN VARCHAR2 := Fnd_Api.G_TRUE ,
1456: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1457: p_association_rec IN ahl_doc_title_assos_vl%ROWTYPE ,
1458: x_return_status OUT NOCOPY VARCHAR2 ,
1459: x_msg_count OUT NOCOPY NUMBER ,
1452: p_api_version IN NUMBER := 1.0 ,
1453: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE ,
1454: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE ,
1455: p_validate_only IN VARCHAR2 := Fnd_Api.G_TRUE ,
1456: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1457: p_association_rec IN ahl_doc_title_assos_vl%ROWTYPE ,
1458: x_return_status OUT NOCOPY VARCHAR2 ,
1459: x_msg_count OUT NOCOPY NUMBER ,
1460: x_msg_data OUT NOCOPY VARCHAR2)
1534:
1535: END IF;
1536: END IF;
1537: -- Standard call to check for call compatibility.
1538: IF Fnd_Api.to_boolean(p_init_msg_list)
1539: THEN
1540: Fnd_Msg_Pub.initialize;
1541: END IF;
1542: -- Initialize API return status to success
1541: END IF;
1542: -- Initialize API return status to success
1543: x_return_status := 'S';
1544: -- Initialize message list if p_init_msg_list is set to TRUE.
1545: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1546: p_api_version,
1547: l_api_name,G_PKG_NAME)
1548: THEN
1549: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1545: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1546: p_api_version,
1547: l_api_name,G_PKG_NAME)
1548: THEN
1549: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1550: END IF;
1551: --Start of API Body
1552: L_RECORD:='';
1553: VALIDATE_ASSOCIATION
1570: l_msg_count := Fnd_Msg_Pub.count_msg;
1571:
1572: IF l_msg_count > 0 THEN
1573: X_msg_count := l_msg_count;
1574: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1575: RAISE Fnd_Api.G_EXC_ERROR;
1576: END IF;
1577:
1578: IF p_association_rec.doc_title_asso_id = Fnd_Api.G_MISS_NUM
1571:
1572: IF l_msg_count > 0 THEN
1573: X_msg_count := l_msg_count;
1574: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1575: RAISE Fnd_Api.G_EXC_ERROR;
1576: END IF;
1577:
1578: IF p_association_rec.doc_title_asso_id = Fnd_Api.G_MISS_NUM
1579: THEN
1574: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1575: RAISE Fnd_Api.G_EXC_ERROR;
1576: END IF;
1577:
1578: IF p_association_rec.doc_title_asso_id = Fnd_Api.G_MISS_NUM
1579: THEN
1580: --The following conditions are required for optional fields
1581: IF p_association_rec.doc_revision_id = Fnd_Api.G_MISS_NUM
1582: THEN
1577:
1578: IF p_association_rec.doc_title_asso_id = Fnd_Api.G_MISS_NUM
1579: THEN
1580: --The following conditions are required for optional fields
1581: IF p_association_rec.doc_revision_id = Fnd_Api.G_MISS_NUM
1582: THEN
1583: l_association_info.doc_revision_id := NULL;
1584: ELSE
1585: l_association_info.doc_revision_id := p_association_rec.doc_revision_id;
1585: l_association_info.doc_revision_id := p_association_rec.doc_revision_id;
1586: END IF;
1587: -- If document revision doesnt exist then latest rev flag
1588: -- is 'YES' else which ever user selects (Default 'NO')
1589: IF (p_association_rec.use_latest_rev_flag = Fnd_Api.G_MISS_CHAR
1590: AND
1591: l_association_info.doc_revision_id IS NULL)
1592: THEN
1593: l_association_info.use_latest_rev_flag := 'Y';
1590: AND
1591: l_association_info.doc_revision_id IS NULL)
1592: THEN
1593: l_association_info.use_latest_rev_flag := 'Y';
1594: ELSIF (p_association_rec.use_latest_rev_flag <> Fnd_Api.G_MISS_CHAR
1595: AND
1596: l_association_info.doc_revision_id IS NULL)
1597: THEN
1598: l_association_info.use_latest_rev_flag := p_association_rec.use_latest_rev_flag;
1595: AND
1596: l_association_info.doc_revision_id IS NULL)
1597: THEN
1598: l_association_info.use_latest_rev_flag := p_association_rec.use_latest_rev_flag;
1599: ELSIF (p_association_rec.use_latest_rev_flag <> Fnd_Api.G_MISS_CHAR
1600: AND
1601: l_association_info.doc_revision_id IS NOT NULL)
1602: THEN
1603: l_association_info.use_latest_rev_flag := p_association_rec.use_latest_rev_flag;
1605: ELSE
1606: l_association_info.use_latest_rev_flag := 'N';
1607: END IF;
1608: --
1609: IF p_association_rec.serial_no = Fnd_Api.G_MISS_CHAR
1610: THEN
1611: l_association_info.serial_no := NULL;
1612: ELSE
1613: l_association_info.serial_no := p_association_rec.serial_no;
1612: ELSE
1613: l_association_info.serial_no := p_association_rec.serial_no;
1614: END IF;
1615: --
1616: IF p_association_rec.chapter = Fnd_Api.G_MISS_CHAR
1617: THEN
1618: l_association_info.chapter := NULL;
1619: ELSE
1620: l_association_info.chapter := p_association_rec.chapter;
1619: ELSE
1620: l_association_info.chapter := p_association_rec.chapter;
1621: END IF;
1622: --
1623: IF p_association_rec.SECTION = Fnd_Api.G_MISS_CHAR
1624: THEN
1625: l_association_info.SECTION := NULL;
1626: ELSE
1627: l_association_info.SECTION := p_association_rec.SECTION;
1626: ELSE
1627: l_association_info.SECTION := p_association_rec.SECTION;
1628: END IF;
1629: --
1630: IF p_association_rec.subject = Fnd_Api.G_MISS_CHAR
1631: THEN
1632: l_association_info.subject := NULL;
1633: ELSE
1634: l_association_info.subject := p_association_rec.subject;
1633: ELSE
1634: l_association_info.subject := p_association_rec.subject;
1635: END IF;
1636: --
1637: IF p_association_rec.page = Fnd_Api.G_MISS_CHAR
1638: THEN
1639: l_association_info.page := NULL;
1640: ELSE
1641: l_association_info.page := p_association_rec.page;
1640: ELSE
1641: l_association_info.page := p_association_rec.page;
1642: END IF;
1643: --
1644: IF p_association_rec.figure = Fnd_Api.G_MISS_CHAR
1645: THEN
1646: l_association_info.figure := NULL;
1647: ELSE
1648: l_association_info.figure := p_association_rec.figure;
1647: ELSE
1648: l_association_info.figure := p_association_rec.figure;
1649: END IF;
1650: --
1651: IF p_association_rec.note = Fnd_Api.G_MISS_CHAR
1652: THEN
1653: l_association_info.note := NULL;
1654: ELSE
1655: l_association_info.note := p_association_rec.note;
1654: ELSE
1655: l_association_info.note := p_association_rec.note;
1656: END IF;
1657: --
1658: IF p_association_rec.attribute_category = Fnd_Api.G_MISS_CHAR
1659: THEN
1660: l_association_info.attribute_category := NULL;
1661: ELSE
1662: l_association_info.attribute_category := p_association_rec.attribute_category;
1661: ELSE
1662: l_association_info.attribute_category := p_association_rec.attribute_category;
1663: END IF;
1664: --
1665: IF p_association_rec.attribute1 = Fnd_Api.G_MISS_CHAR
1666: THEN
1667: l_association_info.attribute1 := NULL;
1668: ELSE
1669: l_association_info.attribute1 := p_association_rec.attribute1;
1668: ELSE
1669: l_association_info.attribute1 := p_association_rec.attribute1;
1670: END IF;
1671: --
1672: IF p_association_rec.attribute2 = Fnd_Api.G_MISS_CHAR
1673: THEN
1674: l_association_info.attribute2 := NULL;
1675: ELSE
1676: l_association_info.attribute2 := p_association_rec.attribute2;
1675: ELSE
1676: l_association_info.attribute2 := p_association_rec.attribute2;
1677: END IF;
1678: --
1679: IF p_association_rec.attribute3 = Fnd_Api.G_MISS_CHAR
1680: THEN
1681: l_association_info.attribute3 := NULL;
1682: ELSE
1683: l_association_info.attribute3 := p_association_rec.attribute3;
1682: ELSE
1683: l_association_info.attribute3 := p_association_rec.attribute3;
1684: END IF;
1685: --
1686: IF p_association_rec.attribute4 = Fnd_Api.G_MISS_CHAR
1687: THEN
1688: l_association_info.attribute4 := NULL;
1689: ELSE
1690: l_association_info.attribute4 := p_association_rec.attribute4;
1689: ELSE
1690: l_association_info.attribute4 := p_association_rec.attribute4;
1691: END IF;
1692: --
1693: IF p_association_rec.attribute5 = Fnd_Api.G_MISS_CHAR
1694: THEN
1695: l_association_info.attribute5 := NULL;
1696: ELSE
1697: l_association_info.attribute5 := p_association_rec.attribute5;
1696: ELSE
1697: l_association_info.attribute5 := p_association_rec.attribute5;
1698: END IF;
1699: --
1700: IF p_association_rec.attribute6 = Fnd_Api.G_MISS_CHAR
1701: THEN
1702: l_association_info.attribute6 := NULL;
1703: ELSE
1704: l_association_info.attribute6 := p_association_rec.attribute6;
1703: ELSE
1704: l_association_info.attribute6 := p_association_rec.attribute6;
1705: END IF;
1706: --
1707: IF p_association_rec.attribute7 = Fnd_Api.G_MISS_CHAR
1708: THEN
1709: l_association_info.attribute7 := NULL;
1710: ELSE
1711: l_association_info.attribute7 := p_association_rec.attribute7;
1710: ELSE
1711: l_association_info.attribute7 := p_association_rec.attribute7;
1712: END IF;
1713: --
1714: IF p_association_rec.attribute8 = Fnd_Api.G_MISS_CHAR
1715: THEN
1716: l_association_info.attribute8 := NULL;
1717: ELSE
1718: l_association_info.attribute8 := p_association_rec.attribute8;
1717: ELSE
1718: l_association_info.attribute8 := p_association_rec.attribute8;
1719: END IF;
1720: --
1721: IF p_association_rec.attribute9 = Fnd_Api.G_MISS_CHAR
1722: THEN
1723: l_association_info.attribute9 := NULL;
1724: ELSE
1725: l_association_info.attribute9 := p_association_rec.attribute9;
1724: ELSE
1725: l_association_info.attribute9 := p_association_rec.attribute9;
1726: END IF;
1727: --
1728: IF p_association_rec.attribute10 = Fnd_Api.G_MISS_CHAR
1729: THEN
1730: l_association_info.attribute10 := NULL;
1731: ELSE
1732: l_association_info.attribute10 := p_association_rec.attribute10;
1731: ELSE
1732: l_association_info.attribute10 := p_association_rec.attribute10;
1733: END IF;
1734: --
1735: IF p_association_rec.attribute11 = Fnd_Api.G_MISS_CHAR
1736: THEN
1737: l_association_info.attribute11 := NULL;
1738: ELSE
1739: l_association_info.attribute11 := p_association_rec.attribute11;
1738: ELSE
1739: l_association_info.attribute11 := p_association_rec.attribute11;
1740: END IF;
1741: --
1742: IF p_association_rec.attribute12 = Fnd_Api.G_MISS_CHAR
1743: THEN
1744: l_association_info.attribute12 := NULL;
1745: ELSE
1746: l_association_info.attribute12 := p_association_rec.attribute12;
1745: ELSE
1746: l_association_info.attribute12 := p_association_rec.attribute12;
1747: END IF;
1748: --
1749: IF p_association_rec.attribute13 = Fnd_Api.G_MISS_CHAR
1750: THEN
1751: l_association_info.attribute13 := NULL;
1752: ELSE
1753: l_association_info.attribute13 := p_association_rec.attribute13;
1752: ELSE
1753: l_association_info.attribute13 := p_association_rec.attribute13;
1754: END IF;
1755: --
1756: IF p_association_rec.attribute14 = Fnd_Api.G_MISS_CHAR
1757: THEN
1758: l_association_info.attribute14 := NULL;
1759: ELSE
1760: l_association_info.attribute14 := p_association_rec.attribute14;
1759: ELSE
1760: l_association_info.attribute14 := p_association_rec.attribute14;
1761: END IF;
1762: --
1763: IF p_association_rec.attribute15 = Fnd_Api.G_MISS_CHAR
1764: THEN
1765: l_association_info.attribute15 := NULL;
1766: ELSE
1767: l_association_info.attribute15 := p_association_rec.attribute15;
1788: IF dup_rec_check%FOUND THEN
1789: Fnd_Message.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1790: Fnd_Message.SET_TOKEN('DUPRECORD',l_document_no);
1791: Fnd_Msg_Pub.ADD;
1792: RAISE Fnd_Api.G_EXC_ERROR;
1793: END IF;
1794: CLOSE dup_rec_check;
1795: ELSE
1796: OPEN dup_rec( p_association_rec.aso_object_type_code,
1801: IF dup_rec%FOUND THEN
1802: Fnd_Message.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1803: Fnd_Message.SET_TOKEN('DUPRECORD',l_document_no);
1804: Fnd_Msg_Pub.ADD;
1805: RAISE Fnd_Api.G_EXC_ERROR;
1806: END IF;
1807: CLOSE dup_rec;
1808: END IF;
1809:
1860: l_msg_count := Fnd_Msg_Pub.count_msg;
1861:
1862: IF l_msg_count > 0 THEN
1863: X_msg_count := l_msg_count;
1864: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1865: RAISE Fnd_Api.G_EXC_ERROR;
1866: END IF;
1867: END IF;
1868: --Standard check for commit
1861:
1862: IF l_msg_count > 0 THEN
1863: X_msg_count := l_msg_count;
1864: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1865: RAISE Fnd_Api.G_EXC_ERROR;
1866: END IF;
1867: END IF;
1868: --Standard check for commit
1869: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1865: RAISE Fnd_Api.G_EXC_ERROR;
1866: END IF;
1867: END IF;
1868: --Standard check for commit
1869: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1870: COMMIT;
1871: END IF;
1872: -- Debug info
1873: IF G_DEBUG='Y' THEN
1880:
1881: END IF;
1882:
1883: EXCEPTION
1884: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1885: ROLLBACK TO insert_assoc_rec;
1886: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1887: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
1888: p_count => x_msg_count,
1882:
1883: EXCEPTION
1884: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1885: ROLLBACK TO insert_assoc_rec;
1886: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1887: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
1888: p_count => x_msg_count,
1889: p_data => x_msg_data);
1890:
1883: EXCEPTION
1884: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1885: ROLLBACK TO insert_assoc_rec;
1886: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1887: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
1888: p_count => x_msg_count,
1889: p_data => x_msg_data);
1890:
1891: --Debug Info
1898: AHL_DEBUG_PUB.disable_debug;
1899:
1900: END IF;
1901:
1902: WHEN Fnd_Api.G_EXC_ERROR THEN
1903: ROLLBACK TO insert_assoc_rec;
1904: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1905: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
1906: p_count => x_msg_count,
1900: END IF;
1901:
1902: WHEN Fnd_Api.G_EXC_ERROR THEN
1903: ROLLBACK TO insert_assoc_rec;
1904: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1905: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
1906: p_count => x_msg_count,
1907: p_data => X_msg_data);
1908:
1901:
1902: WHEN Fnd_Api.G_EXC_ERROR THEN
1903: ROLLBACK TO insert_assoc_rec;
1904: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1905: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
1906: p_count => x_msg_count,
1907: p_data => X_msg_data);
1908:
1909: -- Debug info.
1918: END IF;
1919:
1920: WHEN OTHERS THEN
1921: ROLLBACK TO insert_assoc_rec;
1922: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1923: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
1924: THEN
1925: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
1926: p_procedure_name => 'INSERT_ASSOC_REC',
1925: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
1926: p_procedure_name => 'INSERT_ASSOC_REC',
1927: p_error_text => SUBSTR(SQLERRM,1,240));
1928: END IF;
1929: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
1930: p_count => x_msg_count,
1931: p_data => X_msg_data);
1932: -- Debug info.
1933: IF G_DEBUG='Y' THEN
1952: /*------------------------------------------------------*/
1953: Procedure COPY_ASSOCIATION
1954: (
1955: p_api_version IN NUMBER := 1.0 ,
1956: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE ,
1957: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE ,
1958: p_validate_only IN VARCHAR2 := Fnd_Api.G_TRUE ,
1959: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1960: p_from_object_id IN NUMBER,
1953: Procedure COPY_ASSOCIATION
1954: (
1955: p_api_version IN NUMBER := 1.0 ,
1956: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE ,
1957: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE ,
1958: p_validate_only IN VARCHAR2 := Fnd_Api.G_TRUE ,
1959: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1960: p_from_object_id IN NUMBER,
1961: p_from_object_type IN VARCHAR2,
1954: (
1955: p_api_version IN NUMBER := 1.0 ,
1956: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE ,
1957: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE ,
1958: p_validate_only IN VARCHAR2 := Fnd_Api.G_TRUE ,
1959: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1960: p_from_object_id IN NUMBER,
1961: p_from_object_type IN VARCHAR2,
1962: p_to_object_id IN NUMBER,
1955: p_api_version IN NUMBER := 1.0 ,
1956: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_TRUE ,
1957: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE ,
1958: p_validate_only IN VARCHAR2 := Fnd_Api.G_TRUE ,
1959: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1960: p_from_object_id IN NUMBER,
1961: p_from_object_type IN VARCHAR2,
1962: p_to_object_id IN NUMBER,
1963: p_to_object_type IN VARCHAR2,
1994:
1995: END IF;
1996: END IF;
1997: -- Standard call to check for call compatibility.
1998: IF Fnd_Api.to_boolean(p_init_msg_list)
1999: THEN
2000: Fnd_Msg_Pub.initialize;
2001: END IF;
2002: -- Initialize API return status to success
2001: END IF;
2002: -- Initialize API return status to success
2003: x_return_status := 'S';
2004: -- Initialize message list if p_init_msg_list is set to TRUE.
2005: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2006: p_api_version,
2007: l_api_name,G_PKG_NAME)
2008: THEN
2009: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2005: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2006: p_api_version,
2007: l_api_name,G_PKG_NAME)
2008: THEN
2009: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2011: IF G_DEBUG='Y' THEN
2012: IF G_DEBUG='Y' THEN
2013: AHL_DEBUG_PUB.debug( 'enter AHL_DI_ASSO_DOC_GEN_PVT.Copy Association:'||p_from_object_id ,'+DOBJASS+');
2049: END;
2050: l_msg_count := Fnd_Msg_Pub.count_msg;
2051: IF l_msg_count > 0 THEN
2052: x_msg_count := l_msg_count;
2053: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2054: RAISE Fnd_Api.G_EXC_ERROR;
2055: END IF;
2056: END IF;
2057: --Assign the new object id and object type
2050: l_msg_count := Fnd_Msg_Pub.count_msg;
2051: IF l_msg_count > 0 THEN
2052: x_msg_count := l_msg_count;
2053: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2054: RAISE Fnd_Api.G_EXC_ERROR;
2055: END IF;
2056: END IF;
2057: --Assign the new object id and object type
2058: l_association_rec.doc_title_asso_id := Fnd_Api.G_MISS_NUM;
2054: RAISE Fnd_Api.G_EXC_ERROR;
2055: END IF;
2056: END IF;
2057: --Assign the new object id and object type
2058: l_association_rec.doc_title_asso_id := Fnd_Api.G_MISS_NUM;
2059: l_association_rec.aso_object_id := p_to_object_id;
2060: l_association_rec.aso_object_type_code := p_from_object_type;
2061: --Call to insert new association records
2062: INSERT_ASSOC_REC
2060: l_association_rec.aso_object_type_code := p_from_object_type;
2061: --Call to insert new association records
2062: INSERT_ASSOC_REC
2063: ( p_api_version => 1.0 ,
2064: p_init_msg_list => Fnd_Api.G_TRUE ,
2065: p_commit => Fnd_Api.G_FALSE ,
2066: p_validate_only => Fnd_Api.G_TRUE ,
2067: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2068: p_association_rec => l_association_rec ,
2061: --Call to insert new association records
2062: INSERT_ASSOC_REC
2063: ( p_api_version => 1.0 ,
2064: p_init_msg_list => Fnd_Api.G_TRUE ,
2065: p_commit => Fnd_Api.G_FALSE ,
2066: p_validate_only => Fnd_Api.G_TRUE ,
2067: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2068: p_association_rec => l_association_rec ,
2069: x_return_status => x_return_status ,
2062: INSERT_ASSOC_REC
2063: ( p_api_version => 1.0 ,
2064: p_init_msg_list => Fnd_Api.G_TRUE ,
2065: p_commit => Fnd_Api.G_FALSE ,
2066: p_validate_only => Fnd_Api.G_TRUE ,
2067: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2068: p_association_rec => l_association_rec ,
2069: x_return_status => x_return_status ,
2070: x_msg_count => x_msg_count ,
2063: ( p_api_version => 1.0 ,
2064: p_init_msg_list => Fnd_Api.G_TRUE ,
2065: p_commit => Fnd_Api.G_FALSE ,
2066: p_validate_only => Fnd_Api.G_TRUE ,
2067: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2068: p_association_rec => l_association_rec ,
2069: x_return_status => x_return_status ,
2070: x_msg_count => x_msg_count ,
2071: x_msg_data => x_msg_data);
2076: l_msg_count := Fnd_Msg_Pub.count_msg;
2077:
2078: IF l_msg_count > 0 THEN
2079: X_msg_count := l_msg_count;
2080: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2081: RAISE Fnd_Api.G_EXC_ERROR;
2082: END IF;
2083: --Standard check for commit
2084: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2077:
2078: IF l_msg_count > 0 THEN
2079: X_msg_count := l_msg_count;
2080: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2081: RAISE Fnd_Api.G_EXC_ERROR;
2082: END IF;
2083: --Standard check for commit
2084: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2085: COMMIT;
2080: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2081: RAISE Fnd_Api.G_EXC_ERROR;
2082: END IF;
2083: --Standard check for commit
2084: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2085: COMMIT;
2086: END IF;
2087: -- Debug info
2088: IF G_DEBUG='Y' THEN
2095:
2096: END IF;
2097:
2098: EXCEPTION
2099: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2100: ROLLBACK TO copy_association;
2101: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2102: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2103: p_count => x_msg_count,
2097:
2098: EXCEPTION
2099: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2100: ROLLBACK TO copy_association;
2101: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2102: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2103: p_count => x_msg_count,
2104: p_data => x_msg_data);
2105:
2098: EXCEPTION
2099: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2100: ROLLBACK TO copy_association;
2101: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2102: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2103: p_count => x_msg_count,
2104: p_data => x_msg_data);
2105:
2106: --Debug Info
2113: AHL_DEBUG_PUB.disable_debug;
2114:
2115: END IF;
2116:
2117: WHEN Fnd_Api.G_EXC_ERROR THEN
2118: ROLLBACK TO copy_association;
2119: X_return_status := Fnd_Api.G_RET_STS_ERROR;
2120: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2121: p_count => x_msg_count,
2115: END IF;
2116:
2117: WHEN Fnd_Api.G_EXC_ERROR THEN
2118: ROLLBACK TO copy_association;
2119: X_return_status := Fnd_Api.G_RET_STS_ERROR;
2120: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2121: p_count => x_msg_count,
2122: p_data => X_msg_data);
2123: -- Debug info.
2116:
2117: WHEN Fnd_Api.G_EXC_ERROR THEN
2118: ROLLBACK TO copy_association;
2119: X_return_status := Fnd_Api.G_RET_STS_ERROR;
2120: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2121: p_count => x_msg_count,
2122: p_data => X_msg_data);
2123: -- Debug info.
2124: IF G_DEBUG='Y' THEN
2132: END IF;
2133:
2134: WHEN OTHERS THEN
2135: ROLLBACK TO copy_association;
2136: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2137: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2138: THEN
2139: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
2140: p_procedure_name => 'COPY_ASSOCIATION',
2139: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
2140: p_procedure_name => 'COPY_ASSOCIATION',
2141: p_error_text => SUBSTR(SQLERRM,1,240));
2142: END IF;
2143: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2144: p_count => x_msg_count,
2145: p_data => X_msg_data);
2146:
2147: -- Debug info.
2163:
2164: PROCEDURE DELETE_ALL_ASSOCIATIONS
2165: (
2166: p_api_version IN NUMBER := 1.0 ,
2167: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2168: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2169: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2171: p_aso_object_type_code IN VARCHAR2 ,
2164: PROCEDURE DELETE_ALL_ASSOCIATIONS
2165: (
2166: p_api_version IN NUMBER := 1.0 ,
2167: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2168: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2169: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2171: p_aso_object_type_code IN VARCHAR2 ,
2172: p_aso_object_id IN NUMBER ,
2165: (
2166: p_api_version IN NUMBER := 1.0 ,
2167: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2168: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2169: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2171: p_aso_object_type_code IN VARCHAR2 ,
2172: p_aso_object_id IN NUMBER ,
2173: x_return_status OUT NOCOPY VARCHAR2 ,
2166: p_api_version IN NUMBER := 1.0 ,
2167: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
2168: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
2169: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
2170: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2171: p_aso_object_type_code IN VARCHAR2 ,
2172: p_aso_object_id IN NUMBER ,
2173: x_return_status OUT NOCOPY VARCHAR2 ,
2174: x_msg_count OUT NOCOPY NUMBER ,
2204: END IF;
2205: END IF;
2206:
2207: -- Standard call to check for call compatibility.
2208: IF Fnd_Api.to_boolean(p_init_msg_list)
2209: THEN
2210: Fnd_Msg_Pub.initialize;
2211: END IF;
2212: -- Initialize API return status to success
2211: END IF;
2212: -- Initialize API return status to success
2213: x_return_status := 'S';
2214: -- Initialize message list if p_init_msg_list is set to TRUE.
2215: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2216: p_api_version,
2217: l_api_name,G_PKG_NAME)
2218: THEN
2219: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2215: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2216: p_api_version,
2217: l_api_name,G_PKG_NAME)
2218: THEN
2219: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2220: END IF;
2221: IF G_DEBUG='Y' THEN
2222:
2223: AHL_DEBUG_PUB.debug( 'enter AHL_DI_ASSO_DOC_GEN_PVT.delete all Association:'||p_aso_object_id ,'+DOBJASS+');
2279:
2280: AHL_DEBUG_PUB.debug( 'exit AHL_DI_ASSO_DOC_GEN_PVT.delete all Association:'||p_aso_object_id ,'+DOBJASS+');
2281:
2282: EXCEPTION
2283: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2284: ROLLBACK TO copy_association;
2285: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2286: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2287: p_count => x_msg_count,
2281:
2282: EXCEPTION
2283: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2284: ROLLBACK TO copy_association;
2285: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2286: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2287: p_count => x_msg_count,
2288: p_data => x_msg_data);
2289:
2282: EXCEPTION
2283: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2284: ROLLBACK TO copy_association;
2285: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2286: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2287: p_count => x_msg_count,
2288: p_data => x_msg_data);
2289:
2290: --Debug Info
2297: AHL_DEBUG_PUB.disable_debug;
2298:
2299: END IF;
2300:
2301: WHEN Fnd_Api.G_EXC_ERROR THEN
2302: ROLLBACK TO copy_association;
2303: X_return_status := Fnd_Api.G_RET_STS_ERROR;
2304: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2305: p_count => x_msg_count,
2299: END IF;
2300:
2301: WHEN Fnd_Api.G_EXC_ERROR THEN
2302: ROLLBACK TO copy_association;
2303: X_return_status := Fnd_Api.G_RET_STS_ERROR;
2304: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2305: p_count => x_msg_count,
2306: p_data => X_msg_data);
2307: -- Debug info.
2300:
2301: WHEN Fnd_Api.G_EXC_ERROR THEN
2302: ROLLBACK TO copy_association;
2303: X_return_status := Fnd_Api.G_RET_STS_ERROR;
2304: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2305: p_count => x_msg_count,
2306: p_data => X_msg_data);
2307: -- Debug info.
2308: IF G_DEBUG='Y' THEN
2316: END IF;
2317:
2318: WHEN OTHERS THEN
2319: ROLLBACK TO copy_association;
2320: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2321: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2322: THEN
2323: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
2324: p_procedure_name => 'DELETE_ALL_ASSOCIATION',
2323: Fnd_Msg_Pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_GEN_PVT',
2324: p_procedure_name => 'DELETE_ALL_ASSOCIATION',
2325: p_error_text => SUBSTR(SQLERRM,1,240));
2326: END IF;
2327: Fnd_Msg_Pub.count_and_get( p_encoded => Fnd_Api.G_FALSE,
2328: p_count => x_msg_count,
2329: p_data => X_msg_data);
2330:
2331: -- Debug info.