9: /* new record as well before modification */
10: /* takes place */
11: /*---------------------------------------------------------*/
12:
13: G_DEBUG VARCHAR2(1):=AHL_DEBUG_PUB.is_log_enabled;
14: PROCEDURE VALIDATE_REVISION
15: (
16: P_DOC_REVISION_ID IN NUMBER ,
17: P_DOCUMENT_ID IN NUMBER ,
379: -- Standard Start of API savepoint
380: SAVEPOINT create_revision;
381: -- Check if API is called in debug mode. If yes, enable debug.
382: IF G_DEBUG='Y' THEN
383: AHL_DEBUG_PUB.enable_debug;
384:
385: END IF;
386: -- Debug info.
387: IF G_DEBUG='Y' THEN
385: END IF;
386: -- Debug info.
387: IF G_DEBUG='Y' THEN
388: IF G_DEBUG='Y' THEN
389: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_revision_pvt.Create Revision','+REV+');
390:
391: END IF;
392: END IF;
393: -- Standard call to check for call compatibility.
537: COMMIT;
538: END IF;
539: -- Debug info
540: IF G_DEBUG='Y' THEN
541: AHL_DEBUG_PUB.debug( 'End of private api Create Revision','+REV+');
542:
543: END IF;
544: -- Check if API is called in debug mode. If yes, disable debug.
545: IF G_DEBUG='Y' THEN
542:
543: END IF;
544: -- Check if API is called in debug mode. If yes, disable debug.
545: IF G_DEBUG='Y' THEN
546: AHL_DEBUG_PUB.disable_debug;
547:
548: END IF;
549:
550: EXCEPTION
555: p_count => x_msg_count,
556: p_data => x_msg_data);
557: --Debug Info
558: IF G_DEBUG='Y' THEN
559: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
560: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
561:
562:
563: -- Check if API is called in debug mode. If yes, disable debug.
556: p_data => x_msg_data);
557: --Debug Info
558: IF G_DEBUG='Y' THEN
559: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
560: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
561:
562:
563: -- Check if API is called in debug mode. If yes, disable debug.
564: AHL_DEBUG_PUB.disable_debug;
560: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
561:
562:
563: -- Check if API is called in debug mode. If yes, disable debug.
564: AHL_DEBUG_PUB.disable_debug;
565:
566: END IF;
567:
568: WHEN FND_API.G_EXC_ERROR THEN
572: p_count => x_msg_count,
573: p_data => X_msg_data);
574: -- Debug info.
575: IF G_DEBUG='Y' THEN
576: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
577: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
578:
579:
580: -- Check if API is called in debug mode. If yes, disable debug.
573: p_data => X_msg_data);
574: -- Debug info.
575: IF G_DEBUG='Y' THEN
576: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
577: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
578:
579:
580: -- Check if API is called in debug mode. If yes, disable debug.
581: AHL_DEBUG_PUB.disable_debug;
577: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
578:
579:
580: -- Check if API is called in debug mode. If yes, disable debug.
581: AHL_DEBUG_PUB.disable_debug;
582:
583: END IF;
584:
585: WHEN OTHERS THEN
595: p_count => x_msg_count,
596: p_data => X_msg_data);
597: -- Debug info.
598: IF G_DEBUG='Y' THEN
599: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
600: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
601:
602: -- Check if API is called in debug mode. If yes, disable debug.
603: AHL_DEBUG_PUB.disable_debug;
596: p_data => X_msg_data);
597: -- Debug info.
598: IF G_DEBUG='Y' THEN
599: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
600: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
601:
602: -- Check if API is called in debug mode. If yes, disable debug.
603: AHL_DEBUG_PUB.disable_debug;
604:
599: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
600: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
601:
602: -- Check if API is called in debug mode. If yes, disable debug.
603: AHL_DEBUG_PUB.disable_debug;
604:
605: END IF;
606:
607: END CREATE_REVISION;
687: -- Standard Start of API savepoint
688: SAVEPOINT modify_revision;
689: -- Check if API is called in debug mode. If yes, enable debug.
690: IF G_DEBUG='Y' THEN
691: AHL_DEBUG_PUB.enable_debug;
692:
693: END IF;
694: -- Debug info.
695: IF G_DEBUG='Y' THEN
693: END IF;
694: -- Debug info.
695: IF G_DEBUG='Y' THEN
696: IF G_DEBUG='Y' THEN
697: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_revision_pvt.Modify Revision','+REV+');
698:
699: END IF;
700: END IF;
701: -- Standard call to check for call compatibility.
864: COMMIT;
865: END IF;
866: -- Debug info
867: IF G_DEBUG='Y' THEN
868: AHL_DEBUG_PUB.debug( 'End of private api Modify Revision','+REV+');
869:
870: END IF;
871: -- Check if API is called in debug mode. If yes, disable debug.
872: IF G_DEBUG='Y' THEN
869:
870: END IF;
871: -- Check if API is called in debug mode. If yes, disable debug.
872: IF G_DEBUG='Y' THEN
873: AHL_DEBUG_PUB.disable_debug;
874:
875: END IF;
876: EXCEPTION
877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
881: p_count => x_msg_count,
882: p_data => x_msg_data);
883:
884: IF G_DEBUG='Y' THEN
885: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
886: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
887:
888:
889: -- Check if API is called in debug mode. If yes, disable debug.
882: p_data => x_msg_data);
883:
884: IF G_DEBUG='Y' THEN
885: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
886: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
887:
888:
889: -- Check if API is called in debug mode. If yes, disable debug.
890: AHL_DEBUG_PUB.disable_debug;
886: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
887:
888:
889: -- Check if API is called in debug mode. If yes, disable debug.
890: AHL_DEBUG_PUB.disable_debug;
891:
892: END IF;
893:
894: WHEN FND_API.G_EXC_ERROR THEN
898: p_count => x_msg_count,
899: p_data => X_msg_data);
900: -- Debug info.
901: IF G_DEBUG='Y' THEN
902: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
903: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
904:
905:
906: -- Check if API is called in debug mode. If yes, disable debug.
899: p_data => X_msg_data);
900: -- Debug info.
901: IF G_DEBUG='Y' THEN
902: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
903: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
904:
905:
906: -- Check if API is called in debug mode. If yes, disable debug.
907: AHL_DEBUG_PUB.disable_debug;
903: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
904:
905:
906: -- Check if API is called in debug mode. If yes, disable debug.
907: AHL_DEBUG_PUB.disable_debug;
908:
909: END IF;
910:
911: WHEN OTHERS THEN
922: p_data => X_msg_data);
923:
924: -- Debug info.
925: IF G_DEBUG='Y' THEN
926: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
927: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
928:
929:
930: -- Check if API is called in debug mode. If yes, disable debug.
923:
924: -- Debug info.
925: IF G_DEBUG='Y' THEN
926: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
927: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
928:
929:
930: -- Check if API is called in debug mode. If yes, disable debug.
931: AHL_DEBUG_PUB.disable_debug;
927: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
928:
929:
930: -- Check if API is called in debug mode. If yes, disable debug.
931: AHL_DEBUG_PUB.disable_debug;
932:
933: END IF;
934:
935: END MODIFY_REVISION;