eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AHL_DI_SUBSCRIPTION_PUB dependencies on FND_API

Line 45: x_return_status := FND_API.G_RET_STS_SUCCESS;

41: AND meaning = p_meaning
42: AND sysdate between start_date_active
43: AND nvl(end_date_active,sysdate);
44: END IF;
45: x_return_status := FND_API.G_RET_STS_SUCCESS;
46: EXCEPTION
47: WHEN no_data_found THEN
48: x_return_status := FND_API.G_RET_STS_ERROR;
49: WHEN too_many_rows THEN

Line 48: x_return_status := FND_API.G_RET_STS_ERROR;

44: END IF;
45: x_return_status := FND_API.G_RET_STS_SUCCESS;
46: EXCEPTION
47: WHEN no_data_found THEN
48: x_return_status := FND_API.G_RET_STS_ERROR;
49: WHEN too_many_rows THEN
50: x_return_status := FND_API.G_RET_STS_ERROR;
51: WHEN OTHERS THEN
52: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 50: x_return_status := FND_API.G_RET_STS_ERROR;

46: EXCEPTION
47: WHEN no_data_found THEN
48: x_return_status := FND_API.G_RET_STS_ERROR;
49: WHEN too_many_rows THEN
50: x_return_status := FND_API.G_RET_STS_ERROR;
51: WHEN OTHERS THEN
52: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
53: RAISE;
54: END;

Line 52: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

48: x_return_status := FND_API.G_RET_STS_ERROR;
49: WHEN too_many_rows THEN
50: x_return_status := FND_API.G_RET_STS_ERROR;
51: WHEN OTHERS THEN
52: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
53: RAISE;
54: END;
55: /*------------------------------------------------------*/
56: /* procedure name: create_subscription */

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

