[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: --
2204: ELSE
2205: l_funding_category := p_funding_category;
2206: END IF;
2207:
2208: IF pa_agreement_pvt.check_funding_category
2209: (p_pa_project_id
2210: ,p_pa_task_id
2211: ,p_agreement_id
2212: ,p_pm_funding_reference
2353: SELECT a. customer_id
2354: INTO l_customer_id
2355: FROM pa_agreements_all a
2356: WHERE a.agreement_id = p_agreement_id;
2357: IF pa_agreement_pvt.check_add_funding_ok
2358: (p_project_id => p_pa_project_id
2359: ,p_task_id => p_pa_task_id
2360: ,p_agreement_id => p_agreement_id
2361: ,p_pm_funding_reference => p_pm_funding_reference
2380: IF (p_desc_flex_name IS NOT NULL)
2381: AND (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2382: -- OR (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
2383: THEN
2384: pa_agreement_pvt.validate_flex_fields
2385: (p_desc_flex_name => p_desc_flex_name
2386: ,p_attribute_category => p_attribute_category
2387: ,p_attribute1 => p_attribute1
2388: ,p_attribute2 => p_attribute2
2419: END IF;
2420:
2421: /* NOT REQUIRED
2422: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
2423: pa_agreement_pvt.convert_ag_ref_to_id
2424: (p_pm_agreement_reference => p_pm_agreement_reference
2425: ,p_af_agreement_id => p_agreement_id
2426: ,p_out_agreement_id => l_out_agreement_id
2427: ,p_return_status => l_return_status);
2438:
2439: */
2440: /* NOT REQUIRED
2441: -- CONVERT FUNDING REFERENCE TO FUNDING ID
2442: pa_agreement_pvt.convert_fu_ref_to_id
2443: (p_pm_funding_reference => p_pm_funding_reference
2444: ,p_af_funding_id => p_funding_id
2445: ,p_out_funding_id => l_out_funding_id
2446: ,p_return_status => l_return_status);
2683: --
2684: --Called subprograms:
2685: -- pa_interface_utils_pub.map_new_amg_msg
2686: -- pa_agreement_pub.check_delete_funding_ok
2687: -- pa_agreement_pvt.convert_fu_ref_to_id
2688: -- pa_agreement_utils.delete_agreement
2689: --
2690: --
2691: --
2916: -- with an agreement it should not check for validity
2917: -- start
2918:
2919: IF p_check_y_n = 'Y' THEN
2920: IF pa_agreement_pvt.check_delete_funding_ok
2921: (p_agreement_id => pa_agreement_utils.get_agreement_id( p_funding_id => p_funding_id
2922: ,p_funding_reference => p_pm_funding_reference)
2923: ,p_funding_id => pa_agreement_utils.get_funding_id(p_funding_reference => p_pm_funding_reference)
2924: ,p_pm_funding_reference => p_pm_funding_reference) = 'N'
2929: END IF;
2930: -- End
2931: -- CONVERT FUNDING REFERENCE TO FUNDING ID
2932:
2933: pa_agreement_pvt.convert_fu_ref_to_id
2934: (p_pm_funding_reference => p_pm_funding_reference
2935: ,p_af_funding_id => p_funding_id
2936: ,p_out_funding_id => l_out_funding_id
2937: ,p_return_status => l_return_status);
3230: END IF;
3231:
3232: -- Validate funding category
3233:
3234: IF pa_agreement_pvt.check_funding_category
3235: (p_project_id
3236: ,p_task_id
3237: ,p_agreement_id
3238: ,p_pm_funding_reference
3318:
3319:
3320: /* Moved the following function call from below to this place bug 2434153 **/
3321: -- CONVERT FUNDING REFERENCE TO FUNDING ID
3322: pa_agreement_pvt.convert_fu_ref_to_id
3323: (p_pm_funding_reference => p_pm_funding_reference
3324: ,p_af_funding_id => p_funding_id
3325: ,p_out_funding_id => l_out_funding_id
3326: ,p_return_status => l_return_status);
3329: /* end code change for bug 2868818*/
3330: /** changed p_funding_id to l_out_funding_id in call to check_update_funding_ok bug 2434153 **/
3331: -- TO BE CORRECTED - NIKHIL
3332: -- VALIDATE THE INCOMING PARAMETERS
3333: IF pa_agreement_pvt.check_update_funding_ok
3334: (p_project_id => p_project_id
3335: ,p_task_id => p_task_id
3336: ,p_agreement_id => p_agreement_id
3337: ,p_customer_id => pa_agreement_utils.get_customer_id
3359: IF (p_desc_flex_name IS NOT NULL)
3360: AND (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3361: -- Nikhil OR (p_desc_flex_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
3362: THEN
3363: pa_agreement_pvt.validate_flex_fields
3364: (p_desc_flex_name => p_desc_flex_name
3365: ,p_attribute_category => p_attribute_category
3366: ,p_attribute1 => p_attribute1
3367: ,p_attribute2 => p_attribute2
3398: END IF;
3399:
3400: /* NOT REQUIRED
3401: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
3402: pa_agreement_pvt.convert_ag_ref_to_id
3403: (p_pm_ag_reference => p_agreement_in_rec.pm_agreement_reference
3404: ,p_af_agreement_id => pa_agreement_in_rec.agreement_id
3405: ,p_out_agreement_id => l_out_agreement_id
3406: ,p_return_status => l_return_status);
3408:
3409: */
3410:
3411: -- CONVERT FUNDING REFERENCE TO FUNDING ID
3412: /**** pa_agreement_pvt.convert_fu_ref_to_id
3413: (p_pm_funding_reference => p_pm_funding_reference
3414: ,p_af_funding_id => p_funding_id
3415: ,p_out_funding_id => l_out_funding_id
3416: ,p_return_status => l_return_status);
4755: END IF;
4756: */
4757:
4758: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
4759: pa_agreement_pvt.convert_ag_ref_to_id
4760: (p_pm_agreement_reference => p_pm_agreement_reference
4761: ,p_af_agreement_id => p_agreement_id
4762: ,p_out_agreement_id => l_out_agreement_id
4763: ,p_return_status => l_return_status);
4776: END IF;
4777: END IF;
4778:
4779: -- CHECK IF IT IS OK TO DELETE THE AGREEMENT
4780: p_del_agree_ok_flag := pa_agreement_pvt.check_delete_agreement_ok
4781: (p_agreement_id => l_out_agreement_id
4782: ,p_pm_agreement_reference => p_pm_agreement_reference);
4783:
4784: IF FND_API.to_boolean( p_commit )
5098: RAISE FND_API.G_EXC_ERROR;
5099: END IF;
5100: */
5101: -- CONVERT AGREEMENT REFERENCE TO AGREEMENT ID
5102: pa_agreement_pvt.convert_ag_ref_to_id
5103: (p_pm_agreement_reference => p_pm_agreement_reference
5104: ,p_af_agreement_id => p_agreement_id
5105: ,p_out_agreement_id => l_out_agreement_id
5106: ,p_return_status => l_return_status);
5126: INTO l_customer_id
5127: FROM pa_agreements_all a
5128: WHERE a.agreement_id = p_agreement_id;
5129:
5130: p_add_funding_ok_flag := pa_agreement_pvt.check_add_funding_ok
5131: (p_project_id => p_project_id
5132: ,p_task_id => p_task_id
5133: ,p_agreement_id => l_out_agreement_id
5134: ,p_pm_funding_reference => p_pm_funding_reference
5393: END IF;
5394:
5395: -- CALL THE CHECK DELETE FUNDING OK PRIVATE PROCEDURE
5396:
5397: p_del_funding_ok_flag := pa_agreement_pvt.check_delete_funding_ok
5398: (p_agreement_id => pa_agreement_utils.get_agreement_id(p_funding_id => p_funding_id
5399: ,p_funding_reference => p_pm_funding_reference)
5400: ,p_funding_id => pa_agreement_utils.get_funding_id(p_funding_reference => p_pm_funding_reference)
5401: ,p_pm_funding_reference => p_pm_funding_reference);
5670: RAISE FND_API.G_EXC_ERROR;
5671: END IF;
5672:
5673: -- Flex Field Validations
5674: pa_agreement_pvt.validate_flex_fields
5675: (p_desc_flex_name => p_desc_flex_name
5676: ,p_attribute_category => p_attribute_category
5677: ,p_attribute1 => p_attribute1
5678: ,p_attribute2 => p_attribute2
5708: END IF;
5709:
5710:
5711: -- CALL THE CHECK UPDATE FUNDING OK PRIVATE PROCEDURE
5712: p_update_funding_ok_flag := pa_agreement_pvt.check_update_funding_ok
5713: (p_project_id => p_project_id
5714: ,p_task_id => p_task_id
5715: ,p_agreement_id => p_agreement_id
5716: ,p_customer_id => pa_agreement_utils.get_customer_id