[Home] [Help]
342: If ( l_billed = 'Y' ) then
343:
344: write_log (LOG, 'Invoice eligible for release');
345: --Make entry in the report table
346: INSERT INTO PA_PWP_RELEASE_REPORT
347: (
348: ORG_ID,
349: REQUEST_ID,
350: PROJECT_ID,
375: else
376: write_log (LOG,'Billed completly ? ' || l_billed );
377: write_log (LOG, 'Invoice will not be released' );
378:
379: INSERT INTO PA_PWP_RELEASE_REPORT
380: (
381: ORG_ID,
382: REQUEST_ID,
383: PROJECT_ID,
411: End if ; -- is billed
412:
413: else -- is eligible
414: write_log (LOG, 'Project on hold' );
415: INSERT INTO PA_PWP_RELEASE_REPORT
416: (
417: ORG_ID,
418: REQUEST_ID,
419: PROJECT_ID,
451: write_log (LOG, 'End of Linked Invoice Processing' );
452: write_log (LOG, 'Start of Unlinked Invoice Processing' );
453:
454: FOR invrec IN sel_inv_unlink LOOP
455: INSERT INTO PA_PWP_RELEASE_REPORT
456: (
457: ORG_ID,
458: REQUEST_ID,
459: PROJECT_ID,
486: FETCH cur_inv_unbillable BULK COLLECT INTO l_unbill_invids;
487: CLOSE cur_inv_unbillable;
488: if l_unbill_invids.count > 0 then
489: FORALL i IN l_unbill_invids.FIRST..l_unbill_invids.LAST
490: INSERT INTO PA_PWP_RELEASE_REPORT
491: (
492: ORG_ID,
493: REQUEST_ID,
494: AP_INVOICE_ID,
526: if upper(p_mode) = 'FINAL' then
527: write_log(LOG , 'FINAL Mode - Calling API to release hold');
528:
529: select ap_invoice_id bulk collect into l_inv_tab
530: from PA_PWP_RELEASE_REPORT
531: where nvl(CUSTOM_RELEASE_FLAG,RELEASE_FLAG) = 'Y' and request_id = G_REQUEST_ID ;
532:
533: paap_release_hold ( l_Inv_Tab
534: ,l_return_status
851: BEGIN
852: SELECT 'Y' into v_tmp
853: FROM dual
854: WHERE EXISTS
855: ( select 1 from PA_PWP_RELEASE_REPORT
856: where request_id = G_REQUEST_ID and AP_INVOICE_ID = p_invoice_id );
857:
858:
859: return v_tmp;