60: /*------------------------------------------------------*/
61: PROCEDURE CREATE_SUBSCRIPTION
62: (
63: p_api_version IN NUMBER := 1.0 ,
64: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
65: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
66: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
67: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
68: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,

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

61: PROCEDURE CREATE_SUBSCRIPTION
62: (
63: p_api_version IN NUMBER := 1.0 ,
64: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
65: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
66: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
67: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
68: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
69: p_module_type IN VARCHAR2 ,

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

62: (
63: p_api_version IN NUMBER := 1.0 ,
64: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
65: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
66: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
67: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
68: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
69: p_module_type IN VARCHAR2 ,
70: x_return_status OUT NOCOPY VARCHAR2 ,

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

63: p_api_version IN NUMBER := 1.0 ,
64: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
65: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
66: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
67: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
68: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
69: p_module_type IN VARCHAR2 ,
70: x_return_status OUT NOCOPY VARCHAR2 ,
71: x_msg_count OUT NOCOPY NUMBER ,

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

139: l_frequency_code VARCHAR2(30);
140: l_subscription_type_code VARCHAR2(30);
141: l_status_code VARCHAR2(30);
142: l_subscription_tbl AHL_DI_SUBSCRIPTION_PVT.subscription_tbl;
143: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;
144: -- Enhancement #2205830: pbarman april 2003
145: l_check_quantity NUMBER;
146: -- Enhancement #2525108: pbarman april 2003
147: l_purchase_order_no VARCHAR2(20);

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: --Start of API Body
179: IF p_x_subscription_tbl.count > 0
180: THEN

Line 463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

459: AHL_DEBUG_PUB.debug( 'End AHL_DI_SUBSCRIPTION_CUHK.CREATE_SUBSCRIPTION_Pre');
460:
461: END IF;
462:
463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
464: RAISE FND_API.G_EXC_ERROR;
465: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: END IF;

Line 464: RAISE FND_API.G_EXC_ERROR;

460:
461: END IF;
462:
463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
464: RAISE FND_API.G_EXC_ERROR;
465: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: END IF;
468: END IF;

Line 465: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

461: END IF;
462:
463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
464: RAISE FND_API.G_EXC_ERROR;
465: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: END IF;
468: END IF;
469:

Line 466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

462:
463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
464: RAISE FND_API.G_EXC_ERROR;
465: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: END IF;
468: END IF;
469:
470:

Line 488: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

484: AHL_DEBUG_PUB.debug( 'END AHL_DI_SUBSCRIPTION_VUHK.CREATE_SUBSCRIPTION_Pre');
485:
486: END IF;
487:
488: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
489: RAISE FND_API.G_EXC_ERROR;
490: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492: END IF;

Line 489: RAISE FND_API.G_EXC_ERROR;

485:
486: END IF;
487:
488: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
489: RAISE FND_API.G_EXC_ERROR;
490: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492: END IF;
493: END IF;

Line 490: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

486: END IF;
487:
488: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
489: RAISE FND_API.G_EXC_ERROR;
490: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492: END IF;
493: END IF;
494:

Line 491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

487:
488: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
489: RAISE FND_API.G_EXC_ERROR;
490: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
492: END IF;
493: END IF;
494:
495:

Line 504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

500: l_msg_count := FND_MSG_PUB.count_msg;
501:
502: IF l_msg_count > 0 THEN
503: X_msg_count := l_msg_count;
504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
505: THEN
506: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: ELSE

Line 506: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

502: IF l_msg_count > 0 THEN
503: X_msg_count := l_msg_count;
504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
505: THEN
506: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: ELSE
509: X_return_status := FND_API.G_RET_STS_ERROR;
510: RAISE FND_API.G_EXC_ERROR;

Line 507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

503: X_msg_count := l_msg_count;
504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
505: THEN
506: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: ELSE
509: X_return_status := FND_API.G_RET_STS_ERROR;
510: RAISE FND_API.G_EXC_ERROR;
511: END IF;

Line 509: X_return_status := FND_API.G_RET_STS_ERROR;

505: THEN
506: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: ELSE
509: X_return_status := FND_API.G_RET_STS_ERROR;
510: RAISE FND_API.G_EXC_ERROR;
511: END IF;
512: END IF;
513:

Line 510: RAISE FND_API.G_EXC_ERROR;

506: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: ELSE
509: X_return_status := FND_API.G_RET_STS_ERROR;
510: RAISE FND_API.G_EXC_ERROR;
511: END IF;
512: END IF;
513:
514:

Line 534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

530: l_msg_count := FND_MSG_PUB.count_msg;
531:
532: IF l_msg_count > 0 THEN
533: X_msg_count := l_msg_count;
534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
535: THEN
536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538: ELSE

Line 536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

532: IF l_msg_count > 0 THEN
533: X_msg_count := l_msg_count;
534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
535: THEN
536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538: ELSE
539: X_return_status := FND_API.G_RET_STS_ERROR;
540: RAISE FND_API.G_EXC_ERROR;

Line 537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

533: X_msg_count := l_msg_count;
534: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
535: THEN
536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538: ELSE
539: X_return_status := FND_API.G_RET_STS_ERROR;
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;

Line 539: X_return_status := FND_API.G_RET_STS_ERROR;

535: THEN
536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538: ELSE
539: X_return_status := FND_API.G_RET_STS_ERROR;
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;
542: ELSE
543: FOR i IN 1..l_subscription_tbl.COUNT

Line 540: RAISE FND_API.G_EXC_ERROR;

536: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
538: ELSE
539: X_return_status := FND_API.G_RET_STS_ERROR;
540: RAISE FND_API.G_EXC_ERROR;
541: END IF;
542: ELSE
543: FOR i IN 1..l_subscription_tbl.COUNT
544: LOOP

Line 578: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

574:
575: END IF;
576:
577:
578: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
579: RAISE FND_API.G_EXC_ERROR;
580: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;

Line 579: RAISE FND_API.G_EXC_ERROR;

575: END IF;
576:
577:
578: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
579: RAISE FND_API.G_EXC_ERROR;
580: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
583: END IF;

Line 580: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

576:
577:
578: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
579: RAISE FND_API.G_EXC_ERROR;
580: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
583: END IF;
584:

Line 581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

577:
578: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
579: RAISE FND_API.G_EXC_ERROR;
580: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
583: END IF;
584:
585: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_SUBSCRIPTION_PUB','CREATE_SUBSCRIPTION',

Line 602: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

598: AHL_DEBUG_PUB.debug( 'End AHL_DI_SUBSCRIPTION_CUHK.CREATE_SUBSCRIPTION_Post');
599:
600: END IF;
601:
602: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: END IF;

Line 603: RAISE FND_API.G_EXC_ERROR;

599:
600: END IF;
601:
602: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: END IF;
607: END IF;

Line 604: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

600: END IF;
601:
602: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: END IF;
607: END IF;
608:

Line 605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

601:
602: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: END IF;
607: END IF;
608:
609:

Line 617: IF FND_API.TO_BOOLEAN(p_commit) THEN

613:
614:
615:
616: -- Standard check of p_commit.
617: IF FND_API.TO_BOOLEAN(p_commit) THEN
618: COMMIT;
619: END IF;
620: -- Debug info
621: IF G_DEBUG='Y' THEN

Line 632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

628:
629: END IF;
630:
631: EXCEPTION
632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
633: ROLLBACK TO create_subscription;
634: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
636: p_count => x_msg_count,

Line 634: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

630:
631: EXCEPTION
632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
633: ROLLBACK TO create_subscription;
634: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
636: p_count => x_msg_count,
637: p_data => x_msg_data);
638: IF G_DEBUG='Y' THEN

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

631: EXCEPTION
632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
633: ROLLBACK TO create_subscription;
634: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
636: p_count => x_msg_count,
637: p_data => x_msg_data);
638: IF G_DEBUG='Y' THEN
639: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

Line 648: WHEN FND_API.G_EXC_ERROR THEN

644: AHL_DEBUG_PUB.disable_debug;
645:
646: END IF;
647:
648: WHEN FND_API.G_EXC_ERROR THEN
649: ROLLBACK TO create_subscription;
650: X_return_status := FND_API.G_RET_STS_ERROR;
651: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
652: p_count => x_msg_count,

Line 650: X_return_status := FND_API.G_RET_STS_ERROR;

646: END IF;
647:
648: WHEN FND_API.G_EXC_ERROR THEN
649: ROLLBACK TO create_subscription;
650: X_return_status := FND_API.G_RET_STS_ERROR;
651: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
652: p_count => x_msg_count,
653: p_data => X_msg_data);
654: -- Debug info.

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

647:
648: WHEN FND_API.G_EXC_ERROR THEN
649: ROLLBACK TO create_subscription;
650: X_return_status := FND_API.G_RET_STS_ERROR;
651: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
652: p_count => x_msg_count,
653: p_data => X_msg_data);
654: -- Debug info.
655: IF G_DEBUG='Y' THEN

Line 667: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

663: END IF;
664:
665: WHEN OTHERS THEN
666: ROLLBACK TO create_subscription;
667: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
668: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
669: THEN
670: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
671: p_procedure_name => 'CREATE_SUBSCRIPTION',

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

670: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
671: p_procedure_name => 'CREATE_SUBSCRIPTION',
672: p_error_text => SUBSTR(SQLERRM,1,240));
673: END IF;
674: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
675: p_count => x_msg_count,
676: p_data => X_msg_data);
677:
678: -- Debug info.

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

694: /*------------------------------------------------------ */
695: PROCEDURE MODIFY_SUBSCRIPTION
696: (
697: p_api_version IN NUMBER := 1.0 ,
698: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
699: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
700: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
702: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,

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

695: PROCEDURE MODIFY_SUBSCRIPTION
696: (
697: p_api_version IN NUMBER := 1.0 ,
698: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
699: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
700: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
702: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
703: p_module_type IN VARCHAR2 ,

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

696: (
697: p_api_version IN NUMBER := 1.0 ,
698: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
699: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
700: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
702: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
703: p_module_type IN VARCHAR2 ,
704: x_return_status OUT NOCOPY VARCHAR2 ,

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

697: p_api_version IN NUMBER := 1.0 ,
698: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
699: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
700: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
701: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
702: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
703: p_module_type IN VARCHAR2 ,
704: x_return_status OUT NOCOPY VARCHAR2 ,
705: x_msg_count OUT NOCOPY NUMBER ,

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

788: l_subscription_type_code VARCHAR2(30);
789: l_status_code VARCHAR2(30);
790: l_party_name VARCHAR2(80);
791: l_subscription_tbl AHL_DI_SUBSCRIPTION_PVT.subscription_tbl;
792: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;
793:
794: -- Enhancement #2205830: pbarman april 2003
795: l_check_quantity NUMBER;
796: -- Enhancement #2525108: pbarman april 2003

Line 815: IF FND_API.to_boolean(l_init_msg_list)

811:
812: END IF;
813: END IF;
814: -- Standard call to check for call compatibility.
815: IF FND_API.to_boolean(l_init_msg_list)
816: THEN
817: FND_MSG_PUB.initialize;
818: END IF;
819: -- Initialize API return status to success

Line 822: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

818: END IF;
819: -- Initialize API return status to success
820: x_return_status := 'S';
821: -- Initialize message list if p_init_msg_list is set to TRUE.
822: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
823: p_api_version,
824: l_api_name,G_PKG_NAME)
825: THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

822: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
823: p_api_version,
824: l_api_name,G_PKG_NAME)
825: THEN
826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
827: END IF;
828: --Start of API Body
829: IF p_x_subscription_tbl.count > 0
830: THEN

Line 1130: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1126: AHL_DEBUG_PUB.debug( 'End AHL_DI_SUBSCRIPTION_CUHK.MODIFY_SUBSCRIPTION_Pre');
1127:
1128: END IF;
1129:
1130: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1131: RAISE FND_API.G_EXC_ERROR;
1132: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1134: END IF;

Line 1131: RAISE FND_API.G_EXC_ERROR;

1127:
1128: END IF;
1129:
1130: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1131: RAISE FND_API.G_EXC_ERROR;
1132: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1134: END IF;
1135: END IF;

Line 1132: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1128: END IF;
1129:
1130: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1131: RAISE FND_API.G_EXC_ERROR;
1132: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1134: END IF;
1135: END IF;
1136:

Line 1133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1129:
1130: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1131: RAISE FND_API.G_EXC_ERROR;
1132: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1134: END IF;
1135: END IF;
1136:
1137: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_SUBSCRIPTION_PUB','MODIFY_SUBSCRIPTION',

Line 1155: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1151: AHL_DEBUG_PUB.debug( 'End AHL_DI_SUBSCRIPTION_VUHK.MODIFY_SUBSCRIPTION_Pre');
1152:
1153: END IF;
1154:
1155: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1159: END IF;

Line 1156: RAISE FND_API.G_EXC_ERROR;

1152:
1153: END IF;
1154:
1155: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1159: END IF;
1160: END IF;

Line 1157: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1153: END IF;
1154:
1155: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1159: END IF;
1160: END IF;
1161: /*---------------------------------------------------------*/

Line 1158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1154:
1155: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1159: END IF;
1160: END IF;
1161: /*---------------------------------------------------------*/
1162: /* End ; Date : Dec 20 2001 */

Line 1170: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

1166: l_msg_count := FND_MSG_PUB.count_msg;
1167: --
1168: IF l_msg_count > 0 THEN
1169: X_msg_count := l_msg_count;
1170: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1171: THEN
1172: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1174: ELSE

Line 1172: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1168: IF l_msg_count > 0 THEN
1169: X_msg_count := l_msg_count;
1170: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1171: THEN
1172: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1174: ELSE
1175: X_return_status := FND_API.G_RET_STS_ERROR;
1176: RAISE FND_API.G_EXC_ERROR;

Line 1173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1169: X_msg_count := l_msg_count;
1170: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1171: THEN
1172: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1174: ELSE
1175: X_return_status := FND_API.G_RET_STS_ERROR;
1176: RAISE FND_API.G_EXC_ERROR;
1177: END IF;

Line 1175: X_return_status := FND_API.G_RET_STS_ERROR;

1171: THEN
1172: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1174: ELSE
1175: X_return_status := FND_API.G_RET_STS_ERROR;
1176: RAISE FND_API.G_EXC_ERROR;
1177: END IF;
1178: END IF;
1179:

Line 1176: RAISE FND_API.G_EXC_ERROR;

1172: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1174: ELSE
1175: X_return_status := FND_API.G_RET_STS_ERROR;
1176: RAISE FND_API.G_EXC_ERROR;
1177: END IF;
1178: END IF;
1179:
1180:

Line 1188: p_commit => FND_API.G_FALSE ,

1184: p_api_version => 1.0 ,
1185: p_init_msg_list => l_init_msg_list ,
1186: -- Modified pjha 15-May-2002 for modifying 'subscribed to' Begin
1187: --p_commit => p_commit ,
1188: p_commit => FND_API.G_FALSE ,
1189: -- Modified pjha 15-May-2002 for modifying 'subscribed to' End
1190: p_validate_only => p_validate_only ,
1191: p_validation_level => p_validation_level ,
1192: p_x_subscription_tbl => l_subscription_tbl ,

Line 1203: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

1199: l_msg_count := FND_MSG_PUB.count_msg;
1200: --
1201: IF l_msg_count > 0 THEN
1202: X_msg_count := l_msg_count;
1203: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1204: THEN
1205: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSE

Line 1205: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1201: IF l_msg_count > 0 THEN
1202: X_msg_count := l_msg_count;
1203: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1204: THEN
1205: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSE
1208: X_return_status := FND_API.G_RET_STS_ERROR;
1209: RAISE FND_API.G_EXC_ERROR;

Line 1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1202: X_msg_count := l_msg_count;
1203: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1204: THEN
1205: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSE
1208: X_return_status := FND_API.G_RET_STS_ERROR;
1209: RAISE FND_API.G_EXC_ERROR;
1210: END IF;

Line 1208: X_return_status := FND_API.G_RET_STS_ERROR;

1204: THEN
1205: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSE
1208: X_return_status := FND_API.G_RET_STS_ERROR;
1209: RAISE FND_API.G_EXC_ERROR;
1210: END IF;
1211: END IF;
1212:

Line 1209: RAISE FND_API.G_EXC_ERROR;

1205: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1207: ELSE
1208: X_return_status := FND_API.G_RET_STS_ERROR;
1209: RAISE FND_API.G_EXC_ERROR;
1210: END IF;
1211: END IF;
1212:
1213: /*------------------------------------------------------------------------*/

Line 1239: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1235: AHL_DEBUG_PUB.debug( 'End AHL_DI_SUBSCRIPTION_VUHK.MODIFY_SUBSCRIPTION_Post');
1236:
1237: END IF;
1238:
1239: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;

Line 1240: RAISE FND_API.G_EXC_ERROR;

1236:
1237: END IF;
1238:
1239: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244: END IF;

Line 1241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1237: END IF;
1238:
1239: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244: END IF;
1245:

Line 1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1238:
1239: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244: END IF;
1245:
1246: IF JTF_USR_HKS.Ok_to_Execute( 'AHL_DI_SUBSCRIPTION_PUB','MODIFY_SUBSCRIPTION',

Line 1263: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

1259: AHL_DEBUG_PUB.debug( 'End AHL_DI_SUBSCRIPTION_CUHK.MODIFY_SUBSCRIPTION_Post');
1260:
1261: END IF;
1262:
1263: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1264: RAISE FND_API.G_EXC_ERROR;
1265: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1267: END IF;

Line 1264: RAISE FND_API.G_EXC_ERROR;

1260:
1261: END IF;
1262:
1263: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1264: RAISE FND_API.G_EXC_ERROR;
1265: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1267: END IF;
1268: END IF;

Line 1265: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1261: END IF;
1262:
1263: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1264: RAISE FND_API.G_EXC_ERROR;
1265: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1267: END IF;
1268: END IF;
1269:

Line 1266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1262:
1263: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1264: RAISE FND_API.G_EXC_ERROR;
1265: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1267: END IF;
1268: END IF;
1269:
1270:

Line 1277: IF FND_API.TO_BOOLEAN(p_commit) THEN

1273: /* End ; Date : Dec 20 2001 */
1274: /*---------------------------------------------------------*/
1275:
1276: -- Standard check of p_commit.
1277: IF FND_API.TO_BOOLEAN(p_commit) THEN
1278: COMMIT;
1279: END IF;
1280:
1281:

Line 1294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1290:
1291: END IF;
1292:
1293: EXCEPTION
1294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1295: ROLLBACK TO modify_subscription;
1296: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1298: p_count => x_msg_count,

Line 1296: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1292:
1293: EXCEPTION
1294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1295: ROLLBACK TO modify_subscription;
1296: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1298: p_count => x_msg_count,
1299: p_data => x_msg_data);
1300: IF G_DEBUG='Y' THEN

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

1293: EXCEPTION
1294: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1295: ROLLBACK TO modify_subscription;
1296: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1297: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1298: p_count => x_msg_count,
1299: p_data => x_msg_data);
1300: IF G_DEBUG='Y' THEN
1301: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

