434: --dbms_output.put_line('bot_ptr:'|| to_char(l_bot_ptr));
435: END LOOP; -- while
436:
437: IF (l_top_ptr <> -1 or l_bot_ptr <> -1) THEN
438: FND_MESSAGE.SET_NAME('BOM','BOM_RTG_NTWK_LOOP_EXISTS');
439: x_status := 'F'; -- LOOP exists
440: x_message:= FND_MESSAGE.GET;
441: RETURN;
442: END IF;
436:
437: IF (l_top_ptr <> -1 or l_bot_ptr <> -1) THEN
438: FND_MESSAGE.SET_NAME('BOM','BOM_RTG_NTWK_LOOP_EXISTS');
439: x_status := 'F'; -- LOOP exists
440: x_message:= FND_MESSAGE.GET;
441: RETURN;
442: END IF;
443: --dbms_output.put_line('END check for loops');
444:
475: -- delete the connected list for re-use
476: l_Con_Op_Tbl.DELETE;
477: ELSE
478: --dbms_output.put_line('BROKEN link exists');
479: FND_MESSAGE.SET_NAME('BOM','BOM_RTG_NTWK_BROKEN_LINK_EXIST');
480: x_status := 'F'; -- BROKEN Link exists
481: x_message:= FND_MESSAGE.GET;
482: RETURN;
483: END IF;
477: ELSE
478: --dbms_output.put_line('BROKEN link exists');
479: FND_MESSAGE.SET_NAME('BOM','BOM_RTG_NTWK_BROKEN_LINK_EXIST');
480: x_status := 'F'; -- BROKEN Link exists
481: x_message:= FND_MESSAGE.GET;
482: RETURN;
483: END IF;
484: END LOOP;
485:
482: RETURN;
483: END IF;
484: END LOOP;
485:
486: FND_MESSAGE.SET_NAME('BOM','BOM_RTG_NTWK_VALID');
487: x_status := 'S'; -- NO LOOPS or BROKEN Link exists
488: x_message:= FND_MESSAGE.GET;
489:
490: ELSE
484: END LOOP;
485:
486: FND_MESSAGE.SET_NAME('BOM','BOM_RTG_NTWK_VALID');
487: x_status := 'S'; -- NO LOOPS or BROKEN Link exists
488: x_message:= FND_MESSAGE.GET;
489:
490: ELSE
491: -- nothing done when NO network exists
492: x_status := 'F'; -- NO Network