111: x_error_message IN OUT NOCOPY VARCHAR2) is --File.Sql.39 bug 4440895
112: c INTEGER;
113: row_processed INTEGER;
114: proc_stmt VARCHAR2(1000);
115: l_project_type pa_projects_all.project_type%type;
116: l_distribution_rule pa_projects_all.distribution_rule%type;
117: cursor get_procedure is
118: select be.procedure_name proc_name, bea.billing_assignment_id bea_id,
119: bea.billing_extension_id be_id, bea.top_task_id task_id,
112: c INTEGER;
113: row_processed INTEGER;
114: proc_stmt VARCHAR2(1000);
115: l_project_type pa_projects_all.project_type%type;
116: l_distribution_rule pa_projects_all.distribution_rule%type;
117: cursor get_procedure is
118: select be.procedure_name proc_name, bea.billing_assignment_id bea_id,
119: bea.billing_extension_id be_id, bea.top_task_id task_id,
120: decode(be.amount_reqd_flag, 'Y', nvl(bea.amount, 0), 0) amt,
120: decode(be.amount_reqd_flag, 'Y', nvl(bea.amount, 0), 0) amt,
121: decode(be.percentage_reqd_flag, 'Y', nvl(bea.percentage, 0), 0)
122: percent
123: from pa_billing_extensions be, pa_billing_assignments bea -- , Commented for bug 3643409
124: -- pa_projects p Commented for bug 3643409
125: where -- p.project_id = x_project_id Commented for bug 3643409
126: -- and Commented for bug 3643409
127: bea.active_flag = 'Y'
128: and bea.billing_extension_id = be.billing_extension_id
228:
229: /* Added below select statement for bug 3643409 */
230: SELECT project_type,distribution_rule
231: INTO l_project_type,l_distribution_rule
232: FROM pa_projects_all
233: WHERE project_id = x_project_id;
234:
235: FOR get_rec IN get_procedure LOOP
236: -- Loop for each assigned Billing Extension
400:
401: ccrev_error EXCEPTION;
402:
403: /* MCB related changes */
404: l_multi_currency_billing_flag pa_projects_all.MULTI_CURRENCY_BILLING_FLAG%TYPE;
405: l_baseline_funding_flag pa_projects_all.BASELINE_FUNDING_FLAG%TYPE;
406: l_revproc_currency_code pa_projects_all.revproc_currency_code%TYPE;
407: l_invproc_currency_code VARCHAR2(30);
408: l_invproc_currency_type pa_projects_all.invproc_currency_type%TYPE;
401: ccrev_error EXCEPTION;
402:
403: /* MCB related changes */
404: l_multi_currency_billing_flag pa_projects_all.MULTI_CURRENCY_BILLING_FLAG%TYPE;
405: l_baseline_funding_flag pa_projects_all.BASELINE_FUNDING_FLAG%TYPE;
406: l_revproc_currency_code pa_projects_all.revproc_currency_code%TYPE;
407: l_invproc_currency_code VARCHAR2(30);
408: l_invproc_currency_type pa_projects_all.invproc_currency_type%TYPE;
409: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
402:
403: /* MCB related changes */
404: l_multi_currency_billing_flag pa_projects_all.MULTI_CURRENCY_BILLING_FLAG%TYPE;
405: l_baseline_funding_flag pa_projects_all.BASELINE_FUNDING_FLAG%TYPE;
406: l_revproc_currency_code pa_projects_all.revproc_currency_code%TYPE;
407: l_invproc_currency_code VARCHAR2(30);
408: l_invproc_currency_type pa_projects_all.invproc_currency_type%TYPE;
409: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
410: l_project_bil_rate_date_code pa_projects_all.project_bil_rate_date_code%TYPE;
404: l_multi_currency_billing_flag pa_projects_all.MULTI_CURRENCY_BILLING_FLAG%TYPE;
405: l_baseline_funding_flag pa_projects_all.BASELINE_FUNDING_FLAG%TYPE;
406: l_revproc_currency_code pa_projects_all.revproc_currency_code%TYPE;
407: l_invproc_currency_code VARCHAR2(30);
408: l_invproc_currency_type pa_projects_all.invproc_currency_type%TYPE;
409: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
410: l_project_bil_rate_date_code pa_projects_all.project_bil_rate_date_code%TYPE;
411: l_project_bil_rate_type pa_projects_all.project_bil_rate_type%TYPE;
412: l_project_bil_rate_date pa_projects_all.project_bil_rate_date%TYPE;
405: l_baseline_funding_flag pa_projects_all.BASELINE_FUNDING_FLAG%TYPE;
406: l_revproc_currency_code pa_projects_all.revproc_currency_code%TYPE;
407: l_invproc_currency_code VARCHAR2(30);
408: l_invproc_currency_type pa_projects_all.invproc_currency_type%TYPE;
409: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
410: l_project_bil_rate_date_code pa_projects_all.project_bil_rate_date_code%TYPE;
411: l_project_bil_rate_type pa_projects_all.project_bil_rate_type%TYPE;
412: l_project_bil_rate_date pa_projects_all.project_bil_rate_date%TYPE;
413: l_project_bil_exchange_rate pa_projects_all.project_bil_exchange_rate%TYPE;
406: l_revproc_currency_code pa_projects_all.revproc_currency_code%TYPE;
407: l_invproc_currency_code VARCHAR2(30);
408: l_invproc_currency_type pa_projects_all.invproc_currency_type%TYPE;
409: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
410: l_project_bil_rate_date_code pa_projects_all.project_bil_rate_date_code%TYPE;
411: l_project_bil_rate_type pa_projects_all.project_bil_rate_type%TYPE;
412: l_project_bil_rate_date pa_projects_all.project_bil_rate_date%TYPE;
413: l_project_bil_exchange_rate pa_projects_all.project_bil_exchange_rate%TYPE;
414: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
407: l_invproc_currency_code VARCHAR2(30);
408: l_invproc_currency_type pa_projects_all.invproc_currency_type%TYPE;
409: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
410: l_project_bil_rate_date_code pa_projects_all.project_bil_rate_date_code%TYPE;
411: l_project_bil_rate_type pa_projects_all.project_bil_rate_type%TYPE;
412: l_project_bil_rate_date pa_projects_all.project_bil_rate_date%TYPE;
413: l_project_bil_exchange_rate pa_projects_all.project_bil_exchange_rate%TYPE;
414: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
415: l_projfunc_bil_rate_date_code pa_projects_all.projfunc_bil_rate_date_code%TYPE;
408: l_invproc_currency_type pa_projects_all.invproc_currency_type%TYPE;
409: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
410: l_project_bil_rate_date_code pa_projects_all.project_bil_rate_date_code%TYPE;
411: l_project_bil_rate_type pa_projects_all.project_bil_rate_type%TYPE;
412: l_project_bil_rate_date pa_projects_all.project_bil_rate_date%TYPE;
413: l_project_bil_exchange_rate pa_projects_all.project_bil_exchange_rate%TYPE;
414: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
415: l_projfunc_bil_rate_date_code pa_projects_all.projfunc_bil_rate_date_code%TYPE;
416: l_projfunc_bil_rate_type pa_projects_all.projfunc_bil_rate_type%TYPE;
409: l_project_currency_code pa_projects_all.project_currency_code%TYPE;
410: l_project_bil_rate_date_code pa_projects_all.project_bil_rate_date_code%TYPE;
411: l_project_bil_rate_type pa_projects_all.project_bil_rate_type%TYPE;
412: l_project_bil_rate_date pa_projects_all.project_bil_rate_date%TYPE;
413: l_project_bil_exchange_rate pa_projects_all.project_bil_exchange_rate%TYPE;
414: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
415: l_projfunc_bil_rate_date_code pa_projects_all.projfunc_bil_rate_date_code%TYPE;
416: l_projfunc_bil_rate_type pa_projects_all.projfunc_bil_rate_type%TYPE;
417: l_projfunc_bil_rate_date pa_projects_all.projfunc_bil_rate_date%TYPE;
410: l_project_bil_rate_date_code pa_projects_all.project_bil_rate_date_code%TYPE;
411: l_project_bil_rate_type pa_projects_all.project_bil_rate_type%TYPE;
412: l_project_bil_rate_date pa_projects_all.project_bil_rate_date%TYPE;
413: l_project_bil_exchange_rate pa_projects_all.project_bil_exchange_rate%TYPE;
414: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
415: l_projfunc_bil_rate_date_code pa_projects_all.projfunc_bil_rate_date_code%TYPE;
416: l_projfunc_bil_rate_type pa_projects_all.projfunc_bil_rate_type%TYPE;
417: l_projfunc_bil_rate_date pa_projects_all.projfunc_bil_rate_date%TYPE;
418: l_projfunc_bil_exchange_rate pa_projects_all.projfunc_bil_exchange_rate%TYPE;
411: l_project_bil_rate_type pa_projects_all.project_bil_rate_type%TYPE;
412: l_project_bil_rate_date pa_projects_all.project_bil_rate_date%TYPE;
413: l_project_bil_exchange_rate pa_projects_all.project_bil_exchange_rate%TYPE;
414: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
415: l_projfunc_bil_rate_date_code pa_projects_all.projfunc_bil_rate_date_code%TYPE;
416: l_projfunc_bil_rate_type pa_projects_all.projfunc_bil_rate_type%TYPE;
417: l_projfunc_bil_rate_date pa_projects_all.projfunc_bil_rate_date%TYPE;
418: l_projfunc_bil_exchange_rate pa_projects_all.projfunc_bil_exchange_rate%TYPE;
419: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
412: l_project_bil_rate_date pa_projects_all.project_bil_rate_date%TYPE;
413: l_project_bil_exchange_rate pa_projects_all.project_bil_exchange_rate%TYPE;
414: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
415: l_projfunc_bil_rate_date_code pa_projects_all.projfunc_bil_rate_date_code%TYPE;
416: l_projfunc_bil_rate_type pa_projects_all.projfunc_bil_rate_type%TYPE;
417: l_projfunc_bil_rate_date pa_projects_all.projfunc_bil_rate_date%TYPE;
418: l_projfunc_bil_exchange_rate pa_projects_all.projfunc_bil_exchange_rate%TYPE;
419: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
420: l_funding_rate_type pa_projects_all.funding_rate_type%TYPE;
413: l_project_bil_exchange_rate pa_projects_all.project_bil_exchange_rate%TYPE;
414: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
415: l_projfunc_bil_rate_date_code pa_projects_all.projfunc_bil_rate_date_code%TYPE;
416: l_projfunc_bil_rate_type pa_projects_all.projfunc_bil_rate_type%TYPE;
417: l_projfunc_bil_rate_date pa_projects_all.projfunc_bil_rate_date%TYPE;
418: l_projfunc_bil_exchange_rate pa_projects_all.projfunc_bil_exchange_rate%TYPE;
419: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
420: l_funding_rate_type pa_projects_all.funding_rate_type%TYPE;
421: l_funding_rate_date pa_projects_all.funding_rate_date%TYPE;
414: l_projfunc_currency_code pa_projects_all.projfunc_currency_code%TYPE;
415: l_projfunc_bil_rate_date_code pa_projects_all.projfunc_bil_rate_date_code%TYPE;
416: l_projfunc_bil_rate_type pa_projects_all.projfunc_bil_rate_type%TYPE;
417: l_projfunc_bil_rate_date pa_projects_all.projfunc_bil_rate_date%TYPE;
418: l_projfunc_bil_exchange_rate pa_projects_all.projfunc_bil_exchange_rate%TYPE;
419: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
420: l_funding_rate_type pa_projects_all.funding_rate_type%TYPE;
421: l_funding_rate_date pa_projects_all.funding_rate_date%TYPE;
422: l_funding_exchange_rate pa_projects_all.funding_exchange_rate%TYPE;
415: l_projfunc_bil_rate_date_code pa_projects_all.projfunc_bil_rate_date_code%TYPE;
416: l_projfunc_bil_rate_type pa_projects_all.projfunc_bil_rate_type%TYPE;
417: l_projfunc_bil_rate_date pa_projects_all.projfunc_bil_rate_date%TYPE;
418: l_projfunc_bil_exchange_rate pa_projects_all.projfunc_bil_exchange_rate%TYPE;
419: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
420: l_funding_rate_type pa_projects_all.funding_rate_type%TYPE;
421: l_funding_rate_date pa_projects_all.funding_rate_date%TYPE;
422: l_funding_exchange_rate pa_projects_all.funding_exchange_rate%TYPE;
423: l_return_status VARCHAR2(30);
416: l_projfunc_bil_rate_type pa_projects_all.projfunc_bil_rate_type%TYPE;
417: l_projfunc_bil_rate_date pa_projects_all.projfunc_bil_rate_date%TYPE;
418: l_projfunc_bil_exchange_rate pa_projects_all.projfunc_bil_exchange_rate%TYPE;
419: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
420: l_funding_rate_type pa_projects_all.funding_rate_type%TYPE;
421: l_funding_rate_date pa_projects_all.funding_rate_date%TYPE;
422: l_funding_exchange_rate pa_projects_all.funding_exchange_rate%TYPE;
423: l_return_status VARCHAR2(30);
424: l_msg_count NUMBER;
417: l_projfunc_bil_rate_date pa_projects_all.projfunc_bil_rate_date%TYPE;
418: l_projfunc_bil_exchange_rate pa_projects_all.projfunc_bil_exchange_rate%TYPE;
419: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
420: l_funding_rate_type pa_projects_all.funding_rate_type%TYPE;
421: l_funding_rate_date pa_projects_all.funding_rate_date%TYPE;
422: l_funding_exchange_rate pa_projects_all.funding_exchange_rate%TYPE;
423: l_return_status VARCHAR2(30);
424: l_msg_count NUMBER;
425: l_msg_data VARCHAR2(30);
418: l_projfunc_bil_exchange_rate pa_projects_all.projfunc_bil_exchange_rate%TYPE;
419: l_funding_rate_date_code pa_projects_all.funding_rate_date_code%TYPE;
420: l_funding_rate_type pa_projects_all.funding_rate_type%TYPE;
421: l_funding_rate_date pa_projects_all.funding_rate_date%TYPE;
422: l_funding_exchange_rate pa_projects_all.funding_exchange_rate%TYPE;
423: l_return_status VARCHAR2(30);
424: l_msg_count NUMBER;
425: l_msg_data VARCHAR2(30);
426: /* Till Here */
887: | X_Option : I - Update Only Invoice Amounts |
888: | R - Update Only Revenue Amounts |
889: | B - Update Both Revenue/Invoice Amounts |
890: | |
891: | X_proj_id : pa_projects.project_id |
892: | X_start_proj_num : Start project Number (pa_projects.segment1) |
893: | X_end_proj_num : End project Number (pa_projects.segment1) |
894: | |
895: | |
888: | R - Update Only Revenue Amounts |
889: | B - Update Both Revenue/Invoice Amounts |
890: | |
891: | X_proj_id : pa_projects.project_id |
892: | X_start_proj_num : Start project Number (pa_projects.segment1) |
893: | X_end_proj_num : End project Number (pa_projects.segment1) |
894: | |
895: | |
896: | Called from : PARGDR - Generate Draft Revenue |
889: | B - Update Both Revenue/Invoice Amounts |
890: | |
891: | X_proj_id : pa_projects.project_id |
892: | X_start_proj_num : Start project Number (pa_projects.segment1) |
893: | X_end_proj_num : End project Number (pa_projects.segment1) |
894: | |
895: | |
896: | Called from : PARGDR - Generate Draft Revenue |
897: | PAIGEN - Generate Draft Invoice |
913:
914: g1_debug_mode varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
915:
916: /*--------------------------------------------------------------------------
917: | Cursor For Selecting AND Locking PA_PROJECTS TABLE |
918: --------------------------------------------------------------------------*/
919:
920: /* CURSOR sel_proj is
921: SELECT project_id
918: --------------------------------------------------------------------------*/
919:
920: /* CURSOR sel_proj is
921: SELECT project_id
922: FROM pa_projects
923: WHERE ( ( nvl(X_proj_id,0) <> 0
924: AND project_id = X_proj_id )
925: OR ( nvl(X_proj_id,0) = 0
926: AND segment1 between X_start_proj_num
930: /* Fix for bug 3372249 Starts here */
931:
932: CURSOR sel_proj is
933: SELECT project_id
934: FROM pa_projects
935: WHERE project_id = X_proj_id
936: FOR UPDATE OF project_id;
937:
938: CURSOR sel_proj_seg is
936: FOR UPDATE OF project_id;
937:
938: CURSOR sel_proj_seg is
939: SELECT project_id
940: FROM pa_projects
941: WHERE segment1 between X_start_proj_num
942: and X_end_proj_num
943: FOR UPDATE OF project_id;
944:
982: sum(dri.funding_revenue_amount) dri_funding_amount,dri.funding_currency_code
983: FROM pa_draft_revenue_items dri,
984: pa_draft_revenues dr,
985: pa_summary_project_fundings pf,
986: pa_projects p /* Added pa_projects for bug 3647592 */
987: WHERE dri.project_id = dr.project_id
988: AND dri.draft_revenue_num = dr.draft_revenue_num
989: AND ( (nvl(pf.task_id,0) = 0 AND nvl(p.project_level_funding_flag,'N')='Y')
990: OR dri.task_id = decode(p.project_level_funding_flag,'Y',0,pf.task_id) ) /* Added decode condition for bug 3647592 */
1800: /* Commenting the following line for bug 2638840
1801: rev_amount( j ) := to_char(l_ind_cost_denm); */
1802:
1803: /* Changes for bug 2638840 */
1804: /* Bug 2638840 : Get the BTC_COST_BASE_REV_CODE from pa_projects_all table */
1805: BEGIN
1806:
1807: /* Added the following nvl so that code doesn't break even if upgrade script fails - For bug 2724185 */
1808:
1807: /* Added the following nvl so that code doesn't break even if upgrade script fails - For bug 2724185 */
1808:
1809: select nvl(BTC_COST_BASE_REV_CODE,'EXP_TRANS_CURR')
1810: into l_mcb_cost_flag
1811: from pa_projects_all
1812: where project_id =(select project_id from pa_expenditure_items_all where expenditure_item_id=ei_id(j));
1813:
1814: EXCEPTION
1815: WHEN NO_DATA_FOUND THEN