[Home] [Help]
1: PACKAGE BODY pa_funding_core AS
2: /* $Header: PAXBIPFB.pls 120.4.12020000.2 2012/10/05 08:46:00 paljain ship $ */
3:
4: -- ==========================================================================
5: -- Get_funding is used to get funding amount for a specified
45: l_total_unbaselined_amount number;
46: l_total_baselined_amount number;
47:
48: BEGIN
49: --dbms_output.put_line('Inside:PA_FUNDING_CORE.CHECK_FUND_ALLOCATED');
50: --dbms_output.put_line('Agreement_id = '||nvl(to_char(p_agreement_id),'NULL'));
51: Select sum(total_unbaselined_amount) , sum(total_baselined_amount)
52: Into l_total_unbaselined_amount, l_total_baselined_amount
53: From Pa_summary_project_fundings
168: l_proj_type VARCHAR2(30);
169: l_proj_type1 VARCHAR2(30);
170:
171: BEGIN
172: --dbms_output.put_line('Inside: PA_FUNDING_CORE.CHECK_VALID_PROJECT');
173: --dbms_output.put_line('Customer_id: '||nvl(to_char(p_customer_id),'NULL'));
174:
175: Open c1;
176: fetch c1 into project_exists;
242:
243: l_fund_rec1 c1%ROWTYPE;
244:
245: BEGIN
246: --dbms_output.put_line('Inside: PA_FUNDING_CORE.GET_FUNDING_ID');
247: IF p_funding_reference is NOT NULL
248: OR (p_funding_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
249: THEN
250: OPEN c1;
276: ) RETURN VARCHAR2
277: IS
278: task_exists number;
279: BEGIN
280: --dbms_output.put_line('Inside: PA_FUNDING_CORE.CHECK_VALID_TASK');
281: --dbms_output.put_line('p_task_id:'||nvl(to_char(p_task_id),'NULL'));
282: IF p_task_id is not null THEN
283: --dbms_output.put_line('Task id is not null');
284: Select 1
581:
582: Is_agr_fund_ok varchar2(1) := 'N';
583:
584: BEGIN
585: --dbms_output.put_line('Inside: PA_FUNDING_CORE.CHECK_PROJ_AGR_FUND_OK');
586: SELECT 'Y'
587: INTO Is_agr_fund_ok
588: FROM PA_PROJECTS_ALL P, PA_AGREEMENTS_ALL A
589: WHERE P.PROJECT_ID = p_project_id
612: where spf.project_id <> p.project_id
613: and spf.agreement_id = a.agreement_id))
614: ) ;
615:
616: --dbms_output.put_line('Outside: PA_FUNDING_CORE.CHECK_PROJ_AGR_FUND_OK');
617: RETURN 'Y';
618:
619: EXCEPTION WHEN NO_DATA_FOUND THEN
620: --dbms_output.put_line('Outside:Exception PA_FUNDING_CORE.CHECK_PROJ_AGR_FUND_OK');
616: --dbms_output.put_line('Outside: PA_FUNDING_CORE.CHECK_PROJ_AGR_FUND_OK');
617: RETURN 'Y';
618:
619: EXCEPTION WHEN NO_DATA_FOUND THEN
620: --dbms_output.put_line('Outside:Exception PA_FUNDING_CORE.CHECK_PROJ_AGR_FUND_OK');
621: RETURN 'N';
622: END check_proj_agr_fund_ok;
623:
624:
653:
654: dummy_amount number;
655: Is_level_change_valid varchar2(1);
656: BEGIN
657: --dbms_output.put_line('Inside: PA_FUNDING_CORE.CHECK_PROJ_TASK_LVL_FUNDING');
658:
659: Is_level_change_valid := check_level_change(p_agreement_id,p_project_id,p_task_id);
660:
661: IF p_task_id is null THEN
705: END IF;
706:
707: END IF;
708: RETURN 'Y';
709: --dbms_output.put_line('Outside: PA_FUNDING_CORE.CHECK_PROJ_TASK_LVL_FUNDING');
710: END check_proj_task_lvl_funding;
711:
712: --
713: --Name: check_project_type
858: l_revproc_allocated_amount NUMBER;
859: l_allocated_amount NUMBER; --Bug 14666538
860: BEGIN
861:
862: --dbms_output.put_line('Inside: pa_funding_core.create_funding');
863:
864: --dbms_output.put_line( p_Project_Funding_Id);
865: --dbms_output.put_line( p_Last_Update_Date );
866: --dbms_output.put_line( p_Last_Updated_By);
872: --dbms_output.put_line(nvl(to_char(p_Task_Id),'NULL'));
873: --dbms_output.put_line( p_Allocated_Amount);
874: --dbms_output.put_line( p_Date_Allocated);
875:
876: --dbms_output.put_line('Inside: pa_funding_core.create_funding inserting row');
877:
878: x_err_code := 0;
879: x_err_msg := NULL;
880:
1354: open c1;
1355: fetch c1 into dummy;
1356:
1357: IF (c1%found) THEN
1358: pa_funding_core.summary_funding_update_row ( p_agreement_id
1359: ,p_project_id
1360: ,p_task_id
1361: ,p_login_id
1362: ,p_user_id
1431: END IF;
1432: close c1;
1433: exception
1434: WHEN NO_DATA_FOUND THEN
1435: pa_funding_core.summary_funding_update_row ( p_agreement_id
1436: ,p_project_id
1437: ,p_task_id
1438: ,p_login_id
1439: ,p_user_id
1497: AND NVL(S.TASK_ID,0) = NVL(p_task_id,0);
1498:
1499: IF (SQL%NOTFOUND) THEN
1500:
1501: pa_funding_core.summary_funding_insert_row ( p_agreement_id
1502: ,p_project_id
1503: ,p_task_id
1504: ,p_login_id
1505: ,p_user_id
1546: BEGIN
1547: open d1;
1548: fetch d1 into dummy;
1549: IF d1%found THEN
1550: pa_funding_core.summary_funding_update_row ( p_agreement_id
1551: ,p_project_id
1552: ,p_task_id
1553: ,p_login_id
1554: ,p_user_id
2175: l_revproc_exchange_rate NUMBER;
2176: l_revproc_allocated_amount NUMBER;
2177: BEGIN
2178:
2179: --dbms_output.put_line('Inside: pa_funding_core.create_funding_CO');
2180:
2181: Select Invproc_Currency_Type, Project_Currency_Code, ProjFunc_Currency_Code
2182: INTO l_Invproc_Currency_Type, l_Project_Currency_Code, l_ProjFunc_Currency_Code
2183: FROM PA_Projects
2263: x_err_msg := SQLERRM;
2264: p_Project_Funding_Id := l_Project_Funding_Id;
2265: END create_funding_CO;
2266:
2267: END PA_FUNDING_CORE;