[Home] [Help]
2213:
2214: -----------------------------------------------------------------------------
2215: PROCEDURE DeletePDMDailyBreakup(P_ReportID IN NUMBER) IS
2216: --------------------------------------------------------------------------------
2217: l_temp OIE_PDM_DAILY_BREAKUPS.PDM_DAILY_BREAKUP_ID%type;
2218:
2219: -- Selects report lines to delete. The actual value being selected does not
2220: -- matter. For some reason the compiler complains when the OF column-name
2221: -- in the FOR UPDATE is missing and NOWAIT is used, so the OF
2221: -- in the FOR UPDATE is missing and NOWAIT is used, so the OF
2222: -- EMPLOYEE_FLAG is used as a place holder.
2223: CURSOR dailyBreakup IS
2224: SELECT PDM_DAILY_BREAKUP_ID
2225: FROM OIE_PDM_DAILY_BREAKUPS db, AP_EXPENSE_REPORT_LINES el
2226: WHERE (el.REPORT_HEADER_ID = P_ReportID AND
2227: el.REPORT_LINE_ID = db.REPORT_LINE_ID)
2228: FOR UPDATE OF PDM_DESTINATION_ID NOWAIT;
2229:
2237: FETCH dailyBreakup into l_temp;
2238: EXIT WHEN dailyBreakup%NOTFOUND;
2239:
2240: -- Delete matching line
2241: DELETE OIE_PDM_DAILY_BREAKUPS WHERE CURRENT OF dailyBreakup;
2242: END LOOP;
2243:
2244: CLOSE dailyBreakup;
2245:
3263: WHERE REPORT_LINE_ID = P_FROM_REPORT_LINE_ID;
3264:
3265: IF (L_CATEGORY_CODE = 'PER_DIEM') THEN
3266: -- COPY PDM DAILY BREAKUP
3267: INSERT INTO OIE_PDM_DAILY_BREAKUPS(PDM_DAILY_BREAKUP_ID,
3268: REPORT_LINE_ID,
3269: START_DATE,
3270: END_DATE,
3271: AMOUNT,
3286: LAST_UPDATED_BY,
3287: LAST_UPDATE_LOGIN,
3288: CREATED_BY,
3289: CREATION_DATE)
3290: SELECT OIE_PDM_DAILY_BREAKUPS_S.nextval,
3291: p_to_report_line_id,
3292: START_DATE+AP_WEB_DB_EXPLINE_PKG.C_NumDaysRollForward,
3293: END_DATE+AP_WEB_DB_EXPLINE_PKG.C_NumDaysRollForward,
3294: AMOUNT,
3309: LAST_UPDATED_BY,
3310: LAST_UPDATE_LOGIN,
3311: CREATED_BY,
3312: SYSDATE
3313: FROM OIE_PDM_DAILY_BREAKUPS
3314: WHERE REPORT_LINE_ID = P_FROM_REPORT_LINE_ID;
3315: END IF;
3316: EXCEPTION WHEN OTHERS THEN
3317: null;