[Home] [Help]
51: END IF;
52: -- Rasie error when user pass in rate table name not exist in
53: -- cn_rate_schedules
54: IF (CN_API.get_rate_table_id(p_pe_rec.rate_table_name)) IS NULL THEN
55: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
56: THEN
57: FND_MESSAGE.SET_NAME ('CN' , 'CN_RATE_SCH_NOT_EXIST');
58: FND_MSG_PUB.Add;
59: END IF;
54: IF (CN_API.get_rate_table_id(p_pe_rec.rate_table_name)) IS NULL THEN
55: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
56: THEN
57: FND_MESSAGE.SET_NAME ('CN' , 'CN_RATE_SCH_NOT_EXIST');
58: FND_MSG_PUB.Add;
59: END IF;
60: x_loading_status := 'CN_RATE_SCH_NOT_EXIST';
61: RAISE FND_API.G_EXC_ERROR ;
62: END IF ;
63: ELSIF p_pe_rec.rate_table_name IS NULL THEN
64: -- Rate_table_id not null and rate_table_name null, check if
65: -- Rate_table_id is exist in DB
66: IF (CN_API.get_rate_table_name(p_pe_rec.rate_table_id)) IS NULL THEN
67: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
68: THEN
69: FND_MESSAGE.SET_NAME ('CN' , 'CN_RATE_SCH_NOT_EXIST');
70: FND_MSG_PUB.Add;
71: END IF;
66: IF (CN_API.get_rate_table_name(p_pe_rec.rate_table_id)) IS NULL THEN
67: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
68: THEN
69: FND_MESSAGE.SET_NAME ('CN' , 'CN_RATE_SCH_NOT_EXIST');
70: FND_MSG_PUB.Add;
71: END IF;
72: x_loading_status := 'CN_RATE_SCH_NOT_EXIST';
73: RAISE FND_API.G_EXC_ERROR ;
74: END IF ;
79: IF(p_pe_rec.rate_table_id <>
80: CN_API.get_rate_table_id(p_pe_rec.rate_table_name)) THEN
81: -- Error, check the msg level and add an error message to the
82: -- API message list
83: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
84: THEN
85: FND_MESSAGE.SET_NAME ('CN' , 'CN_VALUE_ID_ERROR');
86: FND_MESSAGE.SET_TOKEN('VALUE_NAME', G_RATE_TB || ' : '
87: || p_pe_rec.rate_table_name);
86: FND_MESSAGE.SET_TOKEN('VALUE_NAME', G_RATE_TB || ' : '
87: || p_pe_rec.rate_table_name);
88: FND_MESSAGE.SET_TOKEN('ID_NAME',G_RATE_TB_ID || ' : ' ||
89: p_pe_rec.rate_table_id);
90: FND_MSG_PUB.Add;
91: END IF;
92: x_loading_status := 'CN_VALUE_ID_ERROR';
93: RAISE FND_API.G_EXC_ERROR ;
94: END IF;
103: WHERE rs.rate_schedule_id = p_pe_rec.rate_table_id;
104: -- check tier unit code
105: IF p_pe_rec.quota_type_code IN ('TARGET','UNIT_BASED_QUOTA') THEN
106: IF l_tier_unit_code <> 'PERCENT' THEN
107: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
108: THEN
109: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_TP');
110: FND_MESSAGE.SET_TOKEN ('PLAN_NAME',NULL);
111: FND_MESSAGE.SET_TOKEN ('QUOTA_NAME',p_pe_rec.name);
108: THEN
109: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_TP');
110: FND_MESSAGE.SET_TOKEN ('PLAN_NAME',NULL);
111: FND_MESSAGE.SET_TOKEN ('QUOTA_NAME',p_pe_rec.name);
112: FND_MSG_PUB.Add;
113: END IF;
114: x_loading_status := 'PLN_QUOTA_SCHED_INCOMPAT_TP';
115: RAISE FND_API.G_EXC_ERROR ;
116: END IF;
115: RAISE FND_API.G_EXC_ERROR ;
116: END IF;
117: ELSIF p_pe_rec.quota_type_code IN ('REVENUE','UNIT_BASED_NON_QUOTA') THEN
118: IF l_tier_unit_code <> 'AMOUNT' THEN
119: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
120: THEN
121: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_RA');
122: FND_MESSAGE.SET_TOKEN ('PLAN_NAME',NULL);
123: FND_MESSAGE.SET_TOKEN ('QUOTA_NAME',p_pe_rec.name);
120: THEN
121: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_RA');
122: FND_MESSAGE.SET_TOKEN ('PLAN_NAME',NULL);
123: FND_MESSAGE.SET_TOKEN ('QUOTA_NAME',p_pe_rec.name);
124: FND_MSG_PUB.Add;
125: END IF;
126: x_loading_status := 'PLN_QUOTA_SCHED_INCOMPAT_RA';
127: RAISE FND_API.G_EXC_ERROR ;
128: END IF;
127: RAISE FND_API.G_EXC_ERROR ;
128: END IF;
129: ELSIF p_pe_rec.quota_type_code IN ('DISCOUNT','MARGIN') THEN
130: IF l_tier_unit_code <> 'PERCENT' THEN
131: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
132: THEN
133: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_DP');
134: FND_MESSAGE.SET_TOKEN ('PLAN_NAME',NULL);
135: FND_MESSAGE.SET_TOKEN ('QUOTA_NAME',p_pe_rec.name);
132: THEN
133: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_DP');
134: FND_MESSAGE.SET_TOKEN ('PLAN_NAME',NULL);
135: FND_MESSAGE.SET_TOKEN ('QUOTA_NAME',p_pe_rec.name);
136: FND_MSG_PUB.Add;
137: END IF;
138: x_loading_status := 'PLN_QUOTA_SCHED_INCOMPAT_DP';
139: RAISE FND_API.G_EXC_ERROR ;
140: END IF;
141: END IF;
142: -- check commission unit code
143: IF p_pe_rec.payment_type_code IN ('PAYMENT','TRANSACTION') THEN
144: IF l_comm_unit_code <> 'PERCENT' THEN
145: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
146: THEN
147: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_PP');
148: FND_MESSAGE.SET_TOKEN ('PLAN_NAME',NULL);
149: FND_MESSAGE.SET_TOKEN ('QUOTA_NAME',p_pe_rec.name);
146: THEN
147: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_PP');
148: FND_MESSAGE.SET_TOKEN ('PLAN_NAME',NULL);
149: FND_MESSAGE.SET_TOKEN ('QUOTA_NAME',p_pe_rec.name);
150: FND_MSG_PUB.Add;
151: END IF;
152: x_loading_status := 'PLN_QUOTA_SCHED_INCOMPAT_PP';
153: RAISE FND_API.G_EXC_ERROR ;
154: END IF;
153: RAISE FND_API.G_EXC_ERROR ;
154: END IF;
155: ELSIF p_pe_rec.payment_type_code = 'FIXED' THEN
156: IF l_comm_unit_code <> 'AMOUNT' THEN
157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
158: THEN
159: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_FA');
160: FND_MESSAGE.SET_TOKEN('PLAN_NAME',NULL);
161: FND_MESSAGE.SET_TOKEN('QUOTA_NAME',p_pe_rec.name);
158: THEN
159: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_SCHED_INCOMPAT_FA');
160: FND_MESSAGE.SET_TOKEN('PLAN_NAME',NULL);
161: FND_MESSAGE.SET_TOKEN('QUOTA_NAME',p_pe_rec.name);
162: FND_MSG_PUB.Add;
163: END IF;
164: x_loading_status := 'PLN_QUOTA_SCHED_INCOMPAT_FA';
165: RAISE FND_API.G_EXC_ERROR ;
166: END IF;
171: FROM cn_rate_tiers rt
172: WHERE rt.rate_schedule_id = p_pe_rec.rate_table_id
173: ;
174: IF l_tmp = 0 THEN
175: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
176: THEN
177: FND_MESSAGE.SET_NAME ('CN' , 'PLN_SCHEDULE_NO_TIERS');
178: FND_MESSAGE.SET_TOKEN('PLAN_NAME',NULL);
179: FND_MESSAGE.SET_TOKEN('QUOTA_NAME',p_pe_rec.name);
177: FND_MESSAGE.SET_NAME ('CN' , 'PLN_SCHEDULE_NO_TIERS');
178: FND_MESSAGE.SET_TOKEN('PLAN_NAME',NULL);
179: FND_MESSAGE.SET_TOKEN('QUOTA_NAME',p_pe_rec.name);
180: FND_MESSAGE.SET_TOKEN('SCHEDULE_NAME',p_pe_rec.rate_table_name);
181: FND_MSG_PUB.Add;
182: END IF;
183: x_loading_status := 'PLN_SCHEDULE_NO_TIERS';
184: RAISE FND_API.G_EXC_ERROR ;
185: END IF;
194:
195: WHEN OTHERS THEN
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
197: x_loading_status := 'UNEXPECTED_ERR';
198: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
199: THEN
200: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
201: END IF;
202: */
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
197: x_loading_status := 'UNEXPECTED_ERR';
198: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
199: THEN
200: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
201: END IF;
202: */
203: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
204: fnd_msg_pub.ADD;
200: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
201: END IF;
202: */
203: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
204: fnd_msg_pub.ADD;
205: x_return_status := fnd_api.g_ret_sts_unexp_error;
206: x_loading_status := 'CN_PACKAGE_OBSELETE';
207: RAISE fnd_api.g_exc_error;
208: END valid_rate_table;
257: -- Rasie error when user pass in dicsount rate table name not exist in
258: -- cn_rate_schedules
259: IF (CN_API.get_rate_table_id(p_pe_rec.disc_rate_table_name)) IS NULL
260: THEN
261: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
262: THEN
263: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_DISC_SCHED_REQUIRED');
264: FND_MSG_PUB.Add;
265: END IF;
260: THEN
261: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
262: THEN
263: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_DISC_SCHED_REQUIRED');
264: FND_MSG_PUB.Add;
265: END IF;
266: x_loading_status := 'PLN_QUOTA_DISC_SCHED_REQUIRED';
267: RAISE FND_API.G_EXC_ERROR ;
268: END IF ;
270: -- Disc_Rate_table_id not null and disc_rate_table_name null, check if
271: -- Disc_rate_table_id is exist in DB
272: IF (CN_API.get_rate_table_name(p_pe_rec.disc_rate_table_id)) IS NULL
273: THEN
274: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
275: THEN
276: FND_MESSAGE.SET_NAME ('CN' ,'PLN_QUOTA_DISC_SCHED_REQUIRED');
277: FND_MSG_PUB.Add;
278: END IF;
273: THEN
274: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
275: THEN
276: FND_MESSAGE.SET_NAME ('CN' ,'PLN_QUOTA_DISC_SCHED_REQUIRED');
277: FND_MSG_PUB.Add;
278: END IF;
279: x_loading_status := 'PLN_QUOTA_DISC_SCHED_REQUIRED';
280: RAISE FND_API.G_EXC_ERROR ;
281: END IF ;
287: IF(p_pe_rec.disc_rate_table_id <>
288: CN_API.get_rate_table_id(p_pe_rec.disc_rate_table_name)) THEN
289: -- Error, check the msg level and add an error message to the
290: -- API message list
291: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
292: THEN
293: FND_MESSAGE.SET_NAME ('CN' , 'CN_VALUE_ID_ERROR');
294: FND_MESSAGE.SET_TOKEN('VALUE_NAME',G_DISC_RATE_TB ||' : '
295: ||p_pe_rec.disc_rate_table_name);
294: FND_MESSAGE.SET_TOKEN('VALUE_NAME',G_DISC_RATE_TB ||' : '
295: ||p_pe_rec.disc_rate_table_name);
296: FND_MESSAGE.SET_TOKEN('ID_NAME',G_DISC_RATE_TB_ID || ' : '||
297: p_pe_rec.disc_rate_table_id);
298: FND_MSG_PUB.Add;
299: END IF;
300: x_loading_status := 'CN_VALUE_ID_ERROR';
301: RAISE FND_API.G_EXC_ERROR ;
302: END IF;
303: END IF;
304:
305: -- Check discount rate table <> rate table
306: IF p_pe_rec.rate_table_id = p_pe_rec.disc_rate_table_id THEN
307: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
308: THEN
309: FND_MESSAGE.SET_NAME ('CN' , 'DISC_RATE_TABLE_SAME');
310: FND_MSG_PUB.Add;
311: END IF;
306: IF p_pe_rec.rate_table_id = p_pe_rec.disc_rate_table_id THEN
307: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
308: THEN
309: FND_MESSAGE.SET_NAME ('CN' , 'DISC_RATE_TABLE_SAME');
310: FND_MSG_PUB.Add;
311: END IF;
312: x_loading_status := 'DISC_RATE_TABLE_SAME';
313: RAISE FND_API.G_EXC_ERROR ;
314: END IF;
321: FROM cn_rate_schedules rs
322: WHERE rs.rate_schedule_id = p_pe_rec.disc_rate_table_id;
323: IF l_tier_unit_code <> 'PERCENT' OR
324: l_comm_unit_code <> 'PERCENT' THEN
325: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
326: THEN
327: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_DISC_SCHED_NOT_PP');
328: FND_MESSAGE.SET_TOKEN('PLAN_NAME',NULL);
329: FND_MESSAGE.SET_TOKEN('QUOTA_NAME',p_pe_rec.name);
326: THEN
327: FND_MESSAGE.SET_NAME ('CN' , 'PLN_QUOTA_DISC_SCHED_NOT_PP');
328: FND_MESSAGE.SET_TOKEN('PLAN_NAME',NULL);
329: FND_MESSAGE.SET_TOKEN('QUOTA_NAME',p_pe_rec.name);
330: FND_MSG_PUB.Add;
331: END IF;
332: x_loading_status := 'PLN_QUOTA_DISC_SCHED_NOT_PP';
333: RAISE FND_API.G_EXC_ERROR ;
334: END IF;
339: FROM cn_rate_tiers rt
340: WHERE rt.rate_schedule_id = p_pe_rec.disc_rate_table_id
341: ;
342: IF l_tmp = 0 THEN
343: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
344: THEN
345: FND_MESSAGE.SET_NAME ('CN' , 'PLN_SCHEDULE_NO_TIERS');
346: FND_MESSAGE.SET_TOKEN('PLAN_NAME',NULL);
347: FND_MESSAGE.SET_TOKEN('QUOTA_NAME',p_pe_rec.name);
346: FND_MESSAGE.SET_TOKEN('PLAN_NAME',NULL);
347: FND_MESSAGE.SET_TOKEN('QUOTA_NAME',p_pe_rec.name);
348: FND_MESSAGE.set_token
349: ('SCHEDULE_NAME',p_pe_rec.disc_rate_table_name);
350: FND_MSG_PUB.Add;
351: END IF;
352: x_loading_status := 'PLN_SCHEDULE_NO_TIERS';
353: RAISE FND_API.G_EXC_ERROR ;
354: END IF;
365:
366: WHEN OTHERS THEN
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
368: x_loading_status := 'UNEXPECTED_ERR';
369: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
370: THEN
371: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
372: END IF;
373: */
367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
368: x_loading_status := 'UNEXPECTED_ERR';
369: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
370: THEN
371: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
372: END IF;
373: */
374: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
375: fnd_msg_pub.ADD;
371: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
372: END IF;
373: */
374: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
375: fnd_msg_pub.ADD;
376: x_return_status := fnd_api.g_ret_sts_unexp_error;
377: x_loading_status := 'CN_PACKAGE_OBSELETE';
378: RAISE fnd_api.g_exc_error;
379: END valid_disc_rate_table;
389: l_api_name CONSTANT VARCHAR2 (30) := 'valid_revenue_class';
390: BEGIN
391: IF org_id IS NULL
392: THEN
393: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
394: THEN
395: fnd_message.set_name ('CN', 'CN_INPUT_CANT_NULL');
396: fnd_message.set_token ('INPUT_NAME', cn_api.get_lkup_meaning ('ORGANIZATION', 'PE_OBJECT_TYPE'));
397: fnd_msg_pub.ADD;
393: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
394: THEN
395: fnd_message.set_name ('CN', 'CN_INPUT_CANT_NULL');
396: fnd_message.set_token ('INPUT_NAME', cn_api.get_lkup_meaning ('ORGANIZATION', 'PE_OBJECT_TYPE'));
397: fnd_msg_pub.ADD;
398: END IF;
399:
400: RAISE fnd_api.g_exc_error;
401: END IF;
455: -- Rasie error when user pass in revenue class name not exist in
456: -- cn_revenue_classes
457: IF (cn_api.get_rev_class_id (p_pe_rec.rev_class_name, p_pe_rec.org_id)) IS NULL
458: THEN
459: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
460: THEN
461: fnd_message.set_name ('CN', 'CN_REV_CLASS_NOT_EXIST');
462: fnd_msg_pub.ADD;
463: END IF;
458: THEN
459: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
460: THEN
461: fnd_message.set_name ('CN', 'CN_REV_CLASS_NOT_EXIST');
462: fnd_msg_pub.ADD;
463: END IF;
464:
465: x_loading_status := 'CN_REV_CLASS_NOT_EXIST';
466: RAISE fnd_api.g_exc_error;
470: -- Rev_class_id not null and rev_class_name null, check if
471: -- Rev_class_id is exist in DB
472: IF (cn_api.get_rev_class_name (p_pe_rec.rev_class_id)) IS NULL
473: THEN
474: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
475: THEN
476: fnd_message.set_name ('CN', 'CN_REV_CLASS_NOT_EXIST');
477: fnd_msg_pub.ADD;
478: END IF;
473: THEN
474: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
475: THEN
476: fnd_message.set_name ('CN', 'CN_REV_CLASS_NOT_EXIST');
477: fnd_msg_pub.ADD;
478: END IF;
479:
480: x_loading_status := 'CN_REV_CLASS_NOT_EXIST';
481: RAISE fnd_api.g_exc_error;
488: IF (p_pe_rec.rev_class_id <> cn_api.get_rev_class_id (p_pe_rec.rev_class_name, p_pe_rec.org_id))
489: THEN
490: -- Error, check the msg level and add an error message to the
491: -- API message list
492: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
493: THEN
494: fnd_message.set_name ('CN', 'CN_VALUE_ID_ERROR');
495: fnd_message.set_token ('VALUE_NAME', g_rev_cls_name || ' : ' || p_pe_rec.rev_class_name);
496: fnd_message.set_token ('ID_NAME', g_rev_cls_id || ' : ' || p_pe_rec.rev_class_id);
493: THEN
494: fnd_message.set_name ('CN', 'CN_VALUE_ID_ERROR');
495: fnd_message.set_token ('VALUE_NAME', g_rev_cls_name || ' : ' || p_pe_rec.rev_class_name);
496: fnd_message.set_token ('ID_NAME', g_rev_cls_id || ' : ' || p_pe_rec.rev_class_id);
497: fnd_msg_pub.ADD;
498: END IF;
499:
500: x_loading_status := 'CN_VALUE_ID_ERROR';
501: RAISE fnd_api.g_exc_error;
507: -- rev_class_target >= 0,
508: --+
509: IF p_pe_rec.rev_class_target < 0
510: THEN
511: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
512: THEN
513: fnd_message.set_name ('CN', 'CN_REV_TARGET_GT_ZERO');
514: fnd_msg_pub.ADD;
515: END IF;
510: THEN
511: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
512: THEN
513: fnd_message.set_name ('CN', 'CN_REV_TARGET_GT_ZERO');
514: fnd_msg_pub.ADD;
515: END IF;
516:
517: x_loading_status := 'CN_REV_TARGET_GT_ZERO';
518: RAISE fnd_api.g_exc_error;
531: )
532: )
533: )
534: THEN
535: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
536: THEN
537: fnd_msg_pub.ADD;
538: END IF;
539:
533: )
534: THEN
535: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
536: THEN
537: fnd_msg_pub.ADD;
538: END IF;
539:
540: x_loading_status := 'REV_CLASS_HIER_CHECK';
541: RAISE fnd_api.g_exc_error;
553: THEN
554: x_return_status := fnd_api.g_ret_sts_unexp_error;
555: x_loading_status := 'UNEXPECTED_ERR';
556:
557: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
558: THEN
559: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
560: END IF;
561: END valid_revenue_class;
555: x_loading_status := 'UNEXPECTED_ERR';
556:
557: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
558: THEN
559: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
560: END IF;
561: END valid_revenue_class;
562:
563: -- ----------------------------------------------------------------------------+
616: RAISE FND_API.G_EXC_ERROR ;
617: END IF;
618: -- Check disc_option_code for DRAW and MANUAUL PE type
619: IF (p_pe_rec.disc_option_code <> 'NONE') THEN
620: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
621: THEN
622: FND_MESSAGE.SET_NAME ('CN' , 'CN_DISC_OPTION_MUST_NONE');
623: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
624: cn_api.get_lkup_meaning
622: FND_MESSAGE.SET_NAME ('CN' , 'CN_DISC_OPTION_MUST_NONE');
623: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
624: cn_api.get_lkup_meaning
625: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
626: FND_MSG_PUB.Add;
627: END IF;
628: x_loading_status := 'CN_DISC_OPTION_MUST_NONE';
629: RAISE FND_API.G_EXC_ERROR ;
630: END IF;
629: RAISE FND_API.G_EXC_ERROR ;
630: END IF;
631: -- Check cumulative_flag = N for DRAW and MANUAUL PE type
632: IF (p_pe_rec.cumulative_flag <> 'N') THEN
633: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
634: THEN
635: FND_MESSAGE.SET_NAME ('CN' , 'CN_CUM_FLAG_MUST_BE');
636: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
637: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
637: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
638: cn_api.get_lkup_meaning
639: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
640: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
641: FND_MSG_PUB.Add;
642: END IF;
643: x_loading_status := 'CN_CUM_FLAG_MUST_BE';
644: RAISE FND_API.G_EXC_ERROR ;
645: END IF;
644: RAISE FND_API.G_EXC_ERROR ;
645: END IF;
646: -- Check split_flag = N for DRAW and MANUAUL PE type
647: IF (p_pe_rec.split_flag <> 'N') THEN
648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
649: THEN
650: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
651: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
652: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
654: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
655: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
656: FND_MESSAGE.SET_TOKEN ('TOKEN2',NULL);
657: FND_MESSAGE.SET_TOKEN ('TOKEN3',NULL);
658: FND_MSG_PUB.Add;
659: END IF;
660: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
661: RAISE FND_API.G_EXC_ERROR ;
662: END IF;
661: RAISE FND_API.G_EXC_ERROR ;
662: END IF;
663: -- Check itd_flag = N for DRAW and MANUAUL PE type
664: IF (p_pe_rec.itd_flag <> 'N') THEN
665: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
666: THEN
667: FND_MESSAGE.SET_NAME ('CN' , 'CN_ITD_FLAG_MUST_BE');
668: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
669: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
669: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
670: cn_api.get_lkup_meaning
671: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
672: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
673: FND_MSG_PUB.Add;
674: END IF;
675: x_loading_status := 'CN_ITD_FLAG_MUST_BE';
676: RAISE FND_API.G_EXC_ERROR ;
677: END IF;
740: RAISE FND_API.G_EXC_ERROR ;
741: END IF;
742: -- Check for target =0 in DRAW and MANUAUL PE type: target = 0
743: IF (p_pe_rec.target <> 0) THEN
744: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
745: THEN
746: FND_MESSAGE.SET_NAME ('CN' , 'CN_PE_TARGET_MUST_BE');
747: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE','= 0');
748: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
748: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
749: cn_api.get_lkup_meaning
750: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
751: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
752: FND_MSG_PUB.Add;
753: END IF;
754: x_loading_status := 'CN_PE_TARGET_MUST_BE';
755: RAISE FND_API.G_EXC_ERROR ;
756: END IF;
765:
766: WHEN OTHERS THEN
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
768: x_loading_status := 'UNEXPECTED_ERR';
769: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
770: THEN
771: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
772: END IF;
773: */
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
768: x_loading_status := 'UNEXPECTED_ERR';
769: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
770: THEN
771: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
772: END IF;
773: */
774: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
775: fnd_msg_pub.ADD;
771: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
772: END IF;
773: */
774: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
775: fnd_msg_pub.ADD;
776: x_return_status := fnd_api.g_ret_sts_unexp_error;
777: x_loading_status := 'CN_PACKAGE_OBSELETE';
778: RAISE fnd_api.g_exc_error;
779: END chk_dr_man_pe;
804: --+
805: -- Validate Rule : cumulative flag Y only
806: --+
807: IF (p_pe_rec.cumulative_flag <> 'Y') THEN
808: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
809: THEN
810: FND_MESSAGE.SET_NAME ('CN' , 'CN_CUM_FLAG_MUST_BE');
811: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_yes);
812: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
812: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
813: cn_api.get_lkup_meaning
814: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
815: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
816: FND_MSG_PUB.Add;
817: END IF;
818: x_loading_status := 'CN_CUM_FLAG_MUST_BE';
819: RAISE FND_API.G_EXC_ERROR ;
820: END IF;
830: -- NULL : if payment type code = Fixed amount or applied Trx %
831: --+
832: -- Check itd_flag = N
833: IF (p_pe_rec.itd_flag <> 'N') THEN
834: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
835: THEN
836: FND_MESSAGE.SET_NAME ('CN' , 'CN_ITD_FLAG_MUST_BE');
837: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
838: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
841: FND_MESSAGE.SET_TOKEN ('TOKEN1',G_TRX_GROUP||' = '||
842: cn_api.get_lkup_meaning
843: (p_pe_rec.trx_group_code,'QUOTA_TRX_GROUP'))
844: ;
845: FND_MSG_PUB.Add;
846: END IF;
847: x_loading_status := 'CN_ITD_FLAG_MUST_BE';
848: RAISE FND_API.G_EXC_ERROR ;
849: END IF;
848: RAISE FND_API.G_EXC_ERROR ;
849: END IF;
850: -- Check split_flag = N
851: IF (p_pe_rec.split_flag <> 'N') THEN
852: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
853: THEN
854: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
855: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
856: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
861: (p_pe_rec.trx_group_code,'QUOTA_TRX_GROUP'))
862: ;
863: FND_MESSAGE.SET_TOKEN ('TOKEN2',NULL);
864: FND_MESSAGE.SET_TOKEN ('TOKEN3',NULL);
865: FND_MSG_PUB.Add;
866: END IF;
867: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
868: RAISE FND_API.G_EXC_ERROR ;
869: END IF;
868: RAISE FND_API.G_EXC_ERROR ;
869: END IF;
870: -- Check target > 0
871: IF (p_pe_rec.target <= 0) THEN
872: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
873: THEN
874: FND_MESSAGE.SET_NAME ('CN' , 'CN_TARGET_CANNOT_ZERO');
875: FND_MSG_PUB.Add;
876: END IF;
871: IF (p_pe_rec.target <= 0) THEN
872: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
873: THEN
874: FND_MESSAGE.SET_NAME ('CN' , 'CN_TARGET_CANNOT_ZERO');
875: FND_MSG_PUB.Add;
876: END IF;
877: x_loading_status := 'CN_TARGET_CANNOT_ZERO';
878: RAISE FND_API.G_EXC_ERROR ;
879: END IF;
930: --+
931: IF p_pe_rec.itd_flag = 'N' THEN
932: -- Check target > 0
933: IF (p_pe_rec.target <= 0) THEN
934: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
935: THEN
936: FND_MESSAGE.SET_NAME ('CN' , 'CN_TARGET_CANNOT_ZERO');
937: FND_MSG_PUB.Add;
938: END IF;
933: IF (p_pe_rec.target <= 0) THEN
934: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
935: THEN
936: FND_MESSAGE.SET_NAME ('CN' , 'CN_TARGET_CANNOT_ZERO');
937: FND_MSG_PUB.Add;
938: END IF;
939: x_loading_status := 'CN_TARGET_CANNOT_ZERO';
940: RAISE FND_API.G_EXC_ERROR ;
941: END IF;
942: -- Check split_flag = N if Payment Type = Payment amount %
943: -- or Fixed Amount
944: IF (p_pe_rec.payment_type_code IN ('PAYMENT','FIXED')) AND
945: (p_pe_rec.split_flag <> 'N') THEN
946: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
947: THEN
948: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
949: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
950: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
959: (p_pe_rec.payment_type_code,
960: 'QUOTA_PAYMENT_TYPE'));
961: FND_MESSAGE.SET_TOKEN ('TOKEN3',G_ITD||' = '||
962: p_pe_rec.itd_flag);
963: FND_MSG_PUB.Add;
964: END IF;
965: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
966: RAISE FND_API.G_EXC_ERROR ;
967: END IF;
1012: -- Payment Amount = 0
1013: --+
1014: -- Check target = 0
1015: IF (p_pe_rec.target <> 0) THEN
1016: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1017: THEN
1018: FND_MESSAGE.SET_NAME ('CN' , 'CN_PE_TARGET_MUST_BE');
1019: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE','= 0');
1020: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1021: cn_api.get_lkup_meaning
1022: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
1023: FND_MESSAGE.SET_TOKEN ('TOKEN1',
1024: G_ITD||' = '||p_pe_rec.itd_flag);
1025: FND_MSG_PUB.Add;
1026: END IF;
1027: x_loading_status := 'CN_PE_TARGET_MUST_BE';
1028: RAISE FND_API.G_EXC_ERROR ;
1029: END IF;
1028: RAISE FND_API.G_EXC_ERROR ;
1029: END IF;
1030: -- Check no 'Fixed Amount' payment type allowed
1031: IF p_pe_rec.payment_type_code = 'FIXED' THEN
1032: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1033: THEN
1034: FND_MESSAGE.SET_NAME ('CN' ,'CN_ITD_NO_FIXED_AMOUNT');
1035: FND_MSG_PUB.Add;
1036: END IF;
1031: IF p_pe_rec.payment_type_code = 'FIXED' THEN
1032: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1033: THEN
1034: FND_MESSAGE.SET_NAME ('CN' ,'CN_ITD_NO_FIXED_AMOUNT');
1035: FND_MSG_PUB.Add;
1036: END IF;
1037: x_loading_status := 'CN_ITD_NO_FIXED_AMOUNT';
1038: RAISE FND_API.G_EXC_ERROR ;
1039: END IF;
1040: -- Check split_flag = N if Payment Type = Payment amount %
1041: -- or Applied Trx %
1042: IF (p_pe_rec.payment_type_code IN ('PAYMENT','TRANSACTION')) AND
1043: (p_pe_rec.split_flag <> 'N') THEN
1044: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1045: THEN
1046: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
1047: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1048: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1057: (p_pe_rec.payment_type_code,
1058: 'QUOTA_PAYMENT_TYPE'));
1059: FND_MESSAGE.SET_TOKEN ('TOKEN3',
1060: G_ITD||' = '||p_pe_rec.itd_flag);
1061: FND_MSG_PUB.Add;
1062: END IF;
1063: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
1064: RAISE FND_API.G_EXC_ERROR ;
1065: END IF;
1064: RAISE FND_API.G_EXC_ERROR ;
1065: END IF;
1066: -- Check Payment Amount : Must be 0
1067: IF (p_pe_rec.payment_amount <> 0) THEN
1068: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1069: THEN
1070: FND_MESSAGE.SET_NAME ('CN' , 'CN_PE_PAYMENT_AMT_MUST_BE');
1071: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE','= 0');
1072: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1081: (p_pe_rec.payment_type_code,
1082: 'QUOTA_PAYMENT_TYPE'));
1083: FND_MESSAGE.SET_TOKEN ('TOKEN3',
1084: G_ITD||' = '||p_pe_rec.itd_flag);
1085: FND_MSG_PUB.Add;
1086: END IF;
1087: x_loading_status := 'CN_PE_PAYMENT_AMT_MUST_BE';
1088: RAISE FND_API.G_EXC_ERROR ;
1089: END IF;
1147:
1148: WHEN OTHERS THEN
1149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1150: x_loading_status := 'UNEXPECTED_ERR';
1151: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1152: THEN
1153: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1154: END IF;
1155: */
1149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1150: x_loading_status := 'UNEXPECTED_ERR';
1151: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1152: THEN
1153: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1154: END IF;
1155: */
1156: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
1157: fnd_msg_pub.ADD;
1153: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1154: END IF;
1155: */
1156: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
1157: fnd_msg_pub.ADD;
1158: x_return_status := fnd_api.g_ret_sts_unexp_error;
1159: x_loading_status := 'CN_PACKAGE_OBSELETE';
1160: RAISE fnd_api.g_exc_error;
1161: END chk_revenue_quota_pe;
1185: --+
1186: -- Validate Rule : cumulative flag Y only
1187: --+
1188: IF (p_pe_rec.cumulative_flag <> 'Y') THEN
1189: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1190: THEN
1191: FND_MESSAGE.SET_NAME ('CN' , 'CN_CUM_FLAG_MUST_BE');
1192: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_yes);
1193: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1193: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1194: cn_api.get_lkup_meaning
1195: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
1196: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
1197: FND_MSG_PUB.Add;
1198: END IF;
1199: x_loading_status := 'CN_CUM_FLAG_MUST_BE';
1200: RAISE FND_API.G_EXC_ERROR ;
1201: END IF;
1211: -- NULL : if payment type code = Fixed amount or applied Trx %
1212: --+
1213: -- Check itd_flag = N
1214: IF (p_pe_rec.itd_flag <> 'N') THEN
1215: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1216: THEN
1217: FND_MESSAGE.SET_NAME ('CN' , 'CN_ITD_FLAG_MUST_BE');
1218: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1219: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1221: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
1222: FND_MESSAGE.SET_TOKEN ('TOKEN1', G_TRX_GROUP||' = '||
1223: cn_api.get_lkup_meaning
1224: (p_pe_rec.trx_group_code,'QUOTA_TRX_GROUP'));
1225: FND_MSG_PUB.Add;
1226: END IF;
1227: x_loading_status := 'CN_ITD_FLAG_MUST_BE';
1228: RAISE FND_API.G_EXC_ERROR ;
1229: END IF;
1228: RAISE FND_API.G_EXC_ERROR ;
1229: END IF;
1230: -- Check split_flag = N
1231: IF (p_pe_rec.split_flag <> 'N') THEN
1232: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1233: THEN
1234: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
1235: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1236: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1241: (p_pe_rec.trx_group_code,'QUOTA_TRX_GROUP'))
1242: ;
1243: FND_MESSAGE.SET_TOKEN ('TOKEN2',NULL);
1244: FND_MESSAGE.SET_TOKEN ('TOKEN3',NULL);
1245: FND_MSG_PUB.Add;
1246: END IF;
1247: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
1248: RAISE FND_API.G_EXC_ERROR ;
1249: END IF;
1248: RAISE FND_API.G_EXC_ERROR ;
1249: END IF;
1250: -- Check target > 0
1251: IF (p_pe_rec.target <= 0) THEN
1252: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1253: THEN
1254: FND_MESSAGE.SET_NAME ('CN' , 'CN_TARGET_CANNOT_ZERO');
1255: FND_MSG_PUB.Add;
1256: END IF;
1251: IF (p_pe_rec.target <= 0) THEN
1252: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1253: THEN
1254: FND_MESSAGE.SET_NAME ('CN' , 'CN_TARGET_CANNOT_ZERO');
1255: FND_MSG_PUB.Add;
1256: END IF;
1257: x_loading_status := 'CN_TARGET_CANNOT_ZERO';
1258: RAISE FND_API.G_EXC_ERROR ;
1259: END IF;
1311: --+
1312: IF p_pe_rec.itd_flag = 'N' THEN
1313: -- Check target > 0
1314: IF (p_pe_rec.target <= 0) THEN
1315: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1316: THEN
1317: FND_MESSAGE.SET_NAME ('CN' , 'CN_TARGET_CANNOT_ZERO');
1318: FND_MSG_PUB.Add;
1319: END IF;
1314: IF (p_pe_rec.target <= 0) THEN
1315: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1316: THEN
1317: FND_MESSAGE.SET_NAME ('CN' , 'CN_TARGET_CANNOT_ZERO');
1318: FND_MSG_PUB.Add;
1319: END IF;
1320: x_loading_status := 'CN_TARGET_CANNOT_ZERO';
1321: RAISE FND_API.G_EXC_ERROR ;
1322: END IF;
1323: -- Check split_flag = N if Payment Type = Payment amount %
1324: -- or Fixed Amount
1325: IF (p_pe_rec.payment_type_code IN ('PAYMENT','FIXED')) AND
1326: (p_pe_rec.split_flag <> 'N') THEN
1327: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1328: THEN
1329: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
1330: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1331: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1340: (p_pe_rec.payment_type_code,
1341: 'QUOTA_PAYMENT_TYPE'));
1342: FND_MESSAGE.SET_TOKEN ('TOKEN3',
1343: G_ITD||' = '||p_pe_rec.itd_flag);
1344: FND_MSG_PUB.Add;
1345: END IF;
1346: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
1347: RAISE FND_API.G_EXC_ERROR ;
1348: END IF;
1395: -- Payment Amount = 0
1396: --+
1397: -- Check target = 0
1398: IF (p_pe_rec.target <> 0) THEN
1399: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1400: THEN
1401: FND_MESSAGE.SET_NAME ('CN' , 'CN_PE_TARGET_MUST_BE');
1402: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE','= 0');
1403: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1404: cn_api.get_lkup_meaning
1405: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
1406: FND_MESSAGE.SET_TOKEN ('TOKEN1',
1407: G_ITD||' = '||p_pe_rec.itd_flag);
1408: FND_MSG_PUB.Add;
1409: END IF;
1410: x_loading_status := 'CN_PE_TARGET_MUST_BE';
1411: RAISE FND_API.G_EXC_ERROR ;
1412: END IF;
1411: RAISE FND_API.G_EXC_ERROR ;
1412: END IF;
1413: -- Check no 'Fixed Amount' payment type allowed
1414: IF p_pe_rec.payment_type_code = 'FIXED' THEN
1415: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1416: THEN
1417: FND_MESSAGE.SET_NAME ('CN' ,'CN_ITD_NO_FIXED_AMOUNT');
1418: FND_MSG_PUB.Add;
1419: END IF;
1414: IF p_pe_rec.payment_type_code = 'FIXED' THEN
1415: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1416: THEN
1417: FND_MESSAGE.SET_NAME ('CN' ,'CN_ITD_NO_FIXED_AMOUNT');
1418: FND_MSG_PUB.Add;
1419: END IF;
1420: x_loading_status := 'CN_ITD_NO_FIXED_AMOUNT';
1421: RAISE FND_API.G_EXC_ERROR ;
1422: END IF;
1423: -- Check split_flag = N if Payment Type = Payment amount %
1424: -- or Applied Trx %
1425: IF (p_pe_rec.payment_type_code IN ('PAYMENT','TRANSACTION')) AND
1426: (p_pe_rec.split_flag <> 'N') THEN
1427: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1428: THEN
1429: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
1430: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1431: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1440: (p_pe_rec.payment_type_code,
1441: 'QUOTA_PAYMENT_TYPE'));
1442: FND_MESSAGE.SET_TOKEN ('TOKEN3',
1443: G_ITD||' = '||p_pe_rec.itd_flag);
1444: FND_MSG_PUB.Add;
1445: END IF;
1446: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
1447: RAISE FND_API.G_EXC_ERROR ;
1448: END IF;
1447: RAISE FND_API.G_EXC_ERROR ;
1448: END IF;
1449: -- Check Payment Amount : Must be 0
1450: IF (p_pe_rec.payment_amount <> 0) THEN
1451: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1452: THEN
1453: FND_MESSAGE.SET_NAME ('CN' , 'CN_PE_PAYMENT_AMT_MUST_BE');
1454: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE','= 0');
1455: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1464: (p_pe_rec.payment_type_code,
1465: 'QUOTA_PAYMENT_TYPE'));
1466: FND_MESSAGE.SET_TOKEN ('TOKEN3',
1467: G_ITD||' = '||p_pe_rec.itd_flag);
1468: FND_MSG_PUB.Add;
1469: END IF;
1470: x_loading_status := 'CN_PE_PAYMENT_AMT_MUST_BE';
1471: RAISE FND_API.G_EXC_ERROR ;
1472: END IF;
1516:
1517: WHEN OTHERS THEN
1518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1519: x_loading_status := 'UNEXPECTED_ERR';
1520: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1521: THEN
1522: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1523: END IF;
1524: */
1518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1519: x_loading_status := 'UNEXPECTED_ERR';
1520: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1521: THEN
1522: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1523: END IF;
1524: */
1525: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
1526: fnd_msg_pub.ADD;
1522: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1523: END IF;
1524: */
1525: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
1526: fnd_msg_pub.ADD;
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1528: x_loading_status := 'CN_PACKAGE_OBSELETE';
1529: RAISE fnd_api.g_exc_error;
1530: END chk_unit_quota_pe;
1556: -- target = 0, ITD Flag = N
1557: --+
1558: -- Check target = 0
1559: IF (p_pe_rec.target <> 0) THEN
1560: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1561: THEN
1562: FND_MESSAGE.SET_NAME ('CN' , 'CN_PE_TARGET_MUST_BE');
1563: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE','= 0');
1564: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1564: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1565: cn_api.get_lkup_meaning
1566: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
1567: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
1568: FND_MSG_PUB.Add;
1569: END IF;
1570: x_loading_status := 'CN_PE_TARGET_MUST_BE';
1571: RAISE FND_API.G_EXC_ERROR ;
1572: END IF;
1571: RAISE FND_API.G_EXC_ERROR ;
1572: END IF;
1573: -- Check itd_flag = N
1574: IF (p_pe_rec.itd_flag <> 'N') THEN
1575: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1576: THEN
1577: FND_MESSAGE.SET_NAME ('CN' , 'CN_ITD_FLAG_MUST_BE');
1578: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1579: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1579: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1580: cn_api.get_lkup_meaning
1581: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
1582: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
1583: FND_MSG_PUB.Add;
1584: END IF;
1585: x_loading_status := 'CN_ITD_FLAG_MUST_BE';
1586: RAISE FND_API.G_EXC_ERROR ;
1587: END IF;
1596: -- NULL : if payment type code = Fixed amount or applied Trx %
1597: --+
1598: -- Check Cumulative Flag = N
1599: IF (p_pe_rec.cumulative_flag <> 'N') THEN
1600: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1601: THEN
1602: FND_MESSAGE.SET_NAME ('CN' , 'CN_CUM_FLAG_MUST_BE');
1603: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1604: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1606: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
1607: FND_MESSAGE.SET_TOKEN ('TOKEN1', G_TRX_GROUP||' = '||
1608: cn_api.get_lkup_meaning
1609: (p_pe_rec.trx_group_code,'QUOTA_TRX_GROUP'));
1610: FND_MSG_PUB.Add;
1611: END IF;
1612: x_loading_status := 'CN_CUM_FLAG_MUST_BE';
1613: RAISE FND_API.G_EXC_ERROR ;
1614: END IF;
1613: RAISE FND_API.G_EXC_ERROR ;
1614: END IF;
1615: -- Check split_flag = N
1616: IF (p_pe_rec.split_flag <> 'N') THEN
1617: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1618: THEN
1619: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
1620: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1621: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1625: cn_api.get_lkup_meaning
1626: (p_pe_rec.trx_group_code,'QUOTA_TRX_GROUP'));
1627: FND_MESSAGE.SET_TOKEN ('TOKEN2',NULL);
1628: FND_MESSAGE.SET_TOKEN ('TOKEN3',NULL);
1629: FND_MSG_PUB.Add;
1630: END IF;
1631: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
1632: RAISE FND_API.G_EXC_ERROR ;
1633: END IF;
1703: END IF;
1704: -- Check split flag = N if cumulative flag = N
1705: IF (p_pe_rec.cumulative_flag = 'N') AND
1706: (p_pe_rec.split_flag <> 'N') THEN
1707: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1708: THEN
1709: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
1710: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1711: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1720: (p_pe_rec.payment_type_code,
1721: 'QUOTA_PAYMENT_TYPE'));
1722: FND_MESSAGE.SET_TOKEN ('TOKEN3',G_ACCMULATE||' = '||
1723: p_pe_rec.cumulative_flag);
1724: FND_MSG_PUB.Add;
1725: END IF;
1726: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
1727: RAISE FND_API.G_EXC_ERROR ;
1728: END IF;
1736: -- NULL : if payment type code = Fixed amount
1737: --+
1738: -- Check split_flag = N
1739: IF (p_pe_rec.split_flag <> 'N') THEN
1740: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1741: THEN
1742: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
1743: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1744: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1752: cn_api.get_lkup_meaning
1753: (p_pe_rec.payment_type_code,
1754: 'QUOTA_PAYMENT_TYPE'));
1755: FND_MESSAGE.SET_TOKEN ('TOKEN3',NULL);
1756: FND_MSG_PUB.Add;
1757: END IF;
1758: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
1759: RAISE FND_API.G_EXC_ERROR ;
1760: END IF;
1856:
1857: WHEN OTHERS THEN
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1859: x_loading_status := 'UNEXPECTED_ERR';
1860: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1861: THEN
1862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1863: END IF;
1864: */
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1859: x_loading_status := 'UNEXPECTED_ERR';
1860: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1861: THEN
1862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1863: END IF;
1864: */
1865: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
1866: fnd_msg_pub.ADD;
1862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1863: END IF;
1864: */
1865: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
1866: fnd_msg_pub.ADD;
1867: x_return_status := fnd_api.g_ret_sts_unexp_error;
1868: x_loading_status := 'CN_PACKAGE_OBSELETE';
1869: RAISE fnd_api.g_exc_error;
1870: END chk_revenue_non_quota_pe;
1896: -- target = 0, ITD Flag = N
1897: --+
1898: -- Check target = 0
1899: IF (p_pe_rec.target <> 0) THEN
1900: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1901: THEN
1902: FND_MESSAGE.SET_NAME ('CN' , 'CN_PE_TARGET_MUST_BE');
1903: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE','= 0');
1904: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1904: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1905: cn_api.get_lkup_meaning
1906: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
1907: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
1908: FND_MSG_PUB.Add;
1909: END IF;
1910: x_loading_status := 'CN_PE_TARGET_MUST_BE';
1911: RAISE FND_API.G_EXC_ERROR ;
1912: END IF;
1911: RAISE FND_API.G_EXC_ERROR ;
1912: END IF;
1913: -- Check itd_flag = N
1914: IF (p_pe_rec.itd_flag <> 'N') THEN
1915: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1916: THEN
1917: FND_MESSAGE.SET_NAME ('CN' , 'CN_ITD_FLAG_MUST_BE');
1918: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1919: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1919: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1920: cn_api.get_lkup_meaning
1921: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
1922: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
1923: FND_MSG_PUB.Add;
1924: END IF;
1925: x_loading_status := 'CN_ITD_FLAG_MUST_BE';
1926: RAISE FND_API.G_EXC_ERROR ;
1927: END IF;
1936: -- NULL : if payment type code = Fixed amount or applied Trx %
1937: --+
1938: -- Check Cumulative Flag = N
1939: IF (p_pe_rec.cumulative_flag <> 'N') THEN
1940: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1941: THEN
1942: FND_MESSAGE.SET_NAME ('CN' , 'CN_CUM_FLAG_MUST_BE');
1943: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1944: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1947: FND_MESSAGE.SET_TOKEN ('TOKEN1', G_TRX_GROUP||' = '||
1948: cn_api.get_lkup_meaning
1949: (p_pe_rec.trx_group_code,'QUOTA_TRX_GROUP'))
1950: ;
1951: FND_MSG_PUB.Add;
1952: END IF;
1953: x_loading_status := 'CN_CUM_FLAG_MUST_BE';
1954: RAISE FND_API.G_EXC_ERROR ;
1955: END IF;
1954: RAISE FND_API.G_EXC_ERROR ;
1955: END IF;
1956: -- Check split_flag = N
1957: IF (p_pe_rec.split_flag <> 'N') THEN
1958: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1959: THEN
1960: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
1961: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
1962: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
1967: (p_pe_rec.trx_group_code,'QUOTA_TRX_GROUP'))
1968: ;
1969: FND_MESSAGE.SET_TOKEN ('TOKEN2',NULL);
1970: FND_MESSAGE.SET_TOKEN ('TOKEN3',NULL);
1971: FND_MSG_PUB.Add;
1972: END IF;
1973: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
1974: RAISE FND_API.G_EXC_ERROR ;
1975: END IF;
2045: END IF;
2046: -- Check split flag = N if cumulative flag = N
2047: IF (p_pe_rec.cumulative_flag = 'N') AND
2048: (p_pe_rec.split_flag <> 'N') THEN
2049: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2050: THEN
2051: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
2052: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
2053: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
2062: (p_pe_rec.payment_type_code,
2063: 'QUOTA_PAYMENT_TYPE'));
2064: FND_MESSAGE.SET_TOKEN ('TOKEN3', G_ACCMULATE||' = '||
2065: p_pe_rec.cumulative_flag);
2066: FND_MSG_PUB.Add;
2067: END IF;
2068: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
2069: RAISE FND_API.G_EXC_ERROR ;
2070: END IF;
2078: -- NULL : if payment type code = Fixed amount
2079: --+
2080: -- Check split_flag = N
2081: IF (p_pe_rec.split_flag <> 'N') THEN
2082: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2083: THEN
2084: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
2085: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
2086: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
2094: cn_api.get_lkup_meaning
2095: (p_pe_rec.payment_type_code,
2096: 'QUOTA_PAYMENT_TYPE'));
2097: FND_MESSAGE.SET_TOKEN ('TOKEN3',NULL);
2098: FND_MSG_PUB.Add;
2099: END IF;
2100: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
2101: RAISE FND_API.G_EXC_ERROR ;
2102: END IF;
2186:
2187: WHEN OTHERS THEN
2188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2189: x_loading_status := 'UNEXPECTED_ERR';
2190: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2191: THEN
2192: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2193: END IF;
2194: */
2188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2189: x_loading_status := 'UNEXPECTED_ERR';
2190: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2191: THEN
2192: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2193: END IF;
2194: */
2195: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
2196: fnd_msg_pub.ADD;
2192: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2193: END IF;
2194: */
2195: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
2196: fnd_msg_pub.ADD;
2197: x_return_status := fnd_api.g_ret_sts_unexp_error;
2198: x_loading_status := 'CN_PACKAGE_OBSELETE';
2199: RAISE fnd_api.g_exc_error;
2200: END chk_unit_non_quota_pe;
2231: -- NULL : if payment type code = Fixed amount or applied Trx %
2232: --+
2233: -- Check target = 0
2234: IF (p_pe_rec.target <> 0) THEN
2235: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2236: THEN
2237: FND_MESSAGE.SET_NAME ('CN' , 'CN_PE_TARGET_MUST_BE');
2238: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE','= 0');
2239: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
2239: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
2240: cn_api.get_lkup_meaning
2241: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
2242: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
2243: FND_MSG_PUB.Add;
2244: END IF;
2245: x_loading_status := 'CN_PE_TARGET_MUST_BE';
2246: RAISE FND_API.G_EXC_ERROR ;
2247: END IF;
2246: RAISE FND_API.G_EXC_ERROR ;
2247: END IF;
2248: -- Check split_flag = N
2249: IF (p_pe_rec.split_flag <> 'N') THEN
2250: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2251: THEN
2252: FND_MESSAGE.SET_NAME ('CN' , 'CN_SPLIT_FLAG_MUST_BE');
2253: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
2254: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
2256: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
2257: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
2258: FND_MESSAGE.SET_TOKEN ('TOKEN2',NULL);
2259: FND_MESSAGE.SET_TOKEN ('TOKEN3',NULL);
2260: FND_MSG_PUB.Add;
2261: END IF;
2262: x_loading_status := 'CN_SPLIT_FLAG_MUST_BE';
2263: RAISE FND_API.G_EXC_ERROR ;
2264: END IF;
2263: RAISE FND_API.G_EXC_ERROR ;
2264: END IF;
2265: -- Check cumulative_flag = N for Discount and Margin PE type
2266: IF (p_pe_rec.cumulative_flag <> 'N') THEN
2267: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2268: THEN
2269: FND_MESSAGE.SET_NAME ('CN' , 'CN_CUM_FLAG_MUST_BE');
2270: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
2271: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
2271: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
2272: cn_api.get_lkup_meaning
2273: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
2274: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
2275: FND_MSG_PUB.Add;
2276: END IF;
2277: x_loading_status := 'CN_CUM_FLAG_MUST_BE';
2278: RAISE FND_API.G_EXC_ERROR ;
2279: END IF;
2278: RAISE FND_API.G_EXC_ERROR ;
2279: END IF;
2280: -- Check itd_flag = N for Discount and Margin PE type
2281: IF (p_pe_rec.itd_flag <> 'N') THEN
2282: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2283: THEN
2284: FND_MESSAGE.SET_NAME ('CN' , 'CN_ITD_FLAG_MUST_BE');
2285: FND_MESSAGE.SET_TOKEN ('OBJ_VALUE',l_no);
2286: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
2286: FND_MESSAGE.SET_TOKEN ('PLAN_TYPE',
2287: cn_api.get_lkup_meaning
2288: (p_pe_rec.quota_type_code,'QUOTA_TYPE'));
2289: FND_MESSAGE.SET_TOKEN ('TOKEN1',NULL);
2290: FND_MSG_PUB.Add;
2291: END IF;
2292: x_loading_status := 'CN_ITD_FLAG_MUST_BE';
2293: RAISE FND_API.G_EXC_ERROR ;
2294: END IF;
2293: RAISE FND_API.G_EXC_ERROR ;
2294: END IF;
2295: -- Check Apply Txn Type = 'GroupBy' NOT ALLOWED
2296: IF p_pe_rec.trx_group_code = 'GROUP' THEN
2297: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2298: THEN
2299: FND_MESSAGE.SET_NAME ('CN' , 'DISC_MARGIN_INDIVIDUAL_ONLY');
2300: FND_MSG_PUB.Add;
2301: END IF;
2296: IF p_pe_rec.trx_group_code = 'GROUP' THEN
2297: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2298: THEN
2299: FND_MESSAGE.SET_NAME ('CN' , 'DISC_MARGIN_INDIVIDUAL_ONLY');
2300: FND_MSG_PUB.Add;
2301: END IF;
2302: x_loading_status := 'DISC_MARGIN_INDIVIDUAL_ONLY';
2303: RAISE FND_API.G_EXC_ERROR ;
2304: END IF;
2384:
2385: WHEN OTHERS THEN
2386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2387: x_loading_status := 'UNEXPECTED_ERR';
2388: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2389: THEN
2390: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2391: END IF;
2392: */
2386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2387: x_loading_status := 'UNEXPECTED_ERR';
2388: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2389: THEN
2390: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2391: END IF;
2392: */
2393: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
2394: fnd_msg_pub.ADD;
2390: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2391: END IF;
2392: */
2393: fnd_message.set_name ('CN', 'CN_PACKAGE_OBSELETE');
2394: fnd_msg_pub.ADD;
2395: x_return_status := fnd_api.g_ret_sts_unexp_error;
2396: x_loading_status := 'CN_PACKAGE_OBSELETE';
2397: RAISE fnd_api.g_exc_error;
2398: END chk_discount_margin_pe;
2435: INTO l_factor_csr;
2436:
2437: IF c_factors%ROWCOUNT = 0
2438: THEN
2439: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2440: THEN
2441: fnd_message.set_name ('CN', 'PLN_QUOTA_RULE_NO_FACTORS');
2442: fnd_message.set_token ('REV_CLASS_NAME', p_rev_class_name);
2443: fnd_msg_pub.ADD;
2439: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2440: THEN
2441: fnd_message.set_name ('CN', 'PLN_QUOTA_RULE_NO_FACTORS');
2442: fnd_message.set_token ('REV_CLASS_NAME', p_rev_class_name);
2443: fnd_msg_pub.ADD;
2444: END IF;
2445:
2446: x_loading_status := 'PLN_QUOTA_RULE_NO_FACTORS';
2447: RAISE fnd_api.g_exc_error;
2450: THEN
2451: IF key_factor_total <> 100
2452: THEN
2453: -- Warning message only.
2454: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2455: THEN
2456: SELECT q.NAME
2457: INTO l_pe_name
2458: FROM cn_quotas q,
2462: fnd_message.set_name ('CN', 'PLN_QUOTA_RULE_FACTORS_NOT_100');
2463: fnd_message.set_token ('PLAN_NAME', NULL);
2464: fnd_message.set_token ('QUOTA_NAME', l_pe_name);
2465: fnd_message.set_token ('REV_CLASS_NAME', p_rev_class_name);
2466: fnd_msg_pub.ADD;
2467: RAISE fnd_api.g_exc_error;
2468: END IF;
2469:
2470: x_loading_status := 'PLN_QUOTA_RULE_FACTORS_NOT_100';
2814:
2815: -- check date range between the parent and child plan element
2816: IF (l_parent_start_date < l_child_start_date)
2817: THEN
2818: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2819: THEN
2820: -- Need to define message 'CN_PE_CANNOT_REF_ITSEF' in SEED115
2821: fnd_message.set_name ('CN', 'CN_PPE_WITHIN_CPE');
2822: fnd_msg_pub.ADD;
2818: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2819: THEN
2820: -- Need to define message 'CN_PE_CANNOT_REF_ITSEF' in SEED115
2821: fnd_message.set_name ('CN', 'CN_PPE_WITHIN_CPE');
2822: fnd_msg_pub.ADD;
2823: END IF;
2824:
2825: RAISE fnd_api.g_exc_error;
2826: END IF; -- l_child_start_date < l_parent_start_date
2826: END IF; -- l_child_start_date < l_parent_start_date
2827:
2828: IF ((l_parent_end_date IS NULL) AND (l_child_end_date IS NOT NULL))
2829: THEN
2830: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2831: THEN
2832: -- Need to define message 'CN_PE_CED_CANNOT_BEFORE_PED' in SEED115
2833: fnd_message.set_name ('CN', 'CN_PPE_WITHIN_CPE');
2834: fnd_msg_pub.ADD;
2830: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2831: THEN
2832: -- Need to define message 'CN_PE_CED_CANNOT_BEFORE_PED' in SEED115
2833: fnd_message.set_name ('CN', 'CN_PPE_WITHIN_CPE');
2834: fnd_msg_pub.ADD;
2835: END IF;
2836:
2837: RAISE fnd_api.g_exc_error;
2838: END IF; -- ((l_child_end_date is NULL) AND (l_parent_child_date is not NULL))
2838: END IF; -- ((l_child_end_date is NULL) AND (l_parent_child_date is not NULL))
2839:
2840: IF ((l_parent_end_date IS NOT NULL) AND (l_child_end_date IS NOT NULL)) AND (l_parent_end_date > l_child_end_date)
2841: THEN
2842: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2843: THEN
2844: -- Need to define message 'CN_PE_CED_CANNOT_BEFORE_PED' in SEED115
2845: fnd_message.set_name ('CN', 'CN_PPE_WITHIN_CPE');
2846: fnd_msg_pub.ADD;
2842: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2843: THEN
2844: -- Need to define message 'CN_PE_CED_CANNOT_BEFORE_PED' in SEED115
2845: fnd_message.set_name ('CN', 'CN_PPE_WITHIN_CPE');
2846: fnd_msg_pub.ADD;
2847: END IF;
2848:
2849: RAISE fnd_api.g_exc_error;
2850: END IF; -- ( l_child_end_date > l_parent_end_date )
2878: WHERE calc_formula_id = p_plan_element.calc_formula_id;
2879: EXCEPTION
2880: WHEN NO_DATA_FOUND
2881: THEN
2882: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2883: THEN
2884: fnd_message.set_name ('CN', 'CN_FORMULA_NOT_EXIST');
2885: fnd_message.set_token ('FORMULA_NAME', p_plan_element.calc_formula_id);
2886: fnd_msg_pub.ADD;
2882: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2883: THEN
2884: fnd_message.set_name ('CN', 'CN_FORMULA_NOT_EXIST');
2885: fnd_message.set_token ('FORMULA_NAME', p_plan_element.calc_formula_id);
2886: fnd_msg_pub.ADD;
2887: END IF;
2888:
2889: x_loading_status := 'FORMULA_NOT_EXIST';
2890: RAISE fnd_api.g_exc_error;
2942: WHERE calc_formula_id = p_plan_element.calc_formula_id;
2943: EXCEPTION
2944: WHEN NO_DATA_FOUND
2945: THEN
2946: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2947: THEN
2948: fnd_message.set_name ('CN', 'CN_INVALID_DATA');
2949: fnd_message.set_token ('OBJ_NAME', cn_chk_plan_element_pkg.g_formula_id);
2950: fnd_msg_pub.ADD;
2946: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2947: THEN
2948: fnd_message.set_name ('CN', 'CN_INVALID_DATA');
2949: fnd_message.set_token ('OBJ_NAME', cn_chk_plan_element_pkg.g_formula_id);
2950: fnd_msg_pub.ADD;
2951: END IF;
2952:
2953: RAISE fnd_api.g_exc_error;
2954: END;
2954: END;
2955:
2956: IF (p_plan_element.incentive_type_code = 'BONUS') AND (l_formula_type = 'C')
2957: THEN
2958: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2959: THEN
2960: fnd_message.set_name ('CN', 'CN_CANNOT_ASSIGN_FORMULA');
2961: fnd_message.set_token ('FORMULA_TYPE', cn_api.get_lkup_meaning ('COMMISSION', 'INCENTIVE_TYPE'));
2962: fnd_message.set_token ('PE_INC_TYPE', cn_api.get_lkup_meaning ('BONUS', 'INCENTIVE_TYPE'));
2959: THEN
2960: fnd_message.set_name ('CN', 'CN_CANNOT_ASSIGN_FORMULA');
2961: fnd_message.set_token ('FORMULA_TYPE', cn_api.get_lkup_meaning ('COMMISSION', 'INCENTIVE_TYPE'));
2962: fnd_message.set_token ('PE_INC_TYPE', cn_api.get_lkup_meaning ('BONUS', 'INCENTIVE_TYPE'));
2963: fnd_msg_pub.ADD;
2964: END IF;
2965:
2966: RAISE fnd_api.g_exc_error;
2967: END IF;
2967: END IF;
2968:
2969: IF (p_plan_element.incentive_type_code = 'COMMISSION') AND (l_formula_type = 'B')
2970: THEN
2971: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2972: THEN
2973: fnd_message.set_name ('CN', 'CN_CANNOT_ASSIGN_FORMULA');
2974: fnd_message.set_token ('FORMULA_TYPE', cn_api.get_lkup_meaning ('BONUS', 'INCENTIVE_TYPE'));
2975: fnd_message.set_token ('PE_INC_TYPE', cn_api.get_lkup_meaning ('COMMISSION', 'INCENTIVE_TYPE'));
2972: THEN
2973: fnd_message.set_name ('CN', 'CN_CANNOT_ASSIGN_FORMULA');
2974: fnd_message.set_token ('FORMULA_TYPE', cn_api.get_lkup_meaning ('BONUS', 'INCENTIVE_TYPE'));
2975: fnd_message.set_token ('PE_INC_TYPE', cn_api.get_lkup_meaning ('COMMISSION', 'INCENTIVE_TYPE'));
2976: fnd_msg_pub.ADD;
2977: END IF;
2978:
2979: RAISE fnd_api.g_exc_error;
2980: END IF;
3041: END IF;
3042:
3043: IF (p_pe_rec.incentive_type_code = 'MANUAL')
3044: THEN
3045: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3046: THEN
3047: fnd_message.set_name ('CN', 'CN_INCENTIVE_TYPE_MUST_BE');
3048: fnd_message.set_token ('OBJ_VALUE', 'Bonus or Commission');
3049: fnd_message.set_token ('PLAN_TYPE', cn_api.get_lkup_meaning (p_pe_rec.quota_type_code, 'QUOTA_TYPE'));
3046: THEN
3047: fnd_message.set_name ('CN', 'CN_INCENTIVE_TYPE_MUST_BE');
3048: fnd_message.set_token ('OBJ_VALUE', 'Bonus or Commission');
3049: fnd_message.set_token ('PLAN_TYPE', cn_api.get_lkup_meaning (p_pe_rec.quota_type_code, 'QUOTA_TYPE'));
3050: fnd_msg_pub.ADD;
3051: END IF;
3052:
3053: x_loading_status := 'CN_INCENTIVE_TYPE_MUST_BE';
3054: RAISE fnd_api.g_exc_error;
3065: THEN
3066: x_return_status := fnd_api.g_ret_sts_unexp_error;
3067: x_loading_status := 'UNEXPECTED_ERR';
3068:
3069: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3070: THEN
3071: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3072: END IF;
3073: END chk_formula_quota_pe;
3067: x_loading_status := 'UNEXPECTED_ERR';
3068:
3069: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3070: THEN
3071: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3072: END IF;
3073: END chk_formula_quota_pe;
3074:
3075: -- ----------------------------------------------------------------------------+
3123: END IF;
3124:
3125: IF (p_pe_rec.incentive_type_code = 'MANUAL')
3126: THEN
3127: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3128: THEN
3129: fnd_message.set_name ('CN', 'CN_INCENTIVE_TYPE_MUST_BE');
3130: fnd_message.set_token ('OBJ_VALUE', 'Bonus or Commission');
3131: fnd_message.set_token ('PLAN_TYPE', cn_api.get_lkup_meaning (p_pe_rec.quota_type_code, 'QUOTA_TYPE'));
3128: THEN
3129: fnd_message.set_name ('CN', 'CN_INCENTIVE_TYPE_MUST_BE');
3130: fnd_message.set_token ('OBJ_VALUE', 'Bonus or Commission');
3131: fnd_message.set_token ('PLAN_TYPE', cn_api.get_lkup_meaning (p_pe_rec.quota_type_code, 'QUOTA_TYPE'));
3132: fnd_msg_pub.ADD;
3133: END IF;
3134:
3135: x_loading_status := 'CN_INCENTIVE_TYPE_MUST_BE';
3136: RAISE fnd_api.g_exc_error;
3147: THEN
3148: x_return_status := fnd_api.g_ret_sts_unexp_error;
3149: x_loading_status := 'UNEXPECTED_ERR';
3150:
3151: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3152: THEN
3153: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3154: END IF;
3155: END chk_external_quota_pe;
3149: x_loading_status := 'UNEXPECTED_ERR';
3150:
3151: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3152: THEN
3153: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3154: END IF;
3155: END chk_external_quota_pe;
3156:
3157: -- ----------------------------------------------------------------------------+
3206: END IF;
3207:
3208: IF (p_pe_rec.incentive_type_code NOT IN ('MANUAL'))
3209: THEN
3210: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3211: THEN
3212: fnd_message.set_name ('CN', 'CN_INCENTIVE_TYPE_MUST_BE');
3213: fnd_message.set_token ('OBJ_VALUE', 'Manual');
3214: fnd_message.set_token ('PLAN_TYPE', cn_api.get_lkup_meaning (p_pe_rec.quota_type_code, 'QUOTA_TYPE'));
3211: THEN
3212: fnd_message.set_name ('CN', 'CN_INCENTIVE_TYPE_MUST_BE');
3213: fnd_message.set_token ('OBJ_VALUE', 'Manual');
3214: fnd_message.set_token ('PLAN_TYPE', cn_api.get_lkup_meaning (p_pe_rec.quota_type_code, 'QUOTA_TYPE'));
3215: fnd_msg_pub.ADD;
3216: END IF;
3217:
3218: x_loading_status := 'CN_INCENTIVE_TYPE_MUST_BE';
3219: RAISE fnd_api.g_exc_error;
3230: THEN
3231: x_return_status := fnd_api.g_ret_sts_unexp_error;
3232: x_loading_status := 'UNEXPECTED_ERR';
3233:
3234: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3235: THEN
3236: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3237: END IF;
3238: END chk_other_quota_pe;
3232: x_loading_status := 'UNEXPECTED_ERR';
3233:
3234: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3235: THEN
3236: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3237: END IF;
3238: END chk_other_quota_pe;
3239:
3240: --| -----------------------------------------------------------------------+
3256: IF (p_date_para = fnd_api.g_miss_date)
3257: THEN
3258: -- Error, check the msg level and add an error message to the
3259: -- API message list
3260: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3261: THEN
3262: fnd_message.set_name ('CN', 'CN_MISS_PARAMETER');
3263: fnd_message.set_token ('PARA_NAME', p_para_name);
3264: fnd_msg_pub.ADD;
3260: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3261: THEN
3262: fnd_message.set_name ('CN', 'CN_MISS_PARAMETER');
3263: fnd_message.set_token ('PARA_NAME', p_para_name);
3264: fnd_msg_pub.ADD;
3265: END IF;
3266:
3267: x_loading_status := 'CN_MISS_PARAMETER';
3268: l_return_code := fnd_api.g_true;
3290: IF (p_date_para IS NULL)
3291: THEN
3292: -- Error, check the msg level and add an error message to the
3293: -- API message list
3294: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3295: THEN
3296: fnd_message.set_name ('CN', 'CN_CANNOT_NULL');
3297: fnd_message.set_token ('OBJ_NAME', p_obj_name);
3298: fnd_msg_pub.ADD;
3294: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3295: THEN
3296: fnd_message.set_name ('CN', 'CN_CANNOT_NULL');
3297: fnd_message.set_token ('OBJ_NAME', p_obj_name);
3298: fnd_msg_pub.ADD;
3299: END IF;
3300:
3301: x_loading_status := 'CN_CANNOT_NULL';
3302: l_return_code := fnd_api.g_true;
3349: )
3350: THEN
3351: IF UPPER (p_object_type) = 'UPLIFT'
3352: THEN
3353: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3354: THEN
3355: fnd_message.set_name ('CN', 'CN_UPLIFT_DATE_EFFECTIVE');
3356: fnd_msg_pub.ADD;
3357: END IF;
3352: THEN
3353: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3354: THEN
3355: fnd_message.set_name ('CN', 'CN_UPLIFT_DATE_EFFECTIVE');
3356: fnd_msg_pub.ADD;
3357: END IF;
3358:
3359: x_loading_status := 'UPLIFT_DATE_EFFECTIVE';
3360: RAISE fnd_api.g_exc_error;
3358:
3359: x_loading_status := 'UPLIFT_DATE_EFFECTIVE';
3360: RAISE fnd_api.g_exc_error;
3361: ELSE
3362: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3363: THEN
3364: fnd_message.set_name ('CN', 'CN_RATE_DATE_EFFECTIVE');
3365: fnd_msg_pub.ADD;
3366: END IF;
3361: ELSE
3362: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3363: THEN
3364: fnd_message.set_name ('CN', 'CN_RATE_DATE_EFFECTIVE');
3365: fnd_msg_pub.ADD;
3366: END IF;
3367:
3368: x_loading_status := 'RATE_DATE_EFFECTIVE';
3369: RAISE fnd_api.g_exc_error;
3382: THEN
3383: x_return_status := fnd_api.g_ret_sts_unexp_error;
3384: x_loading_status := 'UNEXPECTED_ERR';
3385:
3386: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3387: THEN
3388: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3389: END IF;
3390: END chk_date_effective;
3384: x_loading_status := 'UNEXPECTED_ERR';
3385:
3386: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3387: THEN
3388: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3389: END IF;
3390: END chk_date_effective;
3391:
3392: --| -----------------------------------------------------------------------+
3699: WHERE calc_formula_id = p_calc_formula_id;
3700:
3701: IF l_temp_start_date IS NOT NULL AND ((p_start_date < l_temp_start_date) OR (NVL (p_end_date, l_null_date) > l_temp_end_date))
3702: THEN
3703: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3704: THEN
3705: fnd_message.set_name ('CN', 'CN_FRT_DT_NOT_WITHIN_QUOTA');
3706: fnd_msg_pub.ADD;
3707: END IF;
3702: THEN
3703: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3704: THEN
3705: fnd_message.set_name ('CN', 'CN_FRT_DT_NOT_WITHIN_QUOTA');
3706: fnd_msg_pub.ADD;
3707: END IF;
3708:
3709: x_loading_status := 'RT_DATE_NOT_WITHIN_QUOTA';
3710: RAISE fnd_api.g_exc_error;
3722: THEN
3723: x_return_status := fnd_api.g_ret_sts_unexp_error;
3724: x_loading_status := 'UNEXPECTED_ERR';
3725:
3726: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3727: THEN
3728: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3729: END IF;
3730: END chk_formula_rate_date;
3724: x_loading_status := 'UNEXPECTED_ERR';
3725:
3726: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3727: THEN
3728: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3729: END IF;
3730: END chk_formula_rate_date;
3731:
3732: --| -----------------------------------------------------------------------+
3781: FOR l_rec IN comp_plan_curs
3782: LOOP
3783: IF (NOT cn_api.date_range_overlap (l_rec.start_date, l_rec.end_date, p_start_date, p_end_date))
3784: THEN
3785: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3786: THEN
3787: fnd_message.set_name ('CN', 'CN_CP_DT_NOT_WITHIN_QUOTA');
3788: fnd_msg_pub.ADD;
3789: END IF;
3784: THEN
3785: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3786: THEN
3787: fnd_message.set_name ('CN', 'CN_CP_DT_NOT_WITHIN_QUOTA');
3788: fnd_msg_pub.ADD;
3789: END IF;
3790:
3791: x_loading_status := 'CP_DATE_NOT_WITHIN_QUOTA';
3792: RAISE fnd_api.g_exc_error;
3805: THEN
3806: x_return_status := fnd_api.g_ret_sts_unexp_error;
3807: x_loading_status := 'UNEXPECTED_ERR';
3808:
3809: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3810: THEN
3811: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3812: END IF;
3813: END chk_comp_plan_date;
3807: x_loading_status := 'UNEXPECTED_ERR';
3808:
3809: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3810: THEN
3811: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3812: END IF;
3813: END chk_comp_plan_date;
3814:
3815: --| -----------------------------------------------------------------------+
3853: CLOSE uplift_curs;
3854:
3855: IF l_record_found > 0
3856: THEN
3857: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3858: THEN
3859: fnd_message.set_name ('CN', 'CN_UPLIFT_DT_NOT_WIN_QUOTA');
3860: fnd_msg_pub.ADD;
3861: END IF;
3856: THEN
3857: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3858: THEN
3859: fnd_message.set_name ('CN', 'CN_UPLIFT_DT_NOT_WIN_QUOTA');
3860: fnd_msg_pub.ADD;
3861: END IF;
3862:
3863: x_loading_status := 'UPLIFT_DATE_NOT_WIN_QUOTA';
3864: RAISE fnd_api.g_exc_error;
3876: THEN
3877: x_return_status := fnd_api.g_ret_sts_unexp_error;
3878: x_loading_status := 'UNEXPECTED_ERR';
3879:
3880: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3881: THEN
3882: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3883: END IF;
3884: END chk_uplift_date;
3878: x_loading_status := 'UNEXPECTED_ERR';
3879:
3880: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3881: THEN
3882: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3883: END IF;
3884: END chk_uplift_date;
3885:
3886: --| -----------------------------------------------------------------------+
3922: CLOSE rate_quota_curs;
3923:
3924: IF l_record_found > 0
3925: THEN
3926: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3927: THEN
3928: fnd_message.set_name ('CN', 'CN_RQ_DT_NOT_WIN_QUOTA');
3929: fnd_msg_pub.ADD;
3930: END IF;
3925: THEN
3926: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3927: THEN
3928: fnd_message.set_name ('CN', 'CN_RQ_DT_NOT_WIN_QUOTA');
3929: fnd_msg_pub.ADD;
3930: END IF;
3931:
3932: x_loading_status := 'RQ_DATE_NOT_WIN_QUOTA';
3933: RAISE fnd_api.g_exc_error;
3945: THEN
3946: x_return_status := fnd_api.g_ret_sts_unexp_error;
3947: x_loading_status := 'UNEXPECTED_ERR';
3948:
3949: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3950: THEN
3951: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3952: END IF;
3953: END chk_rate_quota_date;
3947: x_loading_status := 'UNEXPECTED_ERR';
3948:
3949: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3950: THEN
3951: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3952: END IF;
3953: END chk_rate_quota_date;
3954: END cn_chk_plan_element_pkg;