[Home] [Help]
1: package body PA_AGREEMENT_CORE as
2: /*$Header: PAAFAGCB.pls 120.4 2007/02/07 10:45:25 rgandhi ship $*/
3:
4: /*============================================================================+
5: | Name : check_multi_customers
71: ) RETURN VARCHAR2
72: is
73: cust_exists number;
74: BEGIN
75: -- dbms_output.put_line('Inside: PA_AGREEMENT_CORE.CHECK_VALID_CUSTOMER');
76: -- dbms_output.put_line('Customer_id: '||nvl(to_char(p_customer_id),'NULL'));
77: -- Ensure that user is a registered EMPLOYEE.
78: IF PA_UTILS.GetEmpIdFromUser(to_number(fnd_profile.value('USER_ID')))
79: IS NULL THEN
283: FROM PA_AGREEMENTS_ALL A
284: WHERE A.pm_agreement_reference = p_agreement_reference;
285: l_row c%ROWTYPE;
286: BEGIN
287: -- dbms_output.put_line('PA_AGREEMENT_CORE.CHECK_VALID_AGREEMENT_REF');
288: OPEN C;
289: FETCH C INTO l_row;
290: IF C%FOUND THEN
291: RETURN 'Y';
357: WHERE F.pm_funding_reference = p_funding_reference
358: AND F.agreement_id = p_agreement_id ;
359: l_row c%ROWTYPE;
360: BEGIN
361: -- dbms_output.put_line(' Inside: PA_AGREEMENT_CORE.CHECK_VALID_FUNDING_REF');
362: OPEN C;
363: FETCH C INTO l_row;
364: IF C%FOUND THEN
365: RETURN 'Y';
537: l_fund_rec1 c1%ROWTYPE;
538: l_fund_rec2 c2%ROWTYPE;
539: --Nikhil changed c1 to c2 and c2 to c1
540: BEGIN
541: -- dbms_output.put_line('Inside: PA_AGREEMENT_CORE.GET_AGREEMENT_ID');
542: -- dbms_output.put_line('p_funding_id = '||nvl(to_char(p_funding_id),'NULL'));
543: -- dbms_output.put_line('p_funding_reference ='||nvl(p_funding_reference,'NULL'));
544: IF p_funding_reference is NOT NULL
545: -- OR (p_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
611:
612: -- Nikhil changed c1 to c2
613:
614: BEGIN
615: -- dbms_output.put_line('Inside: PA_AGREEMENT_CORE.GET_PROJECT_ID');
616: IF p_funding_reference IS NOT NULL
617: -- OR p_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
618: THEN
619: OPEN c2;
670: l_fund_rec1 c1%ROWTYPE;
671: l_fund_rec2 c2%ROWTYPE;
672:
673: BEGIN
674: -- dbms_output.put_line('Inside: PA_AGREEMENT_CORE.GET_TASK_ID');
675: IF p_funding_reference IS NOT NULL
676: -- OR p_funding_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
677: THEN
678: OPEN c2;
734: l_fund_rec2 c2%ROWTYPE;
735:
736: BEGIN
737: /** Giving higher precedence to funding_id over funding_reference to determine customer_id bug 2434153 **/
738: -- dbms_output.put_line('Inside: PA_AGREEMENT_CORE.GET_CUSTOMER_ID');
739: IF p_funding_id IS NOT NULL
740: AND (p_funding_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
741: THEN
742: OPEN c1;
989: l_invoice_limit_flag VARCHAR2(1);
990: l_owning_organization_id NUMBER;
991:
992: BEGIN
993: -- dbms_output.put_line('Calling: pa_agreement_core.update_agreement');
994: OPEN C;
995: FETCH C INTO agr_rec;
996: IF C%FOUND THEN
997: IF p_agreement_currency_code is null then
1224: RETURN VARCHAR2
1225: IS
1226: l_check_limit NUMBER;
1227: BEGIN
1228: -- dbms_output.put_line('Inside: PA_AGREEMENT_CORE.CHECK_REVENUE_LIMIT');
1229: /*
1230: SELECT MIN(SIGN((f1.total_baselined_amount+f1.total_unbaselined_amount)
1231: -GREATEST(NVL(f1.total_accrued_amount,0), NVL(f1.total_billed_amount, 0))))
1232: INTO check_limit
1275: RETURN VARCHAR2
1276: IS
1277: budget_type_code VARCHAR2(20);
1278: BEGIN
1279: -- dbms_output.put_line('Inside" PA_AGREEMENT_CORE.CHECK_BUDGET_TYPE');
1280: SELECT budget_type_code
1281: INTO budget_type_code
1282: FROM pa_project_fundings f1
1283: WHERE f1.project_funding_id = p_funding_id;
1414: RETURN VARCHAR2
1415: IS
1416: l_check_limit NUMBER;
1417: BEGIN
1418: -- dbms_output.put_line('Inside: PA_AGREEMENT_CORE.CHECK_INVOICE_LIMIT');
1419: /* commented and rewritten for bug 2744993
1420: SELECT MIN(SIGN((f1.total_baselined_amount+f1.total_unbaselined_amount)
1421: - NVL(f1.total_billed_amount, 0)))
1422: */
1438: -- dbms_output.put_line('Returning N');
1439: RETURN 'N';
1440: END check_invoice_limit;
1441:
1442: END PA_AGREEMENT_CORE;
1443: