DBA Data[Home] [Help]

APPS.AHL_DI_DOC_REVISION_PUB dependencies on FND_API

Line 42: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

Line 45: x_return_status := FND_API.G_RET_STS_ERROR;

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;

Line 47: x_return_status := FND_API.G_RET_STS_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;

Line 49: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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 */

Line 61: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

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 ,

Line 62: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

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 ,

Line 63: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

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 ,

Line 64: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

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 ,

Line 141: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;

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);

Line 165: IF FND_API.to_boolean(l_init_msg_list)

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

Line 172: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

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;

Line 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

Line 513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

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

Line 515: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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;

Line 516: RAISE FND_API.G_EXC_UNEXPECTED_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;

Line 518: X_return_status := FND_API.G_RET_STS_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;
521: END IF;
522: END LOOP;

Line 519: RAISE FND_API.G_EXC_ERROR;

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;

Line 559: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

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;

Line 560: RAISE FND_API.G_EXC_ERROR;

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;

Line 561: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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:

Line 562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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',

Line 585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

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;

Line 586: RAISE FND_API.G_EXC_ERROR;

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:

Line 587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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:

Line 588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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:

Line 621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

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

Line 623: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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;

Line 624: RAISE FND_API.G_EXC_UNEXPECTED_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;

Line 626: X_return_status := FND_API.G_RET_STS_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;
629: ELSE
630: FOR i IN 1..l_revision_tbl.COUNT

Line 627: RAISE FND_API.G_EXC_ERROR;

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

Line 666: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

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;

Line 667: RAISE FND_API.G_EXC_ERROR;

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:

Line 668: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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;

Line 669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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:

Line 694: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

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;

Line 695: RAISE FND_API.G_EXC_ERROR;

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:

Line 696: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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;

Line 697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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:

Line 711: IF FND_API.TO_BOOLEAN(p_commit) THEN

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

Line 727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR 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,

Line 729: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

Line 730: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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' );

Line 743: WHEN FND_API.G_EXC_ERROR THEN

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,

Line 745: X_return_status := FND_API.G_RET_STS_ERROR;

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.

Line 746: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

Line 763: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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',

Line 770: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

Line 793: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,

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 ,

Line 794: p_commit IN VARCHAR2 := FND_API.G_FALSE ,

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,

Line 795: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,

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 ,

Line 796: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

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 ,

Line 879: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;

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

Line 905: IF FND_API.to_boolean(l_init_msg_list)

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

Line 912: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

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;

Line 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

Line 1084: IF p_x_revision_tbl(i).revision_date IS NULL OR p_x_revision_tbl(i).revision_date = FND_API.G_MISS_DATE

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

Line 1267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

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

Line 1269: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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;

Line 1270: RAISE FND_API.G_EXC_UNEXPECTED_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;

Line 1272: X_return_status := FND_API.G_RET_STS_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;
1275: END IF;
1276: END LOOP;

Line 1273: RAISE FND_API.G_EXC_ERROR;

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;

Line 1311: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

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;

Line 1312: RAISE FND_API.G_EXC_ERROR;

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;

Line 1313: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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:

Line 1314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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',

Line 1333: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

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;

Line 1334: RAISE FND_API.G_EXC_ERROR;

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

Line 1335: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR 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');

Line 1336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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:

Line 1368: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

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

Line 1370: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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;

Line 1371: RAISE FND_API.G_EXC_UNEXPECTED_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;

Line 1373: X_return_status := FND_API.G_RET_STS_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;
1376: END IF;
1377:

Line 1374: RAISE FND_API.G_EXC_ERROR;

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:

Line 1409: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

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;

Line 1410: RAISE FND_API.G_EXC_ERROR;

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:

Line 1411: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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:

Line 1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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;

Line 1437: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

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;

Line 1438: RAISE FND_API.G_EXC_ERROR;

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:

Line 1439: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

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;

Line 1440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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:

Line 1453: IF FND_API.TO_BOOLEAN(p_commit) THEN

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

Line 1470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR 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,

Line 1472: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

Line 1473: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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' );

Line 1485: WHEN FND_API.G_EXC_ERROR THEN

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,

Line 1487: X_return_status := FND_API.G_RET_STS_ERROR;

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.

Line 1488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

Line 1504: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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',

Line 1511: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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.