[Home] [Help]
32: -- 15-JAN-2003 JPULTORAK Created
33: --
34: PROCEDURE add_project_asset
35: ( p_api_version_number IN NUMBER
36: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
37: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
38: ,p_msg_count OUT NOCOPY NUMBER
39: ,p_msg_data OUT NOCOPY VARCHAR2
40: ,p_return_status OUT NOCOPY VARCHAR2
33: --
34: PROCEDURE add_project_asset
35: ( p_api_version_number IN NUMBER
36: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
37: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
38: ,p_msg_count OUT NOCOPY NUMBER
39: ,p_msg_data OUT NOCOPY VARCHAR2
40: ,p_return_status OUT NOCOPY VARCHAR2
41: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
334: SAVEPOINT add_project_asset_pub;
335:
336:
337: -- Initialize the message table if requested.
338: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
339: FND_MSG_PUB.initialize;
340: END IF;
341:
342:
340: END IF;
341:
342:
343: -- Set API return status to success
344: p_return_status := FND_API.G_RET_STS_SUCCESS;
345:
346:
347:
348: -- Standard call to check for call compatibility.
345:
346:
347:
348: -- Standard call to check for call compatibility.
349: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
350: p_api_version_number ,
351: l_api_name ,
352: G_PKG_NAME )
353: THEN
351: l_api_name ,
352: G_PKG_NAME )
353: THEN
354:
355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
356:
357: END IF;
358:
359:
372: ,p_attribute4 => ''
373: ,p_attribute5 => '');
374: END IF;
375:
376: RAISE FND_API.G_EXC_ERROR;
377: END IF;
378:
379:
380: --Initialize variables
392: , p_return_status => l_return_status
393: );
394:
395:
396: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
393: );
394:
395:
396: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401:
394:
395:
396: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401:
402:
395:
396: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
398: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401:
402:
403: -- Get project number for AMG messages
423: ,p_attribute3 => ''
424: ,p_attribute4 => ''
425: ,p_attribute5 => '');
426:
427: p_return_status := FND_API.G_RET_STS_ERROR;
428:
429: RAISE FND_API.G_EXC_ERROR;
430: END IF;
431: CLOSE capital_project_cur;
425: ,p_attribute5 => '');
426:
427: p_return_status := FND_API.G_RET_STS_ERROR;
428:
429: RAISE FND_API.G_EXC_ERROR;
430: END IF;
431: CLOSE capital_project_cur;
432:
433:
457: p_msg_data => l_msg_data,
458: p_return_status => l_return_status,
459: p_function_allowed => l_function_allowed);
460:
461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
464: RAISE FND_API.G_EXC_ERROR;
465: END IF;
458: p_return_status => l_return_status,
459: p_function_allowed => l_function_allowed);
460:
461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
464: RAISE FND_API.G_EXC_ERROR;
465: END IF;
466:
459: p_function_allowed => l_function_allowed);
460:
461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
464: RAISE FND_API.G_EXC_ERROR;
465: END IF;
466:
467: IF l_function_allowed = 'N' THEN
460:
461: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
464: RAISE FND_API.G_EXC_ERROR;
465: END IF;
466:
467: IF l_function_allowed = 'N' THEN
468: pa_interface_utils_pub.map_new_amg_msg
474: ,p_attribute2 => ''
475: ,p_attribute3 => ''
476: ,p_attribute4 => ''
477: ,p_attribute5 => '');
478: p_return_status := FND_API.G_RET_STS_ERROR;
479: RAISE FND_API.G_EXC_ERROR;
480: END IF;
481:
482:
475: ,p_attribute3 => ''
476: ,p_attribute4 => ''
477: ,p_attribute5 => '');
478: p_return_status := FND_API.G_RET_STS_ERROR;
479: RAISE FND_API.G_EXC_ERROR;
480: END IF;
481:
482:
483: -- Now verify whether project security allows the user to update the project
495: ,p_attribute3 => ''
496: ,p_attribute4 => ''
497: ,p_attribute5 => '');
498:
499: p_return_status := FND_API.G_RET_STS_ERROR;
500:
501: RAISE FND_API.G_EXC_ERROR;
502: ELSE
503: -- If the user has query privileges, then check whether
497: ,p_attribute5 => '');
498:
499: p_return_status := FND_API.G_RET_STS_ERROR;
500:
501: RAISE FND_API.G_EXC_ERROR;
502: ELSE
503: -- If the user has query privileges, then check whether
504: -- update privileges are also available
505: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
517: ,p_attribute3 => ''
518: ,p_attribute4 => ''
519: ,p_attribute5 => '');
520:
521: p_return_status := FND_API.G_RET_STS_ERROR;
522:
523: RAISE FND_API.G_EXC_ERROR;
524: END IF;
525: END IF;
519: ,p_attribute5 => '');
520:
521: p_return_status := FND_API.G_RET_STS_ERROR;
522:
523: RAISE FND_API.G_EXC_ERROR;
524: END IF;
525: END IF;
526:
527:
593: ,p_attribute3 => ''
594: ,p_attribute4 => ''
595: ,p_attribute5 => '');
596:
597: p_return_status := FND_API.G_RET_STS_ERROR;
598:
599: RAISE FND_API.G_EXC_ERROR;
600: END IF;
601:
595: ,p_attribute5 => '');
596:
597: p_return_status := FND_API.G_RET_STS_ERROR;
598:
599: RAISE FND_API.G_EXC_ERROR;
600: END IF;
601:
602:
603: --Validate that the new Asset reference is unique in the project
617: ,p_attribute3 => ''
618: ,p_attribute4 => ''
619: ,p_attribute5 => '');
620:
621: p_return_status := FND_API.G_RET_STS_ERROR;
622:
623: RAISE FND_API.G_EXC_ERROR;
624: END IF;
625: CLOSE unique_ref_cur;
619: ,p_attribute5 => '');
620:
621: p_return_status := FND_API.G_RET_STS_ERROR;
622:
623: RAISE FND_API.G_EXC_ERROR;
624: END IF;
625: CLOSE unique_ref_cur;
626:
627:
639: ,p_attribute3 => ''
640: ,p_attribute4 => ''
641: ,p_attribute5 => '');
642:
643: p_return_status := FND_API.G_RET_STS_ERROR;
644:
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
647:
641: ,p_attribute5 => '');
642:
643: p_return_status := FND_API.G_RET_STS_ERROR;
644:
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
647:
648:
649: --Validate that the new Asset Name is unique in the project
663: ,p_attribute3 => ''
664: ,p_attribute4 => ''
665: ,p_attribute5 => '');
666:
667: p_return_status := FND_API.G_RET_STS_ERROR;
668:
669: RAISE FND_API.G_EXC_ERROR;
670: END IF;
671: CLOSE unique_name_cur;
665: ,p_attribute5 => '');
666:
667: p_return_status := FND_API.G_RET_STS_ERROR;
668:
669: RAISE FND_API.G_EXC_ERROR;
670: END IF;
671: CLOSE unique_name_cur;
672:
673:
685: ,p_attribute3 => ''
686: ,p_attribute4 => ''
687: ,p_attribute5 => '');
688:
689: p_return_status := FND_API.G_RET_STS_ERROR;
690:
691: RAISE FND_API.G_EXC_ERROR;
692: END IF;
693:
687: ,p_attribute5 => '');
688:
689: p_return_status := FND_API.G_RET_STS_ERROR;
690:
691: RAISE FND_API.G_EXC_ERROR;
692: END IF;
693:
694:
695: --Validate that the new Project Asset Type is NOT NULL
706: ,p_attribute3 => ''
707: ,p_attribute4 => ''
708: ,p_attribute5 => '');
709:
710: p_return_status := FND_API.G_RET_STS_ERROR;
711:
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
714:
708: ,p_attribute5 => '');
709:
710: p_return_status := FND_API.G_RET_STS_ERROR;
711:
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
714:
715:
716: --Validate that the new Project Asset Type is ESTIMATED, AS-BUILT or RETIREMENT_ADJUSTMENT
730: ,p_attribute3 => ''
731: ,p_attribute4 => ''
732: ,p_attribute5 => '');
733:
734: p_return_status := FND_API.G_RET_STS_ERROR;
735:
736: RAISE FND_API.G_EXC_ERROR;
737: END IF;
738: CLOSE valid_type_cur;
732: ,p_attribute5 => '');
733:
734: p_return_status := FND_API.G_RET_STS_ERROR;
735:
736: RAISE FND_API.G_EXC_ERROR;
737: END IF;
738: CLOSE valid_type_cur;
739:
740:
753: ,p_attribute3 => ''
754: ,p_attribute4 => ''
755: ,p_attribute5 => '');
756:
757: p_return_status := FND_API.G_RET_STS_ERROR;
758:
759: RAISE FND_API.G_EXC_ERROR;
760: END IF;
761:
755: ,p_attribute5 => '');
756:
757: p_return_status := FND_API.G_RET_STS_ERROR;
758:
759: RAISE FND_API.G_EXC_ERROR;
760: END IF;
761:
762: IF p_asset_units IS NULL OR p_asset_units = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
763:
772: ,p_attribute3 => ''
773: ,p_attribute4 => ''
774: ,p_attribute5 => '');
775:
776: p_return_status := FND_API.G_RET_STS_ERROR;
777:
778: RAISE FND_API.G_EXC_ERROR;
779: END IF;
780: END IF;
774: ,p_attribute5 => '');
775:
776: p_return_status := FND_API.G_RET_STS_ERROR;
777:
778: RAISE FND_API.G_EXC_ERROR;
779: END IF;
780: END IF;
781:
782:
796: ,p_attribute3 => ''
797: ,p_attribute4 => ''
798: ,p_attribute5 => '');
799:
800: p_return_status := FND_API.G_RET_STS_ERROR;
801:
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804: END IF;
798: ,p_attribute5 => '');
799:
800: p_return_status := FND_API.G_RET_STS_ERROR;
801:
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
804: END IF;
805:
806:
822: ,p_attribute3 => ''
823: ,p_attribute4 => ''
824: ,p_attribute5 => '');
825:
826: p_return_status := FND_API.G_RET_STS_ERROR;
827:
828: RAISE FND_API.G_EXC_ERROR;
829: END IF;
830: CLOSE unique_number_cur;
824: ,p_attribute5 => '');
825:
826: p_return_status := FND_API.G_RET_STS_ERROR;
827:
828: RAISE FND_API.G_EXC_ERROR;
829: END IF;
830: CLOSE unique_number_cur;
831: END IF;
832:
851: ,p_attribute3 => ''
852: ,p_attribute4 => ''
853: ,p_attribute5 => '');
854:
855: p_return_status := FND_API.G_RET_STS_ERROR;
856:
857: RAISE FND_API.G_EXC_ERROR;
858: END IF;
859: CLOSE unique_tag_number_fa_cur;
853: ,p_attribute5 => '');
854:
855: p_return_status := FND_API.G_RET_STS_ERROR;
856:
857: RAISE FND_API.G_EXC_ERROR;
858: END IF;
859: CLOSE unique_tag_number_fa_cur;
860:
861: --Test for uniqueness in Oracle Projects
875: ,p_attribute3 => ''
876: ,p_attribute4 => ''
877: ,p_attribute5 => '');
878:
879: p_return_status := FND_API.G_RET_STS_ERROR;
880:
881: RAISE FND_API.G_EXC_ERROR;
882: END IF;
883: CLOSE unique_tag_number_pa_cur;
877: ,p_attribute5 => '');
878:
879: p_return_status := FND_API.G_RET_STS_ERROR;
880:
881: RAISE FND_API.G_EXC_ERROR;
882: END IF;
883: CLOSE unique_tag_number_pa_cur;
884: END IF;
885:
903: ,p_attribute3 => ''
904: ,p_attribute4 => ''
905: ,p_attribute5 => '');
906:
907: p_return_status := FND_API.G_RET_STS_ERROR;
908:
909: RAISE FND_API.G_EXC_ERROR;
910: END IF;
911: CLOSE asset_location_cur;
905: ,p_attribute5 => '');
906:
907: p_return_status := FND_API.G_RET_STS_ERROR;
908:
909: RAISE FND_API.G_EXC_ERROR;
910: END IF;
911: CLOSE asset_location_cur;
912: END IF;
913:
930: ,p_attribute3 => ''
931: ,p_attribute4 => ''
932: ,p_attribute5 => '');
933:
934: p_return_status := FND_API.G_RET_STS_ERROR;
935:
936: RAISE FND_API.G_EXC_ERROR;
937: END IF;
938: CLOSE people_cur;
932: ,p_attribute5 => '');
933:
934: p_return_status := FND_API.G_RET_STS_ERROR;
935:
936: RAISE FND_API.G_EXC_ERROR;
937: END IF;
938: CLOSE people_cur;
939: END IF;
940:
957: ,p_attribute3 => ''
958: ,p_attribute4 => ''
959: ,p_attribute5 => '');
960:
961: p_return_status := FND_API.G_RET_STS_ERROR;
962:
963: RAISE FND_API.G_EXC_ERROR;
964: ELSE
965: l_asset_in_rec.book_type_code := p_book_type_code;
959: ,p_attribute5 => '');
960:
961: p_return_status := FND_API.G_RET_STS_ERROR;
962:
963: RAISE FND_API.G_EXC_ERROR;
964: ELSE
965: l_asset_in_rec.book_type_code := p_book_type_code;
966: END IF;
967: CLOSE book_type_code_cur;
993: ,p_attribute3 => ''
994: ,p_attribute4 => ''
995: ,p_attribute5 => '');
996:
997: p_return_status := FND_API.G_RET_STS_ERROR;
998:
999: RAISE FND_API.G_EXC_ERROR;
1000:
1001: END IF;
995: ,p_attribute5 => '');
996:
997: p_return_status := FND_API.G_RET_STS_ERROR;
998:
999: RAISE FND_API.G_EXC_ERROR;
1000:
1001: END IF;
1002:
1003:
1021: ,p_attribute3 => ''
1022: ,p_attribute4 => ''
1023: ,p_attribute5 => '');
1024:
1025: p_return_status := FND_API.G_RET_STS_ERROR;
1026:
1027: RAISE FND_API.G_EXC_ERROR;
1028: END IF;
1029:
1023: ,p_attribute5 => '');
1024:
1025: p_return_status := FND_API.G_RET_STS_ERROR;
1026:
1027: RAISE FND_API.G_EXC_ERROR;
1028: END IF;
1029:
1030: CLOSE parent_asset_book_cur;
1031:
1049: ,p_attribute3 => ''
1050: ,p_attribute4 => ''
1051: ,p_attribute5 => '');
1052:
1053: p_return_status := FND_API.G_RET_STS_ERROR;
1054:
1055: RAISE FND_API.G_EXC_ERROR;
1056: END IF;
1057:
1051: ,p_attribute5 => '');
1052:
1053: p_return_status := FND_API.G_RET_STS_ERROR;
1054:
1055: RAISE FND_API.G_EXC_ERROR;
1056: END IF;
1057:
1058: CLOSE parent_asset_cur;
1059:
1078: ,p_attribute3 => ''
1079: ,p_attribute4 => ''
1080: ,p_attribute5 => '');
1081:
1082: p_return_status := FND_API.G_RET_STS_ERROR;
1083:
1084: RAISE FND_API.G_EXC_ERROR;
1085: END IF;
1086: CLOSE asset_category_cur;
1080: ,p_attribute5 => '');
1081:
1082: p_return_status := FND_API.G_RET_STS_ERROR;
1083:
1084: RAISE FND_API.G_EXC_ERROR;
1085: END IF;
1086: CLOSE asset_category_cur;
1087:
1088:
1104: ,p_attribute3 => ''
1105: ,p_attribute4 => ''
1106: ,p_attribute5 => '');
1107:
1108: p_return_status := FND_API.G_RET_STS_ERROR;
1109:
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112: CLOSE category_books_cur;
1106: ,p_attribute5 => '');
1107:
1108: p_return_status := FND_API.G_RET_STS_ERROR;
1109:
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112: CLOSE category_books_cur;
1113:
1114:
1150: ,p_attribute3 => ''
1151: ,p_attribute4 => ''
1152: ,p_attribute5 => '');
1153:
1154: p_return_status := FND_API.G_RET_STS_ERROR;
1155:
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSE
1158: l_asset_in_rec.amortize_flag := p_amortize_flag;
1152: ,p_attribute5 => '');
1153:
1154: p_return_status := FND_API.G_RET_STS_ERROR;
1155:
1156: RAISE FND_API.G_EXC_ERROR;
1157: ELSE
1158: l_asset_in_rec.amortize_flag := p_amortize_flag;
1159: END IF;
1160:
1175: ,p_attribute3 => ''
1176: ,p_attribute4 => ''
1177: ,p_attribute5 => '');
1178:
1179: p_return_status := FND_API.G_RET_STS_ERROR;
1180:
1181: RAISE FND_API.G_EXC_ERROR;
1182: ELSE
1183: l_asset_in_rec.depreciate_flag := p_depreciate_flag;
1177: ,p_attribute5 => '');
1178:
1179: p_return_status := FND_API.G_RET_STS_ERROR;
1180:
1181: RAISE FND_API.G_EXC_ERROR;
1182: ELSE
1183: l_asset_in_rec.depreciate_flag := p_depreciate_flag;
1184: END IF;
1185:
1232: ,p_attribute3 => ''
1233: ,p_attribute4 => ''
1234: ,p_attribute5 => '');
1235:
1236: p_return_status := FND_API.G_RET_STS_ERROR;
1237:
1238: RAISE FND_API.G_EXC_ERROR;
1239: END IF;
1240: CLOSE deprn_expense_cur;
1234: ,p_attribute5 => '');
1235:
1236: p_return_status := FND_API.G_RET_STS_ERROR;
1237:
1238: RAISE FND_API.G_EXC_ERROR;
1239: END IF;
1240: CLOSE deprn_expense_cur;
1241:
1242: END IF;
1261: ,p_attribute3 => ''
1262: ,p_attribute4 => ''
1263: ,p_attribute5 => '');
1264:
1265: p_return_status := FND_API.G_RET_STS_ERROR;
1266:
1267: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1269: CLOSE asset_key_cur;
1263: ,p_attribute5 => '');
1264:
1265: p_return_status := FND_API.G_RET_STS_ERROR;
1266:
1267: RAISE FND_API.G_EXC_ERROR;
1268: END IF;
1269: CLOSE asset_key_cur;
1270: END IF;
1271:
1292: ,p_attribute3 => ''
1293: ,p_attribute4 => ''
1294: ,p_attribute5 => '');
1295:
1296: p_return_status := FND_API.G_RET_STS_ERROR;
1297:
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300: CLOSE ret_target_cur;
1294: ,p_attribute5 => '');
1295:
1296: p_return_status := FND_API.G_RET_STS_ERROR;
1297:
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300: CLOSE ret_target_cur;
1301:
1302: --If Asset Category ID is NULL, default it to the Category of the Ret Target Asset
1315: ,p_attribute3 => ''
1316: ,p_attribute4 => ''
1317: ,p_attribute5 => '');
1318:
1319: p_return_status := FND_API.G_RET_STS_ERROR;
1320:
1321: RAISE FND_API.G_EXC_ERROR;
1322: END IF;
1323: ELSE
1317: ,p_attribute5 => '');
1318:
1319: p_return_status := FND_API.G_RET_STS_ERROR;
1320:
1321: RAISE FND_API.G_EXC_ERROR;
1322: END IF;
1323: ELSE
1324: --Ret Target Asset ID must not be specified
1325: IF p_ret_target_asset_id IS NOT NULL AND p_ret_target_asset_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
1335: ,p_attribute3 => ''
1336: ,p_attribute4 => ''
1337: ,p_attribute5 => '');
1338:
1339: p_return_status := FND_API.G_RET_STS_ERROR;
1340:
1341: RAISE FND_API.G_EXC_ERROR;
1342: END IF;
1343: END IF;
1337: ,p_attribute5 => '');
1338:
1339: p_return_status := FND_API.G_RET_STS_ERROR;
1340:
1341: RAISE FND_API.G_EXC_ERROR;
1342: END IF;
1343: END IF;
1344:
1345:
1370: ,p_attribute3 => ''
1371: ,p_attribute4 => ''
1372: ,p_attribute5 => '');
1373:
1374: p_return_status := FND_API.G_RET_STS_ERROR;
1375:
1376: RAISE FND_API.G_EXC_ERROR;
1377: END IF;
1378:
1372: ,p_attribute5 => '');
1373:
1374: p_return_status := FND_API.G_RET_STS_ERROR;
1375:
1376: RAISE FND_API.G_EXC_ERROR;
1377: END IF;
1378:
1379:
1380: IF p_location_id IS NULL OR p_location_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
1390: ,p_attribute3 => ''
1391: ,p_attribute4 => ''
1392: ,p_attribute5 => '');
1393:
1394: p_return_status := FND_API.G_RET_STS_ERROR;
1395:
1396: RAISE FND_API.G_EXC_ERROR;
1397: END IF;
1398:
1392: ,p_attribute5 => '');
1393:
1394: p_return_status := FND_API.G_RET_STS_ERROR;
1395:
1396: RAISE FND_API.G_EXC_ERROR;
1397: END IF;
1398:
1399:
1400: IF l_asset_in_rec.book_type_code IS NULL OR l_asset_in_rec.book_type_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
1410: ,p_attribute3 => ''
1411: ,p_attribute4 => ''
1412: ,p_attribute5 => '');
1413:
1414: p_return_status := FND_API.G_RET_STS_ERROR;
1415:
1416: RAISE FND_API.G_EXC_ERROR;
1417: END IF;
1418:
1412: ,p_attribute5 => '');
1413:
1414: p_return_status := FND_API.G_RET_STS_ERROR;
1415:
1416: RAISE FND_API.G_EXC_ERROR;
1417: END IF;
1418:
1419:
1420: IF l_asset_in_rec.depreciation_expense_ccid IS NULL OR l_asset_in_rec.depreciation_expense_ccid = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
1430: ,p_attribute3 => ''
1431: ,p_attribute4 => ''
1432: ,p_attribute5 => '');
1433:
1434: p_return_status := FND_API.G_RET_STS_ERROR;
1435:
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1438:
1432: ,p_attribute5 => '');
1433:
1434: p_return_status := FND_API.G_RET_STS_ERROR;
1435:
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1438:
1439:
1440: IF p_asset_key_ccid IS NULL OR p_asset_key_ccid = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
1486: ,p_attribute3 => ''
1487: ,p_attribute4 => ''
1488: ,p_attribute5 => '');
1489:
1490: p_return_status := FND_API.G_RET_STS_ERROR;
1491:
1492: RAISE FND_API.G_EXC_ERROR;
1493: END IF; --Asset Key is required
1494: END IF; --Structnum was determined
1488: ,p_attribute5 => '');
1489:
1490: p_return_status := FND_API.G_RET_STS_ERROR;
1491:
1492: RAISE FND_API.G_EXC_ERROR;
1493: END IF; --Asset Key is required
1494: END IF; --Structnum was determined
1495: END IF; --Asset Key was not specified
1496: END IF; --AS-BUILT asset with Complete Asset Info required
1790: p_pm_asset_reference_out := l_asset_in_rec.pm_asset_reference;
1791:
1792:
1793: --Issue commit if indicated
1794: IF FND_API.to_boolean( p_commit ) THEN
1795: COMMIT;
1796: END IF;
1797:
1798:
1796: END IF;
1797:
1798:
1799: EXCEPTION
1800: WHEN FND_API.G_EXC_ERROR THEN
1801: ROLLBACK TO add_project_asset_pub;
1802:
1803: p_return_status := FND_API.G_RET_STS_ERROR;
1804:
1799: EXCEPTION
1800: WHEN FND_API.G_EXC_ERROR THEN
1801: ROLLBACK TO add_project_asset_pub;
1802:
1803: p_return_status := FND_API.G_RET_STS_ERROR;
1804:
1805: FND_MSG_PUB.Count_And_Get
1806: ( p_count => p_msg_count ,
1807: p_data => p_msg_data );
1805: FND_MSG_PUB.Count_And_Get
1806: ( p_count => p_msg_count ,
1807: p_data => p_msg_data );
1808:
1809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1810: ROLLBACK TO add_project_asset_pub;
1811:
1812: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1813:
1808:
1809: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1810: ROLLBACK TO add_project_asset_pub;
1811:
1812: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1813:
1814: FND_MSG_PUB.Count_And_Get
1815: ( p_count => p_msg_count ,
1816: p_data => p_msg_data );
1817:
1818: WHEN OTHERS THEN
1819: ROLLBACK TO add_project_asset_pub;
1820:
1821: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1822:
1823: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1824: FND_MSG_PUB.add_exc_msg
1825: ( p_pkg_name => G_PKG_NAME
1850: -- 15-JAN-2003 JPULTORAK Created
1851: --
1852: PROCEDURE add_asset_assignment
1853: ( p_api_version_number IN NUMBER
1854: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1855: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1856: ,p_msg_count OUT NOCOPY NUMBER
1857: ,p_msg_data OUT NOCOPY VARCHAR2
1858: ,p_return_status OUT NOCOPY VARCHAR2
1851: --
1852: PROCEDURE add_asset_assignment
1853: ( p_api_version_number IN NUMBER
1854: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1855: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1856: ,p_msg_count OUT NOCOPY NUMBER
1857: ,p_msg_data OUT NOCOPY VARCHAR2
1858: ,p_return_status OUT NOCOPY VARCHAR2
1859: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
2072: SAVEPOINT add_asset_assignment_pub;
2073:
2074:
2075: -- Standard call to check for call compatibility.
2076: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2077: p_api_version_number ,
2078: l_api_name ,
2079: G_PKG_NAME ) THEN
2080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2076: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
2077: p_api_version_number ,
2078: l_api_name ,
2079: G_PKG_NAME ) THEN
2080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2081: END IF;
2082:
2083:
2084: -- Initialize the message table if requested.
2081: END IF;
2082:
2083:
2084: -- Initialize the message table if requested.
2085: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
2086: FND_MSG_PUB.initialize;
2087: END IF;
2088:
2089:
2087: END IF;
2088:
2089:
2090: -- Set API return status to success
2091: p_return_status := FND_API.G_RET_STS_SUCCESS;
2092:
2093:
2094: -- pm_product_code is mandatory
2095: IF p_pm_product_code IS NULL OR p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
2106: ,p_attribute4 => ''
2107: ,p_attribute5 => '');
2108: END IF;
2109:
2110: RAISE FND_API.G_EXC_ERROR;
2111: END IF;
2112:
2113:
2114: --Initialize variables
2125: , p_out_project_id => l_project_id
2126: , p_return_status => l_return_status
2127: );
2128:
2129: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2126: , p_return_status => l_return_status
2127: );
2128:
2129: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2134:
2127: );
2128:
2129: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2134:
2135: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
2128:
2129: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2134:
2135: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
2136:
2158: ,p_attribute3 => ''
2159: ,p_attribute4 => ''
2160: ,p_attribute5 => '');
2161:
2162: p_return_status := FND_API.G_RET_STS_ERROR;
2163:
2164: RAISE FND_API.G_EXC_ERROR;
2165: END IF;
2166: CLOSE capital_project_cur;
2160: ,p_attribute5 => '');
2161:
2162: p_return_status := FND_API.G_RET_STS_ERROR;
2163:
2164: RAISE FND_API.G_EXC_ERROR;
2165: END IF;
2166: CLOSE capital_project_cur;
2167:
2168:
2192: p_msg_data => l_msg_data,
2193: p_return_status => l_return_status,
2194: p_function_allowed => l_function_allowed);
2195:
2196: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2199: RAISE FND_API.G_EXC_ERROR;
2200: END IF;
2193: p_return_status => l_return_status,
2194: p_function_allowed => l_function_allowed);
2195:
2196: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2199: RAISE FND_API.G_EXC_ERROR;
2200: END IF;
2201:
2194: p_function_allowed => l_function_allowed);
2195:
2196: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2199: RAISE FND_API.G_EXC_ERROR;
2200: END IF;
2201:
2202: IF l_function_allowed = 'N' THEN
2195:
2196: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2199: RAISE FND_API.G_EXC_ERROR;
2200: END IF;
2201:
2202: IF l_function_allowed = 'N' THEN
2203: pa_interface_utils_pub.map_new_amg_msg
2209: ,p_attribute2 => ''
2210: ,p_attribute3 => ''
2211: ,p_attribute4 => ''
2212: ,p_attribute5 => '');
2213: p_return_status := FND_API.G_RET_STS_ERROR;
2214: RAISE FND_API.G_EXC_ERROR;
2215: END IF;
2216:
2217:
2210: ,p_attribute3 => ''
2211: ,p_attribute4 => ''
2212: ,p_attribute5 => '');
2213: p_return_status := FND_API.G_RET_STS_ERROR;
2214: RAISE FND_API.G_EXC_ERROR;
2215: END IF;
2216:
2217:
2218: -- Now verify whether project security allows the user to update the project
2230: ,p_attribute3 => ''
2231: ,p_attribute4 => ''
2232: ,p_attribute5 => '');
2233:
2234: p_return_status := FND_API.G_RET_STS_ERROR;
2235:
2236: RAISE FND_API.G_EXC_ERROR;
2237: ELSE
2238: -- If the user has query privileges, then check whether
2232: ,p_attribute5 => '');
2233:
2234: p_return_status := FND_API.G_RET_STS_ERROR;
2235:
2236: RAISE FND_API.G_EXC_ERROR;
2237: ELSE
2238: -- If the user has query privileges, then check whether
2239: -- update privileges are also available
2240: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
2252: ,p_attribute3 => ''
2253: ,p_attribute4 => ''
2254: ,p_attribute5 => '');
2255:
2256: p_return_status := FND_API.G_RET_STS_ERROR;
2257:
2258: RAISE FND_API.G_EXC_ERROR;
2259: END IF;
2260: END IF;
2254: ,p_attribute5 => '');
2255:
2256: p_return_status := FND_API.G_RET_STS_ERROR;
2257:
2258: RAISE FND_API.G_EXC_ERROR;
2259: END IF;
2260: END IF;
2261:
2262:
2275: p_pm_task_reference => p_pm_task_reference,
2276: p_out_task_id => l_task_id,
2277: p_return_status => l_return_status );
2278:
2279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2281: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2282: RAISE FND_API.G_EXC_ERROR;
2283: END IF;
2276: p_out_task_id => l_task_id,
2277: p_return_status => l_return_status );
2278:
2279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2281: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2282: RAISE FND_API.G_EXC_ERROR;
2283: END IF;
2284:
2277: p_return_status => l_return_status );
2278:
2279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2281: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2282: RAISE FND_API.G_EXC_ERROR;
2283: END IF;
2284:
2285: END IF;
2278:
2279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2281: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2282: RAISE FND_API.G_EXC_ERROR;
2283: END IF;
2284:
2285: END IF;
2286:
2300: p_pm_asset_reference => p_pm_asset_reference,
2301: p_out_project_asset_id => l_project_asset_id,
2302: p_return_status => l_return_status );
2303:
2304: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2307: RAISE FND_API.G_EXC_ERROR;
2308: END IF;
2301: p_out_project_asset_id => l_project_asset_id,
2302: p_return_status => l_return_status );
2303:
2304: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2307: RAISE FND_API.G_EXC_ERROR;
2308: END IF;
2309:
2302: p_return_status => l_return_status );
2303:
2304: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2307: RAISE FND_API.G_EXC_ERROR;
2308: END IF;
2309:
2310: END IF;
2303:
2304: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2307: RAISE FND_API.G_EXC_ERROR;
2308: END IF;
2309:
2310: END IF;
2311:
2329: ,p_attribute3 => ''
2330: ,p_attribute4 => ''
2331: ,p_attribute5 => '');
2332:
2333: p_return_status := FND_API.G_RET_STS_ERROR;
2334:
2335: RAISE FND_API.G_EXC_ERROR;
2336: END IF;
2337:
2331: ,p_attribute5 => '');
2332:
2333: p_return_status := FND_API.G_RET_STS_ERROR;
2334:
2335: RAISE FND_API.G_EXC_ERROR;
2336: END IF;
2337:
2338: CLOSE task_assign_cur;
2339: END IF;
2357: ,p_attribute3 => ''
2358: ,p_attribute4 => ''
2359: ,p_attribute5 => '');
2360:
2361: p_return_status := FND_API.G_RET_STS_ERROR;
2362:
2363: RAISE FND_API.G_EXC_ERROR;
2364: END IF;
2365:
2359: ,p_attribute5 => '');
2360:
2361: p_return_status := FND_API.G_RET_STS_ERROR;
2362:
2363: RAISE FND_API.G_EXC_ERROR;
2364: END IF;
2365:
2366: CLOSE specific_assign_cur;
2367: END IF;
2385: ,p_attribute3 => ''
2386: ,p_attribute4 => ''
2387: ,p_attribute5 => '');
2388:
2389: p_return_status := FND_API.G_RET_STS_ERROR;
2390:
2391: RAISE FND_API.G_EXC_ERROR;
2392: END IF;
2393:
2387: ,p_attribute5 => '');
2388:
2389: p_return_status := FND_API.G_RET_STS_ERROR;
2390:
2391: RAISE FND_API.G_EXC_ERROR;
2392: END IF;
2393:
2394: CLOSE common_assign_cur;
2395: END IF;
2416: ,p_attribute3 => ''
2417: ,p_attribute4 => ''
2418: ,p_attribute5 => '');
2419:
2420: p_return_status := FND_API.G_RET_STS_ERROR;
2421:
2422: RAISE FND_API.G_EXC_ERROR;
2423: END IF;
2424:
2418: ,p_attribute5 => '');
2419:
2420: p_return_status := FND_API.G_RET_STS_ERROR;
2421:
2422: RAISE FND_API.G_EXC_ERROR;
2423: END IF;
2424:
2425: CLOSE proj_assign_cur;
2426:
2449: ,p_attribute3 => ''
2450: ,p_attribute4 => ''
2451: ,p_attribute5 => '');
2452:
2453: p_return_status := FND_API.G_RET_STS_ERROR;
2454:
2455: RAISE FND_API.G_EXC_ERROR;
2456:
2457: END IF;
2451: ,p_attribute5 => '');
2452:
2453: p_return_status := FND_API.G_RET_STS_ERROR;
2454:
2455: RAISE FND_API.G_EXC_ERROR;
2456:
2457: END IF;
2458: CLOSE child_assign_cur;
2459:
2475: ,p_attribute3 => ''
2476: ,p_attribute4 => ''
2477: ,p_attribute5 => '');
2478:
2479: p_return_status := FND_API.G_RET_STS_ERROR;
2480:
2481: RAISE FND_API.G_EXC_ERROR;
2482:
2483: END IF;
2477: ,p_attribute5 => '');
2478:
2479: p_return_status := FND_API.G_RET_STS_ERROR;
2480:
2481: RAISE FND_API.G_EXC_ERROR;
2482:
2483: END IF;
2484: CLOSE child_task_cur;
2485:
2502: ,p_attribute3 => ''
2503: ,p_attribute4 => ''
2504: ,p_attribute5 => '');
2505:
2506: p_return_status := FND_API.G_RET_STS_ERROR;
2507:
2508: RAISE FND_API.G_EXC_ERROR;
2509:
2510: END IF;
2504: ,p_attribute5 => '');
2505:
2506: p_return_status := FND_API.G_RET_STS_ERROR;
2507:
2508: RAISE FND_API.G_EXC_ERROR;
2509:
2510: END IF;
2511: CLOSE top_assign_cur;
2512:
2533: ,p_attribute3 => ''
2534: ,p_attribute4 => ''
2535: ,p_attribute5 => '');
2536:
2537: p_return_status := FND_API.G_RET_STS_ERROR;
2538:
2539: RAISE FND_API.G_EXC_ERROR;
2540: END IF;
2541:
2535: ,p_attribute5 => '');
2536:
2537: p_return_status := FND_API.G_RET_STS_ERROR;
2538:
2539: RAISE FND_API.G_EXC_ERROR;
2540: END IF;
2541:
2542: CLOSE task_specific_assign_cur;
2543: END IF;
2562: ,p_attribute3 => ''
2563: ,p_attribute4 => ''
2564: ,p_attribute5 => '');
2565:
2566: p_return_status := FND_API.G_RET_STS_ERROR;
2567:
2568: RAISE FND_API.G_EXC_ERROR;
2569: END IF;
2570:
2564: ,p_attribute5 => '');
2565:
2566: p_return_status := FND_API.G_RET_STS_ERROR;
2567:
2568: RAISE FND_API.G_EXC_ERROR;
2569: END IF;
2570:
2571: CLOSE task_common_assign_cur;
2572: END IF;
2727: p_pa_project_asset_id_out := l_project_asset_id;
2728:
2729:
2730: --Perform commit if indicated
2731: IF FND_API.to_boolean( p_commit ) THEN
2732: COMMIT;
2733: END IF;
2734:
2735:
2734:
2735:
2736:
2737: EXCEPTION
2738: WHEN FND_API.G_EXC_ERROR THEN
2739: ROLLBACK TO add_asset_assignment_pub;
2740:
2741: p_return_status := FND_API.G_RET_STS_ERROR;
2742:
2737: EXCEPTION
2738: WHEN FND_API.G_EXC_ERROR THEN
2739: ROLLBACK TO add_asset_assignment_pub;
2740:
2741: p_return_status := FND_API.G_RET_STS_ERROR;
2742:
2743: FND_MSG_PUB.Count_And_Get
2744: ( p_count => p_msg_count ,
2745: p_data => p_msg_data );
2743: FND_MSG_PUB.Count_And_Get
2744: ( p_count => p_msg_count ,
2745: p_data => p_msg_data );
2746:
2747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2748: ROLLBACK TO add_asset_assignment_pub;
2749:
2750: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2751:
2746:
2747: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2748: ROLLBACK TO add_asset_assignment_pub;
2749:
2750: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2751:
2752: FND_MSG_PUB.Count_And_Get
2753: ( p_count => p_msg_count ,
2754: p_data => p_msg_data );
2755:
2756: WHEN OTHERS THEN
2757: ROLLBACK TO add_asset_assignment_pub;
2758:
2759: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2760:
2761: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2762: FND_MSG_PUB.add_exc_msg
2763: ( p_pkg_name => G_PKG_NAME
2793: -- while performing validations and checks to see if fields have been changed.
2794: --
2795: PROCEDURE update_project_asset
2796: ( p_api_version_number IN NUMBER
2797: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2798: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2799: ,p_msg_count OUT NOCOPY NUMBER
2800: ,p_msg_data OUT NOCOPY VARCHAR2
2801: ,p_return_status OUT NOCOPY VARCHAR2
2794: --
2795: PROCEDURE update_project_asset
2796: ( p_api_version_number IN NUMBER
2797: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2798: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2799: ,p_msg_count OUT NOCOPY NUMBER
2800: ,p_msg_data OUT NOCOPY VARCHAR2
2801: ,p_return_status OUT NOCOPY VARCHAR2
2802: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
3183: SAVEPOINT update_project_asset_pub;
3184:
3185:
3186: -- Standard call to check for call compatibility.
3187: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3188: p_api_version_number ,
3189: l_api_name ,
3190: G_PKG_NAME ) THEN
3191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
3188: p_api_version_number ,
3189: l_api_name ,
3190: G_PKG_NAME ) THEN
3191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3192: END IF;
3193:
3194:
3195: -- Initialize the message table if requested.
3192: END IF;
3193:
3194:
3195: -- Initialize the message table if requested.
3196: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
3197: FND_MSG_PUB.initialize;
3198: END IF;
3199:
3200:
3198: END IF;
3199:
3200:
3201: -- Set API return status to success
3202: p_return_status := FND_API.G_RET_STS_SUCCESS;
3203:
3204:
3205: -- pm_product_code is mandatory
3206: IF p_pm_product_code IS NULL OR p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
3217: ,p_attribute4 => ''
3218: ,p_attribute5 => '');
3219: END IF;
3220:
3221: RAISE FND_API.G_EXC_ERROR;
3222: END IF;
3223:
3224:
3225: --Initialize variables
3235: , p_out_project_id => l_project_id
3236: , p_return_status => l_return_status
3237: );
3238:
3239: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3241: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3236: , p_return_status => l_return_status
3237: );
3238:
3239: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3241: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3244:
3237: );
3238:
3239: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3241: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3244:
3245: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
3238:
3239: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3241: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3244:
3245: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
3246:
3268: ,p_attribute3 => ''
3269: ,p_attribute4 => ''
3270: ,p_attribute5 => '');
3271:
3272: p_return_status := FND_API.G_RET_STS_ERROR;
3273:
3274: RAISE FND_API.G_EXC_ERROR;
3275: END IF;
3276: CLOSE capital_project_cur;
3270: ,p_attribute5 => '');
3271:
3272: p_return_status := FND_API.G_RET_STS_ERROR;
3273:
3274: RAISE FND_API.G_EXC_ERROR;
3275: END IF;
3276: CLOSE capital_project_cur;
3277:
3278:
3302: p_msg_data => l_msg_data,
3303: p_return_status => l_return_status,
3304: p_function_allowed => l_function_allowed);
3305:
3306: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3308: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3309: RAISE FND_API.G_EXC_ERROR;
3310: END IF;
3303: p_return_status => l_return_status,
3304: p_function_allowed => l_function_allowed);
3305:
3306: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3308: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3309: RAISE FND_API.G_EXC_ERROR;
3310: END IF;
3311:
3304: p_function_allowed => l_function_allowed);
3305:
3306: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3308: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3309: RAISE FND_API.G_EXC_ERROR;
3310: END IF;
3311:
3312: IF l_function_allowed = 'N' THEN
3305:
3306: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3308: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3309: RAISE FND_API.G_EXC_ERROR;
3310: END IF;
3311:
3312: IF l_function_allowed = 'N' THEN
3313: pa_interface_utils_pub.map_new_amg_msg
3319: ,p_attribute2 => ''
3320: ,p_attribute3 => ''
3321: ,p_attribute4 => ''
3322: ,p_attribute5 => '');
3323: p_return_status := FND_API.G_RET_STS_ERROR;
3324: RAISE FND_API.G_EXC_ERROR;
3325: END IF;
3326:
3327:
3320: ,p_attribute3 => ''
3321: ,p_attribute4 => ''
3322: ,p_attribute5 => '');
3323: p_return_status := FND_API.G_RET_STS_ERROR;
3324: RAISE FND_API.G_EXC_ERROR;
3325: END IF;
3326:
3327:
3328:
3341: ,p_attribute3 => ''
3342: ,p_attribute4 => ''
3343: ,p_attribute5 => '');
3344:
3345: p_return_status := FND_API.G_RET_STS_ERROR;
3346:
3347: RAISE FND_API.G_EXC_ERROR;
3348: ELSE
3349: -- If the user has query privileges, then check whether
3343: ,p_attribute5 => '');
3344:
3345: p_return_status := FND_API.G_RET_STS_ERROR;
3346:
3347: RAISE FND_API.G_EXC_ERROR;
3348: ELSE
3349: -- If the user has query privileges, then check whether
3350: -- update privileges are also available
3351: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
3363: ,p_attribute3 => ''
3364: ,p_attribute4 => ''
3365: ,p_attribute5 => '');
3366:
3367: p_return_status := FND_API.G_RET_STS_ERROR;
3368:
3369: RAISE FND_API.G_EXC_ERROR;
3370: END IF;
3371: END IF;
3365: ,p_attribute5 => '');
3366:
3367: p_return_status := FND_API.G_RET_STS_ERROR;
3368:
3369: RAISE FND_API.G_EXC_ERROR;
3370: END IF;
3371: END IF;
3372:
3373:
3378: p_pm_asset_reference => p_pm_asset_reference,
3379: p_out_project_asset_id => l_project_asset_id,
3380: p_return_status => l_return_status );
3381:
3382: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3384: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3385: RAISE FND_API.G_EXC_ERROR;
3386: END IF;
3379: p_out_project_asset_id => l_project_asset_id,
3380: p_return_status => l_return_status );
3381:
3382: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3384: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3385: RAISE FND_API.G_EXC_ERROR;
3386: END IF;
3387:
3380: p_return_status => l_return_status );
3381:
3382: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3384: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3385: RAISE FND_API.G_EXC_ERROR;
3386: END IF;
3387:
3388:
3381:
3382: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3384: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3385: RAISE FND_API.G_EXC_ERROR;
3386: END IF;
3387:
3388:
3389: --Get asset name for AMG messages
3458: ,p_attribute3 => ''
3459: ,p_attribute4 => ''
3460: ,p_attribute5 => '');
3461:
3462: p_return_status := FND_API.G_RET_STS_ERROR;
3463:
3464: RAISE FND_API.G_EXC_ERROR;
3465: END IF;
3466: CLOSE unique_ref_cur;
3460: ,p_attribute5 => '');
3461:
3462: p_return_status := FND_API.G_RET_STS_ERROR;
3463:
3464: RAISE FND_API.G_EXC_ERROR;
3465: END IF;
3466: CLOSE unique_ref_cur;
3467:
3468:
3499: ,p_attribute3 => ''
3500: ,p_attribute4 => ''
3501: ,p_attribute5 => '');
3502:
3503: p_return_status := FND_API.G_RET_STS_ERROR;
3504:
3505: RAISE FND_API.G_EXC_ERROR;
3506: END IF;
3507: CLOSE unique_name_cur;
3501: ,p_attribute5 => '');
3502:
3503: p_return_status := FND_API.G_RET_STS_ERROR;
3504:
3505: RAISE FND_API.G_EXC_ERROR;
3506: END IF;
3507: CLOSE unique_name_cur;
3508:
3509:
3549: ,p_attribute3 => ''
3550: ,p_attribute4 => ''
3551: ,p_attribute5 => '');
3552:
3553: p_return_status := FND_API.G_RET_STS_ERROR;
3554:
3555: RAISE FND_API.G_EXC_ERROR;
3556: END IF;
3557: CLOSE valid_type_cur;
3551: ,p_attribute5 => '');
3552:
3553: p_return_status := FND_API.G_RET_STS_ERROR;
3554:
3555: RAISE FND_API.G_EXC_ERROR;
3556: END IF;
3557: CLOSE valid_type_cur;
3558:
3559:
3571: ,p_attribute3 => ''
3572: ,p_attribute4 => ''
3573: ,p_attribute5 => '');
3574:
3575: p_return_status := FND_API.G_RET_STS_ERROR;
3576:
3577: RAISE FND_API.G_EXC_ERROR;
3578:
3579: END IF;
3573: ,p_attribute5 => '');
3574:
3575: p_return_status := FND_API.G_RET_STS_ERROR;
3576:
3577: RAISE FND_API.G_EXC_ERROR;
3578:
3579: END IF;
3580:
3581: --Cannot change Estimated or As-Built Assets to Retirement Adjustment Targets
3592: ,p_attribute3 => ''
3593: ,p_attribute4 => ''
3594: ,p_attribute5 => '');
3595:
3596: p_return_status := FND_API.G_RET_STS_ERROR;
3597:
3598: RAISE FND_API.G_EXC_ERROR;
3599:
3600: END IF;
3594: ,p_attribute5 => '');
3595:
3596: p_return_status := FND_API.G_RET_STS_ERROR;
3597:
3598: RAISE FND_API.G_EXC_ERROR;
3599:
3600: END IF;
3601:
3602:
3617: ,p_attribute3 => ''
3618: ,p_attribute4 => ''
3619: ,p_attribute5 => '');
3620:
3621: p_return_status := FND_API.G_RET_STS_ERROR;
3622:
3623: RAISE FND_API.G_EXC_ERROR;
3624: END IF;
3625:
3619: ,p_attribute5 => '');
3620:
3621: p_return_status := FND_API.G_RET_STS_ERROR;
3622:
3623: RAISE FND_API.G_EXC_ERROR;
3624: END IF;
3625:
3626: IF (p_asset_units IS NULL OR p_asset_units = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
3627: AND l_asset_rec.asset_units IS NULL THEN
3637: ,p_attribute3 => ''
3638: ,p_attribute4 => ''
3639: ,p_attribute5 => '');
3640:
3641: p_return_status := FND_API.G_RET_STS_ERROR;
3642:
3643: RAISE FND_API.G_EXC_ERROR;
3644: END IF;
3645:
3639: ,p_attribute5 => '');
3640:
3641: p_return_status := FND_API.G_RET_STS_ERROR;
3642:
3643: RAISE FND_API.G_EXC_ERROR;
3644: END IF;
3645:
3646:
3647: --Set DPIS to value specified
3671: ,p_attribute3 => ''
3672: ,p_attribute4 => ''
3673: ,p_attribute5 => '');
3674:
3675: p_return_status := FND_API.G_RET_STS_ERROR;
3676:
3677: RAISE FND_API.G_EXC_ERROR;
3678:
3679: END IF;
3673: ,p_attribute5 => '');
3674:
3675: p_return_status := FND_API.G_RET_STS_ERROR;
3676:
3677: RAISE FND_API.G_EXC_ERROR;
3678:
3679: END IF;
3680:
3681:
3694: ,p_attribute3 => ''
3695: ,p_attribute4 => ''
3696: ,p_attribute5 => '');
3697:
3698: p_return_status := FND_API.G_RET_STS_ERROR;
3699:
3700: RAISE FND_API.G_EXC_ERROR;
3701: END IF;
3702:
3696: ,p_attribute5 => '');
3697:
3698: p_return_status := FND_API.G_RET_STS_ERROR;
3699:
3700: RAISE FND_API.G_EXC_ERROR;
3701: END IF;
3702:
3703: --Set DPIS to NULL
3704: l_statement := l_statement ||
3741: ,p_attribute3 => ''
3742: ,p_attribute4 => ''
3743: ,p_attribute5 => '');
3744:
3745: p_return_status := FND_API.G_RET_STS_ERROR;
3746:
3747: RAISE FND_API.G_EXC_ERROR;
3748: END IF;
3749:
3743: ,p_attribute5 => '');
3744:
3745: p_return_status := FND_API.G_RET_STS_ERROR;
3746:
3747: RAISE FND_API.G_EXC_ERROR;
3748: END IF;
3749:
3750: IF (p_asset_units IS NULL) THEN
3751:
3760: ,p_attribute3 => ''
3761: ,p_attribute4 => ''
3762: ,p_attribute5 => '');
3763:
3764: p_return_status := FND_API.G_RET_STS_ERROR;
3765:
3766: RAISE FND_API.G_EXC_ERROR;
3767: END IF;
3768:
3762: ,p_attribute5 => '');
3763:
3764: p_return_status := FND_API.G_RET_STS_ERROR;
3765:
3766: RAISE FND_API.G_EXC_ERROR;
3767: END IF;
3768:
3769: END IF;
3770:
3787: ,p_attribute3 => ''
3788: ,p_attribute4 => ''
3789: ,p_attribute5 => '');
3790:
3791: p_return_status := FND_API.G_RET_STS_ERROR;
3792:
3793: RAISE FND_API.G_EXC_ERROR;
3794: END IF;
3795:
3789: ,p_attribute5 => '');
3790:
3791: p_return_status := FND_API.G_RET_STS_ERROR;
3792:
3793: RAISE FND_API.G_EXC_ERROR;
3794: END IF;
3795:
3796: END IF;
3797:
3835: ,p_attribute3 => ''
3836: ,p_attribute4 => ''
3837: ,p_attribute5 => '');
3838:
3839: p_return_status := FND_API.G_RET_STS_ERROR;
3840:
3841: RAISE FND_API.G_EXC_ERROR;
3842: END IF;
3843: CLOSE unique_number_cur;
3837: ,p_attribute5 => '');
3838:
3839: p_return_status := FND_API.G_RET_STS_ERROR;
3840:
3841: RAISE FND_API.G_EXC_ERROR;
3842: END IF;
3843: CLOSE unique_number_cur;
3844:
3845: l_statement := l_statement ||
3880: ,p_attribute3 => ''
3881: ,p_attribute4 => ''
3882: ,p_attribute5 => '');
3883:
3884: p_return_status := FND_API.G_RET_STS_ERROR;
3885:
3886: RAISE FND_API.G_EXC_ERROR;
3887: END IF;
3888: CLOSE asset_location_cur;
3882: ,p_attribute5 => '');
3883:
3884: p_return_status := FND_API.G_RET_STS_ERROR;
3885:
3886: RAISE FND_API.G_EXC_ERROR;
3887: END IF;
3888: CLOSE asset_location_cur;
3889:
3890:
3928: ,p_attribute3 => ''
3929: ,p_attribute4 => ''
3930: ,p_attribute5 => '');
3931:
3932: p_return_status := FND_API.G_RET_STS_ERROR;
3933:
3934: RAISE FND_API.G_EXC_ERROR;
3935: END IF;
3936: CLOSE people_cur;
3930: ,p_attribute5 => '');
3931:
3932: p_return_status := FND_API.G_RET_STS_ERROR;
3933:
3934: RAISE FND_API.G_EXC_ERROR;
3935: END IF;
3936: CLOSE people_cur;
3937:
3938: l_statement := l_statement ||
3973: ,p_attribute3 => ''
3974: ,p_attribute4 => ''
3975: ,p_attribute5 => '');
3976:
3977: p_return_status := FND_API.G_RET_STS_ERROR;
3978:
3979: RAISE FND_API.G_EXC_ERROR;
3980: ELSE
3981: l_book_type_code := p_book_type_code;
3975: ,p_attribute5 => '');
3976:
3977: p_return_status := FND_API.G_RET_STS_ERROR;
3978:
3979: RAISE FND_API.G_EXC_ERROR;
3980: ELSE
3981: l_book_type_code := p_book_type_code;
3982: END IF;
3983: CLOSE book_type_code_cur;
4025: ,p_attribute3 => ''
4026: ,p_attribute4 => ''
4027: ,p_attribute5 => '');
4028:
4029: p_return_status := FND_API.G_RET_STS_ERROR;
4030:
4031: RAISE FND_API.G_EXC_ERROR;
4032: END IF;
4033: CLOSE parent_asset_book_cur;
4027: ,p_attribute5 => '');
4028:
4029: p_return_status := FND_API.G_RET_STS_ERROR;
4030:
4031: RAISE FND_API.G_EXC_ERROR;
4032: END IF;
4033: CLOSE parent_asset_book_cur;
4034:
4035: END IF; --Book Type Code Cross-Validation with existing Parent Asset ID
4057: ,p_attribute3 => ''
4058: ,p_attribute4 => ''
4059: ,p_attribute5 => '');
4060:
4061: p_return_status := FND_API.G_RET_STS_ERROR;
4062:
4063: RAISE FND_API.G_EXC_ERROR;
4064: END IF;
4065: CLOSE category_books_cur;
4059: ,p_attribute5 => '');
4060:
4061: p_return_status := FND_API.G_RET_STS_ERROR;
4062:
4063: RAISE FND_API.G_EXC_ERROR;
4064: END IF;
4065: CLOSE category_books_cur;
4066:
4067: END IF; --Book Type Code Cross-Validation with existing Category
4089: ,p_attribute3 => ''
4090: ,p_attribute4 => ''
4091: ,p_attribute5 => '');
4092:
4093: p_return_status := FND_API.G_RET_STS_ERROR;
4094:
4095: RAISE FND_API.G_EXC_ERROR;
4096: END IF;
4097: CLOSE parent_asset_cur;
4091: ,p_attribute5 => '');
4092:
4093: p_return_status := FND_API.G_RET_STS_ERROR;
4094:
4095: RAISE FND_API.G_EXC_ERROR;
4096: END IF;
4097: CLOSE parent_asset_cur;
4098:
4099:
4115: ,p_attribute3 => ''
4116: ,p_attribute4 => ''
4117: ,p_attribute5 => '');
4118:
4119: p_return_status := FND_API.G_RET_STS_ERROR;
4120:
4121: RAISE FND_API.G_EXC_ERROR;
4122: END IF;
4123: CLOSE parent_asset_book_cur;
4117: ,p_attribute5 => '');
4118:
4119: p_return_status := FND_API.G_RET_STS_ERROR;
4120:
4121: RAISE FND_API.G_EXC_ERROR;
4122: END IF;
4123: CLOSE parent_asset_book_cur;
4124: END IF; --Book Type Code populated
4125:
4162: ,p_attribute3 => ''
4163: ,p_attribute4 => ''
4164: ,p_attribute5 => '');
4165:
4166: p_return_status := FND_API.G_RET_STS_ERROR;
4167:
4168: RAISE FND_API.G_EXC_ERROR;
4169: END IF;
4170: CLOSE asset_category_cur;
4164: ,p_attribute5 => '');
4165:
4166: p_return_status := FND_API.G_RET_STS_ERROR;
4167:
4168: RAISE FND_API.G_EXC_ERROR;
4169: END IF;
4170: CLOSE asset_category_cur;
4171:
4172:
4188: ,p_attribute3 => ''
4189: ,p_attribute4 => ''
4190: ,p_attribute5 => '');
4191:
4192: p_return_status := FND_API.G_RET_STS_ERROR;
4193:
4194: RAISE FND_API.G_EXC_ERROR;
4195: END IF;
4196: CLOSE category_books_cur;
4190: ,p_attribute5 => '');
4191:
4192: p_return_status := FND_API.G_RET_STS_ERROR;
4193:
4194: RAISE FND_API.G_EXC_ERROR;
4195: END IF;
4196: CLOSE category_books_cur;
4197:
4198:
4262: ,p_attribute3 => ''
4263: ,p_attribute4 => ''
4264: ,p_attribute5 => '');
4265:
4266: p_return_status := FND_API.G_RET_STS_ERROR;
4267:
4268: RAISE FND_API.G_EXC_ERROR;
4269: END IF;
4270:
4264: ,p_attribute5 => '');
4265:
4266: p_return_status := FND_API.G_RET_STS_ERROR;
4267:
4268: RAISE FND_API.G_EXC_ERROR;
4269: END IF;
4270:
4271:
4272: l_statement := l_statement ||
4302: ,p_attribute3 => ''
4303: ,p_attribute4 => ''
4304: ,p_attribute5 => '');
4305:
4306: p_return_status := FND_API.G_RET_STS_ERROR;
4307:
4308: RAISE FND_API.G_EXC_ERROR;
4309: END IF;
4310:
4304: ,p_attribute5 => '');
4305:
4306: p_return_status := FND_API.G_RET_STS_ERROR;
4307:
4308: RAISE FND_API.G_EXC_ERROR;
4309: END IF;
4310:
4311: l_statement := l_statement ||
4312: ' DEPRECIATE_FLAG = :b_depreciate_flag'||',';
4392: ,p_attribute3 => ''
4393: ,p_attribute4 => ''
4394: ,p_attribute5 => '');
4395:
4396: p_return_status := FND_API.G_RET_STS_ERROR;
4397:
4398: RAISE FND_API.G_EXC_ERROR;
4399: END IF;
4400: CLOSE deprn_expense_cur;
4394: ,p_attribute5 => '');
4395:
4396: p_return_status := FND_API.G_RET_STS_ERROR;
4397:
4398: RAISE FND_API.G_EXC_ERROR;
4399: END IF;
4400: CLOSE deprn_expense_cur;
4401:
4402:
4440: ,p_attribute3 => ''
4441: ,p_attribute4 => ''
4442: ,p_attribute5 => '');
4443:
4444: p_return_status := FND_API.G_RET_STS_ERROR;
4445:
4446: RAISE FND_API.G_EXC_ERROR;
4447: END IF;
4448: CLOSE asset_key_cur;
4442: ,p_attribute5 => '');
4443:
4444: p_return_status := FND_API.G_RET_STS_ERROR;
4445:
4446: RAISE FND_API.G_EXC_ERROR;
4447: END IF;
4448: CLOSE asset_key_cur;
4449:
4450:
4489: ,p_attribute3 => ''
4490: ,p_attribute4 => ''
4491: ,p_attribute5 => '');
4492:
4493: p_return_status := FND_API.G_RET_STS_ERROR;
4494:
4495: RAISE FND_API.G_EXC_ERROR;
4496: END IF;
4497: CLOSE ret_target_cur;
4491: ,p_attribute5 => '');
4492:
4493: p_return_status := FND_API.G_RET_STS_ERROR;
4494:
4495: RAISE FND_API.G_EXC_ERROR;
4496: END IF;
4497: CLOSE ret_target_cur;
4498:
4499: --If Asset Category ID is NULL and has not been updated, default it to the Category of the Ret Target Asset
4527: ,p_attribute3 => ''
4528: ,p_attribute4 => ''
4529: ,p_attribute5 => '');
4530:
4531: p_return_status := FND_API.G_RET_STS_ERROR;
4532:
4533: RAISE FND_API.G_EXC_ERROR;
4534:
4535: END IF;
4529: ,p_attribute5 => '');
4530:
4531: p_return_status := FND_API.G_RET_STS_ERROR;
4532:
4533: RAISE FND_API.G_EXC_ERROR;
4534:
4535: END IF;
4536:
4537: ELSE
4548: ,p_attribute3 => ''
4549: ,p_attribute4 => ''
4550: ,p_attribute5 => '');
4551:
4552: p_return_status := FND_API.G_RET_STS_ERROR;
4553:
4554: RAISE FND_API.G_EXC_ERROR;
4555: END IF;
4556: END IF; --Project Asset Type = RETIREMENT_ADJUSTMENT
4550: ,p_attribute5 => '');
4551:
4552: p_return_status := FND_API.G_RET_STS_ERROR;
4553:
4554: RAISE FND_API.G_EXC_ERROR;
4555: END IF;
4556: END IF; --Project Asset Type = RETIREMENT_ADJUSTMENT
4557:
4558:
4709: ,p_attribute3 => ''
4710: ,p_attribute4 => ''
4711: ,p_attribute5 => '');
4712:
4713: p_return_status := FND_API.G_RET_STS_ERROR;
4714:
4715: RAISE FND_API.G_EXC_ERROR;
4716: END IF;
4717: CLOSE unique_tag_number_fa_cur;
4711: ,p_attribute5 => '');
4712:
4713: p_return_status := FND_API.G_RET_STS_ERROR;
4714:
4715: RAISE FND_API.G_EXC_ERROR;
4716: END IF;
4717: CLOSE unique_tag_number_fa_cur;
4718:
4719: --Test for uniqueness in Oracle Projects
4733: ,p_attribute3 => ''
4734: ,p_attribute4 => ''
4735: ,p_attribute5 => '');
4736:
4737: p_return_status := FND_API.G_RET_STS_ERROR;
4738:
4739: RAISE FND_API.G_EXC_ERROR;
4740: END IF;
4741: CLOSE unique_tag_number_pa_cur;
4735: ,p_attribute5 => '');
4736:
4737: p_return_status := FND_API.G_RET_STS_ERROR;
4738:
4739: RAISE FND_API.G_EXC_ERROR;
4740: END IF;
4741: CLOSE unique_tag_number_pa_cur;
4742:
4743:
5100: ,p_attribute3 => ''
5101: ,p_attribute4 => ''
5102: ,p_attribute5 => '');
5103:
5104: p_return_status := FND_API.G_RET_STS_ERROR;
5105:
5106: RAISE FND_API.G_EXC_ERROR;
5107:
5108: END IF;
5102: ,p_attribute5 => '');
5103:
5104: p_return_status := FND_API.G_RET_STS_ERROR;
5105:
5106: RAISE FND_API.G_EXC_ERROR;
5107:
5108: END IF;
5109:
5110:
5139: ,p_attribute3 => ''
5140: ,p_attribute4 => ''
5141: ,p_attribute5 => '');
5142:
5143: p_return_status := FND_API.G_RET_STS_ERROR;
5144:
5145: RAISE FND_API.G_EXC_ERROR;
5146: END IF;
5147:
5141: ,p_attribute5 => '');
5142:
5143: p_return_status := FND_API.G_RET_STS_ERROR;
5144:
5145: RAISE FND_API.G_EXC_ERROR;
5146: END IF;
5147:
5148:
5149:
5161: ,p_attribute3 => ''
5162: ,p_attribute4 => ''
5163: ,p_attribute5 => '');
5164:
5165: p_return_status := FND_API.G_RET_STS_ERROR;
5166:
5167: RAISE FND_API.G_EXC_ERROR;
5168: END IF;
5169:
5163: ,p_attribute5 => '');
5164:
5165: p_return_status := FND_API.G_RET_STS_ERROR;
5166:
5167: RAISE FND_API.G_EXC_ERROR;
5168: END IF;
5169:
5170:
5171: IF l_book_type_code IS NULL OR l_book_type_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
5181: ,p_attribute3 => ''
5182: ,p_attribute4 => ''
5183: ,p_attribute5 => '');
5184:
5185: p_return_status := FND_API.G_RET_STS_ERROR;
5186:
5187: RAISE FND_API.G_EXC_ERROR;
5188: END IF;
5189:
5183: ,p_attribute5 => '');
5184:
5185: p_return_status := FND_API.G_RET_STS_ERROR;
5186:
5187: RAISE FND_API.G_EXC_ERROR;
5188: END IF;
5189:
5190:
5191: IF (l_updated_deprn_expense_ccid = 'Y' AND (l_depreciation_expense_ccid IS NULL OR l_depreciation_expense_ccid = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM))
5202: ,p_attribute3 => ''
5203: ,p_attribute4 => ''
5204: ,p_attribute5 => '');
5205:
5206: p_return_status := FND_API.G_RET_STS_ERROR;
5207:
5208: RAISE FND_API.G_EXC_ERROR;
5209: END IF;
5210:
5204: ,p_attribute5 => '');
5205:
5206: p_return_status := FND_API.G_RET_STS_ERROR;
5207:
5208: RAISE FND_API.G_EXC_ERROR;
5209: END IF;
5210:
5211:
5212: IF (l_updated_asset_key_ccid = 'Y' AND (p_asset_key_ccid IS NULL OR p_asset_key_ccid = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM))
5260: ,p_attribute3 => ''
5261: ,p_attribute4 => ''
5262: ,p_attribute5 => '');
5263:
5264: p_return_status := FND_API.G_RET_STS_ERROR;
5265:
5266: RAISE FND_API.G_EXC_ERROR;
5267: END IF; --Asset Key is required
5268: END IF; --Structnum was determined
5262: ,p_attribute5 => '');
5263:
5264: p_return_status := FND_API.G_RET_STS_ERROR;
5265:
5266: RAISE FND_API.G_EXC_ERROR;
5267: END IF; --Asset Key is required
5268: END IF; --Structnum was determined
5269: END IF; --Asset Key was not specified
5270: END IF; --AS-BUILT asset with Complete Asset Info required
5475:
5476:
5477: CLOSE l_lock_rows_csr; --FYI: doesn't remove locks
5478:
5479: IF FND_API.to_boolean( p_commit ) THEN
5480: COMMIT;
5481: END IF;
5482:
5483:
5481: END IF;
5482:
5483:
5484: EXCEPTION
5485: WHEN FND_API.G_EXC_ERROR THEN
5486: ROLLBACK TO update_project_asset_pub;
5487:
5488: p_return_status := FND_API.G_RET_STS_ERROR;
5489:
5484: EXCEPTION
5485: WHEN FND_API.G_EXC_ERROR THEN
5486: ROLLBACK TO update_project_asset_pub;
5487:
5488: p_return_status := FND_API.G_RET_STS_ERROR;
5489:
5490: FND_MSG_PUB.Count_And_Get
5491: ( p_count => p_msg_count ,
5492: p_data => p_msg_data );
5490: FND_MSG_PUB.Count_And_Get
5491: ( p_count => p_msg_count ,
5492: p_data => p_msg_data );
5493:
5494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5495: ROLLBACK TO update_project_asset_pub;
5496:
5497: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5498:
5493:
5494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5495: ROLLBACK TO update_project_asset_pub;
5496:
5497: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5498:
5499: FND_MSG_PUB.Count_And_Get
5500: ( p_count => p_msg_count ,
5501: p_data => p_msg_data );
5503:
5504: WHEN ROW_ALREADY_LOCKED THEN
5505: ROLLBACK TO update_project_asset_pub;
5506:
5507: p_return_status := FND_API.G_RET_STS_ERROR;
5508:
5509: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5510: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_AS_AMG');
5511: FND_MESSAGE.SET_TOKEN('PROJECT', l_amg_project_number);
5521:
5522: WHEN OTHERS THEN
5523: ROLLBACK TO update_project_asset_pub;
5524:
5525: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5526:
5527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5528: FND_MSG_PUB.add_exc_msg
5529: ( p_pkg_name => G_PKG_NAME
5603: l_amg_segment1 VARCHAR2(25);
5604:
5605: BEGIN
5606:
5607: p_return_status := FND_API.G_RET_STS_SUCCESS;
5608:
5609: IF p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5610: AND p_pa_project_id IS NOT NULL THEN
5611:
5626: ,p_attribute5 => '');
5627: END IF;
5628:
5629: CLOSE l_project_id_csr;
5630: RAISE FND_API.G_EXC_ERROR;
5631: END IF;
5632:
5633: CLOSE l_project_id_csr;
5634: ELSE --p_pa_project_id has not been specified
5645: ,p_attribute4 => ''
5646: ,p_attribute5 => '');
5647: END IF;
5648:
5649: RAISE FND_API.G_EXC_ERROR;
5650:
5651: END IF; --p_pa_project_id has a value
5652:
5653:
5676: ,p_attribute5 => '');
5677: END IF;
5678:
5679: CLOSE l_project_asset_id_csr;
5680: RAISE FND_API.G_EXC_ERROR;
5681: END IF;
5682:
5683: CLOSE l_project_asset_id_csr;
5684:
5697: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Asset Reference');
5698: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_asset_reference);
5699: FND_MSG_PUB.add;
5700:
5701: RAISE FND_API.G_EXC_ERROR;
5702: END IF;
5703: ELSE
5704: p_out_project_asset_id := l_asset_rec.project_asset_id;
5705: CLOSE l_asset_csr;
5718: ,p_attribute4 => ''
5719: ,p_attribute5 => '');
5720: END IF;
5721:
5722: RAISE FND_API.G_EXC_ERROR;
5723:
5724: END IF; -- Project Asset ID or PM Asset Reference Specified
5725:
5726:
5725:
5726:
5727: EXCEPTION
5728:
5729: WHEN FND_API.G_EXC_ERROR THEN
5730: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
5731:
5732: p_return_status := FND_API.G_RET_STS_ERROR;
5733:
5728:
5729: WHEN FND_API.G_EXC_ERROR THEN
5730: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
5731:
5732: p_return_status := FND_API.G_RET_STS_ERROR;
5733:
5734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5735: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
5736:
5730: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
5731:
5732: p_return_status := FND_API.G_RET_STS_ERROR;
5733:
5734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5735: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
5736:
5737: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5738:
5733:
5734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5735: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
5736:
5737: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5738:
5739: WHEN OTHERS THEN
5740: /* dbms_output.put_line('handling an OTHERS exception'); */
5741:
5738:
5739: WHEN OTHERS THEN
5740: /* dbms_output.put_line('handling an OTHERS exception'); */
5741:
5742: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5743:
5744: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5745: FND_MSG_PUB.add_exc_msg
5746: ( p_pkg_name => G_PKG_NAME
5817: --
5818:
5819: PROCEDURE load_asset_assignment
5820: ( p_api_version_number IN NUMBER
5821: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5822: ,p_return_status OUT NOCOPY VARCHAR2
5823: ,p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5824: ,p_pa_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5825: ,p_pm_asset_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5853: SAVEPOINT load_asset_assignment_pub;
5854:
5855:
5856: -- Standard call to check for call compatibility.
5857: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5858: p_api_version_number ,
5859: l_api_name ,
5860: G_PKG_NAME ) THEN
5861:
5858: p_api_version_number ,
5859: l_api_name ,
5860: G_PKG_NAME ) THEN
5861:
5862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5863: END IF;
5864:
5865:
5866: -- Initialize the message table if requested.
5863: END IF;
5864:
5865:
5866: -- Initialize the message table if requested.
5867: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
5868: FND_MSG_PUB.initialize;
5869: END IF;
5870:
5871:
5869: END IF;
5870:
5871:
5872: -- Set API return status to success
5873: p_return_status := FND_API.G_RET_STS_SUCCESS;
5874:
5875:
5876: -- assign a value to the global counter for this table
5877: G_asset_assignments_tbl_count := G_asset_assignments_tbl_count + 1;
5902:
5903:
5904: EXCEPTION
5905:
5906: WHEN FND_API.G_EXC_ERROR THEN
5907: ROLLBACK TO load_asset_assignment_pub;
5908: p_return_status := FND_API.G_RET_STS_ERROR;
5909:
5910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5904: EXCEPTION
5905:
5906: WHEN FND_API.G_EXC_ERROR THEN
5907: ROLLBACK TO load_asset_assignment_pub;
5908: p_return_status := FND_API.G_RET_STS_ERROR;
5909:
5910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5911: ROLLBACK TO load_asset_assignment_pub;
5912: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5906: WHEN FND_API.G_EXC_ERROR THEN
5907: ROLLBACK TO load_asset_assignment_pub;
5908: p_return_status := FND_API.G_RET_STS_ERROR;
5909:
5910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5911: ROLLBACK TO load_asset_assignment_pub;
5912: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5913:
5914:
5908: p_return_status := FND_API.G_RET_STS_ERROR;
5909:
5910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5911: ROLLBACK TO load_asset_assignment_pub;
5912: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5913:
5914:
5915: WHEN OTHERS THEN
5916: ROLLBACK TO load_asset_assignment_pub;
5913:
5914:
5915: WHEN OTHERS THEN
5916: ROLLBACK TO load_asset_assignment_pub;
5917: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5918:
5919: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5920:
5921: FND_MSG_PUB.add_exc_msg
5946: --
5947:
5948: PROCEDURE load_project_asset
5949: ( p_api_version_number IN NUMBER
5950: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5951: ,p_return_status OUT NOCOPY VARCHAR2
5952: ,p_pm_asset_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5953: ,p_pa_asset_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5954: ,p_asset_number IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
6002: SAVEPOINT load_project_asset_pub;
6003:
6004:
6005: -- Standard call to check for call compatibility.
6006: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
6007: p_api_version_number ,
6008: l_api_name ,
6009: G_PKG_NAME ) THEN
6010:
6007: p_api_version_number ,
6008: l_api_name ,
6009: G_PKG_NAME ) THEN
6010:
6011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6012: END IF;
6013:
6014:
6015: -- Initialize the message table if requested.
6012: END IF;
6013:
6014:
6015: -- Initialize the message table if requested.
6016: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
6017: FND_MSG_PUB.initialize;
6018: END IF;
6019:
6020:
6018: END IF;
6019:
6020:
6021: -- Set API return status to success
6022: p_return_status := FND_API.G_RET_STS_SUCCESS;
6023:
6024:
6025: -- assign a value to the global counter for this table
6026: G_assets_tbl_count := G_assets_tbl_count + 1;
6070:
6071:
6072: EXCEPTION
6073:
6074: WHEN FND_API.G_EXC_ERROR THEN
6075: ROLLBACK TO load_project_asset_pub;
6076: p_return_status := FND_API.G_RET_STS_ERROR;
6077:
6078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6072: EXCEPTION
6073:
6074: WHEN FND_API.G_EXC_ERROR THEN
6075: ROLLBACK TO load_project_asset_pub;
6076: p_return_status := FND_API.G_RET_STS_ERROR;
6077:
6078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6079: ROLLBACK TO load_project_asset_pub;
6080: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6074: WHEN FND_API.G_EXC_ERROR THEN
6075: ROLLBACK TO load_project_asset_pub;
6076: p_return_status := FND_API.G_RET_STS_ERROR;
6077:
6078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6079: ROLLBACK TO load_project_asset_pub;
6080: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6081:
6082:
6076: p_return_status := FND_API.G_RET_STS_ERROR;
6077:
6078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6079: ROLLBACK TO load_project_asset_pub;
6080: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6081:
6082:
6083: WHEN OTHERS THEN
6084: ROLLBACK TO load_project_asset_pub;
6081:
6082:
6083: WHEN OTHERS THEN
6084: ROLLBACK TO load_project_asset_pub;
6085: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6086:
6087: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6088:
6089: FND_MSG_PUB.add_exc_msg
6114: --
6115:
6116: PROCEDURE execute_add_project_asset
6117: ( p_api_version_number IN NUMBER
6118: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6119: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6120: ,p_msg_count OUT NOCOPY NUMBER
6121: ,p_msg_data OUT NOCOPY VARCHAR2
6122: ,p_return_status OUT NOCOPY VARCHAR2
6115:
6116: PROCEDURE execute_add_project_asset
6117: ( p_api_version_number IN NUMBER
6118: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6119: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6120: ,p_msg_count OUT NOCOPY NUMBER
6121: ,p_msg_data OUT NOCOPY VARCHAR2
6122: ,p_return_status OUT NOCOPY VARCHAR2
6123: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
6183: SAVEPOINT execute_add_project_asset_pub;
6184:
6185:
6186: -- Standard call to check for call compatibility.
6187: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
6188: p_api_version_number ,
6189: l_api_name ,
6190: G_PKG_NAME ) THEN
6191:
6188: p_api_version_number ,
6189: l_api_name ,
6190: G_PKG_NAME ) THEN
6191:
6192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6193: END IF;
6194:
6195:
6196: -- Initialize the message table if requested.
6193: END IF;
6194:
6195:
6196: -- Initialize the message table if requested.
6197: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
6198: FND_MSG_PUB.initialize;
6199: END IF;
6200:
6201:
6199: END IF;
6200:
6201:
6202: -- Set API return status to success
6203: p_return_status := FND_API.G_RET_STS_SUCCESS;
6204:
6205:
6206: -- Get the Project ID
6207: PA_PROJECT_PVT.Convert_pm_projref_to_id
6211: ,p_return_status => l_return_status
6212: );
6213:
6214:
6215: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6217: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6218: RAISE FND_API.G_EXC_ERROR;
6219: END IF;
6212: );
6213:
6214:
6215: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6217: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6218: RAISE FND_API.G_EXC_ERROR;
6219: END IF;
6220:
6213:
6214:
6215: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6217: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6218: RAISE FND_API.G_EXC_ERROR;
6219: END IF;
6220:
6221:
6214:
6215: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6217: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6218: RAISE FND_API.G_EXC_ERROR;
6219: END IF;
6220:
6221:
6222: -- Get project number for AMG messages
6239:
6240: --Format output record
6241: p_assets_out(i).pm_asset_reference := p_assets_in(i).pm_asset_reference;
6242: p_assets_out(i).pa_project_asset_id := p_assets_in(i).pa_project_asset_id;
6243: p_assets_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
6244:
6245:
6246: --Determine if the Project Asset already exists, and if so perform Update,
6247: --otherwise Add Project Asset
6285: ,p_attribute4 => ''
6286: ,p_attribute5 => '');
6287: END IF;
6288:
6289: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6290: RAISE FND_API.G_EXC_ERROR;
6291: END IF;
6292: CLOSE l_amg_asset_csr;
6293: END IF;
6286: ,p_attribute5 => '');
6287: END IF;
6288:
6289: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6290: RAISE FND_API.G_EXC_ERROR;
6291: END IF;
6292: CLOSE l_amg_asset_csr;
6293: END IF;
6294:
6350: ,p_pa_project_asset_id_out => l_project_asset_id
6351: ,p_pm_asset_reference_out => l_pm_asset_reference );
6352:
6353:
6354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6357: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6358: RAISE FND_API.G_EXC_ERROR;
6351: ,p_pm_asset_reference_out => l_pm_asset_reference );
6352:
6353:
6354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6357: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6358: RAISE FND_API.G_EXC_ERROR;
6359: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6352:
6353:
6354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6357: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6358: RAISE FND_API.G_EXC_ERROR;
6359: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6360: p_assets_out(i).pa_project_asset_id := l_project_asset_id;
6353:
6354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6357: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6358: RAISE FND_API.G_EXC_ERROR;
6359: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6360: p_assets_out(i).pa_project_asset_id := l_project_asset_id;
6361: p_assets_out(i).pm_asset_reference := l_pm_asset_reference;
6354: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6357: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6358: RAISE FND_API.G_EXC_ERROR;
6359: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6360: p_assets_out(i).pa_project_asset_id := l_project_asset_id;
6361: p_assets_out(i).pm_asset_reference := l_pm_asset_reference;
6362: END IF;
6355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6357: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6358: RAISE FND_API.G_EXC_ERROR;
6359: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6360: p_assets_out(i).pa_project_asset_id := l_project_asset_id;
6361: p_assets_out(i).pm_asset_reference := l_pm_asset_reference;
6362: END IF;
6363: ELSE
6418: ,p_pa_project_asset_id_out => l_project_asset_id
6419: ,p_pm_asset_reference_out => l_pm_asset_reference );
6420:
6421:
6422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6424: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6425: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6426: RAISE FND_API.G_EXC_ERROR;
6419: ,p_pm_asset_reference_out => l_pm_asset_reference );
6420:
6421:
6422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6424: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6425: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6426: RAISE FND_API.G_EXC_ERROR;
6427: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6420:
6421:
6422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6424: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6425: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6426: RAISE FND_API.G_EXC_ERROR;
6427: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6428: p_assets_out(i).pa_project_asset_id := l_project_asset_id;
6421:
6422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6424: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6425: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6426: RAISE FND_API.G_EXC_ERROR;
6427: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6428: p_assets_out(i).pa_project_asset_id := l_project_asset_id;
6429: p_assets_out(i).pm_asset_reference := l_pm_asset_reference;
6422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6424: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6425: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6426: RAISE FND_API.G_EXC_ERROR;
6427: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6428: p_assets_out(i).pa_project_asset_id := l_project_asset_id;
6429: p_assets_out(i).pm_asset_reference := l_pm_asset_reference;
6430: END IF;
6423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6424: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6425: p_assets_out(i).return_status := FND_API.G_RET_STS_ERROR;
6426: RAISE FND_API.G_EXC_ERROR;
6427: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6428: p_assets_out(i).pa_project_asset_id := l_project_asset_id;
6429: p_assets_out(i).pm_asset_reference := l_pm_asset_reference;
6430: END IF;
6431: END IF;
6454: p_asset_assignments_out(i).pa_project_asset_id := p_asset_assignments_in(i).pa_project_asset_id;
6455: p_asset_assignments_out(i).pm_asset_reference := p_asset_assignments_in(i).pm_asset_reference;
6456: p_asset_assignments_out(i).pa_task_number := NULL;
6457: p_asset_assignments_out(i).pa_asset_name := NULL;
6458: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
6459:
6460:
6461: --If the task id is not specified, determine the task id based on the pm_task_reference
6462: IF p_asset_assignments_in(i).pa_task_id = 0 THEN
6475: p_out_task_id => l_task_id,
6476: p_return_status => l_return_status );
6477:
6478:
6479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6482: RAISE FND_API.G_EXC_ERROR;
6483: END IF;
6476: p_return_status => l_return_status );
6477:
6478:
6479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6482: RAISE FND_API.G_EXC_ERROR;
6483: END IF;
6484: ELSE
6477:
6478:
6479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6482: RAISE FND_API.G_EXC_ERROR;
6483: END IF;
6484: ELSE
6485: l_task_id := p_asset_assignments_in(i).pa_task_id;
6478:
6479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6482: RAISE FND_API.G_EXC_ERROR;
6483: END IF;
6484: ELSE
6485: l_task_id := p_asset_assignments_in(i).pa_task_id;
6486: END IF;
6506: ,p_attribute5 => '');
6507: END IF;
6508:
6509:
6510: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6511: RAISE FND_API.G_EXC_ERROR;
6512: END IF;
6513: CLOSE l_amg_task_csr;
6514:
6507: END IF;
6508:
6509:
6510: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6511: RAISE FND_API.G_EXC_ERROR;
6512: END IF;
6513: CLOSE l_amg_task_csr;
6514:
6515: END IF;
6556: ,p_attribute4 => ''
6557: ,p_attribute5 => '');
6558: END IF;
6559:
6560: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6561: RAISE FND_API.G_EXC_ERROR;
6562: END IF;
6563: CLOSE l_amg_asset_csr;
6564:
6557: ,p_attribute5 => '');
6558: END IF;
6559:
6560: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6561: RAISE FND_API.G_EXC_ERROR;
6562: END IF;
6563: CLOSE l_amg_asset_csr;
6564:
6565: END IF;
6610: ,p_pa_task_id_out => l_task_id
6611: ,p_pa_project_asset_id_out => l_project_asset_id);
6612:
6613:
6614: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6617: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6618: RAISE FND_API.G_EXC_ERROR;
6611: ,p_pa_project_asset_id_out => l_project_asset_id);
6612:
6613:
6614: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6617: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6618: RAISE FND_API.G_EXC_ERROR;
6619: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6612:
6613:
6614: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6617: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6618: RAISE FND_API.G_EXC_ERROR;
6619: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6620: p_asset_assignments_out(i).pa_task_number := l_amg_pa_task_number;
6613:
6614: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6617: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6618: RAISE FND_API.G_EXC_ERROR;
6619: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6620: p_asset_assignments_out(i).pa_task_number := l_amg_pa_task_number;
6621: p_asset_assignments_out(i).pa_asset_name := l_amg_pa_asset_name;
6614: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6617: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6618: RAISE FND_API.G_EXC_ERROR;
6619: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6620: p_asset_assignments_out(i).pa_task_number := l_amg_pa_task_number;
6621: p_asset_assignments_out(i).pa_asset_name := l_amg_pa_asset_name;
6622: END IF;
6615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6616: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6617: p_asset_assignments_out(i).return_status := FND_API.G_RET_STS_ERROR;
6618: RAISE FND_API.G_EXC_ERROR;
6619: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6620: p_asset_assignments_out(i).pa_task_number := l_amg_pa_task_number;
6621: p_asset_assignments_out(i).pa_asset_name := l_amg_pa_asset_name;
6622: END IF;
6623:
6633:
6634: END LOOP; --Asset Assignments
6635:
6636:
6637: IF FND_API.to_boolean( p_commit ) THEN
6638: COMMIT;
6639: END IF;
6640:
6641:
6640:
6641:
6642: EXCEPTION
6643:
6644: WHEN FND_API.G_EXC_ERROR THEN
6645: ROLLBACK TO execute_add_project_asset_pub;
6646: p_return_status := FND_API.G_RET_STS_ERROR;
6647:
6648: FND_MSG_PUB.Count_And_Get
6642: EXCEPTION
6643:
6644: WHEN FND_API.G_EXC_ERROR THEN
6645: ROLLBACK TO execute_add_project_asset_pub;
6646: p_return_status := FND_API.G_RET_STS_ERROR;
6647:
6648: FND_MSG_PUB.Count_And_Get
6649: ( p_count => p_msg_count ,
6650: p_data => p_msg_data );
6648: FND_MSG_PUB.Count_And_Get
6649: ( p_count => p_msg_count ,
6650: p_data => p_msg_data );
6651:
6652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6653: ROLLBACK TO execute_add_project_asset_pub;
6654: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6655:
6656: FND_MSG_PUB.Count_And_Get
6650: p_data => p_msg_data );
6651:
6652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6653: ROLLBACK TO execute_add_project_asset_pub;
6654: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6655:
6656: FND_MSG_PUB.Count_And_Get
6657: ( p_count => p_msg_count ,
6658: p_data => p_msg_data );
6658: p_data => p_msg_data );
6659:
6660: WHEN OTHERS THEN
6661: ROLLBACK TO execute_add_project_asset_pub;
6662: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6663:
6664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6665: FND_MSG_PUB.add_exc_msg
6666: ( p_pkg_name => G_PKG_NAME
6676:
6677:
6678: PROCEDURE delete_project_asset
6679: ( p_api_version_number IN NUMBER
6680: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6681: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6682: ,p_msg_count OUT NOCOPY NUMBER
6683: ,p_msg_data OUT NOCOPY VARCHAR2
6684: ,p_return_status OUT NOCOPY VARCHAR2
6677:
6678: PROCEDURE delete_project_asset
6679: ( p_api_version_number IN NUMBER
6680: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6681: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6682: ,p_msg_count OUT NOCOPY NUMBER
6683: ,p_msg_data OUT NOCOPY VARCHAR2
6684: ,p_return_status OUT NOCOPY VARCHAR2
6685: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
6758: SAVEPOINT delete_project_asset_pub;
6759:
6760:
6761: -- Standard call to check for call compatibility.
6762: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
6763: p_api_version_number ,
6764: l_api_name ,
6765: G_PKG_NAME ) THEN
6766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6762: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
6763: p_api_version_number ,
6764: l_api_name ,
6765: G_PKG_NAME ) THEN
6766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6767: END IF;
6768:
6769:
6770: -- Initialize the message table if requested.
6767: END IF;
6768:
6769:
6770: -- Initialize the message table if requested.
6771: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
6772: FND_MSG_PUB.initialize;
6773: END IF;
6774:
6775:
6773: END IF;
6774:
6775:
6776: -- Set API return status to success
6777: p_return_status := FND_API.G_RET_STS_SUCCESS;
6778:
6779:
6780: -- pm_product_code is mandatory
6781: IF p_pm_product_code IS NULL OR p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
6792: ,p_attribute4 => ''
6793: ,p_attribute5 => '');
6794: END IF;
6795:
6796: RAISE FND_API.G_EXC_ERROR;
6797: END IF;
6798:
6799:
6800: --Initialize variables
6811: , p_out_project_id => l_project_id
6812: , p_return_status => l_return_status
6813: );
6814:
6815: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6817: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6818: RAISE FND_API.G_EXC_ERROR;
6819: END IF;
6812: , p_return_status => l_return_status
6813: );
6814:
6815: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6817: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6818: RAISE FND_API.G_EXC_ERROR;
6819: END IF;
6820:
6813: );
6814:
6815: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6817: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6818: RAISE FND_API.G_EXC_ERROR;
6819: END IF;
6820:
6821: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
6814:
6815: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6817: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6818: RAISE FND_API.G_EXC_ERROR;
6819: END IF;
6820:
6821: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
6822:
6844: ,p_attribute3 => ''
6845: ,p_attribute4 => ''
6846: ,p_attribute5 => '');
6847:
6848: p_return_status := FND_API.G_RET_STS_ERROR;
6849:
6850: RAISE FND_API.G_EXC_ERROR;
6851: END IF;
6852: CLOSE capital_project_cur;
6846: ,p_attribute5 => '');
6847:
6848: p_return_status := FND_API.G_RET_STS_ERROR;
6849:
6850: RAISE FND_API.G_EXC_ERROR;
6851: END IF;
6852: CLOSE capital_project_cur;
6853:
6854:
6878: p_msg_data => l_msg_data,
6879: p_return_status => l_return_status,
6880: p_function_allowed => l_function_allowed);
6881:
6882: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6884: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6885: RAISE FND_API.G_EXC_ERROR;
6886: END IF;
6879: p_return_status => l_return_status,
6880: p_function_allowed => l_function_allowed);
6881:
6882: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6884: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6885: RAISE FND_API.G_EXC_ERROR;
6886: END IF;
6887:
6880: p_function_allowed => l_function_allowed);
6881:
6882: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6884: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6885: RAISE FND_API.G_EXC_ERROR;
6886: END IF;
6887:
6888: IF l_function_allowed = 'N' THEN
6881:
6882: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6884: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6885: RAISE FND_API.G_EXC_ERROR;
6886: END IF;
6887:
6888: IF l_function_allowed = 'N' THEN
6889: pa_interface_utils_pub.map_new_amg_msg
6895: ,p_attribute2 => ''
6896: ,p_attribute3 => ''
6897: ,p_attribute4 => ''
6898: ,p_attribute5 => '');
6899: p_return_status := FND_API.G_RET_STS_ERROR;
6900: RAISE FND_API.G_EXC_ERROR;
6901: END IF;
6902:
6903:
6896: ,p_attribute3 => ''
6897: ,p_attribute4 => ''
6898: ,p_attribute5 => '');
6899: p_return_status := FND_API.G_RET_STS_ERROR;
6900: RAISE FND_API.G_EXC_ERROR;
6901: END IF;
6902:
6903:
6904: -- Now verify whether project security allows the user to update the project
6916: ,p_attribute3 => ''
6917: ,p_attribute4 => ''
6918: ,p_attribute5 => '');
6919:
6920: p_return_status := FND_API.G_RET_STS_ERROR;
6921:
6922: RAISE FND_API.G_EXC_ERROR;
6923: ELSE
6924: -- If the user has query privileges, then check whether
6918: ,p_attribute5 => '');
6919:
6920: p_return_status := FND_API.G_RET_STS_ERROR;
6921:
6922: RAISE FND_API.G_EXC_ERROR;
6923: ELSE
6924: -- If the user has query privileges, then check whether
6925: -- update privileges are also available
6926: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
6938: ,p_attribute3 => ''
6939: ,p_attribute4 => ''
6940: ,p_attribute5 => '');
6941:
6942: p_return_status := FND_API.G_RET_STS_ERROR;
6943:
6944: RAISE FND_API.G_EXC_ERROR;
6945: END IF;
6946: END IF;
6940: ,p_attribute5 => '');
6941:
6942: p_return_status := FND_API.G_RET_STS_ERROR;
6943:
6944: RAISE FND_API.G_EXC_ERROR;
6945: END IF;
6946: END IF;
6947:
6948:
6964: ,p_attribute4 => ''
6965: ,p_attribute5 => '');
6966: END IF;
6967:
6968: RAISE FND_API.G_EXC_ERROR;
6969:
6970: ELSE
6971: --Get project asset id based on PM Asset Reference
6972: PA_PROJECT_ASSETS_PUB.convert_pm_assetref_to_id (
6975: p_pm_asset_reference => p_pm_asset_reference,
6976: p_out_project_asset_id => l_project_asset_id,
6977: p_return_status => l_return_status );
6978:
6979: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6981: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6982: RAISE FND_API.G_EXC_ERROR;
6983: END IF;
6976: p_out_project_asset_id => l_project_asset_id,
6977: p_return_status => l_return_status );
6978:
6979: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6981: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6982: RAISE FND_API.G_EXC_ERROR;
6983: END IF;
6984:
6977: p_return_status => l_return_status );
6978:
6979: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6981: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6982: RAISE FND_API.G_EXC_ERROR;
6983: END IF;
6984:
6985: END IF;
6978:
6979: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6981: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6982: RAISE FND_API.G_EXC_ERROR;
6983: END IF;
6984:
6985: END IF;
6986:
7012: ,p_attribute4 => ''
7013: ,p_attribute5 => '');
7014: END IF;
7015:
7016: RAISE FND_API.G_EXC_ERROR;
7017:
7018: ELSE --Delete asset and assignments
7019:
7020: --Delete all associated asset assignments prior to deleting the project asset
7039: END IF;
7040:
7041:
7042: --Perform commit if indicated
7043: IF FND_API.to_boolean( p_commit ) THEN
7044: COMMIT;
7045: END IF;
7046:
7047:
7046:
7047:
7048:
7049: EXCEPTION
7050: WHEN FND_API.G_EXC_ERROR THEN
7051: ROLLBACK TO delete_project_asset_pub;
7052:
7053: p_return_status := FND_API.G_RET_STS_ERROR;
7054:
7049: EXCEPTION
7050: WHEN FND_API.G_EXC_ERROR THEN
7051: ROLLBACK TO delete_project_asset_pub;
7052:
7053: p_return_status := FND_API.G_RET_STS_ERROR;
7054:
7055: FND_MSG_PUB.Count_And_Get
7056: ( p_count => p_msg_count ,
7057: p_data => p_msg_data );
7055: FND_MSG_PUB.Count_And_Get
7056: ( p_count => p_msg_count ,
7057: p_data => p_msg_data );
7058:
7059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7060: ROLLBACK TO delete_project_asset_pub;
7061:
7062: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7063:
7058:
7059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7060: ROLLBACK TO delete_project_asset_pub;
7061:
7062: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7063:
7064: FND_MSG_PUB.Count_And_Get
7065: ( p_count => p_msg_count ,
7066: p_data => p_msg_data );
7067:
7068: WHEN OTHERS THEN
7069: ROLLBACK TO delete_project_asset_pub;
7070:
7071: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7072:
7073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7074: FND_MSG_PUB.add_exc_msg
7075: ( p_pkg_name => G_PKG_NAME
7086:
7087:
7088: PROCEDURE delete_asset_assignment
7089: ( p_api_version_number IN NUMBER
7090: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7091: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
7092: ,p_msg_count OUT NOCOPY NUMBER
7093: ,p_msg_data OUT NOCOPY VARCHAR2
7094: ,p_return_status OUT NOCOPY VARCHAR2
7087:
7088: PROCEDURE delete_asset_assignment
7089: ( p_api_version_number IN NUMBER
7090: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7091: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
7092: ,p_msg_count OUT NOCOPY NUMBER
7093: ,p_msg_data OUT NOCOPY VARCHAR2
7094: ,p_return_status OUT NOCOPY VARCHAR2
7095: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
7166: SAVEPOINT delete_asset_assignment_pub;
7167:
7168:
7169: -- Standard call to check for call compatibility.
7170: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
7171: p_api_version_number ,
7172: l_api_name ,
7173: G_PKG_NAME ) THEN
7174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7170: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
7171: p_api_version_number ,
7172: l_api_name ,
7173: G_PKG_NAME ) THEN
7174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7175: END IF;
7176:
7177:
7178: -- Initialize the message table if requested.
7175: END IF;
7176:
7177:
7178: -- Initialize the message table if requested.
7179: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
7180: FND_MSG_PUB.initialize;
7181: END IF;
7182:
7183:
7181: END IF;
7182:
7183:
7184: -- Set API return status to success
7185: p_return_status := FND_API.G_RET_STS_SUCCESS;
7186:
7187:
7188: -- pm_product_code is mandatory
7189: IF p_pm_product_code IS NULL OR p_pm_product_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
7200: ,p_attribute4 => ''
7201: ,p_attribute5 => '');
7202: END IF;
7203:
7204: RAISE FND_API.G_EXC_ERROR;
7205: END IF;
7206:
7207:
7208: --Initialize variables
7219: , p_out_project_id => l_project_id
7220: , p_return_status => l_return_status
7221: );
7222:
7223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7226: RAISE FND_API.G_EXC_ERROR;
7227: END IF;
7220: , p_return_status => l_return_status
7221: );
7222:
7223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7226: RAISE FND_API.G_EXC_ERROR;
7227: END IF;
7228:
7221: );
7222:
7223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7226: RAISE FND_API.G_EXC_ERROR;
7227: END IF;
7228:
7229: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
7222:
7223: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7225: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7226: RAISE FND_API.G_EXC_ERROR;
7227: END IF;
7228:
7229: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id;
7230:
7252: ,p_attribute3 => ''
7253: ,p_attribute4 => ''
7254: ,p_attribute5 => '');
7255:
7256: p_return_status := FND_API.G_RET_STS_ERROR;
7257:
7258: RAISE FND_API.G_EXC_ERROR;
7259: END IF;
7260: CLOSE capital_project_cur;
7254: ,p_attribute5 => '');
7255:
7256: p_return_status := FND_API.G_RET_STS_ERROR;
7257:
7258: RAISE FND_API.G_EXC_ERROR;
7259: END IF;
7260: CLOSE capital_project_cur;
7261:
7262:
7286: p_msg_data => l_msg_data,
7287: p_return_status => l_return_status,
7288: p_function_allowed => l_function_allowed);
7289:
7290: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7292: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7293: RAISE FND_API.G_EXC_ERROR;
7294: END IF;
7287: p_return_status => l_return_status,
7288: p_function_allowed => l_function_allowed);
7289:
7290: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7292: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7293: RAISE FND_API.G_EXC_ERROR;
7294: END IF;
7295:
7288: p_function_allowed => l_function_allowed);
7289:
7290: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7292: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7293: RAISE FND_API.G_EXC_ERROR;
7294: END IF;
7295:
7296: IF l_function_allowed = 'N' THEN
7289:
7290: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7292: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7293: RAISE FND_API.G_EXC_ERROR;
7294: END IF;
7295:
7296: IF l_function_allowed = 'N' THEN
7297: pa_interface_utils_pub.map_new_amg_msg
7303: ,p_attribute2 => ''
7304: ,p_attribute3 => ''
7305: ,p_attribute4 => ''
7306: ,p_attribute5 => '');
7307: p_return_status := FND_API.G_RET_STS_ERROR;
7308: RAISE FND_API.G_EXC_ERROR;
7309: END IF;
7310:
7311:
7304: ,p_attribute3 => ''
7305: ,p_attribute4 => ''
7306: ,p_attribute5 => '');
7307: p_return_status := FND_API.G_RET_STS_ERROR;
7308: RAISE FND_API.G_EXC_ERROR;
7309: END IF;
7310:
7311:
7312: -- Now verify whether project security allows the user to update the project
7324: ,p_attribute3 => ''
7325: ,p_attribute4 => ''
7326: ,p_attribute5 => '');
7327:
7328: p_return_status := FND_API.G_RET_STS_ERROR;
7329:
7330: RAISE FND_API.G_EXC_ERROR;
7331: ELSE
7332: -- If the user has query privileges, then check whether
7326: ,p_attribute5 => '');
7327:
7328: p_return_status := FND_API.G_RET_STS_ERROR;
7329:
7330: RAISE FND_API.G_EXC_ERROR;
7331: ELSE
7332: -- If the user has query privileges, then check whether
7333: -- update privileges are also available
7334: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
7346: ,p_attribute3 => ''
7347: ,p_attribute4 => ''
7348: ,p_attribute5 => '');
7349:
7350: p_return_status := FND_API.G_RET_STS_ERROR;
7351:
7352: RAISE FND_API.G_EXC_ERROR;
7353: END IF;
7354: END IF;
7348: ,p_attribute5 => '');
7349:
7350: p_return_status := FND_API.G_RET_STS_ERROR;
7351:
7352: RAISE FND_API.G_EXC_ERROR;
7353: END IF;
7354: END IF;
7355:
7356:
7369: p_pm_task_reference => p_pm_task_reference,
7370: p_out_task_id => l_task_id,
7371: p_return_status => l_return_status );
7372:
7373: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7375: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7376: RAISE FND_API.G_EXC_ERROR;
7377: END IF;
7370: p_out_task_id => l_task_id,
7371: p_return_status => l_return_status );
7372:
7373: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7375: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7376: RAISE FND_API.G_EXC_ERROR;
7377: END IF;
7378:
7371: p_return_status => l_return_status );
7372:
7373: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7375: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7376: RAISE FND_API.G_EXC_ERROR;
7377: END IF;
7378:
7379: END IF;
7372:
7373: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7375: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7376: RAISE FND_API.G_EXC_ERROR;
7377: END IF;
7378:
7379: END IF;
7380:
7394: p_pm_asset_reference => p_pm_asset_reference,
7395: p_out_project_asset_id => l_project_asset_id,
7396: p_return_status => l_return_status );
7397:
7398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7395: p_out_project_asset_id => l_project_asset_id,
7396: p_return_status => l_return_status );
7397:
7398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7403:
7396: p_return_status => l_return_status );
7397:
7398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7403:
7404: END IF;
7397:
7398: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7403:
7404: END IF;
7405:
7424: ,p_attribute4 => ''
7425: ,p_attribute5 => '');
7426: END IF;
7427:
7428: RAISE FND_API.G_EXC_ERROR;
7429:
7430: END IF; --No matching assignment currently exists
7431: CLOSE existing_assignment_cur;
7432:
7441: AND project_asset_id = l_project_asset_id;
7442:
7443:
7444: --Perform commit if indicated
7445: IF FND_API.to_boolean( p_commit ) THEN
7446: COMMIT;
7447: END IF;
7448:
7449:
7448:
7449:
7450:
7451: EXCEPTION
7452: WHEN FND_API.G_EXC_ERROR THEN
7453: ROLLBACK TO delete_asset_assignment_pub;
7454:
7455: p_return_status := FND_API.G_RET_STS_ERROR;
7456:
7451: EXCEPTION
7452: WHEN FND_API.G_EXC_ERROR THEN
7453: ROLLBACK TO delete_asset_assignment_pub;
7454:
7455: p_return_status := FND_API.G_RET_STS_ERROR;
7456:
7457: FND_MSG_PUB.Count_And_Get
7458: ( p_count => p_msg_count ,
7459: p_data => p_msg_data );
7457: FND_MSG_PUB.Count_And_Get
7458: ( p_count => p_msg_count ,
7459: p_data => p_msg_data );
7460:
7461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7462: ROLLBACK TO delete_asset_assignment_pub;
7463:
7464: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7465:
7460:
7461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7462: ROLLBACK TO delete_asset_assignment_pub;
7463:
7464: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7465:
7466: FND_MSG_PUB.Count_And_Get
7467: ( p_count => p_msg_count ,
7468: p_data => p_msg_data );
7469:
7470: WHEN OTHERS THEN
7471: ROLLBACK TO delete_asset_assignment_pub;
7472:
7473: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7474:
7475: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7476: FND_MSG_PUB.add_exc_msg
7477: ( p_pkg_name => G_PKG_NAME