[Home] [Help]
2255:
2256: -----------------------------------------------------------------------------
2257: PROCEDURE DeletePDMDestination(P_ReportID IN NUMBER) IS
2258: --------------------------------------------------------------------------------
2259: l_temp OIE_PDM_DESTINATIONS.PDM_DESTINATION_ID%type;
2260:
2261: -- Selects report lines to delete. The actual value being selected does not
2262: -- matter. For some reason the compiler complains when the OF column-name
2263: -- in the FOR UPDATE is missing and NOWAIT is used, so the OF
2263: -- in the FOR UPDATE is missing and NOWAIT is used, so the OF
2264: -- EMPLOYEE_FLAG is used as a place holder.
2265: CURSOR pdmDestination IS
2266: SELECT PDM_DESTINATION_ID
2267: FROM OIE_PDM_DESTINATIONS db, AP_EXPENSE_REPORT_LINES el
2268: WHERE (el.REPORT_HEADER_ID = P_ReportID AND
2269: el.REPORT_LINE_ID = db.REPORT_LINE_ID)
2270: FOR UPDATE OF PDM_DESTINATION_ID NOWAIT;
2271:
2279: FETCH pdmDestination into l_temp;
2280: EXIT WHEN pdmDestination%NOTFOUND;
2281:
2282: -- Delete matching line
2283: DELETE OIE_PDM_DESTINATIONS WHERE CURRENT OF pdmDestination;
2284: END LOOP;
2285:
2286: CLOSE pdmDestination;
2287:
3327: WHERE REPORT_LINE_ID = P_FROM_REPORT_LINE_ID;
3328:
3329: IF (L_CATEGORY_CODE = 'PER_DIEM') THEN
3330: -- COPY PDM DESTINATION
3331: INSERT INTO OIE_PDM_DESTINATIONS(PDM_DESTINATION_ID,
3332: REPORT_LINE_ID,
3333: START_DATE,
3334: END_DATE,
3335: LOCATION_ID,
3337: LAST_UPDATED_BY,
3338: LAST_UPDATE_LOGIN,
3339: CREATED_BY,
3340: CREATION_DATE)
3341: SELECT OIE_PDM_DESTINATIONS_S.nextval,
3342: p_to_report_line_id,
3343: START_DATE+AP_WEB_DB_EXPLINE_PKG.C_NumDaysRollForward,
3344: END_DATE+AP_WEB_DB_EXPLINE_PKG.C_NumDaysRollForward,
3345: LOCATION_ID,
3347: LAST_UPDATED_BY,
3348: LAST_UPDATE_LOGIN,
3349: CREATED_BY,
3350: SYSDATE
3351: FROM OIE_PDM_DESTINATIONS
3352: WHERE REPORT_LINE_ID = P_FROM_REPORT_LINE_ID;
3353: END IF;
3354: EXCEPTION WHEN OTHERS THEN
3355: null;