209: WHERE name = p_ledger_name;
210:
211: BEGIN
212:
213: IF p_fund_rec.fund_type <> fnd_api.g_miss_char AND p_fund_rec.fund_type IS NOT NULL
214: AND p_fund_rec.fund_type = 'QUOTA' THEN
215: RETURN;
216: END IF;
217:
218: IF p_mode = 'CREATE' THEN
219: p_fund_rec.fund_id := NULL;
220: ELSE
221: --if both fund id and fund number are null, then raise exception
222: IF (p_fund_rec.fund_id = fnd_api.g_miss_num OR p_fund_rec.fund_id IS NULL) AND
223: (p_fund_rec.fund_number = fnd_api.g_miss_char OR p_fund_rec.fund_number IS NULL) THEN
224:
225: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
226: fnd_message.set_name('OZF', 'OZF_NO_FUND_ID_NUM');
219: p_fund_rec.fund_id := NULL;
220: ELSE
221: --if both fund id and fund number are null, then raise exception
222: IF (p_fund_rec.fund_id = fnd_api.g_miss_num OR p_fund_rec.fund_id IS NULL) AND
223: (p_fund_rec.fund_number = fnd_api.g_miss_char OR p_fund_rec.fund_number IS NULL) THEN
224:
225: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
226: fnd_message.set_name('OZF', 'OZF_NO_FUND_ID_NUM');
227: fnd_msg_pub.add;
225: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
226: fnd_message.set_name('OZF', 'OZF_NO_FUND_ID_NUM');
227: fnd_msg_pub.add;
228: END IF;
229: x_return_status := fnd_api.g_ret_sts_error;
230: RETURN;
231:
232: ELSE
233: --if fund id is not null
230: RETURN;
231:
232: ELSE
233: --if fund id is not null
234: IF p_fund_rec.fund_id <> fnd_api.g_miss_num AND p_fund_rec.fund_id IS NOT NULL THEN
235:
236: --check if the input fund_id is valid
237: OPEN c_fund_exists (p_fund_rec.fund_id);
238: FETCH c_fund_exists INTO l_fund_exists;
242: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
243: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_ID');
244: fnd_msg_pub.add;
245: END IF;
246: x_return_status := fnd_api.g_ret_sts_error;
247: RETURN;
248: END IF;
249:
250: --if fund number is not null
258: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
259: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_NUM');
260: fnd_msg_pub.add;
261: END IF;
262: x_return_status := fnd_api.g_ret_sts_error;
263: RETURN;
264: END IF;
265: END IF;
266: END IF;
266: END IF;
267: END IF;
268:
269: --if fund name is null, then raise exception
270: IF p_fund_rec.short_name = fnd_api.g_miss_char OR p_fund_rec.short_name IS NULL THEN
271: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
272: fnd_message.set_name('OZF', 'OZF_NO_FUND_NAME');
273: fnd_msg_pub.add;
274: END IF;
271: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
272: fnd_message.set_name('OZF', 'OZF_NO_FUND_NAME');
273: fnd_msg_pub.add;
274: END IF;
275: x_return_status := fnd_api.g_ret_sts_error;
276: RETURN;
277: END IF;
278:
279: --if fund type is null, then raise exception
276: RETURN;
277: END IF;
278:
279: --if fund type is null, then raise exception
280: IF p_fund_rec.fund_type = fnd_api.g_miss_char OR p_fund_rec.fund_type IS NULL THEN
281: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
282: fnd_message.set_name('OZF', 'OZF_NO_FUND_TYPE');
283: fnd_msg_pub.add;
284: END IF;
281: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
282: fnd_message.set_name('OZF', 'OZF_NO_FUND_TYPE');
283: fnd_msg_pub.add;
284: END IF;
285: x_return_status := fnd_api.g_ret_sts_error;
286: RETURN;
287: ELSE
288: IF p_fund_rec.fund_type NOT IN ('FIXED', 'FULLY_ACCRUED') THEN
289: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
289: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
290: fnd_message.set_name('OZF', 'OZF_INVALID_FUND_TYPE');
291: fnd_msg_pub.add;
292: END IF;
293: x_return_status := fnd_api.g_ret_sts_error;
294: RETURN;
295: END IF;
296: END IF;
297:
296: END IF;
297:
298: --28-AUG-08 kdass - bug 7343771: accept custom setup passed to this API
299: IF p_mode = 'CREATE' THEN
300: IF (p_fund_rec.custom_setup_id = fnd_api.g_miss_num OR p_fund_rec.custom_setup_id IS NULL) THEN
301:
302: OPEN c_cust_setup (p_fund_rec.fund_type);
303: FETCH c_cust_setup INTO p_fund_rec.custom_setup_id;
304: CLOSE c_cust_setup;
313: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
314: fnd_message.set_name('OZF', 'OZF_INVALID_SETUP_ID');
315: fnd_msg_pub.add;
316: END IF;
317: x_return_status := fnd_api.g_ret_sts_error;
318: RETURN;
319: END IF;
320: END IF;
321: END IF;
319: END IF;
320: END IF;
321: END IF;
322:
323: IF p_fund_rec.parent_fund_id <> fnd_api.g_miss_num AND p_fund_rec.parent_fund_id IS NOT NULL THEN
324: --check if the input parent fund id is valid
325: OPEN c_par_fund_exists (p_fund_rec.parent_fund_id);
326: FETCH c_par_fund_exists INTO l_par_fund_exists;
327: CLOSE c_par_fund_exists;
330: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
331: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_ID');
332: fnd_msg_pub.add;
333: END IF;
334: x_return_status := fnd_api.g_ret_sts_error;
335: RETURN;
336: END IF;
337: END IF;
338:
335: RETURN;
336: END IF;
337: END IF;
338:
339: IF (p_fund_rec.parent_fund_name <> fnd_api.g_miss_char AND p_fund_rec.parent_fund_name IS NOT NULL) AND
340: (p_fund_rec.parent_fund_id <> fnd_api.g_miss_num AND p_fund_rec.parent_fund_id IS NOT NULL) THEN
341:
342: --check if the input parent fund id is valid
343: OPEN c_par_fund_id_exists (p_fund_rec.parent_fund_id, p_fund_rec.parent_fund_name);
336: END IF;
337: END IF;
338:
339: IF (p_fund_rec.parent_fund_name <> fnd_api.g_miss_char AND p_fund_rec.parent_fund_name IS NOT NULL) AND
340: (p_fund_rec.parent_fund_id <> fnd_api.g_miss_num AND p_fund_rec.parent_fund_id IS NOT NULL) THEN
341:
342: --check if the input parent fund id is valid
343: OPEN c_par_fund_id_exists (p_fund_rec.parent_fund_id, p_fund_rec.parent_fund_name);
344: FETCH c_par_fund_id_exists INTO l_par_fund_exists;
348: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
349: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_ID_NAME');
350: fnd_msg_pub.add;
351: END IF;
352: x_return_status := fnd_api.g_ret_sts_error;
353: RETURN;
354: END IF;
355:
356: ELSIF p_fund_rec.parent_fund_id <> fnd_api.g_miss_num AND p_fund_rec.parent_fund_id IS NOT NULL THEN
352: x_return_status := fnd_api.g_ret_sts_error;
353: RETURN;
354: END IF;
355:
356: ELSIF p_fund_rec.parent_fund_id <> fnd_api.g_miss_num AND p_fund_rec.parent_fund_id IS NOT NULL THEN
357:
358: --check if the input parent fund id is valid
359: OPEN c_par_fund_exists (p_fund_rec.parent_fund_id);
360: FETCH c_par_fund_exists INTO l_par_fund_exists;
364: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
365: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_ID');
366: fnd_msg_pub.add;
367: END IF;
368: x_return_status := fnd_api.g_ret_sts_error;
369: RETURN;
370: END IF;
371:
372: ELSIF p_fund_rec.parent_fund_name <> fnd_api.g_miss_char AND p_fund_rec.parent_fund_name IS NOT NULL THEN
368: x_return_status := fnd_api.g_ret_sts_error;
369: RETURN;
370: END IF;
371:
372: ELSIF p_fund_rec.parent_fund_name <> fnd_api.g_miss_char AND p_fund_rec.parent_fund_name IS NOT NULL THEN
373:
374: --check if the input parent fund name is valid
375: OPEN c_par_fund_name_exists (p_fund_rec.parent_fund_name);
376: FETCH c_par_fund_name_exists INTO p_fund_rec.parent_fund_id;
380: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
381: fnd_message.set_name('OZF', 'OZF_INVALID_PAR_FUND_NAME');
382: fnd_msg_pub.add;
383: END IF;
384: x_return_status := fnd_api.g_ret_sts_error;
385: RETURN;
386: END IF;
387: END IF;
388:
385: RETURN;
386: END IF;
387: END IF;
388:
389: IF (p_fund_rec.category_name = fnd_api.g_miss_char OR p_fund_rec.category_name IS NULL) AND
390: (p_fund_rec.category_id = fnd_api.g_miss_num OR p_fund_rec.category_id IS NULL) THEN
391:
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
393: fnd_message.set_name('OZF', 'OZF_NO_CAT_ID_NAME');
386: END IF;
387: END IF;
388:
389: IF (p_fund_rec.category_name = fnd_api.g_miss_char OR p_fund_rec.category_name IS NULL) AND
390: (p_fund_rec.category_id = fnd_api.g_miss_num OR p_fund_rec.category_id IS NULL) THEN
391:
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
393: fnd_message.set_name('OZF', 'OZF_NO_CAT_ID_NAME');
394: fnd_msg_pub.add;
392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
393: fnd_message.set_name('OZF', 'OZF_NO_CAT_ID_NAME');
394: fnd_msg_pub.add;
395: END IF;
396: x_return_status := fnd_api.g_ret_sts_error;
397: RETURN;
398:
399: ELSIF (p_fund_rec.category_name <> fnd_api.g_miss_char AND p_fund_rec.category_name IS NOT NULL) AND
400: (p_fund_rec.category_id <> fnd_api.g_miss_num AND p_fund_rec.category_id IS NOT NULL) THEN
395: END IF;
396: x_return_status := fnd_api.g_ret_sts_error;
397: RETURN;
398:
399: ELSIF (p_fund_rec.category_name <> fnd_api.g_miss_char AND p_fund_rec.category_name IS NOT NULL) AND
400: (p_fund_rec.category_id <> fnd_api.g_miss_num AND p_fund_rec.category_id IS NOT NULL) THEN
401:
402: --check if the input category id and name are valid
403: OPEN c_cat_exists (p_fund_rec.category_id, p_fund_rec.category_name);
396: x_return_status := fnd_api.g_ret_sts_error;
397: RETURN;
398:
399: ELSIF (p_fund_rec.category_name <> fnd_api.g_miss_char AND p_fund_rec.category_name IS NOT NULL) AND
400: (p_fund_rec.category_id <> fnd_api.g_miss_num AND p_fund_rec.category_id IS NOT NULL) THEN
401:
402: --check if the input category id and name are valid
403: OPEN c_cat_exists (p_fund_rec.category_id, p_fund_rec.category_name);
404: FETCH c_cat_exists INTO l_cat_exists;
408: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
409: fnd_message.set_name('OZF', 'OZF_INVALID_CAT_ID_NAME');
410: fnd_msg_pub.add;
411: END IF;
412: x_return_status := fnd_api.g_ret_sts_error;
413: RETURN;
414: END IF;
415:
416: ELSIF p_fund_rec.category_id <> fnd_api.g_miss_num AND p_fund_rec.category_id IS NOT NULL THEN
412: x_return_status := fnd_api.g_ret_sts_error;
413: RETURN;
414: END IF;
415:
416: ELSIF p_fund_rec.category_id <> fnd_api.g_miss_num AND p_fund_rec.category_id IS NOT NULL THEN
417:
418: --check if the input category id is valid
419: OPEN c_cat_id_exists (p_fund_rec.category_id);
420: FETCH c_cat_id_exists INTO l_cat_exists;
424: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
425: fnd_message.set_name('OZF', 'OZF_INVALID_CAT_ID');
426: fnd_msg_pub.add;
427: END IF;
428: x_return_status := fnd_api.g_ret_sts_error;
429: RETURN;
430: END IF;
431:
432: ELSIF p_fund_rec.category_name <> fnd_api.g_miss_char AND p_fund_rec.category_name IS NOT NULL THEN
428: x_return_status := fnd_api.g_ret_sts_error;
429: RETURN;
430: END IF;
431:
432: ELSIF p_fund_rec.category_name <> fnd_api.g_miss_char AND p_fund_rec.category_name IS NOT NULL THEN
433:
434: --check if the input parent category name is valid
435: OPEN c_cat_name_exists (p_fund_rec.category_name);
436: FETCH c_cat_name_exists INTO p_fund_rec.category_id;
440: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
441: fnd_message.set_name('OZF', 'OZF_INVALID_CAT_NAME');
442: fnd_msg_pub.add;
443: END IF;
444: x_return_status := fnd_api.g_ret_sts_error;
445: RETURN;
446: END IF;
447: END IF;
448:
448:
449: IF p_mode = 'CREATE' THEN
450: p_fund_rec.org_id := MO_UTILS.get_default_org_id;
451:
452: IF p_fund_rec.org_id = fnd_api.g_miss_num OR p_fund_rec.org_id IS NULL THEN
453: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
454: fnd_message.set_name('OZF', 'OZF_NO_DEFAULT_ORG_ID');
455: fnd_msg_pub.add;
456: END IF;
456: END IF;
457: END IF;
458: END IF;
459:
460: IF (p_fund_rec.business_unit <> fnd_api.g_miss_char AND p_fund_rec.business_unit IS NOT NULL) AND
461: (p_fund_rec.business_unit_id <> fnd_api.g_miss_num AND p_fund_rec.business_unit_id IS NOT NULL) THEN
462:
463: --check if the input business unit id and name are valid
464: OPEN c_bus_unit_exists (p_fund_rec.business_unit_id, p_fund_rec.business_unit, p_fund_rec.org_id);
457: END IF;
458: END IF;
459:
460: IF (p_fund_rec.business_unit <> fnd_api.g_miss_char AND p_fund_rec.business_unit IS NOT NULL) AND
461: (p_fund_rec.business_unit_id <> fnd_api.g_miss_num AND p_fund_rec.business_unit_id IS NOT NULL) THEN
462:
463: --check if the input business unit id and name are valid
464: OPEN c_bus_unit_exists (p_fund_rec.business_unit_id, p_fund_rec.business_unit, p_fund_rec.org_id);
465: FETCH c_bus_unit_exists INTO l_bus_unit_exists;
469: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
470: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID_NAME');
471: fnd_msg_pub.add;
472: END IF;
473: x_return_status := fnd_api.g_ret_sts_error;
474: RETURN;
475: END IF;
476:
477: ELSIF p_fund_rec.business_unit_id <> fnd_api.g_miss_num AND p_fund_rec.business_unit_id IS NOT NULL THEN
473: x_return_status := fnd_api.g_ret_sts_error;
474: RETURN;
475: END IF;
476:
477: ELSIF p_fund_rec.business_unit_id <> fnd_api.g_miss_num AND p_fund_rec.business_unit_id IS NOT NULL THEN
478:
479: --check if the input business_unit_id is valid
480: OPEN c_bus_id_exists (p_fund_rec.business_unit_id, p_fund_rec.org_id);
481: FETCH c_bus_id_exists INTO l_bus_unit_exists;
485: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
486: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID');
487: fnd_msg_pub.add;
488: END IF;
489: x_return_status := fnd_api.g_ret_sts_error;
490: RETURN;
491: END IF;
492:
493: ELSIF p_fund_rec.business_unit <> fnd_api.g_miss_char AND p_fund_rec.business_unit IS NOT NULL THEN
489: x_return_status := fnd_api.g_ret_sts_error;
490: RETURN;
491: END IF;
492:
493: ELSIF p_fund_rec.business_unit <> fnd_api.g_miss_char AND p_fund_rec.business_unit IS NOT NULL THEN
494:
495: --check if the input business unit name is valid
496: OPEN c_bus_name_exists (p_fund_rec.business_unit, p_fund_rec.org_id);
497: FETCH c_bus_name_exists INTO p_fund_rec.business_unit_id;
501: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
502: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT');
503: fnd_msg_pub.add;
504: END IF;
505: x_return_status := fnd_api.g_ret_sts_error;
506: RETURN;
507: END IF;
508: END IF;
509:
511: p_fund_rec.status_code := 'DRAFT';
512: END IF;
513:
514: --if status code is not null, then get the user status id
515: IF p_fund_rec.status_code <> fnd_api.g_miss_char AND p_fund_rec.status_code IS NOT NULL THEN
516: OPEN c_user_status_id (p_fund_rec.status_code);
517: FETCH c_user_status_id INTO p_fund_rec.user_status_id;
518: CLOSE c_user_status_id;
519: END IF;
518: CLOSE c_user_status_id;
519: END IF;
520:
521: --if currency code is null, then raise exception
522: IF p_fund_rec.currency_code_tc = fnd_api.g_miss_char OR p_fund_rec.currency_code_tc IS NULL THEN
523: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
524: fnd_message.set_name('OZF', 'OZF_NO_CURR_CODE');
525: fnd_msg_pub.add;
526: END IF;
523: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
524: fnd_message.set_name('OZF', 'OZF_NO_CURR_CODE');
525: fnd_msg_pub.add;
526: END IF;
527: x_return_status := fnd_api.g_ret_sts_error;
528: RETURN;
529: END IF;
530:
531: IF p_fund_rec.fund_type = 'FULLY_ACCRUED' THEN
529: END IF;
530:
531: IF p_fund_rec.fund_type = 'FULLY_ACCRUED' THEN
532:
533: IF p_fund_rec.accrual_basis = fnd_api.g_miss_char OR p_fund_rec.accrual_basis IS NULL THEN
534: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
535: fnd_message.set_name('OZF', 'OZF_NO_ACCR_BASIS');
536: fnd_msg_pub.add;
537: END IF;
534: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
535: fnd_message.set_name('OZF', 'OZF_NO_ACCR_BASIS');
536: fnd_msg_pub.add;
537: END IF;
538: x_return_status := fnd_api.g_ret_sts_error;
539: RETURN;
540: ELSE
541: IF p_fund_rec.accrual_basis NOT IN ('CUSTOMER', 'SALES') THEN
542: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
542: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
543: fnd_message.set_name('OZF', 'OZF_INVALID_ACCR_BASIS');
544: fnd_msg_pub.add;
545: END IF;
546: x_return_status := fnd_api.g_ret_sts_error;
547: RETURN;
548: END IF;
549: END IF;
550:
547: RETURN;
548: END IF;
549: END IF;
550:
551: IF p_fund_rec.accrual_phase = fnd_api.g_miss_char OR p_fund_rec.accrual_phase IS NULL THEN
552: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
553: fnd_message.set_name('OZF', 'OZF_NO_ACCR_PHASE');
554: fnd_msg_pub.add;
555: END IF;
552: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
553: fnd_message.set_name('OZF', 'OZF_NO_ACCR_PHASE');
554: fnd_msg_pub.add;
555: END IF;
556: x_return_status := fnd_api.g_ret_sts_error;
557: RETURN;
558: ELSE
559: IF p_fund_rec.accrual_phase NOT IN ('ACCRUAL', 'VOLUME') THEN
560: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
560: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
561: fnd_message.set_name('OZF', 'OZF_INVALID_ACCR_PHASE');
562: fnd_msg_pub.add;
563: END IF;
564: x_return_status := fnd_api.g_ret_sts_error;
565: RETURN;
566: END IF;
567: END IF;
568:
565: RETURN;
566: END IF;
567: END IF;
568:
569: IF p_fund_rec.accrual_discount_level = fnd_api.g_miss_char OR p_fund_rec.accrual_discount_level IS NULL THEN
570: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
571: fnd_message.set_name('OZF', 'OZF_NO_DISC_LEVEL');
572: fnd_msg_pub.add;
573: END IF;
570: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
571: fnd_message.set_name('OZF', 'OZF_NO_DISC_LEVEL');
572: fnd_msg_pub.add;
573: END IF;
574: x_return_status := fnd_api.g_ret_sts_error;
575: RETURN;
576: ELSE
577: IF p_fund_rec.accrual_discount_level NOT IN ('LINE', 'LINEGROUP') THEN
578: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
578: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
579: fnd_message.set_name('OZF', 'OZF_INVALID_DISC_LEVEL');
580: fnd_msg_pub.add;
581: END IF;
582: x_return_status := fnd_api.g_ret_sts_error;
583: RETURN;
584: END IF;
585: END IF;
586:
594: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
595: fnd_message.set_name('OZF', 'OZF_INVALID_LIAB_FLAG');
596: fnd_msg_pub.add;
597: END IF;
598: x_return_status := fnd_api.g_ret_sts_error;
599: RETURN;
600: END IF;
601:
602: END IF;
600: END IF;
601:
602: END IF;
603:
604: IF (p_fund_rec.threshold_id <> fnd_api.g_miss_num AND p_fund_rec.threshold_id IS NOT NULL) AND
605: (p_fund_rec.threshold_name <> fnd_api.g_miss_char AND p_fund_rec.threshold_name IS NOT NULL) THEN
606:
607: --check if the input threshold id and name are valid
608: OPEN c_thrh_exists (p_fund_rec.threshold_id, p_fund_rec.threshold_name);
601:
602: END IF;
603:
604: IF (p_fund_rec.threshold_id <> fnd_api.g_miss_num AND p_fund_rec.threshold_id IS NOT NULL) AND
605: (p_fund_rec.threshold_name <> fnd_api.g_miss_char AND p_fund_rec.threshold_name IS NOT NULL) THEN
606:
607: --check if the input threshold id and name are valid
608: OPEN c_thrh_exists (p_fund_rec.threshold_id, p_fund_rec.threshold_name);
609: FETCH c_thrh_exists INTO l_thrh_exists;
613: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
614: fnd_message.set_name('OZF', 'OZF_INVALID_BUS_UNIT_ID_NAME');
615: fnd_msg_pub.add;
616: END IF;
617: x_return_status := fnd_api.g_ret_sts_error;
618: RETURN;
619: END IF;
620:
621: ELSIF p_fund_rec.threshold_id <> fnd_api.g_miss_num AND p_fund_rec.threshold_id IS NOT NULL THEN
617: x_return_status := fnd_api.g_ret_sts_error;
618: RETURN;
619: END IF;
620:
621: ELSIF p_fund_rec.threshold_id <> fnd_api.g_miss_num AND p_fund_rec.threshold_id IS NOT NULL THEN
622:
623: --check if the input threshold id is valid
624: OPEN c_thrh_id_exists (p_fund_rec.threshold_id);
625: FETCH c_thrh_id_exists INTO l_thrh_exists;
629: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
630: fnd_message.set_name('OZF', 'OZF_INVALID_THRH_ID');
631: fnd_msg_pub.add;
632: END IF;
633: x_return_status := fnd_api.g_ret_sts_error;
634: RETURN;
635: END IF;
636:
637: ELSIF p_fund_rec.threshold_name <> fnd_api.g_miss_char AND p_fund_rec.threshold_name IS NOT NULL THEN
633: x_return_status := fnd_api.g_ret_sts_error;
634: RETURN;
635: END IF;
636:
637: ELSIF p_fund_rec.threshold_name <> fnd_api.g_miss_char AND p_fund_rec.threshold_name IS NOT NULL THEN
638:
639: --check if the input threshold name is valid
640: OPEN c_thrh_name_exists (p_fund_rec.threshold_name);
641: FETCH c_thrh_name_exists INTO p_fund_rec.threshold_id;
645: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
646: fnd_message.set_name('OZF', 'OZF_INVALID_THRH_NAME');
647: fnd_msg_pub.add;
648: END IF;
649: x_return_status := fnd_api.g_ret_sts_error;
650: RETURN;
651: END IF;
652: END IF;
653:
650: RETURN;
651: END IF;
652: END IF;
653:
654: IF (p_fund_rec.task_id <> fnd_api.g_miss_num AND p_fund_rec.task_id IS NOT NULL) AND
655: (p_fund_rec.task_name <> fnd_api.g_miss_char AND p_fund_rec.task_name IS NOT NULL) THEN
656:
657: --check if the input task id and name are valid
658: OPEN c_task_exists (p_fund_rec.task_id, p_fund_rec.task_name);
651: END IF;
652: END IF;
653:
654: IF (p_fund_rec.task_id <> fnd_api.g_miss_num AND p_fund_rec.task_id IS NOT NULL) AND
655: (p_fund_rec.task_name <> fnd_api.g_miss_char AND p_fund_rec.task_name IS NOT NULL) THEN
656:
657: --check if the input task id and name are valid
658: OPEN c_task_exists (p_fund_rec.task_id, p_fund_rec.task_name);
659: FETCH c_task_exists INTO l_task_exists;
663: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
664: fnd_message.set_name('OZF', 'OZF_INVALID_TASK_ID_NAME');
665: fnd_msg_pub.add;
666: END IF;
667: x_return_status := fnd_api.g_ret_sts_error;
668: RETURN;
669: END IF;
670:
671: ELSIF p_fund_rec.task_id <> fnd_api.g_miss_num AND p_fund_rec.task_id IS NOT NULL THEN
667: x_return_status := fnd_api.g_ret_sts_error;
668: RETURN;
669: END IF;
670:
671: ELSIF p_fund_rec.task_id <> fnd_api.g_miss_num AND p_fund_rec.task_id IS NOT NULL THEN
672:
673: --check if the input task id is valid
674: OPEN c_task_id_exists (p_fund_rec.task_id);
675: FETCH c_task_id_exists INTO l_task_exists;
679: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
680: fnd_message.set_name('OZF', 'OZF_INVALID_TASK_ID');
681: fnd_msg_pub.add;
682: END IF;
683: x_return_status := fnd_api.g_ret_sts_error;
684: RETURN;
685: END IF;
686:
687: ELSIF p_fund_rec.task_name <> fnd_api.g_miss_char AND p_fund_rec.task_name IS NOT NULL THEN
683: x_return_status := fnd_api.g_ret_sts_error;
684: RETURN;
685: END IF;
686:
687: ELSIF p_fund_rec.task_name <> fnd_api.g_miss_char AND p_fund_rec.task_name IS NOT NULL THEN
688:
689: --check if the input task name is valid
690: OPEN c_task_name_exists (p_fund_rec.task_name);
691: FETCH c_task_name_exists INTO p_fund_rec.task_id;
695: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
696: fnd_message.set_name('OZF', 'OZF_INVALID_TASK_NAME');
697: fnd_msg_pub.add;
698: END IF;
699: x_return_status := fnd_api.g_ret_sts_error;
700: RETURN;
701: END IF;
702: END IF;
703:
700: RETURN;
701: END IF;
702: END IF;
703:
704: IF (p_fund_rec.ledger_id <> fnd_api.g_miss_num AND p_fund_rec.ledger_id IS NOT NULL) AND
705: (p_fund_rec.ledger_name <> fnd_api.g_miss_char AND p_fund_rec.ledger_name IS NOT NULL) THEN
706:
707: --check if the input ledger id and name are valid
708: OPEN c_ledger_exists (p_fund_rec.ledger_id, p_fund_rec.ledger_name);
701: END IF;
702: END IF;
703:
704: IF (p_fund_rec.ledger_id <> fnd_api.g_miss_num AND p_fund_rec.ledger_id IS NOT NULL) AND
705: (p_fund_rec.ledger_name <> fnd_api.g_miss_char AND p_fund_rec.ledger_name IS NOT NULL) THEN
706:
707: --check if the input ledger id and name are valid
708: OPEN c_ledger_exists (p_fund_rec.ledger_id, p_fund_rec.ledger_name);
709: FETCH c_ledger_exists INTO l_ledger_exists;
713: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
714: fnd_message.set_name('OZF', 'OZF_INVALID_LEDGER_ID_NAME');
715: fnd_msg_pub.add;
716: END IF;
717: x_return_status := fnd_api.g_ret_sts_error;
718: RETURN;
719: END IF;
720:
721: ELSIF p_fund_rec.ledger_id <> fnd_api.g_miss_num AND p_fund_rec.ledger_id IS NOT NULL THEN
717: x_return_status := fnd_api.g_ret_sts_error;
718: RETURN;
719: END IF;
720:
721: ELSIF p_fund_rec.ledger_id <> fnd_api.g_miss_num AND p_fund_rec.ledger_id IS NOT NULL THEN
722:
723: --check if the input ledger id is valid
724: OPEN c_ledger_id_exists (p_fund_rec.ledger_id);
725: FETCH c_ledger_id_exists INTO l_ledger_exists;
729: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
730: fnd_message.set_name('OZF', 'OZF_INVALID_LEDGER_ID');
731: fnd_msg_pub.add;
732: END IF;
733: x_return_status := fnd_api.g_ret_sts_error;
734: RETURN;
735: END IF;
736:
737: ELSIF p_fund_rec.ledger_name <> fnd_api.g_miss_char AND p_fund_rec.ledger_name IS NOT NULL THEN
733: x_return_status := fnd_api.g_ret_sts_error;
734: RETURN;
735: END IF;
736:
737: ELSIF p_fund_rec.ledger_name <> fnd_api.g_miss_char AND p_fund_rec.ledger_name IS NOT NULL THEN
738:
739: --check if the input ledger name is valid
740: OPEN c_ledger_name_exists (p_fund_rec.ledger_name);
741: FETCH c_ledger_name_exists INTO p_fund_rec.ledger_id;
745: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
746: fnd_message.set_name('OZF', 'OZF_INVALID_LEDGER_NAME');
747: fnd_msg_pub.add;
748: END IF;
749: x_return_status := fnd_api.g_ret_sts_error;
750: RETURN;
751: END IF;
752: END IF;
753:
765: -- x_fund_id: return the fund_id of the new fund
766: ---------------------------------------------------------------------
767: PROCEDURE Create_fund(
768: p_api_version IN NUMBER
769: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
770: ,p_commit IN VARCHAR2 := fnd_api.g_false
771: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
772: ,x_return_status OUT NOCOPY VARCHAR2
773: ,x_msg_count OUT NOCOPY NUMBER
766: ---------------------------------------------------------------------
767: PROCEDURE Create_fund(
768: p_api_version IN NUMBER
769: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
770: ,p_commit IN VARCHAR2 := fnd_api.g_false
771: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
772: ,x_return_status OUT NOCOPY VARCHAR2
773: ,x_msg_count OUT NOCOPY NUMBER
774: ,x_msg_data OUT NOCOPY VARCHAR2
767: PROCEDURE Create_fund(
768: p_api_version IN NUMBER
769: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
770: ,p_commit IN VARCHAR2 := fnd_api.g_false
771: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
772: ,x_return_status OUT NOCOPY VARCHAR2
773: ,x_msg_count OUT NOCOPY NUMBER
774: ,x_msg_data OUT NOCOPY VARCHAR2
775: ,p_fund_rec IN fund_rec_type
818: -- x_fund_id: return the fund_id of the new fund
819: ---------------------------------------------------------------------
820: PROCEDURE Create_fund(
821: p_api_version IN NUMBER
822: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
823: ,p_commit IN VARCHAR2 := fnd_api.g_false
824: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
825: ,x_return_status OUT NOCOPY VARCHAR2
826: ,x_msg_count OUT NOCOPY NUMBER
819: ---------------------------------------------------------------------
820: PROCEDURE Create_fund(
821: p_api_version IN NUMBER
822: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
823: ,p_commit IN VARCHAR2 := fnd_api.g_false
824: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
825: ,x_return_status OUT NOCOPY VARCHAR2
826: ,x_msg_count OUT NOCOPY NUMBER
827: ,x_msg_data OUT NOCOPY VARCHAR2
820: PROCEDURE Create_fund(
821: p_api_version IN NUMBER
822: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
823: ,p_commit IN VARCHAR2 := fnd_api.g_false
824: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
825: ,x_return_status OUT NOCOPY VARCHAR2
826: ,x_msg_count OUT NOCOPY NUMBER
827: ,x_msg_data OUT NOCOPY VARCHAR2
828: ,p_fund_rec IN fund_rec_type
863: validate_fund_items(p_fund_rec => l_fund_rec
864: ,p_mode => l_mode
865: ,x_return_status => x_return_status);
866:
867: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
868: RAISE fnd_api.g_exc_unexpected_error;
869: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
870: RAISE fnd_api.g_exc_error;
871: END IF;
864: ,p_mode => l_mode
865: ,x_return_status => x_return_status);
866:
867: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
868: RAISE fnd_api.g_exc_unexpected_error;
869: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
870: RAISE fnd_api.g_exc_error;
871: END IF;
872:
865: ,x_return_status => x_return_status);
866:
867: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
868: RAISE fnd_api.g_exc_unexpected_error;
869: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
870: RAISE fnd_api.g_exc_error;
871: END IF;
872:
873: l_pvt_fund_rec.fund_id := l_fund_rec.fund_id;
866:
867: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
868: RAISE fnd_api.g_exc_unexpected_error;
869: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
870: RAISE fnd_api.g_exc_error;
871: END IF;
872:
873: l_pvt_fund_rec.fund_id := l_fund_rec.fund_id;
874: l_pvt_fund_rec.fund_number := l_fund_rec.fund_number;
975: END IF;
976:
977: END IF;
978:
979: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
980: RAISE fnd_api.g_exc_unexpected_error;
981: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
982: RAISE fnd_api.g_exc_error;
983: END IF;
976:
977: END IF;
978:
979: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
980: RAISE fnd_api.g_exc_unexpected_error;
981: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
982: RAISE fnd_api.g_exc_error;
983: END IF;
984:
977: END IF;
978:
979: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
980: RAISE fnd_api.g_exc_unexpected_error;
981: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
982: RAISE fnd_api.g_exc_error;
983: END IF;
984:
985: FND_MSG_PUB.Count_And_Get (
978:
979: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
980: RAISE fnd_api.g_exc_unexpected_error;
981: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
982: RAISE fnd_api.g_exc_error;
983: END IF;
984:
985: FND_MSG_PUB.Count_And_Get (
986: p_encoded => FND_API.G_FALSE,
982: RAISE fnd_api.g_exc_error;
983: END IF;
984:
985: FND_MSG_PUB.Count_And_Get (
986: p_encoded => FND_API.G_FALSE,
987: p_count => x_msg_count,
988: p_data => x_msg_data
989: );
990:
988: p_data => x_msg_data
989: );
990:
991: EXCEPTION
992: WHEN FND_API.G_EXC_ERROR THEN
993: ROLLBACK TO Create_Fund_PUB;
994: x_return_status := FND_API.G_RET_STS_ERROR;
995: -- Standard call to get message count and if count=1, get the message
996: FND_MSG_PUB.Count_And_Get (
990:
991: EXCEPTION
992: WHEN FND_API.G_EXC_ERROR THEN
993: ROLLBACK TO Create_Fund_PUB;
994: x_return_status := FND_API.G_RET_STS_ERROR;
995: -- Standard call to get message count and if count=1, get the message
996: FND_MSG_PUB.Count_And_Get (
997: p_encoded => FND_API.G_FALSE,
998: p_count => x_msg_count,
993: ROLLBACK TO Create_Fund_PUB;
994: x_return_status := FND_API.G_RET_STS_ERROR;
995: -- Standard call to get message count and if count=1, get the message
996: FND_MSG_PUB.Count_And_Get (
997: p_encoded => FND_API.G_FALSE,
998: p_count => x_msg_count,
999: p_data => x_msg_data
1000: );
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
997: p_encoded => FND_API.G_FALSE,
998: p_count => x_msg_count,
999: p_data => x_msg_data
1000: );
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: ROLLBACK TO Create_Fund_PUB;
1003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1004: -- Standard call to get message count and if count=1, get the message
1005: FND_MSG_PUB.Count_And_Get (
999: p_data => x_msg_data
1000: );
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: ROLLBACK TO Create_Fund_PUB;
1003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1004: -- Standard call to get message count and if count=1, get the message
1005: FND_MSG_PUB.Count_And_Get (
1006: p_encoded => FND_API.G_FALSE,
1007: p_count => x_msg_count,
1002: ROLLBACK TO Create_Fund_PUB;
1003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1004: -- Standard call to get message count and if count=1, get the message
1005: FND_MSG_PUB.Count_And_Get (
1006: p_encoded => FND_API.G_FALSE,
1007: p_count => x_msg_count,
1008: p_data => x_msg_data
1009: );
1010: WHEN OTHERS THEN
1008: p_data => x_msg_data
1009: );
1010: WHEN OTHERS THEN
1011: ROLLBACK TO Create_Fund_PUB;
1012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1013: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1014: THEN
1015: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1016: END IF;
1015: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1016: END IF;
1017: -- Standard call to get message count and if count=1, get the message
1018: FND_MSG_PUB.Count_And_Get (
1019: p_encoded => FND_API.G_FALSE,
1020: p_count => x_msg_count,
1021: p_data => x_msg_data
1022: );
1023: END Create_Fund;
1037: --------------------------------------------------------------------
1038:
1039: PROCEDURE Delete_Fund(
1040: p_api_version IN NUMBER
1041: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1042: ,p_commit IN VARCHAR2 := FND_API.g_false
1043: ,x_return_status OUT NOCOPY VARCHAR2
1044: ,x_msg_count OUT NOCOPY NUMBER
1045: ,x_msg_data OUT NOCOPY VARCHAR2
1038:
1039: PROCEDURE Delete_Fund(
1040: p_api_version IN NUMBER
1041: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1042: ,p_commit IN VARCHAR2 := FND_API.g_false
1043: ,x_return_status OUT NOCOPY VARCHAR2
1044: ,x_msg_count OUT NOCOPY NUMBER
1045: ,x_msg_data OUT NOCOPY VARCHAR2
1046: ,p_fund_id IN NUMBER
1067: ,x_msg_count => l_msg_count
1068: ,x_msg_data => l_msg_data
1069: );
1070:
1071: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1072: RAISE fnd_api.g_exc_unexpected_error;
1073: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1074: RAISE fnd_api.g_exc_error;
1075: END IF;
1068: ,x_msg_data => l_msg_data
1069: );
1070:
1071: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1072: RAISE fnd_api.g_exc_unexpected_error;
1073: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1074: RAISE fnd_api.g_exc_error;
1075: END IF;
1076:
1069: );
1070:
1071: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1072: RAISE fnd_api.g_exc_unexpected_error;
1073: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1074: RAISE fnd_api.g_exc_error;
1075: END IF;
1076:
1077: FND_MSG_PUB.Count_And_Get(
1070:
1071: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1072: RAISE fnd_api.g_exc_unexpected_error;
1073: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1074: RAISE fnd_api.g_exc_error;
1075: END IF;
1076:
1077: FND_MSG_PUB.Count_And_Get(
1078: p_encoded => FND_API.G_FALSE,
1074: RAISE fnd_api.g_exc_error;
1075: END IF;
1076:
1077: FND_MSG_PUB.Count_And_Get(
1078: p_encoded => FND_API.G_FALSE,
1079: p_count => x_msg_count,
1080: p_data => x_msg_data
1081: );
1082:
1080: p_data => x_msg_data
1081: );
1082:
1083: EXCEPTION
1084: WHEN FND_API.G_EXC_ERROR THEN
1085: ROLLBACK TO Delete_Fund_PUB;
1086: x_return_status := FND_API.G_RET_STS_ERROR;
1087: -- Standard call to get message count and if count=1, get the message
1088: FND_MSG_PUB.Count_And_Get (
1082:
1083: EXCEPTION
1084: WHEN FND_API.G_EXC_ERROR THEN
1085: ROLLBACK TO Delete_Fund_PUB;
1086: x_return_status := FND_API.G_RET_STS_ERROR;
1087: -- Standard call to get message count and if count=1, get the message
1088: FND_MSG_PUB.Count_And_Get (
1089: p_encoded => FND_API.G_FALSE,
1090: p_count => x_msg_count,
1085: ROLLBACK TO Delete_Fund_PUB;
1086: x_return_status := FND_API.G_RET_STS_ERROR;
1087: -- Standard call to get message count and if count=1, get the message
1088: FND_MSG_PUB.Count_And_Get (
1089: p_encoded => FND_API.G_FALSE,
1090: p_count => x_msg_count,
1091: p_data => x_msg_data
1092: );
1093: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1089: p_encoded => FND_API.G_FALSE,
1090: p_count => x_msg_count,
1091: p_data => x_msg_data
1092: );
1093: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1094: ROLLBACK TO Delete_Fund_PUB;
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: -- Standard call to get message count and if count=1, get the message
1097: FND_MSG_PUB.Count_And_Get (
1091: p_data => x_msg_data
1092: );
1093: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1094: ROLLBACK TO Delete_Fund_PUB;
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: -- Standard call to get message count and if count=1, get the message
1097: FND_MSG_PUB.Count_And_Get (
1098: p_encoded => FND_API.G_FALSE,
1099: p_count => x_msg_count,
1094: ROLLBACK TO Delete_Fund_PUB;
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: -- Standard call to get message count and if count=1, get the message
1097: FND_MSG_PUB.Count_And_Get (
1098: p_encoded => FND_API.G_FALSE,
1099: p_count => x_msg_count,
1100: p_data => x_msg_data
1101: );
1102: WHEN OTHERS THEN
1100: p_data => x_msg_data
1101: );
1102: WHEN OTHERS THEN
1103: ROLLBACK TO Delete_Fund_PUB;
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1105: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1106: THEN
1107: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1108: END IF;
1107: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1108: END IF;
1109: -- Standard call to get message count and if count=1, get the message
1110: FND_MSG_PUB.Count_And_Get (
1111: p_encoded => FND_API.G_FALSE,
1112: p_count => x_msg_count,
1113: p_data => x_msg_data
1114: );
1115:
1129: -- : The mode should always be 'UPDATE' except when updating the earned or committed amount
1130: --
1131: -- NOTES
1132: -- 1. Raise exception if the object_version_number doesn't match.
1133: -- 2. If an attribute is passed in as FND_API.g_miss_char/num/date,
1134: -- that column won't be updated.
1135: ----------------------------------------------------------------------
1136: PROCEDURE Update_fund(
1137: p_api_version IN NUMBER
1134: -- that column won't be updated.
1135: ----------------------------------------------------------------------
1136: PROCEDURE Update_fund(
1137: p_api_version IN NUMBER
1138: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1139: ,p_commit IN VARCHAR2 := fnd_api.g_false
1140: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1141: ,x_return_status OUT NOCOPY VARCHAR2
1142: ,x_msg_count OUT NOCOPY NUMBER
1135: ----------------------------------------------------------------------
1136: PROCEDURE Update_fund(
1137: p_api_version IN NUMBER
1138: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1139: ,p_commit IN VARCHAR2 := fnd_api.g_false
1140: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1141: ,x_return_status OUT NOCOPY VARCHAR2
1142: ,x_msg_count OUT NOCOPY NUMBER
1143: ,x_msg_data OUT NOCOPY VARCHAR2
1136: PROCEDURE Update_fund(
1137: p_api_version IN NUMBER
1138: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1139: ,p_commit IN VARCHAR2 := fnd_api.g_false
1140: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1141: ,x_return_status OUT NOCOPY VARCHAR2
1142: ,x_msg_count OUT NOCOPY NUMBER
1143: ,x_msg_data OUT NOCOPY VARCHAR2
1144: ,p_fund_rec IN fund_rec_type
1261: validate_fund_items(p_fund_rec => l_fund_rec
1262: ,p_mode => l_mode
1263: ,x_return_status => x_return_status);
1264:
1265: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1266: RAISE fnd_api.g_exc_unexpected_error;
1267: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: END IF;
1262: ,p_mode => l_mode
1263: ,x_return_status => x_return_status);
1264:
1265: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1266: RAISE fnd_api.g_exc_unexpected_error;
1267: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: END IF;
1270:
1263: ,x_return_status => x_return_status);
1264:
1265: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1266: RAISE fnd_api.g_exc_unexpected_error;
1267: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: END IF;
1270:
1271: l_pvt_fund_rec.fund_id := l_fund_rec.fund_id;
1264:
1265: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1266: RAISE fnd_api.g_exc_unexpected_error;
1267: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1268: RAISE fnd_api.g_exc_error;
1269: END IF;
1270:
1271: l_pvt_fund_rec.fund_id := l_fund_rec.fund_id;
1272: l_pvt_fund_rec.fund_number := l_fund_rec.fund_number;
1310: ,p_fund_rec => l_pvt_fund_rec
1311: ,p_mode => jtf_plsql_api.g_update
1312: );
1313:
1314: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1317: RAISE fnd_api.g_exc_error;
1318: END IF;
1311: ,p_mode => jtf_plsql_api.g_update
1312: );
1313:
1314: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1317: RAISE fnd_api.g_exc_error;
1318: END IF;
1319:
1312: );
1313:
1314: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1317: RAISE fnd_api.g_exc_error;
1318: END IF;
1319:
1320: FND_MSG_PUB.Count_And_Get (
1313:
1314: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1315: RAISE fnd_api.g_exc_unexpected_error;
1316: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1317: RAISE fnd_api.g_exc_error;
1318: END IF;
1319:
1320: FND_MSG_PUB.Count_And_Get (
1321: p_encoded => FND_API.G_FALSE,
1317: RAISE fnd_api.g_exc_error;
1318: END IF;
1319:
1320: FND_MSG_PUB.Count_And_Get (
1321: p_encoded => FND_API.G_FALSE,
1322: p_count => x_msg_count,
1323: p_data => x_msg_data
1324: );
1325:
1323: p_data => x_msg_data
1324: );
1325:
1326: EXCEPTION
1327: WHEN FND_API.G_EXC_ERROR THEN
1328: ROLLBACK TO Update_Fund_PUB;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330: -- Standard call to get message count and if count=1, get the message
1331: FND_MSG_PUB.Count_And_Get (
1325:
1326: EXCEPTION
1327: WHEN FND_API.G_EXC_ERROR THEN
1328: ROLLBACK TO Update_Fund_PUB;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330: -- Standard call to get message count and if count=1, get the message
1331: FND_MSG_PUB.Count_And_Get (
1332: p_encoded => FND_API.G_FALSE,
1333: p_count => x_msg_count,
1328: ROLLBACK TO Update_Fund_PUB;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330: -- Standard call to get message count and if count=1, get the message
1331: FND_MSG_PUB.Count_And_Get (
1332: p_encoded => FND_API.G_FALSE,
1333: p_count => x_msg_count,
1334: p_data => x_msg_data
1335: );
1336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1332: p_encoded => FND_API.G_FALSE,
1333: p_count => x_msg_count,
1334: p_data => x_msg_data
1335: );
1336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1337: ROLLBACK TO Update_Fund_PUB;
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: -- Standard call to get message count and if count=1, get the message
1340: FND_MSG_PUB.Count_And_Get (
1334: p_data => x_msg_data
1335: );
1336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1337: ROLLBACK TO Update_Fund_PUB;
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: -- Standard call to get message count and if count=1, get the message
1340: FND_MSG_PUB.Count_And_Get (
1341: p_encoded => FND_API.G_FALSE,
1342: p_count => x_msg_count,
1337: ROLLBACK TO Update_Fund_PUB;
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: -- Standard call to get message count and if count=1, get the message
1340: FND_MSG_PUB.Count_And_Get (
1341: p_encoded => FND_API.G_FALSE,
1342: p_count => x_msg_count,
1343: p_data => x_msg_data
1344: );
1345: WHEN OTHERS THEN
1343: p_data => x_msg_data
1344: );
1345: WHEN OTHERS THEN
1346: ROLLBACK TO Update_Fund_PUB;
1347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1348: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1349: THEN
1350: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1351: END IF;
1350: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1351: END IF;
1352: -- Standard call to get message count and if count=1, get the message
1353: FND_MSG_PUB.Count_And_Get (
1354: p_encoded => FND_API.G_FALSE,
1355: p_count => x_msg_count,
1356: p_data => x_msg_data
1357: );
1358: END Update_Fund;
1463: IF p_mode = 'CREATE' THEN
1464: p_mks_rec.activity_market_segment_id := NULL;
1465: ELSE
1466: --if activity market segment id is null, then raise exception
1467: IF (p_mks_rec.activity_market_segment_id = fnd_api.g_miss_num OR p_mks_rec.activity_market_segment_id IS NULL) THEN
1468:
1469: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1470: fnd_message.set_name('OZF', 'OZF_NO_ACT_SEG_ID');
1471: fnd_msg_pub.add;
1469: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1470: fnd_message.set_name('OZF', 'OZF_NO_ACT_SEG_ID');
1471: fnd_msg_pub.add;
1472: END IF;
1473: x_return_status := fnd_api.g_ret_sts_error;
1474: RETURN;
1475: ELSE
1476:
1477: --check if the input activity_market_segment_id is valid
1483: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1484: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_SEG_ID');
1485: fnd_msg_pub.add;
1486: END IF;
1487: x_return_status := fnd_api.g_ret_sts_error;
1488: RETURN;
1489: END IF;
1490: END IF;
1491: END IF;
1489: END IF;
1490: END IF;
1491: END IF;
1492:
1493: IF p_mks_rec.act_market_segment_used_by_id = fnd_api.g_miss_num OR p_mks_rec.act_market_segment_used_by_id IS NULL THEN
1494: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1495: fnd_message.set_name('OZF', 'OZF_NO_MKT_SEG_USED_BY_ID');
1496: fnd_msg_pub.add;
1497: END IF;
1494: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1495: fnd_message.set_name('OZF', 'OZF_NO_MKT_SEG_USED_BY_ID');
1496: fnd_msg_pub.add;
1497: END IF;
1498: x_return_status := fnd_api.g_ret_sts_error;
1499: RETURN;
1500: ELSE
1501:
1502: OPEN c_segment_used_by_exists (p_mks_rec.act_market_segment_used_by_id);
1507: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1508: fnd_message.set_name('OZF', 'OZF_INVALID_MKT_SEG_USED_BY_ID');
1509: fnd_msg_pub.add;
1510: END IF;
1511: x_return_status := fnd_api.g_ret_sts_error;
1512: RETURN;
1513: END IF;
1514: END IF;
1515:
1514: END IF;
1515:
1516: p_mks_rec.arc_act_market_segment_used_by := 'FUND';
1517:
1518: IF p_mks_rec.segment_type = fnd_api.g_miss_char OR p_mks_rec.segment_type IS NULL THEN
1519: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1520: fnd_message.set_name('OZF', 'OZF_NO_SEGMENT_TYPE');
1521: fnd_msg_pub.add;
1522: END IF;
1519: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1520: fnd_message.set_name('OZF', 'OZF_NO_SEGMENT_TYPE');
1521: fnd_msg_pub.add;
1522: END IF;
1523: x_return_status := fnd_api.g_ret_sts_error;
1524: RETURN;
1525: ELSE
1526:
1527: OPEN c_segment_exists (p_mks_rec.segment_type);
1532: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1533: fnd_message.set_name('OZF', 'OZF_INVALID_SEGMENT_TYPE');
1534: fnd_msg_pub.add;
1535: END IF;
1536: x_return_status := fnd_api.g_ret_sts_error;
1537: RETURN;
1538: END IF;
1539: END IF;
1540:
1537: RETURN;
1538: END IF;
1539: END IF;
1540:
1541: IF p_mks_rec.market_segment_id = fnd_api.g_miss_num OR p_mks_rec.market_segment_id IS NULL THEN
1542: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1543: fnd_message.set_name('OZF', 'OZF_NO_MKT_SEG_ID');
1544: fnd_msg_pub.add;
1545: END IF;
1542: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1543: fnd_message.set_name('OZF', 'OZF_NO_MKT_SEG_ID');
1544: fnd_msg_pub.add;
1545: END IF;
1546: x_return_status := fnd_api.g_ret_sts_error;
1547: RETURN;
1548: ELSE
1549:
1550: IF p_mks_rec.segment_type = 'BUYER' THEN --Buying Group
1581: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1582: fnd_message.set_name('OZF', 'OZF_INVALID_MKT_SEG_ID');
1583: fnd_msg_pub.add;
1584: END IF;
1585: x_return_status := fnd_api.g_ret_sts_error;
1586: RETURN;
1587: END IF;
1588:
1589: END IF;
1594: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1595: fnd_message.set_name('OZF', 'OZF_INVALID_EXCLUDE_FLAG');
1596: fnd_msg_pub.add;
1597: END IF;
1598: x_return_status := fnd_api.g_ret_sts_error;
1599: RETURN;
1600: END IF;
1601:
1602: END validate_market_segment;
1616: -- 07/07/2005 kdass Created
1617: ----------------------------------------------------------------------
1618: PROCEDURE create_market_segment(
1619: p_api_version IN NUMBER
1620: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1621: ,p_commit IN VARCHAR2 := fnd_api.g_false
1622: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1623: ,p_mks_rec IN mks_rec_type
1624: ,x_return_status OUT NOCOPY VARCHAR2
1617: ----------------------------------------------------------------------
1618: PROCEDURE create_market_segment(
1619: p_api_version IN NUMBER
1620: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1621: ,p_commit IN VARCHAR2 := fnd_api.g_false
1622: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1623: ,p_mks_rec IN mks_rec_type
1624: ,x_return_status OUT NOCOPY VARCHAR2
1625: ,x_msg_count OUT NOCOPY NUMBER
1618: PROCEDURE create_market_segment(
1619: p_api_version IN NUMBER
1620: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1621: ,p_commit IN VARCHAR2 := fnd_api.g_false
1622: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1623: ,p_mks_rec IN mks_rec_type
1624: ,x_return_status OUT NOCOPY VARCHAR2
1625: ,x_msg_count OUT NOCOPY NUMBER
1626: ,x_msg_data OUT NOCOPY VARCHAR2
1642: validate_market_segment(p_mks_rec => l_mks_rec
1643: ,p_mode => l_mode
1644: ,x_return_status => x_return_status);
1645:
1646: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1647: RAISE fnd_api.g_exc_unexpected_error;
1648: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1649: RAISE fnd_api.g_exc_error;
1650: END IF;
1643: ,p_mode => l_mode
1644: ,x_return_status => x_return_status);
1645:
1646: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1647: RAISE fnd_api.g_exc_unexpected_error;
1648: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1649: RAISE fnd_api.g_exc_error;
1650: END IF;
1651:
1644: ,x_return_status => x_return_status);
1645:
1646: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1647: RAISE fnd_api.g_exc_unexpected_error;
1648: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1649: RAISE fnd_api.g_exc_error;
1650: END IF;
1651:
1652: l_seg_rec.market_segment_id := l_mks_rec.market_segment_id;
1645:
1646: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1647: RAISE fnd_api.g_exc_unexpected_error;
1648: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1649: RAISE fnd_api.g_exc_error;
1650: END IF;
1651:
1652: l_seg_rec.market_segment_id := l_mks_rec.market_segment_id;
1653: l_seg_rec.act_market_segment_used_by_id := l_mks_rec.act_market_segment_used_by_id;
1666: ,x_msg_data => x_msg_data
1667: ,x_act_mks_id => x_act_mks_id
1668: );
1669:
1670: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1671: RAISE fnd_api.g_exc_unexpected_error;
1672: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1673: RAISE fnd_api.g_exc_error;
1674: END IF;
1667: ,x_act_mks_id => x_act_mks_id
1668: );
1669:
1670: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1671: RAISE fnd_api.g_exc_unexpected_error;
1672: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1673: RAISE fnd_api.g_exc_error;
1674: END IF;
1675:
1668: );
1669:
1670: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1671: RAISE fnd_api.g_exc_unexpected_error;
1672: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1673: RAISE fnd_api.g_exc_error;
1674: END IF;
1675:
1676: FND_MSG_PUB.Count_And_Get (
1669:
1670: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1671: RAISE fnd_api.g_exc_unexpected_error;
1672: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1673: RAISE fnd_api.g_exc_error;
1674: END IF;
1675:
1676: FND_MSG_PUB.Count_And_Get (
1677: p_encoded => FND_API.G_FALSE,
1673: RAISE fnd_api.g_exc_error;
1674: END IF;
1675:
1676: FND_MSG_PUB.Count_And_Get (
1677: p_encoded => FND_API.G_FALSE,
1678: p_count => x_msg_count,
1679: p_data => x_msg_data
1680: );
1681:
1679: p_data => x_msg_data
1680: );
1681:
1682: EXCEPTION
1683: WHEN FND_API.G_EXC_ERROR THEN
1684: ROLLBACK TO create_market_pub;
1685: x_return_status := FND_API.G_RET_STS_ERROR;
1686: -- Standard call to get message count and if count=1, get the message
1687: FND_MSG_PUB.Count_And_Get (
1681:
1682: EXCEPTION
1683: WHEN FND_API.G_EXC_ERROR THEN
1684: ROLLBACK TO create_market_pub;
1685: x_return_status := FND_API.G_RET_STS_ERROR;
1686: -- Standard call to get message count and if count=1, get the message
1687: FND_MSG_PUB.Count_And_Get (
1688: p_encoded => FND_API.G_FALSE,
1689: p_count => x_msg_count,
1684: ROLLBACK TO create_market_pub;
1685: x_return_status := FND_API.G_RET_STS_ERROR;
1686: -- Standard call to get message count and if count=1, get the message
1687: FND_MSG_PUB.Count_And_Get (
1688: p_encoded => FND_API.G_FALSE,
1689: p_count => x_msg_count,
1690: p_data => x_msg_data
1691: );
1692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1688: p_encoded => FND_API.G_FALSE,
1689: p_count => x_msg_count,
1690: p_data => x_msg_data
1691: );
1692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1693: ROLLBACK TO create_market_pub;
1694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1695: -- Standard call to get message count and if count=1, get the message
1696: FND_MSG_PUB.Count_And_Get (
1690: p_data => x_msg_data
1691: );
1692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1693: ROLLBACK TO create_market_pub;
1694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1695: -- Standard call to get message count and if count=1, get the message
1696: FND_MSG_PUB.Count_And_Get (
1697: p_encoded => FND_API.G_FALSE,
1698: p_count => x_msg_count,
1693: ROLLBACK TO create_market_pub;
1694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1695: -- Standard call to get message count and if count=1, get the message
1696: FND_MSG_PUB.Count_And_Get (
1697: p_encoded => FND_API.G_FALSE,
1698: p_count => x_msg_count,
1699: p_data => x_msg_data
1700: );
1701: WHEN OTHERS THEN
1699: p_data => x_msg_data
1700: );
1701: WHEN OTHERS THEN
1702: ROLLBACK TO create_market_pub;
1703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1704: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1705: THEN
1706: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1707: END IF;
1706: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1707: END IF;
1708: -- Standard call to get message count and if count=1, get the message
1709: FND_MSG_PUB.Count_And_Get (
1710: p_encoded => FND_API.G_FALSE,
1711: p_count => x_msg_count,
1712: p_data => x_msg_data
1713: );
1714: END create_market_segment;
1727: -- 07/07/2005 kdass Created
1728: ----------------------------------------------------------------------
1729: PROCEDURE update_market_segment(
1730: p_api_version IN NUMBER
1731: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1732: ,p_commit IN VARCHAR2 := fnd_api.g_false
1733: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1734: ,p_mks_rec IN mks_rec_type
1735: ,x_return_status OUT NOCOPY VARCHAR2
1728: ----------------------------------------------------------------------
1729: PROCEDURE update_market_segment(
1730: p_api_version IN NUMBER
1731: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1732: ,p_commit IN VARCHAR2 := fnd_api.g_false
1733: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1734: ,p_mks_rec IN mks_rec_type
1735: ,x_return_status OUT NOCOPY VARCHAR2
1736: ,x_msg_count OUT NOCOPY NUMBER
1729: PROCEDURE update_market_segment(
1730: p_api_version IN NUMBER
1731: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1732: ,p_commit IN VARCHAR2 := fnd_api.g_false
1733: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1734: ,p_mks_rec IN mks_rec_type
1735: ,x_return_status OUT NOCOPY VARCHAR2
1736: ,x_msg_count OUT NOCOPY NUMBER
1737: ,x_msg_data OUT NOCOPY VARCHAR2)
1775: validate_market_segment(p_mks_rec => l_mks_rec
1776: ,p_mode => l_mode
1777: ,x_return_status => x_return_status);
1778:
1779: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1780: RAISE fnd_api.g_exc_unexpected_error;
1781: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1782: RAISE fnd_api.g_exc_error;
1783: END IF;
1776: ,p_mode => l_mode
1777: ,x_return_status => x_return_status);
1778:
1779: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1780: RAISE fnd_api.g_exc_unexpected_error;
1781: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1782: RAISE fnd_api.g_exc_error;
1783: END IF;
1784:
1777: ,x_return_status => x_return_status);
1778:
1779: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1780: RAISE fnd_api.g_exc_unexpected_error;
1781: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1782: RAISE fnd_api.g_exc_error;
1783: END IF;
1784:
1785: l_seg_rec.activity_market_segment_id := l_mks_rec.activity_market_segment_id;
1778:
1779: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1780: RAISE fnd_api.g_exc_unexpected_error;
1781: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1782: RAISE fnd_api.g_exc_error;
1783: END IF;
1784:
1785: l_seg_rec.activity_market_segment_id := l_mks_rec.activity_market_segment_id;
1786: l_seg_rec.act_market_segment_used_by_id := l_mks_rec.act_market_segment_used_by_id;
1799: ,x_msg_count => x_msg_count
1800: ,x_msg_data => x_msg_data
1801: );
1802:
1803: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1804: RAISE fnd_api.g_exc_unexpected_error;
1805: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1806: RAISE fnd_api.g_exc_error;
1807: END IF;
1800: ,x_msg_data => x_msg_data
1801: );
1802:
1803: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1804: RAISE fnd_api.g_exc_unexpected_error;
1805: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1806: RAISE fnd_api.g_exc_error;
1807: END IF;
1808:
1801: );
1802:
1803: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1804: RAISE fnd_api.g_exc_unexpected_error;
1805: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1806: RAISE fnd_api.g_exc_error;
1807: END IF;
1808:
1809: FND_MSG_PUB.Count_And_Get (
1802:
1803: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1804: RAISE fnd_api.g_exc_unexpected_error;
1805: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1806: RAISE fnd_api.g_exc_error;
1807: END IF;
1808:
1809: FND_MSG_PUB.Count_And_Get (
1810: p_encoded => FND_API.G_FALSE,
1806: RAISE fnd_api.g_exc_error;
1807: END IF;
1808:
1809: FND_MSG_PUB.Count_And_Get (
1810: p_encoded => FND_API.G_FALSE,
1811: p_count => x_msg_count,
1812: p_data => x_msg_data
1813: );
1814:
1812: p_data => x_msg_data
1813: );
1814:
1815: EXCEPTION
1816: WHEN FND_API.G_EXC_ERROR THEN
1817: ROLLBACK TO update_market_pub;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1819: -- Standard call to get message count and if count=1, get the message
1820: FND_MSG_PUB.Count_And_Get (
1814:
1815: EXCEPTION
1816: WHEN FND_API.G_EXC_ERROR THEN
1817: ROLLBACK TO update_market_pub;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1819: -- Standard call to get message count and if count=1, get the message
1820: FND_MSG_PUB.Count_And_Get (
1821: p_encoded => FND_API.G_FALSE,
1822: p_count => x_msg_count,
1817: ROLLBACK TO update_market_pub;
1818: x_return_status := FND_API.G_RET_STS_ERROR;
1819: -- Standard call to get message count and if count=1, get the message
1820: FND_MSG_PUB.Count_And_Get (
1821: p_encoded => FND_API.G_FALSE,
1822: p_count => x_msg_count,
1823: p_data => x_msg_data
1824: );
1825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1821: p_encoded => FND_API.G_FALSE,
1822: p_count => x_msg_count,
1823: p_data => x_msg_data
1824: );
1825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1826: ROLLBACK TO update_market_pub;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1828: -- Standard call to get message count and if count=1, get the message
1829: FND_MSG_PUB.Count_And_Get (
1823: p_data => x_msg_data
1824: );
1825: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1826: ROLLBACK TO update_market_pub;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1828: -- Standard call to get message count and if count=1, get the message
1829: FND_MSG_PUB.Count_And_Get (
1830: p_encoded => FND_API.G_FALSE,
1831: p_count => x_msg_count,
1826: ROLLBACK TO update_market_pub;
1827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1828: -- Standard call to get message count and if count=1, get the message
1829: FND_MSG_PUB.Count_And_Get (
1830: p_encoded => FND_API.G_FALSE,
1831: p_count => x_msg_count,
1832: p_data => x_msg_data
1833: );
1834: WHEN OTHERS THEN
1832: p_data => x_msg_data
1833: );
1834: WHEN OTHERS THEN
1835: ROLLBACK TO update_market_pub;
1836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1837: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1838: THEN
1839: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1840: END IF;
1839: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1840: END IF;
1841: -- Standard call to get message count and if count=1, get the message
1842: FND_MSG_PUB.Count_And_Get (
1843: p_encoded => FND_API.G_FALSE,
1844: p_count => x_msg_count,
1845: p_data => x_msg_data
1846: );
1847: END update_market_segment;
1875: * @rep:businessevent None
1876: */
1877: PROCEDURE delete_market_segment(
1878: p_api_version IN NUMBER
1879: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1880: ,p_commit IN VARCHAR2 := fnd_api.g_false
1881: ,p_act_mks_id IN NUMBER
1882: ,x_return_status OUT NOCOPY VARCHAR2
1883: ,x_msg_count OUT NOCOPY NUMBER
1876: */
1877: PROCEDURE delete_market_segment(
1878: p_api_version IN NUMBER
1879: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1880: ,p_commit IN VARCHAR2 := fnd_api.g_false
1881: ,p_act_mks_id IN NUMBER
1882: ,x_return_status OUT NOCOPY VARCHAR2
1883: ,x_msg_count OUT NOCOPY NUMBER
1884: ,x_msg_data OUT NOCOPY VARCHAR2)
1898:
1899: SAVEPOINT delete_market_pub;
1900:
1901: --if activity market segment id is null, then raise exception
1902: IF (p_act_mks_id = fnd_api.g_miss_num OR p_act_mks_id IS NULL) THEN
1903:
1904: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1905: fnd_message.set_name('OZF', 'OZF_NO_ACT_SEG_ID');
1906: fnd_msg_pub.add;
1904: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1905: fnd_message.set_name('OZF', 'OZF_NO_ACT_SEG_ID');
1906: fnd_msg_pub.add;
1907: END IF;
1908: RAISE fnd_api.g_exc_error;
1909: END IF;
1910:
1911: --check if the activity market segment id is valid and get the object_version_number
1912: OPEN c_valid_act_mks_id;
1917: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1918: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_SEG_ID');
1919: fnd_msg_pub.add;
1920: END IF;
1921: RAISE fnd_api.g_exc_error;
1922: END IF;
1923:
1924: --delete market segment
1925: ams_act_market_segments_pvt.delete_market_segments(p_api_version => l_api_version
1931: ,x_msg_count => x_msg_count
1932: ,x_msg_data => x_msg_data
1933: );
1934:
1935: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1936: RAISE fnd_api.g_exc_unexpected_error;
1937: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1938: RAISE fnd_api.g_exc_error;
1939: END IF;
1932: ,x_msg_data => x_msg_data
1933: );
1934:
1935: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1936: RAISE fnd_api.g_exc_unexpected_error;
1937: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1938: RAISE fnd_api.g_exc_error;
1939: END IF;
1940:
1933: );
1934:
1935: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1936: RAISE fnd_api.g_exc_unexpected_error;
1937: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1938: RAISE fnd_api.g_exc_error;
1939: END IF;
1940:
1941: FND_MSG_PUB.Count_And_Get (
1934:
1935: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1936: RAISE fnd_api.g_exc_unexpected_error;
1937: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
1938: RAISE fnd_api.g_exc_error;
1939: END IF;
1940:
1941: FND_MSG_PUB.Count_And_Get (
1942: p_encoded => FND_API.G_FALSE,
1938: RAISE fnd_api.g_exc_error;
1939: END IF;
1940:
1941: FND_MSG_PUB.Count_And_Get (
1942: p_encoded => FND_API.G_FALSE,
1943: p_count => x_msg_count,
1944: p_data => x_msg_data
1945: );
1946:
1944: p_data => x_msg_data
1945: );
1946:
1947: EXCEPTION
1948: WHEN FND_API.G_EXC_ERROR THEN
1949: ROLLBACK TO delete_market_pub;
1950: x_return_status := FND_API.G_RET_STS_ERROR;
1951: -- Standard call to get message count and if count=1, get the message
1952: FND_MSG_PUB.Count_And_Get (
1946:
1947: EXCEPTION
1948: WHEN FND_API.G_EXC_ERROR THEN
1949: ROLLBACK TO delete_market_pub;
1950: x_return_status := FND_API.G_RET_STS_ERROR;
1951: -- Standard call to get message count and if count=1, get the message
1952: FND_MSG_PUB.Count_And_Get (
1953: p_encoded => FND_API.G_FALSE,
1954: p_count => x_msg_count,
1949: ROLLBACK TO delete_market_pub;
1950: x_return_status := FND_API.G_RET_STS_ERROR;
1951: -- Standard call to get message count and if count=1, get the message
1952: FND_MSG_PUB.Count_And_Get (
1953: p_encoded => FND_API.G_FALSE,
1954: p_count => x_msg_count,
1955: p_data => x_msg_data
1956: );
1957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1953: p_encoded => FND_API.G_FALSE,
1954: p_count => x_msg_count,
1955: p_data => x_msg_data
1956: );
1957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1958: ROLLBACK TO delete_market_pub;
1959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1960: -- Standard call to get message count and if count=1, get the message
1961: FND_MSG_PUB.Count_And_Get (
1955: p_data => x_msg_data
1956: );
1957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1958: ROLLBACK TO delete_market_pub;
1959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1960: -- Standard call to get message count and if count=1, get the message
1961: FND_MSG_PUB.Count_And_Get (
1962: p_encoded => FND_API.G_FALSE,
1963: p_count => x_msg_count,
1958: ROLLBACK TO delete_market_pub;
1959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1960: -- Standard call to get message count and if count=1, get the message
1961: FND_MSG_PUB.Count_And_Get (
1962: p_encoded => FND_API.G_FALSE,
1963: p_count => x_msg_count,
1964: p_data => x_msg_data
1965: );
1966: WHEN OTHERS THEN
1964: p_data => x_msg_data
1965: );
1966: WHEN OTHERS THEN
1967: ROLLBACK TO delete_market_pub;
1968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1969: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1970: THEN
1971: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1972: END IF;
1971: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1972: END IF;
1973: -- Standard call to get message count and if count=1, get the message
1974: FND_MSG_PUB.Count_And_Get (
1975: p_encoded => FND_API.G_FALSE,
1976: p_count => x_msg_count,
1977: p_data => x_msg_data
1978: );
1979: END delete_market_segment;
2047: IF p_mode = 'CREATE' THEN
2048: p_act_product_rec.activity_product_id := NULL;
2049: ELSE
2050: --if activity product id is null, then raise exception
2051: IF (p_act_product_rec.activity_product_id = fnd_api.g_miss_num OR p_act_product_rec.activity_product_id IS NULL) THEN
2052:
2053: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2054: fnd_message.set_name('OZF', 'OZF_NO_ACT_PROD_ID');
2055: fnd_msg_pub.add;
2053: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2054: fnd_message.set_name('OZF', 'OZF_NO_ACT_PROD_ID');
2055: fnd_msg_pub.add;
2056: END IF;
2057: x_return_status := fnd_api.g_ret_sts_error;
2058: RETURN;
2059: ELSE
2060:
2061: --check if the input activity_product_id is valid
2067: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2068: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_PROD_ID');
2069: fnd_msg_pub.add;
2070: END IF;
2071: x_return_status := fnd_api.g_ret_sts_error;
2072: RETURN;
2073: END IF;
2074: END IF;
2075: END IF;
2073: END IF;
2074: END IF;
2075: END IF;
2076:
2077: IF p_act_product_rec.act_product_used_by_id = fnd_api.g_miss_num OR p_act_product_rec.act_product_used_by_id IS NULL THEN
2078: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2079: fnd_message.set_name('OZF', 'OZF_NO_PROD_USED_BY');
2080: fnd_msg_pub.add;
2081: END IF;
2078: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2079: fnd_message.set_name('OZF', 'OZF_NO_PROD_USED_BY');
2080: fnd_msg_pub.add;
2081: END IF;
2082: x_return_status := fnd_api.g_ret_sts_error;
2083: RETURN;
2084: ELSE
2085:
2086: OPEN c_act_prod_used_by_exists (p_act_product_rec.act_product_used_by_id);
2091: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2092: fnd_message.set_name('OZF', 'OZF_INVALID_PROD_USED_BY');
2093: fnd_msg_pub.add;
2094: END IF;
2095: x_return_status := fnd_api.g_ret_sts_error;
2096: RETURN;
2097: END IF;
2098: END IF;
2099:
2097: END IF;
2098: END IF;
2099:
2100: --if both inventory item id and inventory item name are null, then raise exception
2101: IF (p_act_product_rec.inventory_item_id = fnd_api.g_miss_num OR p_act_product_rec.inventory_item_id IS NULL) AND
2102: (p_act_product_rec.inventory_item_name = fnd_api.g_miss_char OR p_act_product_rec.inventory_item_name IS NULL) AND
2103: (p_act_product_rec.category_id = fnd_api.g_miss_num OR p_act_product_rec.category_id IS NULL) AND
2104: (p_act_product_rec.category_name = fnd_api.g_miss_char OR p_act_product_rec.category_name IS NULL) THEN
2105:
2098: END IF;
2099:
2100: --if both inventory item id and inventory item name are null, then raise exception
2101: IF (p_act_product_rec.inventory_item_id = fnd_api.g_miss_num OR p_act_product_rec.inventory_item_id IS NULL) AND
2102: (p_act_product_rec.inventory_item_name = fnd_api.g_miss_char OR p_act_product_rec.inventory_item_name IS NULL) AND
2103: (p_act_product_rec.category_id = fnd_api.g_miss_num OR p_act_product_rec.category_id IS NULL) AND
2104: (p_act_product_rec.category_name = fnd_api.g_miss_char OR p_act_product_rec.category_name IS NULL) THEN
2105:
2106: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2099:
2100: --if both inventory item id and inventory item name are null, then raise exception
2101: IF (p_act_product_rec.inventory_item_id = fnd_api.g_miss_num OR p_act_product_rec.inventory_item_id IS NULL) AND
2102: (p_act_product_rec.inventory_item_name = fnd_api.g_miss_char OR p_act_product_rec.inventory_item_name IS NULL) AND
2103: (p_act_product_rec.category_id = fnd_api.g_miss_num OR p_act_product_rec.category_id IS NULL) AND
2104: (p_act_product_rec.category_name = fnd_api.g_miss_char OR p_act_product_rec.category_name IS NULL) THEN
2105:
2106: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2107: fnd_message.set_name('OZF', 'OZF_NO_INV_ITEM_CAT');
2100: --if both inventory item id and inventory item name are null, then raise exception
2101: IF (p_act_product_rec.inventory_item_id = fnd_api.g_miss_num OR p_act_product_rec.inventory_item_id IS NULL) AND
2102: (p_act_product_rec.inventory_item_name = fnd_api.g_miss_char OR p_act_product_rec.inventory_item_name IS NULL) AND
2103: (p_act_product_rec.category_id = fnd_api.g_miss_num OR p_act_product_rec.category_id IS NULL) AND
2104: (p_act_product_rec.category_name = fnd_api.g_miss_char OR p_act_product_rec.category_name IS NULL) THEN
2105:
2106: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2107: fnd_message.set_name('OZF', 'OZF_NO_INV_ITEM_CAT');
2108: fnd_msg_pub.add;
2106: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2107: fnd_message.set_name('OZF', 'OZF_NO_INV_ITEM_CAT');
2108: fnd_msg_pub.add;
2109: END IF;
2110: x_return_status := fnd_api.g_ret_sts_error;
2111: RETURN;
2112:
2113: ELSIF (p_act_product_rec.inventory_item_id <> fnd_api.g_miss_num AND p_act_product_rec.inventory_item_id IS NOT NULL) OR
2114: (p_act_product_rec.inventory_item_name <> fnd_api.g_miss_char AND p_act_product_rec.inventory_item_name IS NOT NULL) THEN
2109: END IF;
2110: x_return_status := fnd_api.g_ret_sts_error;
2111: RETURN;
2112:
2113: ELSIF (p_act_product_rec.inventory_item_id <> fnd_api.g_miss_num AND p_act_product_rec.inventory_item_id IS NOT NULL) OR
2114: (p_act_product_rec.inventory_item_name <> fnd_api.g_miss_char AND p_act_product_rec.inventory_item_name IS NOT NULL) THEN
2115:
2116: OPEN c_org_id (p_act_product_rec.act_product_used_by_id);
2117: FETCH c_org_id INTO p_act_product_rec.organization_id;
2110: x_return_status := fnd_api.g_ret_sts_error;
2111: RETURN;
2112:
2113: ELSIF (p_act_product_rec.inventory_item_id <> fnd_api.g_miss_num AND p_act_product_rec.inventory_item_id IS NOT NULL) OR
2114: (p_act_product_rec.inventory_item_name <> fnd_api.g_miss_char AND p_act_product_rec.inventory_item_name IS NOT NULL) THEN
2115:
2116: OPEN c_org_id (p_act_product_rec.act_product_used_by_id);
2117: FETCH c_org_id INTO p_act_product_rec.organization_id;
2118: CLOSE c_org_id;
2117: FETCH c_org_id INTO p_act_product_rec.organization_id;
2118: CLOSE c_org_id;
2119:
2120: --if inventory item id is not null
2121: IF p_act_product_rec.inventory_item_id <> fnd_api.g_miss_num AND p_act_product_rec.inventory_item_id IS NOT NULL THEN
2122:
2123: --check if the input inventory_item_id valid
2124: OPEN c_inv_id_exists (p_act_product_rec.inventory_item_id, p_act_product_rec.organization_id);
2125: FETCH c_inv_id_exists INTO l_inv_id_exists;
2129: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2130: fnd_message.set_name('OZF', 'OZF_INVALID_INV_ITEM_ID');
2131: fnd_msg_pub.add;
2132: END IF;
2133: x_return_status := fnd_api.g_ret_sts_error;
2134: RETURN;
2135: END IF;
2136:
2137: --if inventory item name is not null
2145: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2146: fnd_message.set_name('OZF', 'OZF_INVALID_INV_ITEM_NAME');
2147: fnd_msg_pub.add;
2148: END IF;
2149: x_return_status := fnd_api.g_ret_sts_error;
2150: RETURN;
2151: END IF;
2152: END IF;
2153:
2152: END IF;
2153:
2154: p_act_product_rec.level_type_code := 'PRODUCT';
2155:
2156: ELSIF (p_act_product_rec.category_id <> fnd_api.g_miss_num AND p_act_product_rec.category_id IS NOT NULL) OR
2157: (p_act_product_rec.category_name <> fnd_api.g_miss_char AND p_act_product_rec.category_name IS NOT NULL) THEN
2158:
2159: --if category id is not null
2160: IF p_act_product_rec.category_id <> fnd_api.g_miss_num AND p_act_product_rec.category_id IS NOT NULL THEN
2153:
2154: p_act_product_rec.level_type_code := 'PRODUCT';
2155:
2156: ELSIF (p_act_product_rec.category_id <> fnd_api.g_miss_num AND p_act_product_rec.category_id IS NOT NULL) OR
2157: (p_act_product_rec.category_name <> fnd_api.g_miss_char AND p_act_product_rec.category_name IS NOT NULL) THEN
2158:
2159: --if category id is not null
2160: IF p_act_product_rec.category_id <> fnd_api.g_miss_num AND p_act_product_rec.category_id IS NOT NULL THEN
2161:
2156: ELSIF (p_act_product_rec.category_id <> fnd_api.g_miss_num AND p_act_product_rec.category_id IS NOT NULL) OR
2157: (p_act_product_rec.category_name <> fnd_api.g_miss_char AND p_act_product_rec.category_name IS NOT NULL) THEN
2158:
2159: --if category id is not null
2160: IF p_act_product_rec.category_id <> fnd_api.g_miss_num AND p_act_product_rec.category_id IS NOT NULL THEN
2161:
2162: --check if the input category_id valid
2163: OPEN c_cat_id_exists (p_act_product_rec.category_id);
2164: FETCH c_cat_id_exists INTO p_act_product_rec.category_set_id;
2168: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2169: fnd_message.set_name('OZF', 'OZF_INVALID_CATEGORY_ID');
2170: fnd_msg_pub.add;
2171: END IF;
2172: x_return_status := fnd_api.g_ret_sts_error;
2173: RETURN;
2174: END IF;
2175:
2176: --if category name is not null
2184: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2185: fnd_message.set_name('OZF', 'OZF_INVALID_CATEGORY_NAME');
2186: fnd_msg_pub.add;
2187: END IF;
2188: x_return_status := fnd_api.g_ret_sts_error;
2189: RETURN;
2190: END IF;
2191: END IF;
2192:
2202: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2203: fnd_message.set_name('OZF', 'OZF_INVALID_PRIMARY_FLAG');
2204: fnd_msg_pub.add;
2205: END IF;
2206: x_return_status := fnd_api.g_ret_sts_error;
2207: RETURN;
2208: END IF;
2209:
2210: p_act_product_rec.excluded_flag := NVL(p_act_product_rec.excluded_flag, 'N');
2213: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2214: fnd_message.set_name('OZF', 'OZF_INVALID_EXCLUDED_FLAG');
2215: fnd_msg_pub.add;
2216: END IF;
2217: x_return_status := fnd_api.g_ret_sts_error;
2218: RETURN;
2219: END IF;
2220:
2221: END validate_act_product;
2235: -- 07/11/2005 kdass Created
2236: ----------------------------------------------------------------------
2237: PROCEDURE create_product_eligibility(
2238: p_api_version IN NUMBER
2239: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2240: ,p_commit IN VARCHAR2 := fnd_api.g_false
2241: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2242: ,p_act_product_rec IN act_product_rec_type
2243: ,x_return_status OUT NOCOPY VARCHAR2
2236: ----------------------------------------------------------------------
2237: PROCEDURE create_product_eligibility(
2238: p_api_version IN NUMBER
2239: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2240: ,p_commit IN VARCHAR2 := fnd_api.g_false
2241: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2242: ,p_act_product_rec IN act_product_rec_type
2243: ,x_return_status OUT NOCOPY VARCHAR2
2244: ,x_msg_count OUT NOCOPY NUMBER
2237: PROCEDURE create_product_eligibility(
2238: p_api_version IN NUMBER
2239: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2240: ,p_commit IN VARCHAR2 := fnd_api.g_false
2241: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2242: ,p_act_product_rec IN act_product_rec_type
2243: ,x_return_status OUT NOCOPY VARCHAR2
2244: ,x_msg_count OUT NOCOPY NUMBER
2245: ,x_msg_data OUT NOCOPY VARCHAR2
2262: validate_act_product(p_act_product_rec => l_act_prod_rec
2263: ,p_mode => l_mode
2264: ,x_return_status => x_return_status);
2265:
2266: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2267: RAISE fnd_api.g_exc_unexpected_error;
2268: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2269: RAISE fnd_api.g_exc_error;
2270: END IF;
2263: ,p_mode => l_mode
2264: ,x_return_status => x_return_status);
2265:
2266: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2267: RAISE fnd_api.g_exc_unexpected_error;
2268: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2269: RAISE fnd_api.g_exc_error;
2270: END IF;
2271:
2264: ,x_return_status => x_return_status);
2265:
2266: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2267: RAISE fnd_api.g_exc_unexpected_error;
2268: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2269: RAISE fnd_api.g_exc_error;
2270: END IF;
2271:
2272: l_act_product_rec.act_product_used_by_id := l_act_prod_rec.act_product_used_by_id;
2265:
2266: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2267: RAISE fnd_api.g_exc_unexpected_error;
2268: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2269: RAISE fnd_api.g_exc_error;
2270: END IF;
2271:
2272: l_act_product_rec.act_product_used_by_id := l_act_prod_rec.act_product_used_by_id;
2273: l_act_product_rec.arc_act_product_used_by := l_act_prod_rec.arc_act_product_used_by;
2289: ,x_msg_data => x_msg_data
2290: ,x_act_product_id => x_act_product_id
2291: );
2292:
2293: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2294: RAISE fnd_api.g_exc_unexpected_error;
2295: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2296: RAISE fnd_api.g_exc_error;
2297: END IF;
2290: ,x_act_product_id => x_act_product_id
2291: );
2292:
2293: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2294: RAISE fnd_api.g_exc_unexpected_error;
2295: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2296: RAISE fnd_api.g_exc_error;
2297: END IF;
2298:
2291: );
2292:
2293: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2294: RAISE fnd_api.g_exc_unexpected_error;
2295: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2296: RAISE fnd_api.g_exc_error;
2297: END IF;
2298:
2299: FND_MSG_PUB.Count_And_Get (
2292:
2293: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2294: RAISE fnd_api.g_exc_unexpected_error;
2295: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2296: RAISE fnd_api.g_exc_error;
2297: END IF;
2298:
2299: FND_MSG_PUB.Count_And_Get (
2300: p_encoded => FND_API.G_FALSE,
2296: RAISE fnd_api.g_exc_error;
2297: END IF;
2298:
2299: FND_MSG_PUB.Count_And_Get (
2300: p_encoded => FND_API.G_FALSE,
2301: p_count => x_msg_count,
2302: p_data => x_msg_data
2303: );
2304:
2302: p_data => x_msg_data
2303: );
2304:
2305: EXCEPTION
2306: WHEN FND_API.G_EXC_ERROR THEN
2307: ROLLBACK TO create_product_pub;
2308: x_return_status := FND_API.G_RET_STS_ERROR;
2309: -- Standard call to get message count and if count=1, get the message
2310: FND_MSG_PUB.Count_And_Get (
2304:
2305: EXCEPTION
2306: WHEN FND_API.G_EXC_ERROR THEN
2307: ROLLBACK TO create_product_pub;
2308: x_return_status := FND_API.G_RET_STS_ERROR;
2309: -- Standard call to get message count and if count=1, get the message
2310: FND_MSG_PUB.Count_And_Get (
2311: p_encoded => FND_API.G_FALSE,
2312: p_count => x_msg_count,
2307: ROLLBACK TO create_product_pub;
2308: x_return_status := FND_API.G_RET_STS_ERROR;
2309: -- Standard call to get message count and if count=1, get the message
2310: FND_MSG_PUB.Count_And_Get (
2311: p_encoded => FND_API.G_FALSE,
2312: p_count => x_msg_count,
2313: p_data => x_msg_data
2314: );
2315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2311: p_encoded => FND_API.G_FALSE,
2312: p_count => x_msg_count,
2313: p_data => x_msg_data
2314: );
2315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2316: ROLLBACK TO create_product_pub;
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2318: -- Standard call to get message count and if count=1, get the message
2319: FND_MSG_PUB.Count_And_Get (
2313: p_data => x_msg_data
2314: );
2315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2316: ROLLBACK TO create_product_pub;
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2318: -- Standard call to get message count and if count=1, get the message
2319: FND_MSG_PUB.Count_And_Get (
2320: p_encoded => FND_API.G_FALSE,
2321: p_count => x_msg_count,
2316: ROLLBACK TO create_product_pub;
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2318: -- Standard call to get message count and if count=1, get the message
2319: FND_MSG_PUB.Count_And_Get (
2320: p_encoded => FND_API.G_FALSE,
2321: p_count => x_msg_count,
2322: p_data => x_msg_data
2323: );
2324: WHEN OTHERS THEN
2322: p_data => x_msg_data
2323: );
2324: WHEN OTHERS THEN
2325: ROLLBACK TO create_product_pub;
2326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2327: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2328: THEN
2329: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2330: END IF;
2329: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2330: END IF;
2331: -- Standard call to get message count and if count=1, get the message
2332: FND_MSG_PUB.Count_And_Get (
2333: p_encoded => FND_API.G_FALSE,
2334: p_count => x_msg_count,
2335: p_data => x_msg_data
2336: );
2337: END create_product_eligibility;
2350: -- 07/11/2005 kdass Created
2351: ----------------------------------------------------------------------
2352: PROCEDURE update_product_eligibility(
2353: p_api_version IN NUMBER
2354: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2355: ,p_commit IN VARCHAR2 := fnd_api.g_false
2356: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2357: ,p_act_product_rec IN act_product_rec_type
2358: ,x_return_status OUT NOCOPY VARCHAR2
2351: ----------------------------------------------------------------------
2352: PROCEDURE update_product_eligibility(
2353: p_api_version IN NUMBER
2354: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2355: ,p_commit IN VARCHAR2 := fnd_api.g_false
2356: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2357: ,p_act_product_rec IN act_product_rec_type
2358: ,x_return_status OUT NOCOPY VARCHAR2
2359: ,x_msg_count OUT NOCOPY NUMBER
2352: PROCEDURE update_product_eligibility(
2353: p_api_version IN NUMBER
2354: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2355: ,p_commit IN VARCHAR2 := fnd_api.g_false
2356: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2357: ,p_act_product_rec IN act_product_rec_type
2358: ,x_return_status OUT NOCOPY VARCHAR2
2359: ,x_msg_count OUT NOCOPY NUMBER
2360: ,x_msg_data OUT NOCOPY VARCHAR2
2404: validate_act_product(p_act_product_rec => l_act_prod_rec
2405: ,p_mode => l_mode
2406: ,x_return_status => x_return_status);
2407:
2408: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2409: RAISE fnd_api.g_exc_unexpected_error;
2410: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2411: RAISE fnd_api.g_exc_error;
2412: END IF;
2405: ,p_mode => l_mode
2406: ,x_return_status => x_return_status);
2407:
2408: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2409: RAISE fnd_api.g_exc_unexpected_error;
2410: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2411: RAISE fnd_api.g_exc_error;
2412: END IF;
2413:
2406: ,x_return_status => x_return_status);
2407:
2408: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2409: RAISE fnd_api.g_exc_unexpected_error;
2410: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2411: RAISE fnd_api.g_exc_error;
2412: END IF;
2413:
2414: l_act_product_rec.activity_product_id := l_act_prod_rec.activity_product_id;
2407:
2408: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2409: RAISE fnd_api.g_exc_unexpected_error;
2410: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2411: RAISE fnd_api.g_exc_error;
2412: END IF;
2413:
2414: l_act_product_rec.activity_product_id := l_act_prod_rec.activity_product_id;
2415: l_act_product_rec.act_product_used_by_id := l_act_prod_rec.act_product_used_by_id;
2433: ,x_msg_count => x_msg_count
2434: ,x_msg_data => x_msg_data
2435: );
2436:
2437: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2438: RAISE fnd_api.g_exc_unexpected_error;
2439: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2440: RAISE fnd_api.g_exc_error;
2441: END IF;
2434: ,x_msg_data => x_msg_data
2435: );
2436:
2437: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2438: RAISE fnd_api.g_exc_unexpected_error;
2439: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2440: RAISE fnd_api.g_exc_error;
2441: END IF;
2442:
2435: );
2436:
2437: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2438: RAISE fnd_api.g_exc_unexpected_error;
2439: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2440: RAISE fnd_api.g_exc_error;
2441: END IF;
2442:
2443: FND_MSG_PUB.Count_And_Get (
2436:
2437: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2438: RAISE fnd_api.g_exc_unexpected_error;
2439: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2440: RAISE fnd_api.g_exc_error;
2441: END IF;
2442:
2443: FND_MSG_PUB.Count_And_Get (
2444: p_encoded => FND_API.G_FALSE,
2440: RAISE fnd_api.g_exc_error;
2441: END IF;
2442:
2443: FND_MSG_PUB.Count_And_Get (
2444: p_encoded => FND_API.G_FALSE,
2445: p_count => x_msg_count,
2446: p_data => x_msg_data
2447: );
2448:
2446: p_data => x_msg_data
2447: );
2448:
2449: EXCEPTION
2450: WHEN FND_API.G_EXC_ERROR THEN
2451: ROLLBACK TO update_product_pub;
2452: x_return_status := FND_API.G_RET_STS_ERROR;
2453: -- Standard call to get message count and if count=1, get the message
2454: FND_MSG_PUB.Count_And_Get (
2448:
2449: EXCEPTION
2450: WHEN FND_API.G_EXC_ERROR THEN
2451: ROLLBACK TO update_product_pub;
2452: x_return_status := FND_API.G_RET_STS_ERROR;
2453: -- Standard call to get message count and if count=1, get the message
2454: FND_MSG_PUB.Count_And_Get (
2455: p_encoded => FND_API.G_FALSE,
2456: p_count => x_msg_count,
2451: ROLLBACK TO update_product_pub;
2452: x_return_status := FND_API.G_RET_STS_ERROR;
2453: -- Standard call to get message count and if count=1, get the message
2454: FND_MSG_PUB.Count_And_Get (
2455: p_encoded => FND_API.G_FALSE,
2456: p_count => x_msg_count,
2457: p_data => x_msg_data
2458: );
2459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2455: p_encoded => FND_API.G_FALSE,
2456: p_count => x_msg_count,
2457: p_data => x_msg_data
2458: );
2459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2460: ROLLBACK TO update_product_pub;
2461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2462: -- Standard call to get message count and if count=1, get the message
2463: FND_MSG_PUB.Count_And_Get (
2457: p_data => x_msg_data
2458: );
2459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2460: ROLLBACK TO update_product_pub;
2461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2462: -- Standard call to get message count and if count=1, get the message
2463: FND_MSG_PUB.Count_And_Get (
2464: p_encoded => FND_API.G_FALSE,
2465: p_count => x_msg_count,
2460: ROLLBACK TO update_product_pub;
2461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2462: -- Standard call to get message count and if count=1, get the message
2463: FND_MSG_PUB.Count_And_Get (
2464: p_encoded => FND_API.G_FALSE,
2465: p_count => x_msg_count,
2466: p_data => x_msg_data
2467: );
2468: WHEN OTHERS THEN
2466: p_data => x_msg_data
2467: );
2468: WHEN OTHERS THEN
2469: ROLLBACK TO update_product_pub;
2470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2471: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2472: THEN
2473: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2474: END IF;
2473: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2474: END IF;
2475: -- Standard call to get message count and if count=1, get the message
2476: FND_MSG_PUB.Count_And_Get (
2477: p_encoded => FND_API.G_FALSE,
2478: p_count => x_msg_count,
2479: p_data => x_msg_data
2480: );
2481: END update_product_eligibility;
2494: -- 07/11/2005 kdass Created
2495: ----------------------------------------------------------------------
2496: PROCEDURE delete_product_eligibility(
2497: p_api_version IN NUMBER
2498: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2499: ,p_commit IN VARCHAR2 := fnd_api.g_false
2500: ,p_act_product_id IN NUMBER
2501: ,x_return_status OUT NOCOPY VARCHAR2
2502: ,x_msg_count OUT NOCOPY NUMBER
2495: ----------------------------------------------------------------------
2496: PROCEDURE delete_product_eligibility(
2497: p_api_version IN NUMBER
2498: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2499: ,p_commit IN VARCHAR2 := fnd_api.g_false
2500: ,p_act_product_id IN NUMBER
2501: ,x_return_status OUT NOCOPY VARCHAR2
2502: ,x_msg_count OUT NOCOPY NUMBER
2503: ,x_msg_data OUT NOCOPY VARCHAR2
2518:
2519: SAVEPOINT delete_product_pub;
2520:
2521: --if activity market segment id is null, then raise exception
2522: IF (p_act_product_id = fnd_api.g_miss_num OR p_act_product_id IS NULL) THEN
2523:
2524: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2525: fnd_message.set_name('OZF', 'OZF_NO_ACT_PROD_ID');
2526: fnd_msg_pub.add;
2524: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2525: fnd_message.set_name('OZF', 'OZF_NO_ACT_PROD_ID');
2526: fnd_msg_pub.add;
2527: END IF;
2528: RAISE fnd_api.g_exc_error;
2529: END IF;
2530:
2531: --check if the activity product id is valid and get the object_version_number
2532: OPEN c_valid_act_prod_id;
2537: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2538: fnd_message.set_name('OZF', 'OZF_INVALID_ACT_PROD_ID');
2539: fnd_msg_pub.add;
2540: END IF;
2541: RAISE fnd_api.g_exc_error;
2542: END IF;
2543:
2544: --delete product eligibility record
2545: ams_actproduct_pvt.delete_act_product(p_api_version => l_api_version
2551: ,x_msg_count => x_msg_count
2552: ,x_msg_data => x_msg_data
2553: );
2554:
2555: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2556: RAISE fnd_api.g_exc_unexpected_error;
2557: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2558: RAISE fnd_api.g_exc_error;
2559: END IF;
2552: ,x_msg_data => x_msg_data
2553: );
2554:
2555: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2556: RAISE fnd_api.g_exc_unexpected_error;
2557: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2558: RAISE fnd_api.g_exc_error;
2559: END IF;
2560:
2553: );
2554:
2555: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2556: RAISE fnd_api.g_exc_unexpected_error;
2557: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2558: RAISE fnd_api.g_exc_error;
2559: END IF;
2560:
2561: FND_MSG_PUB.Count_And_Get (
2554:
2555: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2556: RAISE fnd_api.g_exc_unexpected_error;
2557: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
2558: RAISE fnd_api.g_exc_error;
2559: END IF;
2560:
2561: FND_MSG_PUB.Count_And_Get (
2562: p_encoded => FND_API.G_FALSE,
2558: RAISE fnd_api.g_exc_error;
2559: END IF;
2560:
2561: FND_MSG_PUB.Count_And_Get (
2562: p_encoded => FND_API.G_FALSE,
2563: p_count => x_msg_count,
2564: p_data => x_msg_data
2565: );
2566:
2564: p_data => x_msg_data
2565: );
2566:
2567: EXCEPTION
2568: WHEN FND_API.G_EXC_ERROR THEN
2569: ROLLBACK TO delete_product_pub;
2570: x_return_status := FND_API.G_RET_STS_ERROR;
2571: -- Standard call to get message count and if count=1, get the message
2572: FND_MSG_PUB.Count_And_Get (
2566:
2567: EXCEPTION
2568: WHEN FND_API.G_EXC_ERROR THEN
2569: ROLLBACK TO delete_product_pub;
2570: x_return_status := FND_API.G_RET_STS_ERROR;
2571: -- Standard call to get message count and if count=1, get the message
2572: FND_MSG_PUB.Count_And_Get (
2573: p_encoded => FND_API.G_FALSE,
2574: p_count => x_msg_count,
2569: ROLLBACK TO delete_product_pub;
2570: x_return_status := FND_API.G_RET_STS_ERROR;
2571: -- Standard call to get message count and if count=1, get the message
2572: FND_MSG_PUB.Count_And_Get (
2573: p_encoded => FND_API.G_FALSE,
2574: p_count => x_msg_count,
2575: p_data => x_msg_data
2576: );
2577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2573: p_encoded => FND_API.G_FALSE,
2574: p_count => x_msg_count,
2575: p_data => x_msg_data
2576: );
2577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2578: ROLLBACK TO delete_product_pub;
2579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2580: -- Standard call to get message count and if count=1, get the message
2581: FND_MSG_PUB.Count_And_Get (
2575: p_data => x_msg_data
2576: );
2577: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2578: ROLLBACK TO delete_product_pub;
2579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2580: -- Standard call to get message count and if count=1, get the message
2581: FND_MSG_PUB.Count_And_Get (
2582: p_encoded => FND_API.G_FALSE,
2583: p_count => x_msg_count,
2578: ROLLBACK TO delete_product_pub;
2579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2580: -- Standard call to get message count and if count=1, get the message
2581: FND_MSG_PUB.Count_And_Get (
2582: p_encoded => FND_API.G_FALSE,
2583: p_count => x_msg_count,
2584: p_data => x_msg_data
2585: );
2586: WHEN OTHERS THEN
2584: p_data => x_msg_data
2585: );
2586: WHEN OTHERS THEN
2587: ROLLBACK TO delete_product_pub;
2588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2589: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2590: THEN
2591: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2592: END IF;
2591: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2592: END IF;
2593: -- Standard call to get message count and if count=1, get the message
2594: FND_MSG_PUB.Count_And_Get (
2595: p_encoded => FND_API.G_FALSE,
2596: p_count => x_msg_count,
2597: p_data => x_msg_data
2598: );
2599: END delete_product_eligibility;