[Home] [Help]
2462:
2463: -----------------------------------------------------------------------------
2464: PROCEDURE DeletePDMDailyBreakup(P_ReportID IN NUMBER) IS
2465: --------------------------------------------------------------------------------
2466: l_temp OIE_PDM_DAILY_BREAKUPS.PDM_DAILY_BREAKUP_ID%type;
2467:
2468: -- Selects report lines to delete. The actual value being selected does not
2469: -- matter. For some reason the compiler complains when the OF column-name
2470: -- in the FOR UPDATE is missing and NOWAIT is used, so the OF
2470: -- in the FOR UPDATE is missing and NOWAIT is used, so the OF
2471: -- EMPLOYEE_FLAG is used as a place holder.
2472: CURSOR dailyBreakup IS
2473: SELECT PDM_DAILY_BREAKUP_ID
2474: FROM OIE_PDM_DAILY_BREAKUPS db, AP_EXPENSE_REPORT_LINES el
2475: WHERE (el.REPORT_HEADER_ID = P_ReportID AND
2476: el.REPORT_LINE_ID = db.REPORT_LINE_ID)
2477: FOR UPDATE OF PDM_DESTINATION_ID NOWAIT;
2478:
2486: FETCH dailyBreakup into l_temp;
2487: EXIT WHEN dailyBreakup%NOTFOUND;
2488:
2489: -- Delete matching line
2490: DELETE OIE_PDM_DAILY_BREAKUPS WHERE CURRENT OF dailyBreakup;
2491: END LOOP;
2492:
2493: CLOSE dailyBreakup;
2494:
3548: WHERE REPORT_LINE_ID = P_FROM_REPORT_LINE_ID;
3549:
3550: IF (L_CATEGORY_CODE = 'PER_DIEM') THEN
3551: -- COPY PDM DAILY BREAKUP
3552: INSERT INTO OIE_PDM_DAILY_BREAKUPS(PDM_DAILY_BREAKUP_ID,
3553: REPORT_LINE_ID,
3554: START_DATE,
3555: END_DATE,
3556: AMOUNT,
3571: LAST_UPDATED_BY,
3572: LAST_UPDATE_LOGIN,
3573: CREATED_BY,
3574: CREATION_DATE)
3575: SELECT OIE_PDM_DAILY_BREAKUPS_S.nextval,
3576: p_to_report_line_id,
3577: START_DATE+AP_WEB_DB_EXPLINE_PKG.C_NumDaysRollForward,
3578: END_DATE+AP_WEB_DB_EXPLINE_PKG.C_NumDaysRollForward,
3579: AMOUNT,
3594: LAST_UPDATED_BY,
3595: LAST_UPDATE_LOGIN,
3596: CREATED_BY,
3597: SYSDATE
3598: FROM OIE_PDM_DAILY_BREAKUPS
3599: WHERE REPORT_LINE_ID = P_FROM_REPORT_LINE_ID;
3600: END IF;
3601: EXCEPTION WHEN OTHERS THEN
3602: null;