[Home] [Help]
19: --Called subprograms:
20: -- pa_interface_utils_pub.map_new_amg_msg
21: -- pa_agreement_pub.check_create_agreement_ok
22: -- pa_agreement_utils.validate_flex_fields
23: -- pa_agreement_pvt.convert_ag_ref_to_id
24: -- pa_agreement_utils.create_agreement
25: -- pa_agreement_pub.add_funding
26: --
27: --
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394:
395: -- VALIDATE THE INCOMING PARAMETERS
396: IF pa_agreement_pvt.check_create_agreement_ok
397: (p_pm_agreement_reference => p_agreement_in_rec.pm_agreement_reference
398: ,p_customer_id => p_agreement_in_rec.customer_id
399: ,p_agreement_type => p_agreement_in_rec.agreement_type
400: ,p_agreement_num => p_agreement_in_rec.agreement_num
424:
425: AND (p_agreement_in_rec.desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
426: THEN
427: /*Changed for federal*/
428: pa_agreement_pvt.validate_flex_fields
429: (p_desc_flex_name => p_agreement_in_rec.desc_flex_name
430: ,p_attribute_category => p_agreement_in_rec.attribute_category
431: ,p_attribute1 => p_agreement_in_rec.attribute1
432: ,p_attribute2 => p_agreement_in_rec.attribute2
478: END IF;
479:
480: /* NOT REQUIRED
481: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
482: pa_agreement_pvt.convert_ag_ref_to_id
483: (p_pm_agreement_reference => p_agreement_in_rec.pm_agreement_reference
484: ,p_af_agreement_id => p_agreement_in_rec.agreement_id
485: ,p_out_agreement_id => l_out_agreement_id
486: ,p_return_status => l_return_status);
948: --
949: --Called subprograms:
950: -- pa_interface_utils_pub.map_new_amg_msg
951: -- pa_agreement_pub.check_delete_agreement_ok
952: -- pa_agreement_pvt.convert_ag_ref_to_id
953: -- pa_agreement_utils.delete_agreement
954:
955: --
956: --
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127: */
1128: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
1129: pa_agreement_pvt.convert_ag_ref_to_id
1130: (p_pm_agreement_reference => p_pm_agreement_reference
1131: ,p_af_agreement_id => p_agreement_id
1132: ,p_out_agreement_id => l_out_agreement_id
1133: ,p_return_status => l_return_status);
1145: END IF;
1146: END IF;
1147:
1148: -- VALIDATE THE INCOMING PARAMETERS
1149: IF pa_agreement_pvt.check_delete_agreement_ok
1150: (p_agreement_id => p_agreement_id
1151: ,p_pm_agreement_reference => p_pm_agreement_reference) = 'N'
1152: THEN
1153: p_return_status := FND_API.G_RET_STS_ERROR;
1258: --Called subprograms:
1259: -- pa_interface_utils_pub.map_new_amg_msg
1260: -- pa_agreement_pub.check_update_agreement_ok
1261: -- pa_agreement_utils.validate_flex_fields
1262: -- pa_agreement_pvt.convert_ag_ref_to_id
1263: -- pa_agreement_utils.update_agreement
1264: -- pa_agreement_pub.add_funding
1265: --
1266: --
1514: END IF;
1515: Code commented ends here */
1516:
1517: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
1518: pa_agreement_pvt.convert_ag_ref_to_id
1519: (p_pm_agreement_reference => l_agreement_in_rec.pm_agreement_reference
1520: ,p_af_agreement_id => l_agreement_in_rec.agreement_id
1521: ,p_out_agreement_id => l_out_agreement_id
1522: ,p_return_status => l_return_status);
1547:
1548: -- VALIDATE THE INCOMING PARAMETERS
1549: /* This part of code moved from while loop to here as check for project funding id is commented
1550: out in check_update_agreement_ok */
1551: IF pa_agreement_pvt.check_update_agreement_ok
1552: (p_pm_agreement_reference => l_agreement_in_rec.pm_agreement_reference
1553: ,p_agreement_id => l_out_agreement_id
1554: ,p_funding_id => NULL
1555: ,p_customer_id => l_agreement_in_rec.customer_id
1607:
1608: IF (l_agreement_in_rec.desc_flex_name IS NOT NULL)
1609: AND (l_agreement_in_rec.desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
1610: THEN
1611: pa_agreement_pvt.validate_flex_fields
1612: (p_desc_flex_name => l_agreement_in_rec.desc_flex_name
1613: ,p_attribute_category => l_agreement_in_rec.attribute_category
1614: ,p_attribute1 => l_agreement_in_rec.attribute1
1615: ,p_attribute2 => l_agreement_in_rec.attribute2
1741: exit;
1742: end if;
1743: /* End of Changes for Bug 5734567 */
1744:
1745: IF pa_agreement_pvt.check_add_update(p_funding_reference => l_funding_in_rec.pm_funding_reference)='U'
1746: THEN
1747: -- UPDATE FUNDING
1748: pa_agreement_pub.update_funding
1749: (p_api_version_number => p_api_version_number
1796: -- p_multiple_funding_msg := 'F';
1797: RAISE FND_API.G_EXC_ERROR;
1798: END IF;
1799:
1800: ELSIF pa_agreement_pvt.check_add_update(p_funding_reference => l_funding_in_rec.pm_funding_reference)='A'
1801: THEN
1802: -- ADD FUNDING
1803: pa_agreement_pub.add_funding
1804: (p_api_version_number => p_api_version_number
1937: --Called subprograms:
1938: -- pa_interface_utils_pub.map_new_amg_msg
1939: -- pa_agreement_pub.check_add_funding_ok
1940: -- pa_agreement_utils.validate_flex_fields
1941: -- pa_agreement_pvt.convert_fu_ref_to_id
1942: -- pa_agreement_utils.add_funding
1943: --
1944: --
1945: --
2236: ELSE
2237: l_funding_category := p_funding_category;
2238: END IF;
2239:
2240: IF pa_agreement_pvt.check_funding_category
2241: (p_pa_project_id
2242: ,p_pa_task_id
2243: ,p_agreement_id
2244: ,p_pm_funding_reference
2416: SELECT a. customer_id
2417: INTO l_customer_id
2418: FROM pa_agreements_all a
2419: WHERE a.agreement_id = p_agreement_id;
2420: IF pa_agreement_pvt.check_add_funding_ok
2421: (p_project_id => p_pa_project_id
2422: ,p_task_id => p_pa_task_id
2423: ,p_agreement_id => p_agreement_id
2424: ,p_pm_funding_reference => p_pm_funding_reference
2443: IF (p_desc_flex_name IS NOT NULL)
2444: AND (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2445: -- OR (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2446: THEN
2447: pa_agreement_pvt.validate_flex_fields
2448: (p_desc_flex_name => p_desc_flex_name
2449: ,p_attribute_category => p_attribute_category
2450: ,p_attribute1 => p_attribute1
2451: ,p_attribute2 => p_attribute2
2482: END IF;
2483:
2484: /* NOT REQUIRED
2485: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
2486: pa_agreement_pvt.convert_ag_ref_to_id
2487: (p_pm_agreement_reference => p_pm_agreement_reference
2488: ,p_af_agreement_id => p_agreement_id
2489: ,p_out_agreement_id => l_out_agreement_id
2490: ,p_return_status => l_return_status);
2501:
2502: */
2503: /* NOT REQUIRED
2504: -- CONVERT FUNDING REFERENCE TO FUNDING ID
2505: pa_agreement_pvt.convert_fu_ref_to_id
2506: (p_pm_funding_reference => p_pm_funding_reference
2507: ,p_af_funding_id => p_funding_id
2508: ,p_out_funding_id => l_out_funding_id
2509: ,p_return_status => l_return_status);
2746: --
2747: --Called subprograms:
2748: -- pa_interface_utils_pub.map_new_amg_msg
2749: -- pa_agreement_pub.check_delete_funding_ok
2750: -- pa_agreement_pvt.convert_fu_ref_to_id
2751: -- pa_agreement_utils.delete_agreement
2752: --
2753: --
2754: --
2979: -- with an agreement it should not check for validity
2980: -- start
2981:
2982: IF p_check_y_n = 'Y' THEN
2983: IF pa_agreement_pvt.check_delete_funding_ok
2984: (p_agreement_id => pa_agreement_utils.get_agreement_id( p_funding_id => p_funding_id
2985: ,p_funding_reference => p_pm_funding_reference)
2986: ,p_funding_id => pa_agreement_utils.get_funding_id(p_funding_reference => p_pm_funding_reference)
2987: ,p_pm_funding_reference => p_pm_funding_reference) = 'N'
2992: END IF;
2993: -- End
2994: -- CONVERT FUNDING REFERENCE TO FUNDING ID
2995:
2996: pa_agreement_pvt.convert_fu_ref_to_id
2997: (p_pm_funding_reference => p_pm_funding_reference
2998: ,p_af_funding_id => p_funding_id
2999: ,p_out_funding_id => l_out_funding_id
3000: ,p_return_status => l_return_status);
3331: END IF;
3332:
3333: -- Validate funding category
3334:
3335: IF pa_agreement_pvt.check_funding_category
3336: (p_project_id
3337: ,p_task_id
3338: ,p_agreement_id
3339: ,p_pm_funding_reference
3452:
3453:
3454: /* Moved the following function call from below to this place bug 2434153 **/
3455: -- CONVERT FUNDING REFERENCE TO FUNDING ID
3456: pa_agreement_pvt.convert_fu_ref_to_id
3457: (p_pm_funding_reference => p_pm_funding_reference
3458: ,p_af_funding_id => p_funding_id
3459: ,p_out_funding_id => l_out_funding_id
3460: ,p_return_status => l_return_status);
3463: /* end code change for bug 2868818*/
3464: /** changed p_funding_id to l_out_funding_id in call to check_update_funding_ok bug 2434153 **/
3465: -- TO BE CORRECTED - NIKHIL
3466: -- VALIDATE THE INCOMING PARAMETERS
3467: IF pa_agreement_pvt.check_update_funding_ok
3468: (p_project_id => p_project_id
3469: ,p_task_id => p_task_id
3470: ,p_agreement_id => p_agreement_id
3471: ,p_customer_id => pa_agreement_utils.get_customer_id
3493: IF (p_desc_flex_name IS NOT NULL)
3494: AND (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3495: -- Nikhil OR (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3496: THEN
3497: pa_agreement_pvt.validate_flex_fields
3498: (p_desc_flex_name => p_desc_flex_name
3499: ,p_attribute_category => p_attribute_category
3500: ,p_attribute1 => p_attribute1
3501: ,p_attribute2 => p_attribute2
3532: END IF;
3533:
3534: /* NOT REQUIRED
3535: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
3536: pa_agreement_pvt.convert_ag_ref_to_id
3537: (p_pm_ag_reference => p_agreement_in_rec.pm_agreement_reference
3538: ,p_af_agreement_id => pa_agreement_in_rec.agreement_id
3539: ,p_out_agreement_id => l_out_agreement_id
3540: ,p_return_status => l_return_status);
3542:
3543: */
3544:
3545: -- CONVERT FUNDING REFERENCE TO FUNDING ID
3546: /**** pa_agreement_pvt.convert_fu_ref_to_id
3547: (p_pm_funding_reference => p_pm_funding_reference
3548: ,p_af_funding_id => p_funding_id
3549: ,p_out_funding_id => l_out_funding_id
3550: ,p_return_status => l_return_status);
4889: END IF;
4890: */
4891:
4892: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
4893: pa_agreement_pvt.convert_ag_ref_to_id
4894: (p_pm_agreement_reference => p_pm_agreement_reference
4895: ,p_af_agreement_id => p_agreement_id
4896: ,p_out_agreement_id => l_out_agreement_id
4897: ,p_return_status => l_return_status);
4910: END IF;
4911: END IF;
4912:
4913: -- CHECK IF IT IS OK TO DELETE THE AGREEMENT
4914: p_del_agree_ok_flag := pa_agreement_pvt.check_delete_agreement_ok
4915: (p_agreement_id => l_out_agreement_id
4916: ,p_pm_agreement_reference => p_pm_agreement_reference);
4917:
4918: IF FND_API.to_boolean( p_commit )
5232: RAISE FND_API.G_EXC_ERROR;
5233: END IF;
5234: */
5235: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
5236: pa_agreement_pvt.convert_ag_ref_to_id
5237: (p_pm_agreement_reference => p_pm_agreement_reference
5238: ,p_af_agreement_id => p_agreement_id
5239: ,p_out_agreement_id => l_out_agreement_id
5240: ,p_return_status => l_return_status);
5260: INTO l_customer_id
5261: FROM pa_agreements_all a
5262: WHERE a.agreement_id = p_agreement_id;
5263:
5264: p_add_funding_ok_flag := pa_agreement_pvt.check_add_funding_ok
5265: (p_project_id => p_project_id
5266: ,p_task_id => p_task_id
5267: ,p_agreement_id => l_out_agreement_id
5268: ,p_pm_funding_reference => p_pm_funding_reference
5527: END IF;
5528:
5529: -- CALL THE CHECK DELETE FUNDING OK PRIVATE PROCEDURE
5530:
5531: p_del_funding_ok_flag := pa_agreement_pvt.check_delete_funding_ok
5532: (p_agreement_id => pa_agreement_utils.get_agreement_id(p_funding_id => p_funding_id
5533: ,p_funding_reference => p_pm_funding_reference)
5534: ,p_funding_id => pa_agreement_utils.get_funding_id(p_funding_reference => p_pm_funding_reference)
5535: ,p_pm_funding_reference => p_pm_funding_reference);
5804: RAISE FND_API.G_EXC_ERROR;
5805: END IF;
5806:
5807: -- Flex Field Validations
5808: pa_agreement_pvt.validate_flex_fields
5809: (p_desc_flex_name => p_desc_flex_name
5810: ,p_attribute_category => p_attribute_category
5811: ,p_attribute1 => p_attribute1
5812: ,p_attribute2 => p_attribute2
5842: END IF;
5843:
5844:
5845: -- CALL THE CHECK UPDATE FUNDING OK PRIVATE PROCEDURE
5846: p_update_funding_ok_flag := pa_agreement_pvt.check_update_funding_ok
5847: (p_project_id => p_project_id
5848: ,p_task_id => p_task_id
5849: ,p_agreement_id => p_agreement_id
5850: ,p_customer_id => pa_agreement_utils.get_customer_id