Line 1310: WHEN FND_API.G_EXC_ERROR THEN

1306: AHL_DEBUG_PUB.disable_debug;
1307:
1308: END IF;
1309:
1310: WHEN FND_API.G_EXC_ERROR THEN
1311: ROLLBACK TO modify_subscription;
1312: X_return_status := FND_API.G_RET_STS_ERROR;
1313: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1314: p_count => x_msg_count,

Line 1312: X_return_status := FND_API.G_RET_STS_ERROR;

1308: END IF;
1309:
1310: WHEN FND_API.G_EXC_ERROR THEN
1311: ROLLBACK TO modify_subscription;
1312: X_return_status := FND_API.G_RET_STS_ERROR;
1313: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1314: p_count => x_msg_count,
1315: p_data => X_msg_data);
1316: -- Debug info.

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

1309:
1310: WHEN FND_API.G_EXC_ERROR THEN
1311: ROLLBACK TO modify_subscription;
1312: X_return_status := FND_API.G_RET_STS_ERROR;
1313: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1314: p_count => x_msg_count,
1315: p_data => X_msg_data);
1316: -- Debug info.
1317: IF G_DEBUG='Y' THEN

Line 1329: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1325: END IF;
1326:
1327: WHEN OTHERS THEN
1328: ROLLBACK TO modify_subscription;
1329: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1330: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1331: THEN
1332: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
1333: p_procedure_name => 'MODIFY_SUBSCRIPTION',

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

1332: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PUB',
1333: p_procedure_name => 'MODIFY_SUBSCRIPTION',
1334: p_error_text => SUBSTR(SQLERRM,1,240));
1335: END IF;
1336: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1337: p_count => x_msg_count,
1338: p_data => X_msg_data);
1339:
1340: -- Debug info.