[Home] [Help]
47: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
48: fnd_message.set_token('OBJ_NAME', l_prompt);
49: fnd_msg_pub.ADD;
50: END IF;
51: RAISE fnd_api.g_exc_error;
52: END IF;
53:
54: OPEN name_exists;
55: FETCH name_exists INTO l_dummy;
59: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
60: fnd_message.set_name('CN', 'CN_NAME_NOT_UNIQUE');
61: fnd_msg_pub.ADD;
62: END IF;
63: RAISE fnd_api.g_exc_error;
64: END IF;
65:
66: -- validate dim_unit_code
67: IF (p_dim_unit_code NOT IN ('AMOUNT', 'PERCENT', 'STRING', 'EXPRESSION')) THEN
68: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
69: fnd_message.set_name('CN', 'CN_INVALID_DIM_UOM');
70: fnd_msg_pub.ADD;
71: END IF;
72: RAISE fnd_api.g_exc_error;
73: END IF;
74:
75: -- if p_tiers_tbl is not empty, then p_number_tier should be equal to the number of records in p_tiers_tbl
76: IF (p_tiers_tbl.COUNT > 0 AND p_number_tier <> p_tiers_tbl.count) THEN
77: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
78: fnd_message.set_name('CN', 'CN_X_NUMBER_TIER');
79: fnd_msg_pub.ADD;
80: END IF;
81: RAISE fnd_api.g_exc_error;
82: END IF;
83:
84: -- 3. if p_dim_unit_code is AMOUNT or PERCENT, then min_amount > max_amount
85: IF (p_dim_unit_code IN ('AMOUNT', 'PERCENT') AND p_tiers_tbl.COUNT > 0) THEN
89: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
90: fnd_message.set_name('CN', 'CN_MIN_G_MAX');
91: fnd_msg_pub.ADD;
92: END IF;
93: RAISE fnd_api.g_exc_error;
94: END IF;
95:
96: -- if minimum_amount is not equal to previous tier's maximum_amount, then error
97: IF (i > 1 AND p_tiers_tbl(i).minimum_amount <> p_tiers_tbl(i-1).maximum_amount) THEN
98: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
99: fnd_message.set_name('CN', 'CN_MIN_NE_MAX');
100: fnd_msg_pub.ADD;
101: END IF;
102: RAISE fnd_api.g_exc_error;
103: END IF;
104: END LOOP;
105: END IF;
106:
117: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
118: fnd_message.set_name('CN', 'CN_EXP_NOT_EXIST');
119: fnd_msg_pub.ADD;
120: END IF;
121: RAISE fnd_api.g_exc_error;
122: ELSIF (l_dummy = 2) THEN
123: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
124: fnd_message.set_name('CN', 'CN_EXP_NOT_MATCH');
125: fnd_msg_pub.ADD;
123: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
124: fnd_message.set_name('CN', 'CN_EXP_NOT_MATCH');
125: fnd_msg_pub.ADD;
126: END IF;
127: RAISE fnd_api.g_exc_error;
128: END IF;
129:
130: OPEN exp_info(p_tiers_tbl(i).max_exp_id);
131: FETCH exp_info INTO l_dummy;
135: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
136: fnd_message.set_name('CN', 'CN_EXP_NOT_EXIST');
137: fnd_msg_pub.ADD;
138: END IF;
139: RAISE fnd_api.g_exc_error;
140: ELSIF (l_dummy = 2) THEN
141: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
142: fnd_message.set_name('CN', 'CN_EXP_NOT_MATCH');
143: fnd_msg_pub.ADD;
141: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
142: fnd_message.set_name('CN', 'CN_EXP_NOT_MATCH');
143: fnd_msg_pub.ADD;
144: END IF;
145: RAISE fnd_api.g_exc_error;
146: END IF;
147: END LOOP;
148: END IF;
149:
157: -- tiers in p_tiers_tbl if it is not empty
158: -- 4) Validate dimension tiers (max_amount > min_amount)
159: PROCEDURE Create_Dimension
160: (p_api_version IN NUMBER ,
161: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
162: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
163: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
164: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
165: p_description IN CN_RATE_DIMENSIONS.DESCRIPTION%TYPE := NULL,
158: -- 4) Validate dimension tiers (max_amount > min_amount)
159: PROCEDURE Create_Dimension
160: (p_api_version IN NUMBER ,
161: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
162: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
163: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
164: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
165: p_description IN CN_RATE_DIMENSIONS.DESCRIPTION%TYPE := NULL,
166: p_dim_unit_code IN CN_RATE_DIMENSIONS.DIM_UNIT_CODE%TYPE,
159: PROCEDURE Create_Dimension
160: (p_api_version IN NUMBER ,
161: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
162: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
163: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
164: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
165: p_description IN CN_RATE_DIMENSIONS.DESCRIPTION%TYPE := NULL,
166: p_dim_unit_code IN CN_RATE_DIMENSIONS.DIM_UNIT_CODE%TYPE,
167: p_number_tier IN CN_RATE_DIMENSIONS.NUMBER_TIER%TYPE, -- not used
188: BEGIN
189: -- Standard Start of API savepoint
190: SAVEPOINT Create_Dimension;
191: -- Standard call to check for call compatibility.
192: IF NOT FND_API.Compatible_API_Call
193: (l_api_version ,
194: p_api_version ,
195: l_api_name ,
196: G_PKG_NAME )
194: p_api_version ,
195: l_api_name ,
196: G_PKG_NAME )
197: THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: END IF;
200: -- Initialize message list if p_init_msg_list is set to TRUE.
201: IF FND_API.to_Boolean( p_init_msg_list ) THEN
202: FND_MSG_PUB.initialize;
197: THEN
198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
199: END IF;
200: -- Initialize message list if p_init_msg_list is set to TRUE.
201: IF FND_API.to_Boolean( p_init_msg_list ) THEN
202: FND_MSG_PUB.initialize;
203: END IF;
204: -- Initialize API return status to success
205: x_return_status := FND_API.G_RET_STS_SUCCESS;
201: IF FND_API.to_Boolean( p_init_msg_list ) THEN
202: FND_MSG_PUB.initialize;
203: END IF;
204: -- Initialize API return status to success
205: x_return_status := FND_API.G_RET_STS_SUCCESS;
206:
207: -- API body
208:
209: -- calculate number of tiers (p_number_tier not used)
292: -- *********************************************************************
293: -- End of API body.
294:
295: -- Standard check of p_commit.
296: IF FND_API.To_Boolean( p_commit ) THEN
297: COMMIT WORK;
298: END IF;
299: -- Standard call to get message count and if count is 1, get message info.
300: FND_MSG_PUB.Count_And_Get
299: -- Standard call to get message count and if count is 1, get message info.
300: FND_MSG_PUB.Count_And_Get
301: (p_count => x_msg_count ,
302: p_data => x_msg_data ,
303: p_encoded => FND_API.G_FALSE );
304: EXCEPTION
305: WHEN FND_API.G_EXC_ERROR THEN
306: ROLLBACK TO Create_Dimension;
307: x_return_status := FND_API.G_RET_STS_ERROR ;
301: (p_count => x_msg_count ,
302: p_data => x_msg_data ,
303: p_encoded => FND_API.G_FALSE );
304: EXCEPTION
305: WHEN FND_API.G_EXC_ERROR THEN
306: ROLLBACK TO Create_Dimension;
307: x_return_status := FND_API.G_RET_STS_ERROR ;
308: FND_MSG_PUB.count_and_get
309: (p_count => x_msg_count ,
303: p_encoded => FND_API.G_FALSE );
304: EXCEPTION
305: WHEN FND_API.G_EXC_ERROR THEN
306: ROLLBACK TO Create_Dimension;
307: x_return_status := FND_API.G_RET_STS_ERROR ;
308: FND_MSG_PUB.count_and_get
309: (p_count => x_msg_count ,
310: p_data => x_msg_data ,
311: p_encoded => FND_API.G_FALSE );
307: x_return_status := FND_API.G_RET_STS_ERROR ;
308: FND_MSG_PUB.count_and_get
309: (p_count => x_msg_count ,
310: p_data => x_msg_data ,
311: p_encoded => FND_API.G_FALSE );
312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
313: ROLLBACK TO Create_Dimension;
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
315: FND_MSG_PUB.count_and_get
308: FND_MSG_PUB.count_and_get
309: (p_count => x_msg_count ,
310: p_data => x_msg_data ,
311: p_encoded => FND_API.G_FALSE );
312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
313: ROLLBACK TO Create_Dimension;
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
315: FND_MSG_PUB.count_and_get
316: (p_count => x_msg_count ,
310: p_data => x_msg_data ,
311: p_encoded => FND_API.G_FALSE );
312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
313: ROLLBACK TO Create_Dimension;
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
315: FND_MSG_PUB.count_and_get
316: (p_count => x_msg_count ,
317: p_data => x_msg_data ,
318: p_encoded => FND_API.G_FALSE );
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
315: FND_MSG_PUB.count_and_get
316: (p_count => x_msg_count ,
317: p_data => x_msg_data ,
318: p_encoded => FND_API.G_FALSE );
319: WHEN OTHERS THEN
320: ROLLBACK TO Create_Dimension;
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
322: IF FND_MSG_PUB.check_msg_level
317: p_data => x_msg_data ,
318: p_encoded => FND_API.G_FALSE );
319: WHEN OTHERS THEN
320: ROLLBACK TO Create_Dimension;
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
322: IF FND_MSG_PUB.check_msg_level
323: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
324: THEN
325: FND_MSG_PUB.add_exc_msg
328: END IF;
329: FND_MSG_PUB.count_and_get
330: (p_count => x_msg_count ,
331: p_data => x_msg_data ,
332: p_encoded => FND_API.G_FALSE );
333: END Create_Dimension;
334:
335: -- Notes : Update rate dimensions and dimension tiers
336: -- 1) Validate dimension name (should be unique)
344: -- turn used in a formula, then dim_unit_code
345: -- can not be updated
346: PROCEDURE Update_Dimension
347: (p_api_version IN NUMBER ,
348: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
349: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
350: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
351: p_rate_dimension_id IN CN_RATE_DIMENSIONS.RATE_DIMENSION_ID%TYPE,
352: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
345: -- can not be updated
346: PROCEDURE Update_Dimension
347: (p_api_version IN NUMBER ,
348: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
349: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
350: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
351: p_rate_dimension_id IN CN_RATE_DIMENSIONS.RATE_DIMENSION_ID%TYPE,
352: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
353: p_description IN CN_RATE_DIMENSIONS.DESCRIPTION%TYPE := NULL,
346: PROCEDURE Update_Dimension
347: (p_api_version IN NUMBER ,
348: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
349: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
350: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
351: p_rate_dimension_id IN CN_RATE_DIMENSIONS.RATE_DIMENSION_ID%TYPE,
352: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
353: p_description IN CN_RATE_DIMENSIONS.DESCRIPTION%TYPE := NULL,
354: p_dim_unit_code IN CN_RATE_DIMENSIONS.DIM_UNIT_CODE%TYPE,
399: BEGIN
400: -- Standard Start of API savepoint
401: SAVEPOINT Update_Dimension;
402: -- Standard call to check for call compatibility.
403: IF NOT FND_API.Compatible_API_Call
404: (l_api_version ,
405: p_api_version ,
406: l_api_name ,
407: G_PKG_NAME )
405: p_api_version ,
406: l_api_name ,
407: G_PKG_NAME )
408: THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: END IF;
411: -- Initialize message list if p_init_msg_list is set to TRUE.
412: IF FND_API.to_Boolean( p_init_msg_list ) THEN
413: FND_MSG_PUB.initialize;
408: THEN
409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
410: END IF;
411: -- Initialize message list if p_init_msg_list is set to TRUE.
412: IF FND_API.to_Boolean( p_init_msg_list ) THEN
413: FND_MSG_PUB.initialize;
414: END IF;
415: -- Initialize API return status to success
416: x_return_status := FND_API.G_RET_STS_SUCCESS;
412: IF FND_API.to_Boolean( p_init_msg_list ) THEN
413: FND_MSG_PUB.initialize;
414: END IF;
415: -- Initialize API return status to success
416: x_return_status := FND_API.G_RET_STS_SUCCESS;
417:
418: -- API body
419: -- calculate number of tiers (p_number_tier not used)
420: -- set number_tier := number of tiers of p_tiers_tbl
443: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
444: fnd_message.set_name('CN', 'CN_X_UPDATE_DUC1');
445: fnd_msg_pub.ADD;
446: END IF;
447: RAISE fnd_api.g_exc_error;
448: END IF;
449:
450: -- dim_unit_code can be changed only between AMOUNT and PERCENT
451: IF (p_dim_unit_code NOT IN ('AMOUNT', 'PERCENT') OR
453: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
454: fnd_message.set_name('CN', 'CN_X_UPDATE_DUC2');
455: fnd_msg_pub.ADD;
456: END IF;
457: RAISE fnd_api.g_exc_error;
458: END IF;
459: END IF;
460:
461: -- *********************************************************************
479: p_rate_dim_tier_id => db_tier.rate_dim_tier_id,
480: x_return_status => x_return_status,
481: x_msg_count => x_msg_count,
482: x_msg_data => x_msg_data);
483: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
484: RAISE fnd_api.g_exc_error;
485: END IF;
486: END IF;
487: END LOOP;
480: x_return_status => x_return_status,
481: x_msg_count => x_msg_count,
482: x_msg_data => x_msg_data);
483: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
484: RAISE fnd_api.g_exc_error;
485: END IF;
486: END IF;
487: END LOOP;
488:
525: x_return_status => x_return_status,
526: x_msg_count => x_msg_count,
527: x_msg_data => x_msg_data);
528:
529: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
530: RAISE fnd_api.g_exc_error;
531: END IF;
532: END IF;
533: END LOOP;
526: x_msg_count => x_msg_count,
527: x_msg_data => x_msg_data);
528:
529: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
530: RAISE fnd_api.g_exc_error;
531: END IF;
532: END IF;
533: END LOOP;
534: END IF;
629:
630: -- End of API body.
631:
632: -- Standard check of p_commit.
633: IF FND_API.To_Boolean( p_commit ) THEN
634: COMMIT WORK;
635: END IF;
636: -- Standard call to get message count and if count is 1, get message info.
637: FND_MSG_PUB.count_and_get
636: -- Standard call to get message count and if count is 1, get message info.
637: FND_MSG_PUB.count_and_get
638: (p_count => x_msg_count ,
639: p_data => x_msg_data ,
640: p_encoded => FND_API.G_FALSE );
641: EXCEPTION
642: WHEN FND_API.G_EXC_ERROR THEN
643: ROLLBACK TO Update_Dimension;
644: x_return_status := FND_API.G_RET_STS_ERROR ;
638: (p_count => x_msg_count ,
639: p_data => x_msg_data ,
640: p_encoded => FND_API.G_FALSE );
641: EXCEPTION
642: WHEN FND_API.G_EXC_ERROR THEN
643: ROLLBACK TO Update_Dimension;
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645: FND_MSG_PUB.count_and_get
646: (p_count => x_msg_count ,
640: p_encoded => FND_API.G_FALSE );
641: EXCEPTION
642: WHEN FND_API.G_EXC_ERROR THEN
643: ROLLBACK TO Update_Dimension;
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645: FND_MSG_PUB.count_and_get
646: (p_count => x_msg_count ,
647: p_data => x_msg_data ,
648: p_encoded => FND_API.G_FALSE );
644: x_return_status := FND_API.G_RET_STS_ERROR ;
645: FND_MSG_PUB.count_and_get
646: (p_count => x_msg_count ,
647: p_data => x_msg_data ,
648: p_encoded => FND_API.G_FALSE );
649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
650: ROLLBACK TO Update_Dimension;
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
652: FND_MSG_PUB.count_and_get
645: FND_MSG_PUB.count_and_get
646: (p_count => x_msg_count ,
647: p_data => x_msg_data ,
648: p_encoded => FND_API.G_FALSE );
649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
650: ROLLBACK TO Update_Dimension;
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
652: FND_MSG_PUB.count_and_get
653: (p_count => x_msg_count ,
647: p_data => x_msg_data ,
648: p_encoded => FND_API.G_FALSE );
649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
650: ROLLBACK TO Update_Dimension;
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
652: FND_MSG_PUB.count_and_get
653: (p_count => x_msg_count ,
654: p_data => x_msg_data ,
655: p_encoded => FND_API.G_FALSE );
651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
652: FND_MSG_PUB.count_and_get
653: (p_count => x_msg_count ,
654: p_data => x_msg_data ,
655: p_encoded => FND_API.G_FALSE );
656: WHEN OTHERS THEN
657: ROLLBACK TO Update_Dimension;
658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
659: IF FND_MSG_PUB.check_msg_level
654: p_data => x_msg_data ,
655: p_encoded => FND_API.G_FALSE );
656: WHEN OTHERS THEN
657: ROLLBACK TO Update_Dimension;
658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
659: IF FND_MSG_PUB.check_msg_level
660: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
661: THEN
662: FND_MSG_PUB.add_exc_msg
665: END IF;
666: FND_MSG_PUB.count_and_get
667: (p_count => x_msg_count ,
668: p_data => x_msg_data ,
669: p_encoded => FND_API.G_FALSE );
670: END Update_Dimension;
671:
672: -- Notes : Delete rate dimensions and dimension tiers
673: -- 1) If it is used in a rate table, it can not be deleted
672: -- Notes : Delete rate dimensions and dimension tiers
673: -- 1) If it is used in a rate table, it can not be deleted
674: PROCEDURE Delete_Dimension
675: (p_api_version IN NUMBER ,
676: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
677: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
678: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
679: p_rate_dimension_id IN CN_RATE_DIMENSIONS.RATE_DIMENSION_ID%TYPE,
680: --R12 MOAC Changes--Start
673: -- 1) If it is used in a rate table, it can not be deleted
674: PROCEDURE Delete_Dimension
675: (p_api_version IN NUMBER ,
676: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
677: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
678: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
679: p_rate_dimension_id IN CN_RATE_DIMENSIONS.RATE_DIMENSION_ID%TYPE,
680: --R12 MOAC Changes--Start
681: p_object_version_number IN CN_RATE_DIMENSIONS.OBJECT_VERSION_NUMBER%TYPE, --new
674: PROCEDURE Delete_Dimension
675: (p_api_version IN NUMBER ,
676: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
677: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
678: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
679: p_rate_dimension_id IN CN_RATE_DIMENSIONS.RATE_DIMENSION_ID%TYPE,
680: --R12 MOAC Changes--Start
681: p_object_version_number IN CN_RATE_DIMENSIONS.OBJECT_VERSION_NUMBER%TYPE, --new
682: --R12 MOAC Changes--End
703: BEGIN
704: -- Standard Start of API savepoint
705: SAVEPOINT Delete_Dimension;
706: -- Standard call to check for call compatibility.
707: IF NOT FND_API.Compatible_API_Call
708: (l_api_version ,
709: p_api_version ,
710: l_api_name ,
711: G_PKG_NAME )
709: p_api_version ,
710: l_api_name ,
711: G_PKG_NAME )
712: THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: -- Initialize message list if p_init_msg_list is set to TRUE.
716: IF FND_API.to_Boolean( p_init_msg_list ) THEN
717: FND_MSG_PUB.initialize;
712: THEN
713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
714: END IF;
715: -- Initialize message list if p_init_msg_list is set to TRUE.
716: IF FND_API.to_Boolean( p_init_msg_list ) THEN
717: FND_MSG_PUB.initialize;
718: END IF;
719: -- Initialize API return status to success
720: x_return_status := FND_API.G_RET_STS_SUCCESS;
716: IF FND_API.to_Boolean( p_init_msg_list ) THEN
717: FND_MSG_PUB.initialize;
718: END IF;
719: -- Initialize API return status to success
720: x_return_status := FND_API.G_RET_STS_SUCCESS;
721:
722: -- API body
723:
724: OPEN parent_table_exist;
729: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
730: fnd_message.set_name('CN', 'CN_DIMENSION_IN_USE');
731: fnd_msg_pub.ADD;
732: END IF;
733: RAISE fnd_api.g_exc_error;
734: END IF;
735:
736: /* Start - R12 Notes History */
737: SELECT org_id INTO l_org_id
774: -- *********************************************************************
775: -- End of API body.
776:
777: -- Standard check of p_commit.
778: IF FND_API.To_Boolean( p_commit ) THEN
779: COMMIT WORK;
780: END IF;
781: -- Standard call to get message count and if count is 1, get message info.
782: FND_MSG_PUB.count_and_get
781: -- Standard call to get message count and if count is 1, get message info.
782: FND_MSG_PUB.count_and_get
783: (p_count => x_msg_count ,
784: p_data => x_msg_data ,
785: p_encoded => FND_API.G_FALSE );
786: EXCEPTION
787: WHEN FND_API.G_EXC_ERROR THEN
788: ROLLBACK TO Delete_Dimension;
789: x_return_status := FND_API.G_RET_STS_ERROR ;
783: (p_count => x_msg_count ,
784: p_data => x_msg_data ,
785: p_encoded => FND_API.G_FALSE );
786: EXCEPTION
787: WHEN FND_API.G_EXC_ERROR THEN
788: ROLLBACK TO Delete_Dimension;
789: x_return_status := FND_API.G_RET_STS_ERROR ;
790: FND_MSG_PUB.count_and_get
791: (p_count => x_msg_count ,
785: p_encoded => FND_API.G_FALSE );
786: EXCEPTION
787: WHEN FND_API.G_EXC_ERROR THEN
788: ROLLBACK TO Delete_Dimension;
789: x_return_status := FND_API.G_RET_STS_ERROR ;
790: FND_MSG_PUB.count_and_get
791: (p_count => x_msg_count ,
792: p_data => x_msg_data ,
793: p_encoded => FND_API.G_FALSE );
789: x_return_status := FND_API.G_RET_STS_ERROR ;
790: FND_MSG_PUB.count_and_get
791: (p_count => x_msg_count ,
792: p_data => x_msg_data ,
793: p_encoded => FND_API.G_FALSE );
794: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
795: ROLLBACK TO Delete_Dimension;
796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
797: FND_MSG_PUB.count_and_get
790: FND_MSG_PUB.count_and_get
791: (p_count => x_msg_count ,
792: p_data => x_msg_data ,
793: p_encoded => FND_API.G_FALSE );
794: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
795: ROLLBACK TO Delete_Dimension;
796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
797: FND_MSG_PUB.count_and_get
798: (p_count => x_msg_count ,
792: p_data => x_msg_data ,
793: p_encoded => FND_API.G_FALSE );
794: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
795: ROLLBACK TO Delete_Dimension;
796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
797: FND_MSG_PUB.count_and_get
798: (p_count => x_msg_count ,
799: p_data => x_msg_data ,
800: p_encoded => FND_API.G_FALSE );
796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
797: FND_MSG_PUB.count_and_get
798: (p_count => x_msg_count ,
799: p_data => x_msg_data ,
800: p_encoded => FND_API.G_FALSE );
801: WHEN OTHERS THEN
802: ROLLBACK TO Delete_Dimension;
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
804: IF FND_MSG_PUB.check_msg_level
799: p_data => x_msg_data ,
800: p_encoded => FND_API.G_FALSE );
801: WHEN OTHERS THEN
802: ROLLBACK TO Delete_Dimension;
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
804: IF FND_MSG_PUB.check_msg_level
805: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
806: THEN
807: FND_MSG_PUB.add_exc_msg
810: END IF;
811: FND_MSG_PUB.count_and_get
812: (p_count => x_msg_count ,
813: p_data => x_msg_data ,
814: p_encoded => FND_API.G_FALSE );
815: END Delete_Dimension;
816:
817: -- Notes : Delete dimension tiers
818: -- 1) If the dimension is used in a rate table, at least one
826: -- 5) the other validations should be done by users also
827: -- (like minimum_amount < maximum_amount, etc.)
828: PROCEDURE delete_tier
829: (p_api_version IN NUMBER ,
830: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
831: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
832: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
833: p_rate_dim_tier_id IN CN_RATE_DIM_TIERS.RATE_DIM_TIER_ID%TYPE,
834: x_return_status OUT NOCOPY VARCHAR2 ,
827: -- (like minimum_amount < maximum_amount, etc.)
828: PROCEDURE delete_tier
829: (p_api_version IN NUMBER ,
830: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
831: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
832: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
833: p_rate_dim_tier_id IN CN_RATE_DIM_TIERS.RATE_DIM_TIER_ID%TYPE,
834: x_return_status OUT NOCOPY VARCHAR2 ,
835: x_msg_count OUT NOCOPY NUMBER ,
828: PROCEDURE delete_tier
829: (p_api_version IN NUMBER ,
830: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
831: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
832: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
833: p_rate_dim_tier_id IN CN_RATE_DIM_TIERS.RATE_DIM_TIER_ID%TYPE,
834: x_return_status OUT NOCOPY VARCHAR2 ,
835: x_msg_count OUT NOCOPY NUMBER ,
836: x_msg_data OUT NOCOPY VARCHAR2 )
875: BEGIN
876: -- Standard Start of API savepoint
877: SAVEPOINT Delete_Tier;
878: -- Standard call to check for call compatibility.
879: IF NOT FND_API.Compatible_API_Call
880: (l_api_version ,
881: p_api_version ,
882: l_api_name ,
883: G_PKG_NAME )
881: p_api_version ,
882: l_api_name ,
883: G_PKG_NAME )
884: THEN
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886: END IF;
887: -- Initialize message list if p_init_msg_list is set to TRUE.
888: IF FND_API.to_Boolean( p_init_msg_list ) THEN
889: FND_MSG_PUB.initialize;
884: THEN
885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
886: END IF;
887: -- Initialize message list if p_init_msg_list is set to TRUE.
888: IF FND_API.to_Boolean( p_init_msg_list ) THEN
889: FND_MSG_PUB.initialize;
890: END IF;
891: -- Initialize API return status to success
892: x_return_status := FND_API.G_RET_STS_SUCCESS;
888: IF FND_API.to_Boolean( p_init_msg_list ) THEN
889: FND_MSG_PUB.initialize;
890: END IF;
891: -- Initialize API return status to success
892: x_return_status := FND_API.G_RET_STS_SUCCESS;
893:
894: -- API body
895:
896: -- get dimension ID
902: exception
903: when no_data_found then
904: fnd_message.set_name('CN', 'CN_RECORD_DELETED');
905: fnd_msg_pub.add;
906: raise fnd_api.g_exc_unexpected_error;
907: end;
908:
909: FOR rate_table IN rate_tables LOOP
910: OPEN last_tier;
915: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
916: fnd_message.set_name('CN', 'CN_DIM_LAST_TIER');
917: fnd_msg_pub.ADD;
918: END IF;
919: RAISE fnd_api.g_exc_error;
920: END IF;
921:
922: SELECT rate_dim_sequence
923: INTO l_rate_dim_sequence
1005:
1006: -- End of API body.
1007:
1008: -- Standard check of p_commit.
1009: IF FND_API.To_Boolean( p_commit ) THEN
1010: COMMIT WORK;
1011: END IF;
1012: -- Standard call to get message count and if count is 1, get message info.
1013: FND_MSG_PUB.Count_And_Get
1012: -- Standard call to get message count and if count is 1, get message info.
1013: FND_MSG_PUB.Count_And_Get
1014: (p_count => x_msg_count ,
1015: p_data => x_msg_data ,
1016: p_encoded => FND_API.G_FALSE );
1017: EXCEPTION
1018: WHEN FND_API.G_EXC_ERROR THEN
1019: ROLLBACK TO Delete_Tier;
1020: x_return_status := FND_API.G_RET_STS_ERROR ;
1014: (p_count => x_msg_count ,
1015: p_data => x_msg_data ,
1016: p_encoded => FND_API.G_FALSE );
1017: EXCEPTION
1018: WHEN FND_API.G_EXC_ERROR THEN
1019: ROLLBACK TO Delete_Tier;
1020: x_return_status := FND_API.G_RET_STS_ERROR ;
1021: FND_MSG_PUB.count_and_get
1022: (p_count => x_msg_count ,
1016: p_encoded => FND_API.G_FALSE );
1017: EXCEPTION
1018: WHEN FND_API.G_EXC_ERROR THEN
1019: ROLLBACK TO Delete_Tier;
1020: x_return_status := FND_API.G_RET_STS_ERROR ;
1021: FND_MSG_PUB.count_and_get
1022: (p_count => x_msg_count ,
1023: p_data => x_msg_data ,
1024: p_encoded => FND_API.G_FALSE );
1020: x_return_status := FND_API.G_RET_STS_ERROR ;
1021: FND_MSG_PUB.count_and_get
1022: (p_count => x_msg_count ,
1023: p_data => x_msg_data ,
1024: p_encoded => FND_API.G_FALSE );
1025: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1026: ROLLBACK TO Delete_Tier;
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1028: FND_MSG_PUB.count_and_get
1021: FND_MSG_PUB.count_and_get
1022: (p_count => x_msg_count ,
1023: p_data => x_msg_data ,
1024: p_encoded => FND_API.G_FALSE );
1025: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1026: ROLLBACK TO Delete_Tier;
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1028: FND_MSG_PUB.count_and_get
1029: (p_count => x_msg_count ,
1023: p_data => x_msg_data ,
1024: p_encoded => FND_API.G_FALSE );
1025: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1026: ROLLBACK TO Delete_Tier;
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1028: FND_MSG_PUB.count_and_get
1029: (p_count => x_msg_count ,
1030: p_data => x_msg_data ,
1031: p_encoded => FND_API.G_FALSE );
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1028: FND_MSG_PUB.count_and_get
1029: (p_count => x_msg_count ,
1030: p_data => x_msg_data ,
1031: p_encoded => FND_API.G_FALSE );
1032: WHEN OTHERS THEN
1033: ROLLBACK TO Delete_Tier;
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1035: IF FND_MSG_PUB.check_msg_level
1030: p_data => x_msg_data ,
1031: p_encoded => FND_API.G_FALSE );
1032: WHEN OTHERS THEN
1033: ROLLBACK TO Delete_Tier;
1034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1035: IF FND_MSG_PUB.check_msg_level
1036: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1037: THEN
1038: FND_MSG_PUB.add_exc_msg
1041: END IF;
1042: FND_MSG_PUB.count_and_get
1043: (p_count => x_msg_count ,
1044: p_data => x_msg_data ,
1045: p_encoded => FND_API.G_FALSE );
1046: END Delete_Tier;
1047:
1048: -- Notes : Update dimension tiers
1049: PROCEDURE update_tier
1047:
1048: -- Notes : Update dimension tiers
1049: PROCEDURE update_tier
1050: (p_api_version IN NUMBER ,
1051: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1052: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1053: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1054: p_rate_dim_tier_id IN CN_RATE_DIM_TIERS.RATE_DIM_TIER_ID%TYPE,
1055: p_rate_dimension_id IN CN_RATE_DIM_TIERS.RATE_DIMENSION_ID%TYPE,
1048: -- Notes : Update dimension tiers
1049: PROCEDURE update_tier
1050: (p_api_version IN NUMBER ,
1051: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1052: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1053: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1054: p_rate_dim_tier_id IN CN_RATE_DIM_TIERS.RATE_DIM_TIER_ID%TYPE,
1055: p_rate_dimension_id IN CN_RATE_DIM_TIERS.RATE_DIMENSION_ID%TYPE,
1056: p_dim_unit_code IN CN_RATE_DIM_TIERS.DIM_UNIT_CODE%TYPE,
1049: PROCEDURE update_tier
1050: (p_api_version IN NUMBER ,
1051: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1052: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1053: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1054: p_rate_dim_tier_id IN CN_RATE_DIM_TIERS.RATE_DIM_TIER_ID%TYPE,
1055: p_rate_dimension_id IN CN_RATE_DIM_TIERS.RATE_DIMENSION_ID%TYPE,
1056: p_dim_unit_code IN CN_RATE_DIM_TIERS.DIM_UNIT_CODE%TYPE,
1057: p_minimum_amount IN CN_RATE_DIM_TIERS.MINIMUM_AMOUNT%TYPE := cn_api.g_miss_num,
1090: BEGIN
1091: -- Standard Start of API savepoint
1092: SAVEPOINT Update_tier;
1093: -- Standard call to check for call compatibility.
1094: IF NOT FND_API.Compatible_API_Call
1095: (l_api_version ,
1096: p_api_version ,
1097: l_api_name ,
1098: G_PKG_NAME )
1096: p_api_version ,
1097: l_api_name ,
1098: G_PKG_NAME )
1099: THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: END IF;
1102: -- Initialize message list if p_init_msg_list is set to TRUE.
1103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1104: FND_MSG_PUB.initialize;
1099: THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: END IF;
1102: -- Initialize message list if p_init_msg_list is set to TRUE.
1103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1104: FND_MSG_PUB.initialize;
1105: END IF;
1106: -- Initialize API return status to success
1107: x_return_status := FND_API.G_RET_STS_SUCCESS;
1103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1104: FND_MSG_PUB.initialize;
1105: END IF;
1106: -- Initialize API return status to success
1107: x_return_status := FND_API.G_RET_STS_SUCCESS;
1108:
1109: -- API body
1110:
1111: IF (p_dim_unit_code IN ('AMOUNT', 'PERCENT')) THEN
1108:
1109: -- API body
1110:
1111: IF (p_dim_unit_code IN ('AMOUNT', 'PERCENT')) THEN
1112: IF (p_minimum_amount = fnd_api.g_miss_num OR
1113: p_maximum_amount = fnd_api.g_miss_num OR
1114: p_minimum_amount IS NULL OR
1115: p_maximum_amount IS NULL)
1116: THEN
1109: -- API body
1110:
1111: IF (p_dim_unit_code IN ('AMOUNT', 'PERCENT')) THEN
1112: IF (p_minimum_amount = fnd_api.g_miss_num OR
1113: p_maximum_amount = fnd_api.g_miss_num OR
1114: p_minimum_amount IS NULL OR
1115: p_maximum_amount IS NULL)
1116: THEN
1117: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1117: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1118: fnd_message.set_name('CN', 'CN_TIER_NULL_MISS');
1119: fnd_msg_pub.ADD;
1120: END IF;
1121: RAISE fnd_api.g_exc_error;
1122: END IF;
1123:
1124: IF (p_minimum_amount >= p_maximum_amount) THEN
1125: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1125: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1126: fnd_message.set_name('CN', 'CN_MIN_G_MAX');
1127: fnd_msg_pub.ADD;
1128: END IF;
1129: RAISE fnd_api.g_exc_error;
1130: END IF;
1131: END IF;
1132:
1133: /* Start - R12 Notes History */
1218:
1219: -- End of API body.
1220:
1221: -- Standard check of p_commit.
1222: IF FND_API.To_Boolean( p_commit ) THEN
1223: COMMIT WORK;
1224: END IF;
1225: -- Standard call to get message count and if count is 1, get message info.
1226: FND_MSG_PUB.Count_And_Get
1225: -- Standard call to get message count and if count is 1, get message info.
1226: FND_MSG_PUB.Count_And_Get
1227: (p_count => x_msg_count ,
1228: p_data => x_msg_data ,
1229: p_encoded => FND_API.G_FALSE );
1230: EXCEPTION
1231: WHEN FND_API.G_EXC_ERROR THEN
1232: ROLLBACK TO Update_tier;
1233: x_return_status := FND_API.G_RET_STS_ERROR ;
1227: (p_count => x_msg_count ,
1228: p_data => x_msg_data ,
1229: p_encoded => FND_API.G_FALSE );
1230: EXCEPTION
1231: WHEN FND_API.G_EXC_ERROR THEN
1232: ROLLBACK TO Update_tier;
1233: x_return_status := FND_API.G_RET_STS_ERROR ;
1234: FND_MSG_PUB.count_and_get
1235: (p_count => x_msg_count ,
1229: p_encoded => FND_API.G_FALSE );
1230: EXCEPTION
1231: WHEN FND_API.G_EXC_ERROR THEN
1232: ROLLBACK TO Update_tier;
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 Update_tier;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1241: FND_MSG_PUB.count_and_get
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 Update_tier;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1241: FND_MSG_PUB.count_and_get
1242: (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 Update_tier;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1241: FND_MSG_PUB.count_and_get
1242: (p_count => x_msg_count ,
1243: p_data => x_msg_data ,
1244: p_encoded => FND_API.G_FALSE );
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1241: FND_MSG_PUB.count_and_get
1242: (p_count => x_msg_count ,
1243: p_data => x_msg_data ,
1244: p_encoded => FND_API.G_FALSE );
1245: WHEN OTHERS THEN
1246: ROLLBACK TO Update_tier;
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1248: IF FND_MSG_PUB.check_msg_level
1243: p_data => x_msg_data ,
1244: p_encoded => FND_API.G_FALSE );
1245: WHEN OTHERS THEN
1246: ROLLBACK TO Update_tier;
1247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1248: IF FND_MSG_PUB.check_msg_level
1249: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1250: THEN
1251: FND_MSG_PUB.add_exc_msg
1254: END IF;
1255: FND_MSG_PUB.count_and_get
1256: (p_count => x_msg_count ,
1257: p_data => x_msg_data ,
1258: p_encoded => FND_API.G_FALSE );
1259: END Update_tier;
1260:
1261: -- Notes : Create dimension tiers
1262: -- 1) If it is used in a rate table, update cn_sch_dim_tiers,
1269: -- 5) validation of minimum_amount = previous maximum_amount should be
1270: -- done by users
1271: PROCEDURE create_tier
1272: (p_api_version IN NUMBER ,
1273: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1274: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1275: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1276: p_rate_dimension_id IN CN_RATE_DIM_TIERS.RATE_DIMENSION_ID%TYPE,
1277: p_dim_unit_code IN CN_RATE_DIM_TIERS.DIM_UNIT_CODE%TYPE,
1270: -- done by users
1271: PROCEDURE create_tier
1272: (p_api_version IN NUMBER ,
1273: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1274: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1275: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1276: p_rate_dimension_id IN CN_RATE_DIM_TIERS.RATE_DIMENSION_ID%TYPE,
1277: p_dim_unit_code IN CN_RATE_DIM_TIERS.DIM_UNIT_CODE%TYPE,
1278: p_minimum_amount IN CN_RATE_DIM_TIERS.MINIMUM_AMOUNT%TYPE := null,
1271: PROCEDURE create_tier
1272: (p_api_version IN NUMBER ,
1273: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1274: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1275: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1276: p_rate_dimension_id IN CN_RATE_DIM_TIERS.RATE_DIMENSION_ID%TYPE,
1277: p_dim_unit_code IN CN_RATE_DIM_TIERS.DIM_UNIT_CODE%TYPE,
1278: p_minimum_amount IN CN_RATE_DIM_TIERS.MINIMUM_AMOUNT%TYPE := null,
1279: p_maximum_amount IN CN_RATE_DIM_TIERS.MAXIMUM_AMOUNT%TYPE := null,
1308: BEGIN
1309: -- Standard Start of API savepoint
1310: SAVEPOINT Create_tier;
1311: -- Standard call to check for call compatibility.
1312: IF NOT FND_API.Compatible_API_Call
1313: (l_api_version ,
1314: p_api_version ,
1315: l_api_name ,
1316: G_PKG_NAME )
1314: p_api_version ,
1315: l_api_name ,
1316: G_PKG_NAME )
1317: THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: END IF;
1320: -- Initialize message list if p_init_msg_list is set to TRUE.
1321: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1322: FND_MSG_PUB.initialize;
1317: THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: END IF;
1320: -- Initialize message list if p_init_msg_list is set to TRUE.
1321: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1322: FND_MSG_PUB.initialize;
1323: END IF;
1324: -- Initialize API return status to success
1325: x_return_status := FND_API.G_RET_STS_SUCCESS;
1321: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1322: FND_MSG_PUB.initialize;
1323: END IF;
1324: -- Initialize API return status to success
1325: x_return_status := FND_API.G_RET_STS_SUCCESS;
1326:
1327: -- API body
1328:
1329: IF (p_dim_unit_code IN ('AMOUNT', 'PERCENT')) THEN
1326:
1327: -- API body
1328:
1329: IF (p_dim_unit_code IN ('AMOUNT', 'PERCENT')) THEN
1330: IF (p_minimum_amount = fnd_api.g_miss_num OR
1331: p_maximum_amount = fnd_api.g_miss_num OR
1332: p_minimum_amount IS NULL OR
1333: p_maximum_amount IS NULL)
1334: THEN
1327: -- API body
1328:
1329: IF (p_dim_unit_code IN ('AMOUNT', 'PERCENT')) THEN
1330: IF (p_minimum_amount = fnd_api.g_miss_num OR
1331: p_maximum_amount = fnd_api.g_miss_num OR
1332: p_minimum_amount IS NULL OR
1333: p_maximum_amount IS NULL)
1334: THEN
1335: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1335: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1336: fnd_message.set_name('CN', 'CN_TIER_NULL_MISS');
1337: fnd_msg_pub.ADD;
1338: END IF;
1339: RAISE fnd_api.g_exc_error;
1340: END IF;
1341:
1342: IF (p_minimum_amount >= p_maximum_amount) THEN
1343: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1343: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
1344: fnd_message.set_name('CN', 'CN_MIN_G_MAX');
1345: fnd_msg_pub.ADD;
1346: END IF;
1347: RAISE fnd_api.g_exc_error;
1348: END IF;
1349: END IF;
1350:
1351: FOR rate_table IN rate_tables LOOP
1439:
1440: -- End of API body.
1441:
1442: -- Standard check of p_commit.
1443: IF FND_API.To_Boolean( p_commit ) THEN
1444: COMMIT WORK;
1445: END IF;
1446: -- Standard call to get message count and if count is 1, get message info.
1447: FND_MSG_PUB.Count_And_Get
1446: -- Standard call to get message count and if count is 1, get message info.
1447: FND_MSG_PUB.Count_And_Get
1448: (p_count => x_msg_count ,
1449: p_data => x_msg_data ,
1450: p_encoded => FND_API.G_FALSE );
1451: EXCEPTION
1452: WHEN FND_API.G_EXC_ERROR THEN
1453: ROLLBACK TO Create_tier;
1454: x_return_status := FND_API.G_RET_STS_ERROR ;
1448: (p_count => x_msg_count ,
1449: p_data => x_msg_data ,
1450: p_encoded => FND_API.G_FALSE );
1451: EXCEPTION
1452: WHEN FND_API.G_EXC_ERROR THEN
1453: ROLLBACK TO Create_tier;
1454: x_return_status := FND_API.G_RET_STS_ERROR ;
1455: FND_MSG_PUB.count_and_get
1456: (p_count => x_msg_count ,
1450: p_encoded => FND_API.G_FALSE );
1451: EXCEPTION
1452: WHEN FND_API.G_EXC_ERROR THEN
1453: ROLLBACK TO Create_tier;
1454: x_return_status := FND_API.G_RET_STS_ERROR ;
1455: FND_MSG_PUB.count_and_get
1456: (p_count => x_msg_count ,
1457: p_data => x_msg_data ,
1458: p_encoded => FND_API.G_FALSE );
1454: x_return_status := FND_API.G_RET_STS_ERROR ;
1455: FND_MSG_PUB.count_and_get
1456: (p_count => x_msg_count ,
1457: p_data => x_msg_data ,
1458: p_encoded => FND_API.G_FALSE );
1459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1460: ROLLBACK TO Create_tier;
1461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1462: FND_MSG_PUB.count_and_get
1455: FND_MSG_PUB.count_and_get
1456: (p_count => x_msg_count ,
1457: p_data => x_msg_data ,
1458: p_encoded => FND_API.G_FALSE );
1459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1460: ROLLBACK TO Create_tier;
1461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1462: FND_MSG_PUB.count_and_get
1463: (p_count => x_msg_count ,
1457: p_data => x_msg_data ,
1458: p_encoded => FND_API.G_FALSE );
1459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1460: ROLLBACK TO Create_tier;
1461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1462: FND_MSG_PUB.count_and_get
1463: (p_count => x_msg_count ,
1464: p_data => x_msg_data ,
1465: p_encoded => FND_API.G_FALSE );
1461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1462: FND_MSG_PUB.count_and_get
1463: (p_count => x_msg_count ,
1464: p_data => x_msg_data ,
1465: p_encoded => FND_API.G_FALSE );
1466: WHEN OTHERS THEN
1467: ROLLBACK TO Create_tier;
1468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1469: IF FND_MSG_PUB.check_msg_level
1464: p_data => x_msg_data ,
1465: p_encoded => FND_API.G_FALSE );
1466: WHEN OTHERS THEN
1467: ROLLBACK TO Create_tier;
1468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1469: IF FND_MSG_PUB.check_msg_level
1470: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1471: THEN
1472: FND_MSG_PUB.add_exc_msg
1475: END IF;
1476: FND_MSG_PUB.count_and_get
1477: (p_count => x_msg_count ,
1478: p_data => x_msg_data ,
1479: p_encoded => FND_API.G_FALSE );
1480: END Create_tier;
1481:
1482: END CN_RATE_DIMENSIONS_PVT;