[Home] [Help]
419: --
420:
421: PROCEDURE get_adj (
422: p_api_version IN NUMBER,
423: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
424: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
425: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
426: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
427: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
420:
421: PROCEDURE get_adj (
422: p_api_version IN NUMBER,
423: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
424: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
425: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
426: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
427: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
428: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
421: PROCEDURE get_adj (
422: p_api_version IN NUMBER,
423: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
424: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
425: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
426: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
427: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
428: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
429: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
422: p_api_version IN NUMBER,
423: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
424: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
425: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
426: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
427: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
428: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
429: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
430: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
423: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
424: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
425: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
426: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
427: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
428: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
429: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
430: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
431: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
424: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
425: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
426: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
427: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
428: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
429: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
430: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
431: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
432: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
425: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
426: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
427: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
428: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
429: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
430: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
431: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
432: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
433: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
426: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
427: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
428: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
429: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
430: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
431: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
432: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
433: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
434: p_srch_attr_rec IN adj_rec_type,
427: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
428: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
429: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
430: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
431: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
432: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
433: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
434: p_srch_attr_rec IN adj_rec_type,
435: p_first IN NUMBER,
428: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
429: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
430: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
431: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
432: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
433: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
434: p_srch_attr_rec IN adj_rec_type,
435: p_first IN NUMBER,
436: p_last IN NUMBER,
429: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
430: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
431: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
432: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
433: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
434: p_srch_attr_rec IN adj_rec_type,
435: p_first IN NUMBER,
436: p_last IN NUMBER,
437: x_return_status OUT NOCOPY VARCHAR2,
463: BEGIN
464: -- Standard Start of API savepoint
465: SAVEPOINT get_adj;
466: -- Standard call to check for call compatibility.
467: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
468: p_api_version ,
469: l_api_name,
470: G_PKG_NAME ) THEN
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
467: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
468: p_api_version ,
469: l_api_name,
470: G_PKG_NAME ) THEN
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472: END IF;
473: -- Initialize message list if p_init_msg_list is set to TRUE.
474: IF FND_API.to_Boolean( p_init_msg_list ) THEN
475: FND_MSG_PUB.initialize;
470: G_PKG_NAME ) THEN
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472: END IF;
473: -- Initialize message list if p_init_msg_list is set to TRUE.
474: IF FND_API.to_Boolean( p_init_msg_list ) THEN
475: FND_MSG_PUB.initialize;
476: END IF;
477: -- Initialize API return status to success
478: x_return_status := FND_API.G_RET_STS_SUCCESS;
474: IF FND_API.to_Boolean( p_init_msg_list ) THEN
475: FND_MSG_PUB.initialize;
476: END IF;
477: -- Initialize API return status to success
478: x_return_status := FND_API.G_RET_STS_SUCCESS;
479: x_loading_status := 'CN_INSERTED';
480: -- API body
481: /* This API take the parameters and construct the SQL. Based on the SQL
482: get the data from cn_comm_lines_api and cn_commission_headers tables. */
690: END IF;
691: x_adj_count := l_total_rows;
692: x_valid_trx_count := l_valid_trx_counter;
693: EXCEPTION
694: WHEN FND_API.G_EXC_ERROR THEN
695: ROLLBACK TO get_adj;
696: x_return_status := FND_API.G_RET_STS_ERROR ;
697: FND_MSG_PUB.Count_And_Get(
698: p_count => x_msg_count ,
692: x_valid_trx_count := l_valid_trx_counter;
693: EXCEPTION
694: WHEN FND_API.G_EXC_ERROR THEN
695: ROLLBACK TO get_adj;
696: x_return_status := FND_API.G_RET_STS_ERROR ;
697: FND_MSG_PUB.Count_And_Get(
698: p_count => x_msg_count ,
699: p_data => x_msg_data ,
700: p_encoded => FND_API.G_FALSE);
696: x_return_status := FND_API.G_RET_STS_ERROR ;
697: FND_MSG_PUB.Count_And_Get(
698: p_count => x_msg_count ,
699: p_data => x_msg_data ,
700: p_encoded => FND_API.G_FALSE);
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO get_adj;
703: x_loading_status := 'UNEXPECTED_ERR';
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
697: FND_MSG_PUB.Count_And_Get(
698: p_count => x_msg_count ,
699: p_data => x_msg_data ,
700: p_encoded => FND_API.G_FALSE);
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO get_adj;
703: x_loading_status := 'UNEXPECTED_ERR';
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
705: FND_MSG_PUB.Count_And_Get(
700: p_encoded => FND_API.G_FALSE);
701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
702: ROLLBACK TO get_adj;
703: x_loading_status := 'UNEXPECTED_ERR';
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
705: FND_MSG_PUB.Count_And_Get(
706: p_count => x_msg_count ,
707: p_data => x_msg_data ,
708: p_encoded => FND_API.G_FALSE);
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
705: FND_MSG_PUB.Count_And_Get(
706: p_count => x_msg_count ,
707: p_data => x_msg_data ,
708: p_encoded => FND_API.G_FALSE);
709: WHEN OTHERS THEN
710: ROLLBACK TO get_adj;
711: x_loading_status := 'UNEXPECTED_ERR';
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
708: p_encoded => FND_API.G_FALSE);
709: WHEN OTHERS THEN
710: ROLLBACK TO get_adj;
711: x_loading_status := 'UNEXPECTED_ERR';
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
713: IF FND_MSG_PUB.Check_Msg_Level(
714: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
715: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
716: END IF;
716: END IF;
717: FND_MSG_PUB.Count_And_Get(
718: p_count => x_msg_count ,
719: p_data => x_msg_data ,
720: p_encoded => FND_API.G_FALSE);
721: END;
722: --
723: PROCEDURE get_split_data(
724: p_api_version IN NUMBER,
721: END;
722: --
723: PROCEDURE get_split_data(
724: p_api_version IN NUMBER,
725: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
726: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
727: p_comm_lines_api_id IN NUMBER DEFAULT NULL,
728: p_load_status IN VARCHAR2 DEFAULT NULL,
729: x_return_status OUT NOCOPY VARCHAR2,
722: --
723: PROCEDURE get_split_data(
724: p_api_version IN NUMBER,
725: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
726: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
727: p_comm_lines_api_id IN NUMBER DEFAULT NULL,
728: p_load_status IN VARCHAR2 DEFAULT NULL,
729: x_return_status OUT NOCOPY VARCHAR2,
730: x_msg_count OUT NOCOPY NUMBER,
785: --
786: BEGIN
787: -- Standard Start of API savepoint
788: SAVEPOINT get_split_data;
789: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
790: p_api_version ,
791: l_api_name,
792: G_PKG_NAME ) THEN
793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
789: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
790: p_api_version ,
791: l_api_name,
792: G_PKG_NAME ) THEN
793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
794: END IF;
795: -- Initialize message list if p_init_msg_list is set to TRUE.
796: IF FND_API.to_Boolean( p_init_msg_list ) THEN
797: FND_MSG_PUB.initialize;
792: G_PKG_NAME ) THEN
793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
794: END IF;
795: -- Initialize message list if p_init_msg_list is set to TRUE.
796: IF FND_API.to_Boolean( p_init_msg_list ) THEN
797: FND_MSG_PUB.initialize;
798: END IF;
799: -- Initialize API return status to success
800: x_return_status := FND_API.G_RET_STS_SUCCESS;
796: IF FND_API.to_Boolean( p_init_msg_list ) THEN
797: FND_MSG_PUB.initialize;
798: END IF;
799: -- Initialize API return status to success
800: x_return_status := FND_API.G_RET_STS_SUCCESS;
801: x_loading_status := 'CN_INSERTED';
802:
803: -- API Body Begin
804: IF (p_load_status <> 'LOADED') THEN
1228: END;
1229: END IF;
1230: --
1231: EXCEPTION
1232: WHEN FND_API.G_EXC_ERROR THEN
1233: ROLLBACK TO get_split_data;
1234: x_return_status := FND_API.G_RET_STS_ERROR ;
1235: FND_MSG_PUB.Count_And_Get(
1236: p_count => x_msg_count ,
1230: --
1231: EXCEPTION
1232: WHEN FND_API.G_EXC_ERROR THEN
1233: ROLLBACK TO get_split_data;
1234: x_return_status := FND_API.G_RET_STS_ERROR ;
1235: FND_MSG_PUB.Count_And_Get(
1236: p_count => x_msg_count ,
1237: p_data => x_msg_data ,
1238: p_encoded => FND_API.G_FALSE);
1234: x_return_status := FND_API.G_RET_STS_ERROR ;
1235: FND_MSG_PUB.Count_And_Get(
1236: p_count => x_msg_count ,
1237: p_data => x_msg_data ,
1238: p_encoded => FND_API.G_FALSE);
1239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1240: ROLLBACK TO get_split_data;
1241: x_loading_status := 'UNEXPECTED_ERR';
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1235: FND_MSG_PUB.Count_And_Get(
1236: p_count => x_msg_count ,
1237: p_data => x_msg_data ,
1238: p_encoded => FND_API.G_FALSE);
1239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1240: ROLLBACK TO get_split_data;
1241: x_loading_status := 'UNEXPECTED_ERR';
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1243: FND_MSG_PUB.Count_And_Get(
1238: p_encoded => FND_API.G_FALSE);
1239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1240: ROLLBACK TO get_split_data;
1241: x_loading_status := 'UNEXPECTED_ERR';
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1243: FND_MSG_PUB.Count_And_Get(
1244: p_count => x_msg_count ,
1245: p_data => x_msg_data ,
1246: p_encoded => FND_API.G_FALSE);
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1243: FND_MSG_PUB.Count_And_Get(
1244: p_count => x_msg_count ,
1245: p_data => x_msg_data ,
1246: p_encoded => FND_API.G_FALSE);
1247: WHEN OTHERS THEN
1248: ROLLBACK TO get_split_data;
1249: x_loading_status := 'UNEXPECTED_ERR';
1250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1246: p_encoded => FND_API.G_FALSE);
1247: WHEN OTHERS THEN
1248: ROLLBACK TO get_split_data;
1249: x_loading_status := 'UNEXPECTED_ERR';
1250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1251: IF FND_MSG_PUB.Check_Msg_Level(
1252: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1253: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1254: END IF;
1254: END IF;
1255: FND_MSG_PUB.Count_And_Get(
1256: p_count => x_msg_count ,
1257: p_data => x_msg_data ,
1258: p_encoded => FND_API.G_FALSE);
1259: END;
1260: --
1261: PROCEDURE insert_api_record(
1262: p_api_version IN NUMBER,
1259: END;
1260: --
1261: PROCEDURE insert_api_record(
1262: p_api_version IN NUMBER,
1263: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1264: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1265: p_action IN VARCHAR2 DEFAULT NULL,
1266: p_newtx_rec IN adj_rec_type,
1267: x_api_id OUT NOCOPY NUMBER,
1260: --
1261: PROCEDURE insert_api_record(
1262: p_api_version IN NUMBER,
1263: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1264: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1265: p_action IN VARCHAR2 DEFAULT NULL,
1266: p_newtx_rec IN adj_rec_type,
1267: x_api_id OUT NOCOPY NUMBER,
1268: x_return_status OUT NOCOPY VARCHAR2,
1314: BEGIN
1315: -- Standard Start of API savepoint
1316: SAVEPOINT insert_api_record;
1317: -- Standard call to check for call compatibility.
1318: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1319: p_api_version ,
1320: l_api_name,
1321: G_PKG_NAME ) THEN
1322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1318: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1319: p_api_version ,
1320: l_api_name,
1321: G_PKG_NAME ) THEN
1322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1323: END IF;
1324: -- Initialize message list if p_init_msg_list is set to TRUE.
1325: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1326: FND_MSG_PUB.initialize;
1321: G_PKG_NAME ) THEN
1322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1323: END IF;
1324: -- Initialize message list if p_init_msg_list is set to TRUE.
1325: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1326: FND_MSG_PUB.initialize;
1327: END IF;
1328: -- Initialize API return status to success
1329: x_return_status := FND_API.G_RET_STS_SUCCESS;
1325: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1326: FND_MSG_PUB.initialize;
1327: END IF;
1328: -- Initialize API return status to success
1329: x_return_status := FND_API.G_RET_STS_SUCCESS;
1330: x_loading_status := 'CN_INSERTED';
1331: x_api_id := fnd_api.g_miss_num;
1332: -- API Body Begin
1333: -- Check for the open periods
1327: END IF;
1328: -- Initialize API return status to success
1329: x_return_status := FND_API.G_RET_STS_SUCCESS;
1330: x_loading_status := 'CN_INSERTED';
1331: x_api_id := fnd_api.g_miss_num;
1332: -- API Body Begin
1333: -- Check for the open periods
1334: SELECT count(1)
1335: INTO l_period_count
1344: FND_MESSAGE.Set_Name('CN', 'NOT_WITHIN_OPEN_PERIODS');
1345: FND_MSG_PUB.Add;
1346: END IF;
1347: x_loading_status := 'NOT_WITHIN_OPEN_PERIODS';
1348: RAISE FND_API.G_EXC_ERROR ;
1349: ELSE
1350: --
1351: BEGIN
1352: SELECT period_id
1410: IF (l_return_status = 'NO DATA') THEN
1411: FND_MESSAGE.SET_NAME('CN','CN_ADJ_NO_CONVERSION');
1412: FND_MSG_PUB.Add;
1413: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1415: ELSIF (l_return_status = 'ERROR') THEN
1416: FND_MESSAGE.SET_NAME('CN','CN_ADJ_CONV_ERROR');
1417: FND_MSG_PUB.Add;
1418: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1415: ELSIF (l_return_status = 'ERROR') THEN
1416: FND_MESSAGE.SET_NAME('CN','CN_ADJ_CONV_ERROR');
1417: FND_MSG_PUB.Add;
1418: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420: END IF;
1421: END IF;
1422: END IF;
1423: ELSE
1440: IF (l_return_status = 'NO DATA') THEN
1441: FND_MESSAGE.SET_NAME('CN','CN_ADJ_NO_CONVERSION');
1442: FND_MSG_PUB.Add;
1443: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1445: ELSIF (l_return_status = 'ERROR') THEN
1446: FND_MESSAGE.SET_NAME('CN','CN_ADJ_CONV_ERROR');
1447: FND_MSG_PUB.Add;
1448: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1445: ELSIF (l_return_status = 'ERROR') THEN
1446: FND_MESSAGE.SET_NAME('CN','CN_ADJ_CONV_ERROR');
1447: FND_MSG_PUB.Add;
1448: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1450: END IF;
1451: END IF;
1452: END IF;
1453: END IF;
1466: --
1467:
1468: END IF;
1469: EXCEPTION
1470: WHEN FND_API.G_EXC_ERROR THEN
1471: ROLLBACK TO insert_api_record;
1472: x_return_status := FND_API.G_RET_STS_ERROR ;
1473: FND_MSG_PUB.Count_And_Get(
1474: p_count => x_msg_count ,
1468: END IF;
1469: EXCEPTION
1470: WHEN FND_API.G_EXC_ERROR THEN
1471: ROLLBACK TO insert_api_record;
1472: x_return_status := FND_API.G_RET_STS_ERROR ;
1473: FND_MSG_PUB.Count_And_Get(
1474: p_count => x_msg_count ,
1475: p_data => x_msg_data ,
1476: p_encoded => FND_API.G_FALSE);
1472: x_return_status := FND_API.G_RET_STS_ERROR ;
1473: FND_MSG_PUB.Count_And_Get(
1474: p_count => x_msg_count ,
1475: p_data => x_msg_data ,
1476: p_encoded => FND_API.G_FALSE);
1477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1478: ROLLBACK TO insert_api_record;
1479: x_loading_status := 'UNEXPECTED_ERR';
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1473: FND_MSG_PUB.Count_And_Get(
1474: p_count => x_msg_count ,
1475: p_data => x_msg_data ,
1476: p_encoded => FND_API.G_FALSE);
1477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1478: ROLLBACK TO insert_api_record;
1479: x_loading_status := 'UNEXPECTED_ERR';
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1481: FND_MSG_PUB.Count_And_Get(
1476: p_encoded => FND_API.G_FALSE);
1477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1478: ROLLBACK TO insert_api_record;
1479: x_loading_status := 'UNEXPECTED_ERR';
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1481: FND_MSG_PUB.Count_And_Get(
1482: p_count => x_msg_count ,
1483: p_data => x_msg_data ,
1484: p_encoded => FND_API.G_FALSE);
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1481: FND_MSG_PUB.Count_And_Get(
1482: p_count => x_msg_count ,
1483: p_data => x_msg_data ,
1484: p_encoded => FND_API.G_FALSE);
1485: WHEN OTHERS THEN
1486: ROLLBACK TO insert_api_record;
1487: x_loading_status := 'UNEXPECTED_ERR';
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1484: p_encoded => FND_API.G_FALSE);
1485: WHEN OTHERS THEN
1486: ROLLBACK TO insert_api_record;
1487: x_loading_status := 'UNEXPECTED_ERR';
1488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1489: IF FND_MSG_PUB.Check_Msg_Level(
1490: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1491: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1492: END IF;
1492: END IF;
1493: FND_MSG_PUB.Count_And_Get(
1494: p_count => x_msg_count ,
1495: p_data => x_msg_data ,
1496: p_encoded => FND_API.G_FALSE);
1497: END;
1498: --
1499: PROCEDURE call_mass_update (
1500: p_api_version IN NUMBER,
1497: END;
1498: --
1499: PROCEDURE call_mass_update (
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1502: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1503: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1505: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1498: --
1499: PROCEDURE call_mass_update (
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1502: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1503: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1505: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1506: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1499: PROCEDURE call_mass_update (
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1502: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1503: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1505: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1506: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1507: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1502: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1503: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1505: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1506: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1507: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1502: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1503: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1505: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1506: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1507: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1502: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1503: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1505: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1506: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1507: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1503: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1505: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1506: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1507: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1511: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1504: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1505: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1506: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1507: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1511: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1512: p_srch_attr_rec IN adj_rec_type,
1505: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1506: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1507: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1511: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1512: p_srch_attr_rec IN adj_rec_type,
1513: p_mass_adj_type IN VARCHAR2 DEFAULT NULL,
1506: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1507: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1511: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1512: p_srch_attr_rec IN adj_rec_type,
1513: p_mass_adj_type IN VARCHAR2 DEFAULT NULL,
1514: p_adj_rec IN adj_rec_type,
1507: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1511: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1512: p_srch_attr_rec IN adj_rec_type,
1513: p_mass_adj_type IN VARCHAR2 DEFAULT NULL,
1514: p_adj_rec IN adj_rec_type,
1515: x_return_status OUT NOCOPY VARCHAR2,
1534: --cn_mydebug.delete;
1535: -- Standard Start of API savepoint
1536: SAVEPOINT call_mass_update;
1537: -- Standard call to check for call compatibility.
1538: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1539: p_api_version ,
1540: l_api_name,
1541: G_PKG_NAME ) THEN
1542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1538: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1539: p_api_version ,
1540: l_api_name,
1541: G_PKG_NAME ) THEN
1542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1543: END IF;
1544: -- Initialize message list if p_init_msg_list is set to TRUE.
1545: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1546: FND_MSG_PUB.initialize;
1541: G_PKG_NAME ) THEN
1542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1543: END IF;
1544: -- Initialize message list if p_init_msg_list is set to TRUE.
1545: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1546: FND_MSG_PUB.initialize;
1547: END IF;
1548: -- Initialize API return status to success
1549: x_return_status := FND_API.G_RET_STS_SUCCESS;
1545: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1546: FND_MSG_PUB.initialize;
1547: END IF;
1548: -- Initialize API return status to success
1549: x_return_status := FND_API.G_RET_STS_SUCCESS;
1550: x_loading_status := 'CN_INSERTED';
1551: -- API body
1552: IF (g_track_invoice = 'Y') THEN
1553: /* First identify the unique invoices based on the search criteria
1610: X_mass_adj_type => p_mass_adj_type,
1611: X_proc_comp => l_proc_comp);
1612: --
1613: IF (l_proc_comp = 'E') THEN
1614: RAISE FND_API.G_EXC_ERROR;
1615: END IF;
1616: --
1617: IF (g_track_invoice = 'Y') THEN
1618: IF (l_existing_data.COUNT > 0) THEN
1632: END IF;
1633: END IF;
1634: --
1635: EXCEPTION
1636: WHEN FND_API.G_EXC_ERROR THEN
1637: ROLLBACK TO call_mass_update;
1638: x_return_status := FND_API.G_RET_STS_ERROR ;
1639: FND_MSG_PUB.Count_And_Get(
1640: p_count => x_msg_count ,
1634: --
1635: EXCEPTION
1636: WHEN FND_API.G_EXC_ERROR THEN
1637: ROLLBACK TO call_mass_update;
1638: x_return_status := FND_API.G_RET_STS_ERROR ;
1639: FND_MSG_PUB.Count_And_Get(
1640: p_count => x_msg_count ,
1641: p_data => x_msg_data ,
1642: p_encoded => FND_API.G_FALSE);
1638: x_return_status := FND_API.G_RET_STS_ERROR ;
1639: FND_MSG_PUB.Count_And_Get(
1640: p_count => x_msg_count ,
1641: p_data => x_msg_data ,
1642: p_encoded => FND_API.G_FALSE);
1643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1644: ROLLBACK TO call_mass_update;
1645: x_loading_status := 'UNEXPECTED_ERR';
1646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1639: FND_MSG_PUB.Count_And_Get(
1640: p_count => x_msg_count ,
1641: p_data => x_msg_data ,
1642: p_encoded => FND_API.G_FALSE);
1643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1644: ROLLBACK TO call_mass_update;
1645: x_loading_status := 'UNEXPECTED_ERR';
1646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1647: FND_MSG_PUB.Count_And_Get(
1642: p_encoded => FND_API.G_FALSE);
1643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1644: ROLLBACK TO call_mass_update;
1645: x_loading_status := 'UNEXPECTED_ERR';
1646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1647: FND_MSG_PUB.Count_And_Get(
1648: p_count => x_msg_count ,
1649: p_data => x_msg_data ,
1650: p_encoded => FND_API.G_FALSE);
1646: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1647: FND_MSG_PUB.Count_And_Get(
1648: p_count => x_msg_count ,
1649: p_data => x_msg_data ,
1650: p_encoded => FND_API.G_FALSE);
1651: WHEN OTHERS THEN
1652: ROLLBACK TO call_mass_update;
1653: x_loading_status := 'UNEXPECTED_ERR';
1654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1650: p_encoded => FND_API.G_FALSE);
1651: WHEN OTHERS THEN
1652: ROLLBACK TO call_mass_update;
1653: x_loading_status := 'UNEXPECTED_ERR';
1654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1655: IF FND_MSG_PUB.Check_Msg_Level(
1656: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1657: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1658: END IF;
1658: END IF;
1659: FND_MSG_PUB.Count_And_Get(
1660: p_count => x_msg_count ,
1661: p_data => x_msg_data ,
1662: p_encoded => FND_API.G_FALSE);
1663: END;
1664: -- This functionality is obsoleted.
1665: PROCEDURE call_deal_assign(
1666: p_api_version IN NUMBER,
1663: END;
1664: -- This functionality is obsoleted.
1665: PROCEDURE call_deal_assign(
1666: p_api_version IN NUMBER,
1667: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1668: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1669: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1671: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1664: -- This functionality is obsoleted.
1665: PROCEDURE call_deal_assign(
1666: p_api_version IN NUMBER,
1667: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1668: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1669: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1671: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1672: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1665: PROCEDURE call_deal_assign(
1666: p_api_version IN NUMBER,
1667: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1668: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1669: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1671: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1672: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1673: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1666: p_api_version IN NUMBER,
1667: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1668: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1669: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1671: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1672: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1673: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1674: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1667: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1668: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1669: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1671: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1672: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1673: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1674: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1675: x_return_status OUT NOCOPY VARCHAR2,
1668: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1669: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1671: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1672: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1673: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1674: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1675: x_return_status OUT NOCOPY VARCHAR2,
1676: x_msg_count OUT NOCOPY NUMBER,
1670: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1671: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1672: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1673: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1674: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1675: x_return_status OUT NOCOPY VARCHAR2,
1676: x_msg_count OUT NOCOPY NUMBER,
1677: x_msg_data OUT NOCOPY VARCHAR2,
1678: x_loading_status OUT NOCOPY VARCHAR2) IS
1689: -- Standard Start of API savepoint
1690: SAVEPOINT call_deal_assign;
1691:
1692: -- Standard call to check for call compatibility.
1693: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1694: p_api_version ,
1695: l_api_name,
1696: G_PKG_NAME ) THEN
1697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1693: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1694: p_api_version ,
1695: l_api_name,
1696: G_PKG_NAME ) THEN
1697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1698: END IF;
1699: -- Initialize message list if p_init_msg_list is set to TRUE.
1700: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1701: FND_MSG_PUB.initialize;
1696: G_PKG_NAME ) THEN
1697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1698: END IF;
1699: -- Initialize message list if p_init_msg_list is set to TRUE.
1700: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1701: FND_MSG_PUB.initialize;
1702: END IF;
1703: -- Initialize API return status to success
1704: x_return_status := FND_API.G_RET_STS_SUCCESS;
1700: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1701: FND_MSG_PUB.initialize;
1702: END IF;
1703: -- Initialize API return status to success
1704: x_return_status := FND_API.G_RET_STS_SUCCESS;
1705: x_loading_status := 'CN_INSERTED';
1706: -- API body
1707: IF (p_invoice_number = FND_API.G_MISS_CHAR) THEN
1708: l_invoice_number := NULL;
1703: -- Initialize API return status to success
1704: x_return_status := FND_API.G_RET_STS_SUCCESS;
1705: x_loading_status := 'CN_INSERTED';
1706: -- API body
1707: IF (p_invoice_number = FND_API.G_MISS_CHAR) THEN
1708: l_invoice_number := NULL;
1709: END IF;
1710: IF (p_order_number = FND_API.G_MISS_NUM) THEN
1711: l_order_number := NULL;
1706: -- API body
1707: IF (p_invoice_number = FND_API.G_MISS_CHAR) THEN
1708: l_invoice_number := NULL;
1709: END IF;
1710: IF (p_order_number = FND_API.G_MISS_NUM) THEN
1711: l_order_number := NULL;
1712: END IF;
1713: IF (p_adjust_comments = FND_API.G_MISS_CHAR) THEN
1714: l_adjust_comments := NULL;
1709: END IF;
1710: IF (p_order_number = FND_API.G_MISS_NUM) THEN
1711: l_order_number := NULL;
1712: END IF;
1713: IF (p_adjust_comments = FND_API.G_MISS_CHAR) THEN
1714: l_adjust_comments := NULL;
1715: END IF;
1716: --
1717: cn_adjustments_pkg.deal_assign(
1722: x_adjusted_by => get_adjusted_by, -- Function
1723: x_adjust_comments => l_adjust_comments);
1724: --
1725: EXCEPTION
1726: WHEN FND_API.G_EXC_ERROR THEN
1727: ROLLBACK TO call_deal_assign;
1728: x_return_status := FND_API.G_RET_STS_ERROR ;
1729: FND_MSG_PUB.Count_And_Get(
1730: p_count => x_msg_count ,
1724: --
1725: EXCEPTION
1726: WHEN FND_API.G_EXC_ERROR THEN
1727: ROLLBACK TO call_deal_assign;
1728: x_return_status := FND_API.G_RET_STS_ERROR ;
1729: FND_MSG_PUB.Count_And_Get(
1730: p_count => x_msg_count ,
1731: p_data => x_msg_data ,
1732: p_encoded => FND_API.G_FALSE);
1728: x_return_status := FND_API.G_RET_STS_ERROR ;
1729: FND_MSG_PUB.Count_And_Get(
1730: p_count => x_msg_count ,
1731: p_data => x_msg_data ,
1732: p_encoded => FND_API.G_FALSE);
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734: ROLLBACK TO call_deal_assign;
1735: x_loading_status := 'UNEXPECTED_ERR';
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1729: FND_MSG_PUB.Count_And_Get(
1730: p_count => x_msg_count ,
1731: p_data => x_msg_data ,
1732: p_encoded => FND_API.G_FALSE);
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734: ROLLBACK TO call_deal_assign;
1735: x_loading_status := 'UNEXPECTED_ERR';
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1737: FND_MSG_PUB.Count_And_Get(
1732: p_encoded => FND_API.G_FALSE);
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734: ROLLBACK TO call_deal_assign;
1735: x_loading_status := 'UNEXPECTED_ERR';
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1737: FND_MSG_PUB.Count_And_Get(
1738: p_count => x_msg_count ,
1739: p_data => x_msg_data ,
1740: p_encoded => FND_API.G_FALSE);
1736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1737: FND_MSG_PUB.Count_And_Get(
1738: p_count => x_msg_count ,
1739: p_data => x_msg_data ,
1740: p_encoded => FND_API.G_FALSE);
1741: WHEN OTHERS THEN
1742: ROLLBACK TO call_deal_assign;
1743: x_loading_status := 'UNEXPECTED_ERR';
1744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1740: p_encoded => FND_API.G_FALSE);
1741: WHEN OTHERS THEN
1742: ROLLBACK TO call_deal_assign;
1743: x_loading_status := 'UNEXPECTED_ERR';
1744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1745: IF FND_MSG_PUB.Check_Msg_Level(
1746: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1747: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1748: END IF;
1748: END IF;
1749: FND_MSG_PUB.Count_And_Get(
1750: p_count => x_msg_count ,
1751: p_data => x_msg_data ,
1752: p_encoded => FND_API.G_FALSE);
1753: END;
1754: --
1755: PROCEDURE call_split(
1756: p_api_version IN NUMBER,
1753: END;
1754: --
1755: PROCEDURE call_split(
1756: p_api_version IN NUMBER,
1757: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1758: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1759: p_split_type IN VARCHAR2,
1760: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1761: p_split_data_tbl IN split_data_tbl,
1754: --
1755: PROCEDURE call_split(
1756: p_api_version IN NUMBER,
1757: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1758: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1759: p_split_type IN VARCHAR2,
1760: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1761: p_split_data_tbl IN split_data_tbl,
1762: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1756: p_api_version IN NUMBER,
1757: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1758: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1759: p_split_type IN VARCHAR2,
1760: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1761: p_split_data_tbl IN split_data_tbl,
1762: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1763: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1764: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1758: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1759: p_split_type IN VARCHAR2,
1760: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1761: p_split_data_tbl IN split_data_tbl,
1762: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1763: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1764: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1765: p_transaction_amount IN NUMBER,
1766: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1759: p_split_type IN VARCHAR2,
1760: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1761: p_split_data_tbl IN split_data_tbl,
1762: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1763: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1764: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1765: p_transaction_amount IN NUMBER,
1766: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1767: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1760: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1761: p_split_data_tbl IN split_data_tbl,
1762: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1763: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1764: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1765: p_transaction_amount IN NUMBER,
1766: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1767: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1768: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1763: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1764: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1765: p_transaction_amount IN NUMBER,
1766: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1767: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1768: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1769: x_return_status OUT NOCOPY VARCHAR2,
1770: x_msg_count OUT NOCOPY NUMBER,
1771: x_msg_data OUT NOCOPY VARCHAR2,
1764: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1765: p_transaction_amount IN NUMBER,
1766: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1767: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1768: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1769: x_return_status OUT NOCOPY VARCHAR2,
1770: x_msg_count OUT NOCOPY NUMBER,
1771: x_msg_data OUT NOCOPY VARCHAR2,
1772: x_loading_status OUT NOCOPY VARCHAR2) IS
1822: BEGIN
1823: -- Standard Start of API savepoint
1824: SAVEPOINT call_split;
1825: -- Standard call to check for call compatibility.
1826: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1827: p_api_version ,
1828: l_api_name,
1829: G_PKG_NAME ) THEN
1830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1826: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1827: p_api_version ,
1828: l_api_name,
1829: G_PKG_NAME ) THEN
1830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1831: END IF;
1832: -- Initialize message list if p_init_msg_list is set to TRUE.
1833: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1834: FND_MSG_PUB.initialize;
1829: G_PKG_NAME ) THEN
1830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1831: END IF;
1832: -- Initialize message list if p_init_msg_list is set to TRUE.
1833: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1834: FND_MSG_PUB.initialize;
1835: END IF;
1836: -- Initialize API return status to success
1837: x_return_status := FND_API.G_RET_STS_SUCCESS;
1833: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1834: FND_MSG_PUB.initialize;
1835: END IF;
1836: -- Initialize API return status to success
1837: x_return_status := FND_API.G_RET_STS_SUCCESS;
1838: x_loading_status := 'CN_INSERTED';
1839:
1840:
1841:
1852: FND_MESSAGE.Set_Name('CN', 'CN_NO_SPLIT_RESOURCE');
1853: FND_MSG_PUB.Add;
1854: END IF;
1855: x_loading_status := 'CN_NO_SPLIT_RESOURCE';
1856: RAISE FND_API.G_EXC_ERROR;
1857: END IF;
1858: --
1859: /* Get the original data for the comm_lines_api_id */
1860: get_api_data(
1879: -- FND_MESSAGE.Set_Name('CN', 'CN_ADJ_SPLIT_AMOUNT');
1880: -- FND_MSG_PUB.Add;
1881: -- END IF;
1882: -- x_loading_status := 'CN_ADJ_SPLIT_AMOUNT';
1883: -- RAISE FND_API.G_EXC_ERROR;
1884: -- END IF;
1885:
1886:
1887: IF (l_split_percent <> l_adj_tbl(1).split_pct) THEN
1889: FND_MESSAGE.Set_Name('CN', 'CN_ADJ_SPLIT_PERCENT');
1890: FND_MSG_PUB.Add;
1891: END IF;
1892: x_loading_status := 'CN_ADJ_SPLIT_PERCENT';
1893: RAISE FND_API.G_EXC_ERROR;
1894: END IF;
1895: END IF; --2 end
1896: --
1897: IF (l_adj_tbl.COUNT > 0)THEN -- 3
1927: x_msg_count => x_msg_count,
1928: x_msg_data => x_msg_data,
1929: x_loading_status => x_loading_status);
1930: --
1931: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1932: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1933: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
1934: FND_MSG_PUB.Add;
1935: END IF;
1933: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
1934: FND_MSG_PUB.Add;
1935: END IF;
1936: x_loading_status := 'CN_UPDATE_INV_ERROR';
1937: RAISE FND_API.G_EXC_ERROR;
1938: END IF;
1939: --
1940: END IF; -- 4 end
1941: END IF; -- 3 end
2049: FND_MESSAGE.Set_Name('CN', 'CN_SPLIT_TRX_ERROR');
2050: FND_MSG_PUB.Add;
2051: END IF;
2052: x_loading_status := 'CN_SPLIT_TRX_ERROR';
2053: RAISE FND_API.G_EXC_ERROR;
2054: END;
2055: END LOOP;
2056:
2057: END IF; -- 5 end
2070: x_msg_count => x_msg_count,
2071: x_msg_data => x_msg_data,
2072: x_loading_status => x_loading_status);
2073: --
2074: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2075: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2076: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
2077: FND_MSG_PUB.Add;
2078: END IF;
2076: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
2077: FND_MSG_PUB.Add;
2078: END IF;
2079: x_loading_status := 'CN_UPDATE_INV_ERROR';
2080: RAISE FND_API.G_EXC_ERROR;
2081: END IF;
2082: --
2083: END IF; -- 6 end
2084: --
2095: x_msg_data => x_msg_data,
2096: x_loading_status => x_loading_status);
2097: END IF;
2098: --
2099: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2100: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2101: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_CM_ERROR');
2102: FND_MSG_PUB.Add;
2103: END IF;
2101: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_CM_ERROR');
2102: FND_MSG_PUB.Add;
2103: END IF;
2104: x_loading_status := 'CN_UPDATE_CM_ERROR';
2105: RAISE FND_API.G_EXC_ERROR;
2106: END IF;
2107: END IF; -- 7 end
2108: --
2109: ELSIF (p_split_type = 'DEAL') THEN -- 1 elsif
2108: --
2109: ELSIF (p_split_type = 'DEAL') THEN -- 1 elsif
2110: -- Currently order_number is coming as G_MISS_NUM.
2111: -- Convert that into NULL
2112: IF (p_order_number = FND_API.G_MISS_NUM) THEN
2113: l_order_number := NULL;
2114: ELSE
2115: l_order_number := p_order_number;
2116: END IF;
2147: FND_MESSAGE.Set_Name('CN', 'CN_DEAL_REV_ERROR');
2148: FND_MSG_PUB.Add;
2149: END IF;
2150: x_loading_status := 'CN_DEAL_REV_ERROR';
2151: RAISE FND_API.G_EXC_ERROR;
2152: END;
2153: ELSIF (p_invoice_number IS NOT NULL) THEN
2154: BEGIN
2155: SELECT count(invoice_number)
2179: FND_MESSAGE.Set_Name('CN', 'CN_DEAL_REV_ERROR');
2180: FND_MSG_PUB.Add;
2181: END IF;
2182: x_loading_status := 'CN_DEAL_REV_ERROR';
2183: RAISE FND_API.G_EXC_ERROR;
2184: END;
2185: END IF; -- 8 end
2186: -- Check for split amount/percentages
2187: FOR i IN p_split_data_tbl.FIRST..p_split_data_tbl.LAST
2195: FND_MESSAGE.Set_Name('CN', 'CN_ADJ_SPLIT_PERCENT');
2196: FND_MSG_PUB.Add;
2197: END IF;
2198: x_loading_status := 'CN_ADJ_SPLIT_PERCENT';
2199: RAISE FND_API.G_EXC_ERROR;
2200: END IF;
2201:
2202: -- Check if split to all nonrevenue type or not / bug 2130062
2203: l_split_to_all_nonrevenue_type := 'Y';
2337: FND_MESSAGE.Set_Name('CN', 'CN_NO_REC_DEAL');
2338: FND_MSG_PUB.Add;
2339: END IF;
2340: x_loading_status := 'CN_NO_REC_DEAL';
2341: RAISE FND_API.G_EXC_ERROR;
2342: END IF;
2343:
2344: END IF; -- 9 end
2345:
2342: END IF;
2343:
2344: END IF; -- 9 end
2345:
2346: IF (p_invoice_number <> FND_API.G_MISS_CHAR) THEN -- 10
2347: cn_invoice_changes_pvt.capture_deal_invoice(
2348: p_api_version => p_api_version,
2349: p_trx_type => 'INV',
2350: p_split_nonrevenue_line => l_split_nonrevenue_line,
2478: FND_MESSAGE.Set_Name('CN', 'CN_NO_REC_DEAL');
2479: FND_MSG_PUB.Add;
2480: END IF;
2481: x_loading_status := 'CN_NO_REC_DEAL';
2482: RAISE FND_API.G_EXC_ERROR;
2483: END IF; -- 11 end
2484: --
2485: IF ((g_track_invoice = 'Y') AND (l_new_data.COUNT > 0)) THEN -- 12
2486: --
2503: x_msg_count => x_msg_count,
2504: x_msg_data => x_msg_data,
2505: x_loading_status => x_loading_status);
2506: --
2507: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2508: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2509: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
2510: FND_MSG_PUB.Add;
2511: END IF;
2509: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
2510: FND_MSG_PUB.Add;
2511: END IF;
2512: x_loading_status := 'CN_UPDATE_INV_ERROR';
2513: RAISE FND_API.G_EXC_ERROR;
2514: END IF;
2515: END IF; -- 12 end
2516: --
2517: IF ((g_track_invoice = 'Y') AND (l_deal_data_tbl.COUNT > 0)) THEN -- 13
2661:
2662:
2663:
2664: EXCEPTION
2665: WHEN FND_API.G_EXC_ERROR THEN
2666: ROLLBACK TO call_split;
2667: x_return_status := FND_API.G_RET_STS_ERROR ;
2668: FND_MSG_PUB.Count_And_Get(
2669: p_count => x_msg_count ,
2663:
2664: EXCEPTION
2665: WHEN FND_API.G_EXC_ERROR THEN
2666: ROLLBACK TO call_split;
2667: x_return_status := FND_API.G_RET_STS_ERROR ;
2668: FND_MSG_PUB.Count_And_Get(
2669: p_count => x_msg_count ,
2670: p_data => x_msg_data ,
2671: p_encoded => FND_API.G_FALSE);
2667: x_return_status := FND_API.G_RET_STS_ERROR ;
2668: FND_MSG_PUB.Count_And_Get(
2669: p_count => x_msg_count ,
2670: p_data => x_msg_data ,
2671: p_encoded => FND_API.G_FALSE);
2672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2673: ROLLBACK TO call_split;
2674: x_loading_status := 'UNEXPECTED_ERR';
2675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2668: FND_MSG_PUB.Count_And_Get(
2669: p_count => x_msg_count ,
2670: p_data => x_msg_data ,
2671: p_encoded => FND_API.G_FALSE);
2672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2673: ROLLBACK TO call_split;
2674: x_loading_status := 'UNEXPECTED_ERR';
2675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2676: FND_MSG_PUB.Count_And_Get(
2671: p_encoded => FND_API.G_FALSE);
2672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2673: ROLLBACK TO call_split;
2674: x_loading_status := 'UNEXPECTED_ERR';
2675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2676: FND_MSG_PUB.Count_And_Get(
2677: p_count => x_msg_count ,
2678: p_data => x_msg_data ,
2679: p_encoded => FND_API.G_FALSE);
2675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2676: FND_MSG_PUB.Count_And_Get(
2677: p_count => x_msg_count ,
2678: p_data => x_msg_data ,
2679: p_encoded => FND_API.G_FALSE);
2680: WHEN OTHERS THEN
2681: ROLLBACK TO call_split;
2682: x_loading_status := 'UNEXPECTED_ERR';
2683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2679: p_encoded => FND_API.G_FALSE);
2680: WHEN OTHERS THEN
2681: ROLLBACK TO call_split;
2682: x_loading_status := 'UNEXPECTED_ERR';
2683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2684: IF FND_MSG_PUB.Check_Msg_Level(
2685: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2686: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2687: END IF;
2687: END IF;
2688: FND_MSG_PUB.Count_And_Get(
2689: p_count => x_msg_count ,
2690: p_data => x_msg_data ,
2691: p_encoded => FND_API.G_FALSE);
2692: END;
2693: --
2694: PROCEDURE get_trx_lines(
2695: p_api_version IN NUMBER,
2692: END;
2693: --
2694: PROCEDURE get_trx_lines(
2695: p_api_version IN NUMBER,
2696: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2697: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2698: p_header_id IN NUMBER := FND_API.G_MISS_NUM,
2699: x_return_status OUT NOCOPY VARCHAR2,
2700: x_msg_count OUT NOCOPY NUMBER,
2693: --
2694: PROCEDURE get_trx_lines(
2695: p_api_version IN NUMBER,
2696: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2697: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2698: p_header_id IN NUMBER := FND_API.G_MISS_NUM,
2699: x_return_status OUT NOCOPY VARCHAR2,
2700: x_msg_count OUT NOCOPY NUMBER,
2701: x_msg_data OUT NOCOPY VARCHAR2,
2694: PROCEDURE get_trx_lines(
2695: p_api_version IN NUMBER,
2696: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2697: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2698: p_header_id IN NUMBER := FND_API.G_MISS_NUM,
2699: x_return_status OUT NOCOPY VARCHAR2,
2700: x_msg_count OUT NOCOPY NUMBER,
2701: x_msg_data OUT NOCOPY VARCHAR2,
2702: x_loading_status OUT NOCOPY VARCHAR2,
2714: BEGIN
2715: -- Standard Start of API savepoint
2716: SAVEPOINT get_trx_lines;
2717: -- Standard call to check for call compatibility.
2718: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2719: p_api_version ,
2720: l_api_name,
2721: G_PKG_NAME ) THEN
2722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2718: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2719: p_api_version ,
2720: l_api_name,
2721: G_PKG_NAME ) THEN
2722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2723: END IF;
2724: -- Initialize message list if p_init_msg_list is set to TRUE.
2725: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2726: FND_MSG_PUB.initialize;
2721: G_PKG_NAME ) THEN
2722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2723: END IF;
2724: -- Initialize message list if p_init_msg_list is set to TRUE.
2725: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2726: FND_MSG_PUB.initialize;
2727: END IF;
2728: -- Initialize API return status to success
2729: x_return_status := FND_API.G_RET_STS_SUCCESS;
2725: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2726: FND_MSG_PUB.initialize;
2727: END IF;
2728: -- Initialize API return status to success
2729: x_return_status := FND_API.G_RET_STS_SUCCESS;
2730: x_loading_status := 'CN_INSERTED';
2731: -- API body
2732: FOR line_rec IN line_cur
2733: LOOP
2754: x_trx_line_tbl(l_tbl_count).payee := line_rec.payee;
2755: END LOOP;
2756: x_tbl_count := x_trx_line_tbl.COUNT;
2757: EXCEPTION
2758: WHEN FND_API.G_EXC_ERROR THEN
2759: ROLLBACK TO get_trx_lines;
2760: x_return_status := FND_API.G_RET_STS_ERROR ;
2761: FND_MSG_PUB.Count_And_Get(
2762: p_count => x_msg_count ,
2756: x_tbl_count := x_trx_line_tbl.COUNT;
2757: EXCEPTION
2758: WHEN FND_API.G_EXC_ERROR THEN
2759: ROLLBACK TO get_trx_lines;
2760: x_return_status := FND_API.G_RET_STS_ERROR ;
2761: FND_MSG_PUB.Count_And_Get(
2762: p_count => x_msg_count ,
2763: p_data => x_msg_data ,
2764: p_encoded => FND_API.G_FALSE);
2760: x_return_status := FND_API.G_RET_STS_ERROR ;
2761: FND_MSG_PUB.Count_And_Get(
2762: p_count => x_msg_count ,
2763: p_data => x_msg_data ,
2764: p_encoded => FND_API.G_FALSE);
2765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2766: ROLLBACK TO get_trx_lines;
2767: x_loading_status := 'UNEXPECTED_ERR';
2768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2761: FND_MSG_PUB.Count_And_Get(
2762: p_count => x_msg_count ,
2763: p_data => x_msg_data ,
2764: p_encoded => FND_API.G_FALSE);
2765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2766: ROLLBACK TO get_trx_lines;
2767: x_loading_status := 'UNEXPECTED_ERR';
2768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2769: FND_MSG_PUB.Count_And_Get(
2764: p_encoded => FND_API.G_FALSE);
2765: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2766: ROLLBACK TO get_trx_lines;
2767: x_loading_status := 'UNEXPECTED_ERR';
2768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2769: FND_MSG_PUB.Count_And_Get(
2770: p_count => x_msg_count ,
2771: p_data => x_msg_data ,
2772: p_encoded => FND_API.G_FALSE);
2768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2769: FND_MSG_PUB.Count_And_Get(
2770: p_count => x_msg_count ,
2771: p_data => x_msg_data ,
2772: p_encoded => FND_API.G_FALSE);
2773: WHEN OTHERS THEN
2774: ROLLBACK TO get_trx_lines;
2775: x_loading_status := 'UNEXPECTED_ERR';
2776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2772: p_encoded => FND_API.G_FALSE);
2773: WHEN OTHERS THEN
2774: ROLLBACK TO get_trx_lines;
2775: x_loading_status := 'UNEXPECTED_ERR';
2776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2777: IF FND_MSG_PUB.Check_Msg_Level(
2778: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2779: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2780: END IF;
2780: END IF;
2781: FND_MSG_PUB.Count_And_Get(
2782: p_count => x_msg_count ,
2783: p_data => x_msg_data ,
2784: p_encoded => FND_API.G_FALSE);
2785: END;
2786: --
2787: PROCEDURE get_trx_history(
2788: p_api_version IN NUMBER,
2785: END;
2786: --
2787: PROCEDURE get_trx_history(
2788: p_api_version IN NUMBER,
2789: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2790: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2791: p_adj_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
2792: x_return_status OUT NOCOPY VARCHAR2,
2793: x_msg_count OUT NOCOPY NUMBER,
2786: --
2787: PROCEDURE get_trx_history(
2788: p_api_version IN NUMBER,
2789: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2790: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2791: p_adj_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
2792: x_return_status OUT NOCOPY VARCHAR2,
2793: x_msg_count OUT NOCOPY NUMBER,
2794: x_msg_data OUT NOCOPY VARCHAR2,
2787: PROCEDURE get_trx_history(
2788: p_api_version IN NUMBER,
2789: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2790: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2791: p_adj_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
2792: x_return_status OUT NOCOPY VARCHAR2,
2793: x_msg_count OUT NOCOPY NUMBER,
2794: x_msg_data OUT NOCOPY VARCHAR2,
2795: x_loading_status OUT NOCOPY VARCHAR2,
2841: -- Standard Start of API savepoint
2842: SAVEPOINT get_trx_history;
2843:
2844: -- Standard call to check for call compatibility.
2845: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2846: p_api_version ,
2847: l_api_name,
2848: G_PKG_NAME ) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2845: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2846: p_api_version ,
2847: l_api_name,
2848: G_PKG_NAME ) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851: -- Initialize message list if p_init_msg_list is set to TRUE.
2852: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2853: FND_MSG_PUB.initialize;
2848: G_PKG_NAME ) THEN
2849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2850: END IF;
2851: -- Initialize message list if p_init_msg_list is set to TRUE.
2852: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2853: FND_MSG_PUB.initialize;
2854: END IF;
2855: -- Initialize API return status to success
2856: x_return_status := FND_API.G_RET_STS_SUCCESS;
2852: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2853: FND_MSG_PUB.initialize;
2854: END IF;
2855: -- Initialize API return status to success
2856: x_return_status := FND_API.G_RET_STS_SUCCESS;
2857: x_loading_status := 'CN_INSERTED';
2858: -- API body
2859: FOR adj IN header_hist_cur
2860: LOOP
2887: l_tbl_count := l_tbl_count + 1;
2888: END LOOP;
2889: x_adj_count := x_adj_tbl.COUNT;
2890: EXCEPTION
2891: WHEN FND_API.G_EXC_ERROR THEN
2892: x_return_status := FND_API.G_RET_STS_ERROR ;
2893: FND_MSG_PUB.Count_And_Get(
2894: p_count => x_msg_count ,
2895: p_data => x_msg_data ,
2888: END LOOP;
2889: x_adj_count := x_adj_tbl.COUNT;
2890: EXCEPTION
2891: WHEN FND_API.G_EXC_ERROR THEN
2892: x_return_status := FND_API.G_RET_STS_ERROR ;
2893: FND_MSG_PUB.Count_And_Get(
2894: p_count => x_msg_count ,
2895: p_data => x_msg_data ,
2896: p_encoded => FND_API.G_FALSE);
2892: x_return_status := FND_API.G_RET_STS_ERROR ;
2893: FND_MSG_PUB.Count_And_Get(
2894: p_count => x_msg_count ,
2895: p_data => x_msg_data ,
2896: p_encoded => FND_API.G_FALSE);
2897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2898: x_loading_status := 'UNEXPECTED_ERR';
2899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2900: FND_MSG_PUB.Count_And_Get(
2893: FND_MSG_PUB.Count_And_Get(
2894: p_count => x_msg_count ,
2895: p_data => x_msg_data ,
2896: p_encoded => FND_API.G_FALSE);
2897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2898: x_loading_status := 'UNEXPECTED_ERR';
2899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2900: FND_MSG_PUB.Count_And_Get(
2901: p_count => x_msg_count ,
2895: p_data => x_msg_data ,
2896: p_encoded => FND_API.G_FALSE);
2897: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2898: x_loading_status := 'UNEXPECTED_ERR';
2899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2900: FND_MSG_PUB.Count_And_Get(
2901: p_count => x_msg_count ,
2902: p_data => x_msg_data ,
2903: p_encoded => FND_API.G_FALSE);
2899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2900: FND_MSG_PUB.Count_And_Get(
2901: p_count => x_msg_count ,
2902: p_data => x_msg_data ,
2903: p_encoded => FND_API.G_FALSE);
2904: WHEN OTHERS THEN
2905: x_loading_status := 'UNEXPECTED_ERR';
2906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2907: IF FND_MSG_PUB.Check_Msg_Level(
2902: p_data => x_msg_data ,
2903: p_encoded => FND_API.G_FALSE);
2904: WHEN OTHERS THEN
2905: x_loading_status := 'UNEXPECTED_ERR';
2906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2907: IF FND_MSG_PUB.Check_Msg_Level(
2908: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2909: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2910: END IF;
2910: END IF;
2911: FND_MSG_PUB.Count_And_Get(
2912: p_count => x_msg_count ,
2913: p_data => x_msg_data ,
2914: p_encoded => FND_API.G_FALSE);
2915: END;
2916: --
2917: PROCEDURE get_cust_info(
2918: p_api_version IN NUMBER,
2915: END;
2916: --
2917: PROCEDURE get_cust_info(
2918: p_api_version IN NUMBER,
2919: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2920: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2921: p_comm_lines_api_id IN NUMBER,
2922: p_load_status IN VARCHAR2,
2923: x_return_status OUT NOCOPY VARCHAR2,
2916: --
2917: PROCEDURE get_cust_info(
2918: p_api_version IN NUMBER,
2919: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2920: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2921: p_comm_lines_api_id IN NUMBER,
2922: p_load_status IN VARCHAR2,
2923: x_return_status OUT NOCOPY VARCHAR2,
2924: x_msg_count OUT NOCOPY NUMBER,
2935: -- Standard Start of API savepoint
2936: SAVEPOINT get_cust_info;
2937:
2938: -- Standard call to check for call compatibility.
2939: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2940: p_api_version ,
2941: l_api_name,
2942: G_PKG_NAME ) THEN
2943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2939: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2940: p_api_version ,
2941: l_api_name,
2942: G_PKG_NAME ) THEN
2943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2944: END IF;
2945: -- Initialize message list if p_init_msg_list is set to TRUE.
2946: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2947: FND_MSG_PUB.initialize;
2942: G_PKG_NAME ) THEN
2943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2944: END IF;
2945: -- Initialize message list if p_init_msg_list is set to TRUE.
2946: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2947: FND_MSG_PUB.initialize;
2948: END IF;
2949: -- Initialize API return status to success
2950: x_return_status := FND_API.G_RET_STS_SUCCESS;
2946: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2947: FND_MSG_PUB.initialize;
2948: END IF;
2949: -- Initialize API return status to success
2950: x_return_status := FND_API.G_RET_STS_SUCCESS;
2951: x_loading_status := 'CN_INSERTED';
2952: -- API body
2953: cn_adjustments_pkg.get_cust_info(
2954: p_comm_lines_api_id => p_comm_lines_api_id,
2977: x_cust_info_rec.bill_to_contact := l_cust_info_rec.bill_to_contact;
2978: x_cust_info_rec.ship_to_contact_id := l_cust_info_rec.ship_to_contact_id;
2979: x_cust_info_rec.ship_to_contact := l_cust_info_rec.ship_to_contact;
2980: EXCEPTION
2981: WHEN FND_API.G_EXC_ERROR THEN
2982: x_return_status := FND_API.G_RET_STS_ERROR ;
2983: FND_MSG_PUB.Count_And_Get(
2984: p_count => x_msg_count ,
2985: p_data => x_msg_data ,
2978: x_cust_info_rec.ship_to_contact_id := l_cust_info_rec.ship_to_contact_id;
2979: x_cust_info_rec.ship_to_contact := l_cust_info_rec.ship_to_contact;
2980: EXCEPTION
2981: WHEN FND_API.G_EXC_ERROR THEN
2982: x_return_status := FND_API.G_RET_STS_ERROR ;
2983: FND_MSG_PUB.Count_And_Get(
2984: p_count => x_msg_count ,
2985: p_data => x_msg_data ,
2986: p_encoded => FND_API.G_FALSE);
2982: x_return_status := FND_API.G_RET_STS_ERROR ;
2983: FND_MSG_PUB.Count_And_Get(
2984: p_count => x_msg_count ,
2985: p_data => x_msg_data ,
2986: p_encoded => FND_API.G_FALSE);
2987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2988: x_loading_status := 'UNEXPECTED_ERR';
2989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2990: FND_MSG_PUB.Count_And_Get(
2983: FND_MSG_PUB.Count_And_Get(
2984: p_count => x_msg_count ,
2985: p_data => x_msg_data ,
2986: p_encoded => FND_API.G_FALSE);
2987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2988: x_loading_status := 'UNEXPECTED_ERR';
2989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2990: FND_MSG_PUB.Count_And_Get(
2991: p_count => x_msg_count ,
2985: p_data => x_msg_data ,
2986: p_encoded => FND_API.G_FALSE);
2987: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2988: x_loading_status := 'UNEXPECTED_ERR';
2989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2990: FND_MSG_PUB.Count_And_Get(
2991: p_count => x_msg_count ,
2992: p_data => x_msg_data ,
2993: p_encoded => FND_API.G_FALSE);
2989: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2990: FND_MSG_PUB.Count_And_Get(
2991: p_count => x_msg_count ,
2992: p_data => x_msg_data ,
2993: p_encoded => FND_API.G_FALSE);
2994: WHEN OTHERS THEN
2995: x_loading_status := 'UNEXPECTED_ERR';
2996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2997: IF FND_MSG_PUB.Check_Msg_Level(
2992: p_data => x_msg_data ,
2993: p_encoded => FND_API.G_FALSE);
2994: WHEN OTHERS THEN
2995: x_loading_status := 'UNEXPECTED_ERR';
2996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2997: IF FND_MSG_PUB.Check_Msg_Level(
2998: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2999: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
3000: END IF;
3000: END IF;
3001: FND_MSG_PUB.Count_And_Get(
3002: p_count => x_msg_count ,
3003: p_data => x_msg_data ,
3004: p_encoded => FND_API.G_FALSE);
3005: END;
3006: --
3007: PROCEDURE update_api_record(
3008: p_api_version IN NUMBER,
3005: END;
3006: --
3007: PROCEDURE update_api_record(
3008: p_api_version IN NUMBER,
3009: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3010: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3011: p_newtx_rec IN adj_rec_type,
3012: x_api_id OUT NOCOPY NUMBER,
3013: x_return_status OUT NOCOPY VARCHAR2,
3006: --
3007: PROCEDURE update_api_record(
3008: p_api_version IN NUMBER,
3009: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3010: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3011: p_newtx_rec IN adj_rec_type,
3012: x_api_id OUT NOCOPY NUMBER,
3013: x_return_status OUT NOCOPY VARCHAR2,
3014: x_msg_count OUT NOCOPY NUMBER,
3032: BEGIN
3033: -- Standard Start of API savepoint
3034: SAVEPOINT update_api_record;
3035: -- Standard call to check for call compatibility.
3036: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3037: p_api_version ,
3038: l_api_name,
3039: G_PKG_NAME ) THEN
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3036: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3037: p_api_version ,
3038: l_api_name,
3039: G_PKG_NAME ) THEN
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3041: END IF;
3042: -- Initialize message list if p_init_msg_list is set to TRUE.
3043: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3044: FND_MSG_PUB.initialize;
3039: G_PKG_NAME ) THEN
3040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3041: END IF;
3042: -- Initialize message list if p_init_msg_list is set to TRUE.
3043: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3044: FND_MSG_PUB.initialize;
3045: END IF;
3046: -- Initialize API return status to success
3047: x_return_status := FND_API.G_RET_STS_SUCCESS;
3043: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3044: FND_MSG_PUB.initialize;
3045: END IF;
3046: -- Initialize API return status to success
3047: x_return_status := FND_API.G_RET_STS_SUCCESS;
3048: x_loading_status := 'CN_INSERTED';
3049: x_api_id := fnd_api.g_miss_num;
3050:
3051: ---- Bug 8882352 ----
3045: END IF;
3046: -- Initialize API return status to success
3047: x_return_status := FND_API.G_RET_STS_SUCCESS;
3048: x_loading_status := 'CN_INSERTED';
3049: x_api_id := fnd_api.g_miss_num;
3050:
3051: ---- Bug 8882352 ----
3052: SELECT count(a.comm_lines_api_id)
3053: INTO l_comm_line_count
3064: FND_MESSAGE.Set_Name('CN', 'CN_ADJ_ADJUST_OBSOLETE');
3065: FND_MSG_PUB.Add;
3066: END IF;
3067: x_loading_status := 'CN_ADJUST_TX_ERROR';
3068: RAISE FND_API.G_EXC_ERROR;
3069: END IF;
3070: --- End Bug 8882352 fix---
3071:
3072:
3109: x_msg_count => x_msg_count,
3110: x_msg_data => x_msg_data,
3111: x_loading_status => x_loading_status);
3112: --
3113: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3114: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
3115: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
3116: FND_MSG_PUB.Add;
3117: END IF;
3115: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
3116: FND_MSG_PUB.Add;
3117: END IF;
3118: x_loading_status := 'CN_UPDATE_INV_ERROR';
3119: RAISE FND_API.G_EXC_ERROR;
3120: END IF;
3121: --
3122: END IF;
3123: --
3196: x_msg_count => x_msg_count,
3197: x_msg_data => x_msg_data,
3198: x_loading_status => x_loading_status);
3199: --
3200: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3201: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
3202: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
3203: FND_MSG_PUB.Add;
3204: END IF;
3202: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
3203: FND_MSG_PUB.Add;
3204: END IF;
3205: x_loading_status := 'CN_UPDATE_INV_ERROR';
3206: RAISE FND_API.G_EXC_ERROR;
3207: END IF;
3208: --
3209: END IF;
3210: --
3226: END IF;
3227: --
3228:
3229: EXCEPTION
3230: WHEN FND_API.G_EXC_ERROR THEN
3231: x_return_status := FND_API.G_RET_STS_ERROR ;
3232: FND_MSG_PUB.Count_And_Get(
3233: p_count => x_msg_count ,
3234: p_data => x_msg_data ,
3227: --
3228:
3229: EXCEPTION
3230: WHEN FND_API.G_EXC_ERROR THEN
3231: x_return_status := FND_API.G_RET_STS_ERROR ;
3232: FND_MSG_PUB.Count_And_Get(
3233: p_count => x_msg_count ,
3234: p_data => x_msg_data ,
3235: p_encoded => FND_API.G_FALSE);
3231: x_return_status := FND_API.G_RET_STS_ERROR ;
3232: FND_MSG_PUB.Count_And_Get(
3233: p_count => x_msg_count ,
3234: p_data => x_msg_data ,
3235: p_encoded => FND_API.G_FALSE);
3236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3237: x_loading_status := 'UNEXPECTED_ERR';
3238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3239: FND_MSG_PUB.Count_And_Get(
3232: FND_MSG_PUB.Count_And_Get(
3233: p_count => x_msg_count ,
3234: p_data => x_msg_data ,
3235: p_encoded => FND_API.G_FALSE);
3236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3237: x_loading_status := 'UNEXPECTED_ERR';
3238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3239: FND_MSG_PUB.Count_And_Get(
3240: p_count => x_msg_count ,
3234: p_data => x_msg_data ,
3235: p_encoded => FND_API.G_FALSE);
3236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3237: x_loading_status := 'UNEXPECTED_ERR';
3238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3239: FND_MSG_PUB.Count_And_Get(
3240: p_count => x_msg_count ,
3241: p_data => x_msg_data ,
3242: p_encoded => FND_API.G_FALSE);
3238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3239: FND_MSG_PUB.Count_And_Get(
3240: p_count => x_msg_count ,
3241: p_data => x_msg_data ,
3242: p_encoded => FND_API.G_FALSE);
3243: WHEN OTHERS THEN
3244: x_loading_status := 'UNEXPECTED_ERR';
3245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3246: IF FND_MSG_PUB.Check_Msg_Level(
3241: p_data => x_msg_data ,
3242: p_encoded => FND_API.G_FALSE);
3243: WHEN OTHERS THEN
3244: x_loading_status := 'UNEXPECTED_ERR';
3245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3246: IF FND_MSG_PUB.Check_Msg_Level(
3247: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3248: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
3249: END IF;
3249: END IF;
3250: FND_MSG_PUB.Count_And_Get(
3251: p_count => x_msg_count ,
3252: p_data => x_msg_data ,
3253: p_encoded => FND_API.G_FALSE);
3254: END;
3255: --
3256: PROCEDURE call_load(
3257: p_api_version IN NUMBER,
3254: END;
3255: --
3256: PROCEDURE call_load(
3257: p_api_version IN NUMBER,
3258: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3260: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3261: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
3262: p_pr_date_from IN DATE,
3255: --
3256: PROCEDURE call_load(
3257: p_api_version IN NUMBER,
3258: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3260: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3261: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
3262: p_pr_date_from IN DATE,
3263: p_pr_date_to IN DATE,
3256: PROCEDURE call_load(
3257: p_api_version IN NUMBER,
3258: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3260: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3261: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
3262: p_pr_date_from IN DATE,
3263: p_pr_date_to IN DATE,
3264: p_cls_rol_flag IN CHAR,
3257: p_api_version IN NUMBER,
3258: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3259: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3260: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3261: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
3262: p_pr_date_from IN DATE,
3263: p_pr_date_to IN DATE,
3264: p_cls_rol_flag IN CHAR,
3265: p_load_method IN VARCHAR2,
3278: BEGIN
3279: -- Standard Start of API savepoint
3280: SAVEPOINT call_load;
3281: -- Standard call to check for call compatibility.
3282: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3283: p_api_version ,
3284: l_api_name,
3285: G_PKG_NAME ) THEN
3286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3282: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3283: p_api_version ,
3284: l_api_name,
3285: G_PKG_NAME ) THEN
3286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3287: END IF;
3288: -- Initialize message list if p_init_msg_list is set to TRUE.
3289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3290: FND_MSG_PUB.initialize;
3285: G_PKG_NAME ) THEN
3286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3287: END IF;
3288: -- Initialize message list if p_init_msg_list is set to TRUE.
3289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3290: FND_MSG_PUB.initialize;
3291: END IF;
3292: -- Initialize API return status to success
3293: x_return_status := FND_API.G_RET_STS_SUCCESS;
3289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3290: FND_MSG_PUB.initialize;
3291: END IF;
3292: -- Initialize API return status to success
3293: x_return_status := FND_API.G_RET_STS_SUCCESS;
3294: x_loading_status := 'CN_INSERTED';
3295: IF (p_salesrep_id = FND_API.G_MISS_NUM) THEN
3296: l_salesrep_id := NULL;
3297: ELSE
3291: END IF;
3292: -- Initialize API return status to success
3293: x_return_status := FND_API.G_RET_STS_SUCCESS;
3294: x_loading_status := 'CN_INSERTED';
3295: IF (p_salesrep_id = FND_API.G_MISS_NUM) THEN
3296: l_salesrep_id := NULL;
3297: ELSE
3298: l_salesrep_id := p_salesrep_id;
3299: END IF;
3327: x_loading_status => x_loading_status,
3328: x_process_audit_id => x_process_audit_id);
3329: END IF;
3330: EXCEPTION
3331: WHEN FND_API.G_EXC_ERROR THEN
3332: x_return_status := FND_API.G_RET_STS_ERROR ;
3333: FND_MSG_PUB.Count_And_Get(
3334: p_count => x_msg_count ,
3335: p_data => x_msg_data ,
3328: x_process_audit_id => x_process_audit_id);
3329: END IF;
3330: EXCEPTION
3331: WHEN FND_API.G_EXC_ERROR THEN
3332: x_return_status := FND_API.G_RET_STS_ERROR ;
3333: FND_MSG_PUB.Count_And_Get(
3334: p_count => x_msg_count ,
3335: p_data => x_msg_data ,
3336: p_encoded => FND_API.G_FALSE);
3332: x_return_status := FND_API.G_RET_STS_ERROR ;
3333: FND_MSG_PUB.Count_And_Get(
3334: p_count => x_msg_count ,
3335: p_data => x_msg_data ,
3336: p_encoded => FND_API.G_FALSE);
3337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3338: x_loading_status := 'UNEXPECTED_ERR';
3339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3340: FND_MSG_PUB.Count_And_Get(
3333: FND_MSG_PUB.Count_And_Get(
3334: p_count => x_msg_count ,
3335: p_data => x_msg_data ,
3336: p_encoded => FND_API.G_FALSE);
3337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3338: x_loading_status := 'UNEXPECTED_ERR';
3339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3340: FND_MSG_PUB.Count_And_Get(
3341: p_count => x_msg_count ,
3335: p_data => x_msg_data ,
3336: p_encoded => FND_API.G_FALSE);
3337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3338: x_loading_status := 'UNEXPECTED_ERR';
3339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3340: FND_MSG_PUB.Count_And_Get(
3341: p_count => x_msg_count ,
3342: p_data => x_msg_data ,
3343: p_encoded => FND_API.G_FALSE);
3339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3340: FND_MSG_PUB.Count_And_Get(
3341: p_count => x_msg_count ,
3342: p_data => x_msg_data ,
3343: p_encoded => FND_API.G_FALSE);
3344: WHEN OTHERS THEN
3345: x_loading_status := 'UNEXPECTED_ERR';
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3347: IF FND_MSG_PUB.Check_Msg_Level(
3342: p_data => x_msg_data ,
3343: p_encoded => FND_API.G_FALSE);
3344: WHEN OTHERS THEN
3345: x_loading_status := 'UNEXPECTED_ERR';
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3347: IF FND_MSG_PUB.Check_Msg_Level(
3348: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3349: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
3350: END IF;
3350: END IF;
3351: FND_MSG_PUB.Count_And_Get(
3352: p_count => x_msg_count ,
3353: p_data => x_msg_data ,
3354: p_encoded => FND_API.G_FALSE);
3355: END;
3356: --
3357: END cn_get_tx_data_pub;
3358: