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_PVT dependencies on FND_API

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

492:
493: PROCEDURE CREATE_SUBSCRIPTION
494: (
495: p_api_version IN NUMBER := 1.0 ,
496: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
497: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
498: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
499: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
500: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,

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

493: PROCEDURE CREATE_SUBSCRIPTION
494: (
495: p_api_version IN NUMBER := 1.0 ,
496: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
497: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
498: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
499: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
500: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
501: x_return_status OUT NOCOPY VARCHAR2 ,

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

494: (
495: p_api_version IN NUMBER := 1.0 ,
496: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
497: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
498: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
499: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
500: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
501: x_return_status OUT NOCOPY VARCHAR2 ,
502: x_msg_count OUT NOCOPY NUMBER ,

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

495: p_api_version IN NUMBER := 1.0 ,
496: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
497: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
498: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
499: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
500: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
501: x_return_status OUT NOCOPY VARCHAR2 ,
502: x_msg_count OUT NOCOPY NUMBER ,
503: x_msg_data OUT NOCOPY VARCHAR2

Line 534: IF FND_API.to_boolean(p_init_msg_list)

530:
531: END IF;
532: END IF;
533: -- Standard call to check for call compatibility.
534: IF FND_API.to_boolean(p_init_msg_list)
535: THEN
536: FND_MSG_PUB.initialize;
537: END IF;
538: -- Initialize API return status to success

Line 539: x_return_status := FND_API.G_RET_STS_SUCCESS;

535: THEN
536: FND_MSG_PUB.initialize;
537: END IF;
538: -- Initialize API return status to success
539: x_return_status := FND_API.G_RET_STS_SUCCESS;
540: -- Initialize message list if p_init_msg_list is set to TRUE.
541: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
542: p_api_version,
543: l_api_name,G_PKG_NAME)

Line 541: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

537: END IF;
538: -- Initialize API return status to success
539: x_return_status := FND_API.G_RET_STS_SUCCESS;
540: -- Initialize message list if p_init_msg_list is set to TRUE.
541: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
542: p_api_version,
543: l_api_name,G_PKG_NAME)
544: THEN
545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

541: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
542: p_api_version,
543: l_api_name,G_PKG_NAME)
544: THEN
545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
546: END IF;
547: --Start API Body
548: IF p_x_subscription_tbl.COUNT > 0
549: THEN

Line 574: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

570: l_msg_count := FND_MSG_PUB.count_msg;
571:
572: IF l_msg_count > 0 THEN
573: X_msg_count := l_msg_count;
574: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
577:
578: FOR i IN p_x_subscription_tbl.FIRST..p_x_subscription_tbl.LAST

Line 575: RAISE FND_API.G_EXC_ERROR;

571:
572: IF l_msg_count > 0 THEN
573: X_msg_count := l_msg_count;
574: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
577:
578: FOR i IN p_x_subscription_tbl.FIRST..p_x_subscription_tbl.LAST
579: LOOP

Line 797: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

793: --
794: l_msg_count := FND_MSG_PUB.count_msg;
795: IF l_msg_count > 0 THEN
796: X_msg_count := l_msg_count;
797: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: RAISE FND_API.G_EXC_ERROR;
799: END IF;
800: END IF;
801: END LOOP;

Line 798: RAISE FND_API.G_EXC_ERROR;

794: l_msg_count := FND_MSG_PUB.count_msg;
795: IF l_msg_count > 0 THEN
796: X_msg_count := l_msg_count;
797: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798: RAISE FND_API.G_EXC_ERROR;
799: END IF;
800: END IF;
801: END LOOP;
802: END IF;

Line 804: IF FND_API.TO_BOOLEAN(p_commit) THEN

800: END IF;
801: END LOOP;
802: END IF;
803: -- Standard check of p_commit.
804: IF FND_API.TO_BOOLEAN(p_commit) THEN
805: COMMIT;
806: END IF;
807: -- Debug info
808: IF G_DEBUG='Y' THEN

Line 819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

815:
816: END IF;
817:
818: EXCEPTION
819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
820: ROLLBACK TO create_subscription;
821: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
822: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
823: p_count => x_msg_count,

Line 821: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

817:
818: EXCEPTION
819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
820: ROLLBACK TO create_subscription;
821: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
822: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
823: p_count => x_msg_count,
824: p_data => x_msg_data);
825:

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

818: EXCEPTION
819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
820: ROLLBACK TO create_subscription;
821: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
822: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
823: p_count => x_msg_count,
824: p_data => x_msg_data);
825:
826: IF G_DEBUG='Y' THEN

Line 836: WHEN FND_API.G_EXC_ERROR THEN

832: AHL_DEBUG_PUB.disable_debug;
833:
834: END IF;
835:
836: WHEN FND_API.G_EXC_ERROR THEN
837: ROLLBACK TO create_subscription;
838: X_return_status := FND_API.G_RET_STS_ERROR;
839: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
840: p_count => x_msg_count,

Line 838: X_return_status := FND_API.G_RET_STS_ERROR;

834: END IF;
835:
836: WHEN FND_API.G_EXC_ERROR THEN
837: ROLLBACK TO create_subscription;
838: X_return_status := FND_API.G_RET_STS_ERROR;
839: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
840: p_count => x_msg_count,
841: p_data => X_msg_data);
842: -- Debug info.

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

835:
836: WHEN FND_API.G_EXC_ERROR THEN
837: ROLLBACK TO create_subscription;
838: X_return_status := FND_API.G_RET_STS_ERROR;
839: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
840: p_count => x_msg_count,
841: p_data => X_msg_data);
842: -- Debug info.
843: IF G_DEBUG='Y' THEN

Line 856: X_return_status := FND_API.G_RET_STS_ERROR;

852:
853:
854: WHEN DUP_VAL_ON_INDEX THEN
855: ROLLBACK TO create_subscription;
856: X_return_status := FND_API.G_RET_STS_ERROR;
857: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_DUP_RECORD');
858: FND_MSG_PUB.ADD;
859: -- Check if API is called in debug mode. If yes, disable debug.
860: IF G_DEBUG='Y' THEN

Line 868: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

864:
865:
866: WHEN OTHERS THEN
867: ROLLBACK TO create_subscription;
868: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
869: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
870: THEN
871: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PVT',
872: p_procedure_name => 'CREATE_SUBSCRIPTION',

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

871: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PVT',
872: p_procedure_name => 'CREATE_SUBSCRIPTION',
873: p_error_text => SUBSTR(SQLERRM,1,240));
874: END IF;
875: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
876: p_count => x_msg_count,
877: p_data => X_msg_data);
878: -- Debug info.
879: IF G_DEBUG='Y' THEN

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

896: /*------------------------------------------------------*/
897: PROCEDURE MODIFY_SUBSCRIPTION
898: (
899: p_api_version IN NUMBER := 1.0 ,
900: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
901: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
902: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
903: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
904: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,

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

897: PROCEDURE MODIFY_SUBSCRIPTION
898: (
899: p_api_version IN NUMBER := 1.0 ,
900: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
901: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
902: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
903: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
904: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
905: x_return_status OUT NOCOPY VARCHAR2 ,

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

898: (
899: p_api_version IN NUMBER := 1.0 ,
900: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
901: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
902: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
903: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
904: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
905: x_return_status OUT NOCOPY VARCHAR2 ,
906: x_msg_count OUT NOCOPY NUMBER ,

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

899: p_api_version IN NUMBER := 1.0 ,
900: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
901: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
902: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
903: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
904: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
905: x_return_status OUT NOCOPY VARCHAR2 ,
906: x_msg_count OUT NOCOPY NUMBER ,
907: x_msg_data OUT NOCOPY VARCHAR2

Line 1040: IF FND_API.to_boolean(p_init_msg_list)

1036: IF G_DEBUG='Y' THEN
1037: AHL_DEBUG_PUB.debug( 'enter ahl_di_subscription_pvt.Modify Subscription','+SUB+');
1038: END IF;
1039: -- Standard call to check for call compatibility.
1040: IF FND_API.to_boolean(p_init_msg_list)
1041: THEN
1042: FND_MSG_PUB.initialize;
1043: END IF;
1044: -- Initialize API return status to success

Line 1047: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

1043: END IF;
1044: -- Initialize API return status to success
1045: x_return_status := 'S';
1046: -- Initialize message list if p_init_msg_list is set to TRUE.
1047: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1048: p_api_version,
1049: l_api_name,G_PKG_NAME)
1050: THEN
1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1047: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1048: p_api_version,
1049: l_api_name,G_PKG_NAME)
1050: THEN
1051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1052: END IF;
1053:
1054: -- Start API Body
1055:

Line 1162: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1158: l_msg_count := FND_MSG_PUB.count_msg;
1159:
1160: IF l_msg_count > 0 THEN
1161: X_msg_count := l_msg_count;
1162: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1163: RAISE FND_API.G_EXC_ERROR;
1164: END IF;
1165: --Start of API Body
1166: FOR i IN p_x_subscription_tbl.FIRST..p_x_subscription_tbl.LAST

Line 1163: RAISE FND_API.G_EXC_ERROR;

1159:
1160: IF l_msg_count > 0 THEN
1161: X_msg_count := l_msg_count;
1162: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1163: RAISE FND_API.G_EXC_ERROR;
1164: END IF;
1165: --Start of API Body
1166: FOR i IN p_x_subscription_tbl.FIRST..p_x_subscription_tbl.LAST
1167: LOOP

Line 1184: RAISE FND_API.G_EXC_ERROR;

1180: if (l_subscription_info.object_version_number <>p_x_subscription_tbl(i).object_version_number)
1181: then
1182: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1183: FND_MSG_PUB.ADD;
1184: RAISE FND_API.G_EXC_ERROR;
1185: end if;
1186: -- The following conditions compare the new record value with old record
1187: -- value, if its different then assign the new value else continue
1188: IF p_x_subscription_tbl(i).subscription_id IS NOT NULL

Line 1348: p_init_msg_list => FND_API.G_TRUE ,

1344: l_subscription_tbl(1).subscription_id := p_x_subscription_tbl(i).subscription_id;
1345: DELETE_SUBSCRIPTION
1346: (
1347: p_api_version => 1.0 ,
1348: p_init_msg_list => FND_API.G_TRUE ,
1349: p_commit => FND_API.G_FALSE ,
1350: p_validate_only => FND_API.G_TRUE ,
1351: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1352: p_x_subscription_tbl => l_subscription_tbl ,

Line 1349: p_commit => FND_API.G_FALSE ,

1345: DELETE_SUBSCRIPTION
1346: (
1347: p_api_version => 1.0 ,
1348: p_init_msg_list => FND_API.G_TRUE ,
1349: p_commit => FND_API.G_FALSE ,
1350: p_validate_only => FND_API.G_TRUE ,
1351: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1352: p_x_subscription_tbl => l_subscription_tbl ,
1353: x_return_status => x_return_status ,

Line 1350: p_validate_only => FND_API.G_TRUE ,

1346: (
1347: p_api_version => 1.0 ,
1348: p_init_msg_list => FND_API.G_TRUE ,
1349: p_commit => FND_API.G_FALSE ,
1350: p_validate_only => FND_API.G_TRUE ,
1351: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1352: p_x_subscription_tbl => l_subscription_tbl ,
1353: x_return_status => x_return_status ,
1354: x_msg_count => x_msg_count ,

Line 1351: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,

1347: p_api_version => 1.0 ,
1348: p_init_msg_list => FND_API.G_TRUE ,
1349: p_commit => FND_API.G_FALSE ,
1350: p_validate_only => FND_API.G_TRUE ,
1351: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
1352: p_x_subscription_tbl => l_subscription_tbl ,
1353: x_return_status => x_return_status ,
1354: x_msg_count => x_msg_count ,
1355: x_msg_data => x_msg_data);

Line 1389: IF FND_API.TO_BOOLEAN(p_commit) THEN

1385: END IF;
1386: END LOOP;
1387: END IF;
1388: -- Standard check of p_commit.
1389: IF FND_API.TO_BOOLEAN(p_commit) THEN
1390: COMMIT;
1391: END IF;
1392: -- Debug info
1393: IF G_DEBUG='Y' THEN

Line 1404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1400:
1401: END IF;
1402:
1403: EXCEPTION
1404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1405: ROLLBACK TO modify_subscription;
1406: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1408: p_count => x_msg_count,

Line 1406: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1402:
1403: EXCEPTION
1404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1405: ROLLBACK TO modify_subscription;
1406: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1408: p_count => x_msg_count,
1409: p_data => x_msg_data);
1410:

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

1403: EXCEPTION
1404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1405: ROLLBACK TO modify_subscription;
1406: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1408: p_count => x_msg_count,
1409: p_data => x_msg_data);
1410:
1411: IF G_DEBUG='Y' THEN

Line 1421: WHEN FND_API.G_EXC_ERROR THEN

1417: AHL_DEBUG_PUB.disable_debug;
1418:
1419: END IF;
1420:
1421: WHEN FND_API.G_EXC_ERROR THEN
1422: ROLLBACK TO modify_subscription;
1423: X_return_status := FND_API.G_RET_STS_ERROR;
1424: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1425: p_count => x_msg_count,

Line 1423: X_return_status := FND_API.G_RET_STS_ERROR;

1419: END IF;
1420:
1421: WHEN FND_API.G_EXC_ERROR THEN
1422: ROLLBACK TO modify_subscription;
1423: X_return_status := FND_API.G_RET_STS_ERROR;
1424: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1425: p_count => x_msg_count,
1426: p_data => X_msg_data);
1427: -- Debug info.

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

1420:
1421: WHEN FND_API.G_EXC_ERROR THEN
1422: ROLLBACK TO modify_subscription;
1423: X_return_status := FND_API.G_RET_STS_ERROR;
1424: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1425: p_count => x_msg_count,
1426: p_data => X_msg_data);
1427: -- Debug info.
1428: IF G_DEBUG='Y' THEN

Line 1440: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1436: END IF;
1437:
1438: WHEN OTHERS THEN
1439: ROLLBACK TO modify_subscription;
1440: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1441: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1442: THEN
1443: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PVT',
1444: p_procedure_name => 'MODIFY_SUBSCRIPTION',

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

1443: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PVT',
1444: p_procedure_name => 'MODIFY_SUBSCRIPTION',
1445: p_error_text => SUBSTR(SQLERRM,1,240));
1446: END IF;
1447: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1448: p_count => x_msg_count,
1449: p_data => X_msg_data);
1450:
1451: -- Debug info.

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

1470:
1471: PROCEDURE DELETE_SUBSCRIPTION
1472: (
1473: p_api_version IN NUMBER := 1.0 ,
1474: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1475: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1476: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1477: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1478: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,

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

1471: PROCEDURE DELETE_SUBSCRIPTION
1472: (
1473: p_api_version IN NUMBER := 1.0 ,
1474: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1475: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1476: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1477: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1478: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
1479: x_return_status OUT NOCOPY VARCHAR2 ,

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

1472: (
1473: p_api_version IN NUMBER := 1.0 ,
1474: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1475: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1476: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1477: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1478: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
1479: x_return_status OUT NOCOPY VARCHAR2 ,
1480: x_msg_count OUT NOCOPY NUMBER ,

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

1473: p_api_version IN NUMBER := 1.0 ,
1474: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
1475: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1476: p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
1477: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1478: p_x_subscription_tbl IN OUT NOCOPY subscription_tbl ,
1479: x_return_status OUT NOCOPY VARCHAR2 ,
1480: x_msg_count OUT NOCOPY NUMBER ,
1481: x_msg_data OUT NOCOPY VARCHAR2

Line 1505: IF FND_API.to_boolean(p_init_msg_list)

1501: BEGIN
1502: -- Standard Start of API savepoint
1503: SAVEPOINT delete_subscriptions;
1504: -- Standard call to check for call compatibility.
1505: IF FND_API.to_boolean(p_init_msg_list)
1506: THEN
1507: FND_MSG_PUB.initialize;
1508: END IF;
1509: -- Initialize API return status to success

Line 1512: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,

1508: END IF;
1509: -- Initialize API return status to success
1510: x_return_status := 'S';
1511: -- Initialize message list if p_init_msg_list is set to TRUE.
1512: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1513: p_api_version,
1514: l_api_name,G_PKG_NAME)
1515: THEN
1516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1512: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1513: p_api_version,
1514: l_api_name,G_PKG_NAME)
1515: THEN
1516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1517: END IF;
1518: --Start of API Body
1519: IF p_x_subscription_tbl.COUNT > 0
1520: THEN

Line 1588: IF FND_API.TO_BOOLEAN(p_commit) THEN

1584: END LOOP;
1585: -- Modified pjha 15-May-2002 for modifying 'subscribed to' End
1586: END IF;
1587: -- Standard check of p_commit.
1588: IF FND_API.TO_BOOLEAN(p_commit) THEN
1589: COMMIT;
1590: END IF;
1591:
1592: EXCEPTION

Line 1593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1589: COMMIT;
1590: END IF;
1591:
1592: EXCEPTION
1593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1594: ROLLBACK TO delete_subscription;
1595: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1597: p_count => x_msg_count,

Line 1595: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1591:
1592: EXCEPTION
1593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1594: ROLLBACK TO delete_subscription;
1595: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1597: p_count => x_msg_count,
1598: p_data => x_msg_data);
1599:

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

1592: EXCEPTION
1593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1594: ROLLBACK TO delete_subscription;
1595: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1597: p_count => x_msg_count,
1598: p_data => x_msg_data);
1599:
1600: WHEN FND_API.G_EXC_ERROR THEN

Line 1600: WHEN FND_API.G_EXC_ERROR THEN

1596: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1597: p_count => x_msg_count,
1598: p_data => x_msg_data);
1599:
1600: WHEN FND_API.G_EXC_ERROR THEN
1601: ROLLBACK TO delete_subscription;
1602: X_return_status := FND_API.G_RET_STS_ERROR;
1603: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1604: p_count => x_msg_count,

Line 1602: X_return_status := FND_API.G_RET_STS_ERROR;

1598: p_data => x_msg_data);
1599:
1600: WHEN FND_API.G_EXC_ERROR THEN
1601: ROLLBACK TO delete_subscription;
1602: X_return_status := FND_API.G_RET_STS_ERROR;
1603: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1604: p_count => x_msg_count,
1605: p_data => X_msg_data);
1606: WHEN OTHERS THEN

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

1599:
1600: WHEN FND_API.G_EXC_ERROR THEN
1601: ROLLBACK TO delete_subscription;
1602: X_return_status := FND_API.G_RET_STS_ERROR;
1603: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1604: p_count => x_msg_count,
1605: p_data => X_msg_data);
1606: WHEN OTHERS THEN
1607: ROLLBACK TO delete_subscription;

Line 1608: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1604: p_count => x_msg_count,
1605: p_data => X_msg_data);
1606: WHEN OTHERS THEN
1607: ROLLBACK TO delete_subscription;
1608: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1609: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1610: THEN
1611: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PVT',
1612: p_procedure_name => 'DELETE_SUBSCRIPTION',

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

1611: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_SUBSCRIPTION_PVT',
1612: p_procedure_name => 'DELETE_SUBSCRIPTION',
1613: p_error_text => SUBSTR(SQLERRM,1,240));
1614: END IF;
1615: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1616: p_count => x_msg_count,
1617: p_data => X_msg_data);
1618:
1619: END DELETE_SUBSCRIPTION;