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