[Home] [Help]
40: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
41: fnd_message.set_token('OBJ_NAME', l_prompt);
42: fnd_msg_pub.ADD;
43: END IF;
44: RAISE fnd_api.g_exc_error;
45: END IF;
46:
47: OPEN formula_exists;
48: FETCH formula_exists INTO l_dummy;
52: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
53: fnd_message.set_name('CN', 'CN_NAME_NOT_UNIQUE');
54: fnd_msg_pub.ADD;
55: END IF;
56: RAISE fnd_api.g_exc_error;
57: END IF;
58:
59: -- validate the combination of flags
60: /****
63: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
64: fnd_message.set_name('CN', 'CN_SPLIT_ONE_INPUT');
65: fnd_msg_pub.ADD;
66: END IF;
67: RAISE fnd_api.g_exc_error;
68: END IF;
69:
70: -- 2. make sure accumulation along multiple dimensions is not allowed
71: IF (p_cumulative_flag = 'Y' AND p_number_dim > 1) THEN
72: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
73: fnd_message.set_name('CN', 'CN_CUMULATE_ONE_INPUT');
74: fnd_msg_pub.ADD;
75: END IF;
76: RAISE fnd_api.g_exc_error;
77: END IF;
78: ***/
79:
80: -- 3. make sure group by always goes with cumulative = 'Y' and itd_flag = 'N'
82: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
83: fnd_message.set_name('CN', 'CN_GROUP_CONSTRAINT');
84: fnd_msg_pub.ADD;
85: END IF;
86: RAISE fnd_api.g_exc_error;
87: END IF;
88:
89: -- 4. make sure itd_flag = 'Y' always goes with cumulative_flag = 'Y'
90: IF (p_itd_flag = 'Y' AND p_cumulative_flag = 'N') THEN
91: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
92: fnd_message.set_name('CN', 'CN_ITD_CUMULATIVE');
93: fnd_msg_pub.ADD;
94: END IF;
95: RAISE fnd_api.g_exc_error;
96: END IF;
97:
98: -- 5. make sure BONUS type formulas always have trx_group_code =
99: -- 'INDIVIDUAL' amd cumulative_flag = 'N' and itd_flag = 'N'
102: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
103: fnd_message.set_name('CN', 'CN_BONUS_CONSTRAINT');
104: fnd_msg_pub.ADD;
105: END IF;
106: RAISE fnd_api.g_exc_error;
107: END IF;
108:
109: -- 6. make sure THRESHOLD formulas have the following flag setting:
110: -- trx_group_code = 'INDIVIDUAL' and cumulative_flag = 'Y',
115: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
116: fnd_message.set_name('CN', 'CN_THRESHOLD_CONSTRAINT');
117: fnd_msg_pub.ADD;
118: END IF;
119: RAISE fnd_api.g_exc_error;
120: END IF;
121:
122: /*
123: -- 7. make sure that perf_measure_id is not null ... not required anymore
125: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
126: fnd_message.set_name('CN', 'CN_PERF_CANT_NULL');
127: fnd_msg_pub.ADD;
128: END IF;
129: RAISE fnd_api.g_exc_error;
130: END IF;
131: */
132:
133: END validate_name_flags;
167: (substr(l_sql, l_pos-4, 11) <> 'CSQA.TARGET' ) AND
168: (substr(l_sql, l_pos-4, 19) <> 'CSQA.PAYMENT_AMOUNT' ) THEN
169: FND_MESSAGE.SET_NAME('CN', 'CN_ILLEGAL_EXP_COMPONENT');
170: FND_MSG_PUB.ADD;
171: RAISE FND_API.G_EXC_ERROR;
172: end if;
173: l_pos := l_pos + 1;
174: end if;
175: end loop;
203: r.number_dim <> 1 THEN
204: -- condition 1 or 2 fails
205: FND_MESSAGE.SET_NAME('CN', 'CN_FORMULA_PLAN_RATE');
206: FND_MSG_PUB.ADD;
207: RAISE FND_API.G_EXC_ERROR;
208: END IF;
209: end loop;
210:
211: IF p_cumulative_flag = 'N' THEN
211: IF p_cumulative_flag = 'N' THEN
212: -- condition 3 fails
213: FND_MESSAGE.SET_NAME('CN', 'CN_FORMULA_PLAN_CUM_FLAG');
214: FND_MSG_PUB.ADD;
215: RAISE FND_API.G_EXC_ERROR;
216: END IF;
217:
218: /*
219: -- condition 4
229:
230: -- Notes : Create calculation formula and generate formula packages
231: PROCEDURE Create_Formula
232: (p_api_version IN NUMBER ,
233: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
234: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
235: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
236: p_generate_packages IN VARCHAR2 := FND_API.G_TRUE ,
237: p_name IN CN_CALC_FORMULAS.NAME%TYPE,
230: -- Notes : Create calculation formula and generate formula packages
231: PROCEDURE Create_Formula
232: (p_api_version IN NUMBER ,
233: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
234: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
235: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
236: p_generate_packages IN VARCHAR2 := FND_API.G_TRUE ,
237: p_name IN CN_CALC_FORMULAS.NAME%TYPE,
238: p_description IN CN_CALC_FORMULAS.DESCRIPTION%TYPE
231: PROCEDURE Create_Formula
232: (p_api_version IN NUMBER ,
233: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
234: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
235: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
236: p_generate_packages IN VARCHAR2 := FND_API.G_TRUE ,
237: p_name IN CN_CALC_FORMULAS.NAME%TYPE,
238: p_description IN CN_CALC_FORMULAS.DESCRIPTION%TYPE
239: := null,
232: (p_api_version IN NUMBER ,
233: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
234: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
235: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
236: p_generate_packages IN VARCHAR2 := FND_API.G_TRUE ,
237: p_name IN CN_CALC_FORMULAS.NAME%TYPE,
238: p_description IN CN_CALC_FORMULAS.DESCRIPTION%TYPE
239: := null,
240: p_formula_type IN CN_CALC_FORMULAS.FORMULA_TYPE%TYPE,
276: BEGIN
277: -- Standard Start of API savepoint
278: SAVEPOINT Create_Formula;
279: -- Standard call to check for call compatibility.
280: IF NOT FND_API.Compatible_API_Call
281: (l_api_version ,
282: p_api_version ,
283: l_api_name ,
284: G_PKG_NAME )
282: p_api_version ,
283: l_api_name ,
284: G_PKG_NAME )
285: THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
290: FND_MSG_PUB.initialize;
285: THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
290: FND_MSG_PUB.initialize;
291: END IF;
292: -- Initialize API return status to success
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
290: FND_MSG_PUB.initialize;
291: END IF;
292: -- Initialize API return status to success
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
294:
295: -- API body
296: validate_name_flags(NULL,
297: p_name,
477: least(nvl(p_rt_assign_tbl(i).end_date,g_end_of_time),
478: nvl(p_rt_assign_tbl(j).end_date,g_end_of_time)) then
479: FND_MESSAGE.SET_NAME('CN', 'CN_DATE_OVERLAP');
480: FND_MSG_PUB.ADD;
481: RAISE FND_API.G_EXC_ERROR;
482: end if;
483: end loop;
484:
485: if p_rt_assign_tbl(i).start_date > nvl(p_rt_assign_tbl(i).end_date, g_end_of_time) then
484:
485: if p_rt_assign_tbl(i).start_date > nvl(p_rt_assign_tbl(i).end_date, g_end_of_time) then
486: FND_MESSAGE.SET_NAME('CN', 'ALL_INVALID_PERIOD_RANGE');
487: FND_MSG_PUB.ADD;
488: RAISE FND_API.G_EXC_ERROR;
489: end if;
490:
491: l_temp_id := NULL;
492: cn_rt_formula_asgns_pkg.insert_row
507: check_modeling(x_calc_formula_id, p_cumulative_flag, p_output_exp_id, p_f_output_exp_id);
508: end if;
509:
510: -- Standard check of p_commit.
511: IF FND_API.To_Boolean( p_commit ) THEN
512: COMMIT WORK;
513: END IF;
514:
515: -- this runs on its own separate commit cycle
512: COMMIT WORK;
513: END IF;
514:
515: -- this runs on its own separate commit cycle
516: IF fnd_api.to_boolean(p_generate_packages) THEN
517: generate_formula(p_api_version => 1.0,
518: p_calc_formula_id => x_calc_formula_id,
519: p_formula_type => p_formula_type,
520: p_trx_group_code => p_trx_group_code,
537: -- Standard call to get message count and if count is 1, get message info.
538: FND_MSG_PUB.Count_And_Get
539: (p_count => x_msg_count ,
540: p_data => x_msg_data ,
541: p_encoded => FND_API.G_FALSE );
542: EXCEPTION
543: WHEN FND_API.G_EXC_ERROR THEN
544: ROLLBACK TO Create_Formula;
545: x_return_status := FND_API.G_RET_STS_ERROR ;
539: (p_count => x_msg_count ,
540: p_data => x_msg_data ,
541: p_encoded => FND_API.G_FALSE );
542: EXCEPTION
543: WHEN FND_API.G_EXC_ERROR THEN
544: ROLLBACK TO Create_Formula;
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: FND_MSG_PUB.count_and_get
547: (p_count => x_msg_count ,
541: p_encoded => FND_API.G_FALSE );
542: EXCEPTION
543: WHEN FND_API.G_EXC_ERROR THEN
544: ROLLBACK TO Create_Formula;
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: FND_MSG_PUB.count_and_get
547: (p_count => x_msg_count ,
548: p_data => x_msg_data ,
549: p_encoded => FND_API.G_FALSE );
545: x_return_status := FND_API.G_RET_STS_ERROR ;
546: FND_MSG_PUB.count_and_get
547: (p_count => x_msg_count ,
548: p_data => x_msg_data ,
549: p_encoded => FND_API.G_FALSE );
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551: ROLLBACK TO Create_Formula;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
553: FND_MSG_PUB.count_and_get
546: FND_MSG_PUB.count_and_get
547: (p_count => x_msg_count ,
548: p_data => x_msg_data ,
549: p_encoded => FND_API.G_FALSE );
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551: ROLLBACK TO Create_Formula;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
553: FND_MSG_PUB.count_and_get
554: (p_count => x_msg_count ,
548: p_data => x_msg_data ,
549: p_encoded => FND_API.G_FALSE );
550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
551: ROLLBACK TO Create_Formula;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
553: FND_MSG_PUB.count_and_get
554: (p_count => x_msg_count ,
555: p_data => x_msg_data ,
556: p_encoded => FND_API.G_FALSE );
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
553: FND_MSG_PUB.count_and_get
554: (p_count => x_msg_count ,
555: p_data => x_msg_data ,
556: p_encoded => FND_API.G_FALSE );
557: WHEN OTHERS THEN
558: ROLLBACK TO Create_Formula;
559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
560: IF FND_MSG_PUB.check_msg_level
555: p_data => x_msg_data ,
556: p_encoded => FND_API.G_FALSE );
557: WHEN OTHERS THEN
558: ROLLBACK TO Create_Formula;
559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
560: IF FND_MSG_PUB.check_msg_level
561: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
562: THEN
563: FND_MSG_PUB.add_exc_msg
566: END IF;
567: FND_MSG_PUB.count_and_get
568: (p_count => x_msg_count ,
569: p_data => x_msg_data ,
570: p_encoded => FND_API.G_FALSE );
571: END Create_Formula;
572:
573: -- Notes : Update calculation formula and generate formula packages
574: PROCEDURE Update_Formula
572:
573: -- Notes : Update calculation formula and generate formula packages
574: PROCEDURE Update_Formula
575: (p_api_version IN NUMBER ,
576: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
577: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
578: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
579: p_generate_packages IN VARCHAR2 := FND_API.G_TRUE ,
580: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
573: -- Notes : Update calculation formula and generate formula packages
574: PROCEDURE Update_Formula
575: (p_api_version IN NUMBER ,
576: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
577: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
578: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
579: p_generate_packages IN VARCHAR2 := FND_API.G_TRUE ,
580: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
581: p_name IN CN_CALC_FORMULAS.NAME%TYPE,
574: PROCEDURE Update_Formula
575: (p_api_version IN NUMBER ,
576: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
577: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
578: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
579: p_generate_packages IN VARCHAR2 := FND_API.G_TRUE ,
580: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
581: p_name IN CN_CALC_FORMULAS.NAME%TYPE,
582: p_description IN CN_CALC_FORMULAS.DESCRIPTION%TYPE
575: (p_api_version IN NUMBER ,
576: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
577: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
578: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
579: p_generate_packages IN VARCHAR2 := FND_API.G_TRUE ,
580: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
581: p_name IN CN_CALC_FORMULAS.NAME%TYPE,
582: p_description IN CN_CALC_FORMULAS.DESCRIPTION%TYPE
583: := null,
685: BEGIN
686: -- Standard Start of API savepoint
687: SAVEPOINT Update_Formula;
688: -- Standard call to check for call compatibility.
689: IF NOT FND_API.Compatible_API_Call
690: (l_api_version ,
691: p_api_version ,
692: l_api_name ,
693: G_PKG_NAME )
691: p_api_version ,
692: l_api_name ,
693: G_PKG_NAME )
694: THEN
695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
696: END IF;
697: -- Initialize message list if p_init_msg_list is set to TRUE.
698: IF FND_API.to_Boolean( p_init_msg_list ) THEN
699: FND_MSG_PUB.initialize;
694: THEN
695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
696: END IF;
697: -- Initialize message list if p_init_msg_list is set to TRUE.
698: IF FND_API.to_Boolean( p_init_msg_list ) THEN
699: FND_MSG_PUB.initialize;
700: END IF;
701: -- Initialize API return status to success
702: x_return_status := FND_API.G_RET_STS_SUCCESS;
698: IF FND_API.to_Boolean( p_init_msg_list ) THEN
699: FND_MSG_PUB.initialize;
700: END IF;
701: -- Initialize API return status to success
702: x_return_status := FND_API.G_RET_STS_SUCCESS;
703:
704: -- API body
705:
706: -- validate name and flag combinations
1311: least(nvl(p_rt_assign_tbl(i).end_date,g_end_of_time),
1312: nvl(p_rt_assign_tbl(j).end_date,g_end_of_time)) then
1313: FND_MESSAGE.SET_NAME('CN', 'CN_DATE_OVERLAP');
1314: FND_MSG_PUB.ADD;
1315: RAISE FND_API.G_EXC_ERROR;
1316: end if;
1317: end loop;
1318:
1319: if p_rt_assign_tbl(i).start_date > nvl(p_rt_assign_tbl(i).end_date, g_end_of_time) then
1318:
1319: if p_rt_assign_tbl(i).start_date > nvl(p_rt_assign_tbl(i).end_date, g_end_of_time) then
1320: FND_MESSAGE.SET_NAME('CN', 'ALL_INVALID_PERIOD_RANGE');
1321: FND_MSG_PUB.ADD;
1322: RAISE FND_API.G_EXC_ERROR;
1323: end if;
1324:
1325: IF (p_rt_assign_tbl(i).rt_formula_asgn_id IS NULL) then
1326: l_temp_id := NULL;
1370: x_plan_elt_id_tbl => l_plan_elt_tbl,
1371: x_return_status => x_return_status,
1372: x_msg_count => x_msg_count,
1373: x_msg_data => x_msg_data);
1374: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1375: RAISE FND_API.G_EXC_ERROR;
1376: end if;
1377:
1378: -- Standard check of p_commit.
1371: x_return_status => x_return_status,
1372: x_msg_count => x_msg_count,
1373: x_msg_data => x_msg_data);
1374: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1375: RAISE FND_API.G_EXC_ERROR;
1376: end if;
1377:
1378: -- Standard check of p_commit.
1379: IF FND_API.To_Boolean( p_commit ) THEN
1375: RAISE FND_API.G_EXC_ERROR;
1376: end if;
1377:
1378: -- Standard check of p_commit.
1379: IF FND_API.To_Boolean( p_commit ) THEN
1380: COMMIT WORK;
1381: END IF;
1382:
1383: -- this runs on its own separate commit cycle
1380: COMMIT WORK;
1381: END IF;
1382:
1383: -- this runs on its own separate commit cycle
1384: IF fnd_api.to_boolean(p_generate_packages) THEN
1385: generate_formula(p_api_version => 1.0,
1386: p_calc_formula_id => p_calc_formula_id,
1387: p_formula_type => p_formula_type,
1388: p_trx_group_code => p_trx_group_code,
1404: -- Standard call to get message count and if count is 1, get message info.
1405: FND_MSG_PUB.count_and_get
1406: (p_count => x_msg_count ,
1407: p_data => x_msg_data ,
1408: p_encoded => FND_API.G_FALSE );
1409: EXCEPTION
1410: WHEN FND_API.G_EXC_ERROR THEN
1411: ROLLBACK TO Update_Formula;
1412: x_return_status := FND_API.G_RET_STS_ERROR ;
1406: (p_count => x_msg_count ,
1407: p_data => x_msg_data ,
1408: p_encoded => FND_API.G_FALSE );
1409: EXCEPTION
1410: WHEN FND_API.G_EXC_ERROR THEN
1411: ROLLBACK TO Update_Formula;
1412: x_return_status := FND_API.G_RET_STS_ERROR ;
1413: FND_MSG_PUB.count_and_get
1414: (p_count => x_msg_count ,
1408: p_encoded => FND_API.G_FALSE );
1409: EXCEPTION
1410: WHEN FND_API.G_EXC_ERROR THEN
1411: ROLLBACK TO Update_Formula;
1412: x_return_status := FND_API.G_RET_STS_ERROR ;
1413: FND_MSG_PUB.count_and_get
1414: (p_count => x_msg_count ,
1415: p_data => x_msg_data ,
1416: p_encoded => FND_API.G_FALSE );
1412: x_return_status := FND_API.G_RET_STS_ERROR ;
1413: FND_MSG_PUB.count_and_get
1414: (p_count => x_msg_count ,
1415: p_data => x_msg_data ,
1416: p_encoded => FND_API.G_FALSE );
1417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1418: ROLLBACK TO Update_Formula;
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1420: FND_MSG_PUB.count_and_get
1413: FND_MSG_PUB.count_and_get
1414: (p_count => x_msg_count ,
1415: p_data => x_msg_data ,
1416: p_encoded => FND_API.G_FALSE );
1417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1418: ROLLBACK TO Update_Formula;
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1420: FND_MSG_PUB.count_and_get
1421: (p_count => x_msg_count ,
1415: p_data => x_msg_data ,
1416: p_encoded => FND_API.G_FALSE );
1417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1418: ROLLBACK TO Update_Formula;
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1420: FND_MSG_PUB.count_and_get
1421: (p_count => x_msg_count ,
1422: p_data => x_msg_data ,
1423: p_encoded => FND_API.G_FALSE );
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1420: FND_MSG_PUB.count_and_get
1421: (p_count => x_msg_count ,
1422: p_data => x_msg_data ,
1423: p_encoded => FND_API.G_FALSE );
1424: WHEN OTHERS THEN
1425: ROLLBACK TO Update_Formula;
1426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1427: IF FND_MSG_PUB.check_msg_level
1422: p_data => x_msg_data ,
1423: p_encoded => FND_API.G_FALSE );
1424: WHEN OTHERS THEN
1425: ROLLBACK TO Update_Formula;
1426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1427: IF FND_MSG_PUB.check_msg_level
1428: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1429: THEN
1430: FND_MSG_PUB.add_exc_msg
1433: END IF;
1434: FND_MSG_PUB.count_and_get
1435: (p_count => x_msg_count ,
1436: p_data => x_msg_data ,
1437: p_encoded => FND_API.G_FALSE );
1438: END Update_Formula;
1439:
1440: -- Notes : Delete a formula
1441: PROCEDURE Delete_Formula
1439:
1440: -- Notes : Delete a formula
1441: PROCEDURE Delete_Formula
1442: (p_api_version IN NUMBER ,
1443: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1444: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1445: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
1446: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
1447: p_org_id IN CN_CALC_FORMULAS.ORG_ID%TYPE, --SFP related change
1440: -- Notes : Delete a formula
1441: PROCEDURE Delete_Formula
1442: (p_api_version IN NUMBER ,
1443: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1444: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1445: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
1446: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
1447: p_org_id IN CN_CALC_FORMULAS.ORG_ID%TYPE, --SFP related change
1448: --R12 MOAC Changes--Start
1441: PROCEDURE Delete_Formula
1442: (p_api_version IN NUMBER ,
1443: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1444: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1445: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
1446: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
1447: p_org_id IN CN_CALC_FORMULAS.ORG_ID%TYPE, --SFP related change
1448: --R12 MOAC Changes--Start
1449: p_object_version_number IN CN_CALC_FORMULAS.OBJECT_VERSION_NUMBER%TYPE, --new
1471: BEGIN
1472: -- Standard Start of API savepoint
1473: SAVEPOINT Delete_Formula;
1474: -- Standard call to check for call compatibility.
1475: IF NOT FND_API.Compatible_API_Call
1476: (l_api_version ,
1477: p_api_version ,
1478: l_api_name ,
1479: G_PKG_NAME )
1477: p_api_version ,
1478: l_api_name ,
1479: G_PKG_NAME )
1480: THEN
1481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1482: END IF;
1483: -- Initialize message list if p_init_msg_list is set to TRUE.
1484: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1485: FND_MSG_PUB.initialize;
1480: THEN
1481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1482: END IF;
1483: -- Initialize message list if p_init_msg_list is set to TRUE.
1484: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1485: FND_MSG_PUB.initialize;
1486: END IF;
1487: -- Initialize API return status to success
1488: x_return_status := FND_API.G_RET_STS_SUCCESS;
1484: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1485: FND_MSG_PUB.initialize;
1486: END IF;
1487: -- Initialize API return status to success
1488: x_return_status := FND_API.G_RET_STS_SUCCESS;
1489:
1490: -- API body
1491:
1492: -- make sure:
1502: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1503: fnd_message.set_name('CN', 'CN_FORMULA_IN_USE');
1504: fnd_msg_pub.ADD;
1505: END IF;
1506: RAISE fnd_api.g_exc_error;
1507: END IF;
1508:
1509: select count(1) into l_dummy
1510: from cn_quotas_v where calc_formula_id = p_calc_formula_id;
1512: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1513: fnd_message.set_name('CN', 'CN_FORMULA_IN_USE');
1514: fnd_msg_pub.ADD;
1515: END IF;
1516: RAISE fnd_api.g_exc_error;
1517: END IF;
1518:
1519: select count(1) into l_dummy
1520: from cn_calc_formulas f, cn_role_quota_cates r
1525: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1526: fnd_message.set_name('CN', 'CN_CANNOT_DEL_PLANNING_FORM');
1527: fnd_msg_pub.ADD;
1528: END IF;
1529: RAISE fnd_api.g_exc_error;
1530: END IF;
1531:
1532: /* Start - R12 Notes History */
1533: --SELECT org_id, name INTO l_org_id, l_formula_name
1571:
1572: -- End of API body.
1573:
1574: -- Standard check of p_commit.
1575: IF FND_API.To_Boolean( p_commit ) THEN
1576: COMMIT WORK;
1577: END IF;
1578: -- Standard call to get message count and if count is 1, get message info.
1579: FND_MSG_PUB.count_and_get
1578: -- Standard call to get message count and if count is 1, get message info.
1579: FND_MSG_PUB.count_and_get
1580: (p_count => x_msg_count ,
1581: p_data => x_msg_data ,
1582: p_encoded => FND_API.G_FALSE );
1583: EXCEPTION
1584: WHEN FND_API.G_EXC_ERROR THEN
1585: ROLLBACK TO Delete_Formula;
1586: x_return_status := FND_API.G_RET_STS_ERROR ;
1580: (p_count => x_msg_count ,
1581: p_data => x_msg_data ,
1582: p_encoded => FND_API.G_FALSE );
1583: EXCEPTION
1584: WHEN FND_API.G_EXC_ERROR THEN
1585: ROLLBACK TO Delete_Formula;
1586: x_return_status := FND_API.G_RET_STS_ERROR ;
1587: FND_MSG_PUB.count_and_get
1588: (p_count => x_msg_count ,
1582: p_encoded => FND_API.G_FALSE );
1583: EXCEPTION
1584: WHEN FND_API.G_EXC_ERROR THEN
1585: ROLLBACK TO Delete_Formula;
1586: x_return_status := FND_API.G_RET_STS_ERROR ;
1587: FND_MSG_PUB.count_and_get
1588: (p_count => x_msg_count ,
1589: p_data => x_msg_data ,
1590: p_encoded => FND_API.G_FALSE );
1586: x_return_status := FND_API.G_RET_STS_ERROR ;
1587: FND_MSG_PUB.count_and_get
1588: (p_count => x_msg_count ,
1589: p_data => x_msg_data ,
1590: p_encoded => FND_API.G_FALSE );
1591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1592: ROLLBACK TO Delete_Formula;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1594: FND_MSG_PUB.count_and_get
1587: FND_MSG_PUB.count_and_get
1588: (p_count => x_msg_count ,
1589: p_data => x_msg_data ,
1590: p_encoded => FND_API.G_FALSE );
1591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1592: ROLLBACK TO Delete_Formula;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1594: FND_MSG_PUB.count_and_get
1595: (p_count => x_msg_count ,
1589: p_data => x_msg_data ,
1590: p_encoded => FND_API.G_FALSE );
1591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1592: ROLLBACK TO Delete_Formula;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1594: FND_MSG_PUB.count_and_get
1595: (p_count => x_msg_count ,
1596: p_data => x_msg_data ,
1597: p_encoded => FND_API.G_FALSE );
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1594: FND_MSG_PUB.count_and_get
1595: (p_count => x_msg_count ,
1596: p_data => x_msg_data ,
1597: p_encoded => FND_API.G_FALSE );
1598: WHEN OTHERS THEN
1599: ROLLBACK TO Delete_Formula;
1600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1601: IF FND_MSG_PUB.check_msg_level
1596: p_data => x_msg_data ,
1597: p_encoded => FND_API.G_FALSE );
1598: WHEN OTHERS THEN
1599: ROLLBACK TO Delete_Formula;
1600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1601: IF FND_MSG_PUB.check_msg_level
1602: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1603: THEN
1604: FND_MSG_PUB.add_exc_msg
1607: END IF;
1608: FND_MSG_PUB.count_and_get
1609: (p_count => x_msg_count ,
1610: p_data => x_msg_data ,
1611: p_encoded => FND_API.G_FALSE );
1612: END Delete_Formula;
1613:
1614:
1615: -- Notes : Generate the PL/SQL packages for the given formula
1614:
1615: -- Notes : Generate the PL/SQL packages for the given formula
1616: PROCEDURE generate_formula
1617: (p_api_version IN NUMBER ,
1618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1619: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1620: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1621: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
1622: p_formula_type IN CN_CALC_FORMULAS.FORMULA_TYPE%TYPE,
1615: -- Notes : Generate the PL/SQL packages for the given formula
1616: PROCEDURE generate_formula
1617: (p_api_version IN NUMBER ,
1618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1619: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1620: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1621: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
1622: p_formula_type IN CN_CALC_FORMULAS.FORMULA_TYPE%TYPE,
1623: p_trx_group_code IN CN_CALC_FORMULAS.TRX_GROUP_CODE%TYPE,
1616: PROCEDURE generate_formula
1617: (p_api_version IN NUMBER ,
1618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1619: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1620: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1621: p_calc_formula_id IN CN_CALC_FORMULAS.CALC_FORMULA_ID%TYPE,
1622: p_formula_type IN CN_CALC_FORMULAS.FORMULA_TYPE%TYPE,
1623: p_trx_group_code IN CN_CALC_FORMULAS.TRX_GROUP_CODE%TYPE,
1624: p_number_dim IN CN_CALC_FORMULAS.NUMBER_DIM%TYPE,
1713: BEGIN
1714: -- Standard Start of API savepoint
1715: SAVEPOINT Generate_Formula;
1716: -- Standard call to check for call compatibility.
1717: IF NOT FND_API.Compatible_API_Call
1718: (l_api_version ,
1719: p_api_version ,
1720: l_api_name ,
1721: G_PKG_NAME )
1719: p_api_version ,
1720: l_api_name ,
1721: G_PKG_NAME )
1722: THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1725: -- Initialize message list if p_init_msg_list is set to TRUE.
1726: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1727: FND_MSG_PUB.initialize;
1722: THEN
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END IF;
1725: -- Initialize message list if p_init_msg_list is set to TRUE.
1726: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1727: FND_MSG_PUB.initialize;
1728: END IF;
1729: -- Initialize API return status to success
1730: x_return_status := FND_API.G_RET_STS_SUCCESS;
1726: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1727: FND_MSG_PUB.initialize;
1728: END IF;
1729: -- Initialize API return status to success
1730: x_return_status := FND_API.G_RET_STS_SUCCESS;
1731:
1732: -- API body
1733:
1734: -- get formula info if not provided by caller
1731:
1732: -- API body
1733:
1734: -- get formula info if not provided by caller
1735: IF (p_formula_type = fnd_api.g_miss_char OR
1736: p_trx_group_code = fnd_api.g_miss_char OR
1737: p_number_dim = fnd_api.g_miss_num OR
1738: p_itd_flag = fnd_api.g_miss_char OR
1739: p_perf_measure_id = fnd_api.g_miss_num OR
1732: -- API body
1733:
1734: -- get formula info if not provided by caller
1735: IF (p_formula_type = fnd_api.g_miss_char OR
1736: p_trx_group_code = fnd_api.g_miss_char OR
1737: p_number_dim = fnd_api.g_miss_num OR
1738: p_itd_flag = fnd_api.g_miss_char OR
1739: p_perf_measure_id = fnd_api.g_miss_num OR
1740: p_output_exp_id = fnd_api.g_miss_num OR
1733:
1734: -- get formula info if not provided by caller
1735: IF (p_formula_type = fnd_api.g_miss_char OR
1736: p_trx_group_code = fnd_api.g_miss_char OR
1737: p_number_dim = fnd_api.g_miss_num OR
1738: p_itd_flag = fnd_api.g_miss_char OR
1739: p_perf_measure_id = fnd_api.g_miss_num OR
1740: p_output_exp_id = fnd_api.g_miss_num OR
1741: p_f_output_exp_id = fnd_api.g_miss_num)
1734: -- get formula info if not provided by caller
1735: IF (p_formula_type = fnd_api.g_miss_char OR
1736: p_trx_group_code = fnd_api.g_miss_char OR
1737: p_number_dim = fnd_api.g_miss_num OR
1738: p_itd_flag = fnd_api.g_miss_char OR
1739: p_perf_measure_id = fnd_api.g_miss_num OR
1740: p_output_exp_id = fnd_api.g_miss_num OR
1741: p_f_output_exp_id = fnd_api.g_miss_num)
1742: THEN
1735: IF (p_formula_type = fnd_api.g_miss_char OR
1736: p_trx_group_code = fnd_api.g_miss_char OR
1737: p_number_dim = fnd_api.g_miss_num OR
1738: p_itd_flag = fnd_api.g_miss_char OR
1739: p_perf_measure_id = fnd_api.g_miss_num OR
1740: p_output_exp_id = fnd_api.g_miss_num OR
1741: p_f_output_exp_id = fnd_api.g_miss_num)
1742: THEN
1743: OPEN formula_info;
1736: p_trx_group_code = fnd_api.g_miss_char OR
1737: p_number_dim = fnd_api.g_miss_num OR
1738: p_itd_flag = fnd_api.g_miss_char OR
1739: p_perf_measure_id = fnd_api.g_miss_num OR
1740: p_output_exp_id = fnd_api.g_miss_num OR
1741: p_f_output_exp_id = fnd_api.g_miss_num)
1742: THEN
1743: OPEN formula_info;
1744: FETCH formula_info INTO
1737: p_number_dim = fnd_api.g_miss_num OR
1738: p_itd_flag = fnd_api.g_miss_char OR
1739: p_perf_measure_id = fnd_api.g_miss_num OR
1740: p_output_exp_id = fnd_api.g_miss_num OR
1741: p_f_output_exp_id = fnd_api.g_miss_num)
1742: THEN
1743: OPEN formula_info;
1744: FETCH formula_info INTO
1745: l_formula_type,
1771: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1772: fnd_message.set_name('CN', 'CN_INVALID_PERF');
1773: fnd_msg_pub.ADD;
1774: END IF;
1775: RAISE fnd_api.g_exc_error;
1776: ELSE
1777: IF (l_formula_type = 'C') THEN
1778: IF (l_exp_type_code NOT IN ('IIIOIPGP', 'IRIOIPGOGPBIBOBPFRFO', 'IRIOIPGOGPBIBOBPFRFODDT')) THEN
1779: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1779: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1780: fnd_message.set_name('CN', 'CN_UNMATCHED_PERF');
1781: fnd_msg_pub.ADD;
1782: END IF;
1783: RAISE fnd_api.g_exc_error;
1784: END IF;
1785: ELSIF (l_formula_type = 'B') THEN
1786: IF (l_exp_type_code NOT IN ('IRIOIPGOGPBIBOBPFRFO', 'IRIOIPGOGPBIBOBPFRFODDT', 'IIIOIPGOGPBIBOBP')) THEN
1787: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1787: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1788: fnd_message.set_name('CN', 'CN_UNMATCHED_PERF');
1789: fnd_msg_pub.ADD;
1790: END IF;
1791: RAISE fnd_api.g_exc_error;
1792: END IF;
1793: END IF;
1794: END IF;
1795: END IF;
1811: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1812: fnd_message.set_name('CN', 'CN_INVALID_OUTPUT');
1813: fnd_msg_pub.ADD;
1814: END IF;
1815: RAISE fnd_api.g_exc_error;
1816: ELSE
1817: IF (l_formula_type = 'C' AND l_trx_group_code = 'INDIVIDUAL' AND l_itd_flag = 'Y') THEN
1818: IF (l_exp_type_code NOT IN ('IO', 'IIIO', 'IOGOBOFO', 'IIIOIPGP', 'IOGOBO', 'IRIOIPGOGPBIBOBPFRFO', 'IRIOIPGOGPBIBOBPFRFODDT', 'IIIOIPGOGPBIBOBP')) THEN
1819: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1819: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1820: fnd_message.set_name('CN', 'CN_UNMATCHED_OUTPUT');
1821: fnd_msg_pub.ADD;
1822: END IF;
1823: RAISE fnd_api.g_exc_error;
1824: END IF;
1825: ELSIF (l_formula_type = 'C' AND l_trx_group_code = 'INDIVIDUAL' AND l_itd_flag = 'N') THEN
1826: IF (l_exp_type_code NOT IN ('IO', 'IO_ITDN', 'IIIO', 'IIIOIPGP', 'IOGOBOFO', 'IOGOBO', 'IRIOIPGOGPBIBOBPFRFO', 'IRIOIPGOGPBIBOBPFRFODDT', 'IIIOIPGOGPBIBOBP')) THEN
1827: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1827: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1828: fnd_message.set_name('CN', 'CN_UNMATCHED_OUTPUT');
1829: fnd_msg_pub.ADD;
1830: END IF;
1831: RAISE fnd_api.g_exc_error;
1832: END IF;
1833: ELSIF (l_formula_type = 'C' AND l_trx_group_code = 'GROUP') THEN
1834: IF (l_exp_type_code NOT IN ('GO', 'GIGO', 'IOGOBOFO', 'IRIOIPGOGPBIBOBPFRFO', 'IRIOIPGOGPBIBOBPFRFODDT', 'IOGOBO', 'IIIOIPGOGPBIBOBP')) THEN
1835: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1835: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1836: fnd_message.set_name('CN', 'CN_UNMATCHED_OUTPUT');
1837: fnd_msg_pub.ADD;
1838: END IF;
1839: RAISE fnd_api.g_exc_error;
1840: END IF;
1841: ELSIF (l_formula_type = 'B') THEN
1842: IF (l_exp_type_code NOT IN ('IOGOBOFO', 'IRIOIPGOGPBIBOBPFRFO', 'IRIOIPGOGPBIBOBPFRFODDT', 'IOGOBO', 'IIIOIPGOGPBIBOBP')) THEN
1843: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1843: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1844: fnd_message.set_name('CN', 'CN_UNMATCHED_OUTPUT');
1845: fnd_msg_pub.ADD;
1846: END IF;
1847: RAISE fnd_api.g_exc_error;
1848: END IF;
1849: END IF;
1850: END IF;
1851:
1855: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1856: fnd_message.set_name('CN', 'CN_INVALID_INPUT');
1857: fnd_msg_pub.ADD;
1858: END IF;
1859: RAISE fnd_api.g_exc_error;
1860: ELSE
1861: IF (l_formula_type = 'C' AND l_trx_group_code = 'INDIVIDUAL') THEN
1862: IF (input.exp_type_code NOT IN ('IIIOIPGP', 'IIIO', 'IRIOIPGOGPBIBOBPFRFO', 'IRIOIPGOGPBIBOBPFRFODDT', 'IIIOIPGOGPBIBOBP')) THEN
1863: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1863: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1864: fnd_message.set_name('CN', 'CN_UNMATCHED_INPUT');
1865: fnd_msg_pub.ADD;
1866: END IF;
1867: RAISE fnd_api.g_exc_error;
1868: END IF;
1869:
1870: IF (input.exp_type_code IN ('IIIOIPGP', 'IIIO', 'IIIOIPGOGPBIBOBP')) THEN
1871: l_ii_flag := 'Y';
1875: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1876: fnd_message.set_name('CN', 'CN_UNMATCHED_INPUT');
1877: fnd_msg_pub.ADD;
1878: END IF;
1879: RAISE fnd_api.g_exc_error;
1880: END IF;
1881: l_ii_flag := 'Y';
1882: ELSIF (l_formula_type = 'B') THEN
1883: IF (input.exp_type_code NOT IN ('IRIOIPGOGPBIBOBPFRFO', 'IRIOIPGOGPBIBOBPFRFODDT', 'IIIOIPGOGPBIBOBP')) THEN
1884: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1885: fnd_message.set_name('CN', 'CN_UNMATCHED_INPUT');
1886: fnd_msg_pub.ADD;
1887: END IF;
1888: RAISE fnd_api.g_exc_error;
1889: END IF;
1890: l_ii_flag := 'Y';
1891: END IF;
1892: END IF;
1901: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1902: fnd_message.set_name('CN', 'CN_NO_LINE_HEADER');
1903: fnd_msg_pub.ADD;
1904: END IF;
1905: RAISE fnd_api.g_exc_error;
1906: END IF;
1907:
1908: -- changes for BUG#2797926
1909: OPEN formula_split_info;
1921: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1922: fnd_message.set_name('CN', 'CN_NO_SPLIT_INPUT_EXP');
1923: fnd_msg_pub.ADD;
1924: END IF;
1925: RAISE fnd_api.g_exc_error;
1926: END IF;
1927: END IF;
1928:
1929: IF (l_input_count <> l_number_dim) THEN
1930: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1931: fnd_message.set_name('CN', 'CN_WRONG_NUMBER_DIM');
1932: fnd_msg_pub.ADD;
1933: END IF;
1934: RAISE fnd_api.g_exc_error;
1935: END IF;
1936:
1937: -- check and make sure that the number of inputs matches the number of
1938: -- dimensions in the assigned rate tables.
1943: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1944: fnd_message.set_name('CN', 'CN_RT_NOT_MATCH');
1945: fnd_msg_pub.ADD;
1946: END IF;
1947: RAISE fnd_api.g_exc_error;
1948: END IF;
1949:
1950: cn_formula_gen_pkg.generate_formula
1951: (p_api_version => 1.0,
1957: p_org_id => p_org_id,
1958: --R12 MOAC Changes--End
1959: x_process_audit_id => l_process_audit_id);
1960:
1961: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
1962: x_formula_status := 'COMPLETE';
1963:
1964: -- clku, bug 2805095, call mark event here instead of call in table trigger
1965: select name into
1986:
1987: -- End of API body.
1988:
1989: -- Standard check of p_commit.
1990: IF FND_API.To_Boolean( p_commit ) THEN
1991: COMMIT WORK;
1992: END IF;
1993: -- Standard call to get message count and if count is 1, get message info.
1994: FND_MSG_PUB.Count_And_Get
1993: -- Standard call to get message count and if count is 1, get message info.
1994: FND_MSG_PUB.Count_And_Get
1995: (p_count => x_msg_count ,
1996: p_data => x_msg_data ,
1997: p_encoded => FND_API.G_FALSE );
1998: EXCEPTION
1999: WHEN FND_API.G_EXC_ERROR THEN
2000: ROLLBACK TO Generate_Formula;
2001: x_return_status := FND_API.G_RET_STS_ERROR ;
1995: (p_count => x_msg_count ,
1996: p_data => x_msg_data ,
1997: p_encoded => FND_API.G_FALSE );
1998: EXCEPTION
1999: WHEN FND_API.G_EXC_ERROR THEN
2000: ROLLBACK TO Generate_Formula;
2001: x_return_status := FND_API.G_RET_STS_ERROR ;
2002: FND_MSG_PUB.count_and_get
2003: (p_count => x_msg_count ,
1997: p_encoded => FND_API.G_FALSE );
1998: EXCEPTION
1999: WHEN FND_API.G_EXC_ERROR THEN
2000: ROLLBACK TO Generate_Formula;
2001: x_return_status := FND_API.G_RET_STS_ERROR ;
2002: FND_MSG_PUB.count_and_get
2003: (p_count => x_msg_count ,
2004: p_data => x_msg_data ,
2005: p_encoded => FND_API.G_FALSE );
2001: x_return_status := FND_API.G_RET_STS_ERROR ;
2002: FND_MSG_PUB.count_and_get
2003: (p_count => x_msg_count ,
2004: p_data => x_msg_data ,
2005: p_encoded => FND_API.G_FALSE );
2006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2007: ROLLBACK TO Generate_Formula;
2008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2009: FND_MSG_PUB.count_and_get
2002: FND_MSG_PUB.count_and_get
2003: (p_count => x_msg_count ,
2004: p_data => x_msg_data ,
2005: p_encoded => FND_API.G_FALSE );
2006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2007: ROLLBACK TO Generate_Formula;
2008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2009: FND_MSG_PUB.count_and_get
2010: (p_count => x_msg_count ,
2004: p_data => x_msg_data ,
2005: p_encoded => FND_API.G_FALSE );
2006: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2007: ROLLBACK TO Generate_Formula;
2008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2009: FND_MSG_PUB.count_and_get
2010: (p_count => x_msg_count ,
2011: p_data => x_msg_data ,
2012: p_encoded => FND_API.G_FALSE );
2008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2009: FND_MSG_PUB.count_and_get
2010: (p_count => x_msg_count ,
2011: p_data => x_msg_data ,
2012: p_encoded => FND_API.G_FALSE );
2013: WHEN OTHERS THEN
2014: ROLLBACK TO Generate_Formula;
2015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2016: IF FND_MSG_PUB.check_msg_level
2011: p_data => x_msg_data ,
2012: p_encoded => FND_API.G_FALSE );
2013: WHEN OTHERS THEN
2014: ROLLBACK TO Generate_Formula;
2015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2016: IF FND_MSG_PUB.check_msg_level
2017: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2018: THEN
2019: FND_MSG_PUB.add_exc_msg
2022: END IF;
2023: FND_MSG_PUB.count_and_get
2024: (p_count => x_msg_count ,
2025: p_data => x_msg_data ,
2026: p_encoded => FND_API.G_FALSE );
2027: END generate_formula;
2028:
2029: END CN_CALC_FORMULAS_PVT;