How to debug or how to find where the problem...

Question

Hi,
I didn't getting this proc where's getting the problem. In which proc is raising the error and where's the problme.
Please any body can help me getting out of from this error..
PROCEDURE Ysp_Payproc(udYrmonth IN Y_EMP_SAL_DETAILS.Yes_Year_Month%TYPE,
udBranch IN VARCHAR2,
O_ErrCd OUT VARCHAR2,
O_ErrMsg OUT VARCHAR2) IS
-- Get all active employees
udbasaflop Y_EMP_SAL_DETAILS.Yes_Amt%TYPE;
svErrCd VARCHAR2(12);
svErrMsg VARCHAR2(2000);
UdLopLvDays NUMBER;
udFromdate VARCHAR2(20);
udTodate VARCHAR2(20);
     udEarnAmt NUMBER;
     nChk NUMBER;
CURSOR curEmpnum IS
SELECT ROWNUM PNUM, Gem_Emp_Num
FROM G_EMPLOYEE_MASTER
WHERE Gem_Emp_Status = 'A' AND Gem_Sal_Flag = 'Y'
     AND TO_DATE(TO_CHAR(Gem_DOJ,'MMRRRR'),'MMRRRR')<=TO_DATE(udYrmonth,'MMRRRR')
AND Gem_Branch=udBranch
ORDER BY Gem_Emp_Num ;
BEGIN
-- Delete the existing records
DBMS_OUTPUT.PUT_LINE('udBranch');---310309
DELETE FROM Y_EMP_SAL_DETAILS WHERE YES_YEAR_MONTH = udYrmonth
     AND YES_EMP_NUM IN (SELECT GEM_EMP_NUM FROM G_EMPLOYEE_MASTER
     WHERE GEM_BRANCH=udBranch);
COMMIT;
DELETE FROM Y_PAYSLIP_DETAILS WHERE YPS_YEAR_MONTH = udYrmonth
     AND YPS_EMP_NUM IN (SELECT GEM_EMP_NUM FROM G_EMPLOYEE_MASTER
     WHERE GEM_BRANCH=udBranch);
COMMIT;
     SELECT NVL(COUNT(*),0)
     INTO NCHK
     FROM Y_PAYSLIP_MASTER
     WHERE YPY_YEAR_MONTH = udYrmonth;
     DBMS_OUTPUT.PUT_LINE('1');
     --COMMIT;
     -- CREATING RECORD IN y_payslip MASTER FOR THE CURRENT MONTH PROCESSING.
     IF NCHK=0 THEN
     DBMS_OUTPUT.PUT_LINE('2');
     INSERT INTO Y_PAYSLIP_MASTER
     (YPY_YEAR_MONTH, YPY_PAY_PROC_DONE, YPY_CRT_DT, YPY_CRT_UID)
     VALUES
     (udyrmonth, 'N', SYSDATE, 'HMS');
     COMMIT;
     END IF;
DBMS_OUTPUT.PUT_LINE('3');
PKG_PAYROLL.YSP_FROM_TO_DATE(udYrmonth,udFromDate,udToDate);
DBMS_OUTPUT.PUT_LINE('4');
FOR crEmpNum IN curEmpNum LOOP
-- Do loss of Pay processing
     DBMS_OUTPUT.PUT_LINE('5');
Pkg_Payroll.Ysplop(crEmpNum.Gem_Emp_Num,
udYrmonth,
udFromdate,
udtodate,
udbasaflop,
UdLopLvDays,
svErrCd,
svErrMsg);
IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
--CLOSE crEmpNum;
          DBMS_OUTPUT.PUT_LINE('Ysplop');
          O_ErrMsg := svErrMsg;
RETURN;
END IF;
     DBMS_OUTPUT.PUT_LINE('6');
Pkg_Payroll.Ysptotearn(crEmpNum.Gem_Emp_Num,
udbasaflop,
udyrmonth,
UdLopLvDays,
svErrCd,
svErrMsg);
IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
--CLOSE crEmpNum;
          DBMS_OUTPUT.PUT_LINE('YSPTOTEARN');          
O_ErrMsg := svErrMsg;
--RETURN;
END IF;
          DBMS_OUTPUT.PUT_LINE('7');
Pkg_Payroll.YSP_OTEARNING(crEmpNum.Gem_Emp_Num, udyrmonth, udearnamt,
                                        sVErrCd, sVErrmsg);
IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
--CLOSE crEmpNum;
          DBMS_OUTPUT.PUT_LINE('YSP_OTEARNING');          
O_ErrMsg := svErrMsg;
--RETURN;
END IF;
          DBMS_OUTPUT.PUT_LINE('8');
Pkg_Payroll.Ysptax(crEmpNum.Gem_Emp_Num,
udyrmonth,
svErrCd,
svErrMsg);
IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
--CLOSE crEmpNum;
          DBMS_OUTPUT.PUT_LINE('YSPTAX');          
O_ErrMsg := svErrMsg;
RETURN;
END IF;
-- Insert into Salary Details
          DBMS_OUTPUT.PUT_LINE('9');
Pkg_Payroll.YspAddPaySlip(crEmpNum.Gem_Emp_Num,
udYrmonth,
crEmpnum.pnum,
UdLopLvDays,
svErrCd,
svErrMsg);
IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
--CLOSE crEmpNum;
               DBMS_OUTPUT.PUT_LINE('YSPADDPAYSLIP');
O_ErrMsg := svErrMsg;
RETURN;
END IF;
               DBMS_OUTPUT.PUT_LINE(' BEFORE COMMIT');
COMMIT;
                    DBMS_OUTPUT.PUT_LINE('AFTER COMMIT');
END LOOP;
                    DBMS_OUTPUT.PUT_LINE('END LOOP END');
/*ROUNDING OFF THE TOTAL NETPAY AMOUNT FOR EACH EMPLOYEE AFTER PAYROLL PROCESS AND KEEP THE
ROUNDING AMOUNT IN THE Y_EMP_SAL_DETAILS IN 'BASIC' CODE*/
Select Sum(Decode(Yes_Earn_Deduct_Ind,'E',Yes_Amt,'D',-1*Yes_Amt))
into udRoundNetAmt
From Y_Emp_Sal_Details
Where Yes_Year_Month=udYearMonth
and Yes_Emp_Num=udEmpNum;
Ysp_Roundoff_Amt(udEmpNum,'BASIC',NVL(udbasafLop,0),udRoundoffAmt,udRoundAmount);*/
-- UPDATING AFTER PROCESSING FOR ALL EMPLYESS SUCCESSFULLY.
          DBMS_OUTPUT.PUT_LINE('11 YEAR MONTH =>'||udyrmonth);
UPDATE Y_PAYSLIP_MASTER
SET YPY_PAY_PROC_DONE = 'Y'
WHERE YPY_YEAR_MONTH = udyrmonth;
COMMIT;
     EXCEPTION
               WHEN OTHERS THEN
               DBMS_OUTPUT.PUT_LINE('12 =>'||SQLCODE||' Errom =>'||sqlerrm);
END Ysp_Payproc;
When I execute from Sql* plus window I am getting the error like
ORA-00001: unique constraint (HMS.PK_YES) violated

Answer 1

If you are using Oracle 10G ( select * from v$version)
create a small anonymous block and run your procedure and see if you can interpret the stack output
Declare
--Variables
Begin
--Execute SP
Exception
when others
DBMS_OUTPUT.PUT_LINE('Output for dbms_utility.format_error_stack');
DBMS_OUTPUT.PUT_LINE(dbms_utility.format_error_stack);
End;post the output for this
Formatted code
PROCEDURE Ysp_Payproc(udYrmonth IN Y_EMP_SAL_DETAILS.Yes_Year_Month%TYPE,
                      udBranch  IN VARCHAR2,
                      O_ErrCd   OUT VARCHAR2,
                      O_ErrMsg  OUT VARCHAR2) IS
  -- Get all active employees
  udbasaflop  Y_EMP_SAL_DETAILS.Yes_Amt%TYPE;
  svErrCd     VARCHAR2(12);
  svErrMsg    VARCHAR2(2000);
  UdLopLvDays NUMBER;
  udFromdate  VARCHAR2(20);
  udTodate    VARCHAR2(20);
  udEarnAmt   NUMBER;
  nChk        NUMBER;
  CURSOR curEmpnum IS
    SELECT ROWNUM PNUM, Gem_Emp_Num
      FROM G_EMPLOYEE_MASTER
     WHERE Gem_Emp_Status = 'A'
       AND Gem_Sal_Flag = 'Y'
       AND TO_DATE(TO_CHAR(Gem_DOJ, 'MMRRRR'), 'MMRRRR') <=
           TO_DATE(udYrmonth, 'MMRRRR')
       AND Gem_Branch = udBranch
     ORDER BY Gem_Emp_Num;
