[Home] [Help]
1: PACKAGE BODY pa_funding_core AS
2: /* $Header: PAXBIPFB.pls 120.4 2007/02/07 10:46:35 rgandhi 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
857: l_revproc_exchange_rate NUMBER;
858: l_revproc_allocated_amount NUMBER;
859: BEGIN
860:
861: --dbms_output.put_line('Inside: pa_funding_core.create_funding');
862:
863: --dbms_output.put_line( p_Project_Funding_Id);
864: --dbms_output.put_line( p_Last_Update_Date );
865: --dbms_output.put_line( p_Last_Updated_By);
871: --dbms_output.put_line(nvl(to_char(p_Task_Id),'NULL'));
872: --dbms_output.put_line( p_Allocated_Amount);
873: --dbms_output.put_line( p_Date_Allocated);
874:
875: --dbms_output.put_line('Inside: pa_funding_core.create_funding inserting row');
876:
877: x_err_code := 0;
878: x_err_msg := NULL;
879:
1336: open c1;
1337: fetch c1 into dummy;
1338:
1339: IF (c1%found) THEN
1340: pa_funding_core.summary_funding_update_row ( p_agreement_id
1341: ,p_project_id
1342: ,p_task_id
1343: ,p_login_id
1344: ,p_user_id
1413: END IF;
1414: close c1;
1415: exception
1416: WHEN NO_DATA_FOUND THEN
1417: pa_funding_core.summary_funding_update_row ( p_agreement_id
1418: ,p_project_id
1419: ,p_task_id
1420: ,p_login_id
1421: ,p_user_id
1479: AND NVL(S.TASK_ID,0) = NVL(p_task_id,0);
1480:
1481: IF (SQL%NOTFOUND) THEN
1482:
1483: pa_funding_core.summary_funding_insert_row ( p_agreement_id
1484: ,p_project_id
1485: ,p_task_id
1486: ,p_login_id
1487: ,p_user_id
1528: BEGIN
1529: open d1;
1530: fetch d1 into dummy;
1531: IF d1%found THEN
1532: pa_funding_core.summary_funding_update_row ( p_agreement_id
1533: ,p_project_id
1534: ,p_task_id
1535: ,p_login_id
1536: ,p_user_id
2157: l_revproc_exchange_rate NUMBER;
2158: l_revproc_allocated_amount NUMBER;
2159: BEGIN
2160:
2161: --dbms_output.put_line('Inside: pa_funding_core.create_funding_CO');
2162:
2163: Select Invproc_Currency_Type, Project_Currency_Code, ProjFunc_Currency_Code
2164: INTO l_Invproc_Currency_Type, l_Project_Currency_Code, l_ProjFunc_Currency_Code
2165: FROM PA_Projects
2245: x_err_msg := SQLERRM;
2246: p_Project_Funding_Id := l_Project_Funding_Id;
2247: END create_funding_CO;
2248:
2249: END PA_FUNDING_CORE;