307: TO_NUMBER(FND_PROFILE.VALUE('MRP_DEFAULT_ASSIGNMENT_SET'));
308:
309: if var_set_id is null
310: then
311: fnd_message.set_name('MRP', 'MRCONC-CANNOT GET PROFILE');
312: fnd_message.set_token('PROFILE', 'MRP_DEFAULT_ASSIGNMENT_SET');
313: arg_error_message := fnd_message.get;
314: return FALSE;
315: end if;
308:
309: if var_set_id is null
310: then
311: fnd_message.set_name('MRP', 'MRCONC-CANNOT GET PROFILE');
312: fnd_message.set_token('PROFILE', 'MRP_DEFAULT_ASSIGNMENT_SET');
313: arg_error_message := fnd_message.get;
314: return FALSE;
315: end if;
316:
309: if var_set_id is null
310: then
311: fnd_message.set_name('MRP', 'MRCONC-CANNOT GET PROFILE');
312: fnd_message.set_token('PROFILE', 'MRP_DEFAULT_ASSIGNMENT_SET');
313: arg_error_message := fnd_message.get;
314: return FALSE;
315: end if;
316:
317:
389: found_org = FALSE) or
390: ((arg_mode = 'VENDOR' or arg_mode = 'BOTH') and
391: found_ven = FALSE))
392: then
393: fnd_message.set_name('MRP', 'GEN-CANNOT SELECT');
394: fnd_message.set_token('SELECT', 'EC_SOURCE', TRUE);
395: fnd_message.set_token('ROUTINE', 'MRP_SOURCING', FALSE);
396: arg_error_message := fnd_message.get || 'JUNK12';
397: RETURN FALSE;
390: ((arg_mode = 'VENDOR' or arg_mode = 'BOTH') and
391: found_ven = FALSE))
392: then
393: fnd_message.set_name('MRP', 'GEN-CANNOT SELECT');
394: fnd_message.set_token('SELECT', 'EC_SOURCE', TRUE);
395: fnd_message.set_token('ROUTINE', 'MRP_SOURCING', FALSE);
396: arg_error_message := fnd_message.get || 'JUNK12';
397: RETURN FALSE;
398: end if;
391: found_ven = FALSE))
392: then
393: fnd_message.set_name('MRP', 'GEN-CANNOT SELECT');
394: fnd_message.set_token('SELECT', 'EC_SOURCE', TRUE);
395: fnd_message.set_token('ROUTINE', 'MRP_SOURCING', FALSE);
396: arg_error_message := fnd_message.get || 'JUNK12';
397: RETURN FALSE;
398: end if;
399: EXCEPTION
392: then
393: fnd_message.set_name('MRP', 'GEN-CANNOT SELECT');
394: fnd_message.set_token('SELECT', 'EC_SOURCE', TRUE);
395: fnd_message.set_token('ROUTINE', 'MRP_SOURCING', FALSE);
396: arg_error_message := fnd_message.get || 'JUNK12';
397: RETURN FALSE;
398: end if;
399: EXCEPTION
400: WHEN no_data_found THEN
397: RETURN FALSE;
398: end if;
399: EXCEPTION
400: WHEN no_data_found THEN
401: fnd_message.set_name('MRP', 'GEN-NO ROWS SELECTED');
402: fnd_message.set_token('TABLE', 'mrp_sources_v');
403: arg_error_message := fnd_message.get;
404: RETURN FALSE;
405: END;
398: end if;
399: EXCEPTION
400: WHEN no_data_found THEN
401: fnd_message.set_name('MRP', 'GEN-NO ROWS SELECTED');
402: fnd_message.set_token('TABLE', 'mrp_sources_v');
403: arg_error_message := fnd_message.get;
404: RETURN FALSE;
405: END;
406: END mrp_sourcing;
399: EXCEPTION
400: WHEN no_data_found THEN
401: fnd_message.set_name('MRP', 'GEN-NO ROWS SELECTED');
402: fnd_message.set_token('TABLE', 'mrp_sources_v');
403: arg_error_message := fnd_message.get;
404: RETURN FALSE;
405: END;
406: END mrp_sourcing;
407:
460:
461: EXCEPTION
462: WHEN no_data_found THEN
463: arg_vendor_id := NULL;
464: fnd_message.set_name('MRP', 'GEN-NO ROWS SELECTED');
465: fnd_message.set_token('TABLE', 'mrp_sources_v');
466: arg_error_message := fnd_message.get;
467: RETURN FALSE;
468: END mrp_sourcing;
461: EXCEPTION
462: WHEN no_data_found THEN
463: arg_vendor_id := NULL;
464: fnd_message.set_name('MRP', 'GEN-NO ROWS SELECTED');
465: fnd_message.set_token('TABLE', 'mrp_sources_v');
466: arg_error_message := fnd_message.get;
467: RETURN FALSE;
468: END mrp_sourcing;
469:
462: WHEN no_data_found THEN
463: arg_vendor_id := NULL;
464: fnd_message.set_name('MRP', 'GEN-NO ROWS SELECTED');
465: fnd_message.set_token('TABLE', 'mrp_sources_v');
466: arg_error_message := fnd_message.get;
467: RETURN FALSE;
468: END mrp_sourcing;
469:
470: /* This function checks all sourcing rules to see if
506:
507: OPEN sr;
508: counter := 1;
509:
510: FND_MESSAGE.SET_NAME('MRP', 'MRP_SUPPLIER_IN_SOURCING_1');
511: arg_message := FND_MESSAGE.GET;
512: arg_message := arg_message||fnd_global.newline;
513:
514: LOOP
507: OPEN sr;
508: counter := 1;
509:
510: FND_MESSAGE.SET_NAME('MRP', 'MRP_SUPPLIER_IN_SOURCING_1');
511: arg_message := FND_MESSAGE.GET;
512: arg_message := arg_message||fnd_global.newline;
513:
514: LOOP
515: FETCH sr into x_sourcing_rule_name, x_assignment_type;
526: IF counter = 1 THEN
527: return 1; -- There are no sourcing_rules found
528: END IF;
529:
530: FND_MESSAGE.SET_NAME('MRP', 'MRP_SUPPLIER_IN_SOURCING_2');
531: fnd_message.set_token('COUNT', counter);
532: arg_message := arg_message||' '||FND_MESSAGE.GET;
533:
534: return 0;
527: return 1; -- There are no sourcing_rules found
528: END IF;
529:
530: FND_MESSAGE.SET_NAME('MRP', 'MRP_SUPPLIER_IN_SOURCING_2');
531: fnd_message.set_token('COUNT', counter);
532: arg_message := arg_message||' '||FND_MESSAGE.GET;
533:
534: return 0;
535: END mrp_sourcing_rule_exists;
528: END IF;
529:
530: FND_MESSAGE.SET_NAME('MRP', 'MRP_SUPPLIER_IN_SOURCING_2');
531: fnd_message.set_token('COUNT', counter);
532: arg_message := arg_message||' '||FND_MESSAGE.GET;
533:
534: return 0;
535: END mrp_sourcing_rule_exists;
536: