[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. */
689: END IF;
690: x_adj_count := l_total_rows;
691: x_valid_trx_count := l_valid_trx_counter;
692: EXCEPTION
693: WHEN FND_API.G_EXC_ERROR THEN
694: ROLLBACK TO get_adj;
695: x_return_status := FND_API.G_RET_STS_ERROR ;
696: FND_MSG_PUB.Count_And_Get(
697: p_count => x_msg_count ,
691: x_valid_trx_count := l_valid_trx_counter;
692: EXCEPTION
693: WHEN FND_API.G_EXC_ERROR THEN
694: ROLLBACK TO get_adj;
695: x_return_status := FND_API.G_RET_STS_ERROR ;
696: FND_MSG_PUB.Count_And_Get(
697: p_count => x_msg_count ,
698: p_data => x_msg_data ,
699: p_encoded => FND_API.G_FALSE);
695: x_return_status := FND_API.G_RET_STS_ERROR ;
696: FND_MSG_PUB.Count_And_Get(
697: p_count => x_msg_count ,
698: p_data => x_msg_data ,
699: p_encoded => FND_API.G_FALSE);
700: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
701: ROLLBACK TO get_adj;
702: x_loading_status := 'UNEXPECTED_ERR';
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
696: FND_MSG_PUB.Count_And_Get(
697: p_count => x_msg_count ,
698: p_data => x_msg_data ,
699: p_encoded => FND_API.G_FALSE);
700: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
701: ROLLBACK TO get_adj;
702: x_loading_status := 'UNEXPECTED_ERR';
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
704: FND_MSG_PUB.Count_And_Get(
699: p_encoded => FND_API.G_FALSE);
700: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
701: ROLLBACK TO get_adj;
702: x_loading_status := 'UNEXPECTED_ERR';
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
704: FND_MSG_PUB.Count_And_Get(
705: p_count => x_msg_count ,
706: p_data => x_msg_data ,
707: p_encoded => FND_API.G_FALSE);
703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
704: FND_MSG_PUB.Count_And_Get(
705: p_count => x_msg_count ,
706: p_data => x_msg_data ,
707: p_encoded => FND_API.G_FALSE);
708: WHEN OTHERS THEN
709: ROLLBACK TO get_adj;
710: x_loading_status := 'UNEXPECTED_ERR';
711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
707: p_encoded => FND_API.G_FALSE);
708: WHEN OTHERS THEN
709: ROLLBACK TO get_adj;
710: x_loading_status := 'UNEXPECTED_ERR';
711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
712: IF FND_MSG_PUB.Check_Msg_Level(
713: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
714: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
715: END IF;
715: END IF;
716: FND_MSG_PUB.Count_And_Get(
717: p_count => x_msg_count ,
718: p_data => x_msg_data ,
719: p_encoded => FND_API.G_FALSE);
720: END;
721: --
722: PROCEDURE get_split_data(
723: p_api_version IN NUMBER,
720: END;
721: --
722: PROCEDURE get_split_data(
723: p_api_version IN NUMBER,
724: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
725: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
726: p_comm_lines_api_id IN NUMBER DEFAULT NULL,
727: p_load_status IN VARCHAR2 DEFAULT NULL,
728: x_return_status OUT NOCOPY VARCHAR2,
721: --
722: PROCEDURE get_split_data(
723: p_api_version IN NUMBER,
724: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
725: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
726: p_comm_lines_api_id IN NUMBER DEFAULT NULL,
727: p_load_status IN VARCHAR2 DEFAULT NULL,
728: x_return_status OUT NOCOPY VARCHAR2,
729: x_msg_count OUT NOCOPY NUMBER,
784: --
785: BEGIN
786: -- Standard Start of API savepoint
787: SAVEPOINT get_split_data;
788: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
789: p_api_version ,
790: l_api_name,
791: G_PKG_NAME ) THEN
792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
788: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
789: p_api_version ,
790: l_api_name,
791: G_PKG_NAME ) THEN
792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
793: END IF;
794: -- Initialize message list if p_init_msg_list is set to TRUE.
795: IF FND_API.to_Boolean( p_init_msg_list ) THEN
796: FND_MSG_PUB.initialize;
791: G_PKG_NAME ) THEN
792: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
793: END IF;
794: -- Initialize message list if p_init_msg_list is set to TRUE.
795: IF FND_API.to_Boolean( p_init_msg_list ) THEN
796: FND_MSG_PUB.initialize;
797: END IF;
798: -- Initialize API return status to success
799: x_return_status := FND_API.G_RET_STS_SUCCESS;
795: IF FND_API.to_Boolean( p_init_msg_list ) THEN
796: FND_MSG_PUB.initialize;
797: END IF;
798: -- Initialize API return status to success
799: x_return_status := FND_API.G_RET_STS_SUCCESS;
800: x_loading_status := 'CN_INSERTED';
801:
802: -- API Body Begin
803: IF (p_load_status <> 'LOADED') THEN
1227: END;
1228: END IF;
1229: --
1230: EXCEPTION
1231: WHEN FND_API.G_EXC_ERROR THEN
1232: ROLLBACK TO get_split_data;
1233: x_return_status := FND_API.G_RET_STS_ERROR ;
1234: FND_MSG_PUB.Count_And_Get(
1235: p_count => x_msg_count ,
1229: --
1230: EXCEPTION
1231: WHEN FND_API.G_EXC_ERROR THEN
1232: ROLLBACK TO get_split_data;
1233: x_return_status := FND_API.G_RET_STS_ERROR ;
1234: FND_MSG_PUB.Count_And_Get(
1235: p_count => x_msg_count ,
1236: p_data => x_msg_data ,
1237: p_encoded => FND_API.G_FALSE);
1233: x_return_status := FND_API.G_RET_STS_ERROR ;
1234: FND_MSG_PUB.Count_And_Get(
1235: p_count => x_msg_count ,
1236: p_data => x_msg_data ,
1237: p_encoded => FND_API.G_FALSE);
1238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: ROLLBACK TO get_split_data;
1240: x_loading_status := 'UNEXPECTED_ERR';
1241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1234: FND_MSG_PUB.Count_And_Get(
1235: p_count => x_msg_count ,
1236: p_data => x_msg_data ,
1237: p_encoded => FND_API.G_FALSE);
1238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: ROLLBACK TO get_split_data;
1240: x_loading_status := 'UNEXPECTED_ERR';
1241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1242: FND_MSG_PUB.Count_And_Get(
1237: p_encoded => FND_API.G_FALSE);
1238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: ROLLBACK TO get_split_data;
1240: x_loading_status := 'UNEXPECTED_ERR';
1241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1242: FND_MSG_PUB.Count_And_Get(
1243: p_count => x_msg_count ,
1244: p_data => x_msg_data ,
1245: p_encoded => FND_API.G_FALSE);
1241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1242: FND_MSG_PUB.Count_And_Get(
1243: p_count => x_msg_count ,
1244: p_data => x_msg_data ,
1245: p_encoded => FND_API.G_FALSE);
1246: WHEN OTHERS THEN
1247: ROLLBACK TO get_split_data;
1248: x_loading_status := 'UNEXPECTED_ERR';
1249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1245: p_encoded => FND_API.G_FALSE);
1246: WHEN OTHERS THEN
1247: ROLLBACK TO get_split_data;
1248: x_loading_status := 'UNEXPECTED_ERR';
1249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1250: IF FND_MSG_PUB.Check_Msg_Level(
1251: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1252: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1253: END IF;
1253: END IF;
1254: FND_MSG_PUB.Count_And_Get(
1255: p_count => x_msg_count ,
1256: p_data => x_msg_data ,
1257: p_encoded => FND_API.G_FALSE);
1258: END;
1259: --
1260: PROCEDURE insert_api_record(
1261: p_api_version IN NUMBER,
1258: END;
1259: --
1260: PROCEDURE insert_api_record(
1261: p_api_version IN NUMBER,
1262: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1263: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1264: p_action IN VARCHAR2 DEFAULT NULL,
1265: p_newtx_rec IN adj_rec_type,
1266: x_api_id OUT NOCOPY NUMBER,
1259: --
1260: PROCEDURE insert_api_record(
1261: p_api_version IN NUMBER,
1262: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1263: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1264: p_action IN VARCHAR2 DEFAULT NULL,
1265: p_newtx_rec IN adj_rec_type,
1266: x_api_id OUT NOCOPY NUMBER,
1267: x_return_status OUT NOCOPY VARCHAR2,
1313: BEGIN
1314: -- Standard Start of API savepoint
1315: SAVEPOINT insert_api_record;
1316: -- Standard call to check for call compatibility.
1317: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1318: p_api_version ,
1319: l_api_name,
1320: G_PKG_NAME ) THEN
1321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1317: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1318: p_api_version ,
1319: l_api_name,
1320: G_PKG_NAME ) THEN
1321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1322: END IF;
1323: -- Initialize message list if p_init_msg_list is set to TRUE.
1324: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1325: FND_MSG_PUB.initialize;
1320: G_PKG_NAME ) THEN
1321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1322: END IF;
1323: -- Initialize message list if p_init_msg_list is set to TRUE.
1324: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1325: FND_MSG_PUB.initialize;
1326: END IF;
1327: -- Initialize API return status to success
1328: x_return_status := FND_API.G_RET_STS_SUCCESS;
1324: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1325: FND_MSG_PUB.initialize;
1326: END IF;
1327: -- Initialize API return status to success
1328: x_return_status := FND_API.G_RET_STS_SUCCESS;
1329: x_loading_status := 'CN_INSERTED';
1330: x_api_id := fnd_api.g_miss_num;
1331: -- API Body Begin
1332: -- Check for the open periods
1326: END IF;
1327: -- Initialize API return status to success
1328: x_return_status := FND_API.G_RET_STS_SUCCESS;
1329: x_loading_status := 'CN_INSERTED';
1330: x_api_id := fnd_api.g_miss_num;
1331: -- API Body Begin
1332: -- Check for the open periods
1333: SELECT count(1)
1334: INTO l_period_count
1343: FND_MESSAGE.Set_Name('CN', 'NOT_WITHIN_OPEN_PERIODS');
1344: FND_MSG_PUB.Add;
1345: END IF;
1346: x_loading_status := 'NOT_WITHIN_OPEN_PERIODS';
1347: RAISE FND_API.G_EXC_ERROR ;
1348: ELSE
1349: --
1350: BEGIN
1351: SELECT period_id
1409: IF (l_return_status = 'NO DATA') THEN
1410: FND_MESSAGE.SET_NAME('CN','CN_ADJ_NO_CONVERSION');
1411: FND_MSG_PUB.Add;
1412: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1414: ELSIF (l_return_status = 'ERROR') THEN
1415: FND_MESSAGE.SET_NAME('CN','CN_ADJ_CONV_ERROR');
1416: FND_MSG_PUB.Add;
1417: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1414: ELSIF (l_return_status = 'ERROR') THEN
1415: FND_MESSAGE.SET_NAME('CN','CN_ADJ_CONV_ERROR');
1416: FND_MSG_PUB.Add;
1417: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1419: END IF;
1420: END IF;
1421: END IF;
1422: ELSE
1439: IF (l_return_status = 'NO DATA') THEN
1440: FND_MESSAGE.SET_NAME('CN','CN_ADJ_NO_CONVERSION');
1441: FND_MSG_PUB.Add;
1442: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1444: ELSIF (l_return_status = 'ERROR') THEN
1445: FND_MESSAGE.SET_NAME('CN','CN_ADJ_CONV_ERROR');
1446: FND_MSG_PUB.Add;
1447: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1444: ELSIF (l_return_status = 'ERROR') THEN
1445: FND_MESSAGE.SET_NAME('CN','CN_ADJ_CONV_ERROR');
1446: FND_MSG_PUB.Add;
1447: x_loading_status := 'CN_ADJ_NO_CONVERSION';
1448: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1449: END IF;
1450: END IF;
1451: END IF;
1452: END IF;
1465: --
1466:
1467: END IF;
1468: EXCEPTION
1469: WHEN FND_API.G_EXC_ERROR THEN
1470: ROLLBACK TO insert_api_record;
1471: x_return_status := FND_API.G_RET_STS_ERROR ;
1472: FND_MSG_PUB.Count_And_Get(
1473: p_count => x_msg_count ,
1467: END IF;
1468: EXCEPTION
1469: WHEN FND_API.G_EXC_ERROR THEN
1470: ROLLBACK TO insert_api_record;
1471: x_return_status := FND_API.G_RET_STS_ERROR ;
1472: FND_MSG_PUB.Count_And_Get(
1473: p_count => x_msg_count ,
1474: p_data => x_msg_data ,
1475: p_encoded => FND_API.G_FALSE);
1471: x_return_status := FND_API.G_RET_STS_ERROR ;
1472: FND_MSG_PUB.Count_And_Get(
1473: p_count => x_msg_count ,
1474: p_data => x_msg_data ,
1475: p_encoded => FND_API.G_FALSE);
1476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1477: ROLLBACK TO insert_api_record;
1478: x_loading_status := 'UNEXPECTED_ERR';
1479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1472: FND_MSG_PUB.Count_And_Get(
1473: p_count => x_msg_count ,
1474: p_data => x_msg_data ,
1475: p_encoded => FND_API.G_FALSE);
1476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1477: ROLLBACK TO insert_api_record;
1478: x_loading_status := 'UNEXPECTED_ERR';
1479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1480: FND_MSG_PUB.Count_And_Get(
1475: p_encoded => FND_API.G_FALSE);
1476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1477: ROLLBACK TO insert_api_record;
1478: x_loading_status := 'UNEXPECTED_ERR';
1479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1480: FND_MSG_PUB.Count_And_Get(
1481: p_count => x_msg_count ,
1482: p_data => x_msg_data ,
1483: p_encoded => FND_API.G_FALSE);
1479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1480: FND_MSG_PUB.Count_And_Get(
1481: p_count => x_msg_count ,
1482: p_data => x_msg_data ,
1483: p_encoded => FND_API.G_FALSE);
1484: WHEN OTHERS THEN
1485: ROLLBACK TO insert_api_record;
1486: x_loading_status := 'UNEXPECTED_ERR';
1487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1483: p_encoded => FND_API.G_FALSE);
1484: WHEN OTHERS THEN
1485: ROLLBACK TO insert_api_record;
1486: x_loading_status := 'UNEXPECTED_ERR';
1487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1488: IF FND_MSG_PUB.Check_Msg_Level(
1489: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1490: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1491: END IF;
1491: END IF;
1492: FND_MSG_PUB.Count_And_Get(
1493: p_count => x_msg_count ,
1494: p_data => x_msg_data ,
1495: p_encoded => FND_API.G_FALSE);
1496: END;
1497: --
1498: PROCEDURE call_mass_update (
1499: p_api_version IN NUMBER,
1496: END;
1497: --
1498: PROCEDURE call_mass_update (
1499: p_api_version IN NUMBER,
1500: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1501: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1502: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1503: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1497: --
1498: PROCEDURE call_mass_update (
1499: p_api_version IN NUMBER,
1500: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1501: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1502: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1503: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1505: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1498: PROCEDURE call_mass_update (
1499: p_api_version IN NUMBER,
1500: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1501: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1502: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1503: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1505: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1506: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1499: p_api_version IN NUMBER,
1500: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1501: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1502: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1503: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1505: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1506: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1507: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1500: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1501: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1502: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1503: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1505: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1506: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1507: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1501: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1502: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1503: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1505: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1506: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1507: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1502: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1503: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1505: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1506: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1507: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1503: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1504: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1505: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1506: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1507: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1511: p_srch_attr_rec IN adj_rec_type,
1504: p_pr_date_to IN DATE := FND_API.G_MISS_DATE,
1505: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1506: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1507: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1511: p_srch_attr_rec IN adj_rec_type,
1512: p_mass_adj_type IN VARCHAR2 DEFAULT NULL,
1505: p_pr_date_from IN DATE := FND_API.G_MISS_DATE,
1506: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1507: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1511: p_srch_attr_rec IN adj_rec_type,
1512: p_mass_adj_type IN VARCHAR2 DEFAULT NULL,
1513: p_adj_rec IN adj_rec_type,
1506: p_calc_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1507: p_adj_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1508: p_load_status IN VARCHAR2 := FND_API.G_MISS_CHAR,
1509: p_invoice_num IN VARCHAR2 := FND_API.G_MISS_CHAR,
1510: p_order_num IN NUMBER := FND_API.G_MISS_NUM,
1511: p_srch_attr_rec IN adj_rec_type,
1512: p_mass_adj_type IN VARCHAR2 DEFAULT NULL,
1513: p_adj_rec IN adj_rec_type,
1514: x_return_status OUT NOCOPY VARCHAR2,
1533: --cn_mydebug.delete;
1534: -- Standard Start of API savepoint
1535: SAVEPOINT call_mass_update;
1536: -- Standard call to check for call compatibility.
1537: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1538: p_api_version ,
1539: l_api_name,
1540: G_PKG_NAME ) THEN
1541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1537: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1538: p_api_version ,
1539: l_api_name,
1540: G_PKG_NAME ) THEN
1541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1542: END IF;
1543: -- Initialize message list if p_init_msg_list is set to TRUE.
1544: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1545: FND_MSG_PUB.initialize;
1540: G_PKG_NAME ) THEN
1541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1542: END IF;
1543: -- Initialize message list if p_init_msg_list is set to TRUE.
1544: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1545: FND_MSG_PUB.initialize;
1546: END IF;
1547: -- Initialize API return status to success
1548: x_return_status := FND_API.G_RET_STS_SUCCESS;
1544: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1545: FND_MSG_PUB.initialize;
1546: END IF;
1547: -- Initialize API return status to success
1548: x_return_status := FND_API.G_RET_STS_SUCCESS;
1549: x_loading_status := 'CN_INSERTED';
1550: -- API body
1551: IF (g_track_invoice = 'Y') THEN
1552: /* First identify the unique invoices based on the search criteria
1609: X_mass_adj_type => p_mass_adj_type,
1610: X_proc_comp => l_proc_comp);
1611: --
1612: IF (l_proc_comp = 'E') THEN
1613: RAISE FND_API.G_EXC_ERROR;
1614: END IF;
1615: --
1616: IF (g_track_invoice = 'Y') THEN
1617: IF (l_existing_data.COUNT > 0) THEN
1631: END IF;
1632: END IF;
1633: --
1634: EXCEPTION
1635: WHEN FND_API.G_EXC_ERROR THEN
1636: ROLLBACK TO call_mass_update;
1637: x_return_status := FND_API.G_RET_STS_ERROR ;
1638: FND_MSG_PUB.Count_And_Get(
1639: p_count => x_msg_count ,
1633: --
1634: EXCEPTION
1635: WHEN FND_API.G_EXC_ERROR THEN
1636: ROLLBACK TO call_mass_update;
1637: x_return_status := FND_API.G_RET_STS_ERROR ;
1638: FND_MSG_PUB.Count_And_Get(
1639: p_count => x_msg_count ,
1640: p_data => x_msg_data ,
1641: p_encoded => FND_API.G_FALSE);
1637: x_return_status := FND_API.G_RET_STS_ERROR ;
1638: FND_MSG_PUB.Count_And_Get(
1639: p_count => x_msg_count ,
1640: p_data => x_msg_data ,
1641: p_encoded => FND_API.G_FALSE);
1642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1643: ROLLBACK TO call_mass_update;
1644: x_loading_status := 'UNEXPECTED_ERR';
1645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1638: FND_MSG_PUB.Count_And_Get(
1639: p_count => x_msg_count ,
1640: p_data => x_msg_data ,
1641: p_encoded => FND_API.G_FALSE);
1642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1643: ROLLBACK TO call_mass_update;
1644: x_loading_status := 'UNEXPECTED_ERR';
1645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1646: FND_MSG_PUB.Count_And_Get(
1641: p_encoded => FND_API.G_FALSE);
1642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1643: ROLLBACK TO call_mass_update;
1644: x_loading_status := 'UNEXPECTED_ERR';
1645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1646: FND_MSG_PUB.Count_And_Get(
1647: p_count => x_msg_count ,
1648: p_data => x_msg_data ,
1649: p_encoded => FND_API.G_FALSE);
1645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1646: FND_MSG_PUB.Count_And_Get(
1647: p_count => x_msg_count ,
1648: p_data => x_msg_data ,
1649: p_encoded => FND_API.G_FALSE);
1650: WHEN OTHERS THEN
1651: ROLLBACK TO call_mass_update;
1652: x_loading_status := 'UNEXPECTED_ERR';
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1649: p_encoded => FND_API.G_FALSE);
1650: WHEN OTHERS THEN
1651: ROLLBACK TO call_mass_update;
1652: x_loading_status := 'UNEXPECTED_ERR';
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1654: IF FND_MSG_PUB.Check_Msg_Level(
1655: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1656: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1657: END IF;
1657: END IF;
1658: FND_MSG_PUB.Count_And_Get(
1659: p_count => x_msg_count ,
1660: p_data => x_msg_data ,
1661: p_encoded => FND_API.G_FALSE);
1662: END;
1663: -- This functionality is obsoleted.
1664: PROCEDURE call_deal_assign(
1665: p_api_version IN NUMBER,
1662: END;
1663: -- This functionality is obsoleted.
1664: PROCEDURE call_deal_assign(
1665: p_api_version IN NUMBER,
1666: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1667: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1668: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1669: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1663: -- This functionality is obsoleted.
1664: PROCEDURE call_deal_assign(
1665: p_api_version IN NUMBER,
1666: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1667: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1668: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1669: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1671: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1664: PROCEDURE call_deal_assign(
1665: p_api_version IN NUMBER,
1666: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1667: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1668: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1669: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1671: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1672: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1665: p_api_version IN NUMBER,
1666: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1667: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1668: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1669: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1671: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1672: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1673: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1666: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1667: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1668: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1669: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1671: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1672: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1673: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1674: x_return_status OUT NOCOPY VARCHAR2,
1667: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1668: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1669: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1671: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1672: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1673: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1674: x_return_status OUT NOCOPY VARCHAR2,
1675: x_msg_count OUT NOCOPY NUMBER,
1669: p_to_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1670: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1671: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1672: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1673: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1674: x_return_status OUT NOCOPY VARCHAR2,
1675: x_msg_count OUT NOCOPY NUMBER,
1676: x_msg_data OUT NOCOPY VARCHAR2,
1677: x_loading_status OUT NOCOPY VARCHAR2) IS
1688: -- Standard Start of API savepoint
1689: SAVEPOINT call_deal_assign;
1690:
1691: -- Standard call to check for call compatibility.
1692: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1693: p_api_version ,
1694: l_api_name,
1695: G_PKG_NAME ) THEN
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1692: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1693: p_api_version ,
1694: l_api_name,
1695: G_PKG_NAME ) THEN
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1697: END IF;
1698: -- Initialize message list if p_init_msg_list is set to TRUE.
1699: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1700: FND_MSG_PUB.initialize;
1695: G_PKG_NAME ) THEN
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1697: END IF;
1698: -- Initialize message list if p_init_msg_list is set to TRUE.
1699: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1700: FND_MSG_PUB.initialize;
1701: END IF;
1702: -- Initialize API return status to success
1703: x_return_status := FND_API.G_RET_STS_SUCCESS;
1699: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1700: FND_MSG_PUB.initialize;
1701: END IF;
1702: -- Initialize API return status to success
1703: x_return_status := FND_API.G_RET_STS_SUCCESS;
1704: x_loading_status := 'CN_INSERTED';
1705: -- API body
1706: IF (p_invoice_number = FND_API.G_MISS_CHAR) THEN
1707: l_invoice_number := NULL;
1702: -- Initialize API return status to success
1703: x_return_status := FND_API.G_RET_STS_SUCCESS;
1704: x_loading_status := 'CN_INSERTED';
1705: -- API body
1706: IF (p_invoice_number = FND_API.G_MISS_CHAR) THEN
1707: l_invoice_number := NULL;
1708: END IF;
1709: IF (p_order_number = FND_API.G_MISS_NUM) THEN
1710: l_order_number := NULL;
1705: -- API body
1706: IF (p_invoice_number = FND_API.G_MISS_CHAR) THEN
1707: l_invoice_number := NULL;
1708: END IF;
1709: IF (p_order_number = FND_API.G_MISS_NUM) THEN
1710: l_order_number := NULL;
1711: END IF;
1712: IF (p_adjust_comments = FND_API.G_MISS_CHAR) THEN
1713: l_adjust_comments := NULL;
1708: END IF;
1709: IF (p_order_number = FND_API.G_MISS_NUM) THEN
1710: l_order_number := NULL;
1711: END IF;
1712: IF (p_adjust_comments = FND_API.G_MISS_CHAR) THEN
1713: l_adjust_comments := NULL;
1714: END IF;
1715: --
1716: cn_adjustments_pkg.deal_assign(
1721: x_adjusted_by => get_adjusted_by, -- Function
1722: x_adjust_comments => l_adjust_comments);
1723: --
1724: EXCEPTION
1725: WHEN FND_API.G_EXC_ERROR THEN
1726: ROLLBACK TO call_deal_assign;
1727: x_return_status := FND_API.G_RET_STS_ERROR ;
1728: FND_MSG_PUB.Count_And_Get(
1729: p_count => x_msg_count ,
1723: --
1724: EXCEPTION
1725: WHEN FND_API.G_EXC_ERROR THEN
1726: ROLLBACK TO call_deal_assign;
1727: x_return_status := FND_API.G_RET_STS_ERROR ;
1728: FND_MSG_PUB.Count_And_Get(
1729: p_count => x_msg_count ,
1730: p_data => x_msg_data ,
1731: p_encoded => FND_API.G_FALSE);
1727: x_return_status := FND_API.G_RET_STS_ERROR ;
1728: FND_MSG_PUB.Count_And_Get(
1729: p_count => x_msg_count ,
1730: p_data => x_msg_data ,
1731: p_encoded => FND_API.G_FALSE);
1732: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1733: ROLLBACK TO call_deal_assign;
1734: x_loading_status := 'UNEXPECTED_ERR';
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1728: FND_MSG_PUB.Count_And_Get(
1729: p_count => x_msg_count ,
1730: p_data => x_msg_data ,
1731: p_encoded => FND_API.G_FALSE);
1732: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1733: ROLLBACK TO call_deal_assign;
1734: x_loading_status := 'UNEXPECTED_ERR';
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1736: FND_MSG_PUB.Count_And_Get(
1731: p_encoded => FND_API.G_FALSE);
1732: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1733: ROLLBACK TO call_deal_assign;
1734: x_loading_status := 'UNEXPECTED_ERR';
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1736: FND_MSG_PUB.Count_And_Get(
1737: p_count => x_msg_count ,
1738: p_data => x_msg_data ,
1739: p_encoded => FND_API.G_FALSE);
1735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1736: FND_MSG_PUB.Count_And_Get(
1737: p_count => x_msg_count ,
1738: p_data => x_msg_data ,
1739: p_encoded => FND_API.G_FALSE);
1740: WHEN OTHERS THEN
1741: ROLLBACK TO call_deal_assign;
1742: x_loading_status := 'UNEXPECTED_ERR';
1743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1739: p_encoded => FND_API.G_FALSE);
1740: WHEN OTHERS THEN
1741: ROLLBACK TO call_deal_assign;
1742: x_loading_status := 'UNEXPECTED_ERR';
1743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1744: IF FND_MSG_PUB.Check_Msg_Level(
1745: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1746: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1747: END IF;
1747: END IF;
1748: FND_MSG_PUB.Count_And_Get(
1749: p_count => x_msg_count ,
1750: p_data => x_msg_data ,
1751: p_encoded => FND_API.G_FALSE);
1752: END;
1753: --
1754: PROCEDURE call_split(
1755: p_api_version IN NUMBER,
1752: END;
1753: --
1754: PROCEDURE call_split(
1755: p_api_version IN NUMBER,
1756: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1757: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1758: p_split_type IN VARCHAR2,
1759: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1760: p_split_data_tbl IN split_data_tbl,
1753: --
1754: PROCEDURE call_split(
1755: p_api_version IN NUMBER,
1756: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1757: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1758: p_split_type IN VARCHAR2,
1759: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1760: p_split_data_tbl IN split_data_tbl,
1761: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1755: p_api_version IN NUMBER,
1756: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1757: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1758: p_split_type IN VARCHAR2,
1759: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1760: p_split_data_tbl IN split_data_tbl,
1761: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1762: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1763: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1757: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
1758: p_split_type IN VARCHAR2,
1759: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1760: p_split_data_tbl IN split_data_tbl,
1761: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1762: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1763: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1764: p_transaction_amount IN NUMBER,
1765: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1758: p_split_type IN VARCHAR2,
1759: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1760: p_split_data_tbl IN split_data_tbl,
1761: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1762: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1763: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1764: p_transaction_amount IN NUMBER,
1765: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1766: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1759: p_from_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
1760: p_split_data_tbl IN split_data_tbl,
1761: p_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
1762: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1763: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1764: p_transaction_amount IN NUMBER,
1765: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1766: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1767: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1762: p_invoice_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1763: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1764: p_transaction_amount IN NUMBER,
1765: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1766: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1767: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1768: x_return_status OUT NOCOPY VARCHAR2,
1769: x_msg_count OUT NOCOPY NUMBER,
1770: x_msg_data OUT NOCOPY VARCHAR2,
1763: p_order_number IN NUMBER := FND_API.G_MISS_NUM,
1764: p_transaction_amount IN NUMBER,
1765: p_adjusted_by IN VARCHAR2 := FND_GLOBAL.USER_NAME,
1766: p_adjust_comments IN VARCHAR2 := FND_API.G_MISS_CHAR,
1767: p_org_id IN NUMBER := FND_API.G_MISS_NUM,
1768: x_return_status OUT NOCOPY VARCHAR2,
1769: x_msg_count OUT NOCOPY NUMBER,
1770: x_msg_data OUT NOCOPY VARCHAR2,
1771: x_loading_status OUT NOCOPY VARCHAR2) IS
1821: BEGIN
1822: -- Standard Start of API savepoint
1823: SAVEPOINT call_split;
1824: -- Standard call to check for call compatibility.
1825: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1826: p_api_version ,
1827: l_api_name,
1828: G_PKG_NAME ) THEN
1829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1826: p_api_version ,
1827: l_api_name,
1828: G_PKG_NAME ) THEN
1829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1830: END IF;
1831: -- Initialize message list if p_init_msg_list is set to TRUE.
1832: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1833: FND_MSG_PUB.initialize;
1828: G_PKG_NAME ) THEN
1829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1830: END IF;
1831: -- Initialize message list if p_init_msg_list is set to TRUE.
1832: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1833: FND_MSG_PUB.initialize;
1834: END IF;
1835: -- Initialize API return status to success
1836: x_return_status := FND_API.G_RET_STS_SUCCESS;
1832: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1833: FND_MSG_PUB.initialize;
1834: END IF;
1835: -- Initialize API return status to success
1836: x_return_status := FND_API.G_RET_STS_SUCCESS;
1837: x_loading_status := 'CN_INSERTED';
1838:
1839:
1840:
1851: FND_MESSAGE.Set_Name('CN', 'CN_NO_SPLIT_RESOURCE');
1852: FND_MSG_PUB.Add;
1853: END IF;
1854: x_loading_status := 'CN_NO_SPLIT_RESOURCE';
1855: RAISE FND_API.G_EXC_ERROR;
1856: END IF;
1857: --
1858: /* Get the original data for the comm_lines_api_id */
1859: get_api_data(
1878: -- FND_MESSAGE.Set_Name('CN', 'CN_ADJ_SPLIT_AMOUNT');
1879: -- FND_MSG_PUB.Add;
1880: -- END IF;
1881: -- x_loading_status := 'CN_ADJ_SPLIT_AMOUNT';
1882: -- RAISE FND_API.G_EXC_ERROR;
1883: -- END IF;
1884:
1885:
1886: IF (l_split_percent <> l_adj_tbl(1).split_pct) THEN
1888: FND_MESSAGE.Set_Name('CN', 'CN_ADJ_SPLIT_PERCENT');
1889: FND_MSG_PUB.Add;
1890: END IF;
1891: x_loading_status := 'CN_ADJ_SPLIT_PERCENT';
1892: RAISE FND_API.G_EXC_ERROR;
1893: END IF;
1894: END IF; --2 end
1895: --
1896: IF (l_adj_tbl.COUNT > 0)THEN -- 3
1926: x_msg_count => x_msg_count,
1927: x_msg_data => x_msg_data,
1928: x_loading_status => x_loading_status);
1929: --
1930: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1931: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
1932: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
1933: FND_MSG_PUB.Add;
1934: END IF;
1932: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
1933: FND_MSG_PUB.Add;
1934: END IF;
1935: x_loading_status := 'CN_UPDATE_INV_ERROR';
1936: RAISE FND_API.G_EXC_ERROR;
1937: END IF;
1938: --
1939: END IF; -- 4 end
1940: END IF; -- 3 end
2048: FND_MESSAGE.Set_Name('CN', 'CN_SPLIT_TRX_ERROR');
2049: FND_MSG_PUB.Add;
2050: END IF;
2051: x_loading_status := 'CN_SPLIT_TRX_ERROR';
2052: RAISE FND_API.G_EXC_ERROR;
2053: END;
2054: END LOOP;
2055:
2056: END IF; -- 5 end
2069: x_msg_count => x_msg_count,
2070: x_msg_data => x_msg_data,
2071: x_loading_status => x_loading_status);
2072: --
2073: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2074: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2075: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
2076: FND_MSG_PUB.Add;
2077: END IF;
2075: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
2076: FND_MSG_PUB.Add;
2077: END IF;
2078: x_loading_status := 'CN_UPDATE_INV_ERROR';
2079: RAISE FND_API.G_EXC_ERROR;
2080: END IF;
2081: --
2082: END IF; -- 6 end
2083: --
2094: x_msg_data => x_msg_data,
2095: x_loading_status => x_loading_status);
2096: END IF;
2097: --
2098: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2099: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2100: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_CM_ERROR');
2101: FND_MSG_PUB.Add;
2102: END IF;
2100: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_CM_ERROR');
2101: FND_MSG_PUB.Add;
2102: END IF;
2103: x_loading_status := 'CN_UPDATE_CM_ERROR';
2104: RAISE FND_API.G_EXC_ERROR;
2105: END IF;
2106: END IF; -- 7 end
2107: --
2108: ELSIF (p_split_type = 'DEAL') THEN -- 1 elsif
2107: --
2108: ELSIF (p_split_type = 'DEAL') THEN -- 1 elsif
2109: -- Currently order_number is coming as G_MISS_NUM.
2110: -- Convert that into NULL
2111: IF (p_order_number = FND_API.G_MISS_NUM) THEN
2112: l_order_number := NULL;
2113: ELSE
2114: l_order_number := p_order_number;
2115: END IF;
2146: FND_MESSAGE.Set_Name('CN', 'CN_DEAL_REV_ERROR');
2147: FND_MSG_PUB.Add;
2148: END IF;
2149: x_loading_status := 'CN_DEAL_REV_ERROR';
2150: RAISE FND_API.G_EXC_ERROR;
2151: END;
2152: ELSIF (p_invoice_number IS NOT NULL) THEN
2153: BEGIN
2154: SELECT count(invoice_number)
2178: FND_MESSAGE.Set_Name('CN', 'CN_DEAL_REV_ERROR');
2179: FND_MSG_PUB.Add;
2180: END IF;
2181: x_loading_status := 'CN_DEAL_REV_ERROR';
2182: RAISE FND_API.G_EXC_ERROR;
2183: END;
2184: END IF; -- 8 end
2185: -- Check for split amount/percentages
2186: FOR i IN p_split_data_tbl.FIRST..p_split_data_tbl.LAST
2194: FND_MESSAGE.Set_Name('CN', 'CN_ADJ_SPLIT_PERCENT');
2195: FND_MSG_PUB.Add;
2196: END IF;
2197: x_loading_status := 'CN_ADJ_SPLIT_PERCENT';
2198: RAISE FND_API.G_EXC_ERROR;
2199: END IF;
2200:
2201: -- Check if split to all nonrevenue type or not / bug 2130062
2202: l_split_to_all_nonrevenue_type := 'Y';
2336: FND_MESSAGE.Set_Name('CN', 'CN_NO_REC_DEAL');
2337: FND_MSG_PUB.Add;
2338: END IF;
2339: x_loading_status := 'CN_NO_REC_DEAL';
2340: RAISE FND_API.G_EXC_ERROR;
2341: END IF;
2342:
2343: END IF; -- 9 end
2344:
2341: END IF;
2342:
2343: END IF; -- 9 end
2344:
2345: IF (p_invoice_number <> FND_API.G_MISS_CHAR) THEN -- 10
2346: cn_invoice_changes_pvt.capture_deal_invoice(
2347: p_api_version => p_api_version,
2348: p_trx_type => 'INV',
2349: p_split_nonrevenue_line => l_split_nonrevenue_line,
2477: FND_MESSAGE.Set_Name('CN', 'CN_NO_REC_DEAL');
2478: FND_MSG_PUB.Add;
2479: END IF;
2480: x_loading_status := 'CN_NO_REC_DEAL';
2481: RAISE FND_API.G_EXC_ERROR;
2482: END IF; -- 11 end
2483: --
2484: IF ((g_track_invoice = 'Y') AND (l_new_data.COUNT > 0)) THEN -- 12
2485: --
2502: x_msg_count => x_msg_count,
2503: x_msg_data => x_msg_data,
2504: x_loading_status => x_loading_status);
2505: --
2506: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2507: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2508: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
2509: FND_MSG_PUB.Add;
2510: END IF;
2508: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
2509: FND_MSG_PUB.Add;
2510: END IF;
2511: x_loading_status := 'CN_UPDATE_INV_ERROR';
2512: RAISE FND_API.G_EXC_ERROR;
2513: END IF;
2514: END IF; -- 12 end
2515: --
2516: IF ((g_track_invoice = 'Y') AND (l_deal_data_tbl.COUNT > 0)) THEN -- 13
2660:
2661:
2662:
2663: EXCEPTION
2664: WHEN FND_API.G_EXC_ERROR THEN
2665: ROLLBACK TO call_split;
2666: x_return_status := FND_API.G_RET_STS_ERROR ;
2667: FND_MSG_PUB.Count_And_Get(
2668: p_count => x_msg_count ,
2662:
2663: EXCEPTION
2664: WHEN FND_API.G_EXC_ERROR THEN
2665: ROLLBACK TO call_split;
2666: x_return_status := FND_API.G_RET_STS_ERROR ;
2667: FND_MSG_PUB.Count_And_Get(
2668: p_count => x_msg_count ,
2669: p_data => x_msg_data ,
2670: p_encoded => FND_API.G_FALSE);
2666: x_return_status := FND_API.G_RET_STS_ERROR ;
2667: FND_MSG_PUB.Count_And_Get(
2668: p_count => x_msg_count ,
2669: p_data => x_msg_data ,
2670: p_encoded => FND_API.G_FALSE);
2671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2672: ROLLBACK TO call_split;
2673: x_loading_status := 'UNEXPECTED_ERR';
2674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2667: FND_MSG_PUB.Count_And_Get(
2668: p_count => x_msg_count ,
2669: p_data => x_msg_data ,
2670: p_encoded => FND_API.G_FALSE);
2671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2672: ROLLBACK TO call_split;
2673: x_loading_status := 'UNEXPECTED_ERR';
2674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2675: FND_MSG_PUB.Count_And_Get(
2670: p_encoded => FND_API.G_FALSE);
2671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2672: ROLLBACK TO call_split;
2673: x_loading_status := 'UNEXPECTED_ERR';
2674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2675: FND_MSG_PUB.Count_And_Get(
2676: p_count => x_msg_count ,
2677: p_data => x_msg_data ,
2678: p_encoded => FND_API.G_FALSE);
2674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2675: FND_MSG_PUB.Count_And_Get(
2676: p_count => x_msg_count ,
2677: p_data => x_msg_data ,
2678: p_encoded => FND_API.G_FALSE);
2679: WHEN OTHERS THEN
2680: ROLLBACK TO call_split;
2681: x_loading_status := 'UNEXPECTED_ERR';
2682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2678: p_encoded => FND_API.G_FALSE);
2679: WHEN OTHERS THEN
2680: ROLLBACK TO call_split;
2681: x_loading_status := 'UNEXPECTED_ERR';
2682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2683: IF FND_MSG_PUB.Check_Msg_Level(
2684: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2685: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2686: END IF;
2686: END IF;
2687: FND_MSG_PUB.Count_And_Get(
2688: p_count => x_msg_count ,
2689: p_data => x_msg_data ,
2690: p_encoded => FND_API.G_FALSE);
2691: END;
2692: --
2693: PROCEDURE get_trx_lines(
2694: p_api_version IN NUMBER,
2691: END;
2692: --
2693: PROCEDURE get_trx_lines(
2694: p_api_version IN NUMBER,
2695: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2696: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2697: p_header_id IN NUMBER := FND_API.G_MISS_NUM,
2698: x_return_status OUT NOCOPY VARCHAR2,
2699: x_msg_count OUT NOCOPY NUMBER,
2692: --
2693: PROCEDURE get_trx_lines(
2694: p_api_version IN NUMBER,
2695: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2696: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2697: p_header_id IN NUMBER := FND_API.G_MISS_NUM,
2698: x_return_status OUT NOCOPY VARCHAR2,
2699: x_msg_count OUT NOCOPY NUMBER,
2700: x_msg_data OUT NOCOPY VARCHAR2,
2693: PROCEDURE get_trx_lines(
2694: p_api_version IN NUMBER,
2695: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2696: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2697: p_header_id IN NUMBER := FND_API.G_MISS_NUM,
2698: x_return_status OUT NOCOPY VARCHAR2,
2699: x_msg_count OUT NOCOPY NUMBER,
2700: x_msg_data OUT NOCOPY VARCHAR2,
2701: x_loading_status OUT NOCOPY VARCHAR2,
2713: BEGIN
2714: -- Standard Start of API savepoint
2715: SAVEPOINT get_trx_lines;
2716: -- Standard call to check for call compatibility.
2717: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2718: p_api_version ,
2719: l_api_name,
2720: G_PKG_NAME ) THEN
2721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2717: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2718: p_api_version ,
2719: l_api_name,
2720: G_PKG_NAME ) THEN
2721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2722: END IF;
2723: -- Initialize message list if p_init_msg_list is set to TRUE.
2724: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2725: FND_MSG_PUB.initialize;
2720: G_PKG_NAME ) THEN
2721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2722: END IF;
2723: -- Initialize message list if p_init_msg_list is set to TRUE.
2724: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2725: FND_MSG_PUB.initialize;
2726: END IF;
2727: -- Initialize API return status to success
2728: x_return_status := FND_API.G_RET_STS_SUCCESS;
2724: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2725: FND_MSG_PUB.initialize;
2726: END IF;
2727: -- Initialize API return status to success
2728: x_return_status := FND_API.G_RET_STS_SUCCESS;
2729: x_loading_status := 'CN_INSERTED';
2730: -- API body
2731: FOR line_rec IN line_cur
2732: LOOP
2753: x_trx_line_tbl(l_tbl_count).payee := line_rec.payee;
2754: END LOOP;
2755: x_tbl_count := x_trx_line_tbl.COUNT;
2756: EXCEPTION
2757: WHEN FND_API.G_EXC_ERROR THEN
2758: ROLLBACK TO get_trx_lines;
2759: x_return_status := FND_API.G_RET_STS_ERROR ;
2760: FND_MSG_PUB.Count_And_Get(
2761: p_count => x_msg_count ,
2755: x_tbl_count := x_trx_line_tbl.COUNT;
2756: EXCEPTION
2757: WHEN FND_API.G_EXC_ERROR THEN
2758: ROLLBACK TO get_trx_lines;
2759: x_return_status := FND_API.G_RET_STS_ERROR ;
2760: FND_MSG_PUB.Count_And_Get(
2761: p_count => x_msg_count ,
2762: p_data => x_msg_data ,
2763: p_encoded => FND_API.G_FALSE);
2759: x_return_status := FND_API.G_RET_STS_ERROR ;
2760: FND_MSG_PUB.Count_And_Get(
2761: p_count => x_msg_count ,
2762: p_data => x_msg_data ,
2763: p_encoded => FND_API.G_FALSE);
2764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2765: ROLLBACK TO get_trx_lines;
2766: x_loading_status := 'UNEXPECTED_ERR';
2767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2760: FND_MSG_PUB.Count_And_Get(
2761: p_count => x_msg_count ,
2762: p_data => x_msg_data ,
2763: p_encoded => FND_API.G_FALSE);
2764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2765: ROLLBACK TO get_trx_lines;
2766: x_loading_status := 'UNEXPECTED_ERR';
2767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2768: FND_MSG_PUB.Count_And_Get(
2763: p_encoded => FND_API.G_FALSE);
2764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2765: ROLLBACK TO get_trx_lines;
2766: x_loading_status := 'UNEXPECTED_ERR';
2767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2768: FND_MSG_PUB.Count_And_Get(
2769: p_count => x_msg_count ,
2770: p_data => x_msg_data ,
2771: p_encoded => FND_API.G_FALSE);
2767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2768: FND_MSG_PUB.Count_And_Get(
2769: p_count => x_msg_count ,
2770: p_data => x_msg_data ,
2771: p_encoded => FND_API.G_FALSE);
2772: WHEN OTHERS THEN
2773: ROLLBACK TO get_trx_lines;
2774: x_loading_status := 'UNEXPECTED_ERR';
2775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2771: p_encoded => FND_API.G_FALSE);
2772: WHEN OTHERS THEN
2773: ROLLBACK TO get_trx_lines;
2774: x_loading_status := 'UNEXPECTED_ERR';
2775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2776: IF FND_MSG_PUB.Check_Msg_Level(
2777: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2778: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2779: END IF;
2779: END IF;
2780: FND_MSG_PUB.Count_And_Get(
2781: p_count => x_msg_count ,
2782: p_data => x_msg_data ,
2783: p_encoded => FND_API.G_FALSE);
2784: END;
2785: --
2786: PROCEDURE get_trx_history(
2787: p_api_version IN NUMBER,
2784: END;
2785: --
2786: PROCEDURE get_trx_history(
2787: p_api_version IN NUMBER,
2788: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2789: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2790: p_adj_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
2791: x_return_status OUT NOCOPY VARCHAR2,
2792: x_msg_count OUT NOCOPY NUMBER,
2785: --
2786: PROCEDURE get_trx_history(
2787: p_api_version IN NUMBER,
2788: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2789: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2790: p_adj_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
2791: x_return_status OUT NOCOPY VARCHAR2,
2792: x_msg_count OUT NOCOPY NUMBER,
2793: x_msg_data OUT NOCOPY VARCHAR2,
2786: PROCEDURE get_trx_history(
2787: p_api_version IN NUMBER,
2788: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2789: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2790: p_adj_comm_lines_api_id IN NUMBER := FND_API.G_MISS_NUM,
2791: x_return_status OUT NOCOPY VARCHAR2,
2792: x_msg_count OUT NOCOPY NUMBER,
2793: x_msg_data OUT NOCOPY VARCHAR2,
2794: x_loading_status OUT NOCOPY VARCHAR2,
2840: -- Standard Start of API savepoint
2841: SAVEPOINT get_trx_history;
2842:
2843: -- Standard call to check for call compatibility.
2844: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2845: p_api_version ,
2846: l_api_name,
2847: G_PKG_NAME ) THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2844: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2845: p_api_version ,
2846: l_api_name,
2847: G_PKG_NAME ) THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849: END IF;
2850: -- Initialize message list if p_init_msg_list is set to TRUE.
2851: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2852: FND_MSG_PUB.initialize;
2847: G_PKG_NAME ) THEN
2848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849: END IF;
2850: -- Initialize message list if p_init_msg_list is set to TRUE.
2851: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2852: FND_MSG_PUB.initialize;
2853: END IF;
2854: -- Initialize API return status to success
2855: x_return_status := FND_API.G_RET_STS_SUCCESS;
2851: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2852: FND_MSG_PUB.initialize;
2853: END IF;
2854: -- Initialize API return status to success
2855: x_return_status := FND_API.G_RET_STS_SUCCESS;
2856: x_loading_status := 'CN_INSERTED';
2857: -- API body
2858: FOR adj IN header_hist_cur
2859: LOOP
2886: l_tbl_count := l_tbl_count + 1;
2887: END LOOP;
2888: x_adj_count := x_adj_tbl.COUNT;
2889: EXCEPTION
2890: WHEN FND_API.G_EXC_ERROR THEN
2891: x_return_status := FND_API.G_RET_STS_ERROR ;
2892: FND_MSG_PUB.Count_And_Get(
2893: p_count => x_msg_count ,
2894: p_data => x_msg_data ,
2887: END LOOP;
2888: x_adj_count := x_adj_tbl.COUNT;
2889: EXCEPTION
2890: WHEN FND_API.G_EXC_ERROR THEN
2891: x_return_status := FND_API.G_RET_STS_ERROR ;
2892: FND_MSG_PUB.Count_And_Get(
2893: p_count => x_msg_count ,
2894: p_data => x_msg_data ,
2895: p_encoded => FND_API.G_FALSE);
2891: x_return_status := FND_API.G_RET_STS_ERROR ;
2892: FND_MSG_PUB.Count_And_Get(
2893: p_count => x_msg_count ,
2894: p_data => x_msg_data ,
2895: p_encoded => FND_API.G_FALSE);
2896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2897: x_loading_status := 'UNEXPECTED_ERR';
2898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2899: FND_MSG_PUB.Count_And_Get(
2892: FND_MSG_PUB.Count_And_Get(
2893: p_count => x_msg_count ,
2894: p_data => x_msg_data ,
2895: p_encoded => FND_API.G_FALSE);
2896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2897: x_loading_status := 'UNEXPECTED_ERR';
2898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2899: FND_MSG_PUB.Count_And_Get(
2900: p_count => x_msg_count ,
2894: p_data => x_msg_data ,
2895: p_encoded => FND_API.G_FALSE);
2896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2897: x_loading_status := 'UNEXPECTED_ERR';
2898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2899: FND_MSG_PUB.Count_And_Get(
2900: p_count => x_msg_count ,
2901: p_data => x_msg_data ,
2902: p_encoded => FND_API.G_FALSE);
2898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2899: FND_MSG_PUB.Count_And_Get(
2900: p_count => x_msg_count ,
2901: p_data => x_msg_data ,
2902: p_encoded => FND_API.G_FALSE);
2903: WHEN OTHERS THEN
2904: x_loading_status := 'UNEXPECTED_ERR';
2905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2906: IF FND_MSG_PUB.Check_Msg_Level(
2901: p_data => x_msg_data ,
2902: p_encoded => FND_API.G_FALSE);
2903: WHEN OTHERS THEN
2904: x_loading_status := 'UNEXPECTED_ERR';
2905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2906: IF FND_MSG_PUB.Check_Msg_Level(
2907: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2908: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2909: END IF;
2909: END IF;
2910: FND_MSG_PUB.Count_And_Get(
2911: p_count => x_msg_count ,
2912: p_data => x_msg_data ,
2913: p_encoded => FND_API.G_FALSE);
2914: END;
2915: --
2916: PROCEDURE get_cust_info(
2917: p_api_version IN NUMBER,
2914: END;
2915: --
2916: PROCEDURE get_cust_info(
2917: p_api_version IN NUMBER,
2918: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2919: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2920: p_comm_lines_api_id IN NUMBER,
2921: p_load_status IN VARCHAR2,
2922: x_return_status OUT NOCOPY VARCHAR2,
2915: --
2916: PROCEDURE get_cust_info(
2917: p_api_version IN NUMBER,
2918: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2919: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
2920: p_comm_lines_api_id IN NUMBER,
2921: p_load_status IN VARCHAR2,
2922: x_return_status OUT NOCOPY VARCHAR2,
2923: x_msg_count OUT NOCOPY NUMBER,
2934: -- Standard Start of API savepoint
2935: SAVEPOINT get_cust_info;
2936:
2937: -- Standard call to check for call compatibility.
2938: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2939: p_api_version ,
2940: l_api_name,
2941: G_PKG_NAME ) THEN
2942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2938: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2939: p_api_version ,
2940: l_api_name,
2941: G_PKG_NAME ) THEN
2942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2943: END IF;
2944: -- Initialize message list if p_init_msg_list is set to TRUE.
2945: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2946: FND_MSG_PUB.initialize;
2941: G_PKG_NAME ) THEN
2942: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2943: END IF;
2944: -- Initialize message list if p_init_msg_list is set to TRUE.
2945: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2946: FND_MSG_PUB.initialize;
2947: END IF;
2948: -- Initialize API return status to success
2949: x_return_status := FND_API.G_RET_STS_SUCCESS;
2945: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2946: FND_MSG_PUB.initialize;
2947: END IF;
2948: -- Initialize API return status to success
2949: x_return_status := FND_API.G_RET_STS_SUCCESS;
2950: x_loading_status := 'CN_INSERTED';
2951: -- API body
2952: cn_adjustments_pkg.get_cust_info(
2953: p_comm_lines_api_id => p_comm_lines_api_id,
2976: x_cust_info_rec.bill_to_contact := l_cust_info_rec.bill_to_contact;
2977: x_cust_info_rec.ship_to_contact_id := l_cust_info_rec.ship_to_contact_id;
2978: x_cust_info_rec.ship_to_contact := l_cust_info_rec.ship_to_contact;
2979: EXCEPTION
2980: WHEN FND_API.G_EXC_ERROR THEN
2981: x_return_status := FND_API.G_RET_STS_ERROR ;
2982: FND_MSG_PUB.Count_And_Get(
2983: p_count => x_msg_count ,
2984: p_data => x_msg_data ,
2977: x_cust_info_rec.ship_to_contact_id := l_cust_info_rec.ship_to_contact_id;
2978: x_cust_info_rec.ship_to_contact := l_cust_info_rec.ship_to_contact;
2979: EXCEPTION
2980: WHEN FND_API.G_EXC_ERROR THEN
2981: x_return_status := FND_API.G_RET_STS_ERROR ;
2982: FND_MSG_PUB.Count_And_Get(
2983: p_count => x_msg_count ,
2984: p_data => x_msg_data ,
2985: p_encoded => FND_API.G_FALSE);
2981: x_return_status := FND_API.G_RET_STS_ERROR ;
2982: FND_MSG_PUB.Count_And_Get(
2983: p_count => x_msg_count ,
2984: p_data => x_msg_data ,
2985: p_encoded => FND_API.G_FALSE);
2986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2987: x_loading_status := 'UNEXPECTED_ERR';
2988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2989: FND_MSG_PUB.Count_And_Get(
2982: FND_MSG_PUB.Count_And_Get(
2983: p_count => x_msg_count ,
2984: p_data => x_msg_data ,
2985: p_encoded => FND_API.G_FALSE);
2986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2987: x_loading_status := 'UNEXPECTED_ERR';
2988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2989: FND_MSG_PUB.Count_And_Get(
2990: p_count => x_msg_count ,
2984: p_data => x_msg_data ,
2985: p_encoded => FND_API.G_FALSE);
2986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2987: x_loading_status := 'UNEXPECTED_ERR';
2988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2989: FND_MSG_PUB.Count_And_Get(
2990: p_count => x_msg_count ,
2991: p_data => x_msg_data ,
2992: p_encoded => FND_API.G_FALSE);
2988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2989: FND_MSG_PUB.Count_And_Get(
2990: p_count => x_msg_count ,
2991: p_data => x_msg_data ,
2992: p_encoded => FND_API.G_FALSE);
2993: WHEN OTHERS THEN
2994: x_loading_status := 'UNEXPECTED_ERR';
2995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2996: IF FND_MSG_PUB.Check_Msg_Level(
2991: p_data => x_msg_data ,
2992: p_encoded => FND_API.G_FALSE);
2993: WHEN OTHERS THEN
2994: x_loading_status := 'UNEXPECTED_ERR';
2995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2996: IF FND_MSG_PUB.Check_Msg_Level(
2997: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2998: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2999: END IF;
2999: END IF;
3000: FND_MSG_PUB.Count_And_Get(
3001: p_count => x_msg_count ,
3002: p_data => x_msg_data ,
3003: p_encoded => FND_API.G_FALSE);
3004: END;
3005: --
3006: PROCEDURE update_api_record(
3007: p_api_version IN NUMBER,
3004: END;
3005: --
3006: PROCEDURE update_api_record(
3007: p_api_version IN NUMBER,
3008: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3009: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3010: p_newtx_rec IN adj_rec_type,
3011: x_api_id OUT NOCOPY NUMBER,
3012: x_return_status OUT NOCOPY VARCHAR2,
3005: --
3006: PROCEDURE update_api_record(
3007: p_api_version IN NUMBER,
3008: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3009: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3010: p_newtx_rec IN adj_rec_type,
3011: x_api_id OUT NOCOPY NUMBER,
3012: x_return_status OUT NOCOPY VARCHAR2,
3013: x_msg_count OUT NOCOPY NUMBER,
3029: BEGIN
3030: -- Standard Start of API savepoint
3031: SAVEPOINT update_api_record;
3032: -- Standard call to check for call compatibility.
3033: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3034: p_api_version ,
3035: l_api_name,
3036: G_PKG_NAME ) THEN
3037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3033: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3034: p_api_version ,
3035: l_api_name,
3036: G_PKG_NAME ) THEN
3037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3038: END IF;
3039: -- Initialize message list if p_init_msg_list is set to TRUE.
3040: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3041: FND_MSG_PUB.initialize;
3036: G_PKG_NAME ) THEN
3037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3038: END IF;
3039: -- Initialize message list if p_init_msg_list is set to TRUE.
3040: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3041: FND_MSG_PUB.initialize;
3042: END IF;
3043: -- Initialize API return status to success
3044: x_return_status := FND_API.G_RET_STS_SUCCESS;
3040: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3041: FND_MSG_PUB.initialize;
3042: END IF;
3043: -- Initialize API return status to success
3044: x_return_status := FND_API.G_RET_STS_SUCCESS;
3045: x_loading_status := 'CN_INSERTED';
3046: x_api_id := fnd_api.g_miss_num;
3047: -- Get the existing data for the 'to be updated' comm_lines_api_id
3048: get_api_data(
3042: END IF;
3043: -- Initialize API return status to success
3044: x_return_status := FND_API.G_RET_STS_SUCCESS;
3045: x_loading_status := 'CN_INSERTED';
3046: x_api_id := fnd_api.g_miss_num;
3047: -- Get the existing data for the 'to be updated' comm_lines_api_id
3048: get_api_data(
3049: p_comm_lines_api_id => p_newtx_rec.comm_lines_api_id,
3050: x_adj_tbl => l_old_adj_tbl);
3083: x_msg_count => x_msg_count,
3084: x_msg_data => x_msg_data,
3085: x_loading_status => x_loading_status);
3086: --
3087: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3088: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
3089: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
3090: FND_MSG_PUB.Add;
3091: END IF;
3089: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
3090: FND_MSG_PUB.Add;
3091: END IF;
3092: x_loading_status := 'CN_UPDATE_INV_ERROR';
3093: RAISE FND_API.G_EXC_ERROR;
3094: END IF;
3095: --
3096: END IF;
3097: --
3170: x_msg_count => x_msg_count,
3171: x_msg_data => x_msg_data,
3172: x_loading_status => x_loading_status);
3173: --
3174: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3175: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
3176: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
3177: FND_MSG_PUB.Add;
3178: END IF;
3176: FND_MESSAGE.Set_Name('CN', 'CN_UPDATE_INV_ERROR');
3177: FND_MSG_PUB.Add;
3178: END IF;
3179: x_loading_status := 'CN_UPDATE_INV_ERROR';
3180: RAISE FND_API.G_EXC_ERROR;
3181: END IF;
3182: --
3183: END IF;
3184: --
3200: END IF;
3201: --
3202:
3203: EXCEPTION
3204: WHEN FND_API.G_EXC_ERROR THEN
3205: x_return_status := FND_API.G_RET_STS_ERROR ;
3206: FND_MSG_PUB.Count_And_Get(
3207: p_count => x_msg_count ,
3208: p_data => x_msg_data ,
3201: --
3202:
3203: EXCEPTION
3204: WHEN FND_API.G_EXC_ERROR THEN
3205: x_return_status := FND_API.G_RET_STS_ERROR ;
3206: FND_MSG_PUB.Count_And_Get(
3207: p_count => x_msg_count ,
3208: p_data => x_msg_data ,
3209: p_encoded => FND_API.G_FALSE);
3205: x_return_status := FND_API.G_RET_STS_ERROR ;
3206: FND_MSG_PUB.Count_And_Get(
3207: p_count => x_msg_count ,
3208: p_data => x_msg_data ,
3209: p_encoded => FND_API.G_FALSE);
3210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3211: x_loading_status := 'UNEXPECTED_ERR';
3212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3213: FND_MSG_PUB.Count_And_Get(
3206: FND_MSG_PUB.Count_And_Get(
3207: p_count => x_msg_count ,
3208: p_data => x_msg_data ,
3209: p_encoded => FND_API.G_FALSE);
3210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3211: x_loading_status := 'UNEXPECTED_ERR';
3212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3213: FND_MSG_PUB.Count_And_Get(
3214: p_count => x_msg_count ,
3208: p_data => x_msg_data ,
3209: p_encoded => FND_API.G_FALSE);
3210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3211: x_loading_status := 'UNEXPECTED_ERR';
3212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3213: FND_MSG_PUB.Count_And_Get(
3214: p_count => x_msg_count ,
3215: p_data => x_msg_data ,
3216: p_encoded => FND_API.G_FALSE);
3212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3213: FND_MSG_PUB.Count_And_Get(
3214: p_count => x_msg_count ,
3215: p_data => x_msg_data ,
3216: p_encoded => FND_API.G_FALSE);
3217: WHEN OTHERS THEN
3218: x_loading_status := 'UNEXPECTED_ERR';
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3220: IF FND_MSG_PUB.Check_Msg_Level(
3215: p_data => x_msg_data ,
3216: p_encoded => FND_API.G_FALSE);
3217: WHEN OTHERS THEN
3218: x_loading_status := 'UNEXPECTED_ERR';
3219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3220: IF FND_MSG_PUB.Check_Msg_Level(
3221: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
3223: END IF;
3223: END IF;
3224: FND_MSG_PUB.Count_And_Get(
3225: p_count => x_msg_count ,
3226: p_data => x_msg_data ,
3227: p_encoded => FND_API.G_FALSE);
3228: END;
3229: --
3230: PROCEDURE call_load(
3231: p_api_version IN NUMBER,
3228: END;
3229: --
3230: PROCEDURE call_load(
3231: p_api_version IN NUMBER,
3232: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3233: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3234: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3235: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
3236: p_pr_date_from IN DATE,
3229: --
3230: PROCEDURE call_load(
3231: p_api_version IN NUMBER,
3232: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3233: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3234: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3235: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
3236: p_pr_date_from IN DATE,
3237: p_pr_date_to IN DATE,
3230: PROCEDURE call_load(
3231: p_api_version IN NUMBER,
3232: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3233: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3234: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3235: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
3236: p_pr_date_from IN DATE,
3237: p_pr_date_to IN DATE,
3238: p_cls_rol_flag IN CHAR,
3231: p_api_version IN NUMBER,
3232: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3233: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3234: p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL,
3235: p_salesrep_id IN NUMBER := FND_API.G_MISS_NUM,
3236: p_pr_date_from IN DATE,
3237: p_pr_date_to IN DATE,
3238: p_cls_rol_flag IN CHAR,
3239: p_load_method IN VARCHAR2,
3252: BEGIN
3253: -- Standard Start of API savepoint
3254: SAVEPOINT call_load;
3255: -- Standard call to check for call compatibility.
3256: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3257: p_api_version ,
3258: l_api_name,
3259: G_PKG_NAME ) THEN
3260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3256: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3257: p_api_version ,
3258: l_api_name,
3259: G_PKG_NAME ) THEN
3260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3261: END IF;
3262: -- Initialize message list if p_init_msg_list is set to TRUE.
3263: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3264: FND_MSG_PUB.initialize;
3259: G_PKG_NAME ) THEN
3260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3261: END IF;
3262: -- Initialize message list if p_init_msg_list is set to TRUE.
3263: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3264: FND_MSG_PUB.initialize;
3265: END IF;
3266: -- Initialize API return status to success
3267: x_return_status := FND_API.G_RET_STS_SUCCESS;
3263: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3264: FND_MSG_PUB.initialize;
3265: END IF;
3266: -- Initialize API return status to success
3267: x_return_status := FND_API.G_RET_STS_SUCCESS;
3268: x_loading_status := 'CN_INSERTED';
3269: IF (p_salesrep_id = FND_API.G_MISS_NUM) THEN
3270: l_salesrep_id := NULL;
3271: ELSE
3265: END IF;
3266: -- Initialize API return status to success
3267: x_return_status := FND_API.G_RET_STS_SUCCESS;
3268: x_loading_status := 'CN_INSERTED';
3269: IF (p_salesrep_id = FND_API.G_MISS_NUM) THEN
3270: l_salesrep_id := NULL;
3271: ELSE
3272: l_salesrep_id := p_salesrep_id;
3273: END IF;
3301: x_loading_status => x_loading_status,
3302: x_process_audit_id => x_process_audit_id);
3303: END IF;
3304: EXCEPTION
3305: WHEN FND_API.G_EXC_ERROR THEN
3306: x_return_status := FND_API.G_RET_STS_ERROR ;
3307: FND_MSG_PUB.Count_And_Get(
3308: p_count => x_msg_count ,
3309: p_data => x_msg_data ,
3302: x_process_audit_id => x_process_audit_id);
3303: END IF;
3304: EXCEPTION
3305: WHEN FND_API.G_EXC_ERROR THEN
3306: x_return_status := FND_API.G_RET_STS_ERROR ;
3307: FND_MSG_PUB.Count_And_Get(
3308: p_count => x_msg_count ,
3309: p_data => x_msg_data ,
3310: p_encoded => FND_API.G_FALSE);
3306: x_return_status := FND_API.G_RET_STS_ERROR ;
3307: FND_MSG_PUB.Count_And_Get(
3308: p_count => x_msg_count ,
3309: p_data => x_msg_data ,
3310: p_encoded => FND_API.G_FALSE);
3311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3312: x_loading_status := 'UNEXPECTED_ERR';
3313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3314: FND_MSG_PUB.Count_And_Get(
3307: FND_MSG_PUB.Count_And_Get(
3308: p_count => x_msg_count ,
3309: p_data => x_msg_data ,
3310: p_encoded => FND_API.G_FALSE);
3311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3312: x_loading_status := 'UNEXPECTED_ERR';
3313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3314: FND_MSG_PUB.Count_And_Get(
3315: p_count => x_msg_count ,
3309: p_data => x_msg_data ,
3310: p_encoded => FND_API.G_FALSE);
3311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3312: x_loading_status := 'UNEXPECTED_ERR';
3313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3314: FND_MSG_PUB.Count_And_Get(
3315: p_count => x_msg_count ,
3316: p_data => x_msg_data ,
3317: p_encoded => FND_API.G_FALSE);
3313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3314: FND_MSG_PUB.Count_And_Get(
3315: p_count => x_msg_count ,
3316: p_data => x_msg_data ,
3317: p_encoded => FND_API.G_FALSE);
3318: WHEN OTHERS THEN
3319: x_loading_status := 'UNEXPECTED_ERR';
3320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3321: IF FND_MSG_PUB.Check_Msg_Level(
3316: p_data => x_msg_data ,
3317: p_encoded => FND_API.G_FALSE);
3318: WHEN OTHERS THEN
3319: x_loading_status := 'UNEXPECTED_ERR';
3320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3321: IF FND_MSG_PUB.Check_Msg_Level(
3322: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3323: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
3324: END IF;
3324: END IF;
3325: FND_MSG_PUB.Count_And_Get(
3326: p_count => x_msg_count ,
3327: p_data => x_msg_data ,
3328: p_encoded => FND_API.G_FALSE);
3329: END;
3330: --
3331: END cn_get_tx_data_pub;
3332: