[Home] [Help]
2504:
2505: -----------------------------------------------------------------------------
2506: PROCEDURE DeletePDMDestination(P_ReportID IN NUMBER) IS
2507: --------------------------------------------------------------------------------
2508: l_temp OIE_PDM_DESTINATIONS.PDM_DESTINATION_ID%type;
2509:
2510: -- Selects report lines to delete. The actual value being selected does not
2511: -- matter. For some reason the compiler complains when the OF column-name
2512: -- in the FOR UPDATE is missing and NOWAIT is used, so the OF
2512: -- in the FOR UPDATE is missing and NOWAIT is used, so the OF
2513: -- EMPLOYEE_FLAG is used as a place holder.
2514: CURSOR pdmDestination IS
2515: SELECT PDM_DESTINATION_ID
2516: FROM OIE_PDM_DESTINATIONS db, AP_EXPENSE_REPORT_LINES el
2517: WHERE (el.REPORT_HEADER_ID = P_ReportID AND
2518: el.REPORT_LINE_ID = db.REPORT_LINE_ID)
2519: FOR UPDATE OF PDM_DESTINATION_ID NOWAIT;
2520:
2528: FETCH pdmDestination into l_temp;
2529: EXIT WHEN pdmDestination%NOTFOUND;
2530:
2531: -- Delete matching line
2532: DELETE OIE_PDM_DESTINATIONS WHERE CURRENT OF pdmDestination;
2533: END LOOP;
2534:
2535: CLOSE pdmDestination;
2536:
3612: WHERE REPORT_LINE_ID = P_FROM_REPORT_LINE_ID;
3613:
3614: IF (L_CATEGORY_CODE = 'PER_DIEM') THEN
3615: -- COPY PDM DESTINATION
3616: INSERT INTO OIE_PDM_DESTINATIONS(PDM_DESTINATION_ID,
3617: REPORT_LINE_ID,
3618: START_DATE,
3619: END_DATE,
3620: LOCATION_ID,
3622: LAST_UPDATED_BY,
3623: LAST_UPDATE_LOGIN,
3624: CREATED_BY,
3625: CREATION_DATE)
3626: SELECT OIE_PDM_DESTINATIONS_S.nextval,
3627: p_to_report_line_id,
3628: START_DATE+AP_WEB_DB_EXPLINE_PKG.C_NumDaysRollForward,
3629: END_DATE+AP_WEB_DB_EXPLINE_PKG.C_NumDaysRollForward,
3630: LOCATION_ID,
3632: LAST_UPDATED_BY,
3633: LAST_UPDATE_LOGIN,
3634: CREATED_BY,
3635: SYSDATE
3636: FROM OIE_PDM_DESTINATIONS
3637: WHERE REPORT_LINE_ID = P_FROM_REPORT_LINE_ID;
3638: END IF;
3639: EXCEPTION WHEN OTHERS THEN
3640: null;