[Home] [Help]
1: package body PA_AGREEMENT_PVT as
2: /*$Header: PAAFAPVB.pls 120.9.12010000.3 2008/12/14 12:15:21 arbandyo ship $*/
3:
4: --Global constants to be used in error messages
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_AGREEMENT_PVT';
1: package body PA_AGREEMENT_PVT as
2: /*$Header: PAAFAPVB.pls 120.9.12010000.3 2008/12/14 12:15:21 arbandyo ship $*/
3:
4: --Global constants to be used in error messages
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_AGREEMENT_PVT';
6: G_AGREEMENT_CODE CONSTANT VARCHAR2(9) := 'AGREEMENT';
7:
8: --PACKAGE GLOBAL to be used during updates ---------------------------
9: G_USER_ID CONSTANT NUMBER := FND_GLOBAL.user_id;
18: --Description: This procedure can be used to convert the agreement reference to
19: -- to an agreement id.
20: --
21: --Called subprograms:
22: -- pa_agreement_pvt.fetch_agreement_id
23: -- pa_interface_utils_pub.map_new_amg_msg
24: --
25: --
26: --History:
79: ELSIF p_pm_agreement_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
80: AND p_pm_agreement_reference IS NOT NULL
81: THEN
82: --dbms_output.put_line('Calling fetch agreement id');
83: l_agreement_id := pa_agreement_pvt.fetch_agreement_id(p_pm_agreement_reference => p_pm_agreement_reference);
84: --dbms_output.put_line('Agreement id:'||nvl(to_char(l_agreement_id),'NULL'));
85: IF l_agreement_id IS NULL
86: THEN
87: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
141: --Description: This procedure can be used to convert the funding reference to
142: -- to a funding id.
143: --
144: --Called subprograms:
145: -- pa_agreement_pvt.fetch_funding_id
146: -- pa_interface_utils_pub.map_new_amg_msg
147: --
148: --
149: --History:
349: -- pa_agreement_utils.check_valid_customer
350: -- pa_agreement_utils.check_valid_type
351: -- pa_agreement_utils.check_valid_agreement_num
352: -- pa_agreement_utils.check_valid_term_id
353: -- pa_agreement_pvt.check_valid_template_flag
354: -- pa_agreement_pvt.check_valid_revenue_limit_flag
355: -- pa_agreement_utils.check_valid_owned_by_person_id
356: -- pa_agreement_utils.check_unique_agreement
357: --
350: -- pa_agreement_utils.check_valid_type
351: -- pa_agreement_utils.check_valid_agreement_num
352: -- pa_agreement_utils.check_valid_term_id
353: -- pa_agreement_pvt.check_valid_template_flag
354: -- pa_agreement_pvt.check_valid_revenue_limit_flag
355: -- pa_agreement_utils.check_valid_owned_by_person_id
356: -- pa_agreement_utils.check_unique_agreement
357: --
358: --
485:
486: -- Template Flag
487: IF p_template_flag is not null THEN
488: --dbms_output.put_line('Check for valid Template Flag');
489: IF pa_agreement_pvt.check_yes_no
490: ( p_val => p_template_flag) = 'N'
491: THEN
492: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
493: THEN
508:
509: END IF;
510: -- Revenue Limit Flag
511: --dbms_output.put_line('Check for valid Revenue Limit Flag');
512: IF pa_agreement_pvt.check_yes_no
513: (p_val => p_revenue_limit_flag) = 'N'
514: THEN
515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
516: THEN
730:
731: IF (p_invoice_limit_flag is not null)
732: AND (p_invoice_limit_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) then /* Bug 2701579 */
733:
734: IF pa_agreement_pvt.check_yes_no
735: (p_val => p_invoice_limit_flag) = 'N'
736: THEN
737:
738: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
823: /* Cursor added for bug 6602451 */
824: CURSOR agrcur IS SELECT * FROM PA_AGREEMENTS_ALL WHERE AGREEMENT_ID = p_agreement_id;
825:
826: BEGIN
827: --dbms_output.put_line('Inside: PA_AGREEMENT_PVT.CHECK_UPDATE_AGREEMENT_OK');
828: FOR l_agrcur IN agrcur LOOP /*Bug 6602451 */
829: -- VALIDATE THE INCOMING PARAMETERS
830: -- Customer Number
831: --dbms_output.put_line('Check for Valid Customer Id');
938:
939: /*
940: -- Template Flag
941: --dbms_output.put_line('Check for valid Template Flag');
942: IF pa_agreement_pvt.check_yes_no
943: ( p_val => p_template_flag) = 'N'
944: THEN
945: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
946: THEN
963: -- Revenue Limit Flag
964: --dbms_output.put_line('Check for valid Revenue Limit Flag');
965: IF (p_revenue_limit_flag IS NOT NULL AND p_revenue_limit_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
966: AND p_revenue_limit_flag <> l_agrcur.revenue_limit_flag) THEN /* Bug 6602451 */
967: IF pa_agreement_pvt.check_yes_no
968: (p_val => p_revenue_limit_flag) = 'N'
969: THEN
970: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
971: THEN
1373: /* IF p_invoice_limit_flag is not null THEN Commenetd for Bug 6602451 and added the below IF condition*/
1374:
1375: IF (p_invoice_limit_flag IS NOT NULL AND p_invoice_limit_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1376: AND p_invoice_limit_flag <> l_agrcur.invoice_limit_flag) THEN /* Bug 6602451 */
1377: IF pa_agreement_pvt.check_yes_no
1378: (p_val => p_invoice_limit_flag) = 'N' THEN
1379:
1380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1381: --dbms_output.put_line('Invalid invoice Limit Flag');
1467: IF l_funding_id_csr%NOTFOUND
1468: THEN
1469: EXIT;
1470: ELSE
1471: l_RETURN:= pa_agreement_pvt.check_delete_funding_ok
1472: (p_agreement_id => l_funding_id_rec.agreement_id
1473: ,p_funding_id => l_funding_id_rec.project_funding_id
1474: ,p_pm_funding_reference => l_funding_id_rec.pm_funding_reference);
1475: IF l_RETURN = 'N'
1687:
1688: l_Inv_Method_Override_Flag VARCHAR2(1); /*Added for Bug 5550709*/
1689:
1690: BEGIN
1691: --dbms_output.put_line('Inside: PA_AGREEMENT_PVT.CHECK_ADD_FUNDING_OK');
1692:
1693: -- VALIDATE THE INCOMING PARAMETERS
1694:
1695: -- Check Valid Project
2010: -- Bug 6600563. Call to this API will be made only when
2011: -- p_calling_context is NULL. please refer to bug for details
2012: IF p_calling_context IS NULL THEN
2013: -- added to validate the funding amount
2014: l_valid_fund_amt := pa_agreement_pvt.validate_funding_amt(p_funding_amt => p_funding_amt
2015: ,p_agreement_id => p_agreement_id
2016: ,p_operation_flag => 'A'
2017: ,p_pm_funding_reference => p_pm_funding_reference
2018: ,p_funding_id => NULL ) ;
2092:
2093: l_Inv_Method_Override_Flag VARCHAR2(1); /*Added for Bug 5550709 */
2094:
2095: BEGIN
2096: --dbms_output.put_line('Inside: PA_AGREEMENT_PVT.CHECK_UPDATE_FUNDING_OK');
2097: --dbms_output.put_line('p_pm_funding_reference: '||nvl(p_pm_funding_reference,'NULL'));
2098: -- VALIDATE THE INCOMING PARAMETERS
2099:
2100: -- Check Valid Project
2393:
2394: END IF;
2395:
2396: -- added to validate the funding amount
2397: l_valid_fund_amt := pa_agreement_pvt.validate_funding_amt(p_funding_amt => p_funding_amt
2398: ,p_agreement_id => p_agreement_id
2399: ,p_operation_flag => 'U'
2400: ,p_pm_funding_reference => p_pm_funding_reference
2401: ,p_funding_id => p_funding_id) ;
2469: l_RETURN VARCHAR2(1):='Y';
2470: l_valid_fund_amt VARCHAR2(1):='Y';
2471: l_funding_amt NUMBER := 0;
2472: BEGIN
2473: --dbms_output.put_line('Inside" PA_AGREEMENT_PVT.CHECK_DELETE_FUNDING_OK');
2474:
2475: -- Check Budget Type
2476: --dbms_output.put_line('Calling: pa_agreement_utils.check_budget_type');
2477: IF pa_agreement_utils.check_budget_type
2524: FROM pa_project_fundings f
2525: WHERE f.pm_funding_reference = p_pm_funding_reference
2526: AND f.agreement_id = p_agreement_id;
2527: END IF;
2528: l_valid_fund_amt := pa_agreement_pvt.validate_funding_amt(p_funding_amt => l_funding_amt
2529: ,p_agreement_id => p_agreement_id
2530: ,p_operation_flag => 'D'
2531: ,p_pm_funding_reference => p_pm_funding_reference
2532: ,p_funding_id => p_funding_id ) ;
2709:
2710: l_temp NUMBER;
2711:
2712: BEGIN
2713: --dbms_output.put_line('Inside: PA_AGREEMENT_PVT.CHECK_ADD_UPDATE');
2714: --dbms_output.put_line('p_funding_reference: '||nvl(p_funding_reference,'NULL'));
2715: OPEN C1;
2716: FETCH C1 into l_temp;
2717: IF C1%FOUND
2813: RETURN 'N';
2814:
2815: END validate_funding_amt;
2816:
2817: END PA_AGREEMENT_PVT;