Help Requested Please

Question

HI,
There is a bug in the procedure and could you please help me in identifying the problem in thsi procedure?
PROCEDURE RunDealPOC
IS
vDealID e_deal.deal_id%TYPE;
vDealMgrID NUMBER;
vDealDirID NUMBER;
BEGIN
-- Fetch the first deal in the list
vDealID := vPOCDealList.FIRST;
LOOP
-- Exit the loop when there is no more deals to process.
EXIT WHEN vDealID IS NULL;
-- Select deal manager id for the deal
BEGIN
SELECT dp.user_id
INTO vDealMgrID
FROM deal_poc dp
WHERE dp.deal_id = vDealID
AND dp.poc_type_id = SecInfo.vPOCType(SecInfo.cPTDealMgr);
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
END;
-- Select deal director id for the deal
BEGIN
SELECT dp.user_id
INTO vDealDirID
FROM deal_poc dp
WHERE dp.deal_id = vDealID
AND dp.poc_type_id = SecInfo.vPOCType(SecInfo.cPTDealDir);
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
END;
-- If both deal manager and deal director are the same raise error.
IF vDealDirID = vDealMgrID
THEN
RAISE MercConst.DEAL_DIR_MGR_SAME_USER;
END IF;
-- Fetch the next deal id in the list.
vDealID := vPOCDealList.NEXT(vDealID);
END LOOP;
MercTrig.ClearDealPOC;
EXCEPTION
WHEN MercConst.DEAL_DIR_MGR_SAME_USER THEN
MercTrig.ClearDealPOC;
RAISE_APPLICATION_ERROR(MercConst.cenDEAL_DIR_MGR_SAME_USER,'~*Deal director and deal manager '
|| 'cannot be the same*~');
END;
--

Answer 1

1. "There is a bug in the procedure". That could be anything. How can you expect us to help you when you don't tell us anything?
2. Your subject line is useless - do you see anyone starting a thread that isn't requesting help? Normally I'd suggest an alternative but I can't since you still haven't told us what the problem is.
I STRONGLY urge you to read How to Ask Questions the Smart Way by Eric Raymond, and
The 10 Commandments of OTN Forum Posting.