38: AND meaning = p_meaning
39: AND sysdate between start_date_active
40: AND nvl(end_date_active,sysdate);
41: END IF;
42: x_return_status := FND_API.G_RET_STS_SUCCESS;
43: EXCEPTION
44: WHEN no_data_found THEN
45: x_return_status := FND_API.G_RET_STS_ERROR;
46: WHEN too_many_rows THEN
41: END IF;
42: x_return_status := FND_API.G_RET_STS_SUCCESS;
43: EXCEPTION
44: WHEN no_data_found THEN
45: x_return_status := FND_API.G_RET_STS_ERROR;
46: WHEN too_many_rows THEN
47: x_return_status := FND_API.G_RET_STS_ERROR;
48: WHEN OTHERS THEN
49: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43: EXCEPTION
44: WHEN no_data_found THEN
45: x_return_status := FND_API.G_RET_STS_ERROR;
46: WHEN too_many_rows THEN
47: x_return_status := FND_API.G_RET_STS_ERROR;
48: WHEN OTHERS THEN
49: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
50: RAISE;
51: END;
45: x_return_status := FND_API.G_RET_STS_ERROR;
46: WHEN too_many_rows THEN
47: x_return_status := FND_API.G_RET_STS_ERROR;
48: WHEN OTHERS THEN
49: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
50: RAISE;
51: END;
52: /*---------------------------------------------------*/
53: /* procedure name: create_revision */
57: /*---------------------------------------------------*/
58: PROCEDURE CREATE_REVISION
59: (
60: p_api_version IN NUMBER := 1.0 ,
61: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
62: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
63: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
64: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
65: p_x_revision_tbl IN OUT NOCOPY revision_tbl ,
58: PROCEDURE CREATE_REVISION
59: (
60: p_api_version IN NUMBER := 1.0 ,
61: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
62: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
63: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
64: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
65: p_x_revision_tbl IN OUT NOCOPY revision_tbl ,
66: p_module_type IN VARCHAR2 ,
59: (
60: p_api_version IN NUMBER := 1.0 ,
61: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
62: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
63: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
64: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
65: p_x_revision_tbl IN OUT NOCOPY revision_tbl ,
66: p_module_type IN VARCHAR2 ,
67: x_return_status OUT NOCOPY VARCHAR2 ,
60: p_api_version IN NUMBER := 1.0 ,
61: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
62: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
63: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
64: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
65: p_x_revision_tbl IN OUT NOCOPY revision_tbl ,
66: p_module_type IN VARCHAR2 ,
67: x_return_status OUT NOCOPY VARCHAR2 ,
68: x_msg_count OUT NOCOPY NUMBER ,
137: l_revision_status_type VARCHAR2(30) := 'AHL_REVISION_STATUS_TYPE';
138: l_revision_type VARCHAR2(30) := 'AHL_REVISION_TYPE';
139: l_approved_by_party_id NUMBER;
140: l_revision_tbl AHL_DI_DOC_REVISION_PVT.revision_tbl;
141: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;
142: l_sysdate DATE;
143: --pekambar Enigma Phase II changes -- start
144: l_enigma_doc_id VARCHAR2(80);
145: l_enigma_model_code VARCHAR2(30);
161:
162: END IF;
163: END IF;
164: -- Standard call to check for call compatibility.
165: IF FND_API.to_boolean(l_init_msg_list)
166: THEN
167: FND_MSG_PUB.initialize;
168: END IF;
169: -- Initialize API return status to success
168: END IF;
169: -- Initialize API return status to success
170: x_return_status := 'S';
171: -- Initialize message list if p_init_msg_list is set to TRUE.
172: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
173: p_api_version,
174: l_api_name,G_PKG_NAME)
175: THEN
176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
173: p_api_version,
174: l_api_name,G_PKG_NAME)
175: THEN
176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
177: END IF;
178:
179: --Start of API Body
180: IF p_x_revision_tbl.COUNT > 0
509: l_msg_count := FND_MSG_PUB.count_msg;
510:
511: IF l_msg_count > 0 THEN
512: X_msg_count := l_msg_count;
513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
514: THEN
515: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
517: ELSE
511: IF l_msg_count > 0 THEN
512: X_msg_count := l_msg_count;
513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
514: THEN
515: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
517: ELSE
518: X_return_status := FND_API.G_RET_STS_ERROR;
519: RAISE FND_API.G_EXC_ERROR;
512: X_msg_count := l_msg_count;
513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
514: THEN
515: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
517: ELSE
518: X_return_status := FND_API.G_RET_STS_ERROR;
519: RAISE FND_API.G_EXC_ERROR;
520: END IF;
514: THEN
515: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
517: ELSE
518: X_return_status := FND_API.G_RET_STS_ERROR;
519: RAISE FND_API.G_EXC_ERROR;
520: END IF;
521: END IF;
522: END LOOP;
515: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
517: ELSE
518: X_return_status := FND_API.G_RET_STS_ERROR;
519: RAISE FND_API.G_EXC_ERROR;
520: END IF;
521: END IF;
522: END LOOP;
523: END IF;
555:
556: END IF;
557:
558:
559: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
560: RAISE FND_API.G_EXC_ERROR;
561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
556: END IF;
557:
558:
559: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
560: RAISE FND_API.G_EXC_ERROR;
561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564: END IF;
557:
558:
559: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
560: RAISE FND_API.G_EXC_ERROR;
561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564: END IF;
565:
558:
559: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
560: RAISE FND_API.G_EXC_ERROR;
561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
563: END IF;
564: END IF;
565:
566: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','CREATE_REVISION',
581: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_REVISION_VUHK.CREATE_REVISION_PRE');
582:
583: END IF;
584:
585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
586: RAISE FND_API.G_EXC_ERROR;
587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: END IF;
582:
583: END IF;
584:
585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
586: RAISE FND_API.G_EXC_ERROR;
587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: END IF;
590:
583: END IF;
584:
585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
586: RAISE FND_API.G_EXC_ERROR;
587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: END IF;
590:
591:
584:
585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
586: RAISE FND_API.G_EXC_ERROR;
587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
589: END IF;
590:
591:
592:
617: l_msg_count := FND_MSG_PUB.count_msg;
618:
619: IF l_msg_count > 0 THEN
620: X_msg_count := l_msg_count;
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
622: THEN
623: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625: ELSE
619: IF l_msg_count > 0 THEN
620: X_msg_count := l_msg_count;
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
622: THEN
623: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625: ELSE
626: X_return_status := FND_API.G_RET_STS_ERROR;
627: RAISE FND_API.G_EXC_ERROR;
620: X_msg_count := l_msg_count;
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
622: THEN
623: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625: ELSE
626: X_return_status := FND_API.G_RET_STS_ERROR;
627: RAISE FND_API.G_EXC_ERROR;
628: END IF;
622: THEN
623: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625: ELSE
626: X_return_status := FND_API.G_RET_STS_ERROR;
627: RAISE FND_API.G_EXC_ERROR;
628: END IF;
629: ELSE
630: FOR i IN 1..l_revision_tbl.COUNT
623: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625: ELSE
626: X_return_status := FND_API.G_RET_STS_ERROR;
627: RAISE FND_API.G_EXC_ERROR;
628: END IF;
629: ELSE
630: FOR i IN 1..l_revision_tbl.COUNT
631: LOOP
662: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_REVISION_VUHK.CREATE_REVISION_POST');
663:
664: END IF;
665:
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
663:
664: END IF;
665:
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671:
664: END IF;
665:
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671:
672: END IF;
665:
666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
667: RAISE FND_API.G_EXC_ERROR;
668: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
670: END IF;
671:
672: END IF;
673:
690: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_REVISION_CUHK.CREATE_REVISION_POST');
691:
692: END IF;
693:
694: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
698: END IF;
691:
692: END IF;
693:
694: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
698: END IF;
699:
692: END IF;
693:
694: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
698: END IF;
699:
700: END IF;
693:
694: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
698: END IF;
699:
700: END IF;
701:
707:
708:
709:
710: -- Standard check of p_commit.
711: IF FND_API.TO_BOOLEAN(p_commit) THEN
712: COMMIT;
713: END IF;
714: -- Debug info
715: IF G_DEBUG='Y' THEN
723: END IF;
724:
725: x_msg_data := 'tHIS IS A cHECK'||TO_CHAR(p_x_revision_tbl(1).approved_by_party_id);
726: EXCEPTION
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728: ROLLBACK TO create_revision;
729: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
731: p_count => x_msg_count,
725: x_msg_data := 'tHIS IS A cHECK'||TO_CHAR(p_x_revision_tbl(1).approved_by_party_id);
726: EXCEPTION
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728: ROLLBACK TO create_revision;
729: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
731: p_count => x_msg_count,
732: p_data => x_msg_data);
733: IF G_DEBUG='Y' THEN
726: EXCEPTION
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728: ROLLBACK TO create_revision;
729: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
731: p_count => x_msg_count,
732: p_data => x_msg_data);
733: IF G_DEBUG='Y' THEN
734: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
739: AHL_DEBUG_PUB.disable_debug;
740:
741: END IF;
742:
743: WHEN FND_API.G_EXC_ERROR THEN
744: ROLLBACK TO create_revision;
745: X_return_status := FND_API.G_RET_STS_ERROR;
746: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
747: p_count => x_msg_count,
741: END IF;
742:
743: WHEN FND_API.G_EXC_ERROR THEN
744: ROLLBACK TO create_revision;
745: X_return_status := FND_API.G_RET_STS_ERROR;
746: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
747: p_count => x_msg_count,
748: p_data => X_msg_data);
749: -- Debug info.
742:
743: WHEN FND_API.G_EXC_ERROR THEN
744: ROLLBACK TO create_revision;
745: X_return_status := FND_API.G_RET_STS_ERROR;
746: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
747: p_count => x_msg_count,
748: p_data => X_msg_data);
749: -- Debug info.
750: IF G_DEBUG='Y' THEN
759:
760:
761: WHEN OTHERS THEN
762: ROLLBACK TO create_revision;
763: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
765: THEN
766: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
767: p_procedure_name => 'CREATE_REVISION',
766: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
767: p_procedure_name => 'CREATE_REVISION',
768: p_error_text => SUBSTR(SQLERRM,1,240));
769: END IF;
770: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
771: p_count => x_msg_count,
772: p_data => X_msg_data);
773: -- Debug info.
774: IF G_DEBUG='Y' THEN
789:
790: PROCEDURE MODIFY_REVISION
791: (
792: p_api_version IN NUMBER := 1.0 ,
793: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
794: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
795: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
796: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
797: p_x_revision_tbl IN OUT NOCOPY revision_tbl ,
790: PROCEDURE MODIFY_REVISION
791: (
792: p_api_version IN NUMBER := 1.0 ,
793: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
794: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
795: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
796: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
797: p_x_revision_tbl IN OUT NOCOPY revision_tbl ,
798: p_module_type IN VARCHAR2,
791: (
792: p_api_version IN NUMBER := 1.0 ,
793: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
794: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
795: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
796: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
797: p_x_revision_tbl IN OUT NOCOPY revision_tbl ,
798: p_module_type IN VARCHAR2,
799: x_return_status OUT NOCOPY VARCHAR2 ,
792: p_api_version IN NUMBER := 1.0 ,
793: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
794: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
795: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
796: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
797: p_x_revision_tbl IN OUT NOCOPY revision_tbl ,
798: p_module_type IN VARCHAR2,
799: x_return_status OUT NOCOPY VARCHAR2 ,
800: x_msg_count OUT NOCOPY NUMBER ,
875: l_media_type_code VARCHAR2(30);
876: l_revision_status_code VARCHAR2(30);
877: l_approved_by_party_id NUMBER;
878: l_revision_tbl AHL_DI_DOC_REVISION_PVT.revision_tbl;
879: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;
880: l_sysdate DATE;
881: l_current_revision_date DATE;
882: l_current_effective_date DATE;
883: --pekambar Enigma Phase II changes -- start
901:
902: END IF;
903: END IF;
904: -- Standard call to check for call compatibility.
905: IF FND_API.to_boolean(l_init_msg_list)
906: THEN
907: FND_MSG_PUB.initialize;
908: END IF;
909: -- Initialize API return status to success
908: END IF;
909: -- Initialize API return status to success
910: x_return_status := 'S';
911: -- Initialize message list if p_init_msg_list is set to TRUE.
912: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
913: p_api_version,
914: l_api_name,G_PKG_NAME)
915: THEN
916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
913: p_api_version,
914: l_api_name,G_PKG_NAME)
915: THEN
916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
917: END IF;
918: --Start API Body
919: IF p_x_revision_tbl.COUNT > 0
920: THEN
1080: --validations put for enhancements
1081: -- Enhancement no #2027019: pbarman : April 2003
1082: --if rev date is null then rev date = sysdate.
1083:
1084: IF p_x_revision_tbl(i).revision_date IS NULL OR p_x_revision_tbl(i).revision_date = FND_API.G_MISS_DATE
1085: THEN
1086: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVDT_NULL');
1087: FND_MSG_PUB.ADD;
1088: ELSE
1263: l_msg_count := FND_MSG_PUB.count_msg;
1264:
1265: IF l_msg_count > 0 THEN
1266: X_msg_count := l_msg_count;
1267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1268: THEN
1269: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: ELSE
1265: IF l_msg_count > 0 THEN
1266: X_msg_count := l_msg_count;
1267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1268: THEN
1269: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: ELSE
1272: X_return_status := FND_API.G_RET_STS_ERROR;
1273: RAISE FND_API.G_EXC_ERROR;
1266: X_msg_count := l_msg_count;
1267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1268: THEN
1269: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: ELSE
1272: X_return_status := FND_API.G_RET_STS_ERROR;
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1268: THEN
1269: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: ELSE
1272: X_return_status := FND_API.G_RET_STS_ERROR;
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1275: END IF;
1276: END LOOP;
1269: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1271: ELSE
1272: X_return_status := FND_API.G_RET_STS_ERROR;
1273: RAISE FND_API.G_EXC_ERROR;
1274: END IF;
1275: END IF;
1276: END LOOP;
1277: END IF;
1307: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_REVISION_CUHK.MODIFY_REVISION_PRE');
1308:
1309: END IF;
1310:
1311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1312: RAISE FND_API.G_EXC_ERROR;
1313: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: END IF;
1308:
1309: END IF;
1310:
1311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1312: RAISE FND_API.G_EXC_ERROR;
1313: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: END IF;
1316: END IF;
1309: END IF;
1310:
1311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1312: RAISE FND_API.G_EXC_ERROR;
1313: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: END IF;
1316: END IF;
1317:
1310:
1311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1312: RAISE FND_API.G_EXC_ERROR;
1313: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1315: END IF;
1316: END IF;
1317:
1318: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_DOC_REVISION_PUB','MODIFY_REVISION',
1329: X_MSG_COUNT => l_msg_count ,
1330: X_MSG_DATA => l_msg_data );
1331:
1332:
1333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1334: RAISE FND_API.G_EXC_ERROR;
1335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1337: END IF;
1330: X_MSG_DATA => l_msg_data );
1331:
1332:
1333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1334: RAISE FND_API.G_EXC_ERROR;
1335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1337: END IF;
1338: IF G_DEBUG='Y' THEN
1331:
1332:
1333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1334: RAISE FND_API.G_EXC_ERROR;
1335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1337: END IF;
1338: IF G_DEBUG='Y' THEN
1339: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_REVISION_VUHK.MODIFY_REVISION_PRE');
1332:
1333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1334: RAISE FND_API.G_EXC_ERROR;
1335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1337: END IF;
1338: IF G_DEBUG='Y' THEN
1339: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_REVISION_VUHK.MODIFY_REVISION_PRE');
1340:
1364: l_msg_count := FND_MSG_PUB.count_msg;
1365:
1366: IF l_msg_count > 0 THEN
1367: X_msg_count := l_msg_count;
1368: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1369: THEN
1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1372: ELSE
1366: IF l_msg_count > 0 THEN
1367: X_msg_count := l_msg_count;
1368: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1369: THEN
1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1372: ELSE
1373: X_return_status := FND_API.G_RET_STS_ERROR;
1374: RAISE FND_API.G_EXC_ERROR;
1367: X_msg_count := l_msg_count;
1368: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1369: THEN
1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1372: ELSE
1373: X_return_status := FND_API.G_RET_STS_ERROR;
1374: RAISE FND_API.G_EXC_ERROR;
1375: END IF;
1369: THEN
1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1372: ELSE
1373: X_return_status := FND_API.G_RET_STS_ERROR;
1374: RAISE FND_API.G_EXC_ERROR;
1375: END IF;
1376: END IF;
1377:
1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1372: ELSE
1373: X_return_status := FND_API.G_RET_STS_ERROR;
1374: RAISE FND_API.G_EXC_ERROR;
1375: END IF;
1376: END IF;
1377:
1378:
1405: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_REVISION_VUHK.MODIFY_REVISION_POST');
1406:
1407: END IF;
1408:
1409: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1410: RAISE FND_API.G_EXC_ERROR;
1411: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: END IF;
1406:
1407: END IF;
1408:
1409: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1410: RAISE FND_API.G_EXC_ERROR;
1411: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: END IF;
1414:
1407: END IF;
1408:
1409: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1410: RAISE FND_API.G_EXC_ERROR;
1411: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: END IF;
1414:
1415:
1408:
1409: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1410: RAISE FND_API.G_EXC_ERROR;
1411: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: END IF;
1414:
1415:
1416: END IF;
1433: AHL_DEBUG_PUB.debug( 'End AHL_DI_DOC_REVISION_CUHK.MODIFY_REVISION_POST');
1434:
1435: END IF;
1436:
1437: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1438: RAISE FND_API.G_EXC_ERROR;
1439: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1441: END IF;
1434:
1435: END IF;
1436:
1437: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1438: RAISE FND_API.G_EXC_ERROR;
1439: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1441: END IF;
1442:
1435: END IF;
1436:
1437: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1438: RAISE FND_API.G_EXC_ERROR;
1439: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1441: END IF;
1442:
1443: END IF;
1436:
1437: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1438: RAISE FND_API.G_EXC_ERROR;
1439: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1441: END IF;
1442:
1443: END IF;
1444:
1449:
1450:
1451:
1452: -- Standard check of p_commit.
1453: IF FND_API.TO_BOOLEAN(p_commit) THEN
1454: COMMIT;
1455: END IF;
1456: -- Debug info
1457: IF G_DEBUG='Y' THEN
1466:
1467: x_msg_data := 'tHIS IS A cHECK'||TO_CHAR(p_x_revision_tbl(1).approved_by_party_id);
1468:
1469: EXCEPTION
1470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1471: ROLLBACK TO modify_revision;
1472: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1473: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1474: p_count => x_msg_count,
1468:
1469: EXCEPTION
1470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1471: ROLLBACK TO modify_revision;
1472: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1473: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1474: p_count => x_msg_count,
1475: p_data => x_msg_data);
1476: IF G_DEBUG='Y' THEN
1469: EXCEPTION
1470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1471: ROLLBACK TO modify_revision;
1472: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1473: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1474: p_count => x_msg_count,
1475: p_data => x_msg_data);
1476: IF G_DEBUG='Y' THEN
1477: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
1481: AHL_DEBUG_PUB.disable_debug;
1482:
1483: END IF;
1484:
1485: WHEN FND_API.G_EXC_ERROR THEN
1486: ROLLBACK TO modify_revision;
1487: X_return_status := FND_API.G_RET_STS_ERROR;
1488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1489: p_count => x_msg_count,
1483: END IF;
1484:
1485: WHEN FND_API.G_EXC_ERROR THEN
1486: ROLLBACK TO modify_revision;
1487: X_return_status := FND_API.G_RET_STS_ERROR;
1488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1489: p_count => x_msg_count,
1490: p_data => X_msg_data);
1491: -- Debug info.
1484:
1485: WHEN FND_API.G_EXC_ERROR THEN
1486: ROLLBACK TO modify_revision;
1487: X_return_status := FND_API.G_RET_STS_ERROR;
1488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1489: p_count => x_msg_count,
1490: p_data => X_msg_data);
1491: -- Debug info.
1492: IF G_DEBUG='Y' THEN
1500: END IF;
1501:
1502: WHEN OTHERS THEN
1503: ROLLBACK TO modify_revision;
1504: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1505: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1506: THEN
1507: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
1508: p_procedure_name => 'MODIFY_REVISION',
1507: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
1508: p_procedure_name => 'MODIFY_REVISION',
1509: p_error_text => SUBSTR(SQLERRM,1,240));
1510: END IF;
1511: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1512: p_count => x_msg_count,
1513: p_data => X_msg_data);
1514:
1515: -- Debug info.