BEGIN
  -- Delete the existing records
  DBMS_OUTPUT.PUT_LINE('udBranch'); ---310309
  DELETE FROM Y_EMP_SAL_DETAILS
   WHERE YES_YEAR_MONTH = udYrmonth
     AND YES_EMP_NUM IN (SELECT GEM_EMP_NUM
                           FROM G_EMPLOYEE_MASTER
                          WHERE GEM_BRANCH = udBranch);
  COMMIT;
  DELETE FROM Y_PAYSLIP_DETAILS
   WHERE YPS_YEAR_MONTH = udYrmonth
     AND YPS_EMP_NUM IN (SELECT GEM_EMP_NUM
                           FROM G_EMPLOYEE_MASTER
                          WHERE GEM_BRANCH = udBranch);
  COMMIT;
  SELECT NVL(COUNT(*), 0)
    INTO NCHK
    FROM Y_PAYSLIP_MASTER
   WHERE YPY_YEAR_MONTH = udYrmonth;
  DBMS_OUTPUT.PUT_LINE('1');
  --COMMIT;
  -- CREATING RECORD IN y_payslip MASTER FOR THE CURRENT MONTH PROCESSING.
  IF NCHK = 0 THEN
    DBMS_OUTPUT.PUT_LINE('2');
    INSERT INTO Y_PAYSLIP_MASTER
      (YPY_YEAR_MONTH, YPY_PAY_PROC_DONE, YPY_CRT_DT, YPY_CRT_UID)
    VALUES
      (udyrmonth, 'N', SYSDATE, 'HMS');
    COMMIT;
  END IF;
  DBMS_OUTPUT.PUT_LINE('3');
  PKG_PAYROLL.YSP_FROM_TO_DATE(udYrmonth, udFromDate, udToDate);
  DBMS_OUTPUT.PUT_LINE('4');
  FOR crEmpNum IN curEmpNum LOOP
    -- Do loss of Pay processing
    DBMS_OUTPUT.PUT_LINE('5');
    Pkg_Payroll.Ysplop(crEmpNum.Gem_Emp_Num,
                       udYrmonth,
                       udFromdate,
                       udtodate,
                       udbasaflop,
                       UdLopLvDays,
                       svErrCd,
                       svErrMsg);
    IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
      --CLOSE crEmpNum;
      DBMS_OUTPUT.PUT_LINE('Ysplop');
      O_ErrMsg := svErrMsg;
      RETURN;
    END IF;
    DBMS_OUTPUT.PUT_LINE('6');
    Pkg_Payroll.Ysptotearn(crEmpNum.Gem_Emp_Num,
                           udbasaflop,
                           udyrmonth,
                           UdLopLvDays,
                           svErrCd,
                           svErrMsg);
    IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
      --CLOSE crEmpNum;
      DBMS_OUTPUT.PUT_LINE('YSPTOTEARN');
      O_ErrMsg := svErrMsg;
      --RETURN;
    END IF;
    DBMS_OUTPUT.PUT_LINE('7');
    Pkg_Payroll.YSP_OTEARNING(crEmpNum.Gem_Emp_Num,
                              udyrmonth,
                              udearnamt,
                              sVErrCd,
                              sVErrmsg);
    IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
      --CLOSE crEmpNum;
      DBMS_OUTPUT.PUT_LINE('YSP_OTEARNING');
      O_ErrMsg := svErrMsg;
      --RETURN;
    END IF;
    DBMS_OUTPUT.PUT_LINE('8');
    Pkg_Payroll.Ysptax(crEmpNum.Gem_Emp_Num, udyrmonth, svErrCd, svErrMsg);
    IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
      --CLOSE crEmpNum;
      DBMS_OUTPUT.PUT_LINE('YSPTAX');
      O_ErrMsg := svErrMsg;
      RETURN;
    END IF;
    -- Insert into Salary Details
    DBMS_OUTPUT.PUT_LINE('9');
    Pkg_Payroll.YspAddPaySlip(crEmpNum.Gem_Emp_Num,
                              udYrmonth,
                              crEmpnum.pnum,
                              UdLopLvDays,
                              svErrCd,
                              svErrMsg);
    IF svErrCd IS NOT NULL OR svErrMsg IS NOT NULL THEN
      --CLOSE crEmpNum;
      DBMS_OUTPUT.PUT_LINE('YSPADDPAYSLIP');
      O_ErrMsg := svErrMsg;
      RETURN;
    END IF;
    DBMS_OUTPUT.PUT_LINE(' BEFORE COMMIT');
    COMMIT;
    DBMS_OUTPUT.PUT_LINE('AFTER COMMIT');
  END LOOP;
  DBMS_OUTPUT.PUT_LINE('END LOOP END');
  /*ROUNDING OFF THE TOTAL NETPAY AMOUNT FOR EACH EMPLOYEE AFTER PAYROLL PROCESS AND KEEP THE
  ROUNDING AMOUNT IN THE Y_EMP_SAL_DETAILS IN 'BASIC' CODE*/
  Select Sum(Decode(Yes_Earn_Deduct_Ind,'E',Yes_Amt,'D',-1*Yes_Amt))
  into udRoundNetAmt
  From Y_Emp_Sal_Details
  Where Yes_Year_Month=udYearMonth
  and Yes_Emp_Num=udEmpNum;
  Ysp_Roundoff_Amt(udEmpNum,'BASIC',NVL(udbasafLop,0),udRoundoffAmt,udRoundAmount);*/
  -- UPDATING AFTER PROCESSING FOR ALL EMPLYESS SUCCESSFULLY.
  DBMS_OUTPUT.PUT_LINE('11 YEAR MONTH =>' || udyrmonth);
  UPDATE Y_PAYSLIP_MASTER
     SET YPY_PAY_PROC_DONE = 'Y'
   WHERE YPY_YEAR_MONTH = udyrmonth;
  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('12 =>' || SQLCODE || ' Errom =>' || sqlerrm);
END Ysp_Payproc;