[Home] [Help]
104: --
105: PROCEDURE Create_Project
106: (
107: p_api_version_number IN NUMBER
108: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
109: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
110: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
111: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
112: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
105: PROCEDURE Create_Project
106: (
107: p_api_version_number IN NUMBER
108: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
109: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
110: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
111: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
112: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
113: ,p_workflow_started OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
712: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
713: -- Standard call to check for call compatibility.
714:
715:
716: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
717: p_api_version_number ,
718: l_api_name ,
719: G_PKG_NAME )
720: THEN
718: l_api_name ,
719: G_PKG_NAME )
720: THEN
721:
722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
723:
724: END IF;
725:
726:
752: p_function_allowed => l_function_allowed
753: );
754:
755:
756: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
757: THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759:
760: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
754:
755:
756: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
757: THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759:
760: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
761: THEN
762: RAISE FND_API.G_EXC_ERROR;
756: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
757: THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759:
760: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
761: THEN
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764: IF l_function_allowed = 'N' THEN
758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
759:
760: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
761: THEN
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764: IF l_function_allowed = 'N' THEN
765: pa_interface_utils_pub.map_new_amg_msg
766: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
771: ,p_attribute2 => ''
772: ,p_attribute3 => ''
773: ,p_attribute4 => ''
774: ,p_attribute5 => '');
775: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778:
779:
772: ,p_attribute3 => ''
773: ,p_attribute4 => ''
774: ,p_attribute5 => '');
775: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778:
779:
780: -- Initialize the message table if requested.
778:
779:
780: -- Initialize the message table if requested.
781:
782: IF FND_API.TO_BOOLEAN( p_init_msg_list )
783: THEN
784:
785: FND_MSG_PUB.initialize;
786:
787: END IF;
788:
789: -- Set API return status to success
790:
791: p_return_status := FND_API.G_RET_STS_SUCCESS;
792: p_project_out.return_status := FND_API.G_RET_STS_SUCCESS;
793:
794: -- 22-DEC-97, jwhite:
795: -- Initialize New OUT-parameter to indicate workflow status
788:
789: -- Set API return status to success
790:
791: p_return_status := FND_API.G_RET_STS_SUCCESS;
792: p_project_out.return_status := FND_API.G_RET_STS_SUCCESS;
793:
794: -- 22-DEC-97, jwhite:
795: -- Initialize New OUT-parameter to indicate workflow status
796:
843: ,p_attribute3 => ''
844: ,p_attribute4 => ''
845: ,p_attribute5 => '');
846: END IF;
847: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
848: p_return_status := FND_API.G_RET_STS_ERROR;
849: RAISE FND_API.G_EXC_ERROR;
850: END IF;
851:
844: ,p_attribute4 => ''
845: ,p_attribute5 => '');
846: END IF;
847: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
848: p_return_status := FND_API.G_RET_STS_ERROR;
849: RAISE FND_API.G_EXC_ERROR;
850: END IF;
851:
852: --bug 2841158
845: ,p_attribute5 => '');
846: END IF;
847: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
848: p_return_status := FND_API.G_RET_STS_ERROR;
849: RAISE FND_API.G_EXC_ERROR;
850: END IF;
851:
852: --bug 2841158
853: IF p_pm_product_code <> 'WORKPLAN'
875: ,p_attribute3 => ''
876: ,p_attribute4 => ''
877: ,p_attribute5 => '');
878: END IF;
879: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
880: p_return_status := FND_API.G_RET_STS_ERROR;
881: RAISE FND_API.G_EXC_ERROR;
882: END IF;
883: END IF; --bug 2841158
876: ,p_attribute4 => ''
877: ,p_attribute5 => '');
878: END IF;
879: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
880: p_return_status := FND_API.G_RET_STS_ERROR;
881: RAISE FND_API.G_EXC_ERROR;
882: END IF;
883: END IF; --bug 2841158
884:
877: ,p_attribute5 => '');
878: END IF;
879: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
880: p_return_status := FND_API.G_RET_STS_ERROR;
881: RAISE FND_API.G_EXC_ERROR;
882: END IF;
883: END IF; --bug 2841158
884:
885: IF l_project_in_rec.pm_project_reference IS NULL
898: ,p_attribute3 => ''
899: ,p_attribute4 => ''
900: ,p_attribute5 => '');
901: END IF;
902: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
903: p_return_status := FND_API.G_RET_STS_ERROR;
904: RAISE FND_API.G_EXC_ERROR;
905: END IF;
906:
899: ,p_attribute4 => ''
900: ,p_attribute5 => '');
901: END IF;
902: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
903: p_return_status := FND_API.G_RET_STS_ERROR;
904: RAISE FND_API.G_EXC_ERROR;
905: END IF;
906:
907: IF l_project_in_rec.project_name IS NULL
900: ,p_attribute5 => '');
901: END IF;
902: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
903: p_return_status := FND_API.G_RET_STS_ERROR;
904: RAISE FND_API.G_EXC_ERROR;
905: END IF;
906:
907: IF l_project_in_rec.project_name IS NULL
908: OR l_project_in_rec.project_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
920: ,p_attribute3 => ''
921: ,p_attribute4 => ''
922: ,p_attribute5 => '');
923: END IF;
924: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
925: p_return_status := FND_API.G_RET_STS_ERROR;
926: RAISE FND_API.G_EXC_ERROR;
927: END IF;
928:
921: ,p_attribute4 => ''
922: ,p_attribute5 => '');
923: END IF;
924: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
925: p_return_status := FND_API.G_RET_STS_ERROR;
926: RAISE FND_API.G_EXC_ERROR;
927: END IF;
928:
929: -- Ensure that Project name is unique
922: ,p_attribute5 => '');
923: END IF;
924: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
925: p_return_status := FND_API.G_RET_STS_ERROR;
926: RAISE FND_API.G_EXC_ERROR;
927: END IF;
928:
929: -- Ensure that Project name is unique
930:
943: ,p_attribute3 => ''
944: ,p_attribute4 => ''
945: ,p_attribute5 => '');
946: END IF;
947: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
948: p_return_status := FND_API.G_RET_STS_ERROR;
949: RAISE FND_API.G_EXC_ERROR;
950: /*Adding for the bug 2450064*/
951: ELSE
944: ,p_attribute4 => ''
945: ,p_attribute5 => '');
946: END IF;
947: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
948: p_return_status := FND_API.G_RET_STS_ERROR;
949: RAISE FND_API.G_EXC_ERROR;
950: /*Adding for the bug 2450064*/
951: ELSE
952: pjm_seiban_pkg.project_name_dup(l_project_in_rec.project_name,l_dup_name_flag);
945: ,p_attribute5 => '');
946: END IF;
947: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
948: p_return_status := FND_API.G_RET_STS_ERROR;
949: RAISE FND_API.G_EXC_ERROR;
950: /*Adding for the bug 2450064*/
951: ELSE
952: pjm_seiban_pkg.project_name_dup(l_project_in_rec.project_name,l_dup_name_flag);
953:
964: ,p_attribute3 => ''
965: ,p_attribute4 => ''
966: ,p_attribute5 => '');
967: END IF;
968: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
969: p_return_status := FND_API.G_RET_STS_ERROR;
970: RAISE FND_API.G_EXC_ERROR;
971: END IF;
972: /*Adding for the bug 2450064*/
965: ,p_attribute4 => ''
966: ,p_attribute5 => '');
967: END IF;
968: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
969: p_return_status := FND_API.G_RET_STS_ERROR;
970: RAISE FND_API.G_EXC_ERROR;
971: END IF;
972: /*Adding for the bug 2450064*/
973: END IF;
966: ,p_attribute5 => '');
967: END IF;
968: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
969: p_return_status := FND_API.G_RET_STS_ERROR;
970: RAISE FND_API.G_EXC_ERROR;
971: END IF;
972: /*Adding for the bug 2450064*/
973: END IF;
974:
990: ,p_attribute3 => ''
991: ,p_attribute4 => ''
992: ,p_attribute5 => '');
993: END IF;
994: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
995: p_return_status := FND_API.G_RET_STS_ERROR;
996: RAISE FND_API.G_EXC_ERROR;
997: END IF;
998: END IF;
991: ,p_attribute4 => ''
992: ,p_attribute5 => '');
993: END IF;
994: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
995: p_return_status := FND_API.G_RET_STS_ERROR;
996: RAISE FND_API.G_EXC_ERROR;
997: END IF;
998: END IF;
999:
992: ,p_attribute5 => '');
993: END IF;
994: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
995: p_return_status := FND_API.G_RET_STS_ERROR;
996: RAISE FND_API.G_EXC_ERROR;
997: END IF;
998: END IF;
999:
1000: -- bug#3014919: Ensure Project Reference is unique
1017: ,p_attribute3 => ''
1018: ,p_attribute4 => ''
1019: ,p_attribute5 => '');
1020: END IF;
1021: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1022: p_return_status := FND_API.G_RET_STS_ERROR;
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025: END IF;
1018: ,p_attribute4 => ''
1019: ,p_attribute5 => '');
1020: END IF;
1021: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1022: p_return_status := FND_API.G_RET_STS_ERROR;
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025: END IF;
1026:
1019: ,p_attribute5 => '');
1020: END IF;
1021: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1022: p_return_status := FND_API.G_RET_STS_ERROR;
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025: END IF;
1026:
1027: -- Check for implementation defined Project number generation mode
1055: ,p_attribute3 => ''
1056: ,p_attribute4 => ''
1057: ,p_attribute5 => '');
1058: END IF;
1059: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1060: p_return_status := FND_API.G_RET_STS_ERROR;
1061: RAISE FND_API.G_EXC_ERROR;
1062: /*Adding for the bug 2450064*/
1063: ELSE
1056: ,p_attribute4 => ''
1057: ,p_attribute5 => '');
1058: END IF;
1059: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1060: p_return_status := FND_API.G_RET_STS_ERROR;
1061: RAISE FND_API.G_EXC_ERROR;
1062: /*Adding for the bug 2450064*/
1063: ELSE
1064: pjm_seiban_pkg.project_number_dup(l_create_project_number,l_dup_name_flag);
1057: ,p_attribute5 => '');
1058: END IF;
1059: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1060: p_return_status := FND_API.G_RET_STS_ERROR;
1061: RAISE FND_API.G_EXC_ERROR;
1062: /*Adding for the bug 2450064*/
1063: ELSE
1064: pjm_seiban_pkg.project_number_dup(l_create_project_number,l_dup_name_flag);
1065:
1076: ,p_attribute3 => ''
1077: ,p_attribute4 => ''
1078: ,p_attribute5 => '');
1079: END IF;
1080: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1081: p_return_status := FND_API.G_RET_STS_ERROR;
1082: RAISE FND_API.G_EXC_ERROR;
1083: END IF;
1084: /*Adding for the bug 2450064*/
1077: ,p_attribute4 => ''
1078: ,p_attribute5 => '');
1079: END IF;
1080: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1081: p_return_status := FND_API.G_RET_STS_ERROR;
1082: RAISE FND_API.G_EXC_ERROR;
1083: END IF;
1084: /*Adding for the bug 2450064*/
1085: END IF;
1078: ,p_attribute5 => '');
1079: END IF;
1080: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1081: p_return_status := FND_API.G_RET_STS_ERROR;
1082: RAISE FND_API.G_EXC_ERROR;
1083: END IF;
1084: /*Adding for the bug 2450064*/
1085: END IF;
1086: -- Check for project number being numeric if project number type is
1104: ,p_attribute3 => ''
1105: ,p_attribute4 => ''
1106: ,p_attribute5 => '');
1107: END IF;
1108: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1109: p_return_status := FND_API.G_RET_STS_ERROR;
1110: RAISE FND_API.G_EXC_ERROR;
1111: END ;
1112: END IF;
1105: ,p_attribute4 => ''
1106: ,p_attribute5 => '');
1107: END IF;
1108: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1109: p_return_status := FND_API.G_RET_STS_ERROR;
1110: RAISE FND_API.G_EXC_ERROR;
1111: END ;
1112: END IF;
1113:
1106: ,p_attribute5 => '');
1107: END IF;
1108: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1109: p_return_status := FND_API.G_RET_STS_ERROR;
1110: RAISE FND_API.G_EXC_ERROR;
1111: END ;
1112: END IF;
1113:
1114: IF l_project_in_rec.created_from_project_id IS NULL
1127: ,p_attribute3 => ''
1128: ,p_attribute4 => ''
1129: ,p_attribute5 => '');
1130: END IF;
1131: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1132: RAISE FND_API.G_EXC_ERROR;
1133: END IF;
1134:
1135: -- mandatory fields for tasks is checked here
1128: ,p_attribute4 => ''
1129: ,p_attribute5 => '');
1130: END IF;
1131: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1132: RAISE FND_API.G_EXC_ERROR;
1133: END IF;
1134:
1135: -- mandatory fields for tasks is checked here
1136:
1162: ,p_attribute3 => ''
1163: ,p_attribute4 => ''
1164: ,p_attribute5 => '');
1165: END IF;
1166: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1167: RAISE FND_API.G_EXC_ERROR;
1168: END IF;
1169: CLOSE l_temp_flag_csr;
1170:
1163: ,p_attribute4 => ''
1164: ,p_attribute5 => '');
1165: END IF;
1166: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1167: RAISE FND_API.G_EXC_ERROR;
1168: END IF;
1169: CLOSE l_temp_flag_csr;
1170:
1171: if l_temp_flag = 'Y' then
1189: );
1190:
1191: END IF;
1192:
1193: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1194: RAISE FND_API.G_EXC_ERROR;
1195:
1196: END IF;
1197:
1190:
1191: END IF;
1192:
1193: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1194: RAISE FND_API.G_EXC_ERROR;
1195:
1196: END IF;
1197:
1198: -- 5182868 end
1243: FND_MESSAGE.SET_NAME('PA','PA_DESCRIPTION_NOT_OVERRIDABLE');
1244: FND_MSG_PUB.add;
1245: END IF;
1246:
1247: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1248: RAISE FND_API.G_EXC_ERROR;
1249: END IF;
1250: */
1251: /* Code below is added for Customer Issue tracking bug. Customer Can still continue to project_in_rec_type to insert customers
1244: FND_MSG_PUB.add;
1245: END IF;
1246:
1247: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1248: RAISE FND_API.G_EXC_ERROR;
1249: END IF;
1250: */
1251: /* Code below is added for Customer Issue tracking bug. Customer Can still continue to project_in_rec_type to insert customers
1252: or can use the new record type for the same. However he cannot use both together in the same script*/
1354: ,p_attribute3 => ''
1355: ,p_attribute4 => ''
1356: ,p_attribute5 => '');
1357: END IF;
1358: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1359: p_return_status := FND_API.G_RET_STS_ERROR;
1360: RAISE FND_API.G_EXC_ERROR;
1361:
1362: END IF;
1355: ,p_attribute4 => ''
1356: ,p_attribute5 => '');
1357: END IF;
1358: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1359: p_return_status := FND_API.G_RET_STS_ERROR;
1360: RAISE FND_API.G_EXC_ERROR;
1361:
1362: END IF;
1363:
1356: ,p_attribute5 => '');
1357: END IF;
1358: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1359: p_return_status := FND_API.G_RET_STS_ERROR;
1360: RAISE FND_API.G_EXC_ERROR;
1361:
1362: END IF;
1363:
1364: ELSIF l_override_fields_tab(i).pa_field_name = 'CLASSIFICATION' THEN
1380: ,p_attribute3 => ''
1381: ,p_attribute4 => ''
1382: ,p_attribute5 => '');
1383: END IF;
1384: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1385: p_return_status := FND_API.G_RET_STS_ERROR;
1386: RAISE FND_API.G_EXC_ERROR;
1387:
1388: END IF;
1381: ,p_attribute4 => ''
1382: ,p_attribute5 => '');
1383: END IF;
1384: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1385: p_return_status := FND_API.G_RET_STS_ERROR;
1386: RAISE FND_API.G_EXC_ERROR;
1387:
1388: END IF;
1389:
1382: ,p_attribute5 => '');
1383: END IF;
1384: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1385: p_return_status := FND_API.G_RET_STS_ERROR;
1386: RAISE FND_API.G_EXC_ERROR;
1387:
1388: END IF;
1389:
1390: l_class_code_categories := 0;
1410: ,p_attribute3 => ''
1411: ,p_attribute4 => ''
1412: ,p_attribute5 => '');
1413: END IF;
1414: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1415: p_return_status := FND_API.G_RET_STS_ERROR;
1416: RAISE FND_API.G_EXC_ERROR;
1417: END IF;
1418:
1411: ,p_attribute4 => ''
1412: ,p_attribute5 => '');
1413: END IF;
1414: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1415: p_return_status := FND_API.G_RET_STS_ERROR;
1416: RAISE FND_API.G_EXC_ERROR;
1417: END IF;
1418:
1419: EXIT;
1412: ,p_attribute5 => '');
1413: END IF;
1414: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1415: p_return_status := FND_API.G_RET_STS_ERROR;
1416: RAISE FND_API.G_EXC_ERROR;
1417: END IF;
1418:
1419: EXIT;
1420: END IF;
1435: ,p_attribute3 => ''
1436: ,p_attribute4 => ''
1437: ,p_attribute5 => '');
1438: END IF;
1439: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1440: p_return_status := FND_API.G_RET_STS_ERROR;
1441: RAISE FND_API.G_EXC_ERROR;
1442: END IF;
1443: ELSIF l_override_fields_tab(i).pa_field_name = 'COMPLETION_DATE' THEN
1436: ,p_attribute4 => ''
1437: ,p_attribute5 => '');
1438: END IF;
1439: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1440: p_return_status := FND_API.G_RET_STS_ERROR;
1441: RAISE FND_API.G_EXC_ERROR;
1442: END IF;
1443: ELSIF l_override_fields_tab(i).pa_field_name = 'COMPLETION_DATE' THEN
1444: IF l_project_in_rec.completion_date IS NULL
1437: ,p_attribute5 => '');
1438: END IF;
1439: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1440: p_return_status := FND_API.G_RET_STS_ERROR;
1441: RAISE FND_API.G_EXC_ERROR;
1442: END IF;
1443: ELSIF l_override_fields_tab(i).pa_field_name = 'COMPLETION_DATE' THEN
1444: IF l_project_in_rec.completion_date IS NULL
1445: OR l_project_in_rec.completion_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1457: ,p_attribute3 => ''
1458: ,p_attribute4 => ''
1459: ,p_attribute5 => '');
1460: END IF;
1461: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1462: p_return_status := FND_API.G_RET_STS_ERROR;
1463: RAISE FND_API.G_EXC_ERROR;
1464:
1465: END IF;
1458: ,p_attribute4 => ''
1459: ,p_attribute5 => '');
1460: END IF;
1461: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1462: p_return_status := FND_API.G_RET_STS_ERROR;
1463: RAISE FND_API.G_EXC_ERROR;
1464:
1465: END IF;
1466:
1459: ,p_attribute5 => '');
1460: END IF;
1461: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1462: p_return_status := FND_API.G_RET_STS_ERROR;
1463: RAISE FND_API.G_EXC_ERROR;
1464:
1465: END IF;
1466:
1467: ELSIF l_override_fields_tab(i).pa_field_name = 'START_DATE' THEN
1481: ,p_attribute3 => ''
1482: ,p_attribute4 => ''
1483: ,p_attribute5 => '');
1484: END IF;
1485: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1486: p_return_status := FND_API.G_RET_STS_ERROR;
1487: RAISE FND_API.G_EXC_ERROR;
1488:
1489: END IF;
1482: ,p_attribute4 => ''
1483: ,p_attribute5 => '');
1484: END IF;
1485: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1486: p_return_status := FND_API.G_RET_STS_ERROR;
1487: RAISE FND_API.G_EXC_ERROR;
1488:
1489: END IF;
1490: ELSIF l_override_fields_tab(i).pa_field_name = 'CUSTOMER_NAME' THEN
1483: ,p_attribute5 => '');
1484: END IF;
1485: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1486: p_return_status := FND_API.G_RET_STS_ERROR;
1487: RAISE FND_API.G_EXC_ERROR;
1488:
1489: END IF;
1490: ELSIF l_override_fields_tab(i).pa_field_name = 'CUSTOMER_NAME' THEN
1491: /* Code commented for tracking bug
1509: ,p_attribute3 => ''
1510: ,p_attribute4 => ''
1511: ,p_attribute5 => '');
1512: END IF;
1513: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1514: p_return_status := FND_API.G_RET_STS_ERROR;
1515: RAISE FND_API.G_EXC_ERROR;
1516:
1517: END IF;
1510: ,p_attribute4 => ''
1511: ,p_attribute5 => '');
1512: END IF;
1513: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1514: p_return_status := FND_API.G_RET_STS_ERROR;
1515: RAISE FND_API.G_EXC_ERROR;
1516:
1517: END IF;
1518:
1511: ,p_attribute5 => '');
1512: END IF;
1513: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1514: p_return_status := FND_API.G_RET_STS_ERROR;
1515: RAISE FND_API.G_EXC_ERROR;
1516:
1517: END IF;
1518:
1519: --Customer Account relationship Changes:
1540: ,p_attribute3 => ''
1541: ,p_attribute4 => ''
1542: ,p_attribute5 => '');
1543: END IF;
1544: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1545: p_return_status := FND_API.G_RET_STS_ERROR;
1546: RAISE FND_API.G_EXC_ERROR;
1547:
1548: END IF;
1541: ,p_attribute4 => ''
1542: ,p_attribute5 => '');
1543: END IF;
1544: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1545: p_return_status := FND_API.G_RET_STS_ERROR;
1546: RAISE FND_API.G_EXC_ERROR;
1547:
1548: END IF;
1549:
1542: ,p_attribute5 => '');
1543: END IF;
1544: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1545: p_return_status := FND_API.G_RET_STS_ERROR;
1546: RAISE FND_API.G_EXC_ERROR;
1547:
1548: END IF;
1549:
1550: ELSIF l_override_fields_tab(i).pa_field_name = 'SHIP_TO_CUSTOMER' THEN
1569: ,p_attribute3 => ''
1570: ,p_attribute4 => ''
1571: ,p_attribute5 => '');
1572: END IF;
1573: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1574: p_return_status := FND_API.G_RET_STS_ERROR;
1575: RAISE FND_API.G_EXC_ERROR;
1576:
1577: END IF;
1570: ,p_attribute4 => ''
1571: ,p_attribute5 => '');
1572: END IF;
1573: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1574: p_return_status := FND_API.G_RET_STS_ERROR;
1575: RAISE FND_API.G_EXC_ERROR;
1576:
1577: END IF;
1578:
1571: ,p_attribute5 => '');
1572: END IF;
1573: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1574: p_return_status := FND_API.G_RET_STS_ERROR;
1575: RAISE FND_API.G_EXC_ERROR;
1576:
1577: END IF;
1578:
1579: ----dbms_output.put_line('Overriding bill to cst and ship to cst');
1595: ,p_attribute3 => ''
1596: ,p_attribute4 => ''
1597: ,p_attribute5 => '');
1598: END IF;
1599: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1600: p_return_status := FND_API.G_RET_STS_ERROR;
1601: RAISE FND_API.G_EXC_ERROR;
1602:
1603: END IF;
1596: ,p_attribute4 => ''
1597: ,p_attribute5 => '');
1598: END IF;
1599: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1600: p_return_status := FND_API.G_RET_STS_ERROR;
1601: RAISE FND_API.G_EXC_ERROR;
1602:
1603: END IF;
1604:
1597: ,p_attribute5 => '');
1598: END IF;
1599: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1600: p_return_status := FND_API.G_RET_STS_ERROR;
1601: RAISE FND_API.G_EXC_ERROR;
1602:
1603: END IF;
1604:
1605: ELSIF l_override_fields_tab(i).pa_field_name = 'KEY_MEMBER' THEN
1621: ,p_attribute3 => ''
1622: ,p_attribute4 => ''
1623: ,p_attribute5 => '');
1624: END IF;
1625: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1626: p_return_status := FND_API.G_RET_STS_ERROR;
1627: RAISE FND_API.G_EXC_ERROR;
1628:
1629: END IF;
1622: ,p_attribute4 => ''
1623: ,p_attribute5 => '');
1624: END IF;
1625: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1626: p_return_status := FND_API.G_RET_STS_ERROR;
1627: RAISE FND_API.G_EXC_ERROR;
1628:
1629: END IF;
1630:
1623: ,p_attribute5 => '');
1624: END IF;
1625: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1626: p_return_status := FND_API.G_RET_STS_ERROR;
1627: RAISE FND_API.G_EXC_ERROR;
1628:
1629: END IF;
1630:
1631: l_key_member := 0;
1654: ,p_attribute3 => ''
1655: ,p_attribute4 => ''
1656: ,p_attribute5 => '');
1657: END IF;
1658: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1659: p_return_status := FND_API.G_RET_STS_ERROR;
1660: RAISE FND_API.G_EXC_ERROR;
1661: END IF;
1662:
1655: ,p_attribute4 => ''
1656: ,p_attribute5 => '');
1657: END IF;
1658: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1659: p_return_status := FND_API.G_RET_STS_ERROR;
1660: RAISE FND_API.G_EXC_ERROR;
1661: END IF;
1662:
1663: ELSIF l_override_fields_tab(i).pa_field_name = 'DISTRIBUTION_RULE' THEN
1656: ,p_attribute5 => '');
1657: END IF;
1658: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1659: p_return_status := FND_API.G_RET_STS_ERROR;
1660: RAISE FND_API.G_EXC_ERROR;
1661: END IF;
1662:
1663: ELSIF l_override_fields_tab(i).pa_field_name = 'DISTRIBUTION_RULE' THEN
1664: IF l_project_in_rec.distribution_rule IS NULL
1677: ,p_attribute3 => ''
1678: ,p_attribute4 => ''
1679: ,p_attribute5 => '');
1680: END IF;
1681: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1682: p_return_status := FND_API.G_RET_STS_ERROR;
1683: RAISE FND_API.G_EXC_ERROR;
1684:
1685: END IF;
1678: ,p_attribute4 => ''
1679: ,p_attribute5 => '');
1680: END IF;
1681: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1682: p_return_status := FND_API.G_RET_STS_ERROR;
1683: RAISE FND_API.G_EXC_ERROR;
1684:
1685: END IF;
1686:
1679: ,p_attribute5 => '');
1680: END IF;
1681: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1682: p_return_status := FND_API.G_RET_STS_ERROR;
1683: RAISE FND_API.G_EXC_ERROR;
1684:
1685: END IF;
1686:
1687: ELSIF l_override_fields_tab(i).pa_field_name = 'PROJECT_STATUS_CODE' THEN
1700: ,p_attribute3 => ''
1701: ,p_attribute4 => ''
1702: ,p_attribute5 => '');
1703: END IF;
1704: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1705: p_return_status := FND_API.G_RET_STS_ERROR;
1706: RAISE FND_API.G_EXC_ERROR;
1707:
1708: END IF;
1701: ,p_attribute4 => ''
1702: ,p_attribute5 => '');
1703: END IF;
1704: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1705: p_return_status := FND_API.G_RET_STS_ERROR;
1706: RAISE FND_API.G_EXC_ERROR;
1707:
1708: END IF;
1709:
1702: ,p_attribute5 => '');
1703: END IF;
1704: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1705: p_return_status := FND_API.G_RET_STS_ERROR;
1706: RAISE FND_API.G_EXC_ERROR;
1707:
1708: END IF;
1709:
1710: ELSIF l_override_fields_tab(i).pa_field_name = 'PUBLIC_SECTOR_FLAG' THEN
1724: ,p_attribute3 => ''
1725: ,p_attribute4 => ''
1726: ,p_attribute5 => '');
1727: END IF;
1728: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1729: p_return_status := FND_API.G_RET_STS_ERROR;
1730: RAISE FND_API.G_EXC_ERROR;
1731:
1732: END IF;
1725: ,p_attribute4 => ''
1726: ,p_attribute5 => '');
1727: END IF;
1728: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1729: p_return_status := FND_API.G_RET_STS_ERROR;
1730: RAISE FND_API.G_EXC_ERROR;
1731:
1732: END IF;
1733:
1726: ,p_attribute5 => '');
1727: END IF;
1728: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1729: p_return_status := FND_API.G_RET_STS_ERROR;
1730: RAISE FND_API.G_EXC_ERROR;
1731:
1732: END IF;
1733:
1734: ELSIF l_override_fields_tab(i).pa_field_name = 'TEAM_TEMPLATE_ID' THEN
1748: ,p_attribute3 => ''
1749: ,p_attribute4 => ''
1750: ,p_attribute5 => '');
1751: END IF;
1752: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1753: p_return_status := FND_API.G_RET_STS_ERROR;
1754: RAISE FND_API.G_EXC_ERROR;
1755:
1756: END IF;
1749: ,p_attribute4 => ''
1750: ,p_attribute5 => '');
1751: END IF;
1752: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1753: p_return_status := FND_API.G_RET_STS_ERROR;
1754: RAISE FND_API.G_EXC_ERROR;
1755:
1756: END IF;
1757:
1750: ,p_attribute5 => '');
1751: END IF;
1752: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1753: p_return_status := FND_API.G_RET_STS_ERROR;
1754: RAISE FND_API.G_EXC_ERROR;
1755:
1756: END IF;
1757:
1758: ELSIF l_override_fields_tab(i).pa_field_name = 'COUNTRY' THEN
1772: ,p_attribute3 => ''
1773: ,p_attribute4 => ''
1774: ,p_attribute5 => '');
1775: END IF;
1776: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1777: p_return_status := FND_API.G_RET_STS_ERROR;
1778: RAISE FND_API.G_EXC_ERROR;
1779:
1780: END IF;
1773: ,p_attribute4 => ''
1774: ,p_attribute5 => '');
1775: END IF;
1776: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1777: p_return_status := FND_API.G_RET_STS_ERROR;
1778: RAISE FND_API.G_EXC_ERROR;
1779:
1780: END IF;
1781:
1774: ,p_attribute5 => '');
1775: END IF;
1776: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1777: p_return_status := FND_API.G_RET_STS_ERROR;
1778: RAISE FND_API.G_EXC_ERROR;
1779:
1780: END IF;
1781:
1782: ELSIF l_override_fields_tab(i).pa_field_name = 'STATE_REGION' THEN
1796: ,p_attribute3 => ''
1797: ,p_attribute4 => ''
1798: ,p_attribute5 => '');
1799: END IF;
1800: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1801: p_return_status := FND_API.G_RET_STS_ERROR;
1802: RAISE FND_API.G_EXC_ERROR;
1803:
1804: END IF;
1797: ,p_attribute4 => ''
1798: ,p_attribute5 => '');
1799: END IF;
1800: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1801: p_return_status := FND_API.G_RET_STS_ERROR;
1802: RAISE FND_API.G_EXC_ERROR;
1803:
1804: END IF;
1805:
1798: ,p_attribute5 => '');
1799: END IF;
1800: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1801: p_return_status := FND_API.G_RET_STS_ERROR;
1802: RAISE FND_API.G_EXC_ERROR;
1803:
1804: END IF;
1805:
1806: ELSIF l_override_fields_tab(i).pa_field_name = 'CITY' THEN
1820: ,p_attribute3 => ''
1821: ,p_attribute4 => ''
1822: ,p_attribute5 => '');
1823: END IF;
1824: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1825: p_return_status := FND_API.G_RET_STS_ERROR;
1826: RAISE FND_API.G_EXC_ERROR;
1827:
1828: END IF;
1821: ,p_attribute4 => ''
1822: ,p_attribute5 => '');
1823: END IF;
1824: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1825: p_return_status := FND_API.G_RET_STS_ERROR;
1826: RAISE FND_API.G_EXC_ERROR;
1827:
1828: END IF;
1829:
1822: ,p_attribute5 => '');
1823: END IF;
1824: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1825: p_return_status := FND_API.G_RET_STS_ERROR;
1826: RAISE FND_API.G_EXC_ERROR;
1827:
1828: END IF;
1829:
1830: ELSIF l_override_fields_tab(i).pa_field_name = 'EXPECTED_APPROVAL_DATE' THEN
1844: ,p_attribute3 => ''
1845: ,p_attribute4 => ''
1846: ,p_attribute5 => '');
1847: END IF;
1848: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1849: p_return_status := FND_API.G_RET_STS_ERROR;
1850: RAISE FND_API.G_EXC_ERROR;
1851:
1852: END IF;
1845: ,p_attribute4 => ''
1846: ,p_attribute5 => '');
1847: END IF;
1848: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1849: p_return_status := FND_API.G_RET_STS_ERROR;
1850: RAISE FND_API.G_EXC_ERROR;
1851:
1852: END IF;
1853:
1846: ,p_attribute5 => '');
1847: END IF;
1848: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1849: p_return_status := FND_API.G_RET_STS_ERROR;
1850: RAISE FND_API.G_EXC_ERROR;
1851:
1852: END IF;
1853:
1854: ELSIF l_override_fields_tab(i).pa_field_name = 'PROBABILITY_MEMBER_ID' THEN
1868: ,p_attribute3 => ''
1869: ,p_attribute4 => ''
1870: ,p_attribute5 => '');
1871: END IF;
1872: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1873: p_return_status := FND_API.G_RET_STS_ERROR;
1874: RAISE FND_API.G_EXC_ERROR;
1875:
1876: END IF;
1869: ,p_attribute4 => ''
1870: ,p_attribute5 => '');
1871: END IF;
1872: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1873: p_return_status := FND_API.G_RET_STS_ERROR;
1874: RAISE FND_API.G_EXC_ERROR;
1875:
1876: END IF;
1877:
1870: ,p_attribute5 => '');
1871: END IF;
1872: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1873: p_return_status := FND_API.G_RET_STS_ERROR;
1874: RAISE FND_API.G_EXC_ERROR;
1875:
1876: END IF;
1877:
1878: ELSIF l_override_fields_tab(i).pa_field_name = 'PROJECT_VALUE' THEN
1892: ,p_attribute3 => ''
1893: ,p_attribute4 => ''
1894: ,p_attribute5 => '');
1895: END IF;
1896: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1897: p_return_status := FND_API.G_RET_STS_ERROR;
1898: RAISE FND_API.G_EXC_ERROR;
1899:
1900: END IF;
1893: ,p_attribute4 => ''
1894: ,p_attribute5 => '');
1895: END IF;
1896: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1897: p_return_status := FND_API.G_RET_STS_ERROR;
1898: RAISE FND_API.G_EXC_ERROR;
1899:
1900: END IF;
1901:
1894: ,p_attribute5 => '');
1895: END IF;
1896: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1897: p_return_status := FND_API.G_RET_STS_ERROR;
1898: RAISE FND_API.G_EXC_ERROR;
1899:
1900: END IF;
1901:
1902: -- anlee opportunity value changes
1917: ,p_attribute3 => ''
1918: ,p_attribute4 => ''
1919: ,p_attribute5 => '');
1920: END IF;
1921: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1922: p_return_status := FND_API.G_RET_STS_ERROR;
1923: RAISE FND_API.G_EXC_ERROR;
1924:
1925: END IF;
1918: ,p_attribute4 => ''
1919: ,p_attribute5 => '');
1920: END IF;
1921: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1922: p_return_status := FND_API.G_RET_STS_ERROR;
1923: RAISE FND_API.G_EXC_ERROR;
1924:
1925: END IF;
1926:
1919: ,p_attribute5 => '');
1920: END IF;
1921: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1922: p_return_status := FND_API.G_RET_STS_ERROR;
1923: RAISE FND_API.G_EXC_ERROR;
1924:
1925: END IF;
1926:
1927: -- anlee org role changes
1944: ,p_attribute3 => ''
1945: ,p_attribute4 => ''
1946: ,p_attribute5 => '');
1947: END IF;
1948: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1949: p_return_status := FND_API.G_RET_STS_ERROR;
1950: RAISE FND_API.G_EXC_ERROR;
1951:
1952: END IF;
1945: ,p_attribute4 => ''
1946: ,p_attribute5 => '');
1947: END IF;
1948: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1949: p_return_status := FND_API.G_RET_STS_ERROR;
1950: RAISE FND_API.G_EXC_ERROR;
1951:
1952: END IF;
1953:
1946: ,p_attribute5 => '');
1947: END IF;
1948: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1949: p_return_status := FND_API.G_RET_STS_ERROR;
1950: RAISE FND_API.G_EXC_ERROR;
1951:
1952: END IF;
1953:
1954: l_org_role := 0;
1977: ,p_attribute3 => ''
1978: ,p_attribute4 => ''
1979: ,p_attribute5 => '');
1980: END IF;
1981: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1982: p_return_status := FND_API.G_RET_STS_ERROR;
1983: RAISE FND_API.G_EXC_ERROR;
1984: END IF;
1985:
1978: ,p_attribute4 => ''
1979: ,p_attribute5 => '');
1980: END IF;
1981: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1982: p_return_status := FND_API.G_RET_STS_ERROR;
1983: RAISE FND_API.G_EXC_ERROR;
1984: END IF;
1985:
1986: /* Added this code for bug#2672646 if Long Name is an Quick Entry Field */
1979: ,p_attribute5 => '');
1980: END IF;
1981: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
1982: p_return_status := FND_API.G_RET_STS_ERROR;
1983: RAISE FND_API.G_EXC_ERROR;
1984: END IF;
1985:
1986: /* Added this code for bug#2672646 if Long Name is an Quick Entry Field */
1987:
2001: ,p_attribute3 => ''
2002: ,p_attribute4 => ''
2003: ,p_attribute5 => '');
2004: END IF;
2005: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
2006: p_return_status := FND_API.G_RET_STS_ERROR;
2007: RAISE FND_API.G_EXC_ERROR;
2008: END IF;
2009:
2002: ,p_attribute4 => ''
2003: ,p_attribute5 => '');
2004: END IF;
2005: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
2006: p_return_status := FND_API.G_RET_STS_ERROR;
2007: RAISE FND_API.G_EXC_ERROR;
2008: END IF;
2009:
2010: /* End of code added for bug#2672646 */
2003: ,p_attribute5 => '');
2004: END IF;
2005: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
2006: p_return_status := FND_API.G_RET_STS_ERROR;
2007: RAISE FND_API.G_EXC_ERROR;
2008: END IF;
2009:
2010: /* End of code added for bug#2672646 */
2011:
2052: ,p_attribute4 => ''
2053: ,p_attribute5 => '');
2054: END IF;
2055:
2056: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
2057: CLOSE l_source_project_type_csr;
2058: RAISE FND_API.G_EXC_ERROR;
2059: END IF;
2060:
2054: END IF;
2055:
2056: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
2057: CLOSE l_source_project_type_csr;
2058: RAISE FND_API.G_EXC_ERROR;
2059: END IF;
2060:
2061: CLOSE l_source_project_type_csr;
2062:
2081: ,p_attribute4 => ''
2082: ,p_attribute5 => '');
2083: END IF;
2084:
2085: RAISE FND_API.G_EXC_ERROR;
2086: END IF;
2087: END IF;
2088:
2089: IF l_project_in_rec.carrying_out_organization_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2105: ,p_attribute4 => ''
2106: ,p_attribute5 => '');
2107: END IF;
2108:
2109: RAISE FND_API.G_EXC_ERROR;
2110: END IF;
2111: END IF;
2112:
2113: l_project_start_date := l_project_in_rec.start_date;
2130: ,p_attribute3 => ''
2131: ,p_attribute4 => ''
2132: ,p_attribute5 => '');
2133: END IF;
2134: RAISE FND_API.G_EXC_ERROR;
2135: END IF;
2136:
2137: -- completion date cannot be less than start date
2138: IF l_project_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
2168:
2169: -- 5182972 end
2170: END IF;
2171:
2172: RAISE FND_API.G_EXC_ERROR;
2173: END IF;
2174: /*
2175: IF l_project_in_rec.actual_start_date IS NULL OR
2176: l_project_in_rec.actual_start_date =
2229: );
2230:
2231: END IF;
2232:
2233: RAISE FND_API.G_EXC_ERROR;
2234: END IF;
2235: l_early_finish_date := l_project_in_rec.early_finish_date;
2236:
2237: ELSE --End of Logic added to check whether the finish date is earlier than the start date.Bug#5185673
2264: );
2265:
2266: END IF;
2267:
2268: RAISE FND_API.G_EXC_ERROR;
2269: END IF;
2270: l_late_finish_date := l_project_in_rec.late_finish_date;
2271: ELSE --End of Logic added to check whether the finish date is earlier than the start date.Bug#5185673
2272: l_late_finish_date := l_project_in_rec.late_finish_date;
2321: ,p_attribute3 => ''
2322: ,p_attribute4 => ''
2323: ,p_attribute5 => '');
2324: END IF;
2325: RAISE FND_API.G_EXC_ERROR;
2326: END IF;
2327:
2328:
2329: -- Check to ensure that the dates returned by the API are valid
2360:
2361: -- 5182972 end
2362: END IF;
2363:
2364: RAISE FND_API.G_EXC_ERROR;
2365: END IF;
2366:
2367: --Since this is an insert API (and not an update API),
2368: --all missing incoming parameters will be defaulted to NULL
2393: ,p_attribute3 => ''
2394: ,p_attribute4 => ''
2395: ,p_attribute5 => '');
2396: END IF;
2397: RAISE FND_API.G_EXC_ERROR;
2398: END IF;
2399: IF pa_project_stus_utils.Is_Starting_Status
2400: (l_project_in_rec.project_status_code) = 'N' THEN
2401: pa_interface_utils_pub.map_new_amg_msg
2407: ,p_attribute2 => ''
2408: ,p_attribute3 => ''
2409: ,p_attribute4 => ''
2410: ,p_attribute5 => '');
2411: RAISE FND_API.G_EXC_ERROR;
2412: END IF;
2413:
2414: END IF;
2415:
2437: ,p_attribute3 => ''
2438: ,p_attribute4 => ''
2439: ,p_attribute5 => '');
2440: END IF;
2441: RAISE FND_API.G_EXC_ERROR;
2442: END IF;
2443: END IF;
2444:
2445: --When descriptive flex fields are not passed set them to NULL
2723: IF l_project_in_rec.project_value IS NOT NULL AND l_project_in_rec.project_value < 0 THEN
2724: PA_UTILS.ADD_MESSAGE
2725: ( p_app_short_name => 'PA'
2726: ,p_msg_name => 'PA_INVLD_OPPORTUNITY_VALUE');
2727: RAISE FND_API.G_EXC_ERROR;
2728: ELSE
2729: l_project_value := l_project_in_rec.project_value;
2730: END IF;
2731: END IF;
2770: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2771: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
2772: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
2773: FND_MSG_PUB.ADD;
2774: RAISE FND_API.G_EXC_ERROR;
2775: END IF;
2776: ELSE
2777: IF l_project_in_rec.PROJECT_BIL_RATE_TYPE = 'User' THEN
2778: IF l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE is NULL
2779: OR l_project_in_rec.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PC_AMG:Project Exchange Rate cannot be null when project rate type is User.
2781: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
2782: FND_MSG_PUB.ADD;
2783: RAISE FND_API.G_EXC_ERROR;
2784: END IF;
2785: END IF;
2786: ELSE -- non-User type
2787: IF l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE is NULL
2790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2791: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2792: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2793: FND_MSG_PUB.ADD;
2794: RAISE FND_API.G_EXC_ERROR;
2795: END IF;
2796: ELSE
2797: IF l_project_in_rec.PROJECT_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
2798: IF l_project_in_rec.PROJECT_BIL_RATE_DATE is NULL
2800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2801: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2802: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
2803: FND_MSG_PUB.ADD;
2804: RAISE FND_API.G_EXC_ERROR;
2805: END IF;
2806: END IF;
2807: END IF;
2808: END IF;
2814: OR l_project_in_rec.PROJFUNC_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PFC_RATE_TYPE_INV_AMG:The project functional exchage rate type is invalid
2815: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2816: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
2817: FND_MSG_PUB.ADD;
2818: RAISE FND_API.G_EXC_ERROR;
2819: END IF;
2820: ELSE
2821: IF l_project_in_rec.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
2822: IF l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE is NULL
2823: OR l_project_in_rec.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PF_AMG:Project Functional Exchange Rate cannot be null when project functional rate type is User.
2825: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
2826: FND_MSG_PUB.ADD;
2827: RAISE FND_API.G_EXC_ERROR;
2828: END IF;
2829: END IF;
2830:
2831: ELSE -- non-User type
2834: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2835: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2836: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2837: FND_MSG_PUB.ADD;
2838: RAISE FND_API.G_EXC_ERROR;
2839: END IF;
2840: ELSE
2841: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
2842: IF l_project_in_rec.PROJFUNC_BIL_RATE_DATE is NULL
2844: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2845: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2846: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
2847: FND_MSG_PUB.ADD;
2848: RAISE FND_API.G_EXC_ERROR;
2849: END IF;
2850: END IF;
2851: END IF;
2852: END IF;
2859: OR l_project_in_rec.FUNDING_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_FUND_RATE_TYPE_INV_AMG:The funding exchage rate type is invalid
2860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2861: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
2862: FND_MSG_PUB.ADD;
2863: RAISE FND_API.G_EXC_ERROR;
2864: END IF;
2865: ELSE
2866: IF l_project_in_rec.FUNDING_RATE_TYPE = 'User' THEN
2867: IF l_project_in_rec.FUNDING_EXCHANGE_RATE is NULL
2868: OR l_project_in_rec.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
2869: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCHANGE_RATE_NULL:Exchange rate cannot be null when rate type is User.
2870: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
2871: FND_MSG_PUB.ADD;
2872: RAISE FND_API.G_EXC_ERROR;
2873: END IF;
2874: END IF;
2875:
2876: ELSE -- non-User type
2879: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2880: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
2881: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2882: FND_MSG_PUB.ADD;
2883: RAISE FND_API.G_EXC_ERROR;
2884: END IF;
2885: ELSE
2886: IF l_project_in_rec.FUNDING_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
2887: IF l_project_in_rec.FUNDING_RATE_DATE is NULL
2889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2890: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
2891: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
2892: FND_MSG_PUB.ADD;
2893: RAISE FND_API.G_EXC_ERROR;
2894: END IF;
2895: END IF;
2896: END IF;
2897: END IF;
2997:
2998: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2999: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
3000:
3001: l_return_status := FND_API.G_RET_STS_ERROR;
3002:
3003: RAISE FND_API.G_EXC_ERROR;
3004:
3005: END IF;
2999: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
3000:
3001: l_return_status := FND_API.G_RET_STS_ERROR;
3002:
3003: RAISE FND_API.G_EXC_ERROR;
3004:
3005: END IF;
3006:
3007: END IF;
3101: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3102: ,p_msg_name => 'PA_FUNDS_FLAG_CANT_ENABLED'
3103: );
3104:
3105: l_return_status := FND_API.G_RET_STS_ERROR;
3106:
3107: RAISE FND_API.G_EXC_ERROR;
3108: END IF;
3109: /*
3103: );
3104:
3105: l_return_status := FND_API.G_RET_STS_ERROR;
3106:
3107: RAISE FND_API.G_EXC_ERROR;
3108: END IF;
3109: /*
3110: IF nvl(l_chk_rev_inv_flag,'N') ='Y' AND l_project_in_rec.date_eff_funds_flag <> l_orig_date_eff_funds_flag THEN
3111:
3112: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3113: ,p_msg_name => 'PA_FUNDS_FLAG_NOT_UPDATBL'
3114: );
3115:
3116: l_return_status := FND_API.G_RET_STS_ERROR;
3117:
3118: RAISE FND_API.G_EXC_ERROR;
3119: END IF;
3120: */
3114: );
3115:
3116: l_return_status := FND_API.G_RET_STS_ERROR;
3117:
3118: RAISE FND_API.G_EXC_ERROR;
3119: END IF;
3120: */
3121: l_date_eff_funds_flag := l_project_in_rec.date_eff_funds_flag;
3122: END IF;
3179: p_msg_count => l_msg_count,
3180: p_msg_data => l_msg_data,
3181: p_return_status => l_return_status,
3182: p_function_allowed => l_function_allowed);
3183: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3185: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3186: RAISE FND_API.G_EXC_ERROR;
3187: END IF;
3180: p_msg_data => l_msg_data,
3181: p_return_status => l_return_status,
3182: p_function_allowed => l_function_allowed);
3183: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3185: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3186: RAISE FND_API.G_EXC_ERROR;
3187: END IF;
3188:
3181: p_return_status => l_return_status,
3182: p_function_allowed => l_function_allowed);
3183: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3185: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3186: RAISE FND_API.G_EXC_ERROR;
3187: END IF;
3188:
3189: IF l_function_allowed = 'N' THEN
3182: p_function_allowed => l_function_allowed);
3183: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3185: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3186: RAISE FND_API.G_EXC_ERROR;
3187: END IF;
3188:
3189: IF l_function_allowed = 'N' THEN
3190: pa_interface_utils_pub.map_new_amg_msg
3196: ,p_attribute2 => ''
3197: ,p_attribute3 => ''
3198: ,p_attribute4 => ''
3199: ,p_attribute5 => '');
3200: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3201: RAISE FND_API.G_EXC_ERROR;
3202: END IF;
3203: ELSE
3204: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3197: ,p_attribute3 => ''
3198: ,p_attribute4 => ''
3199: ,p_attribute5 => '');
3200: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3201: RAISE FND_API.G_EXC_ERROR;
3202: END IF;
3203: ELSE
3204: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3205: pa_interface_utils_pub.map_new_amg_msg
3212: ,p_attribute3 => ''
3213: ,p_attribute4 => ''
3214: ,p_attribute5 => '');
3215: END IF;
3216: RAISE FND_API.G_EXC_ERROR;
3217: END IF;
3218: l_en_top_task_customer_flag := l_project_in_rec.enable_top_task_customer_flag;
3219: END IF;
3220:
3230: p_msg_count => l_msg_count,
3231: p_msg_data => l_msg_data,
3232: p_return_status => l_return_status,
3233: p_function_allowed => l_function_allowed);
3234: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3236: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3237: RAISE FND_API.G_EXC_ERROR;
3238: END IF;
3231: p_msg_data => l_msg_data,
3232: p_return_status => l_return_status,
3233: p_function_allowed => l_function_allowed);
3234: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3236: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3237: RAISE FND_API.G_EXC_ERROR;
3238: END IF;
3239:
3232: p_return_status => l_return_status,
3233: p_function_allowed => l_function_allowed);
3234: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3236: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3237: RAISE FND_API.G_EXC_ERROR;
3238: END IF;
3239:
3240: IF l_function_allowed = 'N' THEN
3233: p_function_allowed => l_function_allowed);
3234: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3236: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3237: RAISE FND_API.G_EXC_ERROR;
3238: END IF;
3239:
3240: IF l_function_allowed = 'N' THEN
3241: pa_interface_utils_pub.map_new_amg_msg
3247: ,p_attribute2 => ''
3248: ,p_attribute3 => ''
3249: ,p_attribute4 => ''
3250: ,p_attribute5 => '');
3251: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3252: RAISE FND_API.G_EXC_ERROR;
3253: END IF;
3254: ELSE
3255: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3248: ,p_attribute3 => ''
3249: ,p_attribute4 => ''
3250: ,p_attribute5 => '');
3251: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3252: RAISE FND_API.G_EXC_ERROR;
3253: END IF;
3254: ELSE
3255: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3256: pa_interface_utils_pub.map_new_amg_msg
3263: ,p_attribute3 => ''
3264: ,p_attribute4 => ''
3265: ,p_attribute5 => '');
3266: END IF;
3267: RAISE FND_API.G_EXC_ERROR;
3268: END IF;
3269: l_en_top_task_inv_mth_flag := l_project_in_rec.enable_top_task_inv_mth_flag;
3270: END IF;
3271: --Bug 3279981 Review
3345: );
3346:
3347: IF l_err_code > 0
3348: then
3349: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3350:
3351: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3352: THEN
3353:
3366: END IF;
3367:
3368: END IF;
3369:
3370: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3371: RAISE FND_API.G_EXC_ERROR;
3372:
3373: ELSIF l_err_code < 0
3374: then
3367:
3368: END IF;
3369:
3370: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3371: RAISE FND_API.G_EXC_ERROR;
3372:
3373: ELSIF l_err_code < 0
3374: then
3375:
3372:
3373: ELSIF l_err_code < 0
3374: then
3375:
3376: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3377:
3378: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3379: THEN
3380: pa_interface_utils_pub.map_new_amg_msg('PA_COPY_PROJECT_FAILED','CHANGE','N',
3386: FND_MSG_PUB.add;
3387: /* Code addition ended for bug 3725338 */
3388: END IF;
3389:
3390: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3392:
3393: end IF;
3394:
3387: /* Code addition ended for bug 3725338 */
3388: END IF;
3389:
3390: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3392:
3393: end IF;
3394:
3395:
3405: IF(l_return_status <> 'S') Then
3406: l_err_code := 725;
3407: l_err_stage := pa_project_core1.get_message_from_stack('PA_ERR_COPY_BUDGT_CONTRL');
3408: l_err_stack := l_err_stack||'->PA_BUDGET_FUND_PKG.Copy_Budgetary_Controls';
3409: RAISE FND_API.G_EXC_ERROR;
3410: END IF;
3411: end if; -- end of 14539941
3412:
3413: /* Not required anymore since they are passed as input to copy project
3462: ,p_attribute4 => ''
3463: ,p_attribute5 => '');
3464: END IF;
3465:
3466: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3467: RAISE FND_API.G_EXC_ERROR;
3468:
3469: END IF;
3470:
3463: ,p_attribute5 => '');
3464: END IF;
3465:
3466: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3467: RAISE FND_API.G_EXC_ERROR;
3468:
3469: END IF;
3470:
3471: /*Customer Account Relationship Changes*/
3501: ,p_attribute4 => ''
3502: ,p_attribute5 => '');
3503: END IF;
3504:
3505: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3506: RAISE FND_API.G_EXC_ERROR;
3507:
3508: END IF;
3509: END IF;
3502: ,p_attribute5 => '');
3503: END IF;
3504:
3505: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3506: RAISE FND_API.G_EXC_ERROR;
3507:
3508: END IF;
3509: END IF;
3510:
3540: ,p_attribute4 => ''
3541: ,p_attribute5 => '');
3542: END IF;
3543:
3544: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3545: RAISE FND_API.G_EXC_ERROR;
3546:
3547: END IF;
3548: END IF;
3541: ,p_attribute5 => '');
3542: END IF;
3543:
3544: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3545: RAISE FND_API.G_EXC_ERROR;
3546:
3547: END IF;
3548: END IF;
3549: ----dbms_output.put_line('Does the control come till here');
3584: ,p_token2 => 'CUSTOMER_ID'
3585: ,p_value2 => p_customers_in(i).customer_id
3586: );
3587: END IF;
3588: RAISE FND_API.G_EXC_ERROR;
3589: END IF;
3590: */ --End of commenting for Bug#5517655
3591:
3592: IF p_customers_in(i).CUSTOMER_BILL_SPLIT IS NULL OR
3614: ,p_token3 => 'CONTACT_ID'
3615: ,p_value3 => p_customers_in(i).CONTACT_ID
3616: );
3617: END IF;
3618: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3619: p_return_status := FND_API.G_RET_STS_ERROR;
3620: RAISE FND_API.G_EXC_ERROR;
3621: END IF;
3622: end if;
3615: ,p_value3 => p_customers_in(i).CONTACT_ID
3616: );
3617: END IF;
3618: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3619: p_return_status := FND_API.G_RET_STS_ERROR;
3620: RAISE FND_API.G_EXC_ERROR;
3621: END IF;
3622: end if;
3623: ----dbms_output.put_line('Error is hrown soon after this');
3616: );
3617: END IF;
3618: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3619: p_return_status := FND_API.G_RET_STS_ERROR;
3620: RAISE FND_API.G_EXC_ERROR;
3621: END IF;
3622: end if;
3623: ----dbms_output.put_line('Error is hrown soon after this');
3624: If p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = 'BILLING' then
3656: ,p_attribute3 => ''
3657: ,p_attribute4 => ''
3658: ,p_attribute5 => '');
3659: END IF;
3660: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3661: p_return_status := FND_API.G_RET_STS_ERROR;
3662: RAISE FND_API.G_EXC_ERROR;
3663: end if;
3664:
3657: ,p_attribute4 => ''
3658: ,p_attribute5 => '');
3659: END IF;
3660: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3661: p_return_status := FND_API.G_RET_STS_ERROR;
3662: RAISE FND_API.G_EXC_ERROR;
3663: end if;
3664:
3665: End if; --added by aditi for tracking bug -- FOR CUSTOMER ISSUE
3658: ,p_attribute5 => '');
3659: END IF;
3660: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3661: p_return_status := FND_API.G_RET_STS_ERROR;
3662: RAISE FND_API.G_EXC_ERROR;
3663: end if;
3664:
3665: End if; --added by aditi for tracking bug -- FOR CUSTOMER ISSUE
3666: END if; -- end here
3687: ,p_attribute3 => ''
3688: ,p_attribute4 => ''
3689: ,p_attribute5 => '');
3690: END IF;
3691: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3692: p_return_status := FND_API.G_RET_STS_ERROR;
3693: RAISE FND_API.G_EXC_ERROR;
3694: end if;
3695:
3688: ,p_attribute4 => ''
3689: ,p_attribute5 => '');
3690: END IF;
3691: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3692: p_return_status := FND_API.G_RET_STS_ERROR;
3693: RAISE FND_API.G_EXC_ERROR;
3694: end if;
3695:
3696: End if; --added by aditi for tracking bug -- FOR CUSTOMER ISSUE
3689: ,p_attribute5 => '');
3690: END IF;
3691: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3692: p_return_status := FND_API.G_RET_STS_ERROR;
3693: RAISE FND_API.G_EXC_ERROR;
3694: end if;
3695:
3696: End if; --added by aditi for tracking bug -- FOR CUSTOMER ISSUE
3697:
3726: ,p_attribute2 => ''
3727: ,p_attribute3 => ''
3728: ,p_attribute4 => ''
3729: ,p_attribute5 => '');
3730: RAISE FND_API.G_EXC_ERROR;
3731: END IF; */
3732: /* Code added for tracking bug */
3733: IF(NVL(l_cust_acc_rel_code,'N') ='N' and
3734: l_in_customer_id IS NOT NULL AND l_in_customer_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) and
3749: ,p_attribute2 => ''
3750: ,p_attribute3 => ''
3751: ,p_attribute4 => ''
3752: ,p_attribute5 => '');
3753: RAISE FND_API.G_EXC_ERROR;
3754: END IF;
3755:
3756: /* End of part 1 tracking */
3757:
3773: ,p_attribute2 => ''
3774: ,p_attribute3 => ''
3775: ,p_attribute4 => ''
3776: ,p_attribute5 => '');
3777: RAISE FND_API.G_EXC_ERROR;
3778:
3779: END IF;
3780: */
3781: /* Bug 3077676 End */
3898: END IF;
3899:
3900: END IF;
3901:
3902: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3903: RAISE FND_API.G_EXC_ERROR;
3904:
3905: ELSIF l_err_code < 0
3906: THEN
3899:
3900: END IF;
3901:
3902: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
3903: RAISE FND_API.G_EXC_ERROR;
3904:
3905: ELSIF l_err_code < 0
3906: THEN
3907:
3918: ,p_attribute4 => ''
3919: ,p_attribute5 => '');
3920: END IF;
3921:
3922: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3923: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3924: END IF;
3925: end if; --bug 5731766
3926: --bug 5731766
3919: ,p_attribute5 => '');
3920: END IF;
3921:
3922: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3923: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3924: END IF;
3925: end if; --bug 5731766
3926: --bug 5731766
3927: If l_bill_to_customer_id is null then
4082: END IF;
4083:
4084: END IF;
4085:
4086: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4087: RAISE FND_API.G_EXC_ERROR;
4088:
4089: ELSIF l_err_code < 0
4090: THEN
4083:
4084: END IF;
4085:
4086: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4087: RAISE FND_API.G_EXC_ERROR;
4088:
4089: ELSIF l_err_code < 0
4090: THEN
4091:
4102: ,p_attribute4 => ''
4103: ,p_attribute5 => '');
4104: END IF;
4105:
4106: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109: --END if;
4110:
4103: ,p_attribute5 => '');
4104: END IF;
4105:
4106: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109: --END if;
4110:
4111: --Call copy retention after all customers are created.
4121: ,x_msg_data => l_msg_data);
4122:
4123: l_msg_count := FND_MSG_PUB.count_msg;
4124: IF l_msg_count > 0 THEN
4125: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4126: RAISE FND_API.G_EXC_ERROR;
4127: END IF;
4128: END;
4129: --End copy retention changes.
4122:
4123: l_msg_count := FND_MSG_PUB.count_msg;
4124: IF l_msg_count > 0 THEN
4125: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4126: RAISE FND_API.G_EXC_ERROR;
4127: END IF;
4128: END;
4129: --End copy retention changes.
4130:
4143:
4144: if l_party_id is not null then
4145:
4146: PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
4147: p_validate_only => FND_API.G_FALSE
4148: , p_object_id => l_project_id
4149: , p_OBJECT_TYPE => 'PA_PROJECTS'
4150: , p_project_role_id => 100
4151: , p_project_role_type => 'CUSTOMER_ORG'
4167: , x_msg_data => l_msg_data );
4168:
4169: l_msg_count := FND_MSG_PUB.count_msg;
4170: IF l_msg_count > 0 THEN
4171: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4172: RAISE FND_API.G_EXC_ERROR;
4173: END IF;
4174:
4175: -- Add the new project party ID to the customers row
4168:
4169: l_msg_count := FND_MSG_PUB.count_msg;
4170: IF l_msg_count > 0 THEN
4171: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4172: RAISE FND_API.G_EXC_ERROR;
4173: END IF;
4174:
4175: -- Add the new project party ID to the customers row
4176: UPDATE PA_PROJECT_CUSTOMERS
4208: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4209: ,p_msg_name => 'PA_TASK_FUNDING_EXIST'
4210: );
4211:
4212: l_return_status := FND_API.G_RET_STS_ERROR;
4213:
4214: RAISE FND_API.G_EXC_ERROR;
4215:
4216: END IF;
4210: );
4211:
4212: l_return_status := FND_API.G_RET_STS_ERROR;
4213:
4214: RAISE FND_API.G_EXC_ERROR;
4215:
4216: END IF;
4217: --Sunkalya federal. Bug#5511353
4218:
4282: ,l_project_id
4283: ,l_key_members
4284: );
4285:
4286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4287: THEN
4288: p_project_out.return_status := l_return_status;
4289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4290:
4285:
4286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4287: THEN
4288: p_project_out.return_status := l_return_status;
4289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4290:
4291: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4292: THEN
4293: p_project_out.return_status := l_return_status;
4287: THEN
4288: p_project_out.return_status := l_return_status;
4289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4290:
4291: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4292: THEN
4293: p_project_out.return_status := l_return_status;
4294: RAISE FND_API.G_EXC_ERROR;
4295: END IF;
4290:
4291: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4292: THEN
4293: p_project_out.return_status := l_return_status;
4294: RAISE FND_API.G_EXC_ERROR;
4295: END IF;
4296:
4297: /* Start of code for bug #2111806
4298: Call the check_manager_date_range to check if the Project
4300:
4301: pa_project_check_pvt.check_manager_date_range(p_project_id => l_project_id
4302: ,p_return_status => l_return_status);
4303:
4304: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4305: THEN
4306: p_project_out.return_status := l_return_status;
4307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4308:
4303:
4304: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4305: THEN
4306: p_project_out.return_status := l_return_status;
4307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4308:
4309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4310: THEN
4311: p_project_out.return_status := l_return_status;
4305: THEN
4306: p_project_out.return_status := l_return_status;
4307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4308:
4309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4310: THEN
4311: p_project_out.return_status := l_return_status;
4312: RAISE FND_API.G_EXC_ERROR;
4313: END IF;
4308:
4309: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4310: THEN
4311: p_project_out.return_status := l_return_status;
4312: RAISE FND_API.G_EXC_ERROR;
4313: END IF;
4314: /* End of code for bug #2111806 */
4315:
4316: END IF;
4341: pa_utils.add_message
4342: ( p_app_short_name => 'PA'
4343: ,p_msg_name => 'PA_PR_INSUF_PROJ_MGR'
4344: );
4345: RAISE FND_API.G_EXC_ERROR;
4346: END IF;
4347: END IF;
4348: END IF;
4349: /* End of code for bug #2111806 */
4386: ,l_project_id
4387: ,l_org_roles
4388: );
4389:
4390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4391: THEN
4392: p_project_out.return_status := l_return_status;
4393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4394:
4389:
4390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4391: THEN
4392: p_project_out.return_status := l_return_status;
4393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4394:
4395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4396: THEN
4397: p_project_out.return_status := l_return_status;
4391: THEN
4392: p_project_out.return_status := l_return_status;
4393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4394:
4395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4396: THEN
4397: p_project_out.return_status := l_return_status;
4398: RAISE FND_API.G_EXC_ERROR;
4399: END IF;
4394:
4395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4396: THEN
4397: p_project_out.return_status := l_return_status;
4398: RAISE FND_API.G_EXC_ERROR;
4399: END IF;
4400:
4401: END IF;
4402:
4417: ,l_project_id
4418: ,p_class_categories
4419: );
4420:
4421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4422: THEN
4423: p_project_out.return_status := l_return_status;
4424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4425:
4420:
4421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4422: THEN
4423: p_project_out.return_status := l_return_status;
4424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4425:
4426: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4427: THEN
4428: p_project_out.return_status := l_return_status;
4422: THEN
4423: p_project_out.return_status := l_return_status;
4424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4425:
4426: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4427: THEN
4428: p_project_out.return_status := l_return_status;
4429: RAISE FND_API.G_EXC_ERROR;
4430: END IF;
4425:
4426: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4427: THEN
4428: p_project_out.return_status := l_return_status;
4429: RAISE FND_API.G_EXC_ERROR;
4430: END IF;
4431:
4432: END IF;
4433:
4454:
4455: --The following code is copied from create_project_party call above.
4456: l_msg_count := FND_MSG_PUB.count_msg;
4457: IF l_msg_count > 0 THEN
4458: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4459: RAISE FND_API.G_EXC_ERROR;
4460: END IF;
4461: */
4462:
4455: --The following code is copied from create_project_party call above.
4456: l_msg_count := FND_MSG_PUB.count_msg;
4457: IF l_msg_count > 0 THEN
4458: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
4459: RAISE FND_API.G_EXC_ERROR;
4460: END IF;
4461: */
4462:
4463: --Project Connect 4.0
4480: ,x_msg_data => l_msg_data
4481: ,x_return_status => l_return_status
4482: );
4483:
4484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4485: THEN
4486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4487:
4488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4482: );
4483:
4484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4485: THEN
4486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4487:
4488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4489: THEN
4490: RAISE FND_API.G_EXC_ERROR;
4484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4485: THEN
4486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4487:
4488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4489: THEN
4490: RAISE FND_API.G_EXC_ERROR;
4491: END IF;
4492: */
4486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4487:
4488: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4489: THEN
4490: RAISE FND_API.G_EXC_ERROR;
4491: END IF;
4492: */
4493:
4494: --Project Structure Integration
4527: THEN
4528: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
4529: p_msg_name =>'PA_WRONG_STR_TYPE_AMG'); -- 'PA_TASKS_NOT_ALLOWD_AMG' -- It is decided to use the same message in this case too
4530: -- Workplan or Financial Structures must be enabled at source project/template level in order to enter Tasks.
4531: RAISE FND_API.G_EXC_ERROR ;
4532: ELSIF l_bug_wp_enabled = 'Y' AND l_bug_fp_enabled = 'N' AND p_tasks_in.exists(i) AND l_structure_in_rec.structure_type = 'FINANCIAL'
4533: THEN
4534: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
4535: p_msg_name => 'PA_WRONG_STR_TYPE_AMG' );
4533: THEN
4534: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
4535: p_msg_name => 'PA_WRONG_STR_TYPE_AMG' );
4536: -- Please enter the correct structure type or enable the Workplan/Financial structure at the source project/template level.
4537: RAISE FND_API.G_EXC_ERROR ;
4538: ELSIF l_bug_wp_enabled = 'N' AND l_bug_fp_enabled = 'Y' AND p_tasks_in.exists(i) AND l_structure_in_rec.structure_type = 'WORKPLAN'
4539: THEN
4540: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
4541: p_msg_name => 'PA_WRONG_STR_TYPE_AMG' );
4539: THEN
4540: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
4541: p_msg_name => 'PA_WRONG_STR_TYPE_AMG' );
4542: -- Please enter the correct structure type or enable the Workplan/Financial structure at the source project/template level.
4543: RAISE FND_API.G_EXC_ERROR ;
4544: END IF;
4545:
4546: IF p_tasks_in.exists(i)
4547: --Project Structures
4565:
4566: WHILE i IS NOT NULL LOOP
4567:
4568: --initialize return status to success
4569: p_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
4570:
4571: l_task_in_rec := p_tasks_in(i);
4572:
4573: pa_project_pvt.validate_billing_info (
4577: p_return_status =>l_return_status
4578: );
4579:
4580:
4581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4582: THEN
4583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4584:
4585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4579:
4580:
4581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4582: THEN
4583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4584:
4585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4586: THEN
4587: p_multiple_task_msg := 'F';
4581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4582: THEN
4583: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4584:
4585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4586: THEN
4587: p_multiple_task_msg := 'F';
4588: -- RAISE FND_API.G_EXC_ERROR;
4589: END IF;
4584:
4585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4586: THEN
4587: p_multiple_task_msg := 'F';
4588: -- RAISE FND_API.G_EXC_ERROR;
4589: END IF;
4590:
4591: IF l_task_in_rec.adj_on_std_inv = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
4592: THEN
4604:
4605: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
4606: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
4607:
4608: l_return_status := FND_API.G_RET_STS_ERROR;
4609:
4610: RAISE FND_API.G_EXC_ERROR;
4611:
4612:
4606: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
4607:
4608: l_return_status := FND_API.G_RET_STS_ERROR;
4609:
4610: RAISE FND_API.G_EXC_ERROR;
4611:
4612:
4613:
4614: END IF;
4635: p_return_status => l_return_status,
4636: p_function_allowed => l_function_allowed);
4637:
4638:
4639: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4640: THEN
4641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4642:
4643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4637:
4638:
4639: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4640: THEN
4641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4642:
4643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4644: THEN
4645: p_multiple_task_msg := 'F';
4639: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4640: THEN
4641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4642:
4643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4644: THEN
4645: p_multiple_task_msg := 'F';
4646: -- RAISE FND_API.G_EXC_ERROR;
4647: END IF;
4642:
4643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4644: THEN
4645: p_multiple_task_msg := 'F';
4646: -- RAISE FND_API.G_EXC_ERROR;
4647: END IF;
4648:
4649: IF l_function_allowed = 'N' THEN
4650: pa_interface_utils_pub.map_new_amg_msg
4656: ,p_attribute2 => ''
4657: ,p_attribute3 => ''
4658: ,p_attribute4 => ''
4659: ,p_attribute5 => '');
4660: p_return_status := FND_API.G_RET_STS_ERROR;
4661: p_multiple_task_msg := 'F';
4662: -- RAISE FND_API.G_EXC_ERROR;
4663: END IF;
4664:
4658: ,p_attribute4 => ''
4659: ,p_attribute5 => '');
4660: p_return_status := FND_API.G_RET_STS_ERROR;
4661: p_multiple_task_msg := 'F';
4662: -- RAISE FND_API.G_EXC_ERROR;
4663: END IF;
4664:
4665: /*Code added for bug 2982057*/
4666:
4685: p_tasks_out(i).return_status := l_return_status;
4686: p_tasks_out(i).pa_task_id := l_task_id;
4687: p_tasks_out(i).pm_task_reference := l_task_in_rec.pm_task_reference;
4688:
4689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4690: THEN
4691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4692:
4693: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4687: p_tasks_out(i).pm_task_reference := l_task_in_rec.pm_task_reference;
4688:
4689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4690: THEN
4691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4692:
4693: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4694: THEN
4695: p_multiple_task_msg := 'F';
4689: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4690: THEN
4691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4692:
4693: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4694: THEN
4695: p_multiple_task_msg := 'F';
4696: -- RAISE FND_API.G_EXC_ERROR;
4697: END IF;
4692:
4693: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4694: THEN
4695: p_multiple_task_msg := 'F';
4696: -- RAISE FND_API.G_EXC_ERROR;
4697: END IF;
4698:
4699: i := p_tasks_in.next(i);
4700:
4729: -- assign the return_status to the task out record
4730: p_tasks_out(i).return_status := l_return_status;
4731: p_tasks_out(i).task_version_id := l_task_version_id;
4732:
4733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4734: THEN
4735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4736:
4737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4731: p_tasks_out(i).task_version_id := l_task_version_id;
4732:
4733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4734: THEN
4735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4736:
4737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4738: THEN
4739: p_multiple_task_msg := 'F';
4733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4734: THEN
4735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4736:
4737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4738: THEN
4739: p_multiple_task_msg := 'F';
4740: -- RAISE FND_API.G_EXC_ERROR;
4741: END IF;
4736:
4737: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4738: THEN
4739: p_multiple_task_msg := 'F';
4740: -- RAISE FND_API.G_EXC_ERROR;
4741: END IF;
4742:
4743: --move to next task in task pl/sql table
4744: i := p_tasks_in.next(i);
4765: ,p_attribute3 => ''
4766: ,p_attribute4 => ''
4767: ,p_attribute5 => '');
4768: END IF;
4769: RAISE FND_API.G_EXC_ERROR;
4770: END IF;
4771:
4772:
4773:
4791: p_return_status => l_return_status,
4792: p_function_allowed => l_function_allowed);
4793:
4794:
4795: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4796: THEN
4797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4798:
4799: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4793:
4794:
4795: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4796: THEN
4797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4798:
4799: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4800: THEN
4801: p_multiple_task_msg := 'F';
4795: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4796: THEN
4797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4798:
4799: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4800: THEN
4801: p_multiple_task_msg := 'F';
4802: RAISE FND_API.G_EXC_ERROR;
4803: END IF;
4798:
4799: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4800: THEN
4801: p_multiple_task_msg := 'F';
4802: RAISE FND_API.G_EXC_ERROR;
4803: END IF;
4804:
4805: IF l_function_allowed = 'N' THEN
4806: pa_interface_utils_pub.map_new_amg_msg
4812: ,p_attribute2 => ''
4813: ,p_attribute3 => ''
4814: ,p_attribute4 => ''
4815: ,p_attribute5 => '');
4816: p_return_status := FND_API.G_RET_STS_ERROR;
4817: p_multiple_task_msg := 'F';
4818: RAISE FND_API.G_EXC_ERROR;
4819: END IF;
4820: /*
4814: ,p_attribute4 => ''
4815: ,p_attribute5 => '');
4816: p_return_status := FND_API.G_RET_STS_ERROR;
4817: p_multiple_task_msg := 'F';
4818: RAISE FND_API.G_EXC_ERROR;
4819: END IF;
4820: /*
4821: FP K one off Bug 2931183
4822: Commenting out this loop. Instead of this processing, we will call process_task_structure_bulk
4826:
4827: WHILE i IS NOT NULL LOOP
4828:
4829: --initialize return status to success
4830: p_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
4831:
4832: l_task_in_rec := p_tasks_in(i);
4833:
4834: IF (l_task_in_rec.pa_parent_task_id IS NOT NULL
4846: ,x_parent_task_id => v_parent_task_id
4847: ,x_return_status => l_return_status
4848: );
4849:
4850: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4851: THEN
4852: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
4853: THEN
4854: pa_interface_utils_pub.map_new_amg_msg
4861: ,p_attribute3 => ''
4862: ,p_attribute4 => ''
4863: ,p_attribute5 => '');
4864: END IF;
4865: RAISE FND_API.G_EXC_ERROR;
4866: END IF;
4867:
4868: ELSE
4869: v_parent_task_id := null;
4939: p_tasks_out(i).pa_task_id := v_task_id;
4940: p_tasks_out(i).task_version_id := l_task_version_id;
4941: p_tasks_out(i).pm_task_reference := l_task_in_rec.pm_task_reference;
4942:
4943: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4944: THEN
4945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4946:
4947: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4941: p_tasks_out(i).pm_task_reference := l_task_in_rec.pm_task_reference;
4942:
4943: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4944: THEN
4945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4946:
4947: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4948: THEN
4949: p_multiple_task_msg := 'F';
4943: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4944: THEN
4945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4946:
4947: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4948: THEN
4949: p_multiple_task_msg := 'F';
4950: RAISE FND_API.G_EXC_ERROR;
4951: END IF;
4946:
4947: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4948: THEN
4949: p_multiple_task_msg := 'F';
4950: RAISE FND_API.G_EXC_ERROR;
4951: END IF;
4952:
4953: i := p_tasks_in.next(i);
4954:
4969: x_return_status => l_return_status
4970: );
4971: p_return_status := l_return_status;
4972:
4973: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4974: THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976:
4977: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4971: p_return_status := l_return_status;
4972:
4973: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4974: THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976:
4977: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4978: THEN
4979: RAISE FND_API.G_EXC_ERROR;
4973: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
4974: THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976:
4977: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4978: THEN
4979: RAISE FND_API.G_EXC_ERROR;
4980: END IF;
4981:
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976:
4977: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
4978: THEN
4979: RAISE FND_API.G_EXC_ERROR;
4980: END IF;
4981:
4982: -- Made the following changes for post FP K one off. Bug 2931183
4983: -- Performance changes.
4991: G_OP_VALIDATE_FLAG := p_op_validate_flag;
4992:
4993: PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK
4994: ( p_api_version_number => p_api_version_number
4995: ,p_commit => FND_API.G_FALSE --p_commit : Bug 3668424: passing p_commit as FND_API.G_FALSE
4996: ,p_project_id => l_project_id -- Changed during UT.
4997: ,p_source_project_id => l_project_in_rec.created_from_project_id --ADUT. Included this new param.
4998: ,p_pm_product_code => p_pm_product_code
4999: ,p_structure_type => p_structure_in.structure_type
5008: ,x_msg_count => p_msg_count
5009: ,x_msg_data => p_msg_data
5010: );
5011:
5012: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5013: IF l_debug_mode = 'Y' THEN
5014: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
5015: pa_debug.write(g_module_name,pa_debug.g_err_stage,4);
5016: END IF;
5035: ,x_msg_data => l_msg_data
5036: ,x_return_status => l_return_status
5037: );
5038:
5039: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5040: THEN
5041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5042:
5043: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5037: );
5038:
5039: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5040: THEN
5041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5042:
5043: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5044: THEN
5045: p_multiple_task_msg := 'F';
5039: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5040: THEN
5041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5042:
5043: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5044: THEN
5045: p_multiple_task_msg := 'F';
5046: RAISE FND_API.G_EXC_ERROR;
5047: END IF;
5042:
5043: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5044: THEN
5045: p_multiple_task_msg := 'F';
5046: RAISE FND_API.G_EXC_ERROR;
5047: END IF;
5048:
5049: --bug 2856033
5050:
5057: ,x_msg_data => l_msg_data
5058: ,x_return_status => l_return_status
5059: );
5060:
5061: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5062: THEN
5063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5064:
5065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5059: );
5060:
5061: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5062: THEN
5063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5064:
5065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5066: THEN
5067: p_multiple_task_msg := 'F';
5061: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5062: THEN
5063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5064:
5065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5066: THEN
5067: p_multiple_task_msg := 'F';
5068: RAISE FND_API.G_EXC_ERROR;
5069: END IF;
5064:
5065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5066: THEN
5067: p_multiple_task_msg := 'F';
5068: RAISE FND_API.G_EXC_ERROR;
5069: END IF;
5070:
5071: --bug 2856033
5072:
5075: Post FP K one off. Bug 2931183
5076: */
5077: IF p_multiple_task_msg = 'F'
5078: THEN
5079: RAISE FND_API.G_EXC_ERROR;
5080: END IF;
5081:
5082: -- FP-M Bug # 3301192 --create project
5083: l_d_loop_count := p_tasks_in.first;
5109: ,p_structure_type => p_structure_in.structure_type
5110: ,p_out_task_id => l_d_task_id
5111: ,p_return_status => l_return_status);
5112:
5113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5114: THEN
5115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5116: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5117: THEN
5111: ,p_return_status => l_return_status);
5112:
5113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5114: THEN
5115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5116: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5117: THEN
5118: p_multiple_task_msg := 'F';
5119: RAISE FND_API.G_EXC_ERROR;
5112:
5113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5114: THEN
5115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5116: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5117: THEN
5118: p_multiple_task_msg := 'F';
5119: RAISE FND_API.G_EXC_ERROR;
5120: END IF;
5115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5116: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5117: THEN
5118: p_multiple_task_msg := 'F';
5119: RAISE FND_API.G_EXC_ERROR;
5120: END IF;
5121: END IF;
5122: --maansari5/18
5123:
5139: ,x_return_status => l_return_status
5140: ,x_msg_count => l_msg_count
5141: ,x_msg_data => l_msg_data);
5142:
5143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5144: THEN
5145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5147: THEN
5141: ,x_msg_data => l_msg_data);
5142:
5143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5144: THEN
5145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5147: THEN
5148: p_multiple_task_msg := 'F';
5149: RAISE FND_API.G_EXC_ERROR;
5142:
5143: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5144: THEN
5145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5147: THEN
5148: p_multiple_task_msg := 'F';
5149: RAISE FND_API.G_EXC_ERROR;
5150: END IF;
5145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5147: THEN
5148: p_multiple_task_msg := 'F';
5149: RAISE FND_API.G_EXC_ERROR;
5150: END IF;
5151: l_d_task_id := null;
5152:
5153: END IF;
5190: x_msg_count => l_msg_count,
5191: x_msg_data => l_msg_data,
5192: x_return_status => l_return_status );
5193:
5194: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5195: THEN
5196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5197: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5198: THEN
5192: x_return_status => l_return_status );
5193:
5194: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5195: THEN
5196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5197: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5198: THEN
5199: RAISE FND_API.G_EXC_ERROR;
5200: END IF;
5193:
5194: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5195: THEN
5196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5197: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5198: THEN
5199: RAISE FND_API.G_EXC_ERROR;
5200: END IF;
5201: END IF;
5195: THEN
5196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5197: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5198: THEN
5199: RAISE FND_API.G_EXC_ERROR;
5200: END IF;
5201: END IF;
5202: --
5203: --Begin Add by rtarway for set financial task
5207: i := p_tasks_in.first();
5208:
5209: WHILE i IS NOT NULL LOOP
5210: --Initialize the return status to success
5211: p_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
5212: l_task_in_rec := p_tasks_in(i);
5213: l_patask_record_version_number := NULL;
5214: --No Function Security Check required
5215:
5232:
5233: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
5234: (
5235: p_api_version => p_api_version_number
5236: , p_init_msg_list => FND_API.G_FALSE
5237: , p_commit => FND_API.G_FALSE--BUG 3766967
5238: , p_calling_module => 'AMG'
5239: , p_debug_mode => FND_API.G_TRUE
5240: , p_task_version_id => p_tasks_out(i).task_version_id
5233: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
5234: (
5235: p_api_version => p_api_version_number
5236: , p_init_msg_list => FND_API.G_FALSE
5237: , p_commit => FND_API.G_FALSE--BUG 3766967
5238: , p_calling_module => 'AMG'
5239: , p_debug_mode => FND_API.G_TRUE
5240: , p_task_version_id => p_tasks_out(i).task_version_id
5241: , p_checked_flag => l_task_in_rec.financial_task_flag
5235: p_api_version => p_api_version_number
5236: , p_init_msg_list => FND_API.G_FALSE
5237: , p_commit => FND_API.G_FALSE--BUG 3766967
5238: , p_calling_module => 'AMG'
5239: , p_debug_mode => FND_API.G_TRUE
5240: , p_task_version_id => p_tasks_out(i).task_version_id
5241: , p_checked_flag => l_task_in_rec.financial_task_flag
5242: , p_record_version_number => l_patask_record_version_number
5243: , p_project_id => l_project_id
5248: );
5249:
5250: -- Populating the appropriate values in task out records
5251: p_tasks_out(i).return_status := l_return_status;
5252: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5254: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5255: RAISE FND_API.G_EXC_ERROR;
5256: END IF;
5249:
5250: -- Populating the appropriate values in task out records
5251: p_tasks_out(i).return_status := l_return_status;
5252: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5254: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5255: RAISE FND_API.G_EXC_ERROR;
5256: END IF;
5257: END IF;
5250: -- Populating the appropriate values in task out records
5251: p_tasks_out(i).return_status := l_return_status;
5252: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5254: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5255: RAISE FND_API.G_EXC_ERROR;
5256: END IF;
5257: END IF;
5258: i := p_tasks_in.next(i);
5251: p_tasks_out(i).return_status := l_return_status;
5252: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5254: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5255: RAISE FND_API.G_EXC_ERROR;
5256: END IF;
5257: END IF;
5258: i := p_tasks_in.next(i);
5259: END LOOP;
5267: THEN
5268: i := p_tasks_in.first();
5269: WHILE i IS NOT NULL LOOP
5270: --Initialize the return status to success
5271: l_return_status := FND_API.G_RET_STS_SUCCESS;
5272: l_task_in_rec := p_tasks_in(i);
5273:
5274: -- rbruno added for bug 9491704 - start
5275: -- If mapped_task_reference is NULL and mapped_task_id is 0 then make the
5293: THEN
5294: pa_project_pub.create_mapping
5295: (
5296: p_api_version => p_api_version_number
5297: , p_init_msg_list => FND_API.G_FALSE
5298: , p_commit => FND_API.G_FALSE--bug 3766967
5299: , p_debug_mode => FND_API.G_TRUE
5300: , p_project_id => l_project_id
5301: , p_proj_source_reference => null
5294: pa_project_pub.create_mapping
5295: (
5296: p_api_version => p_api_version_number
5297: , p_init_msg_list => FND_API.G_FALSE
5298: , p_commit => FND_API.G_FALSE--bug 3766967
5299: , p_debug_mode => FND_API.G_TRUE
5300: , p_project_id => l_project_id
5301: , p_proj_source_reference => null
5302: , p_wkp_structure_version_id => l_d_structure_version_id
5295: (
5296: p_api_version => p_api_version_number
5297: , p_init_msg_list => FND_API.G_FALSE
5298: , p_commit => FND_API.G_FALSE--bug 3766967
5299: , p_debug_mode => FND_API.G_TRUE
5300: , p_project_id => l_project_id
5301: , p_proj_source_reference => null
5302: , p_wkp_structure_version_id => l_d_structure_version_id
5303: , p_wkp_task_id => p_tasks_out(i).pa_task_id--Since the tasks are already created , this will have task Ids
5308: , x_msg_data => l_msg_data
5309: );
5310: -- Populating the appropriate values in task out records
5311: p_tasks_out(i).return_status := l_return_status;
5312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5314: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5315: RAISE FND_API.G_EXC_ERROR;
5316: END IF;
5309: );
5310: -- Populating the appropriate values in task out records
5311: p_tasks_out(i).return_status := l_return_status;
5312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5314: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5315: RAISE FND_API.G_EXC_ERROR;
5316: END IF;
5317: END IF;
5310: -- Populating the appropriate values in task out records
5311: p_tasks_out(i).return_status := l_return_status;
5312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5314: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5315: RAISE FND_API.G_EXC_ERROR;
5316: END IF;
5317: END IF;
5318: i := p_tasks_in.next(i);
5311: p_tasks_out(i).return_status := l_return_status;
5312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5314: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5315: RAISE FND_API.G_EXC_ERROR;
5316: END IF;
5317: END IF;
5318: i := p_tasks_in.next(i);
5319: END LOOP;
5338:
5339: IF ( G_DLVR_STRUCTURE_ENABLED = 'Y' ) THEN
5340: Pa_Deliverable_Utils.enable_deliverable(
5341: p_api_version => p_api_version_number
5342: , p_init_msg_list => FND_API.G_FALSE
5343: , p_commit => FND_API.G_FALSE--bug 3766967
5344: , p_debug_mode => l_debug_mode
5345: , p_validate_only => FND_API.G_FALSE
5346: , p_project_id => l_project_id
5339: IF ( G_DLVR_STRUCTURE_ENABLED = 'Y' ) THEN
5340: Pa_Deliverable_Utils.enable_deliverable(
5341: p_api_version => p_api_version_number
5342: , p_init_msg_list => FND_API.G_FALSE
5343: , p_commit => FND_API.G_FALSE--bug 3766967
5344: , p_debug_mode => l_debug_mode
5345: , p_validate_only => FND_API.G_FALSE
5346: , p_project_id => l_project_id
5347: , x_return_status => l_return_status
5341: p_api_version => p_api_version_number
5342: , p_init_msg_list => FND_API.G_FALSE
5343: , p_commit => FND_API.G_FALSE--bug 3766967
5344: , p_debug_mode => l_debug_mode
5345: , p_validate_only => FND_API.G_FALSE
5346: , p_project_id => l_project_id
5347: , x_return_status => l_return_status
5348: , x_msg_count => l_msg_count
5349: , x_msg_data => l_msg_data
5351:
5352: -- 3700247 Added code to validate return status after enable_deliverabl call
5353: -- if return status is not 'S', raise the exception
5354:
5355: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5357: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5358: RAISE FND_API.G_EXC_ERROR;
5359: END IF;
5352: -- 3700247 Added code to validate return status after enable_deliverabl call
5353: -- if return status is not 'S', raise the exception
5354:
5355: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5357: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5358: RAISE FND_API.G_EXC_ERROR;
5359: END IF;
5360:
5353: -- if return status is not 'S', raise the exception
5354:
5355: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5357: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5358: RAISE FND_API.G_EXC_ERROR;
5359: END IF;
5360:
5361: ELSE
5354:
5355: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5357: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5358: RAISE FND_API.G_EXC_ERROR;
5359: END IF;
5360:
5361: ELSE
5362: IF i IS NOT NULL THEN
5361: ELSE
5362: IF i IS NOT NULL THEN
5363: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
5364: ,p_msg_name => 'PA_DLV_STRUCTURE_DISABLED');
5365: l_return_status := FND_API.G_RET_STS_ERROR;
5366: RAISE FND_API.G_EXC_ERROR;
5367: END IF;
5368: END IF;
5369:
5362: IF i IS NOT NULL THEN
5363: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
5364: ,p_msg_name => 'PA_DLV_STRUCTURE_DISABLED');
5365: l_return_status := FND_API.G_RET_STS_ERROR;
5366: RAISE FND_API.G_EXC_ERROR;
5367: END IF;
5368: END IF;
5369:
5370: WHILE i IS NOT NULL LOOP
5377: Pa_Project_Pub.create_deliverable
5378: ( p_api_version => p_api_version_number
5379: , p_init_msg_list => p_init_msg_list
5380: -- 3735792, passing p_commit as false to next level api calls
5381: , p_commit => FND_API.G_FALSE
5382: , x_return_status => l_return_status
5383: , p_deliverable_name => p_deliverables_in(i).deliverable_name
5384: , p_deliverable_short_name => p_deliverables_in(i).deliverable_short_name
5385: , p_deliverable_type_id => p_deliverables_in(i).deliverable_type_id
5425: -- removed the p_deliverables_out parameter and added global table
5426: -- p_deliverables_out(i).return_status := l_return_status;
5427: -- p_deliverables_out(i).deliverable_id := l_deliverable_id;
5428:
5429: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5431: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5432: RAISE FND_API.G_EXC_ERROR;
5433: END IF;
5426: -- p_deliverables_out(i).return_status := l_return_status;
5427: -- p_deliverables_out(i).deliverable_id := l_deliverable_id;
5428:
5429: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5431: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5432: RAISE FND_API.G_EXC_ERROR;
5433: END IF;
5434:
5427: -- p_deliverables_out(i).deliverable_id := l_deliverable_id;
5428:
5429: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5431: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5432: RAISE FND_API.G_EXC_ERROR;
5433: END IF;
5434:
5435: i := p_deliverables_in.next(i);
5428:
5429: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5430: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5431: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5432: RAISE FND_API.G_EXC_ERROR;
5433: END IF;
5434:
5435: i := p_deliverables_in.next(i);
5436:
5438:
5439: ------ 3435905 : FP M : Deliverables Changes For AMG END-----------
5440: --4218977, rtarway, unset this global variable upon successfull completion of create project
5441: G_OP_VALIDATE_FLAG := null;
5442: IF (FND_API.to_boolean( p_commit ) OR
5443: l_wf_status_code = 'IN_ROUTE' )
5444: THEN
5445: COMMIT WORK;
5446: END IF;
5446: END IF;
5447:
5448:
5449: EXCEPTION
5450: WHEN FND_API.G_EXC_ERROR
5451: THEN
5452:
5453: -- ROLLBACK TO create_project_pub;
5454: --start: cklee fix bug: 9065594
5467: END IF;
5468:
5469: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5470: G_OP_VALIDATE_FLAG := null;
5471: p_return_status := FND_API.G_RET_STS_ERROR;
5472:
5473: FND_MSG_PUB.Count_And_Get
5474: ( p_count => p_msg_count ,
5475: p_data => p_msg_data );
5473: FND_MSG_PUB.Count_And_Get
5474: ( p_count => p_msg_count ,
5475: p_data => p_msg_data );
5476:
5477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5478: THEN
5479: -- ROLLBACK TO create_project_pub;
5480: --start: cklee fix bug: 9065594
5481: begin
5493: END IF;
5494:
5495: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5496: G_OP_VALIDATE_FLAG := null;
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 );
5519: END IF;
5520:
5521: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5522: G_OP_VALIDATE_FLAG := null;
5523: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5524:
5525: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5526: THEN
5527: FND_MSG_PUB.add_exc_msg
5575: -- 09-01-2006 vkadimes Bug 4689326 Modified the customer_id validation part.
5576:
5577: PROCEDURE add_task
5578: ( p_api_version_number IN NUMBER
5579: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5580: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5581: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
5582: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
5583: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
5576:
5577: PROCEDURE add_task
5578: ( p_api_version_number IN NUMBER
5579: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5580: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
5581: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
5582: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
5583: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
5584: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
5935: SAVEPOINT add_task_pub;
5936:
5937: -- Standard call to check for call compatibility.
5938:
5939: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5940: p_api_version_number ,
5941: l_api_name ,
5942: G_PKG_NAME )
5943: THEN
5941: l_api_name ,
5942: G_PKG_NAME )
5943: THEN
5944:
5945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5946:
5947: END IF;
5948:
5949:
5970: ,p_attribute3 => ''
5971: ,p_attribute4 => ''
5972: ,p_attribute5 => '');
5973: END IF;
5974: RAISE FND_API.G_EXC_ERROR;
5975: END IF;
5976:
5977: /*
5978: * Bug 9379239
6000: ,p_attribute4 => ''
6001: ,p_attribute5 => ''
6002: );
6003: END IF;
6004: RAISE FND_API.G_EXC_ERROR;
6005: END IF;
6006:
6007: END IF;
6008:
6022:
6023: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
6024: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
6025:
6026: l_return_status := FND_API.G_RET_STS_ERROR;
6027:
6028: RAISE FND_API.G_EXC_ERROR;
6029:
6030:
6024: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
6025:
6026: l_return_status := FND_API.G_RET_STS_ERROR;
6027:
6028: RAISE FND_API.G_EXC_ERROR;
6029:
6030:
6031:
6032: END IF;
6048: , p_return_status => l_return_status
6049: );
6050:
6051:
6052: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6053:
6054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6055:
6056: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6050:
6051:
6052: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6053:
6054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6055:
6056: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6057:
6058: RAISE FND_API.G_EXC_ERROR;
6052: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6053:
6054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6055:
6056: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6057:
6058: RAISE FND_API.G_EXC_ERROR;
6059: END IF;
6060: --Moved from below for bug 2471668
6054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6055:
6056: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6057:
6058: RAISE FND_API.G_EXC_ERROR;
6059: END IF;
6060: --Moved from below for bug 2471668
6061:
6062: -- Added for bug 3746912, reopened rtarway
6107: p_token1 => 'REQUESTID',
6108: p_value1 => l_request_id);
6109:
6110:
6111: RAISE FND_API.G_EXC_ERROR;
6112:
6113: ELSIF nvl(l_process_code,'-1') = 'WUE' THEN
6114: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => l_project_id -- bug 3106457 p_pa_project_id -- Bug 3091798
6115: ,p_structure_type => l_str_type ); --p_structure_type 3746912
6121: p_token1 => 'REQUESTID',
6122: p_value1 => l_request_id);
6123:
6124:
6125: RAISE FND_API.G_EXC_ERROR;
6126:
6127: END IF;
6128:
6129: */
6146: , p_msg_name => l_message_name
6147: , p_token1 => 'REQUESTID'
6148: , p_value1 => l_conc_request_id);
6149:
6150: RAISE FND_API.G_EXC_ERROR;
6151: end if;
6152:
6153: -- End fix for Bug # 4373055.
6154:
6182: p_msg_data => l_msg_data,
6183: p_return_status => l_return_status,
6184: p_function_allowed => l_function_allowed);
6185:
6186: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6187: THEN
6188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6189:
6190: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6184: p_function_allowed => l_function_allowed);
6185:
6186: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6187: THEN
6188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6189:
6190: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6191: THEN
6192: RAISE FND_API.G_EXC_ERROR;
6186: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6187: THEN
6188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6189:
6190: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6191: THEN
6192: RAISE FND_API.G_EXC_ERROR;
6193: END IF;
6194:
6188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6189:
6190: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6191: THEN
6192: RAISE FND_API.G_EXC_ERROR;
6193: END IF;
6194:
6195: IF l_function_allowed = 'N' THEN
6196: pa_interface_utils_pub.map_new_amg_msg
6202: ,p_attribute2 => ''
6203: ,p_attribute3 => ''
6204: ,p_attribute4 => ''
6205: ,p_attribute5 => '');
6206: p_return_status := FND_API.G_RET_STS_ERROR;
6207: RAISE FND_API.G_EXC_ERROR;
6208: END IF;
6209:
6210: IF FND_API.TO_BOOLEAN( p_init_msg_list )
6203: ,p_attribute3 => ''
6204: ,p_attribute4 => ''
6205: ,p_attribute5 => '');
6206: p_return_status := FND_API.G_RET_STS_ERROR;
6207: RAISE FND_API.G_EXC_ERROR;
6208: END IF;
6209:
6210: IF FND_API.TO_BOOLEAN( p_init_msg_list )
6211: THEN
6206: p_return_status := FND_API.G_RET_STS_ERROR;
6207: RAISE FND_API.G_EXC_ERROR;
6208: END IF;
6209:
6210: IF FND_API.TO_BOOLEAN( p_init_msg_list )
6211: THEN
6212:
6213: FND_MSG_PUB.initialize;
6214:
6215: END IF;
6216:
6217: -- Set API return status to success
6218:
6219: p_return_status := FND_API.G_RET_STS_SUCCESS;
6220:
6221:
6222: /* Moving this code before calling the security API. Although p_pa_project_id contains the project id but
6223: it is converted and l_project_id is used subsequently.
6231: , p_return_status => l_return_status
6232: );
6233:
6234:
6235: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6236:
6237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6238:
6239: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6233:
6234:
6235: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6236:
6237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6238:
6239: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6240:
6241: RAISE FND_API.G_EXC_ERROR;
6235: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
6236:
6237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6238:
6239: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6240:
6241: RAISE FND_API.G_EXC_ERROR;
6242: END IF;
6243: */
6237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6238:
6239: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
6240:
6241: RAISE FND_API.G_EXC_ERROR;
6242: END IF;
6243: */
6244:
6245: -- Now verify whether project security allows the user to update
6258: ,p_attribute2 => ''
6259: ,p_attribute3 => ''
6260: ,p_attribute4 => ''
6261: ,p_attribute5 => '');
6262: p_return_status := FND_API.G_RET_STS_ERROR;
6263: RAISE FND_API.G_EXC_ERROR;
6264: ELSE
6265: -- If the user has query privileges, then check whether
6266: -- update privileges are also available
6259: ,p_attribute3 => ''
6260: ,p_attribute4 => ''
6261: ,p_attribute5 => '');
6262: p_return_status := FND_API.G_RET_STS_ERROR;
6263: RAISE FND_API.G_EXC_ERROR;
6264: ELSE
6265: -- If the user has query privileges, then check whether
6266: -- update privileges are also available
6267: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
6278: ,p_attribute2 => ''
6279: ,p_attribute3 => ''
6280: ,p_attribute4 => ''
6281: ,p_attribute5 => '');
6282: p_return_status := FND_API.G_RET_STS_ERROR;
6283: RAISE FND_API.G_EXC_ERROR;
6284: END IF;
6285: END IF;
6286:
6279: ,p_attribute3 => ''
6280: ,p_attribute4 => ''
6281: ,p_attribute5 => '');
6282: p_return_status := FND_API.G_RET_STS_ERROR;
6283: RAISE FND_API.G_EXC_ERROR;
6284: END IF;
6285: END IF;
6286:
6287: -- Get segment1 for AMG messages
6314: ,p_attribute3 => ''
6315: ,p_attribute4 => ''
6316: ,p_attribute5 => '');
6317: END IF;
6318: RAISE FND_API.G_EXC_ERROR;
6319: END IF;
6320: --bug 2876703
6321:
6322: --bug 2738747
6361: (p_pm_parent_task_reference IS NOT NULL AND p_pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
6362: THEN
6363:
6364: check_add_subtask_ok( p_api_version_number => p_api_version_number
6365: ,p_init_msg_list => FND_API.G_FALSE
6366: ,p_msg_data => p_msg_data
6367: ,p_msg_count => p_msg_count
6368: ,p_return_status => l_return_status
6369: ,p_project_id => l_project_id
6373: ,p_add_subtask_ok_flag => l_add_subtask_ok_flag );
6374:
6375: END IF;
6376:
6377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6378: THEN
6379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6380:
6381: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6375: END IF;
6376:
6377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6378: THEN
6379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6380:
6381: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6382: THEN
6383:
6377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6378: THEN
6379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6380:
6381: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6382: THEN
6383:
6384: RAISE FND_API.G_EXC_ERROR;
6385: END IF;
6380:
6381: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6382: THEN
6383:
6384: RAISE FND_API.G_EXC_ERROR;
6385: END IF;
6386:
6387: IF l_add_subtask_ok_flag <> 'Y'
6388: then
6399: ,p_attribute4 => ''
6400: ,p_attribute5 => '');
6401: END IF;
6402:
6403: RAISE FND_API.G_EXC_ERROR;
6404:
6405: end IF;
6406:
6407: END IF; --<
6430: ,p_attribute3 => ''
6431: ,p_attribute4 => ''
6432: ,p_attribute5 => '');
6433: END IF;
6434: RAISE FND_API.G_EXC_ERROR;
6435: ELSE
6436: l_task_in_rec.invoice_method := p_invoice_method;
6437: END IF;
6438: ELSE
6483: END IF;
6484: -- End of Bug Number 4689326.
6485: END IF;
6486: CLOSE cur_check_proj_cust_exist;
6487: RAISE FND_API.G_EXC_ERROR;
6488: ELSE
6489: l_task_in_rec.customer_id := p_customer_id;
6490: CLOSE cur_check_proj_cust_exist;
6491: END IF;
6502: ,p_attribute2 => ''
6503: ,p_attribute3 => ''
6504: ,p_attribute4 => ''
6505: ,p_attribute5 => '');
6506: RAISE FND_API.G_EXC_ERROR;
6507: ELSE
6508: l_task_in_rec.customer_id :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM; -- when the customer_id is Miss Num we are passing Miss num to add_task_roundone.
6509: END IF;
6510: -- End of Bug Number 4689326
6715: ,p_attribute3 => ''
6716: ,p_attribute4 => ''
6717: ,p_attribute5 => '');
6718: END IF;
6719: RAISE FND_API.G_EXC_ERROR;
6720: ELSE
6721: /*As of now we are not doing the basic validation check for p_labor_tp_schedule_id */
6722: l_labor_tp_schedule_id := p_labor_tp_schedule_id;
6723: IF p_labor_tp_fixed_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
6759: ,p_attribute3 => ''
6760: ,p_attribute4 => ''
6761: ,p_attribute5 => '');
6762: END IF;
6763: RAISE FND_API.G_EXC_ERROR;
6764: ELSE
6765: /*As of now we are not doing the basic validation check for p_nl_tp_schedule_id */
6766: l_nl_tp_schedule_id := p_nl_tp_schedule_id;
6767: IF p_nl_tp_fixed_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE THEN
6796: -- PA_UTILS.ADD_MESSAGE
6797: -- (p_app_short_name => 'PA',
6798: -- p_msg_name => 'PA_PS_INV_REF_TASK_ID');
6799: --
6800: -- RAISE FND_API.G_EXC_ERROR;
6801: -- END IF;
6802: IF l_ref_task_id is null THEN
6803:
6804: IF (p_pa_parent_task_id IS NOT NULL AND p_pa_parent_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
6842: ,p_attribute3 => ''
6843: ,p_attribute4 => ''
6844: ,p_attribute5 => '');
6845: END IF;
6846: RAISE FND_API.G_EXC_ERROR;
6847: END IF;
6848: --rtarway , 3661788, comment close command
6849: --CLOSE l_task_ref_to_id_csr;
6850: END IF;
6926:
6927: IF l_financial_task_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
6928: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
6929: 'INVALID_PARAMS', 'FINANCIAL_TASK_FLAG');
6930: RAISE FND_API.G_EXC_ERROR;
6931: End If;
6932: --Bug 6410745 End Changes
6933:
6934: --Begin Add by rtarway for FP.M Set Financial Task and Mapping
6993: --ISSUE
6994: --return the related task Reference as well?
6995:
6996:
6997: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6998: THEN
6999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7000:
7001: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6995:
6996:
6997: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6998: THEN
6999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7000:
7001: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7002: THEN
7003: RAISE FND_API.G_EXC_ERROR;
6997: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6998: THEN
6999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7000:
7001: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7002: THEN
7003: RAISE FND_API.G_EXC_ERROR;
7004: END IF;
7005:
6999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7000:
7001: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7002: THEN
7003: RAISE FND_API.G_EXC_ERROR;
7004: END IF;
7005:
7006: --we need to update to pm_product_code because it will be inherited
7007: --from the project in add_task_round_one
7027:
7028: -- assign the return_status to the out parameter
7029: p_return_status := l_return_status;
7030:
7031: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7032: THEN
7033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7034:
7035: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7029: p_return_status := l_return_status;
7030:
7031: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7032: THEN
7033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7034:
7035: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7036: THEN
7037: RAISE FND_API.G_EXC_ERROR;
7031: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7032: THEN
7033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7034:
7035: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7036: THEN
7037: RAISE FND_API.G_EXC_ERROR;
7038: END IF;
7039: --ELSIF p_structure_type = 'WORKPLAN'
7033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7034:
7035: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7036: THEN
7037: RAISE FND_API.G_EXC_ERROR;
7038: END IF;
7039: --ELSIF p_structure_type = 'WORKPLAN'
7040: ELSIF l_structure_type = 'WORKPLAN' --bug 2738747
7041: THEN
7054: ,p_attribute3 => ''
7055: ,p_attribute4 => ''
7056: ,p_attribute5 => '');
7057: END IF;
7058: RAISE FND_API.G_EXC_ERROR;
7059: END IF;
7060:
7061: IF ( p_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR
7062: p_structure_version_id IS NULL )
7073: ,p_attribute3 => ''
7074: ,p_attribute4 => ''
7075: ,p_attribute5 => '');
7076: END IF;
7077: RAISE FND_API.G_EXC_ERROR;
7078: --bug 3098668
7079: ELSE
7080: l_str_ver_type := PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id,l_structure_type);
7081: struct_ver_updatable := PA_PROJECT_STRUCTURE_UTILS.is_structure_version_updatable(p_structure_version_id);
7097: ,p_attribute3 => ''
7098: ,p_attribute4 => ''
7099: ,p_attribute5 => '');
7100: END IF;
7101: RAISE FND_API.G_EXC_ERROR;
7102: END IF;
7103: --bug 3098668
7104: END IF;
7105:
7132: l_d_task_id := l_task_id;
7133:
7134: /* End adding code for issue in bug # 3663166. */
7135:
7136: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7137: THEN
7138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7139:
7140: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7134: /* End adding code for issue in bug # 3663166. */
7135:
7136: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7137: THEN
7138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7139:
7140: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7141: THEN
7142: RAISE FND_API.G_EXC_ERROR;
7136: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7137: THEN
7138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7139:
7140: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7141: THEN
7142: RAISE FND_API.G_EXC_ERROR;
7143: END IF;
7144:
7138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7139:
7140: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7141: THEN
7142: RAISE FND_API.G_EXC_ERROR;
7143: END IF;
7144:
7145: END IF;
7146:
7164: ,x_return_status => l_return_status
7165: ,x_msg_count => l_msg_count
7166: ,x_msg_data => l_msg_data);
7167:
7168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7169: THEN
7170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7171:
7172: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7166: ,x_msg_data => l_msg_data);
7167:
7168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7169: THEN
7170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7171:
7172: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7173: THEN
7174: RAISE FND_API.G_EXC_ERROR;
7168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7169: THEN
7170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7171:
7172: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7173: THEN
7174: RAISE FND_API.G_EXC_ERROR;
7175: END IF;
7176: l_d_task_id := null;
7170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7171:
7172: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7173: THEN
7174: RAISE FND_API.G_EXC_ERROR;
7175: END IF;
7176: l_d_task_id := null;
7177:
7178: END IF;
7294: );
7295:
7296: p_return_status := l_return_status;
7297:
7298: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7299: THEN
7300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7301:
7302: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7296: p_return_status := l_return_status;
7297:
7298: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7299: THEN
7300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7301:
7302: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7303: THEN
7304: RAISE FND_API.G_EXC_ERROR;
7298: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7299: THEN
7300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7301:
7302: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7303: THEN
7304: RAISE FND_API.G_EXC_ERROR;
7305: END IF;
7306:
7300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7301:
7302: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7303: THEN
7304: RAISE FND_API.G_EXC_ERROR;
7305: END IF;
7306:
7307: END IF; --<< n_structure_type >>
7308:
7322:
7323: pa_project_pub.create_mapping
7324: (
7325: p_api_version => p_api_version_number
7326: , p_init_msg_list => FND_API.G_FALSE
7327: , p_commit => FND_API.G_FALSE--bug 3766967
7328: , p_debug_mode => FND_API.G_TRUE
7329: , p_project_id => l_project_id
7330: , p_proj_source_reference => null
7323: pa_project_pub.create_mapping
7324: (
7325: p_api_version => p_api_version_number
7326: , p_init_msg_list => FND_API.G_FALSE
7327: , p_commit => FND_API.G_FALSE--bug 3766967
7328: , p_debug_mode => FND_API.G_TRUE
7329: , p_project_id => l_project_id
7330: , p_proj_source_reference => null
7331: , p_wkp_structure_version_id => p_structure_version_id
7324: (
7325: p_api_version => p_api_version_number
7326: , p_init_msg_list => FND_API.G_FALSE
7327: , p_commit => FND_API.G_FALSE--bug 3766967
7328: , p_debug_mode => FND_API.G_TRUE
7329: , p_project_id => l_project_id
7330: , p_proj_source_reference => null
7331: , p_wkp_structure_version_id => p_structure_version_id
7332: , p_wkp_task_id => l_task_id--Since the tasks are already created , this will have task Ids
7336: , x_msg_count => l_msg_count
7337: , x_msg_data => l_msg_data
7338:
7339: );
7340: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7341: THEN
7342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7343:
7344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7338:
7339: );
7340: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7341: THEN
7342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7343:
7344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7345: THEN
7346: RAISE FND_API.G_EXC_ERROR;
7340: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7341: THEN
7342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7343:
7344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7345: THEN
7346: RAISE FND_API.G_EXC_ERROR;
7347: END IF;
7348: END IF;
7342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7343:
7344: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7345: THEN
7346: RAISE FND_API.G_EXC_ERROR;
7347: END IF;
7348: END IF;
7349: END IF;
7350: IF (G_PROJECT_SHARING_TYPE = 'SHARE_PARTIAL' and l_structure_type /*p_structure_type 3746912*/= 'FINANCIAL') THEN
7358: THEN
7359: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
7360: (
7361: p_api_version => p_api_version_number
7362: , p_init_msg_list => FND_API.G_FALSE
7363: , p_commit => FND_API.G_FALSE--bug 3766967
7364: , p_calling_module => 'AMG'
7365: , p_debug_mode => FND_API.G_TRUE
7366: , p_task_version_id => l_task_version_id
7359: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
7360: (
7361: p_api_version => p_api_version_number
7362: , p_init_msg_list => FND_API.G_FALSE
7363: , p_commit => FND_API.G_FALSE--bug 3766967
7364: , p_calling_module => 'AMG'
7365: , p_debug_mode => FND_API.G_TRUE
7366: , p_task_version_id => l_task_version_id
7367: , p_checked_flag => p_financial_task_flag
7361: p_api_version => p_api_version_number
7362: , p_init_msg_list => FND_API.G_FALSE
7363: , p_commit => FND_API.G_FALSE--bug 3766967
7364: , p_calling_module => 'AMG'
7365: , p_debug_mode => FND_API.G_TRUE
7366: , p_task_version_id => l_task_version_id
7367: , p_checked_flag => p_financial_task_flag
7368: , p_record_version_number => l_patask_record_version_number
7369: , p_project_id => l_project_id
7372: , x_msg_count => l_msg_count
7373: , x_msg_data => l_msg_data
7374: );
7375: -- Added for 4537865 : Check for Return Status after API call
7376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7377: THEN
7378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7379:
7380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7374: );
7375: -- Added for 4537865 : Check for Return Status after API call
7376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7377: THEN
7378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7379:
7380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7381: THEN
7382: RAISE FND_API.G_EXC_ERROR;
7376: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7377: THEN
7378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7379:
7380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7381: THEN
7382: RAISE FND_API.G_EXC_ERROR;
7383: END IF;
7384: END IF;
7378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7379:
7380: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7381: THEN
7382: RAISE FND_API.G_EXC_ERROR;
7383: END IF;
7384: END IF;
7385: END IF;
7386: --End Add by rtarway FP.M Development
7407: ,x_msg_data => l_msg_data
7408: ,x_return_status => l_return_status
7409: );
7410:
7411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7412: THEN
7413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7414:
7415: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7409: );
7410:
7411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7412: THEN
7413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7414:
7415: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7416: THEN
7417: RAISE FND_API.G_EXC_ERROR;
7411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7412: THEN
7413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7414:
7415: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7416: THEN
7417: RAISE FND_API.G_EXC_ERROR;
7418: END IF;
7419: --bug 2856033
7413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7414:
7415: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7416: THEN
7417: RAISE FND_API.G_EXC_ERROR;
7418: END IF;
7419: --bug 2856033
7420:
7421: l_task_weight_basis_code := PA_PROGRESS_UTILS.GET_TASK_WEIGHTING_BASIS(p_project_id => p_pa_project_id) ;
7433: ,x_msg_data => l_msg_data
7434: ,x_return_status => l_return_status
7435: );
7436:
7437: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7438: THEN
7439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7440:
7441: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7435: );
7436:
7437: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7438: THEN
7439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7440:
7441: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7442: THEN
7443: RAISE FND_API.G_EXC_ERROR;
7437: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7438: THEN
7439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7440:
7441: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7442: THEN
7443: RAISE FND_API.G_EXC_ERROR;
7444: END IF;
7445: END IF ;
7439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7440:
7441: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7442: THEN
7443: RAISE FND_API.G_EXC_ERROR;
7444: END IF;
7445: END IF ;
7446: -- PA L Changes 3010538
7447: END IF;
7478: ,x_return_status => l_return_status
7479: ,x_msg_count => l_msg_count
7480: ,x_msg_data => l_msg_data);
7481:
7482: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7484: end if;
7485:
7486: ELSE
7479: ,x_msg_count => l_msg_count
7480: ,x_msg_data => l_msg_data);
7481:
7482: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7484: end if;
7485:
7486: ELSE
7487: /* Ends added for Bug# 7264422 */
7498: ,x_return_status => l_return_status
7499: ,x_msg_count => l_msg_count
7500: ,x_msg_data => l_msg_data ) ;
7501:
7502: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7503: THEN
7504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7505: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7506: THEN
7500: ,x_msg_data => l_msg_data ) ;
7501:
7502: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7503: THEN
7504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7505: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7506: THEN
7507: RAISE FND_API.G_EXC_ERROR;
7508: END IF;
7501:
7502: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7503: THEN
7504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7505: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7506: THEN
7507: RAISE FND_API.G_EXC_ERROR;
7508: END IF;
7509: ELSIF p_process_mode = 'CONCURRENT' THEN
7503: THEN
7504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7505: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7506: THEN
7507: RAISE FND_API.G_EXC_ERROR;
7508: END IF;
7509: ELSIF p_process_mode = 'CONCURRENT' THEN
7510:
7511: PA_PROJ_TASK_STRUC_PUB. PROCESS_WBS_UPDATES_CONC_WRP(p_calling_context => 'CONC_UPDATE' -- Bug 6842218 'CON_UPDATE'
7514: ,x_return_status => l_return_status
7515: ,x_msg_count => l_msg_count
7516: ,x_msg_data => l_msg_data ) ;
7517:
7518: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7519: THEN
7520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7521: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7522: THEN
7516: ,x_msg_data => l_msg_data ) ;
7517:
7518: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7519: THEN
7520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7521: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7522: THEN
7523: RAISE FND_API.G_EXC_ERROR;
7524: END IF;
7517:
7518: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7519: THEN
7520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7521: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7522: THEN
7523: RAISE FND_API.G_EXC_ERROR;
7524: END IF;
7525:
7519: THEN
7520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7521: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7522: THEN
7523: RAISE FND_API.G_EXC_ERROR;
7524: END IF;
7525:
7526:
7527: END IF ;
7546: , p_out_deliverable_id => l_deliverable_id
7547: , p_return_status => l_return_status
7548: );
7549:
7550: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7552: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7553: RAISE FND_API.G_EXC_ERROR;
7554: END IF;
7547: , p_return_status => l_return_status
7548: );
7549:
7550: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7552: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7553: RAISE FND_API.G_EXC_ERROR;
7554: END IF;
7555:
7548: );
7549:
7550: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7552: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7553: RAISE FND_API.G_EXC_ERROR;
7554: END IF;
7555:
7556: -- 3661788 pass validated deliverable id to association api
7549:
7550: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7552: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7553: RAISE FND_API.G_EXC_ERROR;
7554: END IF;
7555:
7556: -- 3661788 pass validated deliverable id to association api
7557:
7558: pa_project_pub.ASSOCIATE_DLV_TO_TASK (
7559: p_api_version => p_api_version_number
7560: , p_init_msg_list => p_init_msg_list
7561: -- 3735792, passing p_commit as false to next level api calls
7562: , p_commit => FND_API.G_FALSE
7563: , p_debug_mode => 'Y'
7564: , p_pm_source_code => p_pm_product_code
7565: , p_project_id => l_project_id
7566: , p_task_id => l_task_id
7569: , x_msg_count => l_msg_count
7570: , x_msg_data => l_msg_data
7571: );
7572:
7573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7576: RAISE FND_API.G_EXC_ERROR;
7577: END IF;
7570: , x_msg_data => l_msg_data
7571: );
7572:
7573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7576: RAISE FND_API.G_EXC_ERROR;
7577: END IF;
7578: END IF;
7571: );
7572:
7573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7576: RAISE FND_API.G_EXC_ERROR;
7577: END IF;
7578: END IF;
7579:
7572:
7573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7575: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7576: RAISE FND_API.G_EXC_ERROR;
7577: END IF;
7578: END IF;
7579:
7580: IF FND_API.to_boolean( p_commit )
7576: RAISE FND_API.G_EXC_ERROR;
7577: END IF;
7578: END IF;
7579:
7580: IF FND_API.to_boolean( p_commit )
7581: THEN
7582: COMMIT;
7583: END IF;
7584: --Unset this gloabl variable upon sucessfull completion
7585: G_OP_VALIDATE_FLAG := null;--added by rtarway for bug 4218977
7586:
7587: EXCEPTION
7588:
7589: WHEN FND_API.G_EXC_ERROR
7590: THEN
7591: ROLLBACK TO add_task_pub;
7592: G_OP_VALIDATE_FLAG := null;--added by rtarway for bug 4218977
7593: p_return_status := FND_API.G_RET_STS_ERROR;
7589: WHEN FND_API.G_EXC_ERROR
7590: THEN
7591: ROLLBACK TO add_task_pub;
7592: G_OP_VALIDATE_FLAG := null;--added by rtarway for bug 4218977
7593: p_return_status := FND_API.G_RET_STS_ERROR;
7594:
7595: -- Added for 4537865
7596: p_pa_project_id_out := NULL ;
7597: p_pa_project_number_out := NULL ;
7601: FND_MSG_PUB.Count_And_Get
7602: ( p_count => p_msg_count ,
7603: p_data => p_msg_data );
7604:
7605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7606: THEN
7607: ROLLBACK TO add_task_pub;
7608: G_OP_VALIDATE_FLAG := null;--added by rtarway for bug 4218977
7609: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7605: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7606: THEN
7607: ROLLBACK TO add_task_pub;
7608: G_OP_VALIDATE_FLAG := null;--added by rtarway for bug 4218977
7609: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7610:
7611: -- Added for 4537865
7612: p_pa_project_id_out := NULL ;
7613: p_pa_project_number_out := NULL ;
7620:
7621: WHEN OTHERS THEN
7622: ROLLBACK TO add_task_pub;
7623: G_OP_VALIDATE_FLAG := null;--added by rtarway for bug 4218977
7624: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7625:
7626: -- Added for 4537865
7627: p_pa_project_id_out := NULL ;
7628: p_pa_project_number_out := NULL ;
7662: -- 06-DEC-1996 L. de Werker Added locking mechanism.
7663: --
7664: --
7665: PROCEDURE delete_task ( p_api_version_number IN NUMBER := 1.0 -- for bug# 3802319
7666: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7667: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
7668: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
7669: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
7670: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
7663: --
7664: --
7665: PROCEDURE delete_task ( p_api_version_number IN NUMBER := 1.0 -- for bug# 3802319
7666: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7667: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
7668: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
7669: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
7670: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
7671: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
7711: -- End fix for Bug # 4373055.
7712:
7713: BEGIN
7714:
7715: p_return_status := FND_API.G_RET_STS_SUCCESS ; -- 4537865 (Initialize p_return_status to Success)
7716: --bug 2471668.
7717: --We need to call this API here toget the corrct project id. This is also
7718: --called from the private API. But I discussed with Sakthi and he is ok to ca ll this
7719: --twice once here and second time in private API. The idea is to make the adv anced security changes
7726: , p_return_status => l_return_status
7727: );
7728:
7729:
7730: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7731:
7732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7733: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7734: RAISE FND_API.G_EXC_ERROR;
7728:
7729:
7730: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7731:
7732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7733: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7734: RAISE FND_API.G_EXC_ERROR;
7735: END IF;
7736:
7729:
7730: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7731:
7732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7733: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7734: RAISE FND_API.G_EXC_ERROR;
7735: END IF;
7736:
7737: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id; --bug 2471668 ( in the project context )
7730: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7731:
7732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7733: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
7734: RAISE FND_API.G_EXC_ERROR;
7735: END IF;
7736:
7737: PA_INTERFACE_UTILS_PUB.G_PROJECT_ID := l_project_id; --bug 2471668 ( in the project context )
7738: --end of bug 24771668
7754: ,p_attribute3 => ''
7755: ,p_attribute4 => ''
7756: ,p_attribute5 => '');
7757: END IF;
7758: RAISE FND_API.G_EXC_ERROR;
7759: END IF;
7760:
7761: IF p_task_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7762: OR p_task_version_id IS NULL
7773: ,p_attribute3 => ''
7774: ,p_attribute4 => ''
7775: ,p_attribute5 => '');
7776: END IF;
7777: RAISE FND_API.G_EXC_ERROR;
7778: END IF;
7779:
7780: -- Bug 3106457. Derive the structure version id from the task version id.
7781: open cur_str_ver(p_task_version_id);
7838: p_msg_name => 'PA_PS_UPDWBS_PRC_INPROC_AMG', -- Bug 3091798. Message includes the request id.
7839: p_token1 => 'REQUESTID',
7840: p_value1 => l_request_id);
7841:
7842: RAISE FND_API.G_EXC_ERROR;
7843:
7844: ELSIF nvl(l_process_code,'-1') = 'WUE' THEN
7845: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => l_project_id --Bug 3091798
7846: ,p_structure_type => p_structure_type );
7851: p_msg_name => 'PA_PS_UPDWBS_PRC_ERR_AMG', -- Bug 3091798. Message includes the request id.
7852: p_token1 => 'REQUESTID',
7853: p_value1 => l_request_id);
7854:
7855: RAISE FND_API.G_EXC_ERROR;
7856:
7857: END IF;
7858:
7859: */
7876: , p_msg_name => l_message_name
7877: , p_token1 => 'REQUESTID'
7878: , p_value1 => l_conc_request_id);
7879:
7880: RAISE FND_API.G_EXC_ERROR;
7881: end if;
7882:
7883: -- End fix for Bug # 4373055.
7884:
7894: FROM pa_proj_element_versions
7895: WHERE element_version_id = p_task_version_id ;
7896: EXCEPTION
7897: WHEN NO_DATA_FOUND THEN
7898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7899: END ;
7900: */
7901:
7902: pa_project_pvt.delete_task1
7900: */
7901:
7902: pa_project_pvt.delete_task1
7903: ( p_api_version_number => p_api_version_number
7904: ,p_commit => FND_API.G_FALSE--bug 3766967
7905: ,p_init_msg_list => p_init_msg_list
7906: ,p_msg_count => p_msg_count
7907: ,p_msg_data => p_msg_data
7908: ,p_return_status => p_return_status
7945: ,x_return_status => p_return_status
7946: ,x_msg_count => p_msg_count
7947: ,x_msg_data => p_msg_data ) ;
7948:
7949: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7950: THEN
7951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7952: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
7953: THEN
7947: ,x_msg_data => p_msg_data ) ;
7948:
7949: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7950: THEN
7951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7952: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
7953: THEN
7954: RAISE FND_API.G_EXC_ERROR;
7955: END IF;
7948:
7949: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7950: THEN
7951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7952: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
7953: THEN
7954: RAISE FND_API.G_EXC_ERROR;
7955: END IF;
7956: ELSIF p_process_mode = 'CONCURRENT' THEN
7950: THEN
7951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7952: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
7953: THEN
7954: RAISE FND_API.G_EXC_ERROR;
7955: END IF;
7956: ELSIF p_process_mode = 'CONCURRENT' THEN
7957:
7958: PA_PROJ_TASK_STRUC_PUB. PROCESS_WBS_UPDATES_CONC_WRP(p_calling_context => 'CONC_UPDATE'
7961: ,x_return_status => p_return_status
7962: ,x_msg_count => p_msg_count
7963: ,x_msg_data => p_msg_data ) ;
7964:
7965: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7966: THEN
7967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7968: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
7969: THEN
7963: ,x_msg_data => p_msg_data ) ;
7964:
7965: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7966: THEN
7967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7968: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
7969: THEN
7970: RAISE FND_API.G_EXC_ERROR;
7971: END IF;
7964:
7965: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7966: THEN
7967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7968: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
7969: THEN
7970: RAISE FND_API.G_EXC_ERROR;
7971: END IF;
7972:
7966: THEN
7967: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7968: ELSIF p_return_status = FND_API.G_RET_STS_ERROR
7969: THEN
7970: RAISE FND_API.G_EXC_ERROR;
7971: END IF;
7972:
7973:
7974: END IF ;
7978:
7979: -- PA L Changes 3010538
7980:
7981: EXCEPTION
7982: WHEN FND_API.G_EXC_ERROR
7983: THEN
7984: p_return_status := FND_API.G_RET_STS_ERROR;
7985: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
7986:
7980:
7981: EXCEPTION
7982: WHEN FND_API.G_EXC_ERROR
7983: THEN
7984: p_return_status := FND_API.G_RET_STS_ERROR;
7985: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
7986:
7987: p_project_id := NULL ; -- 4537865
7988: p_task_id := NULL; -- 4537865
7986:
7987: p_project_id := NULL ; -- 4537865
7988: p_task_id := NULL; -- 4537865
7989:
7990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7991: THEN
7992:
7993: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7994: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
7989:
7990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
7991: THEN
7992:
7993: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7994: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
7995:
7996: p_project_id := NULL ; -- 4537865
7997: p_task_id := NULL; -- 4537865
7996: p_project_id := NULL ; -- 4537865
7997: p_task_id := NULL; -- 4537865
7998:
7999: WHEN OTHERS THEN
8000: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8001: p_msg_count := FND_MSG_PUB.count_msg; -- For Bug 4033410
8002:
8003: p_project_id := NULL ; -- 4537865
8004: p_task_id := NULL; -- 4537865
8084: --
8085:
8086: PROCEDURE load_project
8087: ( p_api_version_number IN NUMBER
8088: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8089: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
8090: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8091: ,p_pa_project_number IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
8092: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
8245: SAVEPOINT load_project_pub;
8246:
8247: -- Standard call to check for call compatibility.
8248:
8249: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
8250: p_api_version_number ,
8251: l_api_name ,
8252: G_PKG_NAME )
8253: THEN
8251: l_api_name ,
8252: G_PKG_NAME )
8253: THEN
8254:
8255: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8256:
8257: END IF;
8258:
8259: -- Initialize the message table if requested.
8257: END IF;
8258:
8259: -- Initialize the message table if requested.
8260:
8261: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8262: THEN
8263:
8264: FND_MSG_PUB.initialize;
8265:
8266: END IF;
8267:
8268: -- Set API return status to success
8269:
8270: p_return_status := FND_API.G_RET_STS_SUCCESS;
8271:
8272: -- assign incoming parameters to the fields of global project record
8273:
8274: G_project_in_rec.pa_project_id := p_pa_project_id;
8441:
8442:
8443: EXCEPTION
8444:
8445: WHEN FND_API.G_EXC_ERROR
8446: THEN
8447: ROLLBACK TO load_project_pub;
8448:
8449: p_return_status := FND_API.G_RET_STS_ERROR;
8445: WHEN FND_API.G_EXC_ERROR
8446: THEN
8447: ROLLBACK TO load_project_pub;
8448:
8449: p_return_status := FND_API.G_RET_STS_ERROR;
8450:
8451:
8452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8453: THEN
8448:
8449: p_return_status := FND_API.G_RET_STS_ERROR;
8450:
8451:
8452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8453: THEN
8454: ROLLBACK TO load_project_pub;
8455:
8456: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8453: THEN
8454: ROLLBACK TO load_project_pub;
8455:
8456: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8457:
8458:
8459: WHEN OTHERS THEN
8460: ROLLBACK TO load_project_pub;
8458:
8459: WHEN OTHERS THEN
8460: ROLLBACK TO load_project_pub;
8461:
8462: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8463:
8464: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8465: THEN
8466: FND_MSG_PUB.add_exc_msg
8490: --
8491:
8492: PROCEDURE load_key_member
8493: ( p_api_version_number IN NUMBER
8494: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8495: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
8496: ,p_person_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8497: ,p_project_role_type IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
8498: ,p_project_role_meaning IN VARCHAR2:= PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR -- Added for Bug 6408593
8512: SAVEPOINT load_key_member_pub;
8513:
8514: -- Standard call to check for call compatibility.
8515:
8516: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
8517: p_api_version_number ,
8518: l_api_name ,
8519: G_PKG_NAME )
8520: THEN
8518: l_api_name ,
8519: G_PKG_NAME )
8520: THEN
8521:
8522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8523:
8524: END IF;
8525:
8526: -- Initialize the message table if requested.
8524: END IF;
8525:
8526: -- Initialize the message table if requested.
8527:
8528: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8529: THEN
8530:
8531: FND_MSG_PUB.initialize;
8532:
8533: END IF;
8534:
8535: -- Set API return status to success
8536:
8537: p_return_status := FND_API.G_RET_STS_SUCCESS;
8538:
8539: -- Load the table only if a valid person id is passed
8540:
8541: IF (p_person_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
8556:
8557:
8558: EXCEPTION
8559:
8560: WHEN FND_API.G_EXC_ERROR
8561: THEN
8562: ROLLBACK TO load_key_member_pub;
8563:
8564: p_return_status := FND_API.G_RET_STS_ERROR;
8560: WHEN FND_API.G_EXC_ERROR
8561: THEN
8562: ROLLBACK TO load_key_member_pub;
8563:
8564: p_return_status := FND_API.G_RET_STS_ERROR;
8565:
8566:
8567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8568: THEN
8563:
8564: p_return_status := FND_API.G_RET_STS_ERROR;
8565:
8566:
8567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8568: THEN
8569: ROLLBACK TO load_key_member_pub;
8570:
8571: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8568: THEN
8569: ROLLBACK TO load_key_member_pub;
8570:
8571: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8572:
8573:
8574: WHEN OTHERS THEN
8575: ROLLBACK TO load_key_member_pub;
8573:
8574: WHEN OTHERS THEN
8575: ROLLBACK TO load_key_member_pub;
8576:
8577: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8578:
8579: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8580: THEN
8581: FND_MSG_PUB.add_exc_msg
8604: -- 20-MAR-2002 anlee Created
8605:
8606: PROCEDURE load_org_role
8607: ( p_api_version_number IN NUMBER
8608: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8609: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
8610: ,p_resource_source_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8611: ,p_project_role_type IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
8612: ,p_start_date IN DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
8625: SAVEPOINT load_org_role_pub;
8626:
8627: -- Standard call to check for call compatibility.
8628:
8629: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
8630: p_api_version_number ,
8631: l_api_name ,
8632: G_PKG_NAME )
8633: THEN
8631: l_api_name ,
8632: G_PKG_NAME )
8633: THEN
8634:
8635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8636:
8637: END IF;
8638:
8639: -- Initialize the message table if requested.
8637: END IF;
8638:
8639: -- Initialize the message table if requested.
8640:
8641: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8642: THEN
8643:
8644: FND_MSG_PUB.initialize;
8645:
8646: END IF;
8647:
8648: -- Set API return status to success
8649:
8650: p_return_status := FND_API.G_RET_STS_SUCCESS;
8651:
8652: -- Load the table only if a valid resource source id is passed
8653:
8654: IF (p_resource_source_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
8667:
8668:
8669: EXCEPTION
8670:
8671: WHEN FND_API.G_EXC_ERROR
8672: THEN
8673: ROLLBACK TO load_org_role_pub;
8674:
8675: p_return_status := FND_API.G_RET_STS_ERROR;
8671: WHEN FND_API.G_EXC_ERROR
8672: THEN
8673: ROLLBACK TO load_org_role_pub;
8674:
8675: p_return_status := FND_API.G_RET_STS_ERROR;
8676:
8677:
8678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8679: THEN
8674:
8675: p_return_status := FND_API.G_RET_STS_ERROR;
8676:
8677:
8678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8679: THEN
8680: ROLLBACK TO load_org_role_pub;
8681:
8682: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8679: THEN
8680: ROLLBACK TO load_org_role_pub;
8681:
8682: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8683:
8684:
8685: WHEN OTHERS THEN
8686: ROLLBACK TO load_org_role_pub;
8684:
8685: WHEN OTHERS THEN
8686: ROLLBACK TO load_org_role_pub;
8687:
8688: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8689:
8690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8691: THEN
8692: FND_MSG_PUB.add_exc_msg
8717: --
8718:
8719: PROCEDURE load_class_category
8720: ( p_api_version_number IN NUMBER
8721: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8722: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
8723: ,p_class_category IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
8724: ,p_class_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
8725: ,p_new_class_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR -- Added for Bug 7028230
8739: SAVEPOINT load_class_category_pub;
8740:
8741: -- Standard call to check for call compatibility.
8742:
8743: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
8744: p_api_version_number ,
8745: l_api_name ,
8746: G_PKG_NAME )
8747: THEN
8745: l_api_name ,
8746: G_PKG_NAME )
8747: THEN
8748:
8749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8750:
8751: END IF;
8752:
8753: -- Initialize the message table if requested.
8751: END IF;
8752:
8753: -- Initialize the message table if requested.
8754:
8755: IF FND_API.TO_BOOLEAN( p_init_msg_list )
8756: THEN
8757:
8758: FND_MSG_PUB.initialize;
8759:
8760: END IF;
8761:
8762: -- Set API return status to success
8763:
8764: p_return_status := FND_API.G_RET_STS_SUCCESS;
8765:
8766: -- Load the table only if a valid class category id is passed
8767:
8768: IF (p_class_category <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR ) AND
8800:
8801:
8802: EXCEPTION
8803:
8804: WHEN FND_API.G_EXC_ERROR
8805: THEN
8806: ROLLBACK TO load_class_category_pub;
8807:
8808: p_return_status := FND_API.G_RET_STS_ERROR;
8804: WHEN FND_API.G_EXC_ERROR
8805: THEN
8806: ROLLBACK TO load_class_category_pub;
8807:
8808: p_return_status := FND_API.G_RET_STS_ERROR;
8809:
8810:
8811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8812: THEN
8807:
8808: p_return_status := FND_API.G_RET_STS_ERROR;
8809:
8810:
8811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8812: THEN
8813: ROLLBACK TO load_class_category_pub;
8814:
8815: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
8812: THEN
8813: ROLLBACK TO load_class_category_pub;
8814:
8815: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8816:
8817:
8818: WHEN OTHERS THEN
8819: ROLLBACK TO load_class_category_pub;
8817:
8818: WHEN OTHERS THEN
8819: ROLLBACK TO load_class_category_pub;
8820:
8821: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8822:
8823: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8824: THEN
8825: FND_MSG_PUB.add_exc_msg
8856: -- 05-APR-2004 Rakesh Raghavan Progress Management Changes. Bug # 3420093.
8857:
8858: PROCEDURE load_task
8859: ( p_api_version_number IN NUMBER
8860: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
8861: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
8862: ,p_pm_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
8863: ,p_pa_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8864: ,p_task_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
9025: SAVEPOINT load_task_pub;
9026:
9027: -- Standard call to check for call compatibility.
9028:
9029: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
9030: p_api_version_number ,
9031: l_api_name ,
9032: G_PKG_NAME )
9033: THEN
9031: l_api_name ,
9032: G_PKG_NAME )
9033: THEN
9034:
9035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9036:
9037: END IF;
9038:
9039: -- Initialize the message table if requested.
9037: END IF;
9038:
9039: -- Initialize the message table if requested.
9040:
9041: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9042: THEN
9043:
9044: FND_MSG_PUB.initialize;
9045:
9046: END IF;
9047:
9048: -- Set API return status to success
9049:
9050: p_return_status := FND_API.G_RET_STS_SUCCESS;
9051:
9052:
9053: -- assign a value to the global counter for this table
9054: G_tasks_tbl_count := G_tasks_tbl_count + 1;
9285: -- Progress Management Changes. Bug # 3420093.
9286:
9287: EXCEPTION
9288:
9289: WHEN FND_API.G_EXC_ERROR
9290: THEN
9291: ROLLBACK TO load_task_pub;
9292:
9293: p_return_status := FND_API.G_RET_STS_ERROR;
9289: WHEN FND_API.G_EXC_ERROR
9290: THEN
9291: ROLLBACK TO load_task_pub;
9292:
9293: p_return_status := FND_API.G_RET_STS_ERROR;
9294:
9295:
9296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9297: THEN
9292:
9293: p_return_status := FND_API.G_RET_STS_ERROR;
9294:
9295:
9296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9297: THEN
9298: ROLLBACK TO load_task_pub;
9299:
9300: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9297: THEN
9298: ROLLBACK TO load_task_pub;
9299:
9300: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9301:
9302:
9303: WHEN OTHERS THEN
9304: ROLLBACK TO load_task_pub;
9302:
9303: WHEN OTHERS THEN
9304: ROLLBACK TO load_task_pub;
9305:
9306: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9307:
9308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9309: THEN
9310: FND_MSG_PUB.add_exc_msg
9333: --
9334:
9335: PROCEDURE execute_create_project
9336: ( p_api_version_number IN NUMBER
9337: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9338: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9339: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
9340: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9341: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9334:
9335: PROCEDURE execute_create_project
9336: ( p_api_version_number IN NUMBER
9337: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9338: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9339: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
9340: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9341: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9342: ,p_workflow_started OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9361: SAVEPOINT execute_create_project_pub;
9362:
9363: -- Standard call to check for call compatibility.
9364:
9365: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
9366: p_api_version_number ,
9367: l_api_name ,
9368: G_PKG_NAME )
9369: THEN
9367: l_api_name ,
9368: G_PKG_NAME )
9369: THEN
9370:
9371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9372:
9373: END IF;
9374:
9375: -- Initialize the message table if requested.
9373: END IF;
9374:
9375: -- Initialize the message table if requested.
9376:
9377: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9378: THEN
9379:
9380: FND_MSG_PUB.initialize;
9381:
9383:
9384:
9385: -- Set API return status to success
9386:
9387: p_return_status := FND_API.G_RET_STS_SUCCESS;
9388:
9389: create_project( p_api_version_number => p_api_version_number
9390: ,p_commit => FND_API.G_FALSE
9391: ,p_init_msg_list => FND_API.G_FALSE
9386:
9387: p_return_status := FND_API.G_RET_STS_SUCCESS;
9388:
9389: create_project( p_api_version_number => p_api_version_number
9390: ,p_commit => FND_API.G_FALSE
9391: ,p_init_msg_list => FND_API.G_FALSE
9392: ,p_msg_count => p_msg_count
9393: ,p_msg_data => p_msg_data
9394: ,p_return_status => l_return_status
9387: p_return_status := FND_API.G_RET_STS_SUCCESS;
9388:
9389: create_project( p_api_version_number => p_api_version_number
9390: ,p_commit => FND_API.G_FALSE
9391: ,p_init_msg_list => FND_API.G_FALSE
9392: ,p_msg_count => p_msg_count
9393: ,p_msg_data => p_msg_data
9394: ,p_return_status => l_return_status
9395: ,p_workflow_started => p_workflow_started
9415: --FP M : deliverables
9416: );
9417:
9418:
9419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9420: THEN
9421:
9422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9423:
9418:
9419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9420: THEN
9421:
9422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9423:
9424: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9425: THEN
9426:
9420: THEN
9421:
9422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9423:
9424: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9425: THEN
9426:
9427: RAISE FND_API.G_EXC_ERROR;
9428: END IF;
9423:
9424: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9425: THEN
9426:
9427: RAISE FND_API.G_EXC_ERROR;
9428: END IF;
9429:
9430: --assign appropriate values to outgoing parameters
9431: IF g_project_out_rec.pa_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
9438: ELSE
9439: p_pa_project_number := g_project_out_rec.pa_project_number;
9440: END IF;
9441:
9442: IF FND_API.to_boolean( p_commit )
9443: THEN
9444: COMMIT;
9445: END IF;
9446:
9446:
9447:
9448: EXCEPTION
9449:
9450: WHEN FND_API.G_EXC_ERROR
9451: THEN
9452: ROLLBACK TO execute_create_project_pub;
9453:
9454: p_return_status := FND_API.G_RET_STS_ERROR;
9450: WHEN FND_API.G_EXC_ERROR
9451: THEN
9452: ROLLBACK TO execute_create_project_pub;
9453:
9454: p_return_status := FND_API.G_RET_STS_ERROR;
9455:
9456: -- 4537865
9457: p_workflow_started := NULL ;
9458: p_pa_project_id := NULL ;
9462: FND_MSG_PUB.Count_And_Get
9463: ( p_count => p_msg_count ,
9464: p_data => p_msg_data );
9465:
9466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9467: THEN
9468: ROLLBACK TO execute_create_project_pub;
9469:
9470: -- 4537865
9472: p_pa_project_id := NULL ;
9473: p_pa_project_number := NULL ;
9474: -- 4537865
9475:
9476: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9477:
9478: FND_MSG_PUB.Count_And_Get
9479: ( p_count => p_msg_count ,
9480: p_data => p_msg_data );
9481:
9482: WHEN OTHERS THEN
9483: ROLLBACK TO execute_create_project_pub;
9484:
9485: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9486:
9487: -- 4537865
9488: p_workflow_started := NULL ;
9489: p_pa_project_id := NULL ;
9520: --
9521:
9522: PROCEDURE fetch_task
9523: ( p_api_version_number IN NUMBER
9524: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9525: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9526: ,p_task_index IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9527: ,p_pa_task_id OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
9528: ,p_pm_task_reference OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9541: SAVEPOINT fetch_task_pub;
9542:
9543: -- Standard call to check for call compatibility.
9544:
9545: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
9546: p_api_version_number ,
9547: l_api_name ,
9548: G_PKG_NAME )
9549: THEN
9547: l_api_name ,
9548: G_PKG_NAME )
9549: THEN
9550:
9551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9552:
9553: END IF;
9554:
9555: -- Initialize the message table if requested.
9553: END IF;
9554:
9555: -- Initialize the message table if requested.
9556:
9557: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9558: THEN
9559:
9560: FND_MSG_PUB.initialize;
9561:
9562: END IF;
9563:
9564: -- Set API return status to success
9565:
9566: p_return_status := FND_API.G_RET_STS_SUCCESS;
9567:
9568: -- Check Task index value, when they don't provide an index we will error out
9569: IF p_task_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9570: OR p_task_index IS NULL
9582: ,p_attribute4 => ''
9583: ,p_attribute5 => '');
9584: END IF;
9585:
9586: p_return_status := FND_API.G_RET_STS_ERROR;
9587: RAISE FND_API.G_EXC_ERROR;
9588: ELSE
9589: l_index := p_task_index;
9590: END IF;
9583: ,p_attribute5 => '');
9584: END IF;
9585:
9586: p_return_status := FND_API.G_RET_STS_ERROR;
9587: RAISE FND_API.G_EXC_ERROR;
9588: ELSE
9589: l_index := p_task_index;
9590: END IF;
9591: If G_Tasks_out_tbl.exists(l_index) THEN
9607: END IF;
9608:
9609: EXCEPTION
9610:
9611: WHEN FND_API.G_EXC_ERROR
9612: THEN
9613: ROLLBACK TO fetch_task_pub;
9614:
9615: p_return_status := FND_API.G_RET_STS_ERROR;
9611: WHEN FND_API.G_EXC_ERROR
9612: THEN
9613: ROLLBACK TO fetch_task_pub;
9614:
9615: p_return_status := FND_API.G_RET_STS_ERROR;
9616:
9617: -- 4537865
9618: p_pa_task_id := NULL ;
9619: p_pm_task_reference := NULL ;
9616:
9617: -- 4537865
9618: p_pa_task_id := NULL ;
9619: p_pm_task_reference := NULL ;
9620: p_task_return_status := FND_API.G_RET_STS_ERROR ;
9621: -- 4537865
9622:
9623:
9624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9620: p_task_return_status := FND_API.G_RET_STS_ERROR ;
9621: -- 4537865
9622:
9623:
9624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9625: THEN
9626: ROLLBACK TO fetch_task_pub;
9627:
9628: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9625: THEN
9626: ROLLBACK TO fetch_task_pub;
9627:
9628: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9629:
9630: -- 4537865
9631: p_pa_task_id := NULL ;
9632: p_pm_task_reference := NULL ;
9629:
9630: -- 4537865
9631: p_pa_task_id := NULL ;
9632: p_pm_task_reference := NULL ;
9633: p_task_return_status := FND_API.G_RET_STS_ERROR ;
9634: -- 4537865
9635:
9636:
9637: WHEN OTHERS THEN
9636:
9637: WHEN OTHERS THEN
9638: ROLLBACK TO fetch_task_pub;
9639:
9640: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9641:
9642: -- 4537865
9643: p_pa_task_id := NULL ;
9644: p_pm_task_reference := NULL ;
9641:
9642: -- 4537865
9643: p_pa_task_id := NULL ;
9644: p_pm_task_reference := NULL ;
9645: p_task_return_status := FND_API.G_RET_STS_ERROR ;
9646: -- 4537865
9647:
9648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9649: THEN
9765: -- 18-May-2006 vkadimes - Bug 5188246 Added validation for output_tax_code and retention_tax_code .
9766: -- Changes are tagged with Bug No.
9767: PROCEDURE Update_Project
9768: ( p_api_version_number IN NUMBER
9769: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9770: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9771: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
9772: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9773: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9766: -- Changes are tagged with Bug No.
9767: PROCEDURE Update_Project
9768: ( p_api_version_number IN NUMBER
9769: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9770: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9771: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
9772: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9773: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
9774: ,p_workflow_started OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
10892: BEGIN
10893:
10894: SAVEPOINT Update_project_pub;
10895:
10896: IF FND_API.TO_BOOLEAN( p_init_msg_list )
10897: THEN
10898: FND_MSG_PUB.Initialize;
10899: END IF;
10900:
10906: G_TASK_STR_UPDATE_MODE := p_update_mode ; -- DHI ER , rtarway BUG 4413568
10907: end if;
10908:
10909: -- Standard call to check for call compatibility.
10910: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
10911: p_api_version_number ,
10912: l_api_name ,
10913: G_PKG_NAME )
10914: THEN
10911: p_api_version_number ,
10912: l_api_name ,
10913: G_PKG_NAME )
10914: THEN
10915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10916: END IF;
10917:
10918: p_return_status := FND_API.G_RET_STS_SUCCESS;
10919:
10914: THEN
10915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10916: END IF;
10917:
10918: p_return_status := FND_API.G_RET_STS_SUCCESS;
10919:
10920: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
10921:
10922: --
10948: AND p_tasks_in.count > 0 -- Added the condition for Bug 7248969
10949: THEN
10950: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10951: p_msg_name => 'PA_PS_CANT_UPDATE_PROG_PRJ');
10952: RAISE FND_API.G_EXC_ERROR;
10953: END IF;
10954: --end bug 4619824
10955:
10956: IF l_debug_mode = 'Y' THEN
10973:
10974: --if yes, raise error.
10975: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10976: p_msg_name => 'PA_STR_LOCKED_BY_OTHER');
10977: RAISE FND_API.G_EXC_ERROR;
10978:
10979: -- Begin Bug # 4582750.
10980:
10981: elsif ( l_prev_locked_status = 'N' ) then
11003: 'l_x_return_status='||l_x_return_status;
11004: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11005: END IF;
11006:
11007: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11008: THEN
11009: p_project_out.return_status := l_x_return_status;
11010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11011:
11006:
11007: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11008: THEN
11009: p_project_out.return_status := l_x_return_status;
11010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11011:
11012: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR
11013: THEN
11014: p_project_out.return_status := l_x_return_status;
11008: THEN
11009: p_project_out.return_status := l_x_return_status;
11010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11011:
11012: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR
11013: THEN
11014: p_project_out.return_status := l_x_return_status;
11015: RAISE FND_API.G_EXC_ERROR;
11016: END IF;
11011:
11012: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR
11013: THEN
11014: p_project_out.return_status := l_x_return_status;
11015: RAISE FND_API.G_EXC_ERROR;
11016: END IF;
11017:
11018: end if;
11019:
11039:
11040: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
11041: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
11042:
11043: l_return_status := FND_API.G_RET_STS_ERROR;
11044:
11045: RAISE FND_API.G_EXC_ERROR;
11046:
11047:
11041: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
11042:
11043: l_return_status := FND_API.G_RET_STS_ERROR;
11044:
11045: RAISE FND_API.G_EXC_ERROR;
11046:
11047:
11048:
11049: END IF;
11073: ,p_attribute3 => ''
11074: ,p_attribute4 => ''
11075: ,p_attribute5 => '');
11076: END IF;
11077: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11078: RAISE FND_API.G_EXC_ERROR;
11079: /* bug 4538849
11080: --bug 4413568, DHI ER, rtarway
11081: ELSIF (struct_ver_updatable = 'Y') THEN
11074: ,p_attribute4 => ''
11075: ,p_attribute5 => '');
11076: END IF;
11077: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11078: RAISE FND_API.G_EXC_ERROR;
11079: /* bug 4538849
11080: --bug 4413568, DHI ER, rtarway
11081: ELSIF (struct_ver_updatable = 'Y') THEN
11082: -- structure version is locked by another user check must be done in both update modes. bug 4519809
11085: if ( PA_PROJECT_STRUCTURE_UTILS.IS_STRUC_VER_LOCKED_BY_USER(FND_GLOBAL.USER_ID,l_structure_version_id) = 'O' ) then
11086: --if yes, raise error.
11087: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11088: p_msg_name => 'PA_STR_LOCKED_BY_OTHER');
11089: RAISE FND_API.G_EXC_ERROR;
11090: end if;
11091: --END IF;
11092: */
11093: END IF;
11117: ,p_attribute5 => '');
11118: END IF;
11119:
11120: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_ORG_FC_CANT_UPD_ORG_PRJ');
11121: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11122: RAISE FND_API.G_EXC_ERROR;
11123: END IF;
11124: --Organization Forecasting.
11125: --Do not allow updating an org project
11118: END IF;
11119:
11120: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_ORG_FC_CANT_UPD_ORG_PRJ');
11121: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11122: RAISE FND_API.G_EXC_ERROR;
11123: END IF;
11124: --Organization Forecasting.
11125: --Do not allow updating an org project
11126:
11156: ,p_attribute3 => ''
11157: ,p_attribute4 => ''
11158: ,p_attribute5 => '');
11159: END IF;
11160: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11161: RAISE FND_API.G_EXC_ERROR;
11162: END IF;
11163:
11164: --bug 2841158
11157: ,p_attribute4 => ''
11158: ,p_attribute5 => '');
11159: END IF;
11160: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11161: RAISE FND_API.G_EXC_ERROR;
11162: END IF;
11163:
11164: --bug 2841158
11165: IF p_pm_product_code <> 'WORKPLAN'
11189: ,p_attribute3 => ''
11190: ,p_attribute4 => ''
11191: ,p_attribute5 => '');
11192: END IF;
11193: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11194: p_return_status := FND_API.G_RET_STS_ERROR;
11195: RAISE FND_API.G_EXC_ERROR;
11196: END IF;
11197: END IF; --bug 2841158
11190: ,p_attribute4 => ''
11191: ,p_attribute5 => '');
11192: END IF;
11193: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11194: p_return_status := FND_API.G_RET_STS_ERROR;
11195: RAISE FND_API.G_EXC_ERROR;
11196: END IF;
11197: END IF; --bug 2841158
11198:
11191: ,p_attribute5 => '');
11192: END IF;
11193: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11194: p_return_status := FND_API.G_RET_STS_ERROR;
11195: RAISE FND_API.G_EXC_ERROR;
11196: END IF;
11197: END IF; --bug 2841158
11198:
11199: l_resp_id := FND_GLOBAL.Resp_id;
11225: p_out_project_id => l_project_id,
11226: p_return_status => l_return_status );
11227:
11228:
11229: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11230: THEN
11231: p_project_out.return_status := l_return_status;
11232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11233:
11228:
11229: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11230: THEN
11231: p_project_out.return_status := l_return_status;
11232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11233:
11234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11235: THEN
11236: p_project_out.return_status := l_return_status;
11230: THEN
11231: p_project_out.return_status := l_return_status;
11232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11233:
11234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11235: THEN
11236: p_project_out.return_status := l_return_status;
11237: RAISE FND_API.G_EXC_ERROR;
11238: END IF;
11233:
11234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11235: THEN
11236: p_project_out.return_status := l_return_status;
11237: RAISE FND_API.G_EXC_ERROR;
11238: END IF;
11239: --bug 2471668
11240:
11241:
11267: p_return_status => l_return_status,
11268: p_function_allowed => l_function_allowed );
11269:
11270:
11271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11272: THEN
11273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11274:
11275: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11269:
11270:
11271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11272: THEN
11273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11274:
11275: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11276: THEN
11277: RAISE FND_API.G_EXC_ERROR;
11271: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11272: THEN
11273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11274:
11275: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11276: THEN
11277: RAISE FND_API.G_EXC_ERROR;
11278: END IF;
11279: IF l_function_allowed = 'N' THEN
11273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11274:
11275: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11276: THEN
11277: RAISE FND_API.G_EXC_ERROR;
11278: END IF;
11279: IF l_function_allowed = 'N' THEN
11280: pa_interface_utils_pub.map_new_amg_msg
11281: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
11286: ,p_attribute2 => ''
11287: ,p_attribute3 => ''
11288: ,p_attribute4 => ''
11289: ,p_attribute5 => '');
11290: p_return_status := FND_API.G_RET_STS_ERROR;
11291: RAISE FND_API.G_EXC_ERROR;
11292: END IF;
11293:
11294:
11287: ,p_attribute3 => ''
11288: ,p_attribute4 => ''
11289: ,p_attribute5 => '');
11290: p_return_status := FND_API.G_RET_STS_ERROR;
11291: RAISE FND_API.G_EXC_ERROR;
11292: END IF;
11293:
11294:
11295: /* Moving this code before doing security check for bug 2471668
11301: p_out_project_id => l_project_id,
11302: p_return_status => l_return_status );
11303:
11304:
11305: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11306: THEN
11307: p_project_out.return_status := l_return_status;
11308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11309:
11304:
11305: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
11306: THEN
11307: p_project_out.return_status := l_return_status;
11308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11309:
11310: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11311: THEN
11312: p_project_out.return_status := l_return_status;
11306: THEN
11307: p_project_out.return_status := l_return_status;
11308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11309:
11310: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11311: THEN
11312: p_project_out.return_status := l_return_status;
11313: RAISE FND_API.G_EXC_ERROR;
11314: END IF;
11309:
11310: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
11311: THEN
11312: p_project_out.return_status := l_return_status;
11313: RAISE FND_API.G_EXC_ERROR;
11314: END IF;
11315: */ --bug 2471668
11316:
11317: -- Get segment1 for AMG messages
11337: ,p_attribute2 => ''
11338: ,p_attribute3 => ''
11339: ,p_attribute4 => ''
11340: ,p_attribute5 => '');
11341: p_return_status := FND_API.G_RET_STS_ERROR;
11342: RAISE FND_API.G_EXC_ERROR;
11343: ELSE
11344: -- If the user has query privileges, then check whether
11345: -- update privileges are also available
11338: ,p_attribute3 => ''
11339: ,p_attribute4 => ''
11340: ,p_attribute5 => '');
11341: p_return_status := FND_API.G_RET_STS_ERROR;
11342: RAISE FND_API.G_EXC_ERROR;
11343: ELSE
11344: -- If the user has query privileges, then check whether
11345: -- update privileges are also available
11346: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
11356: ,p_attribute2 => ''
11357: ,p_attribute3 => ''
11358: ,p_attribute4 => ''
11359: ,p_attribute5 => '');
11360: p_return_status := FND_API.G_RET_STS_ERROR;
11361: RAISE FND_API.G_EXC_ERROR;
11362: END IF;
11363: END IF;
11364:
11357: ,p_attribute3 => ''
11358: ,p_attribute4 => ''
11359: ,p_attribute5 => '');
11360: p_return_status := FND_API.G_RET_STS_ERROR;
11361: RAISE FND_API.G_EXC_ERROR;
11362: END IF;
11363: END IF;
11364:
11365: -- Lock this project and it's tasks for update
11419: ,p_attribute3 => ''
11420: ,p_attribute4 => ''
11421: ,p_attribute5 => '');
11422: END IF;
11423: RAISE FND_API.G_EXC_ERROR;
11424: END IF;
11425: --bug 2876703
11426:
11427: -- "Change Project Currency" changes By avaithia for Bug 3912783
11476:
11477: -- Bug # 4329284.
11478:
11479: END IF ;
11480: p_return_status := FND_API.G_RET_STS_ERROR;
11481: RAISE FND_API.G_EXC_ERROR;
11482: END IF ;
11483: END IF ;
11484: END IF ;
11477: -- Bug # 4329284.
11478:
11479: END IF ;
11480: p_return_status := FND_API.G_RET_STS_ERROR;
11481: RAISE FND_API.G_EXC_ERROR;
11482: END IF ;
11483: END IF ;
11484: END IF ;
11485: -- << End >>
11578: ,p_attribute5 => '');
11579: END IF;
11580: END IF;
11581:
11582: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11583:
11584: RAISE FND_API.G_EXC_ERROR;
11585:
11586: ELSIF l_err_code < 0
11580: END IF;
11581:
11582: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11583:
11584: RAISE FND_API.G_EXC_ERROR;
11585:
11586: ELSIF l_err_code < 0
11587: THEN
11588:
11585:
11586: ELSIF l_err_code < 0
11587: THEN
11588:
11589: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11590:
11591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11592: END IF;
11593: -- BEGIN MSP interface patch
11587: THEN
11588:
11589: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11590:
11591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11592: END IF;
11593: -- BEGIN MSP interface patch
11594:
11595: -- Check for project number being numeric if project number type is
11614: ,p_attribute3 => ''
11615: ,p_attribute4 => ''
11616: ,p_attribute5 => '');
11617: END IF;
11618: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11619: p_return_status := FND_API.G_RET_STS_ERROR;
11620: RAISE FND_API.G_EXC_ERROR;
11621: END ;
11622:
11615: ,p_attribute4 => ''
11616: ,p_attribute5 => '');
11617: END IF;
11618: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11619: p_return_status := FND_API.G_RET_STS_ERROR;
11620: RAISE FND_API.G_EXC_ERROR;
11621: END ;
11622:
11623: -- END MSP interface patch -- Ensure that l_proj_num_numeric is defined
11616: ,p_attribute5 => '');
11617: END IF;
11618: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11619: p_return_status := FND_API.G_RET_STS_ERROR;
11620: RAISE FND_API.G_EXC_ERROR;
11621: END ;
11622:
11623: -- END MSP interface patch -- Ensure that l_proj_num_numeric is defined
11624:
11642: ,p_attribute4 => ''
11643: ,p_attribute5 => '');
11644: END IF;
11645:
11646: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11647:
11648: RAISE FND_API.G_EXC_ERROR;
11649: END IF;
11650:
11644: END IF;
11645:
11646: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11647:
11648: RAISE FND_API.G_EXC_ERROR;
11649: END IF;
11650:
11651: CLOSE l_project_number_unique_csr;
11652:
11700: ,p_attribute4 => ''
11701: ,p_attribute5 => '');
11702: END IF;
11703:
11704: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11705:
11706: RAISE FND_API.G_EXC_ERROR;
11707: END IF;
11708:
11702: END IF;
11703:
11704: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11705:
11706: RAISE FND_API.G_EXC_ERROR;
11707: END IF;
11708:
11709: CLOSE l_project_name_unique_csr;
11710:
11756: ,p_attribute4 => ''
11757: ,p_attribute5 => '');
11758: END IF;
11759:
11760: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11761:
11762: RAISE FND_API.G_EXC_ERROR;
11763: END IF;
11764:
11758: END IF;
11759:
11760: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11761:
11762: RAISE FND_API.G_EXC_ERROR;
11763: END IF;
11764:
11765: CLOSE l_long_name_unique_csr;
11766:
11826: ,p_attribute3 => ''
11827: ,p_attribute4 => ''
11828: ,p_attribute5 => '');
11829: END IF;
11830: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11831: RAISE FND_API.G_EXC_ERROR;
11832: END IF;
11833:
11834: -- Code Added for the bug#1968394
11827: ,p_attribute4 => ''
11828: ,p_attribute5 => '');
11829: END IF;
11830: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11831: RAISE FND_API.G_EXC_ERROR;
11832: END IF;
11833:
11834: -- Code Added for the bug#1968394
11835: -- Test the function security for Org changes
11906: ,p_attribute4 => ''
11907: ,p_attribute5 => '');
11908: END IF;
11909: END IF;
11910: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11911: RAISE FND_API.G_EXC_ERROR;
11912: ELSIF l_err_code < 0 THEN
11913: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11907: ,p_attribute5 => '');
11908: END IF;
11909: END IF;
11910: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11911: RAISE FND_API.G_EXC_ERROR;
11912: ELSIF l_err_code < 0 THEN
11913: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11915: END IF;
11909: END IF;
11910: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11911: RAISE FND_API.G_EXC_ERROR;
11912: ELSIF l_err_code < 0 THEN
11913: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11915: END IF;
11916:
11917: --bug 2955326
11910: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11911: RAISE FND_API.G_EXC_ERROR;
11912: ELSIF l_err_code < 0 THEN
11913: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11915: END IF;
11916:
11917: --bug 2955326
11918: /*
11952: ,p_attribute4 => ''
11953: ,p_attribute5 => '');
11954: END IF;
11955:
11956: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11957: RAISE FND_API.G_EXC_ERROR;
11958: END IF;
11959:
11960: --bug 2955326
11953: ,p_attribute5 => '');
11954: END IF;
11955:
11956: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11957: RAISE FND_API.G_EXC_ERROR;
11958: END IF;
11959:
11960: --bug 2955326
11961: /*
11995: ,p_attribute4 => ''
11996: ,p_attribute5 => '');
11997: END IF;
11998:
11999: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12000: RAISE FND_API.G_EXC_ERROR;
12001: ELSE
12002:
12003: IF nvl(p_project_in.distribution_rule,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
11996: ,p_attribute5 => '');
11997: END IF;
11998:
11999: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12000: RAISE FND_API.G_EXC_ERROR;
12001: ELSE
12002:
12003: IF nvl(p_project_in.distribution_rule,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
12004: <> nvl(l_project_rec.distribution_rule, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
12024: ,p_attribute4 => ''
12025: ,p_attribute5 => '');
12026: END IF;
12027:
12028: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12029: RAISE FND_API.G_EXC_ERROR;
12030: END IF;
12031:
12032: pa_project_utils.check_dist_rule_chg_ok ( l_project_id,
12025: ,p_attribute5 => '');
12026: END IF;
12027:
12028: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12029: RAISE FND_API.G_EXC_ERROR;
12030: END IF;
12031:
12032: pa_project_utils.check_dist_rule_chg_ok ( l_project_id,
12033: l_project_rec.distribution_rule,
12066: ,p_attribute5 => '');
12067: END IF;
12068: END IF;
12069:
12070: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12071: RAISE FND_API.G_EXC_ERROR;
12072:
12073: ELSIF l_err_code < 0
12074: THEN
12067: END IF;
12068: END IF;
12069:
12070: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12071: RAISE FND_API.G_EXC_ERROR;
12072:
12073: ELSIF l_err_code < 0
12074: THEN
12075:
12072:
12073: ELSIF l_err_code < 0
12074: THEN
12075:
12076: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12078: END IF;
12079:
12080: --bug 2955326
12073: ELSIF l_err_code < 0
12074: THEN
12075:
12076: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12078: END IF;
12079:
12080: --bug 2955326
12081: /*
12146: ,p_attribute3 => ''
12147: ,p_attribute4 => ''
12148: ,p_attribute5 => '');
12149: END IF;
12150: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12151: RAISE FND_API.G_EXC_ERROR;
12152: END IF;
12153:
12154: -- special case for update to and from 'CLOSED'
12147: ,p_attribute4 => ''
12148: ,p_attribute5 => '');
12149: END IF;
12150: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12151: RAISE FND_API.G_EXC_ERROR;
12152: END IF;
12153:
12154: -- special case for update to and from 'CLOSED'
12155: IF Pa_project_stus_utils.is_project_status_closed
12223: ,p_token3 => ''
12224: ,p_value3 => ''
12225: );
12226:
12227: RAISE FND_API.G_EXC_ERROR;
12228: End If;
12229:
12230: If l_validate = 'Y' and l_end_date_status = 'I' Then
12231:
12239: ,p_token3 => ''
12240: ,p_value3 => ''
12241: );
12242:
12243: RAISE FND_API.G_EXC_ERROR;
12244: End If;
12245: End If;
12246: End;
12247:
12245: End If;
12246: End;
12247:
12248: /*--Bug 6511907 PJR Date Validation Enhancement ----- End--*/
12249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12250: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12252: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12253: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12246: End;
12247:
12248: /*--Bug 6511907 PJR Date Validation Enhancement ----- End--*/
12249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12250: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12252: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12253: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12254: RAISE FND_API.G_EXC_ERROR;
12247:
12248: /*--Bug 6511907 PJR Date Validation Enhancement ----- End--*/
12249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12250: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12252: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12253: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12254: RAISE FND_API.G_EXC_ERROR;
12255: END IF;
12248: /*--Bug 6511907 PJR Date Validation Enhancement ----- End--*/
12249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12250: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12252: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12253: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12254: RAISE FND_API.G_EXC_ERROR;
12255: END IF;
12256:
12249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12250: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12252: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12253: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12254: RAISE FND_API.G_EXC_ERROR;
12255: END IF;
12256:
12257: -- Checking of valid project start and end date is done after adding and updating the tasks,
12250: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
12251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12252: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12253: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12254: RAISE FND_API.G_EXC_ERROR;
12255: END IF;
12256:
12257: -- Checking of valid project start and end date is done after adding and updating the tasks,
12258: -- since dates of tasks might change to be within the project begin and end date.
12375: );
12376:
12377: END IF;
12378:
12379: RAISE FND_API.G_EXC_ERROR;
12380: END IF;
12381: l_statement := l_statement ||
12382: ' EARLY_FINISH_DATE = :early_finish_date ,';
12383: l_b_early_fd_flag := 'Y';
12396: );
12397:
12398: END IF;
12399:
12400: RAISE FND_API.G_EXC_ERROR;
12401: END IF;
12402: l_statement := l_statement ||
12403: ' EARLY_FINISH_DATE = :early_finish_date ,';
12404: l_b_early_fd_flag := 'Y';
12465: );
12466:
12467: END IF;
12468:
12469: RAISE FND_API.G_EXC_ERROR;
12470: END IF;
12471: l_statement := l_statement ||
12472: ' LATE_FINISH_DATE = :late_finish_date ,';
12473: l_b_late_fd_flag := 'Y';
12484: );
12485:
12486: END IF;
12487:
12488: RAISE FND_API.G_EXC_ERROR;
12489: END IF;
12490: l_statement := l_statement ||
12491: ' LATE_FINISH_DATE = :late_finish_date ,';
12492: l_b_late_fd_flag := 'Y';
12794: IF l_dummy_cur_output_tax_code <> 'Y' THEN
12795: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12796: p_msg_name => 'PA_INVLD_OUTPUT_TAX_CODE');
12797:
12798: p_return_status := FND_API.G_RET_STS_ERROR;
12799: RAISE FND_API.G_EXC_ERROR;
12800:
12801: END IF;
12802:
12795: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12796: p_msg_name => 'PA_INVLD_OUTPUT_TAX_CODE');
12797:
12798: p_return_status := FND_API.G_RET_STS_ERROR;
12799: RAISE FND_API.G_EXC_ERROR;
12800:
12801: END IF;
12802:
12803:
12832: IF l_dummy_cur_retention_tax_code <> 'Y' THEN
12833: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12834: p_msg_name => 'PA_INVLD_RETENTION_TAX_CODE');
12835:
12836: p_return_status := FND_API.G_RET_STS_ERROR;
12837: RAISE FND_API.G_EXC_ERROR;
12838:
12839: END IF;
12840:
12833: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12834: p_msg_name => 'PA_INVLD_RETENTION_TAX_CODE');
12835:
12836: p_return_status := FND_API.G_RET_STS_ERROR;
12837: RAISE FND_API.G_EXC_ERROR;
12838:
12839: END IF;
12840:
12841:
12898: );
12899:
12900: END IF;
12901:
12902: RAISE FND_API.G_EXC_ERROR;
12903: ELSE
12904:
12905: --bug 2955326
12906: /*
12927: );
12928:
12929: END IF;
12930:
12931: RAISE FND_API.G_EXC_ERROR;
12932: END IF;
12933:
12934: END IF;
12935:
13006: IF l_dummy_project_rate_type <> 'Y' THEN
13007:
13008: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
13009: p_msg_name => 'PA_INVLD_PROJ_RATE_TYPE');
13010: p_return_status := FND_API.G_RET_STS_ERROR;
13011: RAISE FND_API.G_EXC_ERROR;
13012: END IF ;
13013: END IF ;
13014:
13007:
13008: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
13009: p_msg_name => 'PA_INVLD_PROJ_RATE_TYPE');
13010: p_return_status := FND_API.G_RET_STS_ERROR;
13011: RAISE FND_API.G_EXC_ERROR;
13012: END IF ;
13013: END IF ;
13014:
13015: l_statement := l_statement ||
13221: ,p_attribute3 => ''
13222: ,p_attribute4 => ''
13223: ,p_attribute5 => '');
13224: END IF;
13225: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
13226: RAISE FND_API.G_EXC_ERROR;
13227: ELSE
13228: IF nvl(p_project_in.work_type_id,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) <> nvl(l_project_rec.work_type_id,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
13229:
13222: ,p_attribute4 => ''
13223: ,p_attribute5 => '');
13224: END IF;
13225: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
13226: RAISE FND_API.G_EXC_ERROR;
13227: ELSE
13228: IF nvl(p_project_in.work_type_id,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) <> nvl(l_project_rec.work_type_id,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
13229:
13230: --Added the following logic to update the work type id.Bug#5222248
13344: IF p_project_in.project_value IS NOT NULL AND p_project_in.project_value < 0 THEN
13345: PA_UTILS.ADD_MESSAGE
13346: ( p_app_short_name => 'PA'
13347: ,p_msg_name => 'PA_INVLD_OPPORTUNITY_VALUE');
13348: RAISE FND_API.G_EXC_ERROR;
13349: END IF;
13350: -- end of bug 5214431.
13351: l_statement := l_statement || ' PROJECT_VALUE = :proj_value ,';
13352: l_b_proj_value_flag := 'Y';
13441: p_out_nl_labor_sch_type => l_out_nl_labor_sch_type,
13442: p_return_status => l_return_status
13443: );
13444:
13445: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13446: THEN
13447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13448:
13449: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13443: );
13444:
13445: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13446: THEN
13447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13448:
13449: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13450: THEN
13451: RAISE FND_API.G_EXC_ERROR;
13445: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13446: THEN
13447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13448:
13449: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13450: THEN
13451: RAISE FND_API.G_EXC_ERROR;
13452: END IF;
13453:
13447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13448:
13449: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13450: THEN
13451: RAISE FND_API.G_EXC_ERROR;
13452: END IF;
13453:
13454:
13455: pa_project_pvt.validate_schedule_values
13478: p_return_status => l_return_status
13479: );
13480:
13481:
13482: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13483: THEN
13484:
13485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13486:
13481:
13482: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13483: THEN
13484:
13485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13486:
13487: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13488: THEN
13489:
13483: THEN
13484:
13485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13486:
13487: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13488: THEN
13489:
13490: RAISE FND_API.G_EXC_ERROR;
13491: END IF;
13486:
13487: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
13488: THEN
13489:
13490: RAISE FND_API.G_EXC_ERROR;
13491: END IF;
13492:
13493: IF p_project_in.labor_sch_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
13494: AND p_project_in.labor_sch_type IS NOT NULL
13744: ,p_attribute3 => ''
13745: ,p_attribute4 => ''
13746: ,p_attribute5 => '');
13747: END IF;
13748: RAISE FND_API.G_EXC_ERROR;
13749: END;
13750:
13751: ELSE
13752:
13789: ,p_attribute3 => ''
13790: ,p_attribute4 => ''
13791: ,p_attribute5 => '');
13792: END IF;
13793: RAISE FND_API.G_EXC_ERROR;
13794: END;
13795:
13796: ELSE
13797: IF l_project_rec.INV_IND_RATE_SCH_ID IS NOT NULL
13943: ,p_attribute3 => ''
13944: ,p_attribute4 => ''
13945: ,p_attribute5 => '');
13946: END IF;
13947: RAISE FND_API.G_EXC_ERROR;
13948: END;
13949:
13950: END IF;
13951: END IF;
14167: OR NVL(pa_multi_currency_billing.check_mcb_setup_exists(p_project_in.pa_project_id),'N') = 'Y' THEN
14168: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14169: FND_MESSAGE.SET_NAME('PA','PA_MCB_ALLOW_NO_CHG_AMG'); -- Cannot change MCB flag
14170: FND_MSG_PUB.ADD;
14171: RAISE FND_API.G_EXC_ERROR;
14172: END IF;
14173:
14174: END IF;
14175:
14188: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14189: FND_MESSAGE.SET_NAME('PA','PA_PROJ_RATE_TYPE_INV_AMG');
14190: FND_MESSAGE.SET_TOKEN('PROJECT', l_project_rec.segment1);
14191: FND_MSG_PUB.ADD;
14192: RAISE FND_API.G_EXC_ERROR;
14193: END IF;
14194: ELSE
14195: IF p_project_in.PROJECT_BIL_RATE_TYPE = 'User' THEN
14196: IF p_project_in.PROJECT_BIL_EXCHANGE_RATE is NULL
14197: OR p_project_in.PROJECT_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PC_AMG:Project Exchange Rate cannot be null when project rate type is User.
14199: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PC_AMG');
14200: FND_MSG_PUB.ADD;
14201: RAISE FND_API.G_EXC_ERROR;
14202: END IF;
14203: END IF;
14204:
14205: l_statement := l_statement || ' PROJECT_BIL_EXCHANGE_RATE = :proj_bil_xch_rt ,';
14213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14214: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14215: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
14216: FND_MSG_PUB.ADD;
14217: RAISE FND_API.G_EXC_ERROR;
14218: END IF;
14219: ELSE
14220: IF p_project_in.PROJECT_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
14221: IF p_project_in.PROJECT_BIL_RATE_DATE is NULL
14223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14224: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14225: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Currency');
14226: FND_MSG_PUB.ADD;
14227: RAISE FND_API.G_EXC_ERROR;
14228: END IF;
14229: END IF;
14230: END IF;
14231: l_statement := l_statement || ' PROJECT_BIL_RATE_DATE = :prj_bil_rt_date ,';
14251: OR p_project_in.PROJFUNC_BIL_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_PFC_RATE_TYPE_INV_AMG:The project functional exchage rate type is invalid
14252: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14253: FND_MESSAGE.SET_NAME('PA','PA_PFC_RATE_TYPE_INV_AMG');
14254: FND_MSG_PUB.ADD;
14255: RAISE FND_API.G_EXC_ERROR;
14256: END IF;
14257: ELSE
14258: IF p_project_in.PROJFUNC_BIL_RATE_TYPE = 'User' THEN
14259: IF p_project_in.PROJFUNC_BIL_EXCHANGE_RATE is NULL
14260: OR p_project_in.PROJFUNC_BIL_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14261: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCH_RATE_NULL_PF_AMG:Project Functional Exchange Rate cannot be null when project functional rate type is User.
14262: FND_MESSAGE.SET_NAME('PA','PA_EXCH_RATE_NULL_PF_AMG');
14263: FND_MSG_PUB.ADD;
14264: RAISE FND_API.G_EXC_ERROR;
14265: END IF;
14266: END IF;
14267:
14268: l_statement := l_statement || ' PROJFUNC_BIL_EXCHANGE_RATE = :pjfnc_bil_xch_rt ,';
14276: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14277: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14278: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
14279: FND_MSG_PUB.ADD;
14280: RAISE FND_API.G_EXC_ERROR;
14281: END IF;
14282: ELSE
14283: IF p_project_in.PROJFUNC_BIL_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
14284: IF p_project_in.PROJFUNC_BIL_RATE_DATE is NULL
14286: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14287: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14288: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Project Functional Currency');
14289: FND_MSG_PUB.ADD;
14290: RAISE FND_API.G_EXC_ERROR;
14291: END IF;
14292: END IF;
14293: END IF;
14294: l_statement := l_statement || ' PROJFUNC_BIL_RATE_DATE = :prjfnc_bil_rt_date , ';
14312: OR p_project_in.FUNDING_RATE_TYPE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN -- PA_FUND_RATE_TYPE_INV_AMG:The funding exchage rate type is invalid
14313: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14314: FND_MESSAGE.SET_NAME('PA','PA_FUND_RATE_TYPE_INV_AMG');
14315: FND_MSG_PUB.ADD;
14316: RAISE FND_API.G_EXC_ERROR;
14317: END IF;
14318: ELSE
14319: IF p_project_in.FUNDING_RATE_TYPE = 'User' THEN
14320: IF p_project_in.FUNDING_EXCHANGE_RATE is NULL
14321: OR p_project_in.FUNDING_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
14322: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN -- PA_EXCHANGE_RATE_NULL:Exchange rate cannot be null when rate type is User.
14323: FND_MESSAGE.SET_NAME('PA','PA_EXCHANGE_RATE_NULL');
14324: FND_MSG_PUB.ADD;
14325: RAISE FND_API.G_EXC_ERROR;
14326: END IF;
14327: END IF;
14328: l_statement := l_statement || ' FUNDING_EXCHANGE_RATE = :fnding_xch_rt,';
14329: l_b_fnding_xch_rt_flag := 'Y';
14336: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14337: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_TYPE_INVALID_AMG');
14338: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14339: FND_MSG_PUB.ADD;
14340: RAISE FND_API.G_EXC_ERROR;
14341: END IF;
14342: ELSE
14343: IF p_project_in.FUNDING_RATE_DATE_CODE = 'FIXED_DATE' THEN --Modified for bug 6332591
14344: IF p_project_in.FUNDING_RATE_DATE is NULL
14346: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
14347: FND_MESSAGE.SET_NAME('PA','PA_RATE_DATE_INVALID_AMG');
14348: FND_MESSAGE.SET_TOKEN('CURR_TYPE','Funding Currency');
14349: FND_MSG_PUB.ADD;
14350: RAISE FND_API.G_EXC_ERROR;
14351: END IF;
14352: END IF;
14353: END IF;
14354: l_statement := l_statement || ' FUNDING_RATE_DATE = :fnding_rt_date ,';
15075:
15076: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
15077: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
15078:
15079: l_return_status := FND_API.G_RET_STS_ERROR;
15080:
15081: RAISE FND_API.G_EXC_ERROR;
15082:
15083: END IF;
15077: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
15078:
15079: l_return_status := FND_API.G_RET_STS_ERROR;
15080:
15081: RAISE FND_API.G_EXC_ERROR;
15082:
15083: END IF;
15084:
15085: END IF;
15172: ,p_attribute3 => ''
15173: ,p_attribute4 => ''
15174: ,p_attribute5 => '');
15175: END IF;
15176: RAISE FND_API.G_EXC_ERROR;
15177: /*bug 2891513 -Code ends*/
15178: ELSE
15179: l_statement := l_statement ||
15180: ' revaluate_funding_flag = :reval_fndng_flg ,';
15299: ,p_attribute3 => ''
15300: ,p_attribute4 => ''
15301: ,p_attribute5 => '');
15302: END IF;
15303: RAISE FND_API.G_EXC_ERROR;
15304: END IF;
15305: END IF;
15306: END IF;
15307:
15328: ,x_msg_count => l_msg_count
15329: ,x_msg_data => l_msg_data
15330: ,x_return_status => l_return_status
15331: );
15332: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15333: THEN
15334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15335:
15336: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15330: ,x_return_status => l_return_status
15331: );
15332: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15333: THEN
15334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15335:
15336: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15337: THEN
15338: p_multiple_task_msg := 'F';
15332: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15333: THEN
15334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15335:
15336: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15337: THEN
15338: p_multiple_task_msg := 'F';
15339: RAISE FND_API.G_EXC_ERROR;
15340: END IF;
15335:
15336: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15337: THEN
15338: p_multiple_task_msg := 'F';
15339: RAISE FND_API.G_EXC_ERROR;
15340: END IF;
15341:
15342: l_statement := l_statement ||
15343: ' asset_allocation_method = :as_alloc_mth ,';
15365: ,x_msg_count => l_msg_count
15366: ,x_msg_data => l_msg_data
15367: ,x_return_status => l_return_status
15368: );
15369: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15370: THEN
15371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15372:
15373: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15367: ,x_return_status => l_return_status
15368: );
15369: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15370: THEN
15371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15372:
15373: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15374: THEN
15375: p_multiple_task_msg := 'F';
15369: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15370: THEN
15371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15372:
15373: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15374: THEN
15375: p_multiple_task_msg := 'F';
15376: RAISE FND_API.G_EXC_ERROR;
15377: END IF;
15372:
15373: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15374: THEN
15375: p_multiple_task_msg := 'F';
15376: RAISE FND_API.G_EXC_ERROR;
15377: END IF;
15378:
15379: l_statement := l_statement ||
15380: ' capital_event_processing = :cp_evt_proc,';
15402: ,x_msg_count => l_msg_count
15403: ,x_msg_data => l_msg_data
15404: ,x_return_status => l_return_status
15405: );
15406: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15407: THEN
15408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15409:
15410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15404: ,x_return_status => l_return_status
15405: );
15406: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15407: THEN
15408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15409:
15410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15411: THEN
15412: p_multiple_task_msg := 'F';
15406: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15407: THEN
15408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15409:
15410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15411: THEN
15412: p_multiple_task_msg := 'F';
15413: RAISE FND_API.G_EXC_ERROR;
15414: END IF;
15409:
15410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15411: THEN
15412: p_multiple_task_msg := 'F';
15413: RAISE FND_API.G_EXC_ERROR;
15414: END IF;
15415:
15416: l_statement := l_statement ||
15417: ' cint_rate_sch_id = :cint_rt_sch ,';
15537: pa_debug.write(l_module_name,'l_project_id='||l_project_id,3);
15538: pa_debug.write(l_module_name,'l_return_status='||l_return_status,3);
15539: END IF;
15540:
15541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15542: THEN
15543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15545: THEN
15539: END IF;
15540:
15541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15542: THEN
15543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15545: THEN
15546: p_multiple_task_msg := 'F';
15547: RAISE FND_API.G_EXC_ERROR;
15540:
15541: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
15542: THEN
15543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15545: THEN
15546: p_multiple_task_msg := 'F';
15547: RAISE FND_API.G_EXC_ERROR;
15548: END IF;
15543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15544: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
15545: THEN
15546: p_multiple_task_msg := 'F';
15547: RAISE FND_API.G_EXC_ERROR;
15548: END IF;
15549:
15550: END IF;
15551:
15567: p_msg_count => l_msg_count,
15568: p_msg_data => l_msg_data,
15569: p_return_status => l_return_status,
15570: p_function_allowed => l_function_allowed);
15571: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15573: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
15574: RAISE FND_API.G_EXC_ERROR;
15575: END IF;
15568: p_msg_data => l_msg_data,
15569: p_return_status => l_return_status,
15570: p_function_allowed => l_function_allowed);
15571: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15573: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
15574: RAISE FND_API.G_EXC_ERROR;
15575: END IF;
15576:
15569: p_return_status => l_return_status,
15570: p_function_allowed => l_function_allowed);
15571: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15573: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
15574: RAISE FND_API.G_EXC_ERROR;
15575: END IF;
15576:
15577: IF l_function_allowed = 'N' THEN
15570: p_function_allowed => l_function_allowed);
15571: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15573: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
15574: RAISE FND_API.G_EXC_ERROR;
15575: END IF;
15576:
15577: IF l_function_allowed = 'N' THEN
15578: pa_interface_utils_pub.map_new_amg_msg
15584: ,p_attribute2 => ''
15585: ,p_attribute3 => ''
15586: ,p_attribute4 => ''
15587: ,p_attribute5 => '');
15588: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15589: RAISE FND_API.G_EXC_ERROR;
15590: END IF;
15591: ELSE
15592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15585: ,p_attribute3 => ''
15586: ,p_attribute4 => ''
15587: ,p_attribute5 => '');
15588: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15589: RAISE FND_API.G_EXC_ERROR;
15590: END IF;
15591: ELSE
15592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15593: pa_interface_utils_pub.map_new_amg_msg
15600: ,p_attribute3 => ''
15601: ,p_attribute4 => ''
15602: ,p_attribute5 => '');
15603: END IF;
15604: RAISE FND_API.G_EXC_ERROR;
15605: END IF;
15606:
15607: IF ( PA_BILLING_CORE.Update_Top_Task_Cust_Flag( l_project_id ) = 'Y' ) THEN
15608: l_statement := l_statement || ' enable_top_task_customer_flag = :enable_top_task_cust_flg ,';
15613: PA_UTILS.ADD_MESSAGE(
15614: p_app_short_name => 'PA',
15615: p_msg_name =>'PA_NO_TOP_TASK_CUST_ALLOWED'
15616: );
15617: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15618: RAISE FND_API.G_EXC_ERROR;
15619: END IF;
15620: --Bug 3279981 Review
15621: END IF;
15614: p_app_short_name => 'PA',
15615: p_msg_name =>'PA_NO_TOP_TASK_CUST_ALLOWED'
15616: );
15617: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15618: RAISE FND_API.G_EXC_ERROR;
15619: END IF;
15620: --Bug 3279981 Review
15621: END IF;
15622: END IF;
15637: p_msg_count => l_msg_count,
15638: p_msg_data => l_msg_data,
15639: p_return_status => l_return_status,
15640: p_function_allowed => l_function_allowed);
15641: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
15644: RAISE FND_API.G_EXC_ERROR;
15645: END IF;
15638: p_msg_data => l_msg_data,
15639: p_return_status => l_return_status,
15640: p_function_allowed => l_function_allowed);
15641: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
15644: RAISE FND_API.G_EXC_ERROR;
15645: END IF;
15646:
15639: p_return_status => l_return_status,
15640: p_function_allowed => l_function_allowed);
15641: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
15644: RAISE FND_API.G_EXC_ERROR;
15645: END IF;
15646:
15647: IF l_function_allowed = 'N' THEN
15640: p_function_allowed => l_function_allowed);
15641: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15643: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
15644: RAISE FND_API.G_EXC_ERROR;
15645: END IF;
15646:
15647: IF l_function_allowed = 'N' THEN
15648: pa_interface_utils_pub.map_new_amg_msg
15654: ,p_attribute2 => ''
15655: ,p_attribute3 => ''
15656: ,p_attribute4 => ''
15657: ,p_attribute5 => '');
15658: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15659: RAISE FND_API.G_EXC_ERROR;
15660: END IF;
15661: ELSE
15662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15655: ,p_attribute3 => ''
15656: ,p_attribute4 => ''
15657: ,p_attribute5 => '');
15658: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15659: RAISE FND_API.G_EXC_ERROR;
15660: END IF;
15661: ELSE
15662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15663: pa_interface_utils_pub.map_new_amg_msg
15670: ,p_attribute3 => ''
15671: ,p_attribute4 => ''
15672: ,p_attribute5 => '');
15673: END IF;
15674: RAISE FND_API.G_EXC_ERROR;
15675: END IF;
15676:
15677: IF ( PA_BILLING_CORE.Update_Top_Task_Inv_Mthd_Flag( l_project_id ) = 'Y'
15678: AND l_project_rec.invoice_method <> 'COST' ) THEN
15683: PA_UTILS.ADD_MESSAGE(
15684: p_app_short_name => 'PA',
15685: p_msg_name => 'PA_INV_MTH_TT_NOT_SET'
15686: );
15687: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15688: RAISE FND_API.G_EXC_ERROR;
15689: END IF;
15690: --Bug 3279981 Review
15691: END IF;
15684: p_app_short_name => 'PA',
15685: p_msg_name => 'PA_INV_MTH_TT_NOT_SET'
15686: );
15687: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15688: RAISE FND_API.G_EXC_ERROR;
15689: END IF;
15690: --Bug 3279981 Review
15691: END IF;
15692: END IF;
15732: ,p_attribute3 => ''
15733: ,p_attribute4 => ''
15734: ,p_attribute5 => '');
15735: END IF;
15736: RAISE FND_API.G_EXC_ERROR;
15737: END;
15738:
15739: END IF;
15740:
15763: PA_UTILS.ADD_MESSAGE(
15764: p_app_short_name => 'PA',
15765: p_msg_name => 'PA_FUNDS_FLAG_CANT_ENABLED'
15766: );
15767: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15768: RAISE FND_API.G_EXC_ERROR;
15769: END IF;
15770:
15771: IF nvl(l_chk_rev_inv_flag,'N')= 'Y' THEN
15764: p_app_short_name => 'PA',
15765: p_msg_name => 'PA_FUNDS_FLAG_CANT_ENABLED'
15766: );
15767: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15768: RAISE FND_API.G_EXC_ERROR;
15769: END IF;
15770:
15771: IF nvl(l_chk_rev_inv_flag,'N')= 'Y' THEN
15772:
15773: PA_UTILS.ADD_MESSAGE(
15774: p_app_short_name => 'PA',
15775: p_msg_name => 'PA_FUNDS_FLAG_NOT_UPDATBL'
15776: );
15777: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15778: RAISE FND_API.G_EXC_ERROR;
15779: END IF;
15780:
15781: l_statement := l_statement || ' date_eff_funds_consumption = :date_eff_funds_consumption ,';
15774: p_app_short_name => 'PA',
15775: p_msg_name => 'PA_FUNDS_FLAG_NOT_UPDATBL'
15776: );
15777: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15778: RAISE FND_API.G_EXC_ERROR;
15779: END IF;
15780:
15781: l_statement := l_statement || ' date_eff_funds_consumption = :date_eff_funds_consumption ,';
15782: l_date_eff_funds_flag := 'Y';
16419: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16420: END IF;
16421:
16422:
16423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16424: THEN
16425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16426:
16427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16421:
16422:
16423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16424: THEN
16425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16426:
16427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16428: THEN
16429: RAISE FND_API.G_EXC_ERROR;
16423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16424: THEN
16425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16426:
16427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16428: THEN
16429: RAISE FND_API.G_EXC_ERROR;
16430: END IF;
16431:
16425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16426:
16427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16428: THEN
16429: RAISE FND_API.G_EXC_ERROR;
16430: END IF;
16431:
16432: end if;
16433: -- End of changes
16475:
16476: if l_return_status <> 'S' then
16477: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
16478: p_msg_name => 'PA_ERR_MOD_PROJ_OPP_ATTR');
16479: RAISE FND_API.G_EXC_ERROR;
16480: end if;
16481: END IF;
16482: -- End of code changes for bug 4473105
16483:
16638: ,p_attribute5 => '');
16639: END IF;
16640:
16641: p_multiple_task_msg := 'F';
16642: RAISE FND_API.G_EXC_ERROR;
16643: end if;
16644:
16645: i := p_tasks_in.next(i);
16646: end loop;
16680: ,p_attribute5 => '');
16681: END IF;
16682:
16683: p_multiple_task_msg := 'F';
16684: RAISE FND_API.G_EXC_ERROR;
16685: END IF; -- bug 3548473 : 3627124
16686: END IF;
16687:
16688: -- 3858251 end
16715: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16716: END IF;
16717:
16718:
16719: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16720: THEN
16721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16722:
16723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16717:
16718:
16719: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16720: THEN
16721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16722:
16723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16724: THEN
16725: RAISE FND_API.G_EXC_ERROR;
16719: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16720: THEN
16721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16722:
16723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16724: THEN
16725: RAISE FND_API.G_EXC_ERROR;
16726: END IF;
16727:
16721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16722:
16723: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16724: THEN
16725: RAISE FND_API.G_EXC_ERROR;
16726: END IF;
16727:
16728: END IF; -- p_structure_in.structure_type = 'WORKPLAN'
16729:
16762: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16763: END IF;
16764:
16765:
16766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16767: THEN
16768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16769:
16770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16764:
16765:
16766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16767: THEN
16768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16769:
16770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16771: THEN
16772: RAISE FND_API.G_EXC_ERROR;
16766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16767: THEN
16768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16769:
16770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16771: THEN
16772: RAISE FND_API.G_EXC_ERROR;
16773: END IF;
16774: END IF; --<
16768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16769:
16770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16771: THEN
16772: RAISE FND_API.G_EXC_ERROR;
16773: END IF;
16774: END IF; --<
16775:
16776: END IF;
16804: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
16805: END IF;
16806:
16807:
16808: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16809: THEN
16810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16811:
16812: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16806:
16807:
16808: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16809: THEN
16810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16811:
16812: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16813: THEN
16814: RAISE FND_API.G_EXC_ERROR;
16808: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16809: THEN
16810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16811:
16812: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16813: THEN
16814: RAISE FND_API.G_EXC_ERROR;
16815: END IF;
16816: END IF;
16810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16811:
16812: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16813: THEN
16814: RAISE FND_API.G_EXC_ERROR;
16815: END IF;
16816: END IF;
16817: --Project Connect 4.0
16818:
16889: WHILE i IS NOT NULL LOOP
16890:
16891: l_task_id := NULL;
16892:
16893: l_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
16894:
16895: IF (p_tasks_in(i).pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16896: OR p_tasks_in(i).pa_task_id IS NULL )
16897: THEN
16911: ,p_attribute4 => ''
16912: ,p_attribute5 => '');
16913: END IF;
16914:
16915: l_tasks_out(i).return_status := FND_API.G_RET_STS_ERROR ;
16916: p_multiple_task_msg := 'F';
16917: -- RAISE FND_API.G_EXC_ERROR;
16918: ELSE
16919: OPEN l_get_task_csr
16913: END IF;
16914:
16915: l_tasks_out(i).return_status := FND_API.G_RET_STS_ERROR ;
16916: p_multiple_task_msg := 'F';
16917: -- RAISE FND_API.G_EXC_ERROR;
16918: ELSE
16919: OPEN l_get_task_csr
16920: (l_project_id,p_tasks_in(i).pm_task_reference);
16921: FETCH l_get_task_csr INTO l_task_id;
16932: ,p_pa_task_id => p_tasks_in(i).pa_task_id
16933: ,p_pm_task_reference => NULL
16934: ,p_out_task_id => l_task_id
16935: ,p_return_status => l_return_status );
16936: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16937: THEN
16938: l_tasks_out(i).return_status := l_return_status;
16939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16940:
16935: ,p_return_status => l_return_status );
16936: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16937: THEN
16938: l_tasks_out(i).return_status := l_return_status;
16939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16940:
16941: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16942: THEN
16943: l_tasks_out(i).return_status := l_return_status;
16937: THEN
16938: l_tasks_out(i).return_status := l_return_status;
16939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16940:
16941: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16942: THEN
16943: l_tasks_out(i).return_status := l_return_status;
16944: p_multiple_task_msg := 'F';
16945: -- RAISE FND_API.G_EXC_ERROR;
16941: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16942: THEN
16943: l_tasks_out(i).return_status := l_return_status;
16944: p_multiple_task_msg := 'F';
16945: -- RAISE FND_API.G_EXC_ERROR;
16946: END IF;
16947: END IF;
16948:
16949: l_amg_task_number := pa_interface_utils_pub.get_task_number_amg
16968: --if l_task_id is null, means this is a new task, so we should be raising an error at this point itself
16969: IF ( p_update_mode = 'PA_UPD_TASK_ATTR') THEN
16970: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16971: p_msg_name => 'PA_WBS_CANT_CHANGE');
16972: RAISE FND_API.G_EXC_ERROR;
16973: END IF;
16974:
16975: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
16976: (p_api_version_number => p_api_version_number,
16980: p_msg_data => l_msg_data,
16981: p_return_status => l_return_status,
16982: p_function_allowed => l_function_allowed);
16983:
16984: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16985: THEN
16986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16987:
16988: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16982: p_function_allowed => l_function_allowed);
16983:
16984: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16985: THEN
16986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16987:
16988: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16989: THEN
16990: p_multiple_task_msg := 'F';
16984: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
16985: THEN
16986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16987:
16988: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16989: THEN
16990: p_multiple_task_msg := 'F';
16991: -- RAISE FND_API.G_EXC_ERROR;
16992: END IF;
16987:
16988: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
16989: THEN
16990: p_multiple_task_msg := 'F';
16991: -- RAISE FND_API.G_EXC_ERROR;
16992: END IF;
16993:
16994: IF l_function_allowed = 'N' THEN
16995: pa_interface_utils_pub.map_new_amg_msg
17001: ,p_attribute2 => ''
17002: ,p_attribute3 => ''
17003: ,p_attribute4 => ''
17004: ,p_attribute5 => '');
17005: p_return_status := FND_API.G_RET_STS_ERROR;
17006: p_multiple_task_msg := 'F';
17007: -- RAISE FND_API.G_EXC_ERROR;
17008: END IF;
17009:
17003: ,p_attribute4 => ''
17004: ,p_attribute5 => '');
17005: p_return_status := FND_API.G_RET_STS_ERROR;
17006: p_multiple_task_msg := 'F';
17007: -- RAISE FND_API.G_EXC_ERROR;
17008: END IF;
17009:
17010: -- check whether the input task number is unique
17011: IF pa_task_utils.check_unique_task_number
17046: , p_pm_task_reference => p_tasks_in(i).pm_parent_task_reference
17047: , p_out_task_id => l_task_id_out
17048: , p_return_status => l_return_status );
17049: l_ref_task_id := l_task_id_out; --aditi Added for Bug 3801314 : Bug 3627124
17050: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
17051: THEN
17052:
17053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17054:
17049: l_ref_task_id := l_task_id_out; --aditi Added for Bug 3801314 : Bug 3627124
17050: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
17051: THEN
17052:
17053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17054:
17055: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
17056: THEN
17057: p_multiple_task_msg := 'F';
17051: THEN
17052:
17053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17054:
17055: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
17056: THEN
17057: p_multiple_task_msg := 'F';
17058: -- RAISE FND_API.G_EXC_ERROR;
17059: END IF;
17054:
17055: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
17056: THEN
17057: p_multiple_task_msg := 'F';
17058: -- RAISE FND_API.G_EXC_ERROR;
17059: END IF;
17060:
17061: PA_TASK_UTILS.Check_Create_Subtask_Ok
17062: ( x_task_id => l_task_id_out
17092: ,p_attribute4 => ''
17093: ,p_attribute5 => '');
17094: END IF;
17095: END IF;
17096: l_tasks_out(i).return_status := FND_API.G_RET_STS_ERROR;
17097: p_multiple_task_msg := 'F';
17098: -- RAISE FND_API.G_EXC_ERROR;
17099:
17100: END IF;
17094: END IF;
17095: END IF;
17096: l_tasks_out(i).return_status := FND_API.G_RET_STS_ERROR;
17097: p_multiple_task_msg := 'F';
17098: -- RAISE FND_API.G_EXC_ERROR;
17099:
17100: END IF;
17101: END IF;
17102:
17114: p_task_rec => l_task_rec,
17115: p_project_type_class_code => l_project_type_class_code,
17116: p_service_type_code => l_service_type_code,
17117: p_task_id => l_task_id);
17118: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17119: THEN
17120:
17121: l_tasks_out(i).return_status := l_return_status;
17122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17118: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17119: THEN
17120:
17121: l_tasks_out(i).return_status := l_return_status;
17122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17123:
17124: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17125: THEN
17126: l_tasks_out(i).return_status := l_return_status;
17120:
17121: l_tasks_out(i).return_status := l_return_status;
17122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17123:
17124: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17125: THEN
17126: l_tasks_out(i).return_status := l_return_status;
17127: p_multiple_task_msg := 'F';
17128: -- RAISE FND_API.G_EXC_ERROR;
17124: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17125: THEN
17126: l_tasks_out(i).return_status := l_return_status;
17127: p_multiple_task_msg := 'F';
17128: -- RAISE FND_API.G_EXC_ERROR;
17129:
17130: END IF;
17131: l_tasks_out(i).pa_task_id := l_task_id;
17132:
17176: p_in_task_tbl => p_tasks_in,
17177: p_proceed_with_update_flag => l_proceed_with_update_flag,
17178: p_return_status => l_return_status);
17179:
17180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17182: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17183: p_multiple_task_msg := 'F';
17184: -- RAISE FND_API.G_EXC_ERROR;
17177: p_proceed_with_update_flag => l_proceed_with_update_flag,
17178: p_return_status => l_return_status);
17179:
17180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17182: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17183: p_multiple_task_msg := 'F';
17184: -- RAISE FND_API.G_EXC_ERROR;
17185: END IF;
17178: p_return_status => l_return_status);
17179:
17180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17182: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17183: p_multiple_task_msg := 'F';
17184: -- RAISE FND_API.G_EXC_ERROR;
17185: END IF;
17186: ----dbms_output.put_line('value of l_proceed_with_update_flag'||l_proceed_with_update_flag);
17180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17182: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17183: p_multiple_task_msg := 'F';
17184: -- RAISE FND_API.G_EXC_ERROR;
17185: END IF;
17186: ----dbms_output.put_line('value of l_proceed_with_update_flag'||l_proceed_with_update_flag);
17187: IF l_proceed_with_update_flag = 'Y' THEN
17188:
17226: , p_pm_task_reference => p_tasks_in(i).pm_parent_task_reference
17227: , p_out_task_id => l_task_id_out
17228: , p_return_status => l_return_status );
17229: v_ref_task_id := l_task_id_out; --aditi Added for Bug 3798429: Bug 3801314
17230: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
17231: THEN
17232:
17233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17234:
17229: v_ref_task_id := l_task_id_out; --aditi Added for Bug 3798429: Bug 3801314
17230: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
17231: THEN
17232:
17233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17234:
17235: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
17236: THEN
17237: p_multiple_task_msg := 'F';
17231: THEN
17232:
17233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17234:
17235: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
17236: THEN
17237: p_multiple_task_msg := 'F';
17238: -- RAISE FND_API.G_EXC_ERROR;
17239: END IF;
17234:
17235: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
17236: THEN
17237: p_multiple_task_msg := 'F';
17238: -- RAISE FND_API.G_EXC_ERROR;
17239: END IF;
17240: ELSE
17241: v_ref_task_id := null;
17242: END IF;
17261: , p_msg_name => 'PA_SI_INVALID_FINISH_DATE'
17262: , p_token1 => 'SIFINISHDATE'
17263: , p_value1 => x_si_date);
17264:
17265: RAISE FND_API.G_EXC_ERROR;
17266:
17267: ELSE
17268: close cur_inv_date;
17269: END IF ;
17278: ----dbms_output.put_line('value of p_tasks_in(i).pa_task_number before calling update_task'||p_tasks_in(i).pa_task_number);
17279:
17280: Update_Task (
17281: p_api_version_number => p_api_version_number,
17282: p_commit => FND_API.G_FALSE,
17283: p_msg_count => p_msg_count,
17284: p_msg_data => p_msg_data,
17285: p_return_status => l_return_status,
17286: p_pm_product_code => p_pm_product_code,
17450:
17451:
17452: ----dbms_output.put_line('Value of return status of update_task' ||l_return_status);
17453:
17454: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17455: THEN
17456:
17457: l_tasks_out(i).return_status := l_return_status;
17458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17454: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17455: THEN
17456:
17457: l_tasks_out(i).return_status := l_return_status;
17458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17459:
17460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17461: THEN
17462: l_tasks_out(i).return_status := l_return_status;
17456:
17457: l_tasks_out(i).return_status := l_return_status;
17458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17459:
17460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17461: THEN
17462: l_tasks_out(i).return_status := l_return_status;
17463: p_multiple_task_msg := 'F';
17464: -- RAISE FND_API.G_EXC_ERROR;
17460: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17461: THEN
17462: l_tasks_out(i).return_status := l_return_status;
17463: p_multiple_task_msg := 'F';
17464: -- RAISE FND_API.G_EXC_ERROR;
17465:
17466: END IF;
17467:
17468: l_tasks_out(i).pa_task_id := l_task_id;
17512: pa_debug.write(l_module_name,'Calling update Task'||p_tasks_in(l_array_index).percent_complete,3);
17513: END IF;
17514: Update_Task (
17515: p_api_version_number => p_api_version_number,
17516: p_commit => FND_API.G_FALSE,
17517: p_msg_count => p_msg_count,
17518: p_msg_data => p_msg_data,
17519: p_return_status => l_return_status,
17520: p_pm_product_code => p_pm_product_code,
17729: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17730: END IF;
17731:
17732:
17733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17734: l_tasks_out(l_array_index).return_status := l_return_status;
17735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17737: l_tasks_out(l_array_index).return_status := l_return_status;
17731:
17732:
17733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17734: l_tasks_out(l_array_index).return_status := l_return_status;
17735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17737: l_tasks_out(l_array_index).return_status := l_return_status;
17738: p_multiple_task_msg := 'F';
17739: -- RAISE FND_API.G_EXC_ERROR;
17732:
17733: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17734: l_tasks_out(l_array_index).return_status := l_return_status;
17735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17737: l_tasks_out(l_array_index).return_status := l_return_status;
17738: p_multiple_task_msg := 'F';
17739: -- RAISE FND_API.G_EXC_ERROR;
17740: END IF;
17735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17736: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17737: l_tasks_out(l_array_index).return_status := l_return_status;
17738: p_multiple_task_msg := 'F';
17739: -- RAISE FND_API.G_EXC_ERROR;
17740: END IF;
17741: l_tasks_out(l_array_index).pa_task_id := l_out_pa_task_id;
17742: l_tasks_out(l_array_index).pm_task_reference := l_out_pm_task_reference;
17743: END LOOP;
17803: p_msg_data => l_msg_data,
17804: p_return_status => l_return_status,
17805: p_function_allowed => l_function_allowed);
17806:
17807: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17808: THEN
17809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17810:
17811: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17805: p_function_allowed => l_function_allowed);
17806:
17807: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17808: THEN
17809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17810:
17811: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17812: THEN
17813: p_multiple_task_msg := 'F';
17807: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17808: THEN
17809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17810:
17811: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17812: THEN
17813: p_multiple_task_msg := 'F';
17814: -- RAISE FND_API.G_EXC_ERROR;
17815: END IF;
17810:
17811: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17812: THEN
17813: p_multiple_task_msg := 'F';
17814: -- RAISE FND_API.G_EXC_ERROR;
17815: END IF;
17816:
17817: IF l_function_allowed = 'N' THEN
17818: pa_interface_utils_pub.map_new_amg_msg
17824: ,p_attribute2 => ''
17825: ,p_attribute3 => ''
17826: ,p_attribute4 => ''
17827: ,p_attribute5 => '');
17828: p_return_status := FND_API.G_RET_STS_ERROR;
17829: p_multiple_task_msg := 'F';
17830: -- RAISE FND_API.G_EXC_ERROR;
17831: END IF;
17832:
17826: ,p_attribute4 => ''
17827: ,p_attribute5 => '');
17828: p_return_status := FND_API.G_RET_STS_ERROR;
17829: p_multiple_task_msg := 'F';
17830: -- RAISE FND_API.G_EXC_ERROR;
17831: END IF;
17832:
17833: /* Code addition for bug 2982057 starts */
17834: IF l_task_rec.long_task_name IS NULL OR l_task_rec.long_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
17841: --DHI ER, bug 4413568
17842: IF ( p_update_mode = 'PA_UPD_TASK_ATTR' ) THEN --bug 4534919
17843: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
17844: p_msg_name => 'PA_WBS_CANT_CHANGE');
17845: RAISE FND_API.G_EXC_ERROR;
17846: END IF;
17847: PA_PROJECT_PVT.add_task_round_one
17848: (p_return_status => l_return_status,
17849: p_project_rec => l_project_rec,
17857: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17858: END IF;
17859:
17860:
17861: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17862:
17863: l_tasks_out(l_orig_index).return_status := l_return_status;
17864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17865:
17860:
17861: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17862:
17863: l_tasks_out(l_orig_index).return_status := l_return_status;
17864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17865:
17866: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17867: l_tasks_out(l_orig_index).return_status := l_return_status;
17868: p_multiple_task_msg := 'F';
17862:
17863: l_tasks_out(l_orig_index).return_status := l_return_status;
17864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17865:
17866: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17867: l_tasks_out(l_orig_index).return_status := l_return_status;
17868: p_multiple_task_msg := 'F';
17869: -- RAISE FND_API.G_EXC_ERROR;
17870: END IF;
17865:
17866: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
17867: l_tasks_out(l_orig_index).return_status := l_return_status;
17868: p_multiple_task_msg := 'F';
17869: -- RAISE FND_API.G_EXC_ERROR;
17870: END IF;
17871: l_tasks_out(l_orig_index).pa_task_id := l_task_id;
17872: --used to pass task_id to add_task_round_two API
17873: l_task_id_tbl(l_count).pa_task_id := l_task_id;
17915: , p_return_status => l_return_status );
17916: -- --dbms_output.put_line('Value of out task'||l_task_id_out);
17917: l_ref_task_id := l_task_id_out; --aditi Added for Bug 3548473
17918:
17919: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
17920: THEN
17921:
17922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17923:
17918:
17919: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
17920: THEN
17921:
17922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17923:
17924: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
17925: THEN
17926: p_multiple_task_msg := 'F';
17920: THEN
17921:
17922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17923:
17924: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
17925: THEN
17926: p_multiple_task_msg := 'F';
17927: -- RAISE FND_API.G_EXC_ERROR;
17928: END IF;
17923:
17924: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
17925: THEN
17926: p_multiple_task_msg := 'F';
17927: -- RAISE FND_API.G_EXC_ERROR;
17928: END IF;
17929: ELSE
17930: l_ref_task_id := null;
17931:
17961: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
17962: END IF;
17963:
17964:
17965: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17966: THEN
17967:
17968: l_tasks_out(i).return_status := l_return_status;
17969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17965: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
17966: THEN
17967:
17968: l_tasks_out(i).return_status := l_return_status;
17969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17970:
17971: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17972: THEN
17973:
17967:
17968: l_tasks_out(i).return_status := l_return_status;
17969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17970:
17971: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
17972: THEN
17973:
17974: l_tasks_out(i).return_status := l_return_status;
17975: l_tasks_out(i).task_version_id := l_task_version_id;
17973:
17974: l_tasks_out(i).return_status := l_return_status;
17975: l_tasks_out(i).task_version_id := l_task_version_id;
17976: p_multiple_task_msg := 'F';
17977: -- RAISE FND_API.G_EXC_ERROR;
17978:
17979:
17980: END IF;
17981:
18009: ,p_structure_version_id => l_structure_version_id
18010: ,x_return_status => l_return_status
18011: ,x_msg_count => l_msg_count
18012: ,x_msg_data => l_msg_data ) ;
18013: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18014: THEN
18015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18016: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18017: THEN
18011: ,x_msg_count => l_msg_count
18012: ,x_msg_data => l_msg_data ) ;
18013: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18014: THEN
18015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18016: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18017: THEN
18018: RAISE FND_API.G_EXC_ERROR;
18019: END IF;
18012: ,x_msg_data => l_msg_data ) ;
18013: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18014: THEN
18015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18016: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18017: THEN
18018: RAISE FND_API.G_EXC_ERROR;
18019: END IF;
18020: ELSIF p_project_in.process_mode = 'CONCURRENT' THEN
18014: THEN
18015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18016: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18017: THEN
18018: RAISE FND_API.G_EXC_ERROR;
18019: END IF;
18020: ELSIF p_project_in.process_mode = 'CONCURRENT' THEN
18021:
18022: PA_PROJ_TASK_STRUC_PUB. PROCESS_WBS_UPDATES_CONC_WRP(p_calling_context => 'CONC_UPDATE'
18024: ,p_structure_version_id => l_structure_version_id
18025: ,x_return_status => l_return_status
18026: ,x_msg_count => l_msg_count
18027: ,x_msg_data => l_msg_data ) ;
18028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18029: THEN
18030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18031: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18032: THEN
18026: ,x_msg_count => l_msg_count
18027: ,x_msg_data => l_msg_data ) ;
18028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18029: THEN
18030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18031: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18032: THEN
18033: RAISE FND_API.G_EXC_ERROR;
18034: END IF;
18027: ,x_msg_data => l_msg_data ) ;
18028: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18029: THEN
18030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18031: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18032: THEN
18033: RAISE FND_API.G_EXC_ERROR;
18034: END IF;
18035: END IF ;
18029: THEN
18030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18031: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18032: THEN
18033: RAISE FND_API.G_EXC_ERROR;
18034: END IF;
18035: END IF ;
18036: END IF ;
18037: END IF ;
18058: ,x_return_status => l_return_status
18059: ,x_msg_count => l_msg_count
18060: ,x_msg_data => l_msg_data );
18061:
18062: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
18063: RAISE FND_API.G_EXC_ERROR;
18064: end if;
18065: END IF;
18066: --bug 3010538 and 3035902
18059: ,x_msg_count => l_msg_count
18060: ,x_msg_data => l_msg_data );
18061:
18062: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
18063: RAISE FND_API.G_EXC_ERROR;
18064: end if;
18065: END IF;
18066: --bug 3010538 and 3035902
18067:
18087: ,p_attribute3 => ''
18088: ,p_attribute4 => ''
18089: ,p_attribute5 => '');
18090: END IF;
18091: RAISE FND_API.G_EXC_ERROR;
18092: END IF;
18093:
18094: v_first_index := i;
18095:
18108: ,p_attribute3 => ''
18109: ,p_attribute4 => ''
18110: ,p_attribute5 => '');
18111: END IF;
18112: RAISE FND_API.G_EXC_ERROR;
18113: l_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
18114: ELSIF ( p_structure_in.structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
18115: p_structure_in.structure_version_id IS NOT NULL )
18116: THEN
18109: ,p_attribute4 => ''
18110: ,p_attribute5 => '');
18111: END IF;
18112: RAISE FND_API.G_EXC_ERROR;
18113: l_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
18114: ELSIF ( p_structure_in.structure_version_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
18115: p_structure_in.structure_version_id IS NOT NULL )
18116: THEN
18117: l_structure_version_id := p_structure_in.structure_version_id;
18122: /* WHILE i IS NOT NULL LOOP
18123:
18124: l_task_id := NULL;
18125:
18126: l_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
18127:
18128: --get the previous task
18129: IF i = v_first_index
18130: THEN
18155: ,p_attribute3 => ''
18156: ,p_attribute4 => ''
18157: ,p_attribute5 => '');
18158: END IF;
18159: l_tasks_out(i).return_status := FND_API.G_RET_STS_ERROR ;
18160: RAISE FND_API.G_EXC_ERROR;
18161: ELSE
18162: --If pm_task_reference is provided and task id is null then its a create
18163: --create task
18156: ,p_attribute4 => ''
18157: ,p_attribute5 => '');
18158: END IF;
18159: l_tasks_out(i).return_status := FND_API.G_RET_STS_ERROR ;
18160: RAISE FND_API.G_EXC_ERROR;
18161: ELSE
18162: --If pm_task_reference is provided and task id is null then its a create
18163: --create task
18164: /* --get the previous task
18194: p_msg_data => l_msg_data,
18195: p_return_status => l_return_status,
18196: p_function_allowed => l_function_allowed);
18197:
18198: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18199: THEN
18200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18201: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18202: THEN
18196: p_function_allowed => l_function_allowed);
18197:
18198: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18199: THEN
18200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18201: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18202: THEN
18203: p_multiple_task_msg := 'F';
18204: -- RAISE FND_API.G_EXC_ERROR;
18197:
18198: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18199: THEN
18200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18201: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18202: THEN
18203: p_multiple_task_msg := 'F';
18204: -- RAISE FND_API.G_EXC_ERROR;
18205: END IF;
18200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18201: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18202: THEN
18203: p_multiple_task_msg := 'F';
18204: -- RAISE FND_API.G_EXC_ERROR;
18205: END IF;
18206:
18207: IF l_function_allowed = 'N' THEN
18208: pa_interface_utils_pub.map_new_amg_msg
18214: ,p_attribute2 => ''
18215: ,p_attribute3 => ''
18216: ,p_attribute4 => ''
18217: ,p_attribute5 => '');
18218: p_return_status := FND_API.G_RET_STS_ERROR;
18219: p_multiple_task_msg := 'F';
18220: -- RAISE FND_API.G_EXC_ERROR;
18221: END IF;
18222:
18216: ,p_attribute4 => ''
18217: ,p_attribute5 => '');
18218: p_return_status := FND_API.G_RET_STS_ERROR;
18219: p_multiple_task_msg := 'F';
18220: -- RAISE FND_API.G_EXC_ERROR;
18221: END IF;
18222:
18223: IF (p_tasks_in(i).pa_parent_task_id IS NOT NULL
18224: AND p_tasks_in(i).pa_parent_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
18235: ,x_parent_task_id => v_parent_task_id
18236: ,x_return_status => l_return_status
18237: );
18238:
18239: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
18240: THEN
18241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18242: THEN
18243: pa_interface_utils_pub.map_new_amg_msg
18250: ,p_attribute3 => ''
18251: ,p_attribute4 => ''
18252: ,p_attribute5 => '');
18253: END IF;
18254: RAISE FND_API.G_EXC_ERROR;
18255: END IF;
18256:
18257: ELSE
18258: v_parent_task_id := null;
18316: l_tasks_out(i).pa_task_id := v_task_id;
18317: l_tasks_out(i).task_version_id := l_task_version_id;
18318: l_tasks_out(i).pm_task_reference := p_tasks_in(i).pm_task_reference;
18319:
18320: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18321: THEN
18322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18323:
18324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18318: l_tasks_out(i).pm_task_reference := p_tasks_in(i).pm_task_reference;
18319:
18320: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18321: THEN
18322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18323:
18324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18325: THEN
18326: p_multiple_task_msg := 'F';
18320: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18321: THEN
18322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18323:
18324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18325: THEN
18326: p_multiple_task_msg := 'F';
18327: RAISE FND_API.G_EXC_ERROR;
18328: END IF;
18323:
18324: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18325: THEN
18326: p_multiple_task_msg := 'F';
18327: RAISE FND_API.G_EXC_ERROR;
18328: END IF;
18329:
18330: i := p_tasks_in.next(i);
18331:
18348: p_msg_data => l_msg_data,
18349: p_return_status => l_return_status,
18350: p_function_allowed => l_function_allowed );
18351:
18352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18353: THEN
18354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18355:
18356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18350: p_function_allowed => l_function_allowed );
18351:
18352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18353: THEN
18354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18355:
18356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18357: THEN
18358: RAISE FND_API.G_EXC_ERROR;
18352: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18353: THEN
18354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18355:
18356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18357: THEN
18358: RAISE FND_API.G_EXC_ERROR;
18359: END IF;
18360: IF l_function_allowed = 'N' THEN
18354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18355:
18356: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18357: THEN
18358: RAISE FND_API.G_EXC_ERROR;
18359: END IF;
18360: IF l_function_allowed = 'N' THEN
18361: pa_interface_utils_pub.map_new_amg_msg
18362: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
18367: ,p_attribute2 => ''
18368: ,p_attribute3 => ''
18369: ,p_attribute4 => ''
18370: ,p_attribute5 => '');
18371: p_return_status := FND_API.G_RET_STS_ERROR;
18372: RAISE FND_API.G_EXC_ERROR;
18373: END IF;
18374:
18375: PA_PROJ_TASK_STRUC_PUB.UPDATE_TASK_STRUCTURE(
18368: ,p_attribute3 => ''
18369: ,p_attribute4 => ''
18370: ,p_attribute5 => '');
18371: p_return_status := FND_API.G_RET_STS_ERROR;
18372: RAISE FND_API.G_EXC_ERROR;
18373: END IF;
18374:
18375: PA_PROJ_TASK_STRUC_PUB.UPDATE_TASK_STRUCTURE(
18376: p_project_id => l_project_id
18427: ,x_return_status => l_return_status
18428: );
18429: -- assign the appropriate values to the task out record
18430: l_tasks_out(i).return_status := l_return_status;
18431: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18432: THEN
18433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18434:
18435: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18429: -- assign the appropriate values to the task out record
18430: l_tasks_out(i).return_status := l_return_status;
18431: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18432: THEN
18433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18434:
18435: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18436: THEN
18437: p_multiple_task_msg := 'F';
18431: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18432: THEN
18433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18434:
18435: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18436: THEN
18437: p_multiple_task_msg := 'F';
18438: RAISE FND_API.G_EXC_ERROR;
18439: END IF;
18434:
18435: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18436: THEN
18437: p_multiple_task_msg := 'F';
18438: RAISE FND_API.G_EXC_ERROR;
18439: END IF;
18440: l_tasks_out(i).pa_task_id := p_tasks_in(i).pa_task_id;
18441: l_tasks_out(i).pm_task_reference := p_tasks_in(i).pm_task_reference;
18442: i := p_tasks_in.next(i);
18449: --project structure
18450:
18451: IF p_multiple_task_msg = 'F'
18452: THEN
18453: RAISE FND_API.G_EXC_ERROR;
18454: END IF;
18455:
18456: --Added for bug 2931183
18457: IF nvl(p_pm_product_code,'WORKPLAN') <> 'WORKPLAN' AND p_pass_entire_structure = 'Y' -- bug 3548473 : 3627124
18462: END IF;
18463:
18464: PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK(
18465: p_api_version_number => p_api_version_number
18466: ,p_commit => FND_API.G_FALSE--bug 3766967
18467: ,p_project_id => l_project_id
18468: ,p_source_project_id => l_project_in_rec.created_from_project_id --ADUT. Included this new param.
18469: ,p_pm_product_code => p_pm_product_code
18470: ,p_structure_type => l_structure_type --for bug 3005458
18486: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
18487: END IF;
18488:
18489:
18490: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18491: IF l_debug_mode = 'Y' THEN
18492: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
18493: pa_debug.write(l_module_name,pa_debug.g_err_stage,4);
18494: END IF;
18492: pa_debug.g_err_stage := 'Errors in PROCESS_TASK_STRUCTURE_BULK ' ;
18493: pa_debug.write(l_module_name,pa_debug.g_err_stage,4);
18494: END IF;
18495: p_multiple_task_msg := 'F';
18496: RAISE FND_API.G_EXC_ERROR;
18497: END IF;
18498:
18499: IF l_debug_mode = 'Y' THEN
18500: pa_debug.g_err_stage := 'Returned from PA_PROJ_TASK_STRUC_PUB.PROCESS_TASK_STRUCTURE_BULK ' ;
18527: ,p_structure_version_id => l_structure_version_id
18528: ,x_return_status => l_return_status
18529: ,x_msg_count => l_msg_count
18530: ,x_msg_data => l_msg_data ) ;
18531: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18532: THEN
18533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18534: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18535: THEN
18529: ,x_msg_count => l_msg_count
18530: ,x_msg_data => l_msg_data ) ;
18531: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18532: THEN
18533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18534: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18535: THEN
18536: RAISE FND_API.G_EXC_ERROR;
18537: END IF;
18530: ,x_msg_data => l_msg_data ) ;
18531: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18532: THEN
18533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18534: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18535: THEN
18536: RAISE FND_API.G_EXC_ERROR;
18537: END IF;
18538: ELSIF p_project_in.process_mode = 'CONCURRENT' THEN
18532: THEN
18533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18534: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18535: THEN
18536: RAISE FND_API.G_EXC_ERROR;
18537: END IF;
18538: ELSIF p_project_in.process_mode = 'CONCURRENT' THEN
18539:
18540: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_CONC_WRP(p_calling_context => 'CONC_UPDATE'
18542: ,p_structure_version_id => l_structure_version_id
18543: ,x_return_status => l_return_status
18544: ,x_msg_count => l_msg_count
18545: ,x_msg_data => l_msg_data ) ;
18546: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18547: THEN
18548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18549: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18550: THEN
18544: ,x_msg_count => l_msg_count
18545: ,x_msg_data => l_msg_data ) ;
18546: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18547: THEN
18548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18549: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18550: THEN
18551: RAISE FND_API.G_EXC_ERROR;
18552: END IF;
18545: ,x_msg_data => l_msg_data ) ;
18546: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18547: THEN
18548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18549: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18550: THEN
18551: RAISE FND_API.G_EXC_ERROR;
18552: END IF;
18553: END IF ;
18547: THEN
18548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18549: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18550: THEN
18551: RAISE FND_API.G_EXC_ERROR;
18552: END IF;
18553: END IF ;
18554: END IF ;
18555: END IF ;
18584: ,x_msg_data => l_msg_data
18585: ,x_return_status => l_return_status
18586: );
18587:
18588: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18589: THEN
18590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18591:
18592: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18586: );
18587:
18588: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18589: THEN
18590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18591:
18592: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18593: THEN
18594: p_multiple_task_msg := 'F';
18588: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18589: THEN
18590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18591:
18592: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18593: THEN
18594: p_multiple_task_msg := 'F';
18595: RAISE FND_API.G_EXC_ERROR;
18596: END IF;
18591:
18592: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18593: THEN
18594: p_multiple_task_msg := 'F';
18595: RAISE FND_API.G_EXC_ERROR;
18596: END IF;
18597: END IF;
18598: --bug 2856033
18599:
18628: ,x_msg_data => l_msg_data
18629: ,x_return_status => l_return_status
18630: );
18631:
18632: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18633: THEN
18634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18635:
18636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18630: );
18631:
18632: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18633: THEN
18634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18635:
18636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18637: THEN
18638: p_multiple_task_msg := 'F';
18632: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
18633: THEN
18634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18635:
18636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18637: THEN
18638: p_multiple_task_msg := 'F';
18639: RAISE FND_API.G_EXC_ERROR;
18640: END IF;
18635:
18636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
18637: THEN
18638: p_multiple_task_msg := 'F';
18639: RAISE FND_API.G_EXC_ERROR;
18640: END IF;
18641: END IF; -- 13923366 changes end
18642: END IF; -- -- Added for Huawei DJ::
18643: --bug 2856033
18651:
18652:
18653: IF p_multiple_task_msg = 'F'
18654: THEN
18655: RAISE FND_API.G_EXC_ERROR;
18656: END IF;
18657:
18658: p_tasks_out := l_tasks_out;
18659:
18692: ,p_attribute3 => ''
18693: ,p_attribute4 => ''
18694: ,p_attribute5 => '');
18695: END IF;
18696: RAISE FND_API.G_EXC_ERROR;
18697:
18698: END IF;
18699: END IF;
18700: END IF;
18723: IF l_max_task_date > l_project_completion_date
18724: THEN
18725:
18726: CLOSE l_max_task_end_date_csr;
18727: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
18728:
18729: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18730: THEN
18731: /* The FND_AS_UNEXPECTED_ERROR message is being reported from UPDATE_PROJECT API and modified
18744: ,p_attribute3 => ''
18745: ,p_attribute4 => ''
18746: ,p_attribute5 => '');
18747: END IF;
18748: RAISE FND_API.G_EXC_ERROR;
18749:
18750: END IF;
18751: END IF;
18752: END IF;
18761: Pa_project_pvt.check_parent_child_task_dates
18762: (p_project_id => l_project_id,
18763: p_return_status => l_return_status );
18764:
18765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18767: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
18768: RAISE FND_API.G_EXC_ERROR;
18769: END IF;
18762: (p_project_id => l_project_id,
18763: p_return_status => l_return_status );
18764:
18765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18767: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
18768: RAISE FND_API.G_EXC_ERROR;
18769: END IF;
18770: G_ParchildTsk_chks_deferred := 'N';
18763: p_return_status => l_return_status );
18764:
18765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18767: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
18768: RAISE FND_API.G_EXC_ERROR;
18769: END IF;
18770: G_ParchildTsk_chks_deferred := 'N';
18771: END IF;
18764:
18765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18766: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18767: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
18768: RAISE FND_API.G_EXC_ERROR;
18769: END IF;
18770: G_ParchildTsk_chks_deferred := 'N';
18771: END IF;
18772:
18795: ,p_value3 => p_key_members(i).project_role_type
18796: );
18797: END IF;
18798: p_multiple_task_msg := 'F';
18799: RAISE FND_API.G_EXC_ERROR;
18800: END IF;
18801: -- validate the role type introduced for Bug#5196996
18802: OPEN l_project_role_types_csr (p_key_members(i).project_role_type,l_project_id);
18803: FETCH l_project_role_types_csr INTO l_dummy;
18817: ,p_attribute4 => ''
18818: ,p_attribute5 => '');
18819: END IF;
18820: CLOSE l_project_role_types_csr;
18821: RAISE FND_API.G_EXC_ERROR;
18822: ELSE
18823: CLOSE l_project_role_types_csr;
18824: END IF;
18825: -- end of changes for Bug#5196996
18855: ,p_attribute3 => ''
18856: ,p_attribute4 => ''
18857: ,p_attribute5 => '');
18858: p_multiple_task_msg := 'F';
18859: -- RAISE FND_API.G_EXC_ERROR;
18860: END IF;
18861: END IF;
18862: END IF;
18863:
18868: p_key_members(i).start_date,
18869: p_key_members(i).end_date,
18870: l_return_status );
18871:
18872: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18873: p_return_status := l_return_status;
18874: p_project_out.return_status := l_return_status;
18875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18876: END IF;
18871:
18872: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
18873: p_return_status := l_return_status;
18874: p_project_out.return_status := l_return_status;
18875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18876: END IF;
18877: END IF;
18878: IF l_key_members_tbl.EXISTS(1) THEN
18879: l_count := l_key_members_tbl.COUNT + 1;
18942: end if;
18943: END IF;
18944: END IF;
18945: IF l_temp_end_date < l_temp_start_date THEN
18946: p_return_status := FND_API.G_RET_STS_ERROR;
18947: IF FND_MSG_PUB.Check_Msg_Level
18948: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
18949: pa_interface_utils_pub.map_new_amg_msg
18950: ( p_old_message_code => 'PA_PR_INVALID_KM_DATES'
18990: if l_key_members_rec.scheduled_flag = 'N' OR l_key_members_rec.scheduled_flag IS NULL
18991: then
18992: PA_PROJECT_PARTIES_PUB.UPDATE_PROJECT_PARTY(
18993: p_api_version => 1.0 -- p_api_version
18994: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
18995: , p_commit => FND_API.G_FALSE -- p_commit
18996: , p_validate_only => FND_API.G_FALSE -- p_validate_only
18997: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
18998: , p_debug_mode => 'N' -- p_debug_mode
18991: then
18992: PA_PROJECT_PARTIES_PUB.UPDATE_PROJECT_PARTY(
18993: p_api_version => 1.0 -- p_api_version
18994: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
18995: , p_commit => FND_API.G_FALSE -- p_commit
18996: , p_validate_only => FND_API.G_FALSE -- p_validate_only
18997: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
18998: , p_debug_mode => 'N' -- p_debug_mode
18999: , p_object_id => l_key_members_rec.project_id -- p_object_id
18992: PA_PROJECT_PARTIES_PUB.UPDATE_PROJECT_PARTY(
18993: p_api_version => 1.0 -- p_api_version
18994: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
18995: , p_commit => FND_API.G_FALSE -- p_commit
18996: , p_validate_only => FND_API.G_FALSE -- p_validate_only
18997: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
18998: , p_debug_mode => 'N' -- p_debug_mode
18999: , p_object_id => l_key_members_rec.project_id -- p_object_id
19000: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
18993: p_api_version => 1.0 -- p_api_version
18994: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
18995: , p_commit => FND_API.G_FALSE -- p_commit
18996: , p_validate_only => FND_API.G_FALSE -- p_validate_only
18997: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
18998: , p_debug_mode => 'N' -- p_debug_mode
18999: , p_object_id => l_key_members_rec.project_id -- p_object_id
19000: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
19001: , p_project_role_id => NULL -------Bug 2100142l_key_members_rec.project_id -- p_project_role_id
19018: , x_return_status => x_return_status -- x_return_status
19019: , x_msg_count => x_msg_count -- x_msg_count
19020: , x_msg_data => x_msg_data -- x_msg_data
19021: );
19022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
19023: p_return_status := x_return_status;
19024: p_msg_count := x_msg_count;
19025: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19026: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
19023: p_return_status := x_return_status;
19024: p_msg_count := x_msg_count;
19025: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19026: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19027: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19028: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19029: raise FND_API.G_EXC_ERROR;
19030: end if;
19023: p_return_status := x_return_status;
19024: p_msg_count := x_msg_count;
19025: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19026: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19027: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19028: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19029: raise FND_API.G_EXC_ERROR;
19030: end if;
19031: END IF;
19024: p_msg_count := x_msg_count;
19025: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19026: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19027: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19028: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19029: raise FND_API.G_EXC_ERROR;
19030: end if;
19031: END IF;
19032: end if;
19025: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19026: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19027: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19028: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19029: raise FND_API.G_EXC_ERROR;
19030: end if;
19031: END IF;
19032: end if;
19033: -- end NEW code for ROLE BASED SECURITY
19038: END LOOP;
19039:
19040: IF p_multiple_task_msg = 'F'
19041: THEN
19042: RAISE FND_API.G_EXC_ERROR;
19043: END IF;
19044:
19045: IF l_key_members_tbl.COUNT > 0 THEN
19046: PA_PROJECT_PVT.add_key_members (
19047: p_return_status =>l_return_status,
19048: p_pa_source_template_id =>l_project_rec.created_from_project_id,
19049: p_project_id =>l_project_id,
19050: p_key_members =>l_key_members_tbl );
19051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
19052: p_return_status := l_return_status;
19053: p_project_out.return_status := l_return_status;
19054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
19050: p_key_members =>l_key_members_tbl );
19051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
19052: p_return_status := l_return_status;
19053: p_project_out.return_status := l_return_status;
19054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
19056: p_return_status := l_return_status;
19057: p_project_out.return_status := l_return_status;
19058: RAISE FND_API.G_EXC_ERROR;
19051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
19052: p_return_status := l_return_status;
19053: p_project_out.return_status := l_return_status;
19054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
19056: p_return_status := l_return_status;
19057: p_project_out.return_status := l_return_status;
19058: RAISE FND_API.G_EXC_ERROR;
19059: END IF;
19054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
19056: p_return_status := l_return_status;
19057: p_project_out.return_status := l_return_status;
19058: RAISE FND_API.G_EXC_ERROR;
19059: END IF;
19060: END IF;
19061:
19062: /* Start of code for bug #2111806
19064: Manager exists for the complete duration of the Project. */
19065: pa_project_check_pvt.check_manager_date_range(p_project_id => l_project_id
19066: ,p_return_status => l_return_status);
19067:
19068: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
19069: THEN
19070: p_project_out.return_status := l_return_status;
19071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19072:
19067:
19068: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
19069: THEN
19070: p_project_out.return_status := l_return_status;
19071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19072:
19073: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
19074: THEN
19075:
19069: THEN
19070: p_project_out.return_status := l_return_status;
19071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19072:
19073: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
19074: THEN
19075:
19076: p_project_out.return_status := l_return_status;
19077: RAISE FND_API.G_EXC_ERROR;
19073: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
19074: THEN
19075:
19076: p_project_out.return_status := l_return_status;
19077: RAISE FND_API.G_EXC_ERROR;
19078: END IF;
19079: /* End of code for bug #2111806 */
19080:
19081: END IF;
19101: pa_utils.add_message
19102: ( p_app_short_name => 'PA'
19103: ,p_msg_name => 'PA_PR_INSUF_PROJ_MGR'
19104: );
19105: RAISE FND_API.G_EXC_ERROR;
19106: END IF;
19107: END IF;
19108: END IF;
19109: /* End of code for bug #2111806 */
19171: ELSE
19172: l_temp_end_date := l_org_roles_rec.end_date_active;
19173: END IF;
19174: IF l_temp_end_date < l_temp_start_date THEN
19175: p_return_status := FND_API.G_RET_STS_ERROR;
19176: IF FND_MSG_PUB.Check_Msg_Level
19177: (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
19178: pa_interface_utils_pub.map_new_amg_msg
19179: ( p_old_message_code => 'PA_PR_INVALID_OR_DATES'
19205: if l_org_roles_rec.scheduled_flag = 'N'
19206: then
19207: PA_PROJECT_PARTIES_PUB.UPDATE_PROJECT_PARTY(
19208: p_api_version => 1.0 -- p_api_version
19209: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
19210: , p_commit => FND_API.G_FALSE -- p_commit
19211: , p_validate_only => FND_API.G_FALSE -- p_validate_only
19212: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
19213: , p_debug_mode => 'N' -- p_debug_mode
19206: then
19207: PA_PROJECT_PARTIES_PUB.UPDATE_PROJECT_PARTY(
19208: p_api_version => 1.0 -- p_api_version
19209: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
19210: , p_commit => FND_API.G_FALSE -- p_commit
19211: , p_validate_only => FND_API.G_FALSE -- p_validate_only
19212: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
19213: , p_debug_mode => 'N' -- p_debug_mode
19214: , p_object_id => l_org_roles_rec.project_id -- p_object_id
19207: PA_PROJECT_PARTIES_PUB.UPDATE_PROJECT_PARTY(
19208: p_api_version => 1.0 -- p_api_version
19209: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
19210: , p_commit => FND_API.G_FALSE -- p_commit
19211: , p_validate_only => FND_API.G_FALSE -- p_validate_only
19212: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
19213: , p_debug_mode => 'N' -- p_debug_mode
19214: , p_object_id => l_org_roles_rec.project_id -- p_object_id
19215: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
19208: p_api_version => 1.0 -- p_api_version
19209: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
19210: , p_commit => FND_API.G_FALSE -- p_commit
19211: , p_validate_only => FND_API.G_FALSE -- p_validate_only
19212: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
19213: , p_debug_mode => 'N' -- p_debug_mode
19214: , p_object_id => l_org_roles_rec.project_id -- p_object_id
19215: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
19216: , p_project_role_id => NULL -------Bug 2100142l_key_members_rec.project_id -- p_project_role_id
19233: , x_return_status => x_return_status -- x_return_status
19234: , x_msg_count => x_msg_count -- x_msg_count
19235: , x_msg_data => x_msg_data -- x_msg_data
19236: );
19237: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
19238: p_return_status := x_return_status;
19239: p_msg_count := x_msg_count;
19240: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19241: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19237: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
19238: p_return_status := x_return_status;
19239: p_msg_count := x_msg_count;
19240: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19241: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19242: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19243: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19244: raise FND_API.G_EXC_ERROR;
19245: end if;
19238: p_return_status := x_return_status;
19239: p_msg_count := x_msg_count;
19240: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19241: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19242: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19243: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19244: raise FND_API.G_EXC_ERROR;
19245: end if;
19246: END IF;
19239: p_msg_count := x_msg_count;
19240: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19241: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19242: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19243: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19244: raise FND_API.G_EXC_ERROR;
19245: end if;
19246: END IF;
19247: end if;
19240: p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
19241: if (x_return_status = FND_API.G_RET_STS_ERROR) then
19242: raise FND_API.G_EXC_UNEXPECTED_ERROR;
19243: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19244: raise FND_API.G_EXC_ERROR;
19245: end if;
19246: END IF;
19247: end if;
19248:
19252: END LOOP;
19253:
19254: IF p_multiple_task_msg = 'F'
19255: THEN
19256: RAISE FND_API.G_EXC_ERROR;
19257: END IF;
19258:
19259: IF l_org_roles_tbl.COUNT > 0 THEN
19260: PA_PROJECT_PVT.add_org_roles (
19261: p_return_status =>l_return_status,
19262: p_pa_source_template_id =>l_project_rec.created_from_project_id,
19263: p_project_id =>l_project_id,
19264: p_org_roles =>l_org_roles_tbl );
19265: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
19266: p_return_status := l_return_status;
19267: p_project_out.return_status := l_return_status;
19268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19269: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
19264: p_org_roles =>l_org_roles_tbl );
19265: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
19266: p_return_status := l_return_status;
19267: p_project_out.return_status := l_return_status;
19268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19269: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
19270: p_return_status := l_return_status;
19271: p_project_out.return_status := l_return_status;
19272: RAISE FND_API.G_EXC_ERROR;
19265: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
19266: p_return_status := l_return_status;
19267: p_project_out.return_status := l_return_status;
19268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19269: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
19270: p_return_status := l_return_status;
19271: p_project_out.return_status := l_return_status;
19272: RAISE FND_API.G_EXC_ERROR;
19273: END IF;
19268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19269: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
19270: p_return_status := l_return_status;
19271: p_project_out.return_status := l_return_status;
19272: RAISE FND_API.G_EXC_ERROR;
19273: END IF;
19274: END IF;
19275:
19276: END IF;
19336: ,p_attribute4 => ''
19337: ,p_attribute5 => '');
19338: END IF;
19339: close c_get_class_code_id;
19340: RAISE FND_API.G_EXC_ERROR;
19341: end if;
19342: close c_get_class_code_id;
19343:
19344: PA_USER_ATTR_PUB.DELETE_USER_ATTRS_DATA (
19341: end if;
19342: close c_get_class_code_id;
19343:
19344: PA_USER_ATTR_PUB.DELETE_USER_ATTRS_DATA (
19345: p_validate_only => FND_API.G_FALSE
19346: ,p_project_id => l_project_id
19347: ,p_old_classification_id => l_old_class_code_id
19348: ,p_new_classification_id => l_new_class_code_id
19349: ,p_classification_type => 'CLASS_CODE'
19353: l_msg_count := FND_MSG_PUB.count_msg;
19354: IF l_msg_count > 0 THEN
19355: x_msg_count := l_msg_count;
19356: x_return_status := 'E';
19357: RAISE FND_API.G_EXC_ERROR;
19358: END IF;
19359: --Add the new class code values to the temp table
19360: l_class_categories_tbl(i) := p_class_categories(i);
19361: l_class_categories_tbl(i).class_code := p_class_categories(i).new_class_code;
19432: , p_pa_source_template_id =>l_project_rec.created_from_project_id
19433: , p_project_id =>l_project_id
19434: , p_class_categories =>l_class_categories_tbl );
19435:
19436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
19437: THEN
19438:
19439: p_project_out.return_status := l_return_status;
19440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19436: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
19437: THEN
19438:
19439: p_project_out.return_status := l_return_status;
19440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19441:
19442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
19443: THEN
19444:
19438:
19439: p_project_out.return_status := l_return_status;
19440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19441:
19442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
19443: THEN
19444:
19445: p_project_out.return_status := l_return_status;
19446: RAISE FND_API.G_EXC_ERROR;
19442: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
19443: THEN
19444:
19445: p_project_out.return_status := l_return_status;
19446: RAISE FND_API.G_EXC_ERROR;
19447:
19448: END IF;
19449: END IF;
19450:
19484: ( p_app_short_name => 'PA'
19485: ,p_msg_name => 'PA_CUSTOMER_ID_INVALID'
19486: );
19487: END IF;
19488: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19489: p_return_status := FND_API.G_RET_STS_ERROR;
19490: RAISE FND_API.G_EXC_ERROR;
19491:
19492: ELSIF ( cur_customer_status%FOUND ) THEN
19485: ,p_msg_name => 'PA_CUSTOMER_ID_INVALID'
19486: );
19487: END IF;
19488: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19489: p_return_status := FND_API.G_RET_STS_ERROR;
19490: RAISE FND_API.G_EXC_ERROR;
19491:
19492: ELSIF ( cur_customer_status%FOUND ) THEN
19493: --dbms_output.put_line('four'||l_check_relationship_flag);
19486: );
19487: END IF;
19488: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19489: p_return_status := FND_API.G_RET_STS_ERROR;
19490: RAISE FND_API.G_EXC_ERROR;
19491:
19492: ELSIF ( cur_customer_status%FOUND ) THEN
19493: --dbms_output.put_line('four'||l_check_relationship_flag);
19494: IF ( l_cust_status = 'I' ) THEN
19502: ,p_token2 => 'CUSTOMER_ID'
19503: ,p_value2 => p_project_in.customer_id
19504: );
19505: END IF;
19506: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19507: p_return_status := FND_API.G_RET_STS_ERROR;
19508: RAISE FND_API.G_EXC_ERROR;
19509:
19510: ELSE --customer id is not null and it is valid
19503: ,p_value2 => p_project_in.customer_id
19504: );
19505: END IF;
19506: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19507: p_return_status := FND_API.G_RET_STS_ERROR;
19508: RAISE FND_API.G_EXC_ERROR;
19509:
19510: ELSE --customer id is not null and it is valid
19511:
19504: );
19505: END IF;
19506: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19507: p_return_status := FND_API.G_RET_STS_ERROR;
19508: RAISE FND_API.G_EXC_ERROR;
19509:
19510: ELSE --customer id is not null and it is valid
19511:
19512:
19547: ,p_attribute3 => ''
19548: ,p_attribute4 => ''
19549: ,p_attribute5 => '');
19550: END IF;
19551: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19552: p_return_status := FND_API.G_RET_STS_ERROR;
19553: RAISE FND_API.G_EXC_ERROR;
19554: end if;
19555:
19548: ,p_attribute4 => ''
19549: ,p_attribute5 => '');
19550: END IF;
19551: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19552: p_return_status := FND_API.G_RET_STS_ERROR;
19553: RAISE FND_API.G_EXC_ERROR;
19554: end if;
19555:
19556: Open Cur_Customer(l_project_id,p_project_in.customer_id);
19549: ,p_attribute5 => '');
19550: END IF;
19551: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19552: p_return_status := FND_API.G_RET_STS_ERROR;
19553: RAISE FND_API.G_EXC_ERROR;
19554: end if;
19555:
19556: Open Cur_Customer(l_project_id,p_project_in.customer_id);
19557: Fetch Cur_Customer into Cur_Customer_rec;
19590: ,p_attribute2 => ''
19591: ,p_attribute3 => ''
19592: ,p_attribute4 => ''
19593: ,p_attribute5 => '');
19594: RAISE FND_API.G_EXC_ERROR;
19595: END IF;
19596: */
19597: /* Bug 3077676 End */
19598:
19653: ,p_attribute2 => ''
19654: ,p_attribute3 => ''
19655: ,p_attribute4 => ''
19656: ,p_attribute5 => '');
19657: RAISE FND_API.G_EXC_ERROR;
19658: END IF;
19659:
19660: pa_customer_info.get_customer_info( X_project_ID => l_project_id,
19661: X_Customer_Id => p_project_in.customer_id
19710: END IF;
19711:
19712: END IF;
19713:
19714: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19715: RAISE FND_API.G_EXC_ERROR;
19716:
19717: ELSIF l_err_code < 0
19718: THEN
19711:
19712: END IF;
19713:
19714: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
19715: RAISE FND_API.G_EXC_ERROR;
19716:
19717: ELSIF l_err_code < 0
19718: THEN
19719:
19730: ,p_attribute4 => ''
19731: ,p_attribute5 => '');
19732: END IF;
19733:
19734: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19736: END IF;
19737:
19738: /* Update the project customer information */
19731: ,p_attribute5 => '');
19732: END IF;
19733:
19734: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19736: END IF;
19737:
19738: /* Update the project customer information */
19739: ----dbms_output.put_line('before update ');
19787: P_API_VERSION => 1.0
19788: , P_INIT_MSG_LIST => 'T'
19789: , P_COMMIT => 'F'
19790: , P_VALIDATE_ONLY => 'F'
19791: , P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL -- 100 Bug 5622539
19792: , P_DEBUG_MODE => 'N'
19793: , p_calling_module => 'AMG'
19794: , p_project_id => l_project_id
19795: , p_exclude_cust_id_tbl => l_exclude_cust_id_tbl
19800: , x_msg_count => l_msg_count
19801: , x_msg_data => l_msg_data );
19802:
19803: -- Bug 5622539
19804: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19805: l_msg_count := FND_MSG_PUB.count_msg;
19806: if l_msg_count = 1 then
19807: PA_INTERFACE_UTILS_PUB.get_messages
19808: (p_encoded => FND_API.G_FALSE,
19804: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19805: l_msg_count := FND_MSG_PUB.count_msg;
19806: if l_msg_count = 1 then
19807: PA_INTERFACE_UTILS_PUB.get_messages
19808: (p_encoded => FND_API.G_FALSE,
19809: p_msg_index => 1,
19810: p_msg_count => l_msg_count,
19811: p_msg_data => l_msg_data,
19812: p_data => l_msg_data,
19812: p_data => l_msg_data,
19813: p_msg_index_out => l_msg_index_out);
19814:
19815: end if;
19816: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19817: p_project_out.return_status := l_return_status;
19818: RAISE FND_API.G_EXC_ERROR;
19819: else
19820: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19814:
19815: end if;
19816: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19817: p_project_out.return_status := l_return_status;
19818: RAISE FND_API.G_EXC_ERROR;
19819: else
19820: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19822: END if;
19816: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19817: p_project_out.return_status := l_return_status;
19818: RAISE FND_API.G_EXC_ERROR;
19819: else
19820: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19822: END if;
19823: end if;
19824: -- Bug 5622539
19817: p_project_out.return_status := l_return_status;
19818: RAISE FND_API.G_EXC_ERROR;
19819: else
19820: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19822: END if;
19823: end if;
19824: -- Bug 5622539
19825:
19829: P_API_VERSION => 1.0
19830: , P_INIT_MSG_LIST => 'T'
19831: , P_COMMIT => 'F'
19832: , P_VALIDATE_ONLY => 'F'
19833: , P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL -- 100 Bug 5622539
19834: , P_DEBUG_MODE => 'N'
19835: , p_calling_module => 'AMG'
19836: , p_mode => 'ENABLE'
19837: , p_project_id => l_project_id
19841: , x_msg_count => l_msg_count
19842: , x_msg_data => l_msg_data );
19843:
19844: -- Bug 5622539
19845: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19846: l_msg_count := FND_MSG_PUB.count_msg;
19847: if l_msg_count = 1 then
19848: PA_INTERFACE_UTILS_PUB.get_messages
19849: (p_encoded => FND_API.G_FALSE,
19845: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19846: l_msg_count := FND_MSG_PUB.count_msg;
19847: if l_msg_count = 1 then
19848: PA_INTERFACE_UTILS_PUB.get_messages
19849: (p_encoded => FND_API.G_FALSE,
19850: p_msg_index => 1,
19851: p_msg_count => l_msg_count,
19852: p_msg_data => l_msg_data,
19853: p_data => l_msg_data,
19853: p_data => l_msg_data,
19854: p_msg_index_out => l_msg_index_out);
19855:
19856: end if;
19857: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19858: p_project_out.return_status := l_return_status;
19859: RAISE FND_API.G_EXC_ERROR;
19860: else
19861: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19855:
19856: end if;
19857: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19858: p_project_out.return_status := l_return_status;
19859: RAISE FND_API.G_EXC_ERROR;
19860: else
19861: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19863: END if;
19857: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19858: p_project_out.return_status := l_return_status;
19859: RAISE FND_API.G_EXC_ERROR;
19860: else
19861: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19863: END if;
19864: end if;
19865: -- Bug 5622539
19858: p_project_out.return_status := l_return_status;
19859: RAISE FND_API.G_EXC_ERROR;
19860: else
19861: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19863: END if;
19864: end if;
19865: -- Bug 5622539
19866:
19894: P_API_VERSION => 1.0
19895: , P_INIT_MSG_LIST => 'T'
19896: , P_COMMIT => 'F'
19897: , P_VALIDATE_ONLY => 'F'
19898: , P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL --100 bug 5622539
19899: , P_DEBUG_MODE => 'N'
19900: , p_calling_module => 'AMG'
19901: , p_project_id => l_project_id
19902: , p_exclude_cust_id_tbl => l_exclude_cust_id_tbl
19907: , x_msg_count => l_msg_count
19908: , x_msg_data => l_msg_data );
19909:
19910: -- Bug 5622539
19911: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19912: l_msg_count := FND_MSG_PUB.count_msg;
19913: if l_msg_count = 1 then
19914: PA_INTERFACE_UTILS_PUB.get_messages
19915: (p_encoded => FND_API.G_FALSE,
19911: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19912: l_msg_count := FND_MSG_PUB.count_msg;
19913: if l_msg_count = 1 then
19914: PA_INTERFACE_UTILS_PUB.get_messages
19915: (p_encoded => FND_API.G_FALSE,
19916: p_msg_index => 1,
19917: p_msg_count => l_msg_count,
19918: p_msg_data => l_msg_data,
19919: p_data => l_msg_data,
19919: p_data => l_msg_data,
19920: p_msg_index_out => l_msg_index_out);
19921:
19922: end if;
19923: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19924: p_project_out.return_status := l_return_status;
19925: RAISE FND_API.G_EXC_ERROR;
19926: else
19927: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19921:
19922: end if;
19923: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19924: p_project_out.return_status := l_return_status;
19925: RAISE FND_API.G_EXC_ERROR;
19926: else
19927: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19929: END if;
19923: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19924: p_project_out.return_status := l_return_status;
19925: RAISE FND_API.G_EXC_ERROR;
19926: else
19927: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19929: END if;
19930: end if;
19931: -- Bug 5622539
19924: p_project_out.return_status := l_return_status;
19925: RAISE FND_API.G_EXC_ERROR;
19926: else
19927: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19929: END if;
19930: end if;
19931: -- Bug 5622539
19932: OPEN cur_get_def_top_task_cust;
19939: P_API_VERSION => 1.0
19940: , P_INIT_MSG_LIST => 'T'
19941: , P_COMMIT => 'F'
19942: , P_VALIDATE_ONLY => 'F'
19943: , P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL -- 100 Bug 5622539
19944: , P_DEBUG_MODE => 'N'
19945: , p_calling_module => 'AMG'
19946: , p_mode => 'DISABLE'
19947: , p_project_id => l_project_id
19951: , x_msg_count => l_msg_count
19952: , x_msg_data => l_msg_data );
19953:
19954: -- Bug 5622539
19955: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19956: l_msg_count := FND_MSG_PUB.count_msg;
19957: if l_msg_count = 1 then
19958: PA_INTERFACE_UTILS_PUB.get_messages
19959: (p_encoded => FND_API.G_FALSE,
19955: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
19956: l_msg_count := FND_MSG_PUB.count_msg;
19957: if l_msg_count = 1 then
19958: PA_INTERFACE_UTILS_PUB.get_messages
19959: (p_encoded => FND_API.G_FALSE,
19960: p_msg_index => 1,
19961: p_msg_count => l_msg_count,
19962: p_msg_data => l_msg_data,
19963: p_data => l_msg_data,
19963: p_data => l_msg_data,
19964: p_msg_index_out => l_msg_index_out);
19965:
19966: end if;
19967: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19968: p_project_out.return_status := l_return_status;
19969: RAISE FND_API.G_EXC_ERROR;
19970: else
19971: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19965:
19966: end if;
19967: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19968: p_project_out.return_status := l_return_status;
19969: RAISE FND_API.G_EXC_ERROR;
19970: else
19971: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19973: END if;
19967: If l_return_status = FND_API.G_RET_STS_ERROR THEN
19968: p_project_out.return_status := l_return_status;
19969: RAISE FND_API.G_EXC_ERROR;
19970: else
19971: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19973: END if;
19974: end if;
19975: -- Bug 5622539
19968: p_project_out.return_status := l_return_status;
19969: RAISE FND_API.G_EXC_ERROR;
19970: else
19971: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19973: END if;
19974: end if;
19975: -- Bug 5622539
19976: END IF;
20012: ,p_attribute3 => ''
20013: ,p_attribute4 => ''
20014: ,p_attribute5 => '');
20015: END IF;
20016: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20017: p_return_status := FND_API.G_RET_STS_ERROR;
20018: RAISE FND_API.G_EXC_ERROR;
20019: end if;*/
20020:
20013: ,p_attribute4 => ''
20014: ,p_attribute5 => '');
20015: END IF;
20016: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20017: p_return_status := FND_API.G_RET_STS_ERROR;
20018: RAISE FND_API.G_EXC_ERROR;
20019: end if;*/
20020:
20021: /** changed FROM p_project_in.customer_id to p_customers_in(i).custmer_id in all places **/
20014: ,p_attribute5 => '');
20015: END IF;
20016: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20017: p_return_status := FND_API.G_RET_STS_ERROR;
20018: RAISE FND_API.G_EXC_ERROR;
20019: end if;*/
20020:
20021: /** changed FROM p_project_in.customer_id to p_customers_in(i).custmer_id in all places **/
20022: If (p_customers_in(i).bill_to_customer_id IS NOT NULL AND p_customers_in(i).bill_to_customer_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
20038: ,p_attribute3 => ''
20039: ,p_attribute4 => ''
20040: ,p_attribute5 => '');
20041: END IF;
20042: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20043: p_return_status := FND_API.G_RET_STS_ERROR;
20044: RAISE FND_API.G_EXC_ERROR;
20045: end if;
20046: --dbms_output.put_line('comes into karthiks 0th end if');
20039: ,p_attribute4 => ''
20040: ,p_attribute5 => '');
20041: END IF;
20042: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20043: p_return_status := FND_API.G_RET_STS_ERROR;
20044: RAISE FND_API.G_EXC_ERROR;
20045: end if;
20046: --dbms_output.put_line('comes into karthiks 0th end if');
20047: End if; --added by aditi for tracking bug -- FOR CUSTOMER ISSUE
20040: ,p_attribute5 => '');
20041: END IF;
20042: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20043: p_return_status := FND_API.G_RET_STS_ERROR;
20044: RAISE FND_API.G_EXC_ERROR;
20045: end if;
20046: --dbms_output.put_line('comes into karthiks 0th end if');
20047: End if; --added by aditi for tracking bug -- FOR CUSTOMER ISSUE
20048:
20082: ,p_value2 => p_customers_in(i).customer_id
20083: );
20084: END IF;
20085: p_multiple_task_msg := 'F';
20086: RAISE FND_API.G_EXC_ERROR;
20087: END IF;
20088:
20089: -- below if condition is added Bug 5622539
20090: IF ((l_enable_top_task_cust_flag='Y' and p_project_in.enable_top_task_customer_flag <> 'Y') or
20105: ,p_value2 => p_customers_in(i).customer_id
20106: );
20107: END IF;
20108: p_multiple_task_msg := 'F';
20109: RAISE FND_API.G_EXC_ERROR;
20110: ELSE
20111: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTRIBUTION_PERCENTAGE
20112: ( p_customer_bill_split => p_customers_in(i).CUSTOMER_BILL_SPLIT
20113: ,x_return_status => l_return_status
20111: PA_CUSTOMERS_CONTACTS_UTILS.CHECK_CONTRIBUTION_PERCENTAGE
20112: ( p_customer_bill_split => p_customers_in(i).CUSTOMER_BILL_SPLIT
20113: ,x_return_status => l_return_status
20114: ,x_error_msg_code => l_error_msg_code);
20115: If l_return_status <> FND_API.G_RET_STS_SUCCESS then
20116: pa_utils.add_message
20117: ( p_app_short_name => 'PA' --TRACKING
20118: ,p_msg_name => 'PA_CUST_BILL_SPLIT_INVALID'
20119: ,p_token1 => 'PROJECT_NAME'
20122: ,p_value2 => p_customers_in(i).customer_id
20123: );
20124: /* Fix for bug 4604087 */
20125: p_multiple_task_msg := 'F';
20126: RAISE FND_API.G_EXC_ERROR;
20127: END IF;
20128:
20129: END IF;
20130: END IF;
20178: ,p_attribute2 => ''
20179: ,p_attribute3 => ''
20180: ,p_attribute4 => ''
20181: ,p_attribute5 => '');
20182: RAISE FND_API.G_EXC_ERROR;
20183: END IF;
20184: */
20185: /* Bug 3077676 End */
20186:
20254: ,p_attribute2 => ''
20255: ,p_attribute3 => ''
20256: ,p_attribute4 => ''
20257: ,p_attribute5 => '');
20258: RAISE FND_API.G_EXC_ERROR;
20259: END IF;
20260: /** changes begin for tracking bug by aditi **/
20261:
20262: ----dbms_output.put_line('value of p_project_in.CONTACT_ID '||p_customers_in(i).CONTACT_ID);
20277: ,p_token3 => 'CONTACT_ID'
20278: ,p_value3 => p_customers_in(i).CONTACT_ID
20279: );
20280: END IF;
20281: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20282: p_return_status := FND_API.G_RET_STS_ERROR;
20283: RAISE FND_API.G_EXC_ERROR;
20284: END IF;
20285: end if;
20278: ,p_value3 => p_customers_in(i).CONTACT_ID
20279: );
20280: END IF;
20281: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20282: p_return_status := FND_API.G_RET_STS_ERROR;
20283: RAISE FND_API.G_EXC_ERROR;
20284: END IF;
20285: end if;
20286: If p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = 'BILLING' then
20279: );
20280: END IF;
20281: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20282: p_return_status := FND_API.G_RET_STS_ERROR;
20283: RAISE FND_API.G_EXC_ERROR;
20284: END IF;
20285: end if;
20286: If p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = 'BILLING' then
20287: l_bill_to_contact_id := p_customers_in(i).CONTACT_ID;
20362: END IF;
20363:
20364: END IF;
20365:
20366: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20367: RAISE FND_API.G_EXC_ERROR;
20368:
20369: ELSIF l_err_code < 0
20370: THEN
20363:
20364: END IF;
20365:
20366: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20367: RAISE FND_API.G_EXC_ERROR;
20368:
20369: ELSIF l_err_code < 0
20370: THEN
20371:
20382: ,p_attribute4 => ''
20383: ,p_attribute5 => '');
20384: END IF;
20385:
20386: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20388: END IF;
20389:
20390: /* Update the project customer information */
20383: ,p_attribute5 => '');
20384: END IF;
20385:
20386: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20388: END IF;
20389:
20390: /* Update the project customer information */
20391: /* The code below is also redundant for a new customer
20475: END if;
20476:
20477:
20478: If l_INV_EXCHANGE_RATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM then
20479: l_INV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
20480: END if;
20481:
20482: If l_INV_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
20483: l_INV_RATE_DATE := FND_API.G_MISS_DATE;
20479: l_INV_EXCHANGE_RATE := FND_API.G_MISS_NUM;
20480: END if;
20481:
20482: If l_INV_RATE_DATE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
20483: l_INV_RATE_DATE := FND_API.G_MISS_DATE;
20484: END if;
20485:
20486: --bug#5554475
20487:
20548: );
20549:
20550: --uncommented and modified the below for Bug#5554475
20551:
20552: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
20553: x_msg_count := FND_MSG_PUB.count_msg;
20554: if x_msg_count = 1 then
20555: PA_INTERFACE_UTILS_PUB.get_messages
20556: (p_encoded => FND_API.G_FALSE,
20552: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
20553: x_msg_count := FND_MSG_PUB.count_msg;
20554: if x_msg_count = 1 then
20555: PA_INTERFACE_UTILS_PUB.get_messages
20556: (p_encoded => FND_API.G_FALSE,
20557: p_msg_index => 1,
20558: p_msg_count => x_msg_count,
20559: p_msg_data => x_msg_data,
20560: p_data => x_msg_data,
20560: p_data => x_msg_data,
20561: p_msg_index_out => l_msg_index_out);
20562:
20563: end if;
20564: If x_return_status = FND_API.G_RET_STS_ERROR THEN
20565: p_project_out.return_status := x_return_status;
20566: RAISE FND_API.G_EXC_ERROR;
20567: ELSE
20568: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20562:
20563: end if;
20564: If x_return_status = FND_API.G_RET_STS_ERROR THEN
20565: p_project_out.return_status := x_return_status;
20566: RAISE FND_API.G_EXC_ERROR;
20567: ELSE
20568: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20570: END if;
20564: If x_return_status = FND_API.G_RET_STS_ERROR THEN
20565: p_project_out.return_status := x_return_status;
20566: RAISE FND_API.G_EXC_ERROR;
20567: ELSE
20568: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20570: END if;
20571:
20572: end if;
20565: p_project_out.return_status := x_return_status;
20566: RAISE FND_API.G_EXC_ERROR;
20567: ELSE
20568: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20570: END if;
20571:
20572: end if;
20573:
20634: END IF;
20635:
20636: END IF;
20637:
20638: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20639: RAISE FND_API.G_EXC_ERROR;
20640:
20641: ELSIF l_err_code < 0
20642: THEN
20635:
20636: END IF;
20637:
20638: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20639: RAISE FND_API.G_EXC_ERROR;
20640:
20641: ELSIF l_err_code < 0
20642: THEN
20643:
20654: ,p_attribute4 => ''
20655: ,p_attribute5 => '');
20656: END IF;
20657:
20658: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20660: END IF;
20661:
20662: END IF ; --IF p_customers_in(i).customer_id IS NOT NULL
20655: ,p_attribute5 => '');
20656: END IF;
20657:
20658: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20660: END IF;
20661:
20662: END IF ; --IF p_customers_in(i).customer_id IS NOT NULL
20663: Else --If Cur_Customer%NOTFOUND
20731: ,p_token2 => 'CUSTOMER_ID'
20732: ,p_value2 => p_customers_in(i).customer_id
20733: );
20734: END IF;
20735: RAISE FND_API.G_EXC_ERROR;
20736: END IF;
20737: end if;
20738: --dbms_output..put_line('Value of p_customers_in(i).bill_another_project_flag'||p_customers_in(i).bill_another_project_flag);
20739: --dbms_output..put_line('Value of p_customers_in(i).receiver_task_id'||p_customers_in(i).receiver_task_id);
20759: ,p_token2 => 'CUSTOMER_ID'
20760: ,p_value2 => p_customers_in(i).customer_id
20761: );
20762: END IF;
20763: RAISE FND_API.G_EXC_ERROR;
20764: ELSE /* l_bill_another_project_flag = 'Y' */
20765: l_receiver_task_id := p_customers_in(i).receiver_task_id;
20766: PA_CUSTOMER_INFO.CHECK_RECEIVER_PROJ_ENTERABLE
20767: (p_project_id => l_project_id
20771: ,x_return_status => x_return_status
20772: ,x_error_msg_code => l_error_msg_code
20773: );
20774: --dbms_output..put_line('value of l_bill_another_project_flag'||l_bill_another_project_flag);
20775: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
20776: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
20777: p_msg_name => l_error_msg_code
20778: ,p_token1 => 'PROJECT_NAME'
20779: ,p_value1 => l_project_id
20779: ,p_value1 => l_project_id
20780: ,p_token2 => 'CUSTOMER_ID'
20781: ,p_value2 => p_customers_in(i).customer_id
20782: );
20783: RAISE FND_API.G_EXC_ERROR;
20784: END if; --
20785: end if; -- l_bill_another_project_flag = 'N'
20786: End If; --p_customers_in(i).receiver_task_id is null
20787: Else /* Some value is passed for p_customers_in(i).bill_another_project_flag*/
20780: ,p_token2 => 'CUSTOMER_ID'
20781: ,p_value2 => p_customers_in(i).customer_id
20782: );
20783: RAISE FND_API.G_EXC_ERROR;
20784: END if; --
20786: End If; --p_customers_in(i).receiver_task_id is null
20787: Else /* Some value is passed for p_customers_in(i).bill_another_project_flag*/
20788: /* This means that the status is being flipped */
20804: ,p_token2 => 'CUSTOMER_ID'
20805: ,p_value2 => p_customers_in(i).customer_id
20806: );
20807: END IF;
20808: RAISE FND_API.G_EXC_ERROR;
20809: ELSE /* l_bill_another_project_flag = 'Y' */
20810: l_receiver_task_id := p_customers_in(i).receiver_task_id;
20811: PA_CUSTOMER_INFO.CHECK_RECEIVER_PROJ_ENTERABLE
20812: (p_project_id => l_project_id
20817: ,x_error_msg_code => l_error_msg_code
20818: );
20819: --dbms_output..put_line('value of l_bill_another_project_flag'||l_bill_another_project_flag);
20820:
20821: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
20822: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
20823: p_msg_name => l_error_msg_code
20824: ,p_token1 => 'PROJECT_NAME'
20825: ,p_value1 => l_project_id
20825: ,p_value1 => l_project_id
20826: ,p_token2 => 'CUSTOMER_ID'
20827: ,p_value2 => p_customers_in(i).customer_id
20828: );
20829: RAISE FND_API.G_EXC_ERROR;
20830: END if; --
20831: END IF;/* l_bill_another_project_flag = 'N' */
20832: End If;
20833: End if;
20826: ,p_token2 => 'CUSTOMER_ID'
20827: ,p_value2 => p_customers_in(i).customer_id
20828: );
20829: RAISE FND_API.G_EXC_ERROR;
20830: END if; --
20832: End If;
20833: End if;
20834:
20854: ,p_attribute2 => ''
20855: ,p_attribute3 => ''
20856: ,p_attribute4 => ''
20857: ,p_attribute5 => '');
20858: RAISE FND_API.G_EXC_ERROR;
20859: END IF;
20860: /** changes begin for tracking bug by aditi **/
20861:
20862: ----dbms_output.put_line('value of p_project_in.CONTACT_ID '||p_customers_in(i).CONTACT_ID);
20877: ,p_token3 => 'CONTACT_ID'
20878: ,p_value3 => p_customers_in(i).CONTACT_ID
20879: );
20880: END IF;
20881: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20882: p_return_status := FND_API.G_RET_STS_ERROR;
20883: RAISE FND_API.G_EXC_ERROR;
20884: END IF;
20885: end if;
20878: ,p_value3 => p_customers_in(i).CONTACT_ID
20879: );
20880: END IF;
20881: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20882: p_return_status := FND_API.G_RET_STS_ERROR;
20883: RAISE FND_API.G_EXC_ERROR;
20884: END IF;
20885: end if;
20886:
20879: );
20880: END IF;
20881: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20882: p_return_status := FND_API.G_RET_STS_ERROR;
20883: RAISE FND_API.G_EXC_ERROR;
20884: END IF;
20885: end if;
20886:
20887: If p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = 'BILLING' then
20952: END IF;
20953:
20954: END IF;
20955:
20956: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20957: RAISE FND_API.G_EXC_ERROR;
20958:
20959: ELSIF l_err_code < 0
20960: THEN
20953:
20954: END IF;
20955:
20956: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
20957: RAISE FND_API.G_EXC_ERROR;
20958:
20959: ELSIF l_err_code < 0
20960: THEN
20961:
20972: ,p_attribute4 => ''
20973: ,p_attribute5 => '');
20974: END IF;
20975:
20976: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20978: END IF;
20979:
20980: /* Update the project customer information */
20973: ,p_attribute5 => '');
20974: END IF;
20975:
20976: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20978: END IF;
20979:
20980: /* Update the project customer information */
20981:
21146:
21147:
21148: -- Start of addition for bug 5554475
21149:
21150: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
21151: x_msg_count := FND_MSG_PUB.count_msg;
21152: if x_msg_count = 1 then
21153: PA_INTERFACE_UTILS_PUB.get_messages
21154: (p_encoded => FND_API.G_FALSE,
21150: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
21151: x_msg_count := FND_MSG_PUB.count_msg;
21152: if x_msg_count = 1 then
21153: PA_INTERFACE_UTILS_PUB.get_messages
21154: (p_encoded => FND_API.G_FALSE,
21155: p_msg_index => 1,
21156: p_msg_count => x_msg_count,
21157: p_msg_data => x_msg_data,
21158: p_data => x_msg_data,
21158: p_data => x_msg_data,
21159: p_msg_index_out => l_msg_index_out);
21160:
21161: end if;
21162: If x_return_status = FND_API.G_RET_STS_ERROR THEN
21163: p_project_out.return_status := x_return_status;
21164: RAISE FND_API.G_EXC_ERROR;
21165: else
21166: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21160:
21161: end if;
21162: If x_return_status = FND_API.G_RET_STS_ERROR THEN
21163: p_project_out.return_status := x_return_status;
21164: RAISE FND_API.G_EXC_ERROR;
21165: else
21166: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21168: END if;
21162: If x_return_status = FND_API.G_RET_STS_ERROR THEN
21163: p_project_out.return_status := x_return_status;
21164: RAISE FND_API.G_EXC_ERROR;
21165: else
21166: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21168: END if;
21169: end if;
21170:
21163: p_project_out.return_status := x_return_status;
21164: RAISE FND_API.G_EXC_ERROR;
21165: else
21166: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21168: END if;
21169: end if;
21170:
21171: -- End of addition for bug 5554475
21231: END IF;
21232:
21233: END IF;
21234:
21235: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
21236: RAISE FND_API.G_EXC_ERROR;
21237:
21238: ELSIF l_err_code < 0
21239: THEN
21232:
21233: END IF;
21234:
21235: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
21236: RAISE FND_API.G_EXC_ERROR;
21237:
21238: ELSIF l_err_code < 0
21239: THEN
21240:
21251: ,p_attribute4 => ''
21252: ,p_attribute5 => '');
21253: END IF;
21254:
21255: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21257: END IF;
21258:
21259: END if; /* is cur_customer%notfound */
21252: ,p_attribute5 => '');
21253: END IF;
21254:
21255: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21257: END IF;
21258:
21259: END if; /* is cur_customer%notfound */
21260: i := p_customers_in.next(i);
21288: ,p_attribute4 => ''
21289: ,p_attribute5 => ''); */
21290: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21291: ,p_msg_name => 'PA_TOT_CUST_BILL_SPLIT_INVLD');
21292: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
21293: p_return_status := FND_API.G_RET_STS_ERROR;
21294: RAISE FND_API.G_EXC_ERROR;
21295: END IF;
21296: END IF;
21289: ,p_attribute5 => ''); */
21290: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21291: ,p_msg_name => 'PA_TOT_CUST_BILL_SPLIT_INVLD');
21292: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
21293: p_return_status := FND_API.G_RET_STS_ERROR;
21294: RAISE FND_API.G_EXC_ERROR;
21295: END IF;
21296: END IF;
21297: END IF;
21290: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21291: ,p_msg_name => 'PA_TOT_CUST_BILL_SPLIT_INVLD');
21292: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
21293: p_return_status := FND_API.G_RET_STS_ERROR;
21294: RAISE FND_API.G_EXC_ERROR;
21295: END IF;
21296: END IF;
21297: END IF;
21298: END IF;
21305: x_msg_data => x_msg_data,
21306: x_return_status => x_return_status
21307: );
21308:
21309: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
21310: x_msg_count := FND_MSG_PUB.count_msg;
21311: if x_msg_count = 1 then
21312: PA_INTERFACE_UTILS_PUB.get_messages
21313: (p_encoded => FND_API.G_FALSE,
21309: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
21310: x_msg_count := FND_MSG_PUB.count_msg;
21311: if x_msg_count = 1 then
21312: PA_INTERFACE_UTILS_PUB.get_messages
21313: (p_encoded => FND_API.G_FALSE,
21314: p_msg_index => 1,
21315: p_msg_count => x_msg_count,
21316: p_msg_data => x_msg_data,
21317: p_data => x_msg_data,
21317: p_data => x_msg_data,
21318: p_msg_index_out => l_msg_index_out);
21319:
21320: end if;
21321: If x_return_status = FND_API.G_RET_STS_ERROR THEN
21322: p_project_out.return_status := x_return_status;
21323: RAISE FND_API.G_EXC_ERROR;
21324: else
21325: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21319:
21320: end if;
21321: If x_return_status = FND_API.G_RET_STS_ERROR THEN
21322: p_project_out.return_status := x_return_status;
21323: RAISE FND_API.G_EXC_ERROR;
21324: else
21325: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21327: END if;
21321: If x_return_status = FND_API.G_RET_STS_ERROR THEN
21322: p_project_out.return_status := x_return_status;
21323: RAISE FND_API.G_EXC_ERROR;
21324: else
21325: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21327: END if;
21328: end if;
21329:
21322: p_project_out.return_status := x_return_status;
21323: RAISE FND_API.G_EXC_ERROR;
21324: else
21325: p_project_out.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21327: END if;
21328: end if;
21329:
21330: /* End of changes by aditi for tracking */
21561: THEN
21562: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21563: ,p_msg_name => 'PA_TASK_FUNDING_EXIST'
21564: );
21565: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
21566: RAISE FND_API.G_EXC_ERROR;
21567:
21568: END IF;
21569: --Sunkalya federal. Bug#5511353
21562: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21563: ,p_msg_name => 'PA_TASK_FUNDING_EXIST'
21564: );
21565: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
21566: RAISE FND_API.G_EXC_ERROR;
21567:
21568: END IF;
21569: --Sunkalya federal. Bug#5511353
21570:
21594:
21595: IF (l_status_changeable='N') THEN
21596: FND_MESSAGE.SET_NAME('PA', 'PA_STATUS_CANT_CHANGE');
21597: FND_MSG_PUB.ADD;
21598: RAISE FND_API.G_EXC_ERROR;
21599: END IF;
21600:
21601: Pa_project_stus_utils.Handle_Project_Status_Change
21602: (x_calling_module => 'UPDATE_PROJECT'
21629:
21630: -- If verify not ok then raise error
21631: IF l_verify_ok_flag = 'N' THEN
21632: p_project_out.return_status := l_return_status;
21633: RAISE FND_API.G_EXC_ERROR;
21634: --Fix for bug#9110781 Starts
21635: ELSIF l_verify_ok_flag = 'Y' THEN
21636: SELECT pa_obj_status_changes_s.NEXTVAL INTO l_obj_status_change_id FROM dual;
21637:
21747: ,x_msg_count => l_msg_count
21748: ,x_msg_data => l_msg_data
21749: ,x_return_status => l_return_status
21750: );
21751: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
21752: RAISE FND_API.G_EXC_ERROR;
21753: END IF;
21754: END IF;
21755:
21748: ,x_msg_data => l_msg_data
21749: ,x_return_status => l_return_status
21750: );
21751: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
21752: RAISE FND_API.G_EXC_ERROR;
21753: END IF;
21754: END IF;
21755:
21756: END IF;
21765: p_err_code => l_err_code
21766: );
21767: IF l_err_code <> 0 THEN
21768: p_project_out.return_status := l_return_status;
21769: RAISE FND_API.G_EXC_ERROR;
21770: END IF;
21771: END IF;
21772: END IF;
21773:
21787: pa_proj_task_struc_pub.delete_intra_dependency(
21788: p_element_version_id => l_update_structure_version_id
21789: ,x_return_status => l_return_status );
21790:
21791: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21792: THEN
21793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21794: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21795: THEN
21789: ,x_return_status => l_return_status );
21790:
21791: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21792: THEN
21793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21794: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21795: THEN
21796: RAISE FND_API.G_EXC_ERROR;
21797: END IF;
21790:
21791: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21792: THEN
21793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21794: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21795: THEN
21796: RAISE FND_API.G_EXC_ERROR;
21797: END IF;
21798: END IF;
21792: THEN
21793: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21794: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21795: THEN
21796: RAISE FND_API.G_EXC_ERROR;
21797: END IF;
21798: END IF;
21799:
21800: l_d_loop_count := p_tasks_in.first;
21818: ,p_structure_type => l_structure_type
21819: ,p_out_task_id => l_d_task_id
21820: ,p_return_status => l_return_status);
21821:
21822: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21823: THEN
21824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21825: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21826: THEN
21820: ,p_return_status => l_return_status);
21821:
21822: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21823: THEN
21824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21825: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21826: THEN
21827: RAISE FND_API.G_EXC_ERROR;
21828: END IF;
21821:
21822: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21823: THEN
21824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21825: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21826: THEN
21827: RAISE FND_API.G_EXC_ERROR;
21828: END IF;
21829: END IF;
21823: THEN
21824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21825: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21826: THEN
21827: RAISE FND_API.G_EXC_ERROR;
21828: END IF;
21829: END IF;
21830: --maansari5/18
21831:
21839: ,x_msg_count => l_msg_count
21840: ,x_msg_data => l_msg_data);
21841:
21842: --maansari5/18
21843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21844: THEN
21845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21846: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21847: THEN
21841:
21842: --maansari5/18
21843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21844: THEN
21845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21846: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21847: THEN
21848: RAISE FND_API.G_EXC_ERROR;
21849: END IF;
21842: --maansari5/18
21843: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21844: THEN
21845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21846: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21847: THEN
21848: RAISE FND_API.G_EXC_ERROR;
21849: END IF;
21850: --maansari5/18
21844: THEN
21845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21846: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21847: THEN
21848: RAISE FND_API.G_EXC_ERROR;
21849: END IF;
21850: --maansari5/18
21851:
21852: l_d_task_id := null;
21887: x_msg_count => l_msg_count,
21888: x_msg_data => l_msg_data,
21889: x_return_status => l_return_status );
21890:
21891: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21892: THEN
21893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21895: THEN
21889: x_return_status => l_return_status );
21890:
21891: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21892: THEN
21893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21895: THEN
21896: RAISE FND_API.G_EXC_ERROR;
21897: END IF;
21890:
21891: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
21892: THEN
21893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21895: THEN
21896: RAISE FND_API.G_EXC_ERROR;
21897: END IF;
21898: END IF;
21892: THEN
21893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21894: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
21895: THEN
21896: RAISE FND_API.G_EXC_ERROR;
21897: END IF;
21898: END IF;
21899: --
21900:
21914: THEN
21915: pa_project_pub.update_mapping
21916: (
21917: p_api_version => p_api_version_number
21918: , p_init_msg_list => FND_API.G_FALSE
21919: , p_commit => FND_API.G_FALSE--bug 3766967
21920: , p_debug_mode => FND_API.G_TRUE
21921: , p_project_id => l_project_id
21922: , p_proj_source_reference => null
21915: pa_project_pub.update_mapping
21916: (
21917: p_api_version => p_api_version_number
21918: , p_init_msg_list => FND_API.G_FALSE
21919: , p_commit => FND_API.G_FALSE--bug 3766967
21920: , p_debug_mode => FND_API.G_TRUE
21921: , p_project_id => l_project_id
21922: , p_proj_source_reference => null
21923: , p_wkp_structure_version_id => l_structure_version_id --bug#9456024
21916: (
21917: p_api_version => p_api_version_number
21918: , p_init_msg_list => FND_API.G_FALSE
21919: , p_commit => FND_API.G_FALSE--bug 3766967
21920: , p_debug_mode => FND_API.G_TRUE
21921: , p_project_id => l_project_id
21922: , p_proj_source_reference => null
21923: , p_wkp_structure_version_id => l_structure_version_id --bug#9456024
21924: --, p_wkp_task_id => l_tasks_out(i).pa_task_id--Since the tasks are already created , this will have task Ids
21928: , x_return_status => l_return_status
21929: , x_msg_count => l_msg_count
21930: , x_msg_data => l_msg_data
21931: );
21932: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
21933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21934: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
21935: RAISE FND_API.G_EXC_ERROR;
21936: END IF;
21929: , x_msg_count => l_msg_count
21930: , x_msg_data => l_msg_data
21931: );
21932: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
21933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21934: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
21935: RAISE FND_API.G_EXC_ERROR;
21936: END IF;
21937: END IF;
21930: , x_msg_data => l_msg_data
21931: );
21932: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
21933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21934: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
21935: RAISE FND_API.G_EXC_ERROR;
21936: END IF;
21937: END IF;
21938: l_d_loop_count := p_tasks_in.next(l_d_loop_count);
21931: );
21932: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
21933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21934: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
21935: RAISE FND_API.G_EXC_ERROR;
21936: END IF;
21937: END IF;
21938: l_d_loop_count := p_tasks_in.next(l_d_loop_count);
21939: END LOOP;
21943: THEN
21944: i := p_tasks_in.first();
21945: WHILE i IS NOT NULL LOOP
21946: --Initialize the return status to success
21947: p_tasks_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
21948: l_task_in_rec := p_tasks_in(i);
21949: --No Function Security Check required
21950: --Get record version number from pa_tasks table
21951: OPEN c_get_pa_record_version_number ( p_tasks_out(i).task_version_id , l_project_id);
21961: THEN
21962: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
21963: (
21964: p_api_version => p_api_version_number
21965: , p_init_msg_list => FND_API.G_FALSE
21966: , p_commit => FND_API.G_FALSE--bug 3766967
21967: , p_calling_module => 'AMG'
21968: , p_debug_mode => FND_API.G_TRUE
21969: , p_task_version_id => p_tasks_out(i).task_version_id
21962: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
21963: (
21964: p_api_version => p_api_version_number
21965: , p_init_msg_list => FND_API.G_FALSE
21966: , p_commit => FND_API.G_FALSE--bug 3766967
21967: , p_calling_module => 'AMG'
21968: , p_debug_mode => FND_API.G_TRUE
21969: , p_task_version_id => p_tasks_out(i).task_version_id
21970: , p_checked_flag => l_task_in_rec.financial_task_flag
21964: p_api_version => p_api_version_number
21965: , p_init_msg_list => FND_API.G_FALSE
21966: , p_commit => FND_API.G_FALSE--bug 3766967
21967: , p_calling_module => 'AMG'
21968: , p_debug_mode => FND_API.G_TRUE
21969: , p_task_version_id => p_tasks_out(i).task_version_id
21970: , p_checked_flag => l_task_in_rec.financial_task_flag
21971: , p_record_version_number => l_patask_record_version_number
21972: , p_project_id => l_project_id -- 4969319 p_project_out.pa_project_id
21977: );
21978: -- Populating the appropriate values in task out records
21979: p_tasks_out(i).return_status := l_return_status;
21980:
21981: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
21982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21983: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
21984: RAISE FND_API.G_EXC_ERROR;
21985: END IF;
21978: -- Populating the appropriate values in task out records
21979: p_tasks_out(i).return_status := l_return_status;
21980:
21981: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
21982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21983: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
21984: RAISE FND_API.G_EXC_ERROR;
21985: END IF;
21986: END IF;
21979: p_tasks_out(i).return_status := l_return_status;
21980:
21981: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
21982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21983: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
21984: RAISE FND_API.G_EXC_ERROR;
21985: END IF;
21986: END IF;
21987: i := p_tasks_in.next(i);
21980:
21981: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
21982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21983: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
21984: RAISE FND_API.G_EXC_ERROR;
21985: END IF;
21986: END IF;
21987: i := p_tasks_in.next(i);
21988: END LOOP;
22009: --initialize return status to success
22010: i:=1;
22011: -- 3435905 changed from p_deliverable_out to G_deliverables_out_tbl
22012:
22013: G_deliverables_out_tbl(i).return_status := FND_API.G_RET_STS_SUCCESS;
22014:
22015: -- Function Security Check
22016: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
22017: (p_api_version_number => p_api_version_number,
22022: p_return_status => l_return_status,
22023: p_function_allowed => l_function_allowed);
22024:
22025:
22026: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
22027: THEN
22028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
22030: THEN
22024:
22025:
22026: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
22027: THEN
22028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
22030: THEN
22031: RAISE FND_API.G_EXC_ERROR;
22032: END IF;
22025:
22026: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
22027: THEN
22028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
22030: THEN
22031: RAISE FND_API.G_EXC_ERROR;
22032: END IF;
22033:
22027: THEN
22028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
22030: THEN
22031: RAISE FND_API.G_EXC_ERROR;
22032: END IF;
22033:
22034: IF l_function_allowed = 'N' THEN
22035: pa_interface_utils_pub.map_new_amg_msg
22042: ,p_attribute3 => ''
22043: ,p_attribute4 => ''
22044: ,p_attribute5 => '');
22045:
22046: p_return_status := FND_API.G_RET_STS_ERROR;
22047: RAISE FND_API.G_EXC_ERROR;
22048: END IF;
22049: */
22050: -- 3773373 changed local variable usage from i_dlvr to i
22043: ,p_attribute4 => ''
22044: ,p_attribute5 => '');
22045:
22046: p_return_status := FND_API.G_RET_STS_ERROR;
22047: RAISE FND_API.G_EXC_ERROR;
22048: END IF;
22049: */
22050: -- 3773373 changed local variable usage from i_dlvr to i
22051: -- if i is not null, set return status to success
22052: i := p_deliverables_in.first();
22053:
22054: IF i IS NOT NULL THEN
22055: -- 3435905 changed from p_deliverable_out to G_deliverables_out_tbl
22056: G_deliverables_out_tbl(i).return_status := FND_API.G_RET_STS_SUCCESS;
22057: END IF;
22058:
22059: WHILE i IS NOT NULL LOOP
22060:
22071: , p_out_deliverable_id => l_deliverable_id
22072: , p_return_status => x_return_status
22073: );
22074:
22075: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22077: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
22078: RAISE FND_API.G_EXC_ERROR;
22079: END IF;
22072: , p_return_status => x_return_status
22073: );
22074:
22075: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22077: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
22078: RAISE FND_API.G_EXC_ERROR;
22079: END IF;
22080:
22073: );
22074:
22075: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22077: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
22078: RAISE FND_API.G_EXC_ERROR;
22079: END IF;
22080:
22081: END IF;
22074:
22075: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22077: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
22078: RAISE FND_API.G_EXC_ERROR;
22079: END IF;
22080:
22081: END IF;
22082:
22099: , p_project_id => l_project_id
22100: , x_unique_flag => l_unique_flag
22101: , x_return_status => x_return_status );
22102:
22103: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22105: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
22106: RAISE FND_API.G_EXC_ERROR;
22107: END IF;
22100: , x_unique_flag => l_unique_flag
22101: , x_return_status => x_return_status );
22102:
22103: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22105: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
22106: RAISE FND_API.G_EXC_ERROR;
22107: END IF;
22108:
22101: , x_return_status => x_return_status );
22102:
22103: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22105: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
22106: RAISE FND_API.G_EXC_ERROR;
22107: END IF;
22108:
22109: IF ( l_unique_flag = 'N' )THEN
22102:
22103: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22105: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
22106: RAISE FND_API.G_EXC_ERROR;
22107: END IF;
22108:
22109: IF ( l_unique_flag = 'N' )THEN
22110: -- call Update_deliverables
22123: (
22124: p_api_version => p_api_version_number
22125: , p_init_msg_list => p_init_msg_list
22126: -- 3735792, passing p_commit as false to next level api calls
22127: , p_commit => FND_API.G_FALSE
22128: , p_debug_mode => FND_API.G_TRUE
22129: , x_return_status => l_return_status
22130: , p_deliverable_name => p_deliverables_in(i).deliverable_name
22131: , p_deliverable_short_name => p_deliverables_in(i).deliverable_short_name
22124: p_api_version => p_api_version_number
22125: , p_init_msg_list => p_init_msg_list
22126: -- 3735792, passing p_commit as false to next level api calls
22127: , p_commit => FND_API.G_FALSE
22128: , p_debug_mode => FND_API.G_TRUE
22129: , x_return_status => l_return_status
22130: , p_deliverable_name => p_deliverables_in(i).deliverable_name
22131: , p_deliverable_short_name => p_deliverables_in(i).deliverable_short_name
22132: , p_deliverable_type_id => p_deliverables_in(i).deliverable_type_id
22168: (
22169: p_api_version => p_api_version_number
22170: , p_init_msg_list => p_init_msg_list
22171: -- 3735792, passing p_commit as false to next level api calls
22172: , p_commit => FND_API.G_FALSE
22173: , p_debug_mode => FND_API.G_TRUE
22174: , x_return_status => l_return_status
22175: , p_deliverable_name => p_deliverables_in(i).deliverable_name
22176: , p_deliverable_short_name => p_deliverables_in(i).deliverable_short_name
22169: p_api_version => p_api_version_number
22170: , p_init_msg_list => p_init_msg_list
22171: -- 3735792, passing p_commit as false to next level api calls
22172: , p_commit => FND_API.G_FALSE
22173: , p_debug_mode => FND_API.G_TRUE
22174: , x_return_status => l_return_status
22175: , p_deliverable_name => p_deliverables_in(i).deliverable_name
22176: , p_deliverable_short_name => p_deliverables_in(i).deliverable_short_name
22177: , p_deliverable_type_id => p_deliverables_in(i).deliverable_type_id
22219:
22220: G_deliverables_out_tbl(i).return_status := l_return_status;
22221: G_deliverables_out_tbl(i).deliverable_id := l_deliverable_id;
22222:
22223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22225: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
22226: RAISE FND_API.G_EXC_ERROR;
22227: END IF;
22220: G_deliverables_out_tbl(i).return_status := l_return_status;
22221: G_deliverables_out_tbl(i).deliverable_id := l_deliverable_id;
22222:
22223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22225: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
22226: RAISE FND_API.G_EXC_ERROR;
22227: END IF;
22228:
22221: G_deliverables_out_tbl(i).deliverable_id := l_deliverable_id;
22222:
22223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22225: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
22226: RAISE FND_API.G_EXC_ERROR;
22227: END IF;
22228:
22229: -- 3773373 changed local variable usage from i_dlvr to i
22222:
22223: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
22224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22225: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
22226: RAISE FND_API.G_EXC_ERROR;
22227: END IF;
22228:
22229: -- 3773373 changed local variable usage from i_dlvr to i
22230: i := p_deliverables_in.next(i);
22264: 'l_x_return_status='||l_x_return_status;
22265: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
22266: END IF;
22267:
22268: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
22269: THEN
22270: p_project_out.return_status := l_x_return_status;
22271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22272:
22267:
22268: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
22269: THEN
22270: p_project_out.return_status := l_x_return_status;
22271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22272:
22273: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR
22274: THEN
22275: p_project_out.return_status := l_x_return_status;
22269: THEN
22270: p_project_out.return_status := l_x_return_status;
22271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22272:
22273: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR
22274: THEN
22275: p_project_out.return_status := l_x_return_status;
22276: RAISE FND_API.G_EXC_ERROR;
22277: END IF;
22272:
22273: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR
22274: THEN
22275: p_project_out.return_status := l_x_return_status;
22276: RAISE FND_API.G_EXC_ERROR;
22277: END IF;
22278:
22279: END IF;
22280:
22281: -- End Bug # 4582750.
22282:
22283:
22284:
22285: IF (FND_API.to_boolean( p_commit )) OR
22286: l_wf_enabled_flag = 'Y'
22287: THEN
22288: COMMIT WORK;
22289: END IF;
22294: end if;
22295:
22296: EXCEPTION
22297:
22298: WHEN FND_API.G_EXC_ERROR THEN
22299: pa_project_check_pvt.G_task_num_updated_index_tbl.delete;
22300: pa_project_check_pvt.G_index_counter := 0;
22301:
22302: p_return_status := FND_API.G_RET_STS_ERROR ;
22298: WHEN FND_API.G_EXC_ERROR THEN
22299: pa_project_check_pvt.G_task_num_updated_index_tbl.delete;
22300: pa_project_check_pvt.G_index_counter := 0;
22301:
22302: p_return_status := FND_API.G_RET_STS_ERROR ;
22303: G_ParChildTsk_chks_deferred := 'N';
22304:
22305: ROLLBACK TO Update_project_pub;
22306:
22319: ,x_return_status => l_x_return_status
22320: ,x_msg_count => l_x_msg_count
22321: ,x_msg_data => l_x_msg_data);
22322:
22323: if (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) then
22324: raise;
22325: end if;
22326:
22327: end if;
22341: ( p_count => p_msg_count ,
22342: p_data => p_msg_data );
22343:
22344:
22345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22346: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
22347: pa_project_check_pvt.G_task_num_updated_index_tbl.delete;
22348: pa_project_check_pvt.G_index_counter := 0;
22349: G_ParChildTsk_chks_deferred := 'N';
22342: p_data => p_msg_data );
22343:
22344:
22345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
22346: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
22347: pa_project_check_pvt.G_task_num_updated_index_tbl.delete;
22348: pa_project_check_pvt.G_index_counter := 0;
22349: G_ParChildTsk_chks_deferred := 'N';
22350: ROLLBACK TO Update_project_pub;
22364: ,x_return_status => l_x_return_status
22365: ,x_msg_count => l_x_msg_count
22366: ,x_msg_data => l_x_msg_data);
22367:
22368: if (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) then
22369: raise;
22370: end if;
22371:
22372: end if;
22388:
22389: WHEN NO_DATA_FOUND THEN
22390: -- code fix for bug 3579257 : Bug 3627124 starts
22391: --dbms_output.put_line ('in no data found');
22392: p_return_status := FND_API.G_RET_STS_ERROR;
22393: ROLLBACK TO update_project_pub;
22394:
22395:
22396: -- Begin Bug # 4582750.
22409: ,x_return_status => l_x_return_status
22410: ,x_msg_count => l_x_msg_count
22411: ,x_msg_data => l_x_msg_data);
22412:
22413: if (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) then
22414: raise;
22415: end if;
22416:
22417: end if;
22461: ,x_return_status => l_x_return_status
22462: ,x_msg_count => l_x_msg_count
22463: ,x_msg_data => l_x_msg_data);
22464:
22465: if (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) then
22466: raise;
22467: end if;
22468:
22469: end if;
22476:
22477: -- 4537865
22478: p_workflow_started := NULL ;
22479:
22480: p_return_status := FND_API.G_RET_STS_ERROR;
22481: --4218977, rtarway, unset this global variable
22482: if (p_pm_product_code <> 'WORKPLAN') then
22483: G_OP_VALIDATE_FLAG := null;
22484: G_TASK_STR_UPDATE_MODE := null;
22516: ,x_return_status => l_x_return_status
22517: ,x_msg_count => l_x_msg_count
22518: ,x_msg_data => l_x_msg_data);
22519:
22520: if (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) then
22521: raise;
22522: end if;
22523:
22524: end if;
22527:
22528: G_ParChildTsk_chks_deferred := 'N';
22529: pa_project_check_pvt.G_task_num_updated_index_tbl.delete;
22530: pa_project_check_pvt.G_index_counter := 0;
22531: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
22532: --4218977, rtarway, unset this global variable
22533: if (p_pm_product_code <> 'WORKPLAN') then
22534: G_OP_VALIDATE_FLAG := null;
22535: end if;
22584: -- 27-jun-11 Rodrigo Bruno Bug 12660639 - fixed regression, changes
22585: -- are tagged with bug number
22586: PROCEDURE update_task
22587: ( p_api_version_number IN NUMBER,
22588: p_commit IN VARCHAR2 := FND_API.G_FALSE,
22589: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
22590: p_msg_count OUT NOCOPY NUMBER, /*Added the nocopy check for 4537865 */
22591: p_msg_data OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
22592: p_return_status OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
22585: -- are tagged with bug number
22586: PROCEDURE update_task
22587: ( p_api_version_number IN NUMBER,
22588: p_commit IN VARCHAR2 := FND_API.G_FALSE,
22589: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
22590: p_msg_count OUT NOCOPY NUMBER, /*Added the nocopy check for 4537865 */
22591: p_msg_data OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
22592: p_return_status OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
22593: --Project Structures
22981:
22982: SAVEPOINT update_task_pub;
22983: -- Begin Bug # 4630058.
22984: -- Initialize the message table if requested.
22985: if FND_API.TO_BOOLEAN(p_init_msg_list) then
22986: FND_MSG_PUB.initialize;
22987: end if;
22988: -- End Bug # 4630058.
22989:
22987: end if;
22988: -- End Bug # 4630058.
22989:
22990: -- 4537865 : Initialize return status to success
22991: p_return_status := FND_API.G_RET_STS_SUCCESS;
22992:
22993: --BUG 4218977, we need to initialize this variable,
22994: --keeping in mind that it might be set by update_project
22995: --we can use the parameter p_calling_api,
23016:
23017: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
23018: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
23019:
23020: l_return_status := FND_API.G_RET_STS_ERROR;
23021:
23022: RAISE FND_API.G_EXC_ERROR;
23023:
23024:
23018: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
23019:
23020: l_return_status := FND_API.G_RET_STS_ERROR;
23021:
23022: RAISE FND_API.G_EXC_ERROR;
23023:
23024:
23025:
23026: END IF;
23082: , p_return_status => l_return_status
23083: );
23084:
23085:
23086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
23087:
23088: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23089: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
23090: RAISE FND_API.G_EXC_ERROR;
23084:
23085:
23086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
23087:
23088: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23089: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
23090: RAISE FND_API.G_EXC_ERROR;
23091: END IF;
23092:
23085:
23086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
23087:
23088: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23089: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
23090: RAISE FND_API.G_EXC_ERROR;
23091: END IF;
23092:
23093: PA_INTERFACE_UTILS_PUB.G_PROJECt_ID := l_project_id; --bug 2471668 ( in the project context )
23086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
23087:
23088: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23089: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
23090: RAISE FND_API.G_EXC_ERROR;
23091: END IF;
23092:
23093: PA_INTERFACE_UTILS_PUB.G_PROJECt_ID := l_project_id; --bug 2471668 ( in the project context )
23094: --end bug 3880482
23111: p_return_status => l_return_status
23112: );
23113: IF l_return_status <> 'S'
23114: THEN
23115: RAISE FND_API.G_EXC_ERROR;
23116: END IF;
23117:
23118: --bug 2471668.
23119: --We need to call this API here toget the corrct project id. This is also
23145: ,p_attribute3 => ''
23146: ,p_attribute4 => ''
23147: ,p_attribute5 => '');
23148: END IF;
23149: RAISE FND_API.G_EXC_ERROR;
23150: END IF;
23151: END IF ;
23152: -- Bug#3747312
23153:
23291: ,p_attribute3 => ''
23292: ,p_attribute4 => ''
23293: ,p_attribute5 => '');
23294: END IF;
23295: RAISE FND_API.G_EXC_ERROR;
23296: END IF;
23297: --rtarway , 3661788, comment close command
23298: --CLOSE l_task_ref_to_id_csr;
23299: END IF;
23325: ,p_attribute3 => ''
23326: ,p_attribute4 => ''
23327: ,p_attribute5 => '');
23328: END IF;
23329: RAISE FND_API.G_EXC_ERROR;
23330: END IF;
23331:
23332: -- Function Security Check
23333: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
23337: p_msg_count => l_msg_count,
23338: p_msg_data => l_msg_data,
23339: p_return_status => l_return_status,
23340: p_function_allowed => l_function_allowed);
23341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23343: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23344: RAISE FND_API.G_EXC_ERROR;
23345: END IF;
23338: p_msg_data => l_msg_data,
23339: p_return_status => l_return_status,
23340: p_function_allowed => l_function_allowed);
23341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23343: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23344: RAISE FND_API.G_EXC_ERROR;
23345: END IF;
23346:
23339: p_return_status => l_return_status,
23340: p_function_allowed => l_function_allowed);
23341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23343: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23344: RAISE FND_API.G_EXC_ERROR;
23345: END IF;
23346:
23347: IF l_function_allowed = 'N' THEN
23340: p_function_allowed => l_function_allowed);
23341: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23343: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23344: RAISE FND_API.G_EXC_ERROR;
23345: END IF;
23346:
23347: IF l_function_allowed = 'N' THEN
23348: pa_interface_utils_pub.map_new_amg_msg
23354: ,p_attribute2 => ''
23355: ,p_attribute3 => ''
23356: ,p_attribute4 => ''
23357: ,p_attribute5 => '');
23358: RAISE FND_API.G_EXC_ERROR;
23359: END IF;
23360:
23361: l_invoice_method := p_invoice_method;
23362: ELSE
23438: END IF;
23439: -- End of Bug 4689326
23440: END IF;
23441: CLOSE cur_check_proj_cust_exist;
23442: RAISE FND_API.G_EXC_ERROR;
23443: ELSE
23444: CLOSE cur_check_proj_cust_exist;
23445:
23446: -- Function Security Check
23451: p_msg_count => l_msg_count,
23452: p_msg_data => l_msg_data,
23453: p_return_status => l_return_status,
23454: p_function_allowed => l_function_allowed);
23455: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23457: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23458: RAISE FND_API.G_EXC_ERROR;
23459: END IF;
23452: p_msg_data => l_msg_data,
23453: p_return_status => l_return_status,
23454: p_function_allowed => l_function_allowed);
23455: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23457: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23458: RAISE FND_API.G_EXC_ERROR;
23459: END IF;
23460:
23453: p_return_status => l_return_status,
23454: p_function_allowed => l_function_allowed);
23455: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23457: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23458: RAISE FND_API.G_EXC_ERROR;
23459: END IF;
23460:
23461: IF l_function_allowed = 'N' THEN
23454: p_function_allowed => l_function_allowed);
23455: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23457: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23458: RAISE FND_API.G_EXC_ERROR;
23459: END IF;
23460:
23461: IF l_function_allowed = 'N' THEN
23462: pa_interface_utils_pub.map_new_amg_msg
23468: ,p_attribute2 => ''
23469: ,p_attribute3 => ''
23470: ,p_attribute4 => ''
23471: ,p_attribute5 => '');
23472: RAISE FND_API.G_EXC_ERROR;
23473: END IF;
23474:
23475: l_customer_id := p_customer_id;
23476: END IF; --IF cur_check_proj_cust_exist%NOTFOUND
23484: ,p_attribute2 => ''
23485: ,p_attribute3 => ''
23486: ,p_attribute4 => ''
23487: ,p_attribute5 => '');
23488: RAISE FND_API.G_EXC_ERROR;
23489: END IF;-- If condition to check Funding exits for task or not --End of Bug 4689888
23490: ELSE --IF p_customer_id IS NULL
23491: IF p_customer_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
23492: l_customer_id:=NULL; -- NULL is passed for customer_id so that in Update_one_task it will not be Defaulted.
23502: ,p_attribute2 => ''
23503: ,p_attribute3 => ''
23504: ,p_attribute4 => ''
23505: ,p_attribute5 => '');
23506: RAISE FND_API.G_EXC_ERROR;
23507: END IF;
23508: END IF;
23509: ELSE
23510: --IF 'N' = l_proj_top_task_customer_flag
23742: ----dbms_output.put_line('value OF p_task_number BEFORE UPDATE_ONE_TASK'||p_task_number);
23743:
23744: PA_PROJECT_PVT.Update_One_Task (
23745: p_api_version_number => p_api_version_number,
23746: p_commit => FND_API.G_FALSE,
23747: p_msg_count => p_msg_count,
23748: p_msg_data => p_msg_data,
23749: p_return_status => l_return_status,
23750: p_pm_product_code => p_pm_product_code,
23846: p_out_pm_task_reference => l_out_pm_task_reference );
23847: -- --dbms_output.put_line('after CALLING UPDATE_ONE_TASK');
23848: p_return_status := l_return_status;
23849: -- --dbms_output.put_line('p_return_status'||p_return_status);
23850: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23852: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23853: RAISE FND_API.G_EXC_ERROR;
23854: END IF;
23847: -- --dbms_output.put_line('after CALLING UPDATE_ONE_TASK');
23848: p_return_status := l_return_status;
23849: -- --dbms_output.put_line('p_return_status'||p_return_status);
23850: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23852: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23853: RAISE FND_API.G_EXC_ERROR;
23854: END IF;
23855:
23848: p_return_status := l_return_status;
23849: -- --dbms_output.put_line('p_return_status'||p_return_status);
23850: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23852: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23853: RAISE FND_API.G_EXC_ERROR;
23854: END IF;
23855:
23856: p_out_pa_task_id := l_out_pa_task_id;
23849: -- --dbms_output.put_line('p_return_status'||p_return_status);
23850: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
23851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
23852: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
23853: RAISE FND_API.G_EXC_ERROR;
23854: END IF;
23855:
23856: p_out_pa_task_id := l_out_pa_task_id;
23857: p_out_pm_task_reference := l_out_pm_task_reference;
24059: ----dbms_output.put_line('return status of update_task_struc '||l_return_status);
24060:
24061: END IF;
24062:
24063: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24066: RAISE FND_API.G_EXC_ERROR;
24067: END IF;
24060:
24061: END IF;
24062:
24063: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24066: RAISE FND_API.G_EXC_ERROR;
24067: END IF;
24068:
24061: END IF;
24062:
24063: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24066: RAISE FND_API.G_EXC_ERROR;
24067: END IF;
24068:
24069: ELSIF l_structure_type = 'WORKPLAN' --p_structure_type
24062:
24063: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24066: RAISE FND_API.G_EXC_ERROR;
24067: END IF;
24068:
24069: ELSIF l_structure_type = 'WORKPLAN' --p_structure_type
24070: THEN
24086: -- ,p_attribute3 => ''
24087: -- ,p_attribute4 => ''
24088: -- ,p_attribute5 => '');
24089: -- END IF;
24090: -- RAISE FND_API.G_EXC_ERROR;
24091: -- END IF;
24092:
24093: -- Actions performed using the APIs would be subject to
24094: -- function security. If the responsibility does not allow
24104: p_msg_data => l_msg_data,
24105: p_return_status => l_return_status,
24106: p_function_allowed => l_function_allowed );
24107:
24108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24109: THEN
24110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24111:
24112: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24106: p_function_allowed => l_function_allowed );
24107:
24108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24109: THEN
24110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24111:
24112: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24113: THEN
24114: RAISE FND_API.G_EXC_ERROR;
24108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24109: THEN
24110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24111:
24112: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24113: THEN
24114: RAISE FND_API.G_EXC_ERROR;
24115: END IF;
24116: IF l_function_allowed = 'N' THEN
24110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24111:
24112: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24113: THEN
24114: RAISE FND_API.G_EXC_ERROR;
24115: END IF;
24116: IF l_function_allowed = 'N' THEN
24117: pa_interface_utils_pub.map_new_amg_msg
24118: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
24123: ,p_attribute2 => ''
24124: ,p_attribute3 => ''
24125: ,p_attribute4 => ''
24126: ,p_attribute5 => '');
24127: p_return_status := FND_API.G_RET_STS_ERROR;
24128: RAISE FND_API.G_EXC_ERROR;
24129: END IF;
24130:
24131: --Project Structures Integration
24124: ,p_attribute3 => ''
24125: ,p_attribute4 => ''
24126: ,p_attribute5 => '');
24127: p_return_status := FND_API.G_RET_STS_ERROR;
24128: RAISE FND_API.G_EXC_ERROR;
24129: END IF;
24130:
24131: --Project Structures Integration
24132: ----dbms_output.put_line('l_structure_version_id--ut'||l_structure_version_id);
24145: ,p_attribute3 => ''
24146: ,p_attribute4 => ''
24147: ,p_attribute5 => '');
24148: END IF;
24149: RAISE FND_API.G_EXC_ERROR;
24150: p_return_status := FND_API.G_RET_STS_SUCCESS;
24151: END IF;
24152: -- Bug 3106457. This is not null.
24153: --Commented by rtarway for BUG 3919800
24146: ,p_attribute4 => ''
24147: ,p_attribute5 => '');
24148: END IF;
24149: RAISE FND_API.G_EXC_ERROR;
24150: p_return_status := FND_API.G_RET_STS_SUCCESS;
24151: END IF;
24152: -- Bug 3106457. This is not null.
24153: --Commented by rtarway for BUG 3919800
24154: --l_structure_version_id := p_structure_version_id;
24163:
24164: PA_PROJECT_PVT.Update_One_Task
24165: (
24166: p_api_version_number => p_api_version_number,
24167: p_commit => FND_API.G_FALSE,
24168: p_msg_count => p_msg_count,
24169: p_msg_data => p_msg_data,
24170: p_return_status => l_return_status,
24171: p_pm_product_code => p_pm_product_code,
24255: );
24256:
24257: p_return_status := l_return_status;
24258:
24259: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24262: RAISE FND_API.G_EXC_ERROR;
24263: END IF;
24256:
24257: p_return_status := l_return_status;
24258:
24259: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24262: RAISE FND_API.G_EXC_ERROR;
24263: END IF;
24264: end if;
24257: p_return_status := l_return_status;
24258:
24259: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24262: RAISE FND_API.G_EXC_ERROR;
24263: END IF;
24264: end if;
24265: --End Added by rtarway for BUG 4106154
24258:
24259: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24262: RAISE FND_API.G_EXC_ERROR;
24263: END IF;
24264: end if;
24265: --End Added by rtarway for BUG 4106154
24266:
24377: ,p_attribute10 => p_attribute10 */
24378:
24379: );
24380:
24381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24384: RAISE FND_API.G_EXC_ERROR;
24385: END IF;
24378:
24379: );
24380:
24381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24384: RAISE FND_API.G_EXC_ERROR;
24385: END IF;
24386: END IF; --<< p_pm_product_code = 'WORKPLAN' >>
24379: );
24380:
24381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24384: RAISE FND_API.G_EXC_ERROR;
24385: END IF;
24386: END IF; --<< p_pm_product_code = 'WORKPLAN' >>
24387:
24380:
24381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24384: RAISE FND_API.G_EXC_ERROR;
24385: END IF;
24386: END IF; --<< p_pm_product_code = 'WORKPLAN' >>
24387:
24388: p_out_pa_task_id := l_pa_task_id;--BUG 3919800, rtarway
24406: pa_project_pub.update_mapping
24407: (
24408: p_api_version => p_api_version_number
24409: , p_init_msg_list => p_init_msg_list
24410: , p_commit => FND_API.G_FALSE--bug 3766967
24411: , p_debug_mode => FND_API.G_TRUE
24412: , p_project_id => l_project_id --Bug#3747312 p_pa_project_id
24413: , p_proj_source_reference => null
24414: , p_wkp_structure_version_id => l_structure_version_id -- BUG 3919800, rtarway
24407: (
24408: p_api_version => p_api_version_number
24409: , p_init_msg_list => p_init_msg_list
24410: , p_commit => FND_API.G_FALSE--bug 3766967
24411: , p_debug_mode => FND_API.G_TRUE
24412: , p_project_id => l_project_id --Bug#3747312 p_pa_project_id
24413: , p_proj_source_reference => null
24414: , p_wkp_structure_version_id => l_structure_version_id -- BUG 3919800, rtarway
24415: , p_wkp_task_id => l_pa_task_id--Since the tasks are already created , this will have task Ids
24419: , x_msg_count => l_msg_count
24420: , x_msg_data => l_msg_data
24421:
24422: );
24423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24426: RAISE FND_API.G_EXC_ERROR;
24427: END IF;
24420: , x_msg_data => l_msg_data
24421:
24422: );
24423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24426: RAISE FND_API.G_EXC_ERROR;
24427: END IF;
24428: END IF;
24421:
24422: );
24423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24426: RAISE FND_API.G_EXC_ERROR;
24427: END IF;
24428: END IF;
24429: END IF;
24422: );
24423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
24424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
24426: RAISE FND_API.G_EXC_ERROR;
24427: END IF;
24428: END IF;
24429: END IF;
24430:
24442: PA_TASKS_MAINT_PUB.SET_FINANCIAL_FLAG_WRAPPER
24443: (
24444: p_api_version => p_api_version_number
24445: , p_init_msg_list => p_init_msg_list
24446: , p_commit => FND_API.G_FALSE--bug 3766967
24447: , p_calling_module => 'AMG'
24448: , p_debug_mode => FND_API.G_TRUE
24449: , p_task_version_id => l_task_version_id
24450: , p_checked_flag => p_financial_task_flag
24444: p_api_version => p_api_version_number
24445: , p_init_msg_list => p_init_msg_list
24446: , p_commit => FND_API.G_FALSE--bug 3766967
24447: , p_calling_module => 'AMG'
24448: , p_debug_mode => FND_API.G_TRUE
24449: , p_task_version_id => l_task_version_id
24450: , p_checked_flag => p_financial_task_flag
24451: , p_record_version_number => l_patask_record_version_number
24452: , p_project_id => l_project_id --Bug#3747312 p_pa_project_id
24454: , x_return_status => l_return_status
24455: , x_msg_count => l_msg_count
24456: , x_msg_data => l_msg_data
24457: );
24458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24459: THEN
24460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24461: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24462: THEN
24456: , x_msg_data => l_msg_data
24457: );
24458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24459: THEN
24460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24461: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24462: THEN
24463: RAISE FND_API.G_EXC_ERROR;
24464: END IF;
24457: );
24458: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24459: THEN
24460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24461: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24462: THEN
24463: RAISE FND_API.G_EXC_ERROR;
24464: END IF;
24465: END IF;
24459: THEN
24460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24461: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24462: THEN
24463: RAISE FND_API.G_EXC_ERROR;
24464: END IF;
24465: END IF;
24466: END IF;
24467: --End Add by rtarway FP.M chages for Set Financial Task
24491: ,x_msg_data => l_msg_data
24492: ,x_return_status => l_return_status
24493: );
24494:
24495: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24496: THEN
24497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24498:
24499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24493: );
24494:
24495: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24496: THEN
24497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24498:
24499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24500: THEN
24501: RAISE FND_API.G_EXC_ERROR;
24495: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24496: THEN
24497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24498:
24499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24500: THEN
24501: RAISE FND_API.G_EXC_ERROR;
24502: END IF;
24503: END IF;
24497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24498:
24499: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24500: THEN
24501: RAISE FND_API.G_EXC_ERROR;
24502: END IF;
24503: END IF;
24504: ---bug 4199694
24505:
24534: ,x_return_status => l_return_status
24535: ,x_msg_count => l_msg_count
24536: ,x_msg_data => l_msg_data ) ;
24537:
24538: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24539: THEN
24540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24541: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24542: THEN
24536: ,x_msg_data => l_msg_data ) ;
24537:
24538: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24539: THEN
24540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24541: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24542: THEN
24543: RAISE FND_API.G_EXC_ERROR;
24544: END IF;
24537:
24538: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24539: THEN
24540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24541: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24542: THEN
24543: RAISE FND_API.G_EXC_ERROR;
24544: END IF;
24545: ELSIF p_process_mode = 'CONCURRENT' THEN
24539: THEN
24540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24541: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24542: THEN
24543: RAISE FND_API.G_EXC_ERROR;
24544: END IF;
24545: ELSIF p_process_mode = 'CONCURRENT' THEN
24546:
24547: PA_PROJ_TASK_STRUC_PUB. PROCESS_WBS_UPDATES_CONC_WRP(p_calling_context => 'CONC_UPDATE'
24550: ,x_return_status => l_return_status
24551: ,x_msg_count => l_msg_count
24552: ,x_msg_data => l_msg_data ) ;
24553:
24554: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24555: THEN
24556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24558: THEN
24552: ,x_msg_data => l_msg_data ) ;
24553:
24554: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24555: THEN
24556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24558: THEN
24559: RAISE FND_API.G_EXC_ERROR;
24560: END IF;
24553:
24554: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24555: THEN
24556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24558: THEN
24559: RAISE FND_API.G_EXC_ERROR;
24560: END IF;
24561: END IF ;
24555: THEN
24556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24557: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24558: THEN
24559: RAISE FND_API.G_EXC_ERROR;
24560: END IF;
24561: END IF ;
24562: END IF ;
24563: END IF ;
24580: , p_structure_type => l_structure_type -- Bug 10052686
24581: ,p_pm_task_reference => p_pm_task_reference
24582: ,p_out_task_id => l_d_task_id
24583: ,p_return_status => l_return_status);
24584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24585: THEN
24586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24587: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24588: THEN
24582: ,p_out_task_id => l_d_task_id
24583: ,p_return_status => l_return_status);
24584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24585: THEN
24586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24587: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24588: THEN
24589: RAISE FND_API.G_EXC_ERROR;
24590: END IF;
24583: ,p_return_status => l_return_status);
24584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24585: THEN
24586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24587: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24588: THEN
24589: RAISE FND_API.G_EXC_ERROR;
24590: END IF;
24591:
24585: THEN
24586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24587: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24588: THEN
24589: RAISE FND_API.G_EXC_ERROR;
24590: END IF;
24591:
24592: END IF;
24593: /*
24607: ,x_return_status => l_return_status
24608: ,x_msg_count => l_msg_count
24609: ,x_msg_data => l_msg_data);
24610:
24611: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24612: THEN
24613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24614: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24615: THEN
24609: ,x_msg_data => l_msg_data);
24610:
24611: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24612: THEN
24613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24614: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24615: THEN
24616: RAISE FND_API.G_EXC_ERROR;
24617: END IF;
24610:
24611: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24612: THEN
24613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24614: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24615: THEN
24616: RAISE FND_API.G_EXC_ERROR;
24617: END IF;
24618: l_d_task_id := null;
24612: THEN
24613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24614: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24615: THEN
24616: RAISE FND_API.G_EXC_ERROR;
24617: END IF;
24618: l_d_task_id := null;
24619: END IF;
24620: --bug 4218977, rtarway, unset this variable if not called from update_project
24622: G_OP_VALIDATE_FLAG := null;
24623: end if;
24624: EXCEPTION
24625:
24626: WHEN FND_API.G_EXC_ERROR THEN
24627:
24628: p_return_status := FND_API.G_RET_STS_ERROR ;
24629: --bug 4218977, rtarway, unset this variable if not called from update_project
24630: if p_calling_api <> 'UPDATE_PROJECT' then
24624: EXCEPTION
24625:
24626: WHEN FND_API.G_EXC_ERROR THEN
24627:
24628: p_return_status := FND_API.G_RET_STS_ERROR ;
24629: --bug 4218977, rtarway, unset this variable if not called from update_project
24630: if p_calling_api <> 'UPDATE_PROJECT' then
24631: G_OP_VALIDATE_FLAG := null;
24632: end if;
24640: FND_MSG_PUB.Count_And_Get
24641: ( p_count => p_msg_count ,
24642: p_data => p_msg_data );
24643:
24644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24645:
24646: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24647: ROLLBACK TO Update_Task_pub;
24648: --bug 4218977, rtarway, unset this variable if not called from update_project
24642: p_data => p_msg_data );
24643:
24644: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
24645:
24646: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24647: ROLLBACK TO Update_Task_pub;
24648: --bug 4218977, rtarway, unset this variable if not called from update_project
24649: if p_calling_api <> 'UPDATE_PROJECT' then
24650: G_OP_VALIDATE_FLAG := null;
24661:
24662: WHEN OTHERS THEN
24663:
24664: ROLLBACK TO Update_Task_pub;
24665: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24666: --bug 4218977, rtarway, unset this variable if not called from update_project
24667: if p_calling_api <> 'UPDATE_PROJECT' then
24668: G_OP_VALIDATE_FLAG := null;
24669: end if;
24705: --
24706:
24707: PROCEDURE execute_update_project
24708: ( p_api_version_number IN NUMBER
24709: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
24710: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
24711: ,p_op_validate_flag IN VARCHAR2 := 'Y'--added by rtarway, bug 4218977
24712: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
24713: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
24706:
24707: PROCEDURE execute_update_project
24708: ( p_api_version_number IN NUMBER
24709: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
24710: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
24711: ,p_op_validate_flag IN VARCHAR2 := 'Y'--added by rtarway, bug 4218977
24712: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
24713: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
24714: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
24725: BEGIN
24726:
24727: SAVEPOINT execute_update_project_pub;
24728:
24729: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
24730: p_api_version_number ,
24731: l_api_name ,
24732: G_PKG_NAME )
24733: THEN
24731: l_api_name ,
24732: G_PKG_NAME )
24733: THEN
24734:
24735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24736:
24737: END IF;
24738:
24739: -- Initialize the message table if requested.
24737: END IF;
24738:
24739: -- Initialize the message table if requested.
24740:
24741: IF FND_API.TO_BOOLEAN( p_init_msg_list )
24742: THEN
24743:
24744: FND_MSG_PUB.initialize;
24745:
24744: FND_MSG_PUB.initialize;
24745:
24746: END IF;
24747:
24748: p_return_status := FND_API.G_RET_STS_SUCCESS;
24749:
24750: -- Begin code to fix Bug # 4314797.
24751:
24752: -- In the publish workplan flow, we do not need to update key members so we can clear the global
24764: -- End code to fix Bug # 4314797.
24765:
24766:
24767: Update_Project ( p_api_version_number => p_api_version_number,
24768: p_commit => FND_API.G_FALSE,
24769: p_return_status => l_return_status,
24770: p_msg_count => p_msg_count,
24771: p_msg_data => p_msg_data,
24772: p_workflow_started => p_workflow_started,
24791: ,p_update_mode => p_update_mode --DHI ER bug 4413568
24792: --FP M : deliverables
24793: );
24794:
24795: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24796: THEN
24797:
24798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24799:
24794:
24795: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
24796: THEN
24797:
24798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24799:
24800: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24801: THEN
24802:
24796: THEN
24797:
24798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24799:
24800: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24801: THEN
24802:
24803: RAISE FND_API.G_EXC_ERROR;
24804: END IF;
24799:
24800: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
24801: THEN
24802:
24803: RAISE FND_API.G_EXC_ERROR;
24804: END IF;
24805:
24806:
24807: IF FND_API.to_boolean( p_commit )
24803: RAISE FND_API.G_EXC_ERROR;
24804: END IF;
24805:
24806:
24807: IF FND_API.to_boolean( p_commit )
24808: THEN
24809: COMMIT;
24810: END IF;
24811:
24811:
24812:
24813: EXCEPTION
24814:
24815: WHEN FND_API.G_EXC_ERROR
24816: THEN
24817: ROLLBACK TO execute_update_project_pub;
24818:
24819: p_return_status := FND_API.G_RET_STS_ERROR;
24815: WHEN FND_API.G_EXC_ERROR
24816: THEN
24817: ROLLBACK TO execute_update_project_pub;
24818:
24819: p_return_status := FND_API.G_RET_STS_ERROR;
24820:
24821: -- 4537865
24822: p_workflow_started := NULL ;
24823: -- 4537865
24825: FND_MSG_PUB.Count_And_Get
24826: ( p_count => p_msg_count ,
24827: p_data => p_msg_data );
24828:
24829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24830: THEN
24831: ROLLBACK TO execute_update_project_pub;
24832:
24833: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24830: THEN
24831: ROLLBACK TO execute_update_project_pub;
24832:
24833: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24834:
24835: -- 4537865
24836: p_workflow_started := NULL ;
24837: -- 4537865
24843: WHEN OTHERS THEN
24844:
24845: ROLLBACK TO execute_update_project_pub;
24846:
24847: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24848:
24849: -- 4537865
24850: p_workflow_started := NULL ;
24851: -- 4537865
24883: --
24884:
24885: PROCEDURE delete_project
24886: ( p_api_version_number IN NUMBER
24887: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
24888: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
24889: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
24890: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
24891: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
24884:
24885: PROCEDURE delete_project
24886: ( p_api_version_number IN NUMBER
24887: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
24888: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
24889: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
24890: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
24891: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
24892: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
24900:
24901: BEGIN
24902:
24903: -- 4537865 : Initialize Return status to success
24904: p_return_status := FND_API.G_RET_STS_SUCCESS;
24905:
24906: --bug 2471668.
24907: --We need to call this API here toget the corrct project id. This is also
24908: --called from the private API. But I discussed with Sakthi and he is ok to call this
24916: , p_return_status => l_return_status
24917: );
24918:
24919:
24920: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
24921:
24922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24923: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
24924: RAISE FND_API.G_EXC_ERROR;
24918:
24919:
24920: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
24921:
24922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24923: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
24924: RAISE FND_API.G_EXC_ERROR;
24925: END IF;
24926:
24919:
24920: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
24921:
24922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24923: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
24924: RAISE FND_API.G_EXC_ERROR;
24925: END IF;
24926:
24927: PA_INTERFACE_UTILS_PUB.G_PROJECt_ID := l_project_id; --bug 2471668 ( in the project context )
24920: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
24921:
24922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
24923: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
24924: RAISE FND_API.G_EXC_ERROR;
24925: END IF;
24926:
24927: PA_INTERFACE_UTILS_PUB.G_PROJECt_ID := l_project_id; --bug 2471668 ( in the project context )
24928: --end of bug 2471668
24928: --end of bug 2471668
24929:
24930: pa_project_pvt.delete_project1
24931: (p_api_version_number => p_api_version_number
24932: ,p_commit => p_commit -- added for bug#16386039 --FND_API.G_FALSE--bug 3766967
24933: ,p_init_msg_list => p_init_msg_list
24934: ,p_msg_count => p_msg_count
24935: ,p_msg_data => p_msg_data
24936: ,p_return_status => p_return_status
24938: ,p_pm_project_reference => p_pm_project_reference
24939: ,p_pa_project_id => p_pa_project_id);
24940:
24941: EXCEPTION
24942: WHEN FND_API.G_EXC_ERROR
24943: THEN
24944: p_return_status := FND_API.G_RET_STS_ERROR;
24945: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24946:
24940:
24941: EXCEPTION
24942: WHEN FND_API.G_EXC_ERROR
24943: THEN
24944: p_return_status := FND_API.G_RET_STS_ERROR;
24945: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24946:
24947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24948: THEN
24943: THEN
24944: p_return_status := FND_API.G_RET_STS_ERROR;
24945: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24946:
24947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24948: THEN
24949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24950: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24951:
24945: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24946:
24947: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
24948: THEN
24949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24950: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24951:
24952: WHEN OTHERS THEN
24953: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24949: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24950: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24951:
24952: WHEN OTHERS THEN
24953: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
24954: p_msg_count := FND_MSG_PUB.count_msg; -- 4537865
24955:
24956: END delete_project;
24957:
24971: -- 02-DEC-96 Update lwerker Removed Savepoint and Rollbacks
24972:
24973: PROCEDURE Check_Delete_Task_OK
24974: ( p_api_version_number IN NUMBER
24975: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
24976: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
24977: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
24978: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
24979: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
24990: l_retrieve varchar2(1) ; -- 4096218 Issues found during Unit Testing
24991: BEGIN
24992:
24993: -- 4537865 : Initialize return status to success
24994: p_return_status := FND_API.G_RET_STS_SUCCESS ;
24995:
24996: --bug 2876703 --check_delete_task_ok
24997: IF p_structure_type = 'WORKPLAN' AND p_project_id IS NOT NULL AND p_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
24998: THEN
25012: ,p_attribute3 => ''
25013: ,p_attribute4 => ''
25014: ,p_attribute5 => '');
25015: END IF;
25016: RAISE FND_API.G_EXC_ERROR;
25017: END IF;
25018: END IF;
25019: --bug 2876703
25020: pa_project_check_pvt.Check_Delete_Task_OK_pvt
25034: ,p_delete_task_ok_flag => p_delete_task_ok_flag);
25035:
25036: --bug 2876703 Added ecxeption block to support the above code added for bug 2876703
25037: EXCEPTION
25038: WHEN FND_API.G_EXC_ERROR
25039: THEN
25040: p_return_status := FND_API.G_RET_STS_ERROR;
25041: IF l_retrieve = 'Y' THEN
25042: FND_MSG_PUB.Count_And_Get
25036: --bug 2876703 Added ecxeption block to support the above code added for bug 2876703
25037: EXCEPTION
25038: WHEN FND_API.G_EXC_ERROR
25039: THEN
25040: p_return_status := FND_API.G_RET_STS_ERROR;
25041: IF l_retrieve = 'Y' THEN
25042: FND_MSG_PUB.Count_And_Get
25043: (p_encoded =>'F' , p_count => p_msg_count ,
25044: p_data => p_msg_data );
25047: -- 4537865
25048: p_delete_task_ok_flag := NULL ;
25049: p_msg_count := FND_MSG_PUB.count_msg;
25050:
25051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
25052: THEN
25053:
25054: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25055:
25050:
25051: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
25052: THEN
25053:
25054: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25055:
25056: -- 4537865
25057: p_delete_task_ok_flag := NULL ;
25058:
25067: (p_count => p_msg_count ,
25068: p_data => p_msg_data );
25069:
25070: WHEN OTHERS THEN
25071: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25072:
25073: -- 4537865
25074: p_delete_task_ok_flag := NULL ;
25075:
25104: --
25105:
25106: PROCEDURE Check_Add_Subtask_OK
25107: (p_api_version_number IN NUMBER
25108: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25109: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25110: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25111: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25112: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
25119:
25120: BEGIN
25121:
25122: -- 4537865 : Initialize return status to success
25123: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25124:
25125: pa_project_check_pvt.Check_Add_Subtask_OK_pvt
25126: (p_api_version_number => p_api_version_number
25127: ,p_init_msg_list => p_init_msg_list
25137: -- 4537865
25138: EXCEPTION
25139:
25140: WHEN OTHERS THEN
25141: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25142:
25143: p_add_subtask_ok_flag := NULL ;
25144:
25145: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25173: -- 02-DEC-96 Update lwerker Removed Savepoint and Rollbacks
25174: --
25175: PROCEDURE Check_Unique_Task_Reference
25176: (p_api_version_number IN NUMBER
25177: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25178: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25179: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25180: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25181: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
25187:
25188: BEGIN
25189:
25190: -- 4537865 : Initialize return status to success
25191: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25192:
25193: pa_project_check_pvt.Check_Unique_Task_Ref_pvt
25194: (p_api_version_number => p_api_version_number
25195: ,p_init_msg_list => p_init_msg_list
25204: -- 4537865
25205: EXCEPTION
25206:
25207: WHEN OTHERS THEN
25208: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25209:
25210: p_unique_task_ref_flag := NULL ;
25211:
25212: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25240: -- Removed Savepoint and Rollbacks
25241: --
25242: PROCEDURE Check_Unique_Project_Reference
25243: (p_api_version_number IN NUMBER
25244: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25245: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25246: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25247: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25248: , p_pm_project_reference IN VARCHAR2
25252:
25253: BEGIN
25254:
25255: -- 4537865 : Initialize return status to success
25256: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25257:
25258: pa_project_check_pvt.Check_Unique_Project_Ref_pvt
25259: (p_api_version_number => p_api_version_number
25260: ,p_init_msg_list => p_init_msg_list
25267: -- 4537865
25268: EXCEPTION
25269:
25270: WHEN OTHERS THEN
25271: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25272:
25273: p_unique_project_ref_flag := NULL ;
25274: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25275: THEN
25300: --
25301:
25302: PROCEDURE Check_Delete_Project_OK
25303: (p_api_version_number IN NUMBER
25304: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25305: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25306: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25307: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25308: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
25313:
25314: BEGIN
25315:
25316: -- 4537865 : Initialize return status to success
25317: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25318:
25319: pa_project_check_pvt.Check_Delete_Project_OK_pvt
25320: (p_api_version_number => p_api_version_number
25321: ,p_init_msg_list => p_init_msg_list
25329: -- 4537865
25330: EXCEPTION
25331:
25332: WHEN OTHERS THEN
25333: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25334:
25335: p_delete_project_ok_flag := NULL ;
25336: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25337: THEN
25361: -- Removed Savepoint and Rollbacks
25362: --
25363: PROCEDURE Check_Change_Parent_OK
25364: (p_api_version_number IN NUMBER
25365: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25366: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25367: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25368: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25369: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
25378:
25379: BEGIN
25380:
25381: -- 4537865 : Initialize return status to success
25382: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25383:
25384: pa_project_check_pvt.Check_Change_Parent_OK_pvt
25385: (p_api_version_number => p_api_version_number
25386: ,p_init_msg_list => p_init_msg_list
25398: -- 4537865
25399: EXCEPTION
25400:
25401: WHEN OTHERS THEN
25402: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25403:
25404: p_change_parent_ok_flag := NULL ;
25405: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25406: THEN
25431: --
25432:
25433: PROCEDURE Check_Change_Project_Org_OK
25434: (p_api_version_number IN NUMBER
25435: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25436: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25437: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25438: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25439: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
25444:
25445: BEGIN
25446:
25447: -- 4537865 : Initialize return status to success
25448: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25449:
25450: pa_project_check_pvt.Check_Change_Proj_Org_OK_pvt
25451: (p_api_version_number => p_api_version_number
25452: ,p_init_msg_list => p_init_msg_list
25460: -- 4537865
25461: EXCEPTION
25462:
25463: WHEN OTHERS THEN
25464: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25465:
25466: p_change_project_org_ok_flag := NULL ;
25467: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25468: THEN
25493: --
25494:
25495: PROCEDURE Check_Unique_Task_Number
25496: (p_api_version_number IN NUMBER
25497: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25498: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25499: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25500: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25501: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
25507:
25508: BEGIN
25509:
25510: -- 4537865 : Initialize return status to success
25511: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25512:
25513: pa_project_check_pvt.Check_Unique_Task_Number_pvt
25514: (p_api_version_number => p_api_version_number
25515: ,p_init_msg_list => p_init_msg_list
25524: -- 4537865
25525: EXCEPTION
25526:
25527: WHEN OTHERS THEN
25528: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25529:
25530: p_unique_task_number_flag := NULL ;
25531: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25532: THEN
25557: -- Removed Savepoint and Rollbacks
25558:
25559: PROCEDURE Check_Task_Number_Change_Ok
25560: ( p_api_version_number IN NUMBER
25561: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25562: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25563: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25564: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25565: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
25572:
25573: BEGIN
25574:
25575: -- 4537865 : Initialize return status to success
25576: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25577:
25578: pa_project_check_pvt.Check_Task_Numb_Change_Ok_Pvt
25579: (p_api_version_number => p_api_version_number
25580: ,p_init_msg_list => p_init_msg_list
25590: -- 4537865
25591: EXCEPTION
25592:
25593: WHEN OTHERS THEN
25594: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25595:
25596: p_task_number_change_Ok_flag := NULL ;
25597: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25598: THEN
25618: --
25619: --
25620: PROCEDURE approve_project
25621: ( p_api_version_number IN NUMBER
25622: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
25623: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25624: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25625: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25626: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25619: --
25620: PROCEDURE approve_project
25621: ( p_api_version_number IN NUMBER
25622: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
25623: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25624: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
25625: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25626: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25627: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
25632:
25633: BEGIN
25634:
25635: -- 4537865 : Initialize return status to success
25636: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25637:
25638: pa_project_pvt.approve_project1
25639: ( p_api_version_number => p_api_version_number
25640: , p_commit => FND_API.G_FALSE--bug 3766967
25636: p_return_status := FND_API.G_RET_STS_SUCCESS ;
25637:
25638: pa_project_pvt.approve_project1
25639: ( p_api_version_number => p_api_version_number
25640: , p_commit => FND_API.G_FALSE--bug 3766967
25641: , p_init_msg_list => p_init_msg_list
25642: , p_msg_count => p_msg_count
25643: , p_msg_data => p_msg_data
25644: , p_return_status => p_return_status
25649: -- 4537865
25650: EXCEPTION
25651:
25652: WHEN OTHERS THEN
25653: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25654:
25655: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
25656: THEN
25657: FND_MSG_PUB.add_exc_msg
25686:
25687: PROCEDURE load_tasks
25688: (
25689: p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
25690: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
25691: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
25692: ,p_pm_task_reference IN PA_VC_1000_150
25693: ,p_pa_task_id IN PA_NUM_1000_NUM
25694: ,p_task_name IN PA_VC_1000_2000 := PA_VC_1000_2000(PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) --bug 6193314 .Modified PA_VC_1000_150
26147:
26148: BEGIN
26149:
26150: -- 4537865 : Initialize return status to success
26151: p_return_status := FND_API.G_RET_STS_SUCCESS ;
26152:
26153: -- Transferring all array variable to Global plsql table
26154: if (G_tasks_tbl_count = 0) then
26155: G_tasks_tbl_count := 1;
27568: -- 4537865
27569: EXCEPTION
27570:
27571: WHEN OTHERS THEN
27572: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27573:
27574: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27575: THEN
27576: FND_MSG_PUB.add_exc_msg
27582:
27583:
27584: PROCEDURE fetch_tasks
27585: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
27586: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
27587: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
27588: ,p_task_index IN PA_NUM_1000_NUM := PA_NUM_1000_NUM(PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
27589: ,p_pa_task_id OUT NOCOPY PA_NUM_1000_NUM /*Added the nocopy check for 4537865 */
27590: ,p_task_version_id OUT NOCOPY PA_NUM_1000_NUM /*Added the nocopy check for 4537865 */
27665: -- 4537865
27666: EXCEPTION
27667:
27668: WHEN OTHERS THEN
27669: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27670:
27671: p_pm_task_reference := NULL ;
27672: p_pa_task_id := NULL ;
27673: p_task_version_id := NULL ;
27694: -- 16-APR-2003 zahid.khan Initial creation
27695: --
27696:
27697: PROCEDURE load_extensible_attribute(P_API_VERSION_NUMBER IN NUMBER := 1.0,
27698: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
27699: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
27700: X_RETURN_STATUS OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
27701: P_TRANSACTION_TYPE IN VARCHAR2 := PA_PROJECT_PUB.G_SYNC_MODE,
27702: P_TASK_ID IN NUMBER := NULL,
27695: --
27696:
27697: PROCEDURE load_extensible_attribute(P_API_VERSION_NUMBER IN NUMBER := 1.0,
27698: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
27699: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
27700: X_RETURN_STATUS OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
27701: P_TRANSACTION_TYPE IN VARCHAR2 := PA_PROJECT_PUB.G_SYNC_MODE,
27702: P_TASK_ID IN NUMBER := NULL,
27703: P_TASK_REFERENCE IN VARCHAR2 := NULL,
27722:
27723: SAVEPOINT load_extensible_attribute_pub;
27724:
27725: -- Standard call to check for call compatibility.
27726: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
27727: p_api_version_number ,
27728: l_api_name,
27729: G_PKG_NAME)
27730: THEN
27727: p_api_version_number ,
27728: l_api_name,
27729: G_PKG_NAME)
27730: THEN
27731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27732: END IF;
27733:
27734: -- Initialize the message table if requested.
27735: IF FND_API.TO_BOOLEAN( p_init_msg_list )
27731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27732: END IF;
27733:
27734: -- Initialize the message table if requested.
27735: IF FND_API.TO_BOOLEAN( p_init_msg_list )
27736: THEN
27737: FND_MSG_PUB.initialize;
27738: END IF;
27739:
27753: G_ext_attr_in_tbl(G_ext_attr_tbl_count).ATTR_UNIT_OF_MEASURE:= P_ATTR_VALUE_NUM_UOM;
27754: G_ext_attr_in_tbl(G_ext_attr_tbl_count).TRANSACTION_TYPE := P_TRANSACTION_TYPE;
27755:
27756: -- Set API return status to success
27757: x_return_status := FND_API.G_RET_STS_SUCCESS;
27758:
27759: EXCEPTION
27760:
27761: WHEN FND_API.G_EXC_ERROR
27757: x_return_status := FND_API.G_RET_STS_SUCCESS;
27758:
27759: EXCEPTION
27760:
27761: WHEN FND_API.G_EXC_ERROR
27762: THEN
27763: ROLLBACK TO load_extensible_attribute_pub;
27764:
27765: x_return_status := FND_API.G_RET_STS_ERROR;
27761: WHEN FND_API.G_EXC_ERROR
27762: THEN
27763: ROLLBACK TO load_extensible_attribute_pub;
27764:
27765: x_return_status := FND_API.G_RET_STS_ERROR;
27766:
27767: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
27768: THEN
27769: ROLLBACK TO load_extensible_attribute_pub;
27763: ROLLBACK TO load_extensible_attribute_pub;
27764:
27765: x_return_status := FND_API.G_RET_STS_ERROR;
27766:
27767: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
27768: THEN
27769: ROLLBACK TO load_extensible_attribute_pub;
27770:
27771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27767: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
27768: THEN
27769: ROLLBACK TO load_extensible_attribute_pub;
27770:
27771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27772:
27773: WHEN OTHERS THEN
27774: ROLLBACK TO load_extensible_attribute_pub;
27775:
27772:
27773: WHEN OTHERS THEN
27774: ROLLBACK TO load_extensible_attribute_pub;
27775:
27776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27777:
27778: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
27779: THEN
27780: FND_MSG_PUB.add_exc_msg
27797: --History:
27798: -- 22-APR-2003 zahid.khan Initial creation
27799: --
27800: PROCEDURE load_extensible_attributes(P_API_VERSION_NUMBER IN NUMBER,
27801: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
27802: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
27803: X_RETURN_STATUS OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
27804: P_TRANSACTION_TYPE IN PA_VC_1000_10 := PA_VC_1000_10(PA_PROJECT_PUB.G_SYNC_MODE),
27805: P_TASK_ID IN PA_NUM_1000_NUM := PA_NUM_1000_NUM(NULL),
27798: -- 22-APR-2003 zahid.khan Initial creation
27799: --
27800: PROCEDURE load_extensible_attributes(P_API_VERSION_NUMBER IN NUMBER,
27801: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
27802: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
27803: X_RETURN_STATUS OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
27804: P_TRANSACTION_TYPE IN PA_VC_1000_10 := PA_VC_1000_10(PA_PROJECT_PUB.G_SYNC_MODE),
27805: P_TASK_ID IN PA_NUM_1000_NUM := PA_NUM_1000_NUM(NULL),
27806: P_TASK_REFERENCE IN PA_VC_1000_150 := PA_VC_1000_150(NULL),
27815: P_ATTR_DISP_VALUE IN PA_VC_1000_150 := PA_VC_1000_150(NULL)
27816: )
27817: IS
27818: l_api_name CONSTANT VARCHAR2(30) := 'Load_Extensible_Attributes';
27819: l_return_status VARCHAR(1) := FND_API.G_RET_STS_SUCCESS;
27820:
27821: l_proj_element_id_flag BOOLEAN := (P_TASK_ID.count = 1 and P_TASK_ID(1) = NULL);
27822: l_proj_element_reference_flag BOOLEAN := (P_TASK_REFERENCE.count = 1 and P_TASK_REFERENCE(1) = NULL);
27823: l_row_identifier_flag BOOLEAN := (P_ATTR_GRP_ROW_INDEX.count = 1 and P_ATTR_GRP_ROW_INDEX(1) = NULL);
27844: l_user_row_identifier VARCHAR2(150);
27845: l_transaction_type VARCHAR2(30);
27846: BEGIN
27847: -- initialize message stack, if needed
27848: IF FND_API.to_boolean(p_init_msg_list)
27849: THEN
27850: FND_MSG_PUB.initialize;
27851: END IF;
27852:
27940:
27941: -- call unit api
27942: load_extensible_attribute
27943: ( P_INIT_MSG_LIST => P_INIT_MSG_LIST,
27944: P_COMMIT => FND_API.G_FALSE,--bug 3766967
27945: X_RETURN_STATUS => l_return_status,
27946: P_TASK_ID => l_proj_element_id,
27947: P_TASK_REFERENCE => l_proj_element_reference,
27948: P_ATTR_GRP_ROW_INDEX => P_ATTR_GRP_ROW_INDEX(i),
27956: P_ATTR_VALUE_NUM_UOM => l_attr_unit_of_measure,
27957: P_TRANSACTION_TYPE => l_transaction_type
27958: );
27959:
27960: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
27961: THEN
27962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27963: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
27964: THEN
27958: );
27959:
27960: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
27961: THEN
27962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27963: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
27964: THEN
27965: RAISE FND_API.G_EXC_ERROR;
27966: END IF;
27959:
27960: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
27961: THEN
27962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27963: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
27964: THEN
27965: RAISE FND_API.G_EXC_ERROR;
27966: END IF;
27967:
27961: THEN
27962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27963: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
27964: THEN
27965: RAISE FND_API.G_EXC_ERROR;
27966: END IF;
27967:
27968: END LOOP;
27969:
27966: END IF;
27967:
27968: END LOOP;
27969:
27970: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
27971: EXCEPTION
27972: WHEN FND_API.G_EXC_ERROR THEN
27973: x_return_status := FND_API.G_RET_STS_ERROR;
27974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27968: END LOOP;
27969:
27970: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
27971: EXCEPTION
27972: WHEN FND_API.G_EXC_ERROR THEN
27973: x_return_status := FND_API.G_RET_STS_ERROR;
27974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27976: WHEN OTHERS THEN
27969:
27970: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
27971: EXCEPTION
27972: WHEN FND_API.G_EXC_ERROR THEN
27973: x_return_status := FND_API.G_RET_STS_ERROR;
27974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27976: WHEN OTHERS THEN
27977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27970: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
27971: EXCEPTION
27972: WHEN FND_API.G_EXC_ERROR THEN
27973: x_return_status := FND_API.G_RET_STS_ERROR;
27974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27976: WHEN OTHERS THEN
27977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27978: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27971: EXCEPTION
27972: WHEN FND_API.G_EXC_ERROR THEN
27973: x_return_status := FND_API.G_RET_STS_ERROR;
27974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27976: WHEN OTHERS THEN
27977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27978: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27979: FND_MSG_PUB.Add_Exc_Msg
27973: x_return_status := FND_API.G_RET_STS_ERROR;
27974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
27975: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27976: WHEN OTHERS THEN
27977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27978: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
27979: FND_MSG_PUB.Add_Exc_Msg
27980: ( G_PKG_NAME
27981: , l_api_name
27988: --Project Structures
27989:
27990: PROCEDURE load_structure
27991: ( p_api_version_number IN NUMBER
27992: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
27993: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
27994: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
27995: ,p_structure_type IN VARCHAR2 := 'FINANCIAL'
27996: ,p_structure_version_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
28029: SAVEPOINT load_structure_pub;
28030:
28031: -- Standard call to check for call compatibility.
28032:
28033: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
28034: p_api_version_number ,
28035: l_api_name ,
28036: G_PKG_NAME )
28037: THEN
28035: l_api_name ,
28036: G_PKG_NAME )
28037: THEN
28038:
28039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28040:
28041: END IF;
28042:
28043: -- Initialize the message table if requested.
28041: END IF;
28042:
28043: -- Initialize the message table if requested.
28044:
28045: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28046: THEN
28047:
28048: FND_MSG_PUB.initialize;
28049:
28050: END IF;
28051:
28052: -- Set API return status to success
28053:
28054: p_return_status := FND_API.G_RET_STS_SUCCESS;
28055:
28056: -- Bug 2978114.
28057: -- Validate the structure type. It should be FINANCIAL / WORKPLAN /DELIVERABLE.
28058: -- Throw an error otherwise.
28060: IF nvl(p_structure_type,'-99') not in ('FINANCIAL','WORKPLAN', 'DELIVERABLE') THEN
28061: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28062: ,p_msg_name => 'PA_PS_INV_STR_TYPE');
28063:
28064: RAISE FND_API.G_EXC_ERROR;
28065: END IF;
28066:
28067: -- assign incoming parameters to the fields of global structure record
28068:
28094: */
28095:
28096: EXCEPTION
28097:
28098: WHEN FND_API.G_EXC_ERROR
28099: THEN
28100: ROLLBACK TO load_structure_pub;
28101:
28102: p_return_status := FND_API.G_RET_STS_ERROR;
28098: WHEN FND_API.G_EXC_ERROR
28099: THEN
28100: ROLLBACK TO load_structure_pub;
28101:
28102: p_return_status := FND_API.G_RET_STS_ERROR;
28103:
28104:
28105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28106: THEN
28101:
28102: p_return_status := FND_API.G_RET_STS_ERROR;
28103:
28104:
28105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28106: THEN
28107: ROLLBACK TO load_structure_pub;
28108:
28109: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28106: THEN
28107: ROLLBACK TO load_structure_pub;
28108:
28109: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28110:
28111:
28112: WHEN OTHERS THEN
28113: ROLLBACK TO load_structure_pub;
28111:
28112: WHEN OTHERS THEN
28113: ROLLBACK TO load_structure_pub;
28114:
28115: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28116:
28117: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28118: THEN
28119: FND_MSG_PUB.add_exc_msg
28150: -- Begin fix for Bug # 4314797.
28151:
28152: -- Standard begin of API savepoint
28153: -- Bug 10434606
28154: IF p_commit = FND_API.G_TRUE THEN
28155: SAVEPOINT change_structure_status;
28156: END IF;
28157:
28158: -- Standard call to check for call compatibility.
28156: END IF;
28157:
28158: -- Standard call to check for call compatibility.
28159:
28160: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
28161: p_api_version_number ,
28162: l_api_name ,
28163: G_PKG_NAME )
28164: THEN
28162: l_api_name ,
28163: G_PKG_NAME )
28164: THEN
28165:
28166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28167:
28168: END IF;
28169:
28170: -- Initialize the message table if requested.
28168: END IF;
28169:
28170: -- Initialize the message table if requested.
28171:
28172: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28173: THEN
28174:
28175: FND_MSG_PUB.initialize;
28176:
28177: END IF;
28178:
28179: -- Set API return status to success
28180:
28181: p_return_status := FND_API.G_RET_STS_SUCCESS;
28182:
28183: -- End fix for Bug # 4314797.
28184:
28185: PA_WORKPLAN_AMG_PUB.CHANGE_STRUCTURE_STATUS
28185: PA_WORKPLAN_AMG_PUB.CHANGE_STRUCTURE_STATUS
28186: (
28187: p_api_version_number => p_api_version_number
28188: ,p_init_msg_list => p_init_msg_list
28189: ,p_commit => FND_API.G_FALSE--bug 3766967
28190: ,p_pa_project_id => p_pa_project_id
28191: ,p_structure_version_id => p_structure_version_id
28192: ,p_status_code => p_status_code
28193: ,p_return_status => p_return_status
28194: ,p_msg_count => p_msg_count
28195: ,p_msg_data => p_msg_data
28196: , p_published_struct_ver_id => p_published_struct_ver_id
28197: );
28198: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28200: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28201: RAISE FND_API.G_EXC_ERROR;
28202: END IF;
28195: ,p_msg_data => p_msg_data
28196: , p_published_struct_ver_id => p_published_struct_ver_id
28197: );
28198: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28200: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28201: RAISE FND_API.G_EXC_ERROR;
28202: END IF;
28203:
28196: , p_published_struct_ver_id => p_published_struct_ver_id
28197: );
28198: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28200: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28201: RAISE FND_API.G_EXC_ERROR;
28202: END IF;
28203:
28204: -- PA L Changes 3010538
28197: );
28198: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28200: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28201: RAISE FND_API.G_EXC_ERROR;
28202: END IF;
28203:
28204: -- PA L Changes 3010538
28205: --Commenting as for a publishing case we need to always check for update wbs required flag
28236: end if;
28237:
28238:
28239:
28240: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
28241: THEN
28242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28243: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
28244: THEN
28238:
28239:
28240: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
28241: THEN
28242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28243: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
28244: THEN
28245: RAISE FND_API.G_EXC_ERROR;
28246: END IF;
28239:
28240: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
28241: THEN
28242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28243: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
28244: THEN
28245: RAISE FND_API.G_EXC_ERROR;
28246: END IF;
28247: ELSIF p_process_mode = 'CONCURRENT' THEN
28241: THEN
28242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28243: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
28244: THEN
28245: RAISE FND_API.G_EXC_ERROR;
28246: END IF;
28247: ELSIF p_process_mode = 'CONCURRENT' THEN
28248: /* Added if block for bug 5390015 */
28249: IF p_status_code = 'STRUCTURE_PUBLISHED' THEN
28265: ,x_msg_count => l_msg_count
28266: ,x_msg_data => l_msg_data ) ;
28267: END IF;
28268:
28269: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
28270: THEN
28271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
28273: THEN
28267: END IF;
28268:
28269: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
28270: THEN
28271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
28273: THEN
28274: RAISE FND_API.G_EXC_ERROR;
28275: END IF;
28268:
28269: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
28270: THEN
28271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
28273: THEN
28274: RAISE FND_API.G_EXC_ERROR;
28275: END IF;
28276:
28270: THEN
28271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
28273: THEN
28274: RAISE FND_API.G_EXC_ERROR;
28275: END IF;
28276:
28277:
28278: END IF ;
28281:
28282: -- PA L Changes 3010538
28283:
28284: EXCEPTION
28285: WHEN FND_API.G_EXC_ERROR THEN
28286: p_return_status := FND_API.G_RET_STS_ERROR;
28287:
28288: -- 4537865
28289: p_published_struct_ver_id := NULL ;
28282: -- PA L Changes 3010538
28283:
28284: EXCEPTION
28285: WHEN FND_API.G_EXC_ERROR THEN
28286: p_return_status := FND_API.G_RET_STS_ERROR;
28287:
28288: -- 4537865
28289: p_published_struct_ver_id := NULL ;
28290:
28290:
28291: -- Begin fix for Bug # 4314797.
28292: -- Bug 10434606
28293:
28294: IF p_commit = FND_API.G_TRUE THEN
28295: ROLLBACK TO change_structure_status;
28296: END IF;
28297:
28298: p_msg_count := l_msg_count;
28302: , p_data => p_msg_data);
28303:
28304: -- End fix for Bug # 4314797.
28305:
28306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
28307: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28308:
28309: -- 4537865
28310: p_published_struct_ver_id := NULL ;
28303:
28304: -- End fix for Bug # 4314797.
28305:
28306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
28307: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28308:
28309: -- 4537865
28310: p_published_struct_ver_id := NULL ;
28311:
28310: p_published_struct_ver_id := NULL ;
28311:
28312: -- Begin fix for Bug # 4314797.
28313: -- Bug 10434606
28314: IF p_commit = FND_API.G_TRUE THEN
28315: ROLLBACK TO change_structure_status;
28316: END IF;
28317:
28318: p_msg_count := l_msg_count;
28324: -- End fix for Bug # 4314797.
28325:
28326:
28327: WHEN OTHERS THEN
28328: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28329:
28330: -- 4537865
28331: p_published_struct_ver_id := NULL ;
28332:
28339:
28340: -- Begin fix for Bug # 4314797.
28341: -- Bug 10434606
28342:
28343: IF p_commit = FND_API.G_TRUE THEN
28344: ROLLBACK TO change_structure_status;
28345: END IF;
28346:
28347: p_msg_count := l_msg_count;
28372: BEGIN
28373:
28374: -- 4537865
28375: --Initialize p_return_status to Success
28376: p_return_status := FND_API.G_RET_STS_SUCCESS ;
28377:
28378: PA_WORKPLAN_AMG_PUB.BASELINE_STRUCTURE
28379: (
28380: p_api_version_number => p_api_version_number
28378: PA_WORKPLAN_AMG_PUB.BASELINE_STRUCTURE
28379: (
28380: p_api_version_number => p_api_version_number
28381: ,p_init_msg_list => p_init_msg_list
28382: ,p_commit => FND_API.G_FALSE--bug 3766967
28383: ,p_pa_project_id => p_pa_project_id
28384: ,p_structure_version_id => p_structure_version_id
28385: ,p_return_status => p_return_status
28386: ,p_msg_count => p_msg_count
28385: ,p_return_status => p_return_status
28386: ,p_msg_count => p_msg_count
28387: ,p_msg_data => p_msg_data
28388: );
28389: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28391: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28392: RAISE FND_API.G_EXC_ERROR;
28393: END IF;
28386: ,p_msg_count => p_msg_count
28387: ,p_msg_data => p_msg_data
28388: );
28389: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28391: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28392: RAISE FND_API.G_EXC_ERROR;
28393: END IF;
28394:
28387: ,p_msg_data => p_msg_data
28388: );
28389: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28391: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28392: RAISE FND_API.G_EXC_ERROR;
28393: END IF;
28394:
28395: EXCEPTION
28388: );
28389: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28391: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28392: RAISE FND_API.G_EXC_ERROR;
28393: END IF;
28394:
28395: EXCEPTION
28396: WHEN FND_API.G_EXC_ERROR THEN
28392: RAISE FND_API.G_EXC_ERROR;
28393: END IF;
28394:
28395: EXCEPTION
28396: WHEN FND_API.G_EXC_ERROR THEN
28397: p_return_status := FND_API.G_RET_STS_ERROR;
28398:
28399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
28400: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28393: END IF;
28394:
28395: EXCEPTION
28396: WHEN FND_API.G_EXC_ERROR THEN
28397: p_return_status := FND_API.G_RET_STS_ERROR;
28398:
28399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
28400: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28401:
28395: EXCEPTION
28396: WHEN FND_API.G_EXC_ERROR THEN
28397: p_return_status := FND_API.G_RET_STS_ERROR;
28398:
28399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
28400: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28401:
28402: WHEN OTHERS THEN
28403: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28396: WHEN FND_API.G_EXC_ERROR THEN
28397: p_return_status := FND_API.G_RET_STS_ERROR;
28398:
28399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
28400: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28401:
28402: WHEN OTHERS THEN
28403: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28404:
28399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
28400: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28401:
28402: WHEN OTHERS THEN
28403: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28404:
28405: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
28406: FND_MSG_PUB.add_exc_msg
28407: (p_pkg_name => G_PKG_NAME
28411:
28412:
28413: PROCEDURE delete_structure_version
28414: ( p_api_version_number IN NUMBER := 1.0 -- for bug# 3802759
28415: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
28416: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
28417: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
28418: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
28419: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
28412:
28413: PROCEDURE delete_structure_version
28414: ( p_api_version_number IN NUMBER := 1.0 -- for bug# 3802759
28415: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
28416: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
28417: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
28418: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
28419: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
28420: ,p_structure_version_id IN NUMBER
28429: SAVEPOINT delete_structure_ver_pub;
28430:
28431: -- Standard call to check for call compatibility.
28432:
28433: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
28434: p_api_version_number ,
28435: l_api_name ,
28436: G_PKG_NAME )
28437: THEN
28435: l_api_name ,
28436: G_PKG_NAME )
28437: THEN
28438:
28439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28440:
28441: END IF;
28442:
28443: -- Initialize the message table if requested.
28441: END IF;
28442:
28443: -- Initialize the message table if requested.
28444:
28445: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28446: THEN
28447:
28448: FND_MSG_PUB.initialize;
28449:
28450: END IF;
28451:
28452: -- Set API return status to success
28453:
28454: p_return_status := FND_API.G_RET_STS_SUCCESS;
28455:
28456: PA_PROJ_TASK_STRUC_PUB.DELETE_STRUCTURE_VERSION(
28457: p_api_version => p_api_version_number
28458: ,p_init_msg_list => p_init_msg_list
28455:
28456: PA_PROJ_TASK_STRUC_PUB.DELETE_STRUCTURE_VERSION(
28457: p_api_version => p_api_version_number
28458: ,p_init_msg_list => p_init_msg_list
28459: ,p_commit => FND_API.G_FALSE--bug 3766967
28460: ,p_calling_module => 'AMG'
28461: ,p_structure_version_id => p_structure_version_id
28462: ,p_record_version_number => p_record_version_number
28463: ,x_return_status => p_return_status
28464: ,x_msg_count => p_msg_count
28465: ,x_msg_data => p_msg_data
28466: );
28467:
28468: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28470: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28471: RAISE FND_API.G_EXC_ERROR;
28472: END IF;
28465: ,x_msg_data => p_msg_data
28466: );
28467:
28468: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28470: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28471: RAISE FND_API.G_EXC_ERROR;
28472: END IF;
28473:
28466: );
28467:
28468: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28470: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28471: RAISE FND_API.G_EXC_ERROR;
28472: END IF;
28473:
28474: EXCEPTION
28467:
28468: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28470: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28471: RAISE FND_API.G_EXC_ERROR;
28472: END IF;
28473:
28474: EXCEPTION
28475:
28472: END IF;
28473:
28474: EXCEPTION
28475:
28476: WHEN FND_API.G_EXC_ERROR
28477: THEN
28478: ROLLBACK TO delete_structure_ver_pub;
28479:
28480: p_return_status := FND_API.G_RET_STS_ERROR;
28476: WHEN FND_API.G_EXC_ERROR
28477: THEN
28478: ROLLBACK TO delete_structure_ver_pub;
28479:
28480: p_return_status := FND_API.G_RET_STS_ERROR;
28481:
28482:
28483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28484: THEN
28479:
28480: p_return_status := FND_API.G_RET_STS_ERROR;
28481:
28482:
28483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28484: THEN
28485: ROLLBACK TO delete_structure_ver_pub;
28486:
28487: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28484: THEN
28485: ROLLBACK TO delete_structure_ver_pub;
28486:
28487: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28488:
28489:
28490: WHEN OTHERS THEN
28491: ROLLBACK TO delete_structure_ver_pub;
28489:
28490: WHEN OTHERS THEN
28491: ROLLBACK TO delete_structure_ver_pub;
28492:
28493: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28494:
28495: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28496: THEN
28497: FND_MSG_PUB.add_exc_msg
28520: --
28521:
28522: PROCEDURE fetch_structure_version
28523: ( p_api_version_number IN NUMBER
28524: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
28525: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
28526: ,p_structure_type IN VARCHAR2 := 'FINANCIAL'
28527: ,p_pa_structure_version_id OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
28528: ,p_struc_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
28539: SAVEPOINT fetch_struc_pub;
28540:
28541: -- Standard call to check for call compatibility.
28542:
28543: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
28544: p_api_version_number ,
28545: l_api_name ,
28546: G_PKG_NAME )
28547: THEN
28545: l_api_name ,
28546: G_PKG_NAME )
28547: THEN
28548:
28549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28550:
28551: END IF;
28552:
28553: -- Initialize the message table if requested.
28551: END IF;
28552:
28553: -- Initialize the message table if requested.
28554:
28555: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28556: THEN
28557:
28558: FND_MSG_PUB.initialize;
28559:
28560: END IF;
28561:
28562: -- Set API return status to success
28563:
28564: p_return_status := FND_API.G_RET_STS_SUCCESS;
28565:
28566:
28567: FOR i in 1..G_Struc_out_tbl.count LOOP
28568:
28582: END IF;
28583: END LOOP;
28584:
28585: EXCEPTION
28586: WHEN FND_API.G_EXC_ERROR
28587: THEN
28588: ROLLBACK TO fetch_struc_pub;
28589:
28590: p_return_status := FND_API.G_RET_STS_ERROR;
28586: WHEN FND_API.G_EXC_ERROR
28587: THEN
28588: ROLLBACK TO fetch_struc_pub;
28589:
28590: p_return_status := FND_API.G_RET_STS_ERROR;
28591:
28592: -- 4537865
28593: p_pa_structure_version_id := NULL ;
28594: p_struc_return_status := NULL ;
28593: p_pa_structure_version_id := NULL ;
28594: p_struc_return_status := NULL ;
28595:
28596:
28597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28598: THEN
28599: ROLLBACK TO fetch_struc_pub;
28600:
28601: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28598: THEN
28599: ROLLBACK TO fetch_struc_pub;
28600:
28601: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28602:
28603: -- 4537865
28604: p_pa_structure_version_id := NULL ;
28605: p_struc_return_status := NULL ;
28607:
28608: WHEN OTHERS THEN
28609: ROLLBACK TO fetch_struc_pub;
28610:
28611: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28612:
28613: -- 4537865
28614: p_pa_structure_version_id := NULL ;
28615: p_struc_return_status := NULL ;
28641: --
28642:
28643: PROCEDURE fetch_task_version
28644: ( p_api_version_number IN NUMBER
28645: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
28646: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
28647: ,p_task_index IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
28648: ,p_task_version_id OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
28649: ,p_task_return_status OUT NOCOPY VARCHAR2 ) /*Added the nocopy check for 4537865 */
28660: SAVEPOINT fetch_task_version_pub;
28661:
28662: -- Standard call to check for call compatibility.
28663:
28664: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
28665: p_api_version_number ,
28666: l_api_name ,
28667: G_PKG_NAME )
28668: THEN
28666: l_api_name ,
28667: G_PKG_NAME )
28668: THEN
28669:
28670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28671:
28672: END IF;
28673:
28674: -- Initialize the message table if requested.
28672: END IF;
28673:
28674: -- Initialize the message table if requested.
28675:
28676: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28677: THEN
28678:
28679: FND_MSG_PUB.initialize;
28680:
28681: END IF;
28682:
28683: -- Set API return status to success
28684:
28685: p_return_status := FND_API.G_RET_STS_SUCCESS;
28686:
28687: -- Check Task index value, when they don't provide an index we will error out
28688: IF p_task_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
28689: OR p_task_index IS NULL
28701: ,p_attribute4 => ''
28702: ,p_attribute5 => '');
28703: END IF;
28704:
28705: p_return_status := FND_API.G_RET_STS_ERROR;
28706: RAISE FND_API.G_EXC_ERROR;
28707: ELSE
28708: l_index := p_task_index;
28709: END IF;
28702: ,p_attribute5 => '');
28703: END IF;
28704:
28705: p_return_status := FND_API.G_RET_STS_ERROR;
28706: RAISE FND_API.G_EXC_ERROR;
28707: ELSE
28708: l_index := p_task_index;
28709: END IF;
28710:
28728: END IF;
28729:
28730: EXCEPTION
28731:
28732: WHEN FND_API.G_EXC_ERROR
28733: THEN
28734: ROLLBACK TO fetch_task_version_pub;
28735:
28736: p_return_status := FND_API.G_RET_STS_ERROR;
28732: WHEN FND_API.G_EXC_ERROR
28733: THEN
28734: ROLLBACK TO fetch_task_version_pub;
28735:
28736: p_return_status := FND_API.G_RET_STS_ERROR;
28737:
28738: -- 4537865
28739: p_task_version_id := NULL ;
28740:
28738: -- 4537865
28739: p_task_version_id := NULL ;
28740:
28741:
28742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28743: THEN
28744: ROLLBACK TO fetch_task_version_pub;
28745:
28746: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28743: THEN
28744: ROLLBACK TO fetch_task_version_pub;
28745:
28746: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28747:
28748: -- 4537865
28749: p_task_version_id := NULL ;
28750:
28751:
28752: WHEN OTHERS THEN
28753: ROLLBACK TO fetch_task_version_pub;
28754:
28755: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28756: -- 4537865
28757: p_task_version_id := NULL ;
28758:
28759: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28769:
28770: --bug 2765115
28771: PROCEDURE get_task_version
28772: ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
28773: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
28774: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
28775: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
28776: ,p_pa_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
28777: ,p_pa_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
28789: SAVEPOINT get_task_version_pub;
28790:
28791: -- Standard call to check for call compatibility.
28792:
28793: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
28794: p_api_version_number ,
28795: l_api_name ,
28796: G_PKG_NAME )
28797: THEN
28795: l_api_name ,
28796: G_PKG_NAME )
28797: THEN
28798:
28799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28800:
28801: END IF;
28802:
28803: -- Initialize the message table if requested.
28801: END IF;
28802:
28803: -- Initialize the message table if requested.
28804:
28805: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28806: THEN
28807:
28808: FND_MSG_PUB.initialize;
28809:
28809:
28810: END IF;
28811:
28812: -- Set API return status to success
28813: p_return_status := FND_API.G_RET_STS_SUCCESS;
28814:
28815: IF ( p_pa_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_task_id IS NULL ) OR
28816: ( p_pa_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_project_id IS NULL ) OR
28817: ( p_pa_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_structure_version_id IS NULL )
28827:
28828: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28829: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28830: END IF;
28831: p_return_status := FND_API.G_RET_STS_ERROR;
28832: RAISE FND_API.G_EXC_ERROR;
28833: END IF;
28834:
28835: PA_PROJ_TASK_STRUC_PUB.get_task_version_id(
28828: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28829: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28830: END IF;
28831: p_return_status := FND_API.G_RET_STS_ERROR;
28832: RAISE FND_API.G_EXC_ERROR;
28833: END IF;
28834:
28835: PA_PROJ_TASK_STRUC_PUB.get_task_version_id(
28836: p_project_id => p_pa_project_id
28840: );
28841:
28842: IF p_task_version_id IS NULL
28843: THEN
28844: p_return_status := FND_API.G_RET_STS_ERROR;
28845: RAISE FND_API.G_EXC_ERROR;
28846: END IF;
28847:
28848: EXCEPTION
28841:
28842: IF p_task_version_id IS NULL
28843: THEN
28844: p_return_status := FND_API.G_RET_STS_ERROR;
28845: RAISE FND_API.G_EXC_ERROR;
28846: END IF;
28847:
28848: EXCEPTION
28849:
28846: END IF;
28847:
28848: EXCEPTION
28849:
28850: WHEN FND_API.G_EXC_ERROR
28851: THEN
28852: ROLLBACK TO get_task_version_pub;
28853:
28854: p_return_status := FND_API.G_RET_STS_ERROR;
28850: WHEN FND_API.G_EXC_ERROR
28851: THEN
28852: ROLLBACK TO get_task_version_pub;
28853:
28854: p_return_status := FND_API.G_RET_STS_ERROR;
28855:
28856: --4537865
28857: p_task_version_id := NULL ;
28858:
28856: --4537865
28857: p_task_version_id := NULL ;
28858:
28859:
28860: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28861: THEN
28862: ROLLBACK TO get_task_version_pub;
28863:
28864: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28860: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
28861: THEN
28862: ROLLBACK TO get_task_version_pub;
28863:
28864: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28865: --4537865
28866: p_task_version_id := NULL ;
28867:
28868:
28868:
28869: WHEN OTHERS THEN
28870: ROLLBACK TO get_task_version_pub;
28871:
28872: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
28873: --4537865
28874: p_task_version_id := NULL ;
28875: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
28876: THEN
28917: SAVEPOINT get_task_version_pub;
28918:
28919: -- Standard call to check for call compatibility.
28920:
28921: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
28922: p_api_version_number ,
28923: l_api_name ,
28924: G_PKG_NAME )
28925: THEN
28923: l_api_name ,
28924: G_PKG_NAME )
28925: THEN
28926:
28927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28928:
28929: END IF;
28930:
28931: -- Initialize the message table if requested.
28929: END IF;
28930:
28931: -- Initialize the message table if requested.
28932:
28933: IF FND_API.TO_BOOLEAN( p_init_msg_list )
28934: THEN
28935:
28936: FND_MSG_PUB.initialize;
28937:
28937:
28938: END IF;
28939:
28940: -- Set API return status to success
28941: p_return_status := FND_API.G_RET_STS_SUCCESS;
28942:
28943: IF ( p_pa_project_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_pa_project_id IS NULL ) OR
28944: ( p_structure_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM OR p_structure_version_id IS NULL )
28945: THEN
28950:
28951: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28952: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28953: END IF;
28954: p_return_status := FND_API.G_RET_STS_ERROR;
28955: RAISE FND_API.G_EXC_ERROR;
28956: END IF;
28957:
28958: OPEN l_temp_cursor;
28951: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28952: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28953: END IF;
28954: p_return_status := FND_API.G_RET_STS_ERROR;
28955: RAISE FND_API.G_EXC_ERROR;
28956: END IF;
28957:
28958: OPEN l_temp_cursor;
28959: FETCH l_temp_cursor INTO l_rec_version_number, l_pev_structure_id, l_name;
28966: -- Using the message name PA_PS_INV_STR_VER_ID
28967: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28968: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28969: END IF;
28970: p_return_status := FND_API.G_RET_STS_ERROR;
28971: RAISE FND_API.G_EXC_ERROR;
28972: END IF;
28973: CLOSE l_temp_cursor;
28974:
28967: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28968: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28969: END IF;
28970: p_return_status := FND_API.G_RET_STS_ERROR;
28971: RAISE FND_API.G_EXC_ERROR;
28972: END IF;
28973: CLOSE l_temp_cursor;
28974:
28975: PA_PROJECT_STRUCTURE_PVT1.update_structure_version_attr
28974:
28975: PA_PROJECT_STRUCTURE_PVT1.update_structure_version_attr
28976: (p_api_version => p_api_version_number
28977: ,p_init_msg_list => p_init_msg_list
28978: ,p_commit => FND_API.G_FALSE--bug 3766967
28979: ,p_pev_structure_id => l_pev_structure_id
28980: ,p_structure_version_name => l_name
28981: ,p_record_version_number => l_rec_version_number
28982: ,p_current_working_ver_flag => 'Y'
28984: ,x_msg_count => p_msg_count
28985: ,x_msg_data => p_msg_data
28986: );
28987:
28988: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28990: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28991: RAISE FND_API.G_EXC_ERROR;
28992: END IF;
28985: ,x_msg_data => p_msg_data
28986: );
28987:
28988: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28990: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28991: RAISE FND_API.G_EXC_ERROR;
28992: END IF;
28993:
28986: );
28987:
28988: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28990: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28991: RAISE FND_API.G_EXC_ERROR;
28992: END IF;
28993:
28994: EXCEPTION
28987:
28988: IF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
28989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28990: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
28991: RAISE FND_API.G_EXC_ERROR;
28992: END IF;
28993:
28994: EXCEPTION
28995:
28992: END IF;
28993:
28994: EXCEPTION
28995:
28996: WHEN FND_API.G_EXC_ERROR
28997: THEN
28998: ROLLBACK TO get_task_version_pub;
28999:
29000: p_return_status := FND_API.G_RET_STS_ERROR;
28996: WHEN FND_API.G_EXC_ERROR
28997: THEN
28998: ROLLBACK TO get_task_version_pub;
28999:
29000: p_return_status := FND_API.G_RET_STS_ERROR;
29001:
29002:
29003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
29004: THEN
28999:
29000: p_return_status := FND_API.G_RET_STS_ERROR;
29001:
29002:
29003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
29004: THEN
29005: ROLLBACK TO get_task_version_pub;
29006:
29007: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
29004: THEN
29005: ROLLBACK TO get_task_version_pub;
29006:
29007: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29008:
29009:
29010: WHEN OTHERS THEN
29011: ROLLBACK TO get_task_version_pub;
29009:
29010: WHEN OTHERS THEN
29011: ROLLBACK TO get_task_version_pub;
29012:
29013: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29014: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29015: THEN
29016: FND_MSG_PUB.add_exc_msg
29017: ( p_pkg_name => G_PKG_NAME
29040: -- 02-APR-2004 Rakesh Raghavan Created
29041:
29042: PROCEDURE apply_lp_prog_on_cwv(
29043: p_api_version IN NUMBER :=1.0
29044: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
29045: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
29046: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
29047: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
29048: ,p_working_str_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
29041:
29042: PROCEDURE apply_lp_prog_on_cwv(
29043: p_api_version IN NUMBER :=1.0
29044: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
29045: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
29046: ,p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
29047: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
29048: ,p_working_str_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
29049: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
29074: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
29075:
29076: -- Standard call to check for call compatibility.
29077:
29078: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
29079:
29080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29081:
29082: END IF;
29076: -- Standard call to check for call compatibility.
29077:
29078: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
29079:
29080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29081:
29082: END IF;
29083:
29084: -- Initialize the message table if requested.
29082: END IF;
29083:
29084: -- Initialize the message table if requested.
29085:
29086: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
29087:
29088: FND_MSG_PUB.initialize;
29089:
29090: END IF;
29090: END IF;
29091:
29092: -- Set API return status to success.
29093:
29094: p_return_status := FND_API.G_RET_STS_SUCCESS;
29095:
29096: /* Checking function security. */
29097:
29098: -- Actions performed using the APIs would be subject to
29110: p_msg_data => l_msg_data,
29111: p_return_status => l_return_status,
29112: p_function_allowed => l_function_allowed );
29113:
29114: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
29115: THEN
29116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29117:
29118: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
29112: p_function_allowed => l_function_allowed );
29113:
29114: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
29115: THEN
29116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29117:
29118: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
29119: THEN
29120: RAISE FND_API.G_EXC_ERROR;
29114: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
29115: THEN
29116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29117:
29118: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
29119: THEN
29120: RAISE FND_API.G_EXC_ERROR;
29121: END IF;
29122: IF l_function_allowed = 'N' THEN
29116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29117:
29118: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
29119: THEN
29120: RAISE FND_API.G_EXC_ERROR;
29121: END IF;
29122: IF l_function_allowed = 'N' THEN
29123: pa_interface_utils_pub.map_new_amg_msg
29124: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
29129: ,p_attribute2 => ''
29130: ,p_attribute3 => ''
29131: ,p_attribute4 => ''
29132: ,p_attribute5 => '');
29133: p_return_status := FND_API.G_RET_STS_ERROR;
29134: RAISE FND_API.G_EXC_ERROR;
29135: END IF;
29136:
29137: /* Converting project_reference to project_id */
29130: ,p_attribute3 => ''
29131: ,p_attribute4 => ''
29132: ,p_attribute5 => '');
29133: p_return_status := FND_API.G_RET_STS_ERROR;
29134: RAISE FND_API.G_EXC_ERROR;
29135: END IF;
29136:
29137: /* Converting project_reference to project_id */
29138:
29141: , p_pa_project_id => p_pa_project_id
29142: , p_out_project_id => l_project_id
29143: , p_return_status => l_return_status);
29144:
29145: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
29146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29147: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
29148: RAISE FND_API.G_EXC_ERROR;
29149: END IF;
29142: , p_out_project_id => l_project_id
29143: , p_return_status => l_return_status);
29144:
29145: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
29146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29147: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
29148: RAISE FND_API.G_EXC_ERROR;
29149: END IF;
29150:
29143: , p_return_status => l_return_status);
29144:
29145: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
29146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29147: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
29148: RAISE FND_API.G_EXC_ERROR;
29149: END IF;
29150:
29151: /* Getting the working structure_version_id */
29144:
29145: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
29146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29147: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
29148: RAISE FND_API.G_EXC_ERROR;
29149: END IF;
29150:
29151: /* Getting the working structure_version_id */
29152:
29163: ,p_attribute4 => ''
29164: ,p_attribute5 => '');
29165: end if;
29166:
29167: p_return_status := FND_API.G_RET_STS_ERROR;
29168: RAISE FND_API.G_EXC_ERROR;
29169: end if;
29170:
29171: /* Calling: PA_PROGRESS_PUB.apply_lp_prog_on_cwv. */
29164: ,p_attribute5 => '');
29165: end if;
29166:
29167: p_return_status := FND_API.G_RET_STS_ERROR;
29168: RAISE FND_API.G_EXC_ERROR;
29169: end if;
29170:
29171: /* Calling: PA_PROGRESS_PUB.apply_lp_prog_on_cwv. */
29172:
29171: /* Calling: PA_PROGRESS_PUB.apply_lp_prog_on_cwv. */
29172:
29173: PA_PROGRESS_PUB.apply_lp_prog_on_cwv(p_api_version => p_api_version
29174: ,p_init_msg_list => p_init_msg_list
29175: ,p_commit => FND_API.G_FALSE--bug 3766967
29176: ,p_project_id => l_project_id
29177: ,p_working_str_version_id => p_working_str_version_id
29178: ,x_return_status => l_return_status
29179: ,x_msg_count => l_msg_count
29178: ,x_return_status => l_return_status
29179: ,x_msg_count => l_msg_count
29180: ,x_msg_data => l_msg_data);
29181:
29182: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
29183: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
29184: p_msg_name => l_msg_data);
29185: p_msg_data := l_msg_data;
29186: p_return_status := 'E';
29184: p_msg_name => l_msg_data);
29185: p_msg_data := l_msg_data;
29186: p_return_status := 'E';
29187: p_msg_count := l_msg_count;
29188: RAISE FND_API.G_EXC_ERROR;
29189: END IF;
29190:
29191: IF (p_commit = FND_API.G_TRUE) THEN
29192: COMMIT;
29187: p_msg_count := l_msg_count;
29188: RAISE FND_API.G_EXC_ERROR;
29189: END IF;
29190:
29191: IF (p_commit = FND_API.G_TRUE) THEN
29192: COMMIT;
29193: END IF;
29194:
29195: EXCEPTION
29193: END IF;
29194:
29195: EXCEPTION
29196:
29197: when FND_API.G_EXC_ERROR then
29198:
29199: if p_commit = FND_API.G_TRUE then
29200: rollback to APPLY_LP_PROG_ON_CWV;
29201: end if;
29195: EXCEPTION
29196:
29197: when FND_API.G_EXC_ERROR then
29198:
29199: if p_commit = FND_API.G_TRUE then
29200: rollback to APPLY_LP_PROG_ON_CWV;
29201: end if;
29202:
29203: p_return_status := FND_API.G_RET_STS_ERROR;
29199: if p_commit = FND_API.G_TRUE then
29200: rollback to APPLY_LP_PROG_ON_CWV;
29201: end if;
29202:
29203: p_return_status := FND_API.G_RET_STS_ERROR;
29204:
29205: FND_MSG_PUB.Count_And_Get
29206: (p_count => p_msg_count
29207: ,p_data => p_msg_data);
29205: FND_MSG_PUB.Count_And_Get
29206: (p_count => p_msg_count
29207: ,p_data => p_msg_data);
29208:
29209: when FND_API.G_EXC_UNEXPECTED_ERROR then
29210: if p_commit = FND_API.G_TRUE then
29211: rollback to APPLY_LP_PROG_ON_CWV;
29212: end if;
29213:
29206: (p_count => p_msg_count
29207: ,p_data => p_msg_data);
29208:
29209: when FND_API.G_EXC_UNEXPECTED_ERROR then
29210: if p_commit = FND_API.G_TRUE then
29211: rollback to APPLY_LP_PROG_ON_CWV;
29212: end if;
29213:
29214: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29210: if p_commit = FND_API.G_TRUE then
29211: rollback to APPLY_LP_PROG_ON_CWV;
29212: end if;
29213:
29214: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29215:
29216: FND_MSG_PUB.Count_And_Get
29217: (p_count => p_msg_count
29218: ,p_data => p_msg_data);
29218: ,p_data => p_msg_data);
29219:
29220: when OTHERS then
29221:
29222: if p_commit = FND_API.G_TRUE then
29223: rollback to APPLY_LP_PROG_ON_CWV;
29224: end if;
29225:
29226: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29222: if p_commit = FND_API.G_TRUE then
29223: rollback to APPLY_LP_PROG_ON_CWV;
29224: end if;
29225:
29226: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29227:
29228: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29229: THEN
29230: FND_MSG_PUB.add_exc_msg
29258: --
29259:
29260: PROCEDURE load_deliverable
29261: ( p_api_version IN NUMBER := 1.0
29262: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
29263: , p_debug_mode IN VARCHAR2 := 'N'
29264: , x_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
29265: , p_deliverable_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
29266: , p_deliverable_short_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
29300: SAVEPOINT load_deliverable_pub;
29301:
29302: -- Standard call to check for call compatibility.
29303:
29304: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
29305: p_api_version ,
29306: l_api_name ,
29307: G_PKG_NAME )
29308: THEN
29306: l_api_name ,
29307: G_PKG_NAME )
29308: THEN
29309:
29310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29311:
29312: END IF;
29313:
29314: -- Initialize the message table if requested.
29312: END IF;
29313:
29314: -- Initialize the message table if requested.
29315:
29316: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29317: THEN
29318:
29319: FND_MSG_PUB.initialize;
29320:
29321: END IF;
29322:
29323: -- Set API return status to success
29324:
29325: x_return_status := FND_API.G_RET_STS_SUCCESS;
29326:
29327: -- Load the record only if deliverable_short_name is passed
29328: -- IF (p_deliverable_short_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND /* Bug 39590235 */
29329: IF (p_deliverable_short_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
29366: END IF;
29367:
29368: EXCEPTION
29369:
29370: WHEN FND_API.G_EXC_ERROR THEN
29371: ROLLBACK TO load_deliverable_pub;
29372: x_return_status := FND_API.G_RET_STS_ERROR;
29373:
29374:
29368: EXCEPTION
29369:
29370: WHEN FND_API.G_EXC_ERROR THEN
29371: ROLLBACK TO load_deliverable_pub;
29372: x_return_status := FND_API.G_RET_STS_ERROR;
29373:
29374:
29375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
29376: ROLLBACK TO load_deliverable_pub;
29371: ROLLBACK TO load_deliverable_pub;
29372: x_return_status := FND_API.G_RET_STS_ERROR;
29373:
29374:
29375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
29376: ROLLBACK TO load_deliverable_pub;
29377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29378:
29379:
29373:
29374:
29375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
29376: ROLLBACK TO load_deliverable_pub;
29377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29378:
29379:
29380: WHEN OTHERS THEN
29381: ROLLBACK TO load_deliverable_pub;
29378:
29379:
29380: WHEN OTHERS THEN
29381: ROLLBACK TO load_deliverable_pub;
29382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29383:
29384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29385: THEN
29386: FND_MSG_PUB.add_exc_msg
29406: --
29407:
29408: PROCEDURE load_deliverables
29409: ( p_api_version IN NUMBER := 1.0
29410: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
29411: , p_debug_mode IN VARCHAR2 := 'N'
29412: , x_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
29413: , p_deliverable_name IN PA_VC_1000_150 := PA_VC_1000_150(PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
29414: --, p_deliverable_name IN PA_VC_1000_240 := PA_VC_1000_240(PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
29451: SAVEPOINT load_deliverables_pub;
29452:
29453: -- Standard call to check for call compatibility.
29454:
29455: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
29456: p_api_version ,
29457: l_api_name ,
29458: G_PKG_NAME )
29459: THEN
29457: l_api_name ,
29458: G_PKG_NAME )
29459: THEN
29460:
29461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29462:
29463: END IF;
29464:
29465: -- Initialize the message table if requested.
29463: END IF;
29464:
29465: -- Initialize the message table if requested.
29466:
29467: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29468: THEN
29469:
29470: FND_MSG_PUB.initialize;
29471:
29472: END IF;
29473:
29474: -- Set API return status to success
29475:
29476: x_return_status := FND_API.G_RET_STS_SUCCESS;
29477:
29478: -- Load the table only if deliverable_short_name is passed
29479: FOR i in 1..1000 LOOP
29480: IF (p_deliverable_short_name(i) <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND /* Bug # 3590235 */
29515: END LOOP;
29516:
29517: EXCEPTION
29518:
29519: WHEN FND_API.G_EXC_ERROR
29520: THEN
29521: ROLLBACK TO load_deliverables_pub;
29522:
29523: x_return_status := FND_API.G_RET_STS_ERROR;
29519: WHEN FND_API.G_EXC_ERROR
29520: THEN
29521: ROLLBACK TO load_deliverables_pub;
29522:
29523: x_return_status := FND_API.G_RET_STS_ERROR;
29524:
29525:
29526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
29527: THEN
29522:
29523: x_return_status := FND_API.G_RET_STS_ERROR;
29524:
29525:
29526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
29527: THEN
29528: ROLLBACK TO load_deliverables_pub;
29529:
29530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
29527: THEN
29528: ROLLBACK TO load_deliverables_pub;
29529:
29530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29531:
29532:
29533: WHEN OTHERS THEN
29534: ROLLBACK TO load_deliverables_pub;
29532:
29533: WHEN OTHERS THEN
29534: ROLLBACK TO load_deliverables_pub;
29535:
29536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29537:
29538: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29539: THEN
29540: FND_MSG_PUB.add_exc_msg
29560: --
29561:
29562: PROCEDURE load_action
29563: ( p_api_version IN NUMBER := 1.0
29564: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
29565: , p_debug_mode IN VARCHAR2 := 'N'
29566: , x_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
29567: , p_action_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
29568: , p_action_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
29644: SAVEPOINT load_action_pub;
29645:
29646: -- Standard call to check for call compatibility.
29647:
29648: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
29649: p_api_version ,
29650: l_api_name ,
29651: G_PKG_NAME )
29652: THEN
29650: l_api_name ,
29651: G_PKG_NAME )
29652: THEN
29653:
29654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29655:
29656: END IF;
29657:
29658: -- Initialize the message table if requested.
29656: END IF;
29657:
29658: -- Initialize the message table if requested.
29659:
29660: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29661: THEN
29662:
29663: FND_MSG_PUB.initialize;
29664:
29665: END IF;
29666:
29667: -- Set API return status to success
29668:
29669: x_return_status := FND_API.G_RET_STS_SUCCESS;
29670:
29671: -- Load the table only if action_name is passed
29672: IF (p_action_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
29673: (p_action_name IS NOT NULL) THEN
29752: END IF;
29753:
29754: EXCEPTION
29755:
29756: WHEN FND_API.G_EXC_ERROR
29757: THEN
29758: ROLLBACK TO load_action_pub;
29759:
29760: x_return_status := FND_API.G_RET_STS_ERROR;
29756: WHEN FND_API.G_EXC_ERROR
29757: THEN
29758: ROLLBACK TO load_action_pub;
29759:
29760: x_return_status := FND_API.G_RET_STS_ERROR;
29761:
29762:
29763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
29764: THEN
29759:
29760: x_return_status := FND_API.G_RET_STS_ERROR;
29761:
29762:
29763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
29764: THEN
29765: ROLLBACK TO load_action_pub;
29766:
29767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29763: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
29764: THEN
29765: ROLLBACK TO load_action_pub;
29766:
29767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29768:
29769:
29770: WHEN OTHERS THEN
29771: ROLLBACK TO load_action_pub;
29769:
29770: WHEN OTHERS THEN
29771: ROLLBACK TO load_action_pub;
29772:
29773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
29774:
29775: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
29776: THEN
29777: FND_MSG_PUB.add_exc_msg
29796: -- 03-Mar-2004 Puneet Created
29797: --
29798: PROCEDURE load_actions
29799: ( p_api_version IN NUMBER := 1.0
29800: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
29801: , p_debug_mode IN VARCHAR2 := 'N'
29802: , x_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
29803: --, p_action_name IN PA_VC_1000_240 := PA_VC_1000_240(PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
29804: , p_action_name IN PA_VC_1000_150 := PA_VC_1000_150(PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
29887: SAVEPOINT load_actions_pub;
29888:
29889: -- Standard call to check for call compatibility.
29890:
29891: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
29892: p_api_version ,
29893: l_api_name ,
29894: G_PKG_NAME )
29895: THEN
29893: l_api_name ,
29894: G_PKG_NAME )
29895: THEN
29896:
29897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29898:
29899: END IF;
29900:
29901: -- Initialize the message table if requested.
29899: END IF;
29900:
29901: -- Initialize the message table if requested.
29902:
29903: IF FND_API.TO_BOOLEAN( p_init_msg_list )
29904: THEN
29905:
29906: FND_MSG_PUB.initialize;
29907:
29908: END IF;
29909:
29910: -- Set API return status to success
29911:
29912: x_return_status := FND_API.G_RET_STS_SUCCESS;
29913:
29914: -- Load the table only if action_name is passed
29915: FOR i in 1..1000 LOOP
29916: IF (p_action_name(i) <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
29998: END LOOP;
29999:
30000: EXCEPTION
30001:
30002: WHEN FND_API.G_EXC_ERROR
30003: THEN
30004: ROLLBACK TO load_actions_pub;
30005:
30006: x_return_status := FND_API.G_RET_STS_ERROR;
30002: WHEN FND_API.G_EXC_ERROR
30003: THEN
30004: ROLLBACK TO load_actions_pub;
30005:
30006: x_return_status := FND_API.G_RET_STS_ERROR;
30007:
30008:
30009: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
30010: THEN
30005:
30006: x_return_status := FND_API.G_RET_STS_ERROR;
30007:
30008:
30009: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
30010: THEN
30011: ROLLBACK TO load_actions_pub;
30012:
30013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30009: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
30010: THEN
30011: ROLLBACK TO load_actions_pub;
30012:
30013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30014:
30015:
30016: WHEN OTHERS THEN
30017: ROLLBACK TO load_actions_pub;
30015:
30016: WHEN OTHERS THEN
30017: ROLLBACK TO load_actions_pub;
30018:
30019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30020:
30021: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
30022: THEN
30023: FND_MSG_PUB.add_exc_msg
30045: --
30046:
30047: PROCEDURE create_deliverable
30048: ( p_api_version IN NUMBER := 1.0
30049: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
30050: , p_commit IN VARCHAR2 := FND_API.G_FALSE
30051: , p_debug_mode IN VARCHAR2 := 'N'
30052: , x_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
30053: , p_deliverable_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
30046:
30047: PROCEDURE create_deliverable
30048: ( p_api_version IN NUMBER := 1.0
30049: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
30050: , p_commit IN VARCHAR2 := FND_API.G_FALSE
30051: , p_debug_mode IN VARCHAR2 := 'N'
30052: , x_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
30053: , p_deliverable_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
30054: , p_deliverable_short_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
30132: l_wp_task_flag varchar2(1); -- Added for bug5462298
30133:
30134: BEGIN
30135: -- Initialize the message table if requested.
30136: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
30137: FND_MSG_PUB.initialize;
30138: END IF;
30139:
30140: -- 3735792 , setting save point unconditionally
30137: FND_MSG_PUB.initialize;
30138: END IF;
30139:
30140: -- 3735792 , setting save point unconditionally
30141: -- IF (p_commit = FND_API.G_TRUE) THEN
30142: savepoint CREATE_DELIVERABLE_PUB;
30143: -- END IF;
30144:
30145: -- Validation check for product code : Bug 3651113
30163: ,p_attribute3 => ''
30164: ,p_attribute4 => ''
30165: ,p_attribute5 => '');
30166: END IF;
30167: x_return_status := FND_API.G_RET_STS_ERROR;
30168: RAISE FND_API.G_EXC_ERROR;
30169: END IF;
30170:
30171: IF p_debug_mode = 'Y' THEN
30164: ,p_attribute4 => ''
30165: ,p_attribute5 => '');
30166: END IF;
30167: x_return_status := FND_API.G_RET_STS_ERROR;
30168: RAISE FND_API.G_EXC_ERROR;
30169: END IF;
30170:
30171: IF p_debug_mode = 'Y' THEN
30172: PA_DEBUG.set_curr_function( p_function => l_api_name,
30175: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30176: END IF;
30177:
30178: -- Set API return status to success
30179: x_return_status := FND_API.G_RET_STS_SUCCESS;
30180:
30181:
30182: IF p_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
30183: l_task_id := NULL;
30207: IF p_debug_mode = 'Y' THEN
30208: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
30209: END IF;
30210:
30211: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30213: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30214: RAISE FND_API.G_EXC_ERROR;
30215: END IF;
30208: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
30209: END IF;
30210:
30211: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30213: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30214: RAISE FND_API.G_EXC_ERROR;
30215: END IF;
30216:
30209: END IF;
30210:
30211: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30213: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30214: RAISE FND_API.G_EXC_ERROR;
30215: END IF;
30216:
30217: IF l_function_allowed = 'N' THEN
30210:
30211: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30213: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30214: RAISE FND_API.G_EXC_ERROR;
30215: END IF;
30216:
30217: IF l_function_allowed = 'N' THEN
30218: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30216:
30217: IF l_function_allowed = 'N' THEN
30218: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30219: ,p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
30220: x_return_status := FND_API.G_RET_STS_ERROR;
30221: RAISE FND_API.G_EXC_ERROR;
30222: END IF;
30223:
30224: -- validate the input parameters.
30217: IF l_function_allowed = 'N' THEN
30218: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30219: ,p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
30220: x_return_status := FND_API.G_RET_STS_ERROR;
30221: RAISE FND_API.G_EXC_ERROR;
30222: END IF;
30223:
30224: -- validate the input parameters.
30225: -- Get the task and Project details based on source reference passed
30233: IF p_debug_mode = 'Y' THEN
30234: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
30235: END IF;
30236:
30237: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30239: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30240: RAISE FND_API.G_EXC_ERROR;
30241: END IF;
30234: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
30235: END IF;
30236:
30237: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30239: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30240: RAISE FND_API.G_EXC_ERROR;
30241: END IF;
30242:
30235: END IF;
30236:
30237: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30239: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30240: RAISE FND_API.G_EXC_ERROR;
30241: END IF;
30242:
30243: IF ( l_task_id IS NOT NULL OR l_task_source_reference IS NOT NULL ) THEN
30236:
30237: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30239: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30240: RAISE FND_API.G_EXC_ERROR;
30241: END IF;
30242:
30243: IF ( l_task_id IS NOT NULL OR l_task_source_reference IS NOT NULL ) THEN
30244: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
30252: IF p_debug_mode = 'Y' THEN
30253: pa_debug.write(g_pkg_name,'Task Ref to ID Return Status ['||x_return_status||']Task ID['||l_task_id||']',3) ;
30254: END IF;
30255:
30256: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30258: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30259: RAISE FND_API.G_EXC_ERROR;
30260: END IF;
30253: pa_debug.write(g_pkg_name,'Task Ref to ID Return Status ['||x_return_status||']Task ID['||l_task_id||']',3) ;
30254: END IF;
30255:
30256: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30258: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30259: RAISE FND_API.G_EXC_ERROR;
30260: END IF;
30261:
30254: END IF;
30255:
30256: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30258: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30259: RAISE FND_API.G_EXC_ERROR;
30260: END IF;
30261:
30262: -- 5462298 Added below code to validate passed task id
30255:
30256: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30258: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30259: RAISE FND_API.G_EXC_ERROR;
30260: END IF;
30261:
30262: -- 5462298 Added below code to validate passed task id
30263: -- if it is not workplan task , throw error message
30273:
30274: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30275: ,p_msg_name => 'PA_TASK_ID_INVALID');
30276:
30277: x_return_status := FND_API.G_RET_STS_ERROR;
30278: RAISE FND_API.G_EXC_ERROR;
30279:
30280: END IF;
30281:
30274: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30275: ,p_msg_name => 'PA_TASK_ID_INVALID');
30276:
30277: x_return_status := FND_API.G_RET_STS_ERROR;
30278: RAISE FND_API.G_EXC_ERROR;
30279:
30280: END IF;
30281:
30282: END IF;
30295: IF p_debug_mode = 'Y' THEN
30296: pa_debug.write(g_pkg_name,'Dlvr Reference Unique Return Status ['||x_return_status||']Unique['||l_unique_flag||']',3) ;
30297: END IF;
30298:
30299: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30301: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30302: RAISE FND_API.G_EXC_ERROR;
30303: END IF;
30296: pa_debug.write(g_pkg_name,'Dlvr Reference Unique Return Status ['||x_return_status||']Unique['||l_unique_flag||']',3) ;
30297: END IF;
30298:
30299: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30301: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30302: RAISE FND_API.G_EXC_ERROR;
30303: END IF;
30304:
30297: END IF;
30298:
30299: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30301: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30302: RAISE FND_API.G_EXC_ERROR;
30303: END IF;
30304:
30305: -- Fetching Task Name , Project Name to use as token in Error Messages.
30298:
30299: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30301: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30302: RAISE FND_API.G_EXC_ERROR;
30303: END IF;
30304:
30305: -- Fetching Task Name , Project Name to use as token in Error Messages.
30306:
30345:
30346: IF G_DLVR_STRUCTURE_ENABLED = 'N' THEN
30347: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30348: ,p_msg_name => 'PA_DLV_STRUCTURE_DISABLED');
30349: x_return_status := FND_API.G_RET_STS_ERROR;
30350: RAISE FND_API.G_EXC_ERROR;
30351: END IF;
30352:
30353: -- 3700247, if deliverable structure is not enabled for target and deliverables are passed in loading,
30346: IF G_DLVR_STRUCTURE_ENABLED = 'N' THEN
30347: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30348: ,p_msg_name => 'PA_DLV_STRUCTURE_DISABLED');
30349: x_return_status := FND_API.G_RET_STS_ERROR;
30350: RAISE FND_API.G_EXC_ERROR;
30351: END IF;
30352:
30353: -- 3700247, if deliverable structure is not enabled for target and deliverables are passed in loading,
30354: -- error message is thrown. So, removing the below code , which enables the structure for the target project in
30365: IF ( l_dlvr_enabled = 'N' ) THEN
30366:
30367: Pa_Deliverable_Utils.enable_deliverable(
30368: p_api_version => p_api_version
30369: , p_init_msg_list => FND_API.G_FALSE
30370: , p_commit => p_commit
30371: , p_debug_mode => p_debug_mode
30372: , p_validate_only => FND_API.G_FALSE
30373: , p_project_id => l_project_id
30368: p_api_version => p_api_version
30369: , p_init_msg_list => FND_API.G_FALSE
30370: , p_commit => p_commit
30371: , p_debug_mode => p_debug_mode
30372: , p_validate_only => FND_API.G_FALSE
30373: , p_project_id => l_project_id
30374: , x_return_status => x_return_status
30375: , x_msg_count => x_msg_count
30376: , x_msg_data => x_msg_data
30379: IF p_debug_mode = 'Y' THEN
30380: pa_debug.write(g_pkg_name,'Pa_Deliverable_Utils.enable_deliverable Return Status ['||x_return_status||']',3) ;
30381: END IF;
30382:
30383: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30385: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30386: RAISE FND_API.G_EXC_ERROR;
30387: END IF;
30380: pa_debug.write(g_pkg_name,'Pa_Deliverable_Utils.enable_deliverable Return Status ['||x_return_status||']',3) ;
30381: END IF;
30382:
30383: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30385: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30386: RAISE FND_API.G_EXC_ERROR;
30387: END IF;
30388:
30381: END IF;
30382:
30383: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30385: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30386: RAISE FND_API.G_EXC_ERROR;
30387: END IF;
30388:
30389: END IF; -- deliverable not enabled
30382:
30383: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30385: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30386: RAISE FND_API.G_EXC_ERROR;
30387: END IF;
30388:
30389: END IF; -- deliverable not enabled
30390: */
30425: -- All other validations done in PA_DELIVERABLE_PUB.CREATE_DELIVERABLE
30426: --invoke the api to create deliverable
30427: Pa_Deliverable_Pub.Create_Deliverable
30428: ( p_api_version => p_api_version
30429: , p_init_msg_list => FND_API.G_FALSE -- passed as false as doesn't want message stack to be reset.
30430: -- 3735792, passing p_commit as false to next level api calls
30431: , p_commit => FND_API.G_FALSE
30432: , p_validate_only => FND_API.G_FALSE
30433: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
30427: Pa_Deliverable_Pub.Create_Deliverable
30428: ( p_api_version => p_api_version
30429: , p_init_msg_list => FND_API.G_FALSE -- passed as false as doesn't want message stack to be reset.
30430: -- 3735792, passing p_commit as false to next level api calls
30431: , p_commit => FND_API.G_FALSE
30432: , p_validate_only => FND_API.G_FALSE
30433: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
30434: , p_calling_module => 'AMG'
30435: , p_debug_mode => p_debug_mode
30428: ( p_api_version => p_api_version
30429: , p_init_msg_list => FND_API.G_FALSE -- passed as false as doesn't want message stack to be reset.
30430: -- 3735792, passing p_commit as false to next level api calls
30431: , p_commit => FND_API.G_FALSE
30432: , p_validate_only => FND_API.G_FALSE
30433: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
30434: , p_calling_module => 'AMG'
30435: , p_debug_mode => p_debug_mode
30436: , p_max_msg_count => NULL
30429: , p_init_msg_list => FND_API.G_FALSE -- passed as false as doesn't want message stack to be reset.
30430: -- 3735792, passing p_commit as false to next level api calls
30431: , p_commit => FND_API.G_FALSE
30432: , p_validate_only => FND_API.G_FALSE
30433: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
30434: , p_calling_module => 'AMG'
30435: , p_debug_mode => p_debug_mode
30436: , p_max_msg_count => NULL
30437: , p_record_version_number => 1
30480: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30481: END IF;
30482:
30483:
30484: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30486: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30487: RAISE FND_API.G_EXC_ERROR;
30488: END IF;
30481: END IF;
30482:
30483:
30484: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30486: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30487: RAISE FND_API.G_EXC_ERROR;
30488: END IF;
30489: -- Will create actions only when deliverable type of deliverable
30482:
30483:
30484: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30486: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30487: RAISE FND_API.G_EXC_ERROR;
30488: END IF;
30489: -- Will create actions only when deliverable type of deliverable
30490: -- has action creation enabled.
30483:
30484: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30486: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30487: RAISE FND_API.G_EXC_ERROR;
30488: END IF;
30489: -- Will create actions only when deliverable type of deliverable
30490: -- has action creation enabled.
30491:
30537: IF ( l_dlvr_action_enabled = 'Y') THEN
30538:
30539: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
30540: ( p_api_version => p_api_version
30541: , p_init_msg_list => FND_API.G_FALSE
30542: , p_commit => FND_API.G_FALSE
30543: , p_validate_only => FND_API.G_FALSE
30544: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
30545: , p_calling_module => 'AMG'
30538:
30539: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
30540: ( p_api_version => p_api_version
30541: , p_init_msg_list => FND_API.G_FALSE
30542: , p_commit => FND_API.G_FALSE
30543: , p_validate_only => FND_API.G_FALSE
30544: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
30545: , p_calling_module => 'AMG'
30546: , p_debug_mode => p_debug_mode
30539: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
30540: ( p_api_version => p_api_version
30541: , p_init_msg_list => FND_API.G_FALSE
30542: , p_commit => FND_API.G_FALSE
30543: , p_validate_only => FND_API.G_FALSE
30544: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
30545: , p_calling_module => 'AMG'
30546: , p_debug_mode => p_debug_mode
30547: , p_insert_or_update => 'INSERT'
30540: ( p_api_version => p_api_version
30541: , p_init_msg_list => FND_API.G_FALSE
30542: , p_commit => FND_API.G_FALSE
30543: , p_validate_only => FND_API.G_FALSE
30544: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
30545: , p_calling_module => 'AMG'
30546: , p_debug_mode => p_debug_mode
30547: , p_insert_or_update => 'INSERT'
30548: , p_action_in_tbl => l_action_in_tbl
30555: pa_debug.g_err_stage := 'Returned after Create actions for ['|| i_actn ||'] action return['||x_return_status||']';
30556: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30557: END IF;
30558:
30559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30561: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30562: RAISE FND_API.G_EXC_ERROR;
30563: END IF;
30556: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
30557: END IF;
30558:
30559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30561: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30562: RAISE FND_API.G_EXC_ERROR;
30563: END IF;
30564:
30557: END IF;
30558:
30559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30561: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30562: RAISE FND_API.G_EXC_ERROR;
30563: END IF;
30564:
30565: ELSE --l_dlvr_action_enabled <> 'Y'
30558:
30559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30561: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30562: RAISE FND_API.G_EXC_ERROR;
30563: END IF;
30564:
30565: ELSE --l_dlvr_action_enabled <> 'Y'
30566:
30579: p_value4 => l_err_message
30580: );
30581: END IF;
30582:
30583: x_return_status := FND_API.G_RET_STS_ERROR;
30584: RAISE FND_API.G_EXC_ERROR;
30585: END IF; -- l_dlvr_action_enabled = 'Y'
30586:
30587: END IF; --i_actn > 0
30580: );
30581: END IF;
30582:
30583: x_return_status := FND_API.G_RET_STS_ERROR;
30584: RAISE FND_API.G_EXC_ERROR;
30585: END IF; -- l_dlvr_action_enabled = 'Y'
30586:
30587: END IF; --i_actn > 0
30588:
30586:
30587: END IF; --i_actn > 0
30588:
30589: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
30590: IF (p_commit = FND_API.G_TRUE) THEN
30591: COMMIT;
30592: END IF;
30593:
30594: IF p_debug_mode = 'Y' THEN
30596: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
30597: END IF;
30598:
30599: EXCEPTION
30600: WHEN FND_API.G_EXC_ERROR THEN
30601: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
30602: --IF (p_commit = FND_API.G_TRUE) THEN
30603: ROLLBACK TO CREATE_DELIVERABLE_PUB;
30604: --END IF;
30598:
30599: EXCEPTION
30600: WHEN FND_API.G_EXC_ERROR THEN
30601: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
30602: --IF (p_commit = FND_API.G_TRUE) THEN
30603: ROLLBACK TO CREATE_DELIVERABLE_PUB;
30604: --END IF;
30605:
30606: IF p_debug_mode = 'Y' THEN
30606: IF p_debug_mode = 'Y' THEN
30607: pa_debug.reset_curr_function;
30608: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
30609: END IF;
30610: x_return_status := FND_API.G_RET_STS_ERROR;
30611: x_msg_count := FND_MSG_PUB.count_msg;
30612:
30613: IF x_msg_count = 1 THEN
30614: PA_INTERFACE_UTILS_PUB.get_messages
30611: x_msg_count := FND_MSG_PUB.count_msg;
30612:
30613: IF x_msg_count = 1 THEN
30614: PA_INTERFACE_UTILS_PUB.get_messages
30615: (p_encoded => FND_API.G_FALSE,
30616: p_msg_index => 1,
30617: p_msg_count => x_msg_count,
30618: p_msg_data => x_msg_data,
30619: p_data => l_data, -- 4537865 Changed from x_msg_data to l_data ,as it may have problem with NOCOPY
30620: p_msg_index_out => l_msg_index_out);
30621: x_msg_data := l_data ; -- 4537865
30622: END IF;
30623:
30624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
30625: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
30626: --IF (p_commit = FND_API.G_TRUE) THEN
30627: ROLLBACK TO CREATE_DELIVERABLE_PUB;
30628: --END IF;
30622: END IF;
30623:
30624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
30625: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
30626: --IF (p_commit = FND_API.G_TRUE) THEN
30627: ROLLBACK TO CREATE_DELIVERABLE_PUB;
30628: --END IF;
30629:
30630: IF p_debug_mode = 'Y' THEN
30630: IF p_debug_mode = 'Y' THEN
30631: pa_debug.reset_curr_function;
30632: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
30633: END IF;
30634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30635: x_msg_count := FND_MSG_PUB.count_msg;
30636:
30637: IF x_msg_count = 1 THEN
30638: PA_INTERFACE_UTILS_PUB.get_messages
30635: x_msg_count := FND_MSG_PUB.count_msg;
30636:
30637: IF x_msg_count = 1 THEN
30638: PA_INTERFACE_UTILS_PUB.get_messages
30639: (p_encoded => FND_API.G_FALSE,
30640: p_msg_index => 1,
30641: p_msg_count => x_msg_count,
30642: p_msg_data => x_msg_data,
30643: p_data => l_data, -- 4537865 Changed from x_msg_data to l_data ,as it may have problem with NOCOPY
30646: END IF;
30647:
30648: WHEN OTHERS THEN
30649: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
30650: --IF (p_commit = FND_API.G_TRUE) THEN
30651: ROLLBACK TO CREATE_DELIVERABLE_PUB;
30652: --END IF;
30653:
30654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30650: --IF (p_commit = FND_API.G_TRUE) THEN
30651: ROLLBACK TO CREATE_DELIVERABLE_PUB;
30652: --END IF;
30653:
30654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
30655: x_msg_count := 1;
30656: x_msg_data := SQLERRM;
30657:
30658: IF p_debug_mode = 'Y' THEN
30669: END create_deliverable;
30670:
30671: PROCEDURE create_deliverable_action
30672: ( p_api_version IN NUMBER := 1.0
30673: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
30674: , p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
30675: , p_commit IN VARCHAR2 := FND_API.G_FALSE
30676: , p_action_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
30677: , p_action_owner_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
30670:
30671: PROCEDURE create_deliverable_action
30672: ( p_api_version IN NUMBER := 1.0
30673: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
30674: , p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
30675: , p_commit IN VARCHAR2 := FND_API.G_FALSE
30676: , p_action_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
30677: , p_action_owner_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
30678: , p_function_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
30671: PROCEDURE create_deliverable_action
30672: ( p_api_version IN NUMBER := 1.0
30673: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
30674: , p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
30675: , p_commit IN VARCHAR2 := FND_API.G_FALSE
30676: , p_action_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
30677: , p_action_owner_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
30678: , p_function_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
30679: , p_due_date IN DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
30794:
30795: -- Standard begin of API savepoint
30796:
30797: -- 3735792, setting save point unconditionally
30798: -- IF (p_commit = FND_API.G_TRUE) THEN
30799: SAVEPOINT create_deliverable_actions_pub;
30800: -- END IF;
30801:
30802: -- Standard call to check for call compatibility.
30799: SAVEPOINT create_deliverable_actions_pub;
30800: -- END IF;
30801:
30802: -- Standard call to check for call compatibility.
30803: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
30804: p_api_version ,
30805: l_api_name ,
30806: G_PKG_NAME )
30807: THEN
30804: p_api_version ,
30805: l_api_name ,
30806: G_PKG_NAME )
30807: THEN
30808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30809: END IF;
30810:
30811: -- Initialize the message table if requested.
30812: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
30808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30809: END IF;
30810:
30811: -- Initialize the message table if requested.
30812: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
30813: FND_MSG_PUB.initialize;
30814: END IF;
30815:
30816: IF p_debug_mode = 'Y' THEN
30820: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
30821: END IF;
30822:
30823: -- Set API return status to success
30824: x_return_status := FND_API.G_RET_STS_SUCCESS;
30825:
30826: -- Function Security Check
30827: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
30828: (p_api_version_number => p_api_version,
30836: IF p_debug_mode = 'Y' THEN
30837: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
30838: END IF;
30839:
30840: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30842: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30843: RAISE FND_API.G_EXC_ERROR;
30844: END IF;
30837: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
30838: END IF;
30839:
30840: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30842: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30843: RAISE FND_API.G_EXC_ERROR;
30844: END IF;
30845:
30838: END IF;
30839:
30840: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30842: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30843: RAISE FND_API.G_EXC_ERROR;
30844: END IF;
30845:
30846: IF l_function_allowed = 'N' THEN
30839:
30840: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30842: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30843: RAISE FND_API.G_EXC_ERROR;
30844: END IF;
30845:
30846: IF l_function_allowed = 'N' THEN
30847: pa_interface_utils_pub.map_new_amg_msg
30854: ,p_attribute3 => ''
30855: ,p_attribute4 => ''
30856: ,p_attribute5 => '');
30857:
30858: x_return_status := FND_API.G_RET_STS_ERROR;
30859: RAISE FND_API.G_EXC_ERROR;
30860: END IF;
30861:
30862: -- validate the input parameters.
30855: ,p_attribute4 => ''
30856: ,p_attribute5 => '');
30857:
30858: x_return_status := FND_API.G_RET_STS_ERROR;
30859: RAISE FND_API.G_EXC_ERROR;
30860: END IF;
30861:
30862: -- validate the input parameters.
30863: PA_PROJECT_PVT.Convert_pm_projref_to_id (
30870: IF p_debug_mode = 'Y' THEN
30871: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
30872: END IF;
30873:
30874: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30876: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30877: RAISE FND_API.G_EXC_ERROR;
30878: END IF;
30871: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
30872: END IF;
30873:
30874: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30876: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30877: RAISE FND_API.G_EXC_ERROR;
30878: END IF;
30879:
30872: END IF;
30873:
30874: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30876: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30877: RAISE FND_API.G_EXC_ERROR;
30878: END IF;
30879:
30880: -- Validate Deliverable reference / ID
30873:
30874: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
30875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30876: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
30877: RAISE FND_API.G_EXC_ERROR;
30878: END IF;
30879:
30880: -- Validate Deliverable reference / ID
30881: PA_Deliverable_Utils.Convert_pm_dlvrref_to_id(
30888: IF p_debug_mode = 'Y' THEN
30889: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID ['||l_deliverable_id||'] Return Status ['||x_return_status||']',3) ;
30890: END IF;
30891:
30892: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30894: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30895: RAISE FND_API.G_EXC_ERROR;
30896: END IF;
30889: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID ['||l_deliverable_id||'] Return Status ['||x_return_status||']',3) ;
30890: END IF;
30891:
30892: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30894: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30895: RAISE FND_API.G_EXC_ERROR;
30896: END IF;
30897:
30890: END IF;
30891:
30892: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30894: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30895: RAISE FND_API.G_EXC_ERROR;
30896: END IF;
30897:
30898: -- 3729250, Validate Financial Task Reference / ID
30891:
30892: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30894: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30895: RAISE FND_API.G_EXC_ERROR;
30896: END IF;
30897:
30898: -- 3729250, Validate Financial Task Reference / ID
30899: -- PA_PROJECT_PVT.Convert_pm_taskref_to_id_all should only be called if either p_financial_task_id or
30909: , p_pm_task_reference => p_financial_task_reference
30910: , p_out_task_id => l_fin_task_id
30911: , p_return_status => x_return_status );
30912:
30913: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30915: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30916: RAISE FND_API.G_EXC_ERROR;
30917: END IF;
30910: , p_out_task_id => l_fin_task_id
30911: , p_return_status => x_return_status );
30912:
30913: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30915: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30916: RAISE FND_API.G_EXC_ERROR;
30917: END IF;
30918:
30911: , p_return_status => x_return_status );
30912:
30913: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30915: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30916: RAISE FND_API.G_EXC_ERROR;
30917: END IF;
30918:
30919: END IF;
30912:
30913: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30915: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30916: RAISE FND_API.G_EXC_ERROR;
30917: END IF;
30918:
30919: END IF;
30920:
30930: IF p_debug_mode = 'Y' THEN
30931: pa_debug.write(g_pkg_name,'Action Reference Unique Return Status ['||x_return_status||']Unique['||l_unique_flag||']',3) ;
30932: END IF;
30933:
30934: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30936: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30937: RAISE FND_API.G_EXC_ERROR;
30938: END IF;
30931: pa_debug.write(g_pkg_name,'Action Reference Unique Return Status ['||x_return_status||']Unique['||l_unique_flag||']',3) ;
30932: END IF;
30933:
30934: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30936: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30937: RAISE FND_API.G_EXC_ERROR;
30938: END IF;
30939:
30932: END IF;
30933:
30934: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30936: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30937: RAISE FND_API.G_EXC_ERROR;
30938: END IF;
30939:
30940: -- Derive the dlvr_Type of a deliverable
30933:
30934: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30936: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
30937: RAISE FND_API.G_EXC_ERROR;
30938: END IF;
30939:
30940: -- Derive the dlvr_Type of a deliverable
30941: -- 3749462 passing l_project_id and l_deliverable_id to cursor
31051: p_token4 => 'MESSAGE',
31052: p_value4 => l_err_message
31053: );
31054: END IF;
31055: x_return_status := FND_API.G_RET_STS_ERROR;
31056: RAISE FND_API.G_EXC_ERROR;
31057:
31058: END IF; -- l_dlvr_action_enabled = 'Y'
31059: END IF;
31052: p_value4 => l_err_message
31053: );
31054: END IF;
31055: x_return_status := FND_API.G_RET_STS_ERROR;
31056: RAISE FND_API.G_EXC_ERROR;
31057:
31058: END IF; -- l_dlvr_action_enabled = 'Y'
31059: END IF;
31060:
31060:
31061: -- Call api to create actions passing the newly populated plsql table
31062: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
31063: ( p_api_version => p_api_version
31064: , p_init_msg_list => FND_API.G_FALSE
31065: , p_commit => FND_API.G_FALSE
31066: , p_validate_only => FND_API.G_FALSE
31067: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31068: , p_calling_module => 'AMG'
31061: -- Call api to create actions passing the newly populated plsql table
31062: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
31063: ( p_api_version => p_api_version
31064: , p_init_msg_list => FND_API.G_FALSE
31065: , p_commit => FND_API.G_FALSE
31066: , p_validate_only => FND_API.G_FALSE
31067: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31068: , p_calling_module => 'AMG'
31069: , p_debug_mode => p_debug_mode
31062: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
31063: ( p_api_version => p_api_version
31064: , p_init_msg_list => FND_API.G_FALSE
31065: , p_commit => FND_API.G_FALSE
31066: , p_validate_only => FND_API.G_FALSE
31067: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31068: , p_calling_module => 'AMG'
31069: , p_debug_mode => p_debug_mode
31070: , p_insert_or_update => 'INSERT'
31063: ( p_api_version => p_api_version
31064: , p_init_msg_list => FND_API.G_FALSE
31065: , p_commit => FND_API.G_FALSE
31066: , p_validate_only => FND_API.G_FALSE
31067: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31068: , p_calling_module => 'AMG'
31069: , p_debug_mode => p_debug_mode
31070: , p_insert_or_update => 'INSERT'
31071: , p_action_in_tbl => l_action_in_tbl
31078: pa_debug.g_err_stage := 'Returned from Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper ['|| x_return_status||']';
31079: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
31080: END IF;
31081:
31082: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31084: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31085: RAISE FND_API.G_EXC_ERROR;
31086: END IF; i := l_action_out_tbl.first();
31079: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
31080: END IF;
31081:
31082: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31084: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31085: RAISE FND_API.G_EXC_ERROR;
31086: END IF; i := l_action_out_tbl.first();
31087:
31080: END IF;
31081:
31082: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31084: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31085: RAISE FND_API.G_EXC_ERROR;
31086: END IF; i := l_action_out_tbl.first();
31087:
31088: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
31081:
31082: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31084: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31085: RAISE FND_API.G_EXC_ERROR;
31086: END IF; i := l_action_out_tbl.first();
31087:
31088: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
31089: IF (p_commit = FND_API.G_TRUE) THEN
31085: RAISE FND_API.G_EXC_ERROR;
31086: END IF; i := l_action_out_tbl.first();
31087:
31088: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
31089: IF (p_commit = FND_API.G_TRUE) THEN
31090: COMMIT;
31091: END IF;
31092:
31093: IF p_debug_mode = 'Y' THEN
31095: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31096: END IF;
31097:
31098: EXCEPTION
31099: WHEN FND_API.G_EXC_ERROR THEN
31100: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31101: -- IF (p_commit = FND_API.G_TRUE) THEN
31102: ROLLBACK TO create_deliverable_actions_pub;
31103: -- END IF;
31097:
31098: EXCEPTION
31099: WHEN FND_API.G_EXC_ERROR THEN
31100: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31101: -- IF (p_commit = FND_API.G_TRUE) THEN
31102: ROLLBACK TO create_deliverable_actions_pub;
31103: -- END IF;
31104:
31105: x_return_status := FND_API.G_RET_STS_ERROR;
31101: -- IF (p_commit = FND_API.G_TRUE) THEN
31102: ROLLBACK TO create_deliverable_actions_pub;
31103: -- END IF;
31104:
31105: x_return_status := FND_API.G_RET_STS_ERROR;
31106: l_msg_count := FND_MSG_PUB.count_msg;
31107:
31108: IF l_msg_count = 1 AND x_msg_data IS NULL
31109: THEN
31107:
31108: IF l_msg_count = 1 AND x_msg_data IS NULL
31109: THEN
31110: PA_INTERFACE_UTILS_PUB.get_messages
31111: (p_encoded => FND_API.G_FALSE,
31112: p_msg_index => 1,
31113: p_msg_count => x_msg_count,
31114: p_msg_data => l_msg_data,
31115: p_data => l_data,
31126: pa_debug.reset_curr_function;
31127: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31128: END IF;
31129:
31130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
31131: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31132: --IF (p_commit = FND_API.G_TRUE) THEN
31133: ROLLBACK TO create_deliverable_actions_pub;
31134: --END IF;
31128: END IF;
31129:
31130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
31131: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31132: --IF (p_commit = FND_API.G_TRUE) THEN
31133: ROLLBACK TO create_deliverable_actions_pub;
31134: --END IF;
31135:
31136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31132: --IF (p_commit = FND_API.G_TRUE) THEN
31133: ROLLBACK TO create_deliverable_actions_pub;
31134: --END IF;
31135:
31136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31137: l_msg_count := FND_MSG_PUB.count_msg;
31138:
31139: IF l_msg_count = 1 AND x_msg_data IS NULL
31140: THEN
31138:
31139: IF l_msg_count = 1 AND x_msg_data IS NULL
31140: THEN
31141: PA_INTERFACE_UTILS_PUB.get_messages
31142: (p_encoded => FND_API.G_FALSE,
31143: p_msg_index => 1,
31144: p_msg_count => x_msg_count,
31145: p_msg_data => l_msg_data,
31146: p_data => l_data,
31159: END IF;
31160:
31161: WHEN OTHERS THEN
31162: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31163: --IF (p_commit = FND_API.G_TRUE) THEN
31164: ROLLBACK TO create_deliverable_actions_pub;
31165: --END IF;
31166:
31167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31163: --IF (p_commit = FND_API.G_TRUE) THEN
31164: ROLLBACK TO create_deliverable_actions_pub;
31165: --END IF;
31166:
31167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31168: x_msg_count := 1;
31169: x_msg_data := SQLERRM;
31170:
31171: IF p_debug_mode = 'Y' THEN
31199:
31200: PROCEDURE update_deliverable
31201: ( p_api_version IN NUMBER := 1.0
31202: , p_init_msg_list IN VARCHAR2 := 'F'
31203: , p_commit IN VARCHAR2 := FND_API.G_FALSE
31204: , p_debug_mode IN VARCHAR2 := 'N'
31205: , x_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
31206: , p_deliverable_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
31207: , p_deliverable_short_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
31286: l_dlvr_id NUMBER; -- added for bug# 3749447
31287:
31288: BEGIN
31289: -- Initialize the message table if requested.
31290: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
31291: FND_MSG_PUB.initialize;
31292: END IF;
31293: ---- --dbms_output.put_line('entering pa_project_pub.Update_deliverable['||p_project_id||']['||p_task_id||']');
31294:
31292: END IF;
31293: ---- --dbms_output.put_line('entering pa_project_pub.Update_deliverable['||p_project_id||']['||p_task_id||']');
31294:
31295: -- 3735792, setting save point unconditionally
31296: --IF (p_commit = FND_API.G_TRUE) THEN
31297: savepoint UPDATE_DELIVERABLE_PUB;
31298: --END IF;
31299:
31300: IF p_debug_mode = 'Y' THEN
31325: ,p_attribute3 => ''
31326: ,p_attribute4 => ''
31327: ,p_attribute5 => '');
31328: END IF;
31329: x_return_status := FND_API.G_RET_STS_ERROR;
31330: RAISE FND_API.G_EXC_ERROR;
31331: END IF;
31332:
31333: -- Set API return status to success
31326: ,p_attribute4 => ''
31327: ,p_attribute5 => '');
31328: END IF;
31329: x_return_status := FND_API.G_RET_STS_ERROR;
31330: RAISE FND_API.G_EXC_ERROR;
31331: END IF;
31332:
31333: -- Set API return status to success
31334: x_return_status := FND_API.G_RET_STS_SUCCESS;
31330: RAISE FND_API.G_EXC_ERROR;
31331: END IF;
31332:
31333: -- Set API return status to success
31334: x_return_status := FND_API.G_RET_STS_SUCCESS;
31335:
31336: IF p_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
31337: l_task_id := NULL;
31338: ELSE
31358: IF p_debug_mode = 'Y' THEN
31359: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
31360: END IF;
31361:
31362: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31364: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31365: RAISE FND_API.G_EXC_ERROR;
31366: END IF;
31359: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
31360: END IF;
31361:
31362: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31364: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31365: RAISE FND_API.G_EXC_ERROR;
31366: END IF;
31367:
31360: END IF;
31361:
31362: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31364: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31365: RAISE FND_API.G_EXC_ERROR;
31366: END IF;
31367:
31368: IF l_function_allowed = 'N' THEN
31361:
31362: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31364: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31365: RAISE FND_API.G_EXC_ERROR;
31366: END IF;
31367:
31368: IF l_function_allowed = 'N' THEN
31369: pa_interface_utils_pub.map_new_amg_msg
31376: ,p_attribute3 => ''
31377: ,p_attribute4 => ''
31378: ,p_attribute5 => '');
31379:
31380: x_return_status := FND_API.G_RET_STS_ERROR;
31381: RAISE FND_API.G_EXC_ERROR;
31382: END IF;
31383:
31384: -- validate the input parameters.
31377: ,p_attribute4 => ''
31378: ,p_attribute5 => '');
31379:
31380: x_return_status := FND_API.G_RET_STS_ERROR;
31381: RAISE FND_API.G_EXC_ERROR;
31382: END IF;
31383:
31384: -- validate the input parameters.
31385: -- Get the task and Project details based on source reference passed
31393: IF p_debug_mode = 'Y' THEN
31394: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
31395: END IF;
31396:
31397: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31399: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31400: RAISE FND_API.G_EXC_ERROR;
31401: END IF;
31394: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
31395: END IF;
31396:
31397: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31399: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31400: RAISE FND_API.G_EXC_ERROR;
31401: END IF;
31402:
31395: END IF;
31396:
31397: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31399: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31400: RAISE FND_API.G_EXC_ERROR;
31401: END IF;
31402:
31403: -- 3749447 Changed from p_task_id to l_task_id in if conditon
31396:
31397: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31399: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31400: RAISE FND_API.G_EXC_ERROR;
31401: END IF;
31402:
31403: -- 3749447 Changed from p_task_id to l_task_id in if conditon
31404: -- also did the same change in below api's parameter passing
31415: IF p_debug_mode = 'Y' THEN
31416: pa_debug.write(g_pkg_name,'Task Ref to ID Return Status ['||x_return_status||']Task ID['||l_task_id||']',3) ;
31417: END IF;
31418:
31419: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31421: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31422: RAISE FND_API.G_EXC_ERROR;
31423: END IF;
31416: pa_debug.write(g_pkg_name,'Task Ref to ID Return Status ['||x_return_status||']Task ID['||l_task_id||']',3) ;
31417: END IF;
31418:
31419: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31421: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31422: RAISE FND_API.G_EXC_ERROR;
31423: END IF;
31424: END IF;
31417: END IF;
31418:
31419: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31421: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31422: RAISE FND_API.G_EXC_ERROR;
31423: END IF;
31424: END IF;
31425:
31418:
31419: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31421: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31422: RAISE FND_API.G_EXC_ERROR;
31423: END IF;
31424: END IF;
31425:
31426: -- Validate Deliverable reference / id- not null, unique
31435: IF p_debug_mode = 'Y' THEN
31436: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID ['||l_deliverable_id||'] Return Status ['||x_return_status||']',3) ;
31437: END IF;
31438:
31439: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31441: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31442: RAISE FND_API.G_EXC_ERROR;
31443: END IF;
31436: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID ['||l_deliverable_id||'] Return Status ['||x_return_status||']',3) ;
31437: END IF;
31438:
31439: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31441: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31442: RAISE FND_API.G_EXC_ERROR;
31443: END IF;
31444:
31437: END IF;
31438:
31439: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31441: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31442: RAISE FND_API.G_EXC_ERROR;
31443: END IF;
31444:
31445: OPEN C_vers(l_deliverable_id);
31438:
31439: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31441: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31442: RAISE FND_API.G_EXC_ERROR;
31443: END IF;
31444:
31445: OPEN C_vers(l_deliverable_id);
31446: FETCH C_vers INTO l_deliverable_version_id;
31456: Pa_Deliverable_Pub.Update_Deliverable
31457: ( p_api_version => p_api_version
31458: , p_init_msg_list => p_init_msg_list
31459: -- 3735792, passing p_commit as false to next level api calls
31460: , p_commit => FND_API.G_FALSE
31461: , p_validate_only => FND_API.G_FALSE
31462: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31463: , p_calling_module => 'AMG'
31464: , p_debug_mode => p_debug_mode
31457: ( p_api_version => p_api_version
31458: , p_init_msg_list => p_init_msg_list
31459: -- 3735792, passing p_commit as false to next level api calls
31460: , p_commit => FND_API.G_FALSE
31461: , p_validate_only => FND_API.G_FALSE
31462: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31463: , p_calling_module => 'AMG'
31464: , p_debug_mode => p_debug_mode
31465: , p_max_msg_count => NULL
31458: , p_init_msg_list => p_init_msg_list
31459: -- 3735792, passing p_commit as false to next level api calls
31460: , p_commit => FND_API.G_FALSE
31461: , p_validate_only => FND_API.G_FALSE
31462: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31463: , p_calling_module => 'AMG'
31464: , p_debug_mode => p_debug_mode
31465: , p_max_msg_count => NULL
31466: , p_record_version_number => null
31514: pa_debug.g_err_stage := 'Pa_Deliverable_Pub.Update_Deliverable return status ['||x_return_status||']';
31515: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
31516: END IF;
31517:
31518: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31520: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31521: RAISE FND_API.G_EXC_ERROR;
31522: END IF;
31515: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
31516: END IF;
31517:
31518: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31520: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31521: RAISE FND_API.G_EXC_ERROR;
31522: END IF;
31523:
31516: END IF;
31517:
31518: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31520: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31521: RAISE FND_API.G_EXC_ERROR;
31522: END IF;
31523:
31524: -- From the action_in table, select the actions for the given deliverable.
31517:
31518: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31520: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31521: RAISE FND_API.G_EXC_ERROR;
31522: END IF;
31523:
31524: -- From the action_in table, select the actions for the given deliverable.
31525: -- Based on action_reference / action_id identify if new action is to
31542: , p_out_deliverable_id => l_dlvr_id
31543: , p_return_status => x_return_status
31544: );
31545:
31546: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31548: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31549: RAISE FND_API.G_EXC_ERROR;
31550: END IF;
31543: , p_return_status => x_return_status
31544: );
31545:
31546: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31548: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31549: RAISE FND_API.G_EXC_ERROR;
31550: END IF;
31551:
31544: );
31545:
31546: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31548: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31549: RAISE FND_API.G_EXC_ERROR;
31550: END IF;
31551:
31552: END IF;
31545:
31546: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31548: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31549: RAISE FND_API.G_EXC_ERROR;
31550: END IF;
31551:
31552: END IF;
31553:
31632:
31633: -- There are actions to be updated
31634: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
31635: ( p_api_version => p_api_version
31636: , p_init_msg_list => FND_API.G_FALSE
31637: , p_commit => FND_API.G_FALSE
31638: , p_validate_only => FND_API.G_FALSE
31639: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31640: , p_calling_module => 'AMG'
31633: -- There are actions to be updated
31634: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
31635: ( p_api_version => p_api_version
31636: , p_init_msg_list => FND_API.G_FALSE
31637: , p_commit => FND_API.G_FALSE
31638: , p_validate_only => FND_API.G_FALSE
31639: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31640: , p_calling_module => 'AMG'
31641: , p_debug_mode => p_debug_mode
31634: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
31635: ( p_api_version => p_api_version
31636: , p_init_msg_list => FND_API.G_FALSE
31637: , p_commit => FND_API.G_FALSE
31638: , p_validate_only => FND_API.G_FALSE
31639: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31640: , p_calling_module => 'AMG'
31641: , p_debug_mode => p_debug_mode
31642: , p_insert_or_update => 'UPDATE'
31635: ( p_api_version => p_api_version
31636: , p_init_msg_list => FND_API.G_FALSE
31637: , p_commit => FND_API.G_FALSE
31638: , p_validate_only => FND_API.G_FALSE
31639: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31640: , p_calling_module => 'AMG'
31641: , p_debug_mode => p_debug_mode
31642: , p_insert_or_update => 'UPDATE'
31643: , p_action_in_tbl => l_action_in_tbl_upd
31649: IF p_debug_mode = 'Y' THEN
31650: pa_debug.write(g_pkg_name,'Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper upd return status['||x_return_status||']',3) ;
31651: END IF;
31652:
31653: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31655: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31656: RAISE FND_API.G_EXC_ERROR;
31657: END IF;
31650: pa_debug.write(g_pkg_name,'Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper upd return status['||x_return_status||']',3) ;
31651: END IF;
31652:
31653: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31655: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31656: RAISE FND_API.G_EXC_ERROR;
31657: END IF;
31658:
31651: END IF;
31652:
31653: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31655: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31656: RAISE FND_API.G_EXC_ERROR;
31657: END IF;
31658:
31659: END IF; --i_actn_upd > 0
31652:
31653: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31655: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31656: RAISE FND_API.G_EXC_ERROR;
31657: END IF;
31658:
31659: END IF; --i_actn_upd > 0
31660:
31662:
31663: -- There are actions to be updated
31664: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
31665: ( p_api_version => p_api_version
31666: , p_init_msg_list => FND_API.G_FALSE
31667: , p_commit => FND_API.G_FALSE
31668: , p_validate_only => FND_API.G_FALSE
31669: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31670: , p_calling_module => 'AMG'
31663: -- There are actions to be updated
31664: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
31665: ( p_api_version => p_api_version
31666: , p_init_msg_list => FND_API.G_FALSE
31667: , p_commit => FND_API.G_FALSE
31668: , p_validate_only => FND_API.G_FALSE
31669: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31670: , p_calling_module => 'AMG'
31671: , p_debug_mode => p_debug_mode
31664: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
31665: ( p_api_version => p_api_version
31666: , p_init_msg_list => FND_API.G_FALSE
31667: , p_commit => FND_API.G_FALSE
31668: , p_validate_only => FND_API.G_FALSE
31669: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31670: , p_calling_module => 'AMG'
31671: , p_debug_mode => p_debug_mode
31672: , p_insert_or_update => 'INSERT'
31665: ( p_api_version => p_api_version
31666: , p_init_msg_list => FND_API.G_FALSE
31667: , p_commit => FND_API.G_FALSE
31668: , p_validate_only => FND_API.G_FALSE
31669: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
31670: , p_calling_module => 'AMG'
31671: , p_debug_mode => p_debug_mode
31672: , p_insert_or_update => 'INSERT'
31673: , p_action_in_tbl => l_action_in_tbl_ins
31679: IF p_debug_mode = 'Y' THEN
31680: pa_debug.write(g_pkg_name,'Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper upd return status['||x_return_status||']',3) ;
31681: END IF;
31682:
31683: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31685: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31686: RAISE FND_API.G_EXC_ERROR;
31687: END IF;
31680: pa_debug.write(g_pkg_name,'Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper upd return status['||x_return_status||']',3) ;
31681: END IF;
31682:
31683: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31685: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31686: RAISE FND_API.G_EXC_ERROR;
31687: END IF;
31688:
31681: END IF;
31682:
31683: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31685: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31686: RAISE FND_API.G_EXC_ERROR;
31687: END IF;
31688:
31689: END IF; --i_actn_upd > 0
31682:
31683: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31685: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31686: RAISE FND_API.G_EXC_ERROR;
31687: END IF;
31688:
31689: END IF; --i_actn_upd > 0
31690:
31688:
31689: END IF; --i_actn_upd > 0
31690:
31691: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
31692: IF (p_commit = FND_API.G_TRUE) THEN
31693: COMMIT;
31694: END IF;
31695:
31696: IF p_debug_mode = 'Y' THEN
31698: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
31699: END IF;
31700:
31701: EXCEPTION
31702: WHEN FND_API.G_EXC_ERROR THEN
31703: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31704: --IF (p_commit = FND_API.G_TRUE) THEN
31705: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31706: --END IF;
31700:
31701: EXCEPTION
31702: WHEN FND_API.G_EXC_ERROR THEN
31703: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31704: --IF (p_commit = FND_API.G_TRUE) THEN
31705: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31706: --END IF;
31707:
31708: IF p_debug_mode = 'Y' THEN
31708: IF p_debug_mode = 'Y' THEN
31709: pa_debug.reset_curr_function;
31710: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
31711: END IF;
31712: x_return_status := FND_API.G_RET_STS_ERROR;
31713: x_msg_count := FND_MSG_PUB.count_msg;
31714:
31715: IF x_msg_count = 1 THEN
31716: PA_INTERFACE_UTILS_PUB.get_messages
31713: x_msg_count := FND_MSG_PUB.count_msg;
31714:
31715: IF x_msg_count = 1 THEN
31716: PA_INTERFACE_UTILS_PUB.get_messages
31717: (p_encoded => FND_API.G_FALSE,
31718: p_msg_index => 1,
31719: p_msg_count => x_msg_count,
31720: p_msg_data => x_msg_data,
31721: p_data => l_data, -- 4537865 Changed from x_msg_data to l_data ,as it may have problem with NOCOPY
31722: p_msg_index_out => l_msg_index_out);
31723: x_msg_data := l_data ; -- 4537865
31724: END IF;
31725:
31726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
31727: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31728: --IF (p_commit = FND_API.G_TRUE) THEN
31729: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31730: --END IF;
31724: END IF;
31725:
31726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
31727: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31728: --IF (p_commit = FND_API.G_TRUE) THEN
31729: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31730: --END IF;
31731:
31732: IF p_debug_mode = 'Y' THEN
31732: IF p_debug_mode = 'Y' THEN
31733: pa_debug.reset_curr_function;
31734: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
31735: END IF;
31736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31737: x_msg_count := FND_MSG_PUB.count_msg;
31738:
31739: IF x_msg_count = 1 THEN
31740: PA_INTERFACE_UTILS_PUB.get_messages
31737: x_msg_count := FND_MSG_PUB.count_msg;
31738:
31739: IF x_msg_count = 1 THEN
31740: PA_INTERFACE_UTILS_PUB.get_messages
31741: (p_encoded => FND_API.G_FALSE,
31742: p_msg_index => 1,
31743: p_msg_count => x_msg_count,
31744: p_msg_data => x_msg_data,
31745: p_data => l_data, -- 4537865 Changed from x_msg_data to l_data ,as it may have problem with NOCOPY
31748: END IF;
31749:
31750: WHEN OTHERS THEN
31751: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
31752: --IF (p_commit = FND_API.G_TRUE) THEN
31753: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31754: --END IF;
31755:
31756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31752: --IF (p_commit = FND_API.G_TRUE) THEN
31753: ROLLBACK TO UPDATE_DELIVERABLE_PUB;
31754: --END IF;
31755:
31756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
31757: x_msg_count := 1;
31758: x_msg_data := SQLERRM;
31759:
31760: IF p_debug_mode = 'Y' THEN
31773:
31774:
31775: PROCEDURE update_deliverable_action
31776: ( p_api_version IN NUMBER := 1.0
31777: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
31778: , p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
31779: , p_commit IN VARCHAR2 := FND_API.G_FALSE
31780: , p_action_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
31781: , p_action_owner_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
31774:
31775: PROCEDURE update_deliverable_action
31776: ( p_api_version IN NUMBER := 1.0
31777: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
31778: , p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
31779: , p_commit IN VARCHAR2 := FND_API.G_FALSE
31780: , p_action_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
31781: , p_action_owner_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
31782: , p_function_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
31775: PROCEDURE update_deliverable_action
31776: ( p_api_version IN NUMBER := 1.0
31777: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
31778: , p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
31779: , p_commit IN VARCHAR2 := FND_API.G_FALSE
31780: , p_action_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
31781: , p_action_owner_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
31782: , p_function_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
31783: , p_due_date IN DATE := PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
31881: -- Standard begin of API savepoint
31882: SAVEPOINT update_deliverable_actions_pub;
31883:
31884: -- Standard call to check for call compatibility.
31885: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
31886: p_api_version ,
31887: l_api_name ,
31888: G_PKG_NAME )
31889: THEN
31886: p_api_version ,
31887: l_api_name ,
31888: G_PKG_NAME )
31889: THEN
31890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31891: END IF;
31892:
31893: -- Initialize the message table if requested.
31894: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
31890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31891: END IF;
31892:
31893: -- Initialize the message table if requested.
31894: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
31895: FND_MSG_PUB.initialize;
31896: END IF;
31897:
31898: IF p_debug_mode = 'Y' THEN
31901: pa_debug.g_err_stage:= 'Inside '||l_api_name;
31902: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
31903: END IF;
31904: -- Set API return status to success
31905: x_return_status := FND_API.G_RET_STS_SUCCESS;
31906:
31907: -- Function Security Check
31908: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
31909: (p_api_version_number => p_api_version,
31914: p_return_status => x_return_status,
31915: p_function_allowed => l_function_allowed);
31916:
31917:
31918: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31920: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31921: RAISE FND_API.G_EXC_ERROR;
31922: END IF;
31915: p_function_allowed => l_function_allowed);
31916:
31917:
31918: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31920: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31921: RAISE FND_API.G_EXC_ERROR;
31922: END IF;
31923:
31916:
31917:
31918: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31920: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31921: RAISE FND_API.G_EXC_ERROR;
31922: END IF;
31923:
31924: IF l_function_allowed = 'N' THEN
31917:
31918: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31920: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31921: RAISE FND_API.G_EXC_ERROR;
31922: END IF;
31923:
31924: IF l_function_allowed = 'N' THEN
31925: pa_interface_utils_pub.map_new_amg_msg
31932: ,p_attribute3 => ''
31933: ,p_attribute4 => ''
31934: ,p_attribute5 => '');
31935:
31936: x_return_status := FND_API.G_RET_STS_ERROR;
31937: RAISE FND_API.G_EXC_ERROR;
31938: END IF;
31939:
31940: -- validate the input parameters.
31933: ,p_attribute4 => ''
31934: ,p_attribute5 => '');
31935:
31936: x_return_status := FND_API.G_RET_STS_ERROR;
31937: RAISE FND_API.G_EXC_ERROR;
31938: END IF;
31939:
31940: -- validate the input parameters.
31941: -- Validate Project reference/id
31949: IF p_debug_mode = 'Y' THEN
31950: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
31951: END IF;
31952:
31953: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31955: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31956: RAISE FND_API.G_EXC_ERROR;
31957: END IF;
31950: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
31951: END IF;
31952:
31953: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31955: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31956: RAISE FND_API.G_EXC_ERROR;
31957: END IF;
31958:
31951: END IF;
31952:
31953: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31955: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31956: RAISE FND_API.G_EXC_ERROR;
31957: END IF;
31958:
31959: -- Validate Deliverable reference / ID
31952:
31953: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
31954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31955: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
31956: RAISE FND_API.G_EXC_ERROR;
31957: END IF;
31958:
31959: -- Validate Deliverable reference / ID
31960: PA_Deliverable_Utils.Convert_pm_dlvrref_to_id(
31967: IF p_debug_mode = 'Y' THEN
31968: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID Return Status ['||x_return_status,3) ;
31969: END IF;
31970:
31971: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31973: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31974: RAISE FND_API.G_EXC_ERROR;
31975: END IF;
31968: pa_debug.write(g_pkg_name,'Dlvr Reference Ref to ID Return Status ['||x_return_status,3) ;
31969: END IF;
31970:
31971: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31973: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31974: RAISE FND_API.G_EXC_ERROR;
31975: END IF;
31976:
31969: END IF;
31970:
31971: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31973: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31974: RAISE FND_API.G_EXC_ERROR;
31975: END IF;
31976:
31977:
31970:
31971: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31973: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31974: RAISE FND_API.G_EXC_ERROR;
31975: END IF;
31976:
31977:
31978: -- 3729250 Validate Deliverable Action reference / ID
31987: IF p_debug_mode = 'Y' THEN
31988: pa_debug.write(g_pkg_name,'Convert_pm_actionref_to_id Return Status ['||x_return_status,3) ;
31989: END IF;
31990:
31991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31993: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31994: RAISE FND_API.G_EXC_ERROR;
31995: END IF;
31988: pa_debug.write(g_pkg_name,'Convert_pm_actionref_to_id Return Status ['||x_return_status,3) ;
31989: END IF;
31990:
31991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31993: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31994: RAISE FND_API.G_EXC_ERROR;
31995: END IF;
31996:
31989: END IF;
31990:
31991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31993: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31994: RAISE FND_API.G_EXC_ERROR;
31995: END IF;
31996:
31997: -- 3729250, Validate Financial Task Reference / ID
31990:
31991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
31992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31993: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
31994: RAISE FND_API.G_EXC_ERROR;
31995: END IF;
31996:
31997: -- 3729250, Validate Financial Task Reference / ID
31998: -- PA_PROJECT_PVT.Convert_pm_taskref_to_id_all should only be called if either p_financial_task_id or
32007: , p_pm_task_reference => p_financial_task_reference
32008: , p_out_task_id => l_fin_task_id
32009: , p_return_status => x_return_status );
32010:
32011: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32013: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32014: RAISE FND_API.G_EXC_ERROR;
32015: END IF;
32008: , p_out_task_id => l_fin_task_id
32009: , p_return_status => x_return_status );
32010:
32011: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32013: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32014: RAISE FND_API.G_EXC_ERROR;
32015: END IF;
32016: END IF;
32009: , p_return_status => x_return_status );
32010:
32011: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32013: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32014: RAISE FND_API.G_EXC_ERROR;
32015: END IF;
32016: END IF;
32017:
32010:
32011: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32013: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32014: RAISE FND_API.G_EXC_ERROR;
32015: END IF;
32016: END IF;
32017:
32018: -- Populate the table with input parameters
32088:
32089: -- Call api to update actions passing the newly populated plsql table
32090: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
32091: ( p_api_version => p_api_version
32092: , p_init_msg_list => FND_API.G_FALSE
32093: , p_commit => FND_API.G_FALSE
32094: , p_validate_only => FND_API.G_FALSE
32095: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
32096: , p_calling_module => 'AMG'
32089: -- Call api to update actions passing the newly populated plsql table
32090: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
32091: ( p_api_version => p_api_version
32092: , p_init_msg_list => FND_API.G_FALSE
32093: , p_commit => FND_API.G_FALSE
32094: , p_validate_only => FND_API.G_FALSE
32095: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
32096: , p_calling_module => 'AMG'
32097: , p_debug_mode => p_debug_mode
32090: Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper
32091: ( p_api_version => p_api_version
32092: , p_init_msg_list => FND_API.G_FALSE
32093: , p_commit => FND_API.G_FALSE
32094: , p_validate_only => FND_API.G_FALSE
32095: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
32096: , p_calling_module => 'AMG'
32097: , p_debug_mode => p_debug_mode
32098: , p_insert_or_update => 'UPDATE'
32091: ( p_api_version => p_api_version
32092: , p_init_msg_list => FND_API.G_FALSE
32093: , p_commit => FND_API.G_FALSE
32094: , p_validate_only => FND_API.G_FALSE
32095: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
32096: , p_calling_module => 'AMG'
32097: , p_debug_mode => p_debug_mode
32098: , p_insert_or_update => 'UPDATE'
32099: , p_action_in_tbl => l_action_in_tbl
32103: , x_msg_data => l_msg_data);
32104:
32105: -- 3749474 added code to check for return status
32106:
32107: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32110: RAISE FND_API.G_EXC_ERROR;
32111: END IF;
32104:
32105: -- 3749474 added code to check for return status
32106:
32107: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32110: RAISE FND_API.G_EXC_ERROR;
32111: END IF;
32112:
32105: -- 3749474 added code to check for return status
32106:
32107: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32110: RAISE FND_API.G_EXC_ERROR;
32111: END IF;
32112:
32113: ---- --dbms_output.put_line('after Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper'||x_return_status);
32106:
32107: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32110: RAISE FND_API.G_EXC_ERROR;
32111: END IF;
32112:
32113: ---- --dbms_output.put_line('after Pa_Actions_Pub.Create_Dlvr_Actions_Wrapper'||x_return_status);
32114: i := l_action_out_tbl.first();
32118: i := l_action_out_tbl.next(i);
32119: END LOOP;
32120:
32121: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
32122: IF (p_commit = FND_API.G_TRUE) THEN
32123: COMMIT;
32124: END IF;
32125:
32126: IF p_debug_mode = 'Y' THEN
32128: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32129: END IF;
32130:
32131: EXCEPTION
32132: WHEN FND_API.G_EXC_ERROR THEN
32133: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32134: --IF (p_commit = FND_API.G_TRUE) THEN
32135: ROLLBACK TO update_deliverable_actions_pub;
32136: --END IF;
32130:
32131: EXCEPTION
32132: WHEN FND_API.G_EXC_ERROR THEN
32133: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32134: --IF (p_commit = FND_API.G_TRUE) THEN
32135: ROLLBACK TO update_deliverable_actions_pub;
32136: --END IF;
32137:
32138: IF p_debug_mode = 'Y' THEN
32138: IF p_debug_mode = 'Y' THEN
32139: pa_debug.reset_curr_function;
32140: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32141: END IF;
32142: x_return_status := FND_API.G_RET_STS_ERROR;
32143: x_msg_count := FND_MSG_PUB.count_msg;
32144:
32145: IF x_msg_count = 1 THEN
32146: PA_INTERFACE_UTILS_PUB.get_messages
32143: x_msg_count := FND_MSG_PUB.count_msg;
32144:
32145: IF x_msg_count = 1 THEN
32146: PA_INTERFACE_UTILS_PUB.get_messages
32147: (p_encoded => FND_API.G_FALSE,
32148: p_msg_index => 1,
32149: p_msg_count => x_msg_count,
32150: p_msg_data => x_msg_data,
32151: p_data => l_data, --4537865 Changed from x_msg_data to l_data ,as it may have problem with NOCOPY
32152: p_msg_index_out => l_msg_index_out);
32153: x_msg_data := l_data ; -- 4537865
32154: END IF;
32155:
32156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32157: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32158: --IF (p_commit = FND_API.G_TRUE) THEN
32159: ROLLBACK TO update_deliverable_actions_pub;
32160: --END IF;
32154: END IF;
32155:
32156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32157: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32158: --IF (p_commit = FND_API.G_TRUE) THEN
32159: ROLLBACK TO update_deliverable_actions_pub;
32160: --END IF;
32161:
32162: IF p_debug_mode = 'Y' THEN
32162: IF p_debug_mode = 'Y' THEN
32163: pa_debug.reset_curr_function;
32164: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_UNEXPECTED_ERROR exception',5);
32165: END IF;
32166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32167: x_msg_count := FND_MSG_PUB.count_msg;
32168:
32169: IF x_msg_count = 1 THEN
32170: PA_INTERFACE_UTILS_PUB.get_messages
32167: x_msg_count := FND_MSG_PUB.count_msg;
32168:
32169: IF x_msg_count = 1 THEN
32170: PA_INTERFACE_UTILS_PUB.get_messages
32171: (p_encoded => FND_API.G_FALSE,
32172: p_msg_index => 1,
32173: p_msg_count => x_msg_count,
32174: p_msg_data => x_msg_data,
32175: p_data => l_data,-- 4537865 Changed from x_msg_data to l_data ,as it may have problem with NOCOPY
32178: END IF;
32179:
32180: WHEN OTHERS THEN
32181: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32182: -- IF (p_commit = FND_API.G_TRUE) THEN
32183: ROLLBACK TO update_deliverable_actions_pub;
32184: -- END IF;
32185:
32186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32182: -- IF (p_commit = FND_API.G_TRUE) THEN
32183: ROLLBACK TO update_deliverable_actions_pub;
32184: -- END IF;
32185:
32186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32187: x_msg_count := 1;
32188: x_msg_data := SQLERRM;
32189:
32190: IF p_debug_mode = 'Y' THEN
32208: -- Assumptions : None
32209:
32210: Procedure Delete_Deliverables (
32211: p_api_version IN NUMBER := 1.0
32212: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
32213: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
32214: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32215: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32216: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
32209:
32210: Procedure Delete_Deliverables (
32211: p_api_version IN NUMBER := 1.0
32212: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
32213: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
32214: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32215: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32216: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
32217: --for bug# 3729250
32236:
32237:
32238: BEGIN
32239: -- Initialize the message table if requested.
32240: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
32241: FND_MSG_PUB.initialize;
32242: END IF;
32243:
32244: -- 3735792, setting save point unconditionally
32241: FND_MSG_PUB.initialize;
32242: END IF;
32243:
32244: -- 3735792, setting save point unconditionally
32245: --IF (p_commit = FND_API.G_TRUE) THEN
32246: savepoint DELETE_DELIVERABLE_PUB;
32247: --END IF;
32248:
32249: IF l_debug_mode = 'Y' THEN
32253: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32254: END IF;
32255:
32256: -- Set API return status to success
32257: x_return_status := FND_API.G_RET_STS_SUCCESS;
32258:
32259: -- Function Security Check
32260: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
32261: (p_api_version_number => p_api_version,
32269: IF l_debug_mode = 'Y' THEN
32270: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
32271: END IF;
32272:
32273: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32275: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32276: RAISE FND_API.G_EXC_ERROR;
32277: END IF;
32270: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
32271: END IF;
32272:
32273: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32275: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32276: RAISE FND_API.G_EXC_ERROR;
32277: END IF;
32278:
32271: END IF;
32272:
32273: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32275: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32276: RAISE FND_API.G_EXC_ERROR;
32277: END IF;
32278:
32279: IF l_function_allowed = 'N' THEN
32272:
32273: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32275: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32276: RAISE FND_API.G_EXC_ERROR;
32277: END IF;
32278:
32279: IF l_function_allowed = 'N' THEN
32280: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
32278:
32279: IF l_function_allowed = 'N' THEN
32280: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
32281: ,p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
32282: x_return_status := FND_API.G_RET_STS_ERROR;
32283: RAISE FND_API.G_EXC_ERROR;
32284: END IF;
32285:
32286: -- validate the input parameters.
32279: IF l_function_allowed = 'N' THEN
32280: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
32281: ,p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
32282: x_return_status := FND_API.G_RET_STS_ERROR;
32283: RAISE FND_API.G_EXC_ERROR;
32284: END IF;
32285:
32286: -- validate the input parameters.
32287: -- Validate Project Reference / ID
32295: IF l_debug_mode = 'Y' THEN
32296: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
32297: END IF;
32298:
32299: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32301: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32302: RAISE FND_API.G_EXC_ERROR;
32303: END IF;
32296: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
32297: END IF;
32298:
32299: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32301: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32302: RAISE FND_API.G_EXC_ERROR;
32303: END IF;
32304:
32297: END IF;
32298:
32299: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32301: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32302: RAISE FND_API.G_EXC_ERROR;
32303: END IF;
32304:
32305: -- Validate Deliverable Reference / ID
32298:
32299: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32301: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32302: RAISE FND_API.G_EXC_ERROR;
32303: END IF;
32304:
32305: -- Validate Deliverable Reference / ID
32306: Pa_Deliverable_Utils.Convert_pm_dlvrref_to_id
32315: IF l_debug_mode = 'Y' THEN
32316: pa_debug.write(g_pkg_name,'Dlvr Reference Valid Return Status ['||x_return_status||']Dlvr ID['||l_deliverable_id||']',3) ;
32317: END IF;
32318:
32319: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32321: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32322: RAISE FND_API.G_EXC_ERROR;
32323: END IF;
32316: pa_debug.write(g_pkg_name,'Dlvr Reference Valid Return Status ['||x_return_status||']Dlvr ID['||l_deliverable_id||']',3) ;
32317: END IF;
32318:
32319: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32321: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32322: RAISE FND_API.G_EXC_ERROR;
32323: END IF;
32324:
32317: END IF;
32318:
32319: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32321: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32322: RAISE FND_API.G_EXC_ERROR;
32323: END IF;
32324:
32325: -- Derive deliverable version ID and call api Delete Deliverable. It
32318:
32319: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32321: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32322: RAISE FND_API.G_EXC_ERROR;
32323: END IF;
32324:
32325: -- Derive deliverable version ID and call api Delete Deliverable. It
32326: l_dlvr_version_id := Pa_Deliverable_Utils.Get_Deliverable_Version_Id (l_deliverable_id, null, l_project_id) ;
32333: IF ( l_dlvr_version_id IS NOT NULL )
32334: THEN
32335: pa_deliverable_pvt.delete_deliverable
32336: (p_api_version => p_api_version
32337: ,p_init_msg_list => FND_API.G_FALSE
32338: -- 3735792, passing p_commit as false to next level api calls
32339: ,p_commit => FND_API.G_FALSE
32340: ,p_validate_only => FND_API.G_FALSE
32341: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32335: pa_deliverable_pvt.delete_deliverable
32336: (p_api_version => p_api_version
32337: ,p_init_msg_list => FND_API.G_FALSE
32338: -- 3735792, passing p_commit as false to next level api calls
32339: ,p_commit => FND_API.G_FALSE
32340: ,p_validate_only => FND_API.G_FALSE
32341: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32342: ,p_calling_module => 'AMG'
32343: ,p_debug_mode => l_debug_mode
32336: (p_api_version => p_api_version
32337: ,p_init_msg_list => FND_API.G_FALSE
32338: -- 3735792, passing p_commit as false to next level api calls
32339: ,p_commit => FND_API.G_FALSE
32340: ,p_validate_only => FND_API.G_FALSE
32341: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32342: ,p_calling_module => 'AMG'
32343: ,p_debug_mode => l_debug_mode
32344: ,p_max_msg_count => null
32337: ,p_init_msg_list => FND_API.G_FALSE
32338: -- 3735792, passing p_commit as false to next level api calls
32339: ,p_commit => FND_API.G_FALSE
32340: ,p_validate_only => FND_API.G_FALSE
32341: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32342: ,p_calling_module => 'AMG'
32343: ,p_debug_mode => l_debug_mode
32344: ,p_max_msg_count => null
32345: ,p_dlv_element_id => l_deliverable_id
32353: IF l_debug_mode = 'Y' THEN
32354: pa_debug.write(g_pkg_name,' after pa_deliverable_pvt.delete_deliverable ['||x_return_status||']',3) ;
32355: END IF;
32356:
32357: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32359: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32360: RAISE FND_API.G_EXC_ERROR;
32361: END IF;
32354: pa_debug.write(g_pkg_name,' after pa_deliverable_pvt.delete_deliverable ['||x_return_status||']',3) ;
32355: END IF;
32356:
32357: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32359: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32360: RAISE FND_API.G_EXC_ERROR;
32361: END IF;
32362:
32355: END IF;
32356:
32357: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32359: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32360: RAISE FND_API.G_EXC_ERROR;
32361: END IF;
32362:
32363: END IF;
32356:
32357: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32359: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32360: RAISE FND_API.G_EXC_ERROR;
32361: END IF;
32362:
32363: END IF;
32364:
32362:
32363: END IF;
32364:
32365: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
32366: IF (p_commit = FND_API.G_TRUE) THEN
32367: COMMIT;
32368: END IF;
32369:
32370: IF l_debug_mode = 'Y' THEN
32372: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32373: END IF;
32374:
32375: EXCEPTION
32376: WHEN FND_API.G_EXC_ERROR THEN
32377: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32378: --IF (p_commit = FND_API.G_TRUE) THEN
32379: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32380: --END IF;
32374:
32375: EXCEPTION
32376: WHEN FND_API.G_EXC_ERROR THEN
32377: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32378: --IF (p_commit = FND_API.G_TRUE) THEN
32379: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32380: --END IF;
32381:
32382: x_return_status := FND_API.G_RET_STS_ERROR;
32378: --IF (p_commit = FND_API.G_TRUE) THEN
32379: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32380: --END IF;
32381:
32382: x_return_status := FND_API.G_RET_STS_ERROR;
32383: l_msg_count := FND_MSG_PUB.count_msg;
32384:
32385: IF l_msg_count = 1 AND x_msg_data IS NULL
32386: THEN
32384:
32385: IF l_msg_count = 1 AND x_msg_data IS NULL
32386: THEN
32387: PA_INTERFACE_UTILS_PUB.get_messages
32388: (p_encoded => FND_API.G_FALSE,
32389: p_msg_index => 1,
32390: p_msg_count => x_msg_count,
32391: p_msg_data => l_msg_data,
32392: p_data => l_data,
32403: pa_debug.reset_curr_function;
32404: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32405: END IF;
32406:
32407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32408: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32409: --IF (p_commit = FND_API.G_TRUE) THEN
32410: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32411: --END IF;
32405: END IF;
32406:
32407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32408: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32409: --IF (p_commit = FND_API.G_TRUE) THEN
32410: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32411: --END IF;
32412:
32413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32409: --IF (p_commit = FND_API.G_TRUE) THEN
32410: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32411: --END IF;
32412:
32413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32414: l_msg_count := FND_MSG_PUB.count_msg;
32415:
32416: IF l_msg_count = 1 AND x_msg_data IS NULL
32417: THEN
32415:
32416: IF l_msg_count = 1 AND x_msg_data IS NULL
32417: THEN
32418: PA_INTERFACE_UTILS_PUB.get_messages
32419: (p_encoded => FND_API.G_FALSE,
32420: p_msg_index => 1,
32421: p_msg_count => x_msg_count,
32422: p_msg_data => l_msg_data,
32423: p_data => l_data,
32435: END IF;
32436:
32437: WHEN OTHERS THEN
32438: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32439: --IF (p_commit = FND_API.G_TRUE) THEN
32440: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32441: --END IF;
32442:
32443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32439: --IF (p_commit = FND_API.G_TRUE) THEN
32440: ROLLBACK TO DELETE_DELIVERABLE_PUB;
32441: --END IF;
32442:
32443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32444: x_msg_count := 1;
32445: x_msg_data := SQLERRM;
32446:
32447: IF l_debug_mode = 'Y' THEN
32464: -- Assumptions : None
32465:
32466: PROCEDURE delete_deliverable_actions
32467: ( p_api_version IN NUMBER := 1.0 -- 3749480 earlier defaulted with G_PA_MISS_NUM ; Bug#3451073 Removed Quotes
32468: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
32469: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
32470: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32471: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32472: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
32465:
32466: PROCEDURE delete_deliverable_actions
32467: ( p_api_version IN NUMBER := 1.0 -- 3749480 earlier defaulted with G_PA_MISS_NUM ; Bug#3451073 Removed Quotes
32468: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
32469: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
32470: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32471: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32472: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
32473: -- for bug# 3729250 , changed datatype from NUMBER TO VARCHAR2
32501: l_msg_data VARCHAR2(2000);
32502:
32503: BEGIN
32504: -- Initialize the message table if requested.
32505: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
32506: FND_MSG_PUB.initialize;
32507: END IF;
32508:
32509: -- 3735792, setting save point unconditionally
32506: FND_MSG_PUB.initialize;
32507: END IF;
32508:
32509: -- 3735792, setting save point unconditionally
32510: --IF (p_commit = FND_API.G_TRUE) THEN
32511: savepoint DELETE_DELIVERABLE_ACTION_PUB;
32512: --END IF;
32513:
32514: IF l_debug_mode = 'Y' THEN
32517: pa_debug.g_err_stage:= 'Inside '||l_api_name;
32518: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32519: END IF;
32520: -- Set API return status to success
32521: x_return_status := FND_API.G_RET_STS_SUCCESS;
32522:
32523: -- Function Security Check
32524: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
32525: (p_api_version_number => p_api_version,
32533: IF l_debug_mode = 'Y' THEN
32534: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
32535: END IF;
32536:
32537: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32539: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32540: RAISE FND_API.G_EXC_ERROR;
32541: END IF;
32534: pa_debug.write(g_pkg_name,'Func Security Return Status ['||x_return_status||']Func Allow['||l_function_allowed||']',3) ;
32535: END IF;
32536:
32537: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32539: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32540: RAISE FND_API.G_EXC_ERROR;
32541: END IF;
32542:
32535: END IF;
32536:
32537: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32539: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32540: RAISE FND_API.G_EXC_ERROR;
32541: END IF;
32542:
32543: IF l_function_allowed = 'N' THEN
32536:
32537: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32539: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32540: RAISE FND_API.G_EXC_ERROR;
32541: END IF;
32542:
32543: IF l_function_allowed = 'N' THEN
32544: pa_interface_utils_pub.map_new_amg_msg
32551: ,p_attribute3 => ''
32552: ,p_attribute4 => ''
32553: ,p_attribute5 => '');
32554:
32555: x_return_status := FND_API.G_RET_STS_ERROR;
32556: RAISE FND_API.G_EXC_ERROR;
32557: END IF;
32558:
32559: -- validate the input parameters.
32552: ,p_attribute4 => ''
32553: ,p_attribute5 => '');
32554:
32555: x_return_status := FND_API.G_RET_STS_ERROR;
32556: RAISE FND_API.G_EXC_ERROR;
32557: END IF;
32558:
32559: -- validate the input parameters.
32560: -- Validate Project Reference / ID
32568: IF l_debug_mode = 'Y' THEN
32569: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
32570: END IF;
32571:
32572: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32574: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32575: RAISE FND_API.G_EXC_ERROR;
32576: END IF;
32569: pa_debug.write(g_pkg_name,'Proj Ref to ID Return Status ['||x_return_status||']Proj ID['||l_project_id||']',3) ;
32570: END IF;
32571:
32572: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32574: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32575: RAISE FND_API.G_EXC_ERROR;
32576: END IF;
32577:
32570: END IF;
32571:
32572: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32574: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32575: RAISE FND_API.G_EXC_ERROR;
32576: END IF;
32577:
32578: -- Validate Deliverable Reference / ID
32571:
32572: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32574: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32575: RAISE FND_API.G_EXC_ERROR;
32576: END IF;
32577:
32578: -- Validate Deliverable Reference / ID
32579: Pa_Deliverable_Utils.Convert_pm_dlvrref_to_id
32587: IF l_debug_mode = 'Y' THEN
32588: pa_debug.write(g_pkg_name,'Dlvr Reference Valid Return Status ['||x_return_status||']Dlvr ID['||l_deliverable_id||']',3) ;
32589: END IF;
32590:
32591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32593: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32594: RAISE FND_API.G_EXC_ERROR;
32595: END IF;
32588: pa_debug.write(g_pkg_name,'Dlvr Reference Valid Return Status ['||x_return_status||']Dlvr ID['||l_deliverable_id||']',3) ;
32589: END IF;
32590:
32591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32593: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32594: RAISE FND_API.G_EXC_ERROR;
32595: END IF;
32596:
32589: END IF;
32590:
32591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32593: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32594: RAISE FND_API.G_EXC_ERROR;
32595: END IF;
32596:
32597: -- Validate Action Reference / ID
32590:
32591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32593: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32594: RAISE FND_API.G_EXC_ERROR;
32595: END IF;
32596:
32597: -- Validate Action Reference / ID
32598: Pa_Deliverable_Utils.Convert_pm_actionref_to_id
32608: IF l_debug_mode = 'Y' THEN
32609: pa_debug.write(g_pkg_name,'Dlvr Action Reference Valid Return Status ['||x_return_status||']Action ID['||l_action_id||']',3) ;
32610: END IF;
32611:
32612: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32614: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32615: RAISE FND_API.G_EXC_ERROR;
32616: END IF;
32609: pa_debug.write(g_pkg_name,'Dlvr Action Reference Valid Return Status ['||x_return_status||']Action ID['||l_action_id||']',3) ;
32610: END IF;
32611:
32612: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32614: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32615: RAISE FND_API.G_EXC_ERROR;
32616: END IF;
32617:
32610: END IF;
32611:
32612: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32614: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32615: RAISE FND_API.G_EXC_ERROR;
32616: END IF;
32617:
32618: -- Derive Deliverable_version_id
32611:
32612: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32614: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32615: RAISE FND_API.G_EXC_ERROR;
32616: END IF;
32617:
32618: -- Derive Deliverable_version_id
32619: l_dlvr_version_id := Pa_Deliverable_Utils.Get_Deliverable_Version_Id (l_deliverable_id, null, l_project_id) ;
32633: -- Calling Actions API to delete actions.
32634:
32635: pa_actions_pvt.DELETE_DLV_ACTION
32636: (p_api_version => p_api_version
32637: ,p_init_msg_list => FND_API.G_FALSE
32638: ,p_commit => FND_API.G_FALSE
32639: ,p_validate_only => FND_API.G_FALSE
32640: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32641: ,p_calling_module => 'AMG'
32634:
32635: pa_actions_pvt.DELETE_DLV_ACTION
32636: (p_api_version => p_api_version
32637: ,p_init_msg_list => FND_API.G_FALSE
32638: ,p_commit => FND_API.G_FALSE
32639: ,p_validate_only => FND_API.G_FALSE
32640: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32641: ,p_calling_module => 'AMG'
32642: ,p_debug_mode => l_debug_mode
32635: pa_actions_pvt.DELETE_DLV_ACTION
32636: (p_api_version => p_api_version
32637: ,p_init_msg_list => FND_API.G_FALSE
32638: ,p_commit => FND_API.G_FALSE
32639: ,p_validate_only => FND_API.G_FALSE
32640: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32641: ,p_calling_module => 'AMG'
32642: ,p_debug_mode => l_debug_mode
32643: ,p_max_msg_count => null
32636: (p_api_version => p_api_version
32637: ,p_init_msg_list => FND_API.G_FALSE
32638: ,p_commit => FND_API.G_FALSE
32639: ,p_validate_only => FND_API.G_FALSE
32640: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32641: ,p_calling_module => 'AMG'
32642: ,p_debug_mode => l_debug_mode
32643: ,p_max_msg_count => null
32644: ,p_action_id => l_action_id
32655: IF l_debug_mode = 'Y' THEN
32656: pa_debug.write(g_pkg_name,' after pa_actions_pvt.DELETE_DLV_ACTION ['||x_return_status||']',3) ;
32657: END IF;
32658:
32659: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32661: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32662: RAISE FND_API.G_EXC_ERROR;
32663: END IF;
32656: pa_debug.write(g_pkg_name,' after pa_actions_pvt.DELETE_DLV_ACTION ['||x_return_status||']',3) ;
32657: END IF;
32658:
32659: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32661: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32662: RAISE FND_API.G_EXC_ERROR;
32663: END IF;
32664:
32657: END IF;
32658:
32659: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32661: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32662: RAISE FND_API.G_EXC_ERROR;
32663: END IF;
32664:
32665: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
32658:
32659: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32661: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32662: RAISE FND_API.G_EXC_ERROR;
32663: END IF;
32664:
32665: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
32666: IF (p_commit = FND_API.G_TRUE) THEN
32662: RAISE FND_API.G_EXC_ERROR;
32663: END IF;
32664:
32665: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
32666: IF (p_commit = FND_API.G_TRUE) THEN
32667: COMMIT;
32668: END IF;
32669:
32670: IF l_debug_mode = 'Y' THEN
32672: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32673: END IF;
32674:
32675: EXCEPTION
32676: WHEN FND_API.G_EXC_ERROR THEN
32677: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32678: --IF (p_commit = FND_API.G_TRUE) THEN
32679: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32680: --END IF;
32674:
32675: EXCEPTION
32676: WHEN FND_API.G_EXC_ERROR THEN
32677: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32678: --IF (p_commit = FND_API.G_TRUE) THEN
32679: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32680: --END IF;
32681:
32682: x_return_status := FND_API.G_RET_STS_ERROR;
32678: --IF (p_commit = FND_API.G_TRUE) THEN
32679: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32680: --END IF;
32681:
32682: x_return_status := FND_API.G_RET_STS_ERROR;
32683: l_msg_count := FND_MSG_PUB.count_msg;
32684:
32685: IF l_msg_count = 1 AND x_msg_data IS NULL
32686: THEN
32684:
32685: IF l_msg_count = 1 AND x_msg_data IS NULL
32686: THEN
32687: PA_INTERFACE_UTILS_PUB.get_messages
32688: (p_encoded => FND_API.G_FALSE,
32689: p_msg_index => 1,
32690: p_msg_count => x_msg_count,
32691: p_msg_data => l_msg_data,
32692: p_data => l_data,
32703: pa_debug.reset_curr_function;
32704: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32705: END IF;
32706:
32707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32708: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32709: --IF (p_commit = FND_API.G_TRUE) THEN
32710: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32711: --END IF;
32705: END IF;
32706:
32707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32708: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32709: --IF (p_commit = FND_API.G_TRUE) THEN
32710: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32711: --END IF;
32712:
32713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32709: --IF (p_commit = FND_API.G_TRUE) THEN
32710: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32711: --END IF;
32712:
32713: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32714: l_msg_count := FND_MSG_PUB.count_msg;
32715:
32716: IF l_msg_count = 1 AND x_msg_data IS NULL
32717: THEN
32715:
32716: IF l_msg_count = 1 AND x_msg_data IS NULL
32717: THEN
32718: PA_INTERFACE_UTILS_PUB.get_messages
32719: (p_encoded => FND_API.G_FALSE,
32720: p_msg_index => 1,
32721: p_msg_count => x_msg_count,
32722: p_msg_data => l_msg_data,
32723: p_data => l_data,
32736: END IF;
32737:
32738: WHEN OTHERS THEN
32739: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32740: --IF (p_commit = FND_API.G_TRUE) THEN
32741: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32742: --END IF;
32743:
32744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32740: --IF (p_commit = FND_API.G_TRUE) THEN
32741: ROLLBACK TO DELETE_DELIVERABLE_ACTION_PUB;
32742: --END IF;
32743:
32744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32745: x_msg_count := 1;
32746: x_msg_data := SQLERRM;
32747:
32748: IF l_debug_mode = 'Y' THEN
32765: -- Assumptions : None
32766:
32767: Procedure DELETE_DLV_TO_TASK_ASSCN (
32768: p_api_version IN NUMBER := 1.0
32769: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
32770: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
32771: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32772: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32773: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
32766:
32767: Procedure DELETE_DLV_TO_TASK_ASSCN (
32768: p_api_version IN NUMBER := 1.0
32769: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
32770: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
32771: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32772: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32773: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
32774: ,p_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
32801:
32802: BEGIN
32803:
32804: -- Initialize the message table if requested.
32805: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
32806: FND_MSG_PUB.initialize;
32807: END IF;
32808:
32809: -- 3735792, setting save point unconditionally
32806: FND_MSG_PUB.initialize;
32807: END IF;
32808:
32809: -- 3735792, setting save point unconditionally
32810: --IF (p_commit = FND_API.G_TRUE) THEN
32811: savepoint DELETE_DLV_TO_TASK_ASSCN_PUB;
32812: --END IF;
32813:
32814: IF l_debug_mode = 'Y' THEN
32818: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
32819: END IF;
32820:
32821: -- Set API return status to success
32822: x_return_status := FND_API.G_RET_STS_SUCCESS;
32823:
32824: -- Function Security Check
32825: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
32826: (p_api_version_number => p_api_version,
32831: p_return_status => x_return_status,
32832: p_function_allowed => l_function_allowed);
32833:
32834:
32835: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32837: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32838: RAISE FND_API.G_EXC_ERROR;
32839: END IF;
32832: p_function_allowed => l_function_allowed);
32833:
32834:
32835: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32837: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32838: RAISE FND_API.G_EXC_ERROR;
32839: END IF;
32840:
32833:
32834:
32835: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32837: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32838: RAISE FND_API.G_EXC_ERROR;
32839: END IF;
32840:
32841: IF l_function_allowed = 'N' THEN
32834:
32835: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32837: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32838: RAISE FND_API.G_EXC_ERROR;
32839: END IF;
32840:
32841: IF l_function_allowed = 'N' THEN
32842: pa_interface_utils_pub.map_new_amg_msg
32849: ,p_attribute3 => ''
32850: ,p_attribute4 => ''
32851: ,p_attribute5 => '');
32852:
32853: x_return_status := FND_API.G_RET_STS_ERROR;
32854: RAISE FND_API.G_EXC_ERROR;
32855: END IF;
32856:
32857: -- validate the input parameters.
32850: ,p_attribute4 => ''
32851: ,p_attribute5 => '');
32852:
32853: x_return_status := FND_API.G_RET_STS_ERROR;
32854: RAISE FND_API.G_EXC_ERROR;
32855: END IF;
32856:
32857: -- validate the input parameters.
32858: -- Validate Project Reference / ID
32862: , p_out_project_id => l_project_id
32863: , p_return_status => x_return_status
32864: );
32865:
32866: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32868: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32869: RAISE FND_API.G_EXC_ERROR;
32870: END IF;
32863: , p_return_status => x_return_status
32864: );
32865:
32866: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32868: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32869: RAISE FND_API.G_EXC_ERROR;
32870: END IF;
32871:
32864: );
32865:
32866: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32868: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32869: RAISE FND_API.G_EXC_ERROR;
32870: END IF;
32871:
32872: -- Validate Deliverable Reference / ID
32865:
32866: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
32867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32868: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
32869: RAISE FND_API.G_EXC_ERROR;
32870: END IF;
32871:
32872: -- Validate Deliverable Reference / ID
32873: Pa_Deliverable_Utils.Convert_pm_dlvrref_to_id
32877: , p_out_deliverable_id => l_deliverable_id
32878: , p_return_status => x_return_status
32879: );
32880:
32881: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32883: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32884: RAISE FND_API.G_EXC_ERROR;
32885: END IF;
32878: , p_return_status => x_return_status
32879: );
32880:
32881: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32883: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32884: RAISE FND_API.G_EXC_ERROR;
32885: END IF;
32886:
32879: );
32880:
32881: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32883: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32884: RAISE FND_API.G_EXC_ERROR;
32885: END IF;
32886:
32887: -- Validate Task Reference / ID
32880:
32881: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32883: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32884: RAISE FND_API.G_EXC_ERROR;
32885: END IF;
32886:
32887: -- Validate Task Reference / ID
32888: IF p_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
32905: , p_pm_task_reference => p_task_reference
32906: , p_out_task_id => l_task_id
32907: , p_return_status => x_return_status );
32908:
32909: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32911: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32912: RAISE FND_API.G_EXC_ERROR;
32913: END IF;
32906: , p_out_task_id => l_task_id
32907: , p_return_status => x_return_status );
32908:
32909: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32911: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32912: RAISE FND_API.G_EXC_ERROR;
32913: END IF;
32914: END IF;
32907: , p_return_status => x_return_status );
32908:
32909: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32911: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32912: RAISE FND_API.G_EXC_ERROR;
32913: END IF;
32914: END IF;
32915:
32908:
32909: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32911: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32912: RAISE FND_API.G_EXC_ERROR;
32913: END IF;
32914: END IF;
32915:
32916:
32922:
32923: -- Calling deliverable api to Delete Association
32924: pa_deliverable_pub.DELETE_DLV_TASK_ASSOCIATION
32925: (p_api_version => p_api_version
32926: ,p_init_msg_list => FND_API.G_FALSE
32927: ,p_commit => FND_API.G_FALSE
32928: ,p_validate_only => FND_API.G_FALSE
32929: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32930: ,p_calling_module => 'AMG'
32923: -- Calling deliverable api to Delete Association
32924: pa_deliverable_pub.DELETE_DLV_TASK_ASSOCIATION
32925: (p_api_version => p_api_version
32926: ,p_init_msg_list => FND_API.G_FALSE
32927: ,p_commit => FND_API.G_FALSE
32928: ,p_validate_only => FND_API.G_FALSE
32929: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32930: ,p_calling_module => 'AMG'
32931: ,p_debug_mode => l_debug_mode
32924: pa_deliverable_pub.DELETE_DLV_TASK_ASSOCIATION
32925: (p_api_version => p_api_version
32926: ,p_init_msg_list => FND_API.G_FALSE
32927: ,p_commit => FND_API.G_FALSE
32928: ,p_validate_only => FND_API.G_FALSE
32929: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32930: ,p_calling_module => 'AMG'
32931: ,p_debug_mode => l_debug_mode
32932: ,p_max_msg_count => null
32925: (p_api_version => p_api_version
32926: ,p_init_msg_list => FND_API.G_FALSE
32927: ,p_commit => FND_API.G_FALSE
32928: ,p_validate_only => FND_API.G_FALSE
32929: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
32930: ,p_calling_module => 'AMG'
32931: ,p_debug_mode => l_debug_mode
32932: ,p_max_msg_count => null
32933: ,p_task_element_id => l_task_id
32942: ,x_msg_count => x_msg_count
32943: ,x_msg_data => x_msg_data
32944: );
32945:
32946: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32948: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32949: RAISE FND_API.G_EXC_ERROR;
32950: END IF;
32943: ,x_msg_data => x_msg_data
32944: );
32945:
32946: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32948: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32949: RAISE FND_API.G_EXC_ERROR;
32950: END IF;
32951:
32944: );
32945:
32946: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32948: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32949: RAISE FND_API.G_EXC_ERROR;
32950: END IF;
32951:
32952: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
32945:
32946: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
32947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32948: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
32949: RAISE FND_API.G_EXC_ERROR;
32950: END IF;
32951:
32952: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
32953: IF (p_commit = FND_API.G_TRUE) THEN
32949: RAISE FND_API.G_EXC_ERROR;
32950: END IF;
32951:
32952: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
32953: IF (p_commit = FND_API.G_TRUE) THEN
32954: COMMIT;
32955: END IF;
32956:
32957: IF l_debug_mode = 'Y' THEN
32959: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
32960: END IF;
32961:
32962: EXCEPTION
32963: WHEN FND_API.G_EXC_ERROR THEN
32964: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32965: --IF (p_commit = FND_API.G_TRUE) THEN
32966: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32967: --END IF;
32961:
32962: EXCEPTION
32963: WHEN FND_API.G_EXC_ERROR THEN
32964: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32965: --IF (p_commit = FND_API.G_TRUE) THEN
32966: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32967: --END IF;
32968:
32969: x_return_status := FND_API.G_RET_STS_ERROR;
32965: --IF (p_commit = FND_API.G_TRUE) THEN
32966: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32967: --END IF;
32968:
32969: x_return_status := FND_API.G_RET_STS_ERROR;
32970: l_msg_count := FND_MSG_PUB.count_msg;
32971:
32972: IF l_msg_count = 1 AND x_msg_data IS NULL
32973: THEN
32971:
32972: IF l_msg_count = 1 AND x_msg_data IS NULL
32973: THEN
32974: PA_INTERFACE_UTILS_PUB.get_messages
32975: (p_encoded => FND_API.G_FALSE,
32976: p_msg_index => 1,
32977: p_msg_count => x_msg_count,
32978: p_msg_data => l_msg_data,
32979: p_data => l_data,
32989: pa_debug.reset_curr_function;
32990: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
32991: END IF;
32992:
32993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32994: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32995: -- IF (p_commit = FND_API.G_TRUE) THEN
32996: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32997: --END IF;
32991: END IF;
32992:
32993: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
32994: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
32995: -- IF (p_commit = FND_API.G_TRUE) THEN
32996: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32997: --END IF;
32998:
32999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32995: -- IF (p_commit = FND_API.G_TRUE) THEN
32996: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
32997: --END IF;
32998:
32999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33000: l_msg_count := FND_MSG_PUB.count_msg;
33001:
33002: IF l_msg_count = 1 AND x_msg_data IS NULL
33003: THEN
33001:
33002: IF l_msg_count = 1 AND x_msg_data IS NULL
33003: THEN
33004: PA_INTERFACE_UTILS_PUB.get_messages
33005: (p_encoded => FND_API.G_FALSE,
33006: p_msg_index => 1,
33007: p_msg_count => x_msg_count,
33008: p_msg_data => l_msg_data,
33009: p_data => l_data,
33021: END IF;
33022:
33023: WHEN OTHERS THEN
33024: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33025: --IF (p_commit = FND_API.G_TRUE) THEN
33026: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
33027: --END IF;
33028:
33029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33025: --IF (p_commit = FND_API.G_TRUE) THEN
33026: ROLLBACK TO DELETE_DLV_TO_TASK_ASSCN_PUB;
33027: --END IF;
33028:
33029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33030: x_msg_count := 1;
33031: x_msg_data := SQLERRM;
33032:
33033: IF l_debug_mode = 'Y' THEN
33050: -- Assumptions : None
33051:
33052: Procedure ASSOCIATE_DLV_TO_TASK (
33053: p_api_version IN NUMBER := 1.0
33054: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33055: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
33056: ,p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
33057: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33058: -- added for bug# 3729250
33051:
33052: Procedure ASSOCIATE_DLV_TO_TASK (
33053: p_api_version IN NUMBER := 1.0
33054: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33055: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
33056: ,p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
33057: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33058: -- added for bug# 3729250
33059: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33052: Procedure ASSOCIATE_DLV_TO_TASK (
33053: p_api_version IN NUMBER := 1.0
33054: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33055: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
33056: ,p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
33057: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33058: -- added for bug# 3729250
33059: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33060: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33090:
33091: BEGIN
33092:
33093: -- Initialize the message table if requested.
33094: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33095: FND_MSG_PUB.initialize;
33096: END IF;
33097:
33098: -- 3735792, setting save point unconditionally
33095: FND_MSG_PUB.initialize;
33096: END IF;
33097:
33098: -- 3735792, setting save point unconditionally
33099: --IF (p_commit = FND_API.G_TRUE) THEN
33100: savepoint ASSOCIATE_DLV_TO_TASK_PUB;
33101: --END IF;
33102:
33103: IF p_debug_mode = 'Y' THEN
33107: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33108: END IF;
33109:
33110: -- Set API return status to success
33111: x_return_status := FND_API.G_RET_STS_SUCCESS;
33112:
33113: -- Function Security Check
33114: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
33115: (p_api_version_number => p_api_version,
33120: p_return_status => x_return_status,
33121: p_function_allowed => l_function_allowed);
33122:
33123:
33124: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33126: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33127: RAISE FND_API.G_EXC_ERROR;
33128: END IF;
33121: p_function_allowed => l_function_allowed);
33122:
33123:
33124: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33126: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33127: RAISE FND_API.G_EXC_ERROR;
33128: END IF;
33129:
33122:
33123:
33124: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33126: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33127: RAISE FND_API.G_EXC_ERROR;
33128: END IF;
33129:
33130: IF l_function_allowed = 'N' THEN
33123:
33124: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33126: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33127: RAISE FND_API.G_EXC_ERROR;
33128: END IF;
33129:
33130: IF l_function_allowed = 'N' THEN
33131: pa_interface_utils_pub.map_new_amg_msg
33138: ,p_attribute3 => ''
33139: ,p_attribute4 => ''
33140: ,p_attribute5 => '');
33141:
33142: x_return_status := FND_API.G_RET_STS_ERROR;
33143: RAISE FND_API.G_EXC_ERROR;
33144: END IF;
33145:
33146: -- validate the input parameters.
33139: ,p_attribute4 => ''
33140: ,p_attribute5 => '');
33141:
33142: x_return_status := FND_API.G_RET_STS_ERROR;
33143: RAISE FND_API.G_EXC_ERROR;
33144: END IF;
33145:
33146: -- validate the input parameters.
33147: -- Validate Project Reference / ID
33151: , p_out_project_id => l_project_id
33152: , p_return_status => x_return_status
33153: );
33154:
33155: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33157: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33158: RAISE FND_API.G_EXC_ERROR;
33159: END IF;
33152: , p_return_status => x_return_status
33153: );
33154:
33155: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33157: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33158: RAISE FND_API.G_EXC_ERROR;
33159: END IF;
33160:
33153: );
33154:
33155: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33157: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33158: RAISE FND_API.G_EXC_ERROR;
33159: END IF;
33160:
33161: -- Validate Deliverable Reference / ID
33154:
33155: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33156: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33157: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33158: RAISE FND_API.G_EXC_ERROR;
33159: END IF;
33160:
33161: -- Validate Deliverable Reference / ID
33162: Pa_Deliverable_Utils.Convert_pm_dlvrref_to_id
33166: , p_out_deliverable_id => l_deliverable_id
33167: , p_return_status => x_return_status
33168: );
33169:
33170: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33172: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33173: RAISE FND_API.G_EXC_ERROR;
33174: END IF;
33167: , p_return_status => x_return_status
33168: );
33169:
33170: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33172: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33173: RAISE FND_API.G_EXC_ERROR;
33174: END IF;
33175:
33168: );
33169:
33170: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33172: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33173: RAISE FND_API.G_EXC_ERROR;
33174: END IF;
33175:
33176: -- Validate Task Reference / ID
33169:
33170: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33172: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33173: RAISE FND_API.G_EXC_ERROR;
33174: END IF;
33175:
33176: -- Validate Task Reference / ID
33177: PA_PROJECT_PVT.Convert_pm_taskref_to_id_all (
33181: , p_pm_task_reference => p_pm_task_reference -- 3729250, earlier null was passed
33182: , p_out_task_id => l_task_id
33183: , p_return_status => x_return_status );
33184:
33185: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33187: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33188: RAISE FND_API.G_EXC_ERROR;
33189: END IF;
33182: , p_out_task_id => l_task_id
33183: , p_return_status => x_return_status );
33184:
33185: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33187: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33188: RAISE FND_API.G_EXC_ERROR;
33189: END IF;
33190:
33183: , p_return_status => x_return_status );
33184:
33185: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33187: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33188: RAISE FND_API.G_EXC_ERROR;
33189: END IF;
33190:
33191:
33184:
33185: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33187: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33188: RAISE FND_API.G_EXC_ERROR;
33189: END IF;
33190:
33191:
33192: -- 5462298 Added below code to validate passed task id
33203:
33204: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
33205: ,p_msg_name => 'PA_TASK_ID_INVALID');
33206:
33207: x_return_status := FND_API.G_RET_STS_ERROR;
33208: RAISE FND_API.G_EXC_ERROR;
33209:
33210: END IF;
33211:
33204: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
33205: ,p_msg_name => 'PA_TASK_ID_INVALID');
33206:
33207: x_return_status := FND_API.G_RET_STS_ERROR;
33208: RAISE FND_API.G_EXC_ERROR;
33209:
33210: END IF;
33211:
33212: END IF;
33218:
33219: -- Calling deliverable api to Create Association
33220: pa_deliverable_pvt.CREATE_DLV_TASK_ASSOCIATION
33221: (p_api_version => p_api_version
33222: ,p_init_msg_list => FND_API.G_FALSE
33223: ,p_commit => FND_API.G_FALSE
33224: ,p_validate_only => FND_API.G_FALSE
33225: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
33226: ,p_calling_module => 'AMG'
33219: -- Calling deliverable api to Create Association
33220: pa_deliverable_pvt.CREATE_DLV_TASK_ASSOCIATION
33221: (p_api_version => p_api_version
33222: ,p_init_msg_list => FND_API.G_FALSE
33223: ,p_commit => FND_API.G_FALSE
33224: ,p_validate_only => FND_API.G_FALSE
33225: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
33226: ,p_calling_module => 'AMG'
33227: ,p_debug_mode => p_debug_mode
33220: pa_deliverable_pvt.CREATE_DLV_TASK_ASSOCIATION
33221: (p_api_version => p_api_version
33222: ,p_init_msg_list => FND_API.G_FALSE
33223: ,p_commit => FND_API.G_FALSE
33224: ,p_validate_only => FND_API.G_FALSE
33225: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
33226: ,p_calling_module => 'AMG'
33227: ,p_debug_mode => p_debug_mode
33228: ,p_max_msg_count => null
33221: (p_api_version => p_api_version
33222: ,p_init_msg_list => FND_API.G_FALSE
33223: ,p_commit => FND_API.G_FALSE
33224: ,p_validate_only => FND_API.G_FALSE
33225: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
33226: ,p_calling_module => 'AMG'
33227: ,p_debug_mode => p_debug_mode
33228: ,p_max_msg_count => null
33229: ,p_task_element_id => l_task_id
33235: ,x_msg_count => x_msg_count
33236: ,x_msg_data => x_msg_data
33237: );
33238:
33239: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33241: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33242: RAISE FND_API.G_EXC_ERROR;
33243: END IF;
33236: ,x_msg_data => x_msg_data
33237: );
33238:
33239: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33241: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33242: RAISE FND_API.G_EXC_ERROR;
33243: END IF;
33244:
33237: );
33238:
33239: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33241: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33242: RAISE FND_API.G_EXC_ERROR;
33243: END IF;
33244:
33245: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
33238:
33239: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33241: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33242: RAISE FND_API.G_EXC_ERROR;
33243: END IF;
33244:
33245: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
33246: IF (p_commit = FND_API.G_TRUE) THEN
33242: RAISE FND_API.G_EXC_ERROR;
33243: END IF;
33244:
33245: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
33246: IF (p_commit = FND_API.G_TRUE) THEN
33247: COMMIT;
33248: END IF;
33249:
33250: IF p_debug_mode = 'Y' THEN
33252: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33253: END IF;
33254:
33255: EXCEPTION
33256: WHEN FND_API.G_EXC_ERROR THEN
33257:
33258: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33259: --IF (p_commit = FND_API.G_TRUE) THEN
33260: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33255: EXCEPTION
33256: WHEN FND_API.G_EXC_ERROR THEN
33257:
33258: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33259: --IF (p_commit = FND_API.G_TRUE) THEN
33260: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33261: --END IF;
33262:
33263: x_return_status := FND_API.G_RET_STS_ERROR;
33259: --IF (p_commit = FND_API.G_TRUE) THEN
33260: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33261: --END IF;
33262:
33263: x_return_status := FND_API.G_RET_STS_ERROR;
33264: l_msg_count := FND_MSG_PUB.count_msg;
33265:
33266: IF l_msg_count = 1 AND x_msg_data IS NULL
33267: THEN
33265:
33266: IF l_msg_count = 1 AND x_msg_data IS NULL
33267: THEN
33268: PA_INTERFACE_UTILS_PUB.get_messages
33269: (p_encoded => FND_API.G_FALSE,
33270: p_msg_index => 1,
33271: p_msg_count => x_msg_count,
33272: p_msg_data => l_msg_data,
33273: p_data => l_data,
33283: pa_debug.reset_curr_function;
33284: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33285: END IF;
33286:
33287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33288: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33289: --IF (p_commit = FND_API.G_TRUE) THEN
33290: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33291: --END IF;
33285: END IF;
33286:
33287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33288: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33289: --IF (p_commit = FND_API.G_TRUE) THEN
33290: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33291: --END IF;
33292:
33293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33289: --IF (p_commit = FND_API.G_TRUE) THEN
33290: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33291: --END IF;
33292:
33293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33294: l_msg_count := FND_MSG_PUB.count_msg;
33295:
33296: IF l_msg_count = 1 AND x_msg_data IS NULL
33297: THEN
33295:
33296: IF l_msg_count = 1 AND x_msg_data IS NULL
33297: THEN
33298: PA_INTERFACE_UTILS_PUB.get_messages
33299: (p_encoded => FND_API.G_FALSE,
33300: p_msg_index => 1,
33301: p_msg_count => x_msg_count,
33302: p_msg_data => l_msg_data,
33303: p_data => l_data,
33315: END IF;
33316:
33317: WHEN OTHERS THEN
33318: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33319: -- IF (p_commit = FND_API.G_TRUE) THEN
33320: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33321: -- END IF;
33322:
33323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33319: -- IF (p_commit = FND_API.G_TRUE) THEN
33320: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_PUB;
33321: -- END IF;
33322:
33323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33324: x_msg_count := 1;
33325: x_msg_data := SQLERRM;
33326:
33327: IF p_debug_mode = 'Y' THEN
33339: END ASSOCIATE_DLV_TO_TASK;
33340:
33341: Procedure ASSOCIATE_DLV_TO_TASK_ASSIGN (
33342: p_api_version IN NUMBER := 1.0
33343: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33344: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
33345: ,p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
33346: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33347: -- added for bug# 3729250
33340:
33341: Procedure ASSOCIATE_DLV_TO_TASK_ASSIGN (
33342: p_api_version IN NUMBER := 1.0
33343: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33344: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
33345: ,p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
33346: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33347: -- added for bug# 3729250
33348: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33341: Procedure ASSOCIATE_DLV_TO_TASK_ASSIGN (
33342: p_api_version IN NUMBER := 1.0
33343: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33344: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
33345: ,p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
33346: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33347: -- added for bug# 3729250
33348: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33349: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33377:
33378: BEGIN
33379:
33380: -- Initialize the message table if requested.
33381: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33382: FND_MSG_PUB.initialize;
33383: END IF;
33384:
33385: -- 3735792, setting save point unconditionally
33382: FND_MSG_PUB.initialize;
33383: END IF;
33384:
33385: -- 3735792, setting save point unconditionally
33386: -- IF (p_commit = FND_API.G_TRUE) THEN
33387: savepoint ASSOCIATE_DLV_TO_TASK_ASSIGN;
33388: --END IF;
33389:
33390: IF p_debug_mode = 'Y' THEN
33394: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33395: END IF;
33396:
33397: -- Set API return status to success
33398: x_return_status := FND_API.G_RET_STS_SUCCESS;
33399:
33400: -- Function Security Check
33401: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
33402: (p_api_version_number => p_api_version,
33407: p_return_status => x_return_status,
33408: p_function_allowed => l_function_allowed);
33409:
33410:
33411: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33413: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33414: RAISE FND_API.G_EXC_ERROR;
33415: END IF;
33408: p_function_allowed => l_function_allowed);
33409:
33410:
33411: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33413: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33414: RAISE FND_API.G_EXC_ERROR;
33415: END IF;
33416:
33409:
33410:
33411: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33413: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33414: RAISE FND_API.G_EXC_ERROR;
33415: END IF;
33416:
33417: IF l_function_allowed = 'N' THEN
33410:
33411: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33413: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33414: RAISE FND_API.G_EXC_ERROR;
33415: END IF;
33416:
33417: IF l_function_allowed = 'N' THEN
33418: pa_interface_utils_pub.map_new_amg_msg
33425: ,p_attribute3 => ''
33426: ,p_attribute4 => ''
33427: ,p_attribute5 => '');
33428:
33429: x_return_status := FND_API.G_RET_STS_ERROR;
33430: RAISE FND_API.G_EXC_ERROR;
33431: END IF;
33432:
33433: -- validate the input parameters.
33426: ,p_attribute4 => ''
33427: ,p_attribute5 => '');
33428:
33429: x_return_status := FND_API.G_RET_STS_ERROR;
33430: RAISE FND_API.G_EXC_ERROR;
33431: END IF;
33432:
33433: -- validate the input parameters.
33434: -- Validate Project Reference / ID
33438: , p_out_project_id => l_project_id
33439: , p_return_status => x_return_status
33440: );
33441:
33442: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33444: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33445: RAISE FND_API.G_EXC_ERROR;
33446: END IF;
33439: , p_return_status => x_return_status
33440: );
33441:
33442: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33444: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33445: RAISE FND_API.G_EXC_ERROR;
33446: END IF;
33447:
33440: );
33441:
33442: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33444: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33445: RAISE FND_API.G_EXC_ERROR;
33446: END IF;
33447:
33448: -- Validate Deliverable Reference / ID
33441:
33442: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33444: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33445: RAISE FND_API.G_EXC_ERROR;
33446: END IF;
33447:
33448: -- Validate Deliverable Reference / ID
33449: Pa_Deliverable_Utils.Convert_pm_dlvrref_to_id
33453: , p_out_deliverable_id => l_deliverable_id
33454: , p_return_status => x_return_status
33455: );
33456:
33457: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33459: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33460: RAISE FND_API.G_EXC_ERROR;
33461: END IF;
33454: , p_return_status => x_return_status
33455: );
33456:
33457: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33459: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33460: RAISE FND_API.G_EXC_ERROR;
33461: END IF;
33462:
33455: );
33456:
33457: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33459: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33460: RAISE FND_API.G_EXC_ERROR;
33461: END IF;
33462:
33463: -- Validate Task Assignment Reference / ID
33456:
33457: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33459: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33460: RAISE FND_API.G_EXC_ERROR;
33461: END IF;
33462:
33463: -- Validate Task Assignment Reference / ID
33464: IF p_task_assign_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
33486: pa_debug.write(g_pkg_name,'PA_TASK_ASSIGNMENTS_PUB.Convert_PM_TARef_To_ID ret status'||x_return_status||
33487: ']task assign ref['||l_task_assign_reference||']task assign id['||l_task_assign_id||']',3) ;
33488: END IF;
33489:
33490: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33492: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33493: RAISE FND_API.G_EXC_ERROR;
33494: END IF;
33487: ']task assign ref['||l_task_assign_reference||']task assign id['||l_task_assign_id||']',3) ;
33488: END IF;
33489:
33490: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33492: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33493: RAISE FND_API.G_EXC_ERROR;
33494: END IF;
33495:
33488: END IF;
33489:
33490: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33492: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33493: RAISE FND_API.G_EXC_ERROR;
33494: END IF;
33495:
33496: -- Derive Deliverable_version_id
33489:
33490: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33492: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33493: RAISE FND_API.G_EXC_ERROR;
33494: END IF;
33495:
33496: -- Derive Deliverable_version_id
33497: l_dlvr_version_id := Pa_Deliverable_Utils.Get_Deliverable_Version_Id (l_deliverable_id, null, l_project_id) ;
33498:
33499: -- Calling deliverable api to Create Association
33500: pa_deliverable_pvt.CREATE_DLV_TASK_ASSOCIATION
33501: (p_api_version => p_api_version
33502: ,p_init_msg_list => FND_API.G_FALSE
33503: ,p_commit => FND_API.G_FALSE
33504: ,p_validate_only => FND_API.G_FALSE
33505: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
33506: ,p_calling_module => 'AMG'
33499: -- Calling deliverable api to Create Association
33500: pa_deliverable_pvt.CREATE_DLV_TASK_ASSOCIATION
33501: (p_api_version => p_api_version
33502: ,p_init_msg_list => FND_API.G_FALSE
33503: ,p_commit => FND_API.G_FALSE
33504: ,p_validate_only => FND_API.G_FALSE
33505: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
33506: ,p_calling_module => 'AMG'
33507: ,p_calling_context => 'PA_ASSIGNMENTS'
33500: pa_deliverable_pvt.CREATE_DLV_TASK_ASSOCIATION
33501: (p_api_version => p_api_version
33502: ,p_init_msg_list => FND_API.G_FALSE
33503: ,p_commit => FND_API.G_FALSE
33504: ,p_validate_only => FND_API.G_FALSE
33505: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
33506: ,p_calling_module => 'AMG'
33507: ,p_calling_context => 'PA_ASSIGNMENTS'
33508: ,p_debug_mode => p_debug_mode
33501: (p_api_version => p_api_version
33502: ,p_init_msg_list => FND_API.G_FALSE
33503: ,p_commit => FND_API.G_FALSE
33504: ,p_validate_only => FND_API.G_FALSE
33505: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
33506: ,p_calling_module => 'AMG'
33507: ,p_calling_context => 'PA_ASSIGNMENTS'
33508: ,p_debug_mode => p_debug_mode
33509: ,p_max_msg_count => null
33516: ,x_msg_count => x_msg_count
33517: ,x_msg_data => x_msg_data
33518: );
33519:
33520: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33522: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33523: RAISE FND_API.G_EXC_ERROR;
33524: END IF;
33517: ,x_msg_data => x_msg_data
33518: );
33519:
33520: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33522: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33523: RAISE FND_API.G_EXC_ERROR;
33524: END IF;
33525:
33518: );
33519:
33520: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33522: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33523: RAISE FND_API.G_EXC_ERROR;
33524: END IF;
33525:
33526: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
33519:
33520: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33522: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33523: RAISE FND_API.G_EXC_ERROR;
33524: END IF;
33525:
33526: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
33527: IF (p_commit = FND_API.G_TRUE) THEN
33523: RAISE FND_API.G_EXC_ERROR;
33524: END IF;
33525:
33526: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
33527: IF (p_commit = FND_API.G_TRUE) THEN
33528: COMMIT;
33529: END IF;
33530:
33531: IF p_debug_mode = 'Y' THEN
33533: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33534: END IF;
33535:
33536: EXCEPTION
33537: WHEN FND_API.G_EXC_ERROR THEN
33538: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33539: -- IF (p_commit = FND_API.G_TRUE) THEN
33540: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33541: -- END IF;
33535:
33536: EXCEPTION
33537: WHEN FND_API.G_EXC_ERROR THEN
33538: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33539: -- IF (p_commit = FND_API.G_TRUE) THEN
33540: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33541: -- END IF;
33542:
33543: x_return_status := FND_API.G_RET_STS_ERROR;
33539: -- IF (p_commit = FND_API.G_TRUE) THEN
33540: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33541: -- END IF;
33542:
33543: x_return_status := FND_API.G_RET_STS_ERROR;
33544: l_msg_count := FND_MSG_PUB.count_msg;
33545:
33546: IF l_msg_count = 1 AND x_msg_data IS NULL
33547: THEN
33545:
33546: IF l_msg_count = 1 AND x_msg_data IS NULL
33547: THEN
33548: PA_INTERFACE_UTILS_PUB.get_messages
33549: (p_encoded => FND_API.G_FALSE,
33550: p_msg_index => 1,
33551: p_msg_count => x_msg_count,
33552: p_msg_data => l_msg_data,
33553: p_data => l_data,
33563: pa_debug.reset_curr_function;
33564: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33565: END IF;
33566:
33567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33568: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33569: --IF (p_commit = FND_API.G_TRUE) THEN
33570: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33571: --END IF;
33565: END IF;
33566:
33567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33568: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33569: --IF (p_commit = FND_API.G_TRUE) THEN
33570: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33571: --END IF;
33572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33573: l_msg_count := FND_MSG_PUB.count_msg;
33568: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33569: --IF (p_commit = FND_API.G_TRUE) THEN
33570: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33571: --END IF;
33572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33573: l_msg_count := FND_MSG_PUB.count_msg;
33574:
33575: IF l_msg_count = 1 AND x_msg_data IS NULL
33576: THEN
33574:
33575: IF l_msg_count = 1 AND x_msg_data IS NULL
33576: THEN
33577: PA_INTERFACE_UTILS_PUB.get_messages
33578: (p_encoded => FND_API.G_FALSE,
33579: p_msg_index => 1,
33580: p_msg_count => x_msg_count,
33581: p_msg_data => l_msg_data,
33582: p_data => l_data,
33594: END IF;
33595:
33596: WHEN OTHERS THEN
33597: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33598: --IF (p_commit = FND_API.G_TRUE) THEN
33599: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33600: --END IF;
33601:
33602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33598: --IF (p_commit = FND_API.G_TRUE) THEN
33599: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33600: --END IF;
33601:
33602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33603: x_msg_count := 1;
33604: x_msg_data := SQLERRM;
33605:
33606: IF p_debug_mode = 'Y' THEN
33619:
33620:
33621: Procedure DELETE_DLV_TO_TASK_ASSIGN (
33622: p_api_version IN NUMBER := 1.0
33623: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33624: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
33625: ,p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
33626: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33627: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33620:
33621: Procedure DELETE_DLV_TO_TASK_ASSIGN (
33622: p_api_version IN NUMBER := 1.0
33623: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33624: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
33625: ,p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
33626: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33627: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33628: -- added for bug# 3729250
33621: Procedure DELETE_DLV_TO_TASK_ASSIGN (
33622: p_api_version IN NUMBER := 1.0
33623: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33624: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
33625: ,p_debug_mode IN VARCHAR2 := FND_API.G_FALSE
33626: ,p_pm_source_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33627: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33628: -- added for bug# 3729250
33629: ,p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
33671:
33672: BEGIN
33673:
33674: -- Initialize the message table if requested.
33675: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33676: FND_MSG_PUB.initialize;
33677: END IF;
33678:
33679: -- 3735792, setting save point unconditionally
33676: FND_MSG_PUB.initialize;
33677: END IF;
33678:
33679: -- 3735792, setting save point unconditionally
33680: --IF (p_commit = FND_API.G_TRUE) THEN
33681: savepoint ASSOCIATE_DLV_TO_TASK_ASSIGN;
33682: --END IF;
33683:
33684: IF p_debug_mode = 'Y' THEN
33688: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3) ;
33689: END IF;
33690:
33691: -- Set API return status to success
33692: x_return_status := FND_API.G_RET_STS_SUCCESS;
33693:
33694: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33696: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33690:
33691: -- Set API return status to success
33692: x_return_status := FND_API.G_RET_STS_SUCCESS;
33693:
33694: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33696: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33697: RAISE FND_API.G_EXC_ERROR;
33698: END IF;
33691: -- Set API return status to success
33692: x_return_status := FND_API.G_RET_STS_SUCCESS;
33693:
33694: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33696: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33697: RAISE FND_API.G_EXC_ERROR;
33698: END IF;
33699:
33692: x_return_status := FND_API.G_RET_STS_SUCCESS;
33693:
33694: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33696: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33697: RAISE FND_API.G_EXC_ERROR;
33698: END IF;
33699:
33700: IF l_function_allowed = 'N' THEN
33693:
33694: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33696: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33697: RAISE FND_API.G_EXC_ERROR;
33698: END IF;
33699:
33700: IF l_function_allowed = 'N' THEN
33701: pa_interface_utils_pub.map_new_amg_msg
33708: ,p_attribute3 => ''
33709: ,p_attribute4 => ''
33710: ,p_attribute5 => '');
33711:
33712: x_return_status := FND_API.G_RET_STS_ERROR;
33713: RAISE FND_API.G_EXC_ERROR;
33714: END IF;
33715:
33716: -- validate the input parameters.
33709: ,p_attribute4 => ''
33710: ,p_attribute5 => '');
33711:
33712: x_return_status := FND_API.G_RET_STS_ERROR;
33713: RAISE FND_API.G_EXC_ERROR;
33714: END IF;
33715:
33716: -- validate the input parameters.
33717: -- Validate Project Reference / ID
33721: , p_out_project_id => l_project_id
33722: , p_return_status => x_return_status
33723: );
33724:
33725: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33727: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33728: RAISE FND_API.G_EXC_ERROR;
33729: END IF;
33722: , p_return_status => x_return_status
33723: );
33724:
33725: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33727: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33728: RAISE FND_API.G_EXC_ERROR;
33729: END IF;
33730:
33723: );
33724:
33725: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33727: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33728: RAISE FND_API.G_EXC_ERROR;
33729: END IF;
33730:
33731: -- Validate Task Assignment Reference / ID
33724:
33725: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33727: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
33728: RAISE FND_API.G_EXC_ERROR;
33729: END IF;
33730:
33731: -- Validate Task Assignment Reference / ID
33732: IF p_task_assign_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
33753: pa_debug.write(g_pkg_name,'PA_TASK_ASSIGNMENTS_PUB.Convert_PM_TARef_To_ID ret status'||x_return_status||
33754: ']task assign ref['||l_task_assign_reference||']task assign id['||l_task_assign_id||']',3) ;
33755: END IF;
33756:
33757: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33759: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33760: RAISE FND_API.G_EXC_ERROR;
33761: END IF;
33754: ']task assign ref['||l_task_assign_reference||']task assign id['||l_task_assign_id||']',3) ;
33755: END IF;
33756:
33757: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33759: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33760: RAISE FND_API.G_EXC_ERROR;
33761: END IF;
33762:
33755: END IF;
33756:
33757: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33759: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33760: RAISE FND_API.G_EXC_ERROR;
33761: END IF;
33762:
33763: -- 3888280 start
33756:
33757: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33759: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33760: RAISE FND_API.G_EXC_ERROR;
33761: END IF;
33762:
33763: -- 3888280 start
33764: -- Added code to validate Deliverable Reference and Id
33771: , p_out_deliverable_id => l_deliverable_id
33772: , p_return_status => x_return_status
33773: );
33774:
33775: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33777: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33778: RAISE FND_API.G_EXC_ERROR;
33779: END IF;
33772: , p_return_status => x_return_status
33773: );
33774:
33775: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33777: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33778: RAISE FND_API.G_EXC_ERROR;
33779: END IF;
33780:
33773: );
33774:
33775: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33777: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33778: RAISE FND_API.G_EXC_ERROR;
33779: END IF;
33780:
33781: -- Addec code to retrieve object_relationship_id for a TA to a DLVR relationship
33774:
33775: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33777: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
33778: RAISE FND_API.G_EXC_ERROR;
33779: END IF;
33780:
33781: -- Addec code to retrieve object_relationship_id for a TA to a DLVR relationship
33782: -- passing this retrieved id to DELETE_DLV_TASK_ASSOCIATION api
33828:
33829: -- 3888280 end
33830:
33831: -- 3735792, if return status is 'S' and p_commit is passed as TRUE call commit
33832: IF (p_commit = FND_API.G_TRUE) THEN
33833: COMMIT;
33834: END IF;
33835:
33836: IF p_debug_mode = 'Y' THEN
33838: pa_debug.write(g_pkg_name,l_api_name||': Exiting succesfully',5);
33839: END IF;
33840:
33841: EXCEPTION
33842: WHEN FND_API.G_EXC_ERROR THEN
33843: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33844: --IF (p_commit = FND_API.G_TRUE) THEN
33845: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33846: --END IF;
33840:
33841: EXCEPTION
33842: WHEN FND_API.G_EXC_ERROR THEN
33843: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33844: --IF (p_commit = FND_API.G_TRUE) THEN
33845: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33846: --END IF;
33847:
33848: x_return_status := FND_API.G_RET_STS_ERROR;
33844: --IF (p_commit = FND_API.G_TRUE) THEN
33845: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33846: --END IF;
33847:
33848: x_return_status := FND_API.G_RET_STS_ERROR;
33849: l_msg_count := FND_MSG_PUB.count_msg;
33850:
33851: IF l_msg_count = 1 AND x_msg_data IS NULL
33852: THEN
33850:
33851: IF l_msg_count = 1 AND x_msg_data IS NULL
33852: THEN
33853: PA_INTERFACE_UTILS_PUB.get_messages
33854: (p_encoded => FND_API.G_FALSE,
33855: p_msg_index => 1,
33856: p_msg_count => x_msg_count,
33857: p_msg_data => l_msg_data,
33858: p_data => l_data,
33868: pa_debug.reset_curr_function;
33869: pa_debug.write(g_pkg_name,l_api_name||': Inside G_EXC_ERROR exception',5);
33870: END IF;
33871:
33872: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33873: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33874: --IF (p_commit = FND_API.G_TRUE) THEN
33875: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33876: --END IF;
33870: END IF;
33871:
33872: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
33873: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33874: --IF (p_commit = FND_API.G_TRUE) THEN
33875: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33876: --END IF;
33877:
33878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33874: --IF (p_commit = FND_API.G_TRUE) THEN
33875: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33876: --END IF;
33877:
33878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33879: l_msg_count := FND_MSG_PUB.count_msg;
33880:
33881: IF l_msg_count = 1 AND x_msg_data IS NULL
33882: THEN
33880:
33881: IF l_msg_count = 1 AND x_msg_data IS NULL
33882: THEN
33883: PA_INTERFACE_UTILS_PUB.get_messages
33884: (p_encoded => FND_API.G_FALSE,
33885: p_msg_index => 1,
33886: p_msg_count => x_msg_count,
33887: p_msg_data => l_msg_data,
33888: p_data => l_data,
33900: END IF;
33901:
33902: WHEN OTHERS THEN
33903: -- 3735792, if return status is 'U' or 'E' , rollback to save point , don't check for p_commit
33904: --IF (p_commit = FND_API.G_TRUE) THEN
33905: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33906: --END IF;
33907:
33908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33904: --IF (p_commit = FND_API.G_TRUE) THEN
33905: ROLLBACK TO ASSOCIATE_DLV_TO_TASK_ASSIGN;
33906: --END IF;
33907:
33908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33909: x_msg_count := 1;
33910: x_msg_data := SQLERRM;
33911:
33912: IF p_debug_mode = 'Y' THEN
33927: --Added by rtarway for FP.M Development
33928: PROCEDURE Delete_Mapping
33929: (
33930: p_api_version IN NUMBER := 1.0
33931: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33932: , p_commit IN VARCHAR2 := FND_API.G_TRUE
33933: , p_debug_mode IN VARCHAR2 := 'N'
33934: , p_wp_task_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33935: , p_fp_task_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33928: PROCEDURE Delete_Mapping
33929: (
33930: p_api_version IN NUMBER := 1.0
33931: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
33932: , p_commit IN VARCHAR2 := FND_API.G_TRUE
33933: , p_debug_mode IN VARCHAR2 := 'N'
33934: , p_wp_task_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33935: , p_fp_task_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33936: , p_wp_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
33974:
33975: BEGIN
33976:
33977: -- 4537865
33978: x_return_status := FND_API.G_RET_STS_SUCCESS;
33979:
33980: -- Initialize the message table if requested.
33981: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33982: FND_MSG_PUB.initialize;
33977: -- 4537865
33978: x_return_status := FND_API.G_RET_STS_SUCCESS;
33979:
33980: -- Initialize the message table if requested.
33981: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
33982: FND_MSG_PUB.initialize;
33983: END IF;
33984:
33985: -- Bug 4142254 : Commenting this condition, as we want to create savepoint always.
33984:
33985: -- Bug 4142254 : Commenting this condition, as we want to create savepoint always.
33986: -- We could have done other way around too i.e. Savepoint and rollback shoud both be in
33987: -- conditions. But we prefer removing conditions due to bug 3735792
33988: -- IF (p_commit = FND_API.G_TRUE) THEN
33989: savepoint DELETE_MAPPING_PUB;
33990: -- END IF;
33991:
33992: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34047: , p_out_project_id => l_project_id
34048: , p_return_status => x_return_status
34049: );
34050:
34051: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34053: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34054: RAISE FND_API.G_EXC_ERROR;
34055: END IF;
34048: , p_return_status => x_return_status
34049: );
34050:
34051: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34053: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34054: RAISE FND_API.G_EXC_ERROR;
34055: END IF;
34056: ELSE
34049: );
34050:
34051: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34053: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34054: RAISE FND_API.G_EXC_ERROR;
34055: END IF;
34056: ELSE
34057: l_project_id := p_project_id;
34050:
34051: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34053: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34054: RAISE FND_API.G_EXC_ERROR;
34055: END IF;
34056: ELSE
34057: l_project_id := p_project_id;
34058: END IF;
34076: ,p_out_task_id => l_wp_task_id
34077: ,p_return_status => l_return_status);
34078:
34079: x_return_status := l_return_status;
34080: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
34083: RAISE FND_API.G_EXC_ERROR;
34084: END IF;
34077: ,p_return_status => l_return_status);
34078:
34079: x_return_status := l_return_status;
34080: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
34083: RAISE FND_API.G_EXC_ERROR;
34084: END IF;
34085:
34078:
34079: x_return_status := l_return_status;
34080: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
34083: RAISE FND_API.G_EXC_ERROR;
34084: END IF;
34085:
34086: ELSE
34079: x_return_status := l_return_status;
34080: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
34083: RAISE FND_API.G_EXC_ERROR;
34084: END IF;
34085:
34086: ELSE
34087: l_wp_task_id := p_wp_task_id;
34100: ,p_pm_task_reference => p_pm_fp_task_reference
34101: ,p_out_task_id => l_fp_task_id
34102: ,p_return_status => l_return_status);
34103: x_return_status := l_return_status;
34104: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34106: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
34107: RAISE FND_API.G_EXC_ERROR;
34108: END IF;
34101: ,p_out_task_id => l_fp_task_id
34102: ,p_return_status => l_return_status);
34103: x_return_status := l_return_status;
34104: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34106: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
34107: RAISE FND_API.G_EXC_ERROR;
34108: END IF;
34109: ELSE
34102: ,p_return_status => l_return_status);
34103: x_return_status := l_return_status;
34104: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34106: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
34107: RAISE FND_API.G_EXC_ERROR;
34108: END IF;
34109: ELSE
34110: l_fp_task_id := p_fp_task_id;
34103: x_return_status := l_return_status;
34104: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34106: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
34107: RAISE FND_API.G_EXC_ERROR;
34108: END IF;
34109: ELSE
34110: l_fp_task_id := p_fp_task_id;
34111: END IF;
34152: --Calling Delete Mapping
34153: PA_PROJ_STRUC_MAPPING_PUB.DELETE_MAPPING
34154: (
34155: p_api_version => p_api_version
34156: , p_init_msg_list => FND_API.G_FALSE
34157: , p_commit => FND_API.G_FALSE--bug 3766967
34158: , p_debug_mode => p_debug_mode
34159: , p_wp_task_version_id => l_wp_task_version_id
34160: , p_fp_task_version_id => l_fp_task_version_id
34153: PA_PROJ_STRUC_MAPPING_PUB.DELETE_MAPPING
34154: (
34155: p_api_version => p_api_version
34156: , p_init_msg_list => FND_API.G_FALSE
34157: , p_commit => FND_API.G_FALSE--bug 3766967
34158: , p_debug_mode => p_debug_mode
34159: , p_wp_task_version_id => l_wp_task_version_id
34160: , p_fp_task_version_id => l_fp_task_version_id
34161: , p_calling_module => 'AMG' -- Bug 4142254
34170: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.DELETE_MAPPING:'||x_return_status;
34171: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34172: END IF;
34173:
34174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34176: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34177: RAISE FND_API.G_EXC_ERROR;
34178: END IF;
34171: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34172: END IF;
34173:
34174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34176: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34177: RAISE FND_API.G_EXC_ERROR;
34178: END IF;
34179:
34172: END IF;
34173:
34174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34176: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34177: RAISE FND_API.G_EXC_ERROR;
34178: END IF;
34179:
34180: EXCEPTION
34173:
34174: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34176: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34177: RAISE FND_API.G_EXC_ERROR;
34178: END IF;
34179:
34180: EXCEPTION
34181: WHEN FND_API.G_EXC_ERROR THEN
34177: RAISE FND_API.G_EXC_ERROR;
34178: END IF;
34179:
34180: EXCEPTION
34181: WHEN FND_API.G_EXC_ERROR THEN
34182: ROLLBACK TO DELETE_MAPPING_PUB;
34183: x_return_status := FND_API.G_RET_STS_ERROR;
34184:
34185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34179:
34180: EXCEPTION
34181: WHEN FND_API.G_EXC_ERROR THEN
34182: ROLLBACK TO DELETE_MAPPING_PUB;
34183: x_return_status := FND_API.G_RET_STS_ERROR;
34184:
34185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34186: ROLLBACK TO DELETE_MAPPING_PUB;
34187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34181: WHEN FND_API.G_EXC_ERROR THEN
34182: ROLLBACK TO DELETE_MAPPING_PUB;
34183: x_return_status := FND_API.G_RET_STS_ERROR;
34184:
34185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34186: ROLLBACK TO DELETE_MAPPING_PUB;
34187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34188:
34189: WHEN OTHERS THEN
34183: x_return_status := FND_API.G_RET_STS_ERROR;
34184:
34185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34186: ROLLBACK TO DELETE_MAPPING_PUB;
34187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34188:
34189: WHEN OTHERS THEN
34190: ROLLBACK TO DELETE_MAPPING_PUB;
34191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34188:
34189: WHEN OTHERS THEN
34190: ROLLBACK TO DELETE_MAPPING_PUB;
34191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34192:
34193: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34194: FND_MSG_PUB.add_exc_msg
34195: ( p_pkg_name => G_PKG_NAME
34214: --
34215:
34216: PROCEDURE create_mapping
34217: ( p_api_version IN NUMBER := 1.0
34218: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
34219: , p_commit IN VARCHAR2 := FND_API.G_TRUE
34220: , p_debug_mode IN VARCHAR2 := 'N'
34221: , px_mapped_task_id IN NUMBER
34222: , p_mapped_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
34215:
34216: PROCEDURE create_mapping
34217: ( p_api_version IN NUMBER := 1.0
34218: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
34219: , p_commit IN VARCHAR2 := FND_API.G_TRUE
34220: , p_debug_mode IN VARCHAR2 := 'N'
34221: , px_mapped_task_id IN NUMBER
34222: , p_mapped_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
34223: , p_mapped_task_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
34265: and financial_task_flag = 'Y';
34266:
34267: BEGIN
34268: -- Initialize the message table if requested.
34269: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34270: FND_MSG_PUB.initialize;
34271: END IF;
34272:
34273: IF (p_commit = FND_API.G_TRUE) THEN
34269: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34270: FND_MSG_PUB.initialize;
34271: END IF;
34272:
34273: IF (p_commit = FND_API.G_TRUE) THEN
34274: savepoint CREATE_MAPPING_PUB;
34275: END IF;
34276:
34277: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34315: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
34316: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34317: l_debug_level3);
34318: END IF;
34319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34320: END IF;
34321:
34322: IF (
34323: ( px_mapped_task_id IS NULL OR px_mapped_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
34329: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving financial task version id should be passed';
34330: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34331: l_debug_level3);
34332: END IF;
34333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34334: END IF;
34335:
34336: IF (
34337: (p_wkp_task_id IS NULL OR p_wkp_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND
34343: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving workplan task version id should be passed';
34344: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34345: l_debug_level3);
34346: END IF;
34347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34348: END IF;
34349:
34350:
34351: -- Set API return status to success
34348: END IF;
34349:
34350:
34351: -- Set API return status to success
34352: x_return_status := FND_API.G_RET_STS_SUCCESS;
34353:
34354: IF p_wkp_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
34355: l_wkp_task_id := NULL;
34356: ELSE
34411: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Project ID:'||l_project_id;
34412: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34413: END IF;
34414:
34415: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34417: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34418: RAISE FND_API.G_EXC_ERROR;
34419: END IF;
34412: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34413: END IF;
34414:
34415: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34417: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34418: RAISE FND_API.G_EXC_ERROR;
34419: END IF;
34420:
34413: END IF;
34414:
34415: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34417: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34418: RAISE FND_API.G_EXC_ERROR;
34419: END IF;
34420:
34421: --Get the Wkp Task ID using Wkp Task Reference
34414:
34415: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34417: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34418: RAISE FND_API.G_EXC_ERROR;
34419: END IF;
34420:
34421: --Get the Wkp Task ID using Wkp Task Reference
34422: IF (
34436: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
34437: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34438: END IF;
34439:
34440: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34442: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34443: RAISE FND_API.G_EXC_ERROR;
34444: END IF;
34437: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34438: END IF;
34439:
34440: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34442: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34443: RAISE FND_API.G_EXC_ERROR;
34444: END IF;
34445: END IF;
34438: END IF;
34439:
34440: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34442: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34443: RAISE FND_API.G_EXC_ERROR;
34444: END IF;
34445: END IF;
34446:
34439:
34440: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34442: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34443: RAISE FND_API.G_EXC_ERROR;
34444: END IF;
34445: END IF;
34446:
34447: -- Get the mapped task Id based in mapped_task_reference
34461: IF p_debug_mode = 'Y' THEN
34462: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34463: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34464: END IF;
34465: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34467: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34468: RAISE FND_API.G_EXC_ERROR;
34469: END IF;
34462: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34463: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34464: END IF;
34465: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34467: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34468: RAISE FND_API.G_EXC_ERROR;
34469: END IF;
34470: END IF;
34463: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34464: END IF;
34465: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34467: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34468: RAISE FND_API.G_EXC_ERROR;
34469: END IF;
34470: END IF;
34471: --Get the task version id from Wkp task Id
34464: END IF;
34465: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34467: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34468: RAISE FND_API.G_EXC_ERROR;
34469: END IF;
34470: END IF;
34471: --Get the task version id from Wkp task Id
34472: -- Avoid this call if wkp task name and wkp task version ids are passed
34504:
34505: PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING
34506: (
34507: p_api_version => p_api_version
34508: , p_init_msg_list => FND_API.G_FALSE
34509: , p_calling_module => 'AMG'
34510: , p_commit => FND_API.G_FALSE--bug 3766967
34511: , p_debug_mode => p_debug_mode
34512: , p_wp_task_name => l_wkp_task_name
34506: (
34507: p_api_version => p_api_version
34508: , p_init_msg_list => FND_API.G_FALSE
34509: , p_calling_module => 'AMG'
34510: , p_commit => FND_API.G_FALSE--bug 3766967
34511: , p_debug_mode => p_debug_mode
34512: , p_wp_task_name => l_wkp_task_name
34513: , p_wp_task_version_id => l_wkp_task_version_id
34514: , p_parent_str_version_id => l_wkp_structure_version_id
34526: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:'||x_return_status;
34527: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34528: END IF;
34529:
34530: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34532: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34533: RAISE FND_API.G_EXC_ERROR;
34534: END IF;
34527: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34528: END IF;
34529:
34530: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34532: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34533: RAISE FND_API.G_EXC_ERROR;
34534: END IF;
34535:
34528: END IF;
34529:
34530: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34532: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34533: RAISE FND_API.G_EXC_ERROR;
34534: END IF;
34535:
34536: EXCEPTION
34529:
34530: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34532: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34533: RAISE FND_API.G_EXC_ERROR;
34534: END IF;
34535:
34536: EXCEPTION
34537: WHEN FND_API.G_EXC_ERROR THEN
34533: RAISE FND_API.G_EXC_ERROR;
34534: END IF;
34535:
34536: EXCEPTION
34537: WHEN FND_API.G_EXC_ERROR THEN
34538: IF (p_commit = FND_API.G_TRUE) THEN
34539: ROLLBACK TO CREATE_MAPPING_PUB;
34540: END IF;
34541: x_return_status := FND_API.G_RET_STS_ERROR;
34534: END IF;
34535:
34536: EXCEPTION
34537: WHEN FND_API.G_EXC_ERROR THEN
34538: IF (p_commit = FND_API.G_TRUE) THEN
34539: ROLLBACK TO CREATE_MAPPING_PUB;
34540: END IF;
34541: x_return_status := FND_API.G_RET_STS_ERROR;
34542:
34537: WHEN FND_API.G_EXC_ERROR THEN
34538: IF (p_commit = FND_API.G_TRUE) THEN
34539: ROLLBACK TO CREATE_MAPPING_PUB;
34540: END IF;
34541: x_return_status := FND_API.G_RET_STS_ERROR;
34542:
34543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34544: IF (p_commit = FND_API.G_TRUE) THEN
34545: ROLLBACK TO CREATE_MAPPING_PUB;
34539: ROLLBACK TO CREATE_MAPPING_PUB;
34540: END IF;
34541: x_return_status := FND_API.G_RET_STS_ERROR;
34542:
34543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34544: IF (p_commit = FND_API.G_TRUE) THEN
34545: ROLLBACK TO CREATE_MAPPING_PUB;
34546: END IF;
34547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34540: END IF;
34541: x_return_status := FND_API.G_RET_STS_ERROR;
34542:
34543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34544: IF (p_commit = FND_API.G_TRUE) THEN
34545: ROLLBACK TO CREATE_MAPPING_PUB;
34546: END IF;
34547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34548:
34543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34544: IF (p_commit = FND_API.G_TRUE) THEN
34545: ROLLBACK TO CREATE_MAPPING_PUB;
34546: END IF;
34547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34548:
34549: WHEN OTHERS THEN
34550: IF (p_commit = FND_API.G_TRUE) THEN
34551: ROLLBACK TO CREATE_MAPPING_PUB;
34546: END IF;
34547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34548:
34549: WHEN OTHERS THEN
34550: IF (p_commit = FND_API.G_TRUE) THEN
34551: ROLLBACK TO CREATE_MAPPING_PUB;
34552: END IF;
34553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34554:
34549: WHEN OTHERS THEN
34550: IF (p_commit = FND_API.G_TRUE) THEN
34551: ROLLBACK TO CREATE_MAPPING_PUB;
34552: END IF;
34553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34554:
34555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
34556: FND_MSG_PUB.add_exc_msg
34557: ( p_pkg_name => G_PKG_NAME
34575: --
34576:
34577: PROCEDURE update_mapping
34578: ( p_api_version IN NUMBER := 1.0
34579: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
34580: , p_commit IN VARCHAR2 := FND_API.G_TRUE
34581: , p_debug_mode IN VARCHAR2 := 'N'
34582: , px_mapped_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
34583: , p_mapped_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
34576:
34577: PROCEDURE update_mapping
34578: ( p_api_version IN NUMBER := 1.0
34579: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
34580: , p_commit IN VARCHAR2 := FND_API.G_TRUE
34581: , p_debug_mode IN VARCHAR2 := 'N'
34582: , px_mapped_task_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
34583: , p_mapped_task_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
34584: , p_mapped_task_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
34627: and financial_task_flag = 'Y';
34628:
34629: BEGIN
34630: -- Initialize the message table if requested.
34631: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34632: FND_MSG_PUB.initialize;
34633: END IF;
34634:
34635: IF (p_commit = FND_API.G_TRUE) THEN
34631: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34632: FND_MSG_PUB.initialize;
34633: END IF;
34634:
34635: IF (p_commit = FND_API.G_TRUE) THEN
34636: savepoint UPDATE_MAPPING_PUB;
34637: END IF;
34638:
34639: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
34677: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
34678: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34679: l_debug_level3);
34680: END IF;
34681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34682: END IF;
34683:
34684:
34685: IF (
34694: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving workplan task version id should be passed';
34695: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34696: l_debug_level3);
34697: END IF;
34698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34699: END IF;
34700:
34701:
34702: -- Set API return status to success
34699: END IF;
34700:
34701:
34702: -- Set API return status to success
34703: x_return_status := FND_API.G_RET_STS_SUCCESS;
34704:
34705: IF p_wkp_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
34706: l_wkp_task_id := NULL;
34707: ELSE
34762: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Project ID:'||l_project_id;
34763: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34764: END IF;
34765:
34766: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34768: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34769: RAISE FND_API.G_EXC_ERROR;
34770: END IF;
34763: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34764: END IF;
34765:
34766: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34768: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34769: RAISE FND_API.G_EXC_ERROR;
34770: END IF;
34771: --Get the Wkp Task ID using Wkp Task Reference
34764: END IF;
34765:
34766: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34768: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34769: RAISE FND_API.G_EXC_ERROR;
34770: END IF;
34771: --Get the Wkp Task ID using Wkp Task Reference
34772: IF ( l_wkp_task_id IS NULL
34765:
34766: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34768: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34769: RAISE FND_API.G_EXC_ERROR;
34770: END IF;
34771: --Get the Wkp Task ID using Wkp Task Reference
34772: IF ( l_wkp_task_id IS NULL
34773: AND
34785: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
34786: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34787: END IF;
34788:
34789: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34791: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34792: RAISE FND_API.G_EXC_ERROR;
34793: END IF;
34786: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34787: END IF;
34788:
34789: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34791: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34792: RAISE FND_API.G_EXC_ERROR;
34793: END IF;
34794: END IF;
34787: END IF;
34788:
34789: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34791: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34792: RAISE FND_API.G_EXC_ERROR;
34793: END IF;
34794: END IF;
34795:
34788:
34789: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34790: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34791: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34792: RAISE FND_API.G_EXC_ERROR;
34793: END IF;
34794: END IF;
34795:
34796: -- Get the mapped task Id based in mapped_task_reference
34809: IF p_debug_mode = 'Y' THEN
34810: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34811: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34812: END IF;
34813: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34815: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34816: RAISE FND_API.G_EXC_ERROR;
34817: END IF;
34810: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34811: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34812: END IF;
34813: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34815: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34816: RAISE FND_API.G_EXC_ERROR;
34817: END IF;
34818: END IF;
34811: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34812: END IF;
34813: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34815: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34816: RAISE FND_API.G_EXC_ERROR;
34817: END IF;
34818: END IF;
34819:
34812: END IF;
34813: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34814: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34815: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
34816: RAISE FND_API.G_EXC_ERROR;
34817: END IF;
34818: END IF;
34819:
34820: --Get the task version id from Wkp task Id
34852: PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING
34853: (
34854: p_api_version => p_api_version
34855: , p_calling_module => 'AMG'
34856: , p_init_msg_list => FND_API.G_FALSE
34857: , p_commit => FND_API.G_FALSE--bug 3766967
34858: , p_debug_mode => p_debug_mode
34859: , p_project_id => l_project_id
34860: , p_wp_task_name => l_wkp_task_name
34853: (
34854: p_api_version => p_api_version
34855: , p_calling_module => 'AMG'
34856: , p_init_msg_list => FND_API.G_FALSE
34857: , p_commit => FND_API.G_FALSE--bug 3766967
34858: , p_debug_mode => p_debug_mode
34859: , p_project_id => l_project_id
34860: , p_wp_task_name => l_wkp_task_name
34861: , p_wp_prnt_str_ver_id => l_wkp_structure_version_id
34880: pa_debug.reset_curr_function;
34881: pa_debug.write(g_pkg_name, l_api_name || ': Exiting succesfully', 5);
34882: END IF;
34883:
34884: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34886: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34887: RAISE FND_API.G_EXC_ERROR;
34888: END IF;
34881: pa_debug.write(g_pkg_name, l_api_name || ': Exiting succesfully', 5);
34882: END IF;
34883:
34884: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34886: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34887: RAISE FND_API.G_EXC_ERROR;
34888: END IF;
34889:
34882: END IF;
34883:
34884: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34886: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34887: RAISE FND_API.G_EXC_ERROR;
34888: END IF;
34889:
34890: EXCEPTION
34883:
34884: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34886: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
34887: RAISE FND_API.G_EXC_ERROR;
34888: END IF;
34889:
34890: EXCEPTION
34891: WHEN FND_API.G_EXC_ERROR THEN
34887: RAISE FND_API.G_EXC_ERROR;
34888: END IF;
34889:
34890: EXCEPTION
34891: WHEN FND_API.G_EXC_ERROR THEN
34892: IF (p_commit = FND_API.G_TRUE) THEN
34893: ROLLBACK TO UPDATE_MAPPING_PUB;
34894: END IF;
34895: x_return_status := FND_API.G_RET_STS_ERROR;
34888: END IF;
34889:
34890: EXCEPTION
34891: WHEN FND_API.G_EXC_ERROR THEN
34892: IF (p_commit = FND_API.G_TRUE) THEN
34893: ROLLBACK TO UPDATE_MAPPING_PUB;
34894: END IF;
34895: x_return_status := FND_API.G_RET_STS_ERROR;
34896: -- Bug 10053423
34891: WHEN FND_API.G_EXC_ERROR THEN
34892: IF (p_commit = FND_API.G_TRUE) THEN
34893: ROLLBACK TO UPDATE_MAPPING_PUB;
34894: END IF;
34895: x_return_status := FND_API.G_RET_STS_ERROR;
34896: -- Bug 10053423
34897: IF l_debug_mode = 'Y' THEN
34898: pa_debug.reset_curr_function;
34899: pa_debug.write(g_pkg_name, l_api_name || ': Inside G_EXC_ERROR exception', 5);
34898: pa_debug.reset_curr_function;
34899: pa_debug.write(g_pkg_name, l_api_name || ': Inside G_EXC_ERROR exception', 5);
34900: END IF;
34901:
34902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34903: IF (p_commit = FND_API.G_TRUE) THEN
34904: ROLLBACK TO UPDATE_MAPPING_PUB;
34905: END IF;
34906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34899: pa_debug.write(g_pkg_name, l_api_name || ': Inside G_EXC_ERROR exception', 5);
34900: END IF;
34901:
34902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34903: IF (p_commit = FND_API.G_TRUE) THEN
34904: ROLLBACK TO UPDATE_MAPPING_PUB;
34905: END IF;
34906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34907: -- Bug 10053423
34902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34903: IF (p_commit = FND_API.G_TRUE) THEN
34904: ROLLBACK TO UPDATE_MAPPING_PUB;
34905: END IF;
34906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34907: -- Bug 10053423
34908: IF l_debug_mode = 'Y' THEN
34909: pa_debug.reset_curr_function;
34910: pa_debug.write(g_pkg_name, l_api_name || ': Inside G_EXC_UNEXPECTED_ERROR exception', 5);
34910: pa_debug.write(g_pkg_name, l_api_name || ': Inside G_EXC_UNEXPECTED_ERROR exception', 5);
34911: END IF;
34912:
34913: WHEN OTHERS THEN
34914: IF (p_commit = FND_API.G_TRUE) THEN
34915: ROLLBACK TO UPDATE_MAPPING_PUB;
34916: END IF;
34917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34918: -- Bug 10053423
34913: WHEN OTHERS THEN
34914: IF (p_commit = FND_API.G_TRUE) THEN
34915: ROLLBACK TO UPDATE_MAPPING_PUB;
34916: END IF;
34917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
34918: -- Bug 10053423
34919: IF l_debug_mode = 'Y' THEN
34920: pa_debug.reset_curr_function;
34921: pa_debug.write(g_pkg_name, l_api_name || ': Inside OTHERS exception', 5);
34936: --
34937:
34938: PROCEDURE process_tasks_table
34939: ( p_api_version IN NUMBER := 1.0
34940: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
34941: , p_debug_mode IN VARCHAR2 := 'N'
34942: , p_structure_type IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
34943: , p_tasks_in_tbl IN OUT NOCOPY task_in_tbl_type /*Added the nocopy check for 4537865 */
34944: -- , p_tasks_out_tbl OUT task_in_tbl_type
34968: l_debug_level5 CONSTANT NUMBER := 5;
34969:
34970: BEGIN
34971: --Initialize the message table if requested.
34972: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
34973: FND_MSG_PUB.initialize;
34974: END IF;
34975:
34976: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
35004: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : At least one of the parameters for deriving Project id should be passed';
35005: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
35006: l_debug_level3);
35007: END IF;
35008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35009: END IF;
35010:
35011: IF ( p_tasks_in_tbl IS NULL OR p_tasks_in_tbl.count <= 0 )
35012: THEN
35014: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Empty or NULL Task Table';
35015: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
35016: l_debug_level3);
35017: END IF;
35018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35019: END IF;
35020:
35021:
35022:
35020:
35021:
35022:
35023: -- Set API return status to success
35024: x_return_status := FND_API.G_RET_STS_SUCCESS;
35025:
35026:
35027: -- Get the task and Project details based on source reference passed
35028: IF (p_project_id IS NULL AND p_proj_source_reference IS NOT NULL ) THEN
35038: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'PROCESS_TASK_TABLE'||'Project ID:'||l_project_id;
35039: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
35040: END IF;
35041:
35042: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35044: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
35045: RAISE FND_API.G_EXC_ERROR;
35046: END IF;
35039: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
35040: END IF;
35041:
35042: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35044: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
35045: RAISE FND_API.G_EXC_ERROR;
35046: END IF;
35047: -- Get the project sharing type
35040: END IF;
35041:
35042: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35044: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
35045: RAISE FND_API.G_EXC_ERROR;
35046: END IF;
35047: -- Get the project sharing type
35048: l_proj_share_type := PA_PROJ_TASK_STRUC_PUB.GET_SHARE_TYPE(l_project_id);
35041:
35042: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35044: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
35045: RAISE FND_API.G_EXC_ERROR;
35046: END IF;
35047: -- Get the project sharing type
35048: l_proj_share_type := PA_PROJ_TASK_STRUC_PUB.GET_SHARE_TYPE(l_project_id);
35049: IF (l_proj_share_type = 'SHARE_PARTIAL' and p_structure_type = 'FINANCIAL')
35085:
35086: END IF;
35087:
35088: EXCEPTION
35089: WHEN FND_API.G_EXC_ERROR THEN
35090:
35091: x_return_status := FND_API.G_RET_STS_ERROR;
35092:
35093: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35087:
35088: EXCEPTION
35089: WHEN FND_API.G_EXC_ERROR THEN
35090:
35091: x_return_status := FND_API.G_RET_STS_ERROR;
35092:
35093: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35094:
35095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35089: WHEN FND_API.G_EXC_ERROR THEN
35090:
35091: x_return_status := FND_API.G_RET_STS_ERROR;
35092:
35093: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35094:
35095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35096:
35097: WHEN OTHERS THEN
35091: x_return_status := FND_API.G_RET_STS_ERROR;
35092:
35093: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35094:
35095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35096:
35097: WHEN OTHERS THEN
35098:
35099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35096:
35097: WHEN OTHERS THEN
35098:
35099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35100:
35101: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35102: FND_MSG_PUB.add_exc_msg
35103: ( p_pkg_name => G_PKG_NAME
35109: --added by hsiu
35110: --
35111: PROCEDURE Create_Dependency(
35112: p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
35113: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35114: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
35115: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
35116: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35117: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35110: --
35111: PROCEDURE Create_Dependency(
35112: p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
35113: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35114: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
35115: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
35116: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35117: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35118: ,p_pm_product_code IN VARCHAR2
35173: and element_version_id = c_structure_version_id;
35174: BEGIN
35175: savepoint create_dep_pub_amg;
35176:
35177: IF FND_API.TO_BOOLEAN( p_init_msg_list )
35178: THEN
35179: FND_MSG_PUB.Initialize;
35180: END IF;
35181:
35186: , p_out_project_id => l_project_id
35187: , p_return_status => l_return_status
35188: );
35189:
35190: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35192: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35193: RAISE FND_API.G_EXC_ERROR;
35194: END IF;
35187: , p_return_status => l_return_status
35188: );
35189:
35190: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35192: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35193: RAISE FND_API.G_EXC_ERROR;
35194: END IF;
35195: --
35188: );
35189:
35190: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35192: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35193: RAISE FND_API.G_EXC_ERROR;
35194: END IF;
35195: --
35196: --Bug 3768875
35189:
35190: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35191: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35192: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35193: RAISE FND_API.G_EXC_ERROR;
35194: END IF;
35195: --
35196: --Bug 3768875
35197: If PA_PROJECT_STRUCTURE_UTILS.Check_Project_exists(l_project_id) = 'Y' Then
35197: If PA_PROJECT_STRUCTURE_UTILS.Check_Project_exists(l_project_id) = 'Y' Then
35198: If PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Ver_Exists(l_project_id,p_structure_version_id) <> 'Y' THEN
35199: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35200: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
35201: RAISE FND_API.G_EXC_ERROR;
35202: End If;
35203: Else
35204: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35205: p_msg_name => 'PA_INV_PROJECT_ID');
35202: End If;
35203: Else
35204: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35205: p_msg_name => 'PA_INV_PROJECT_ID');
35206: RAISE FND_API.G_EXC_ERROR;
35207: End If;
35208: --
35209: --check if structure version can be modified
35210: OPEN get_template_flag(l_project_id);
35224: CLOSE get_workplan_status;
35225: IF l_wp_status <> 'STRUCTURE_WORKING' THEN
35226: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35227: p_msg_name => 'PA_UPDATE_PUB_VER_ERR');
35228: RAISE FND_API.G_EXC_ERROR;
35229: END IF;
35230: ELSE
35231: IF (l_versioning IS NULL) THEN
35232: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35230: ELSE
35231: IF (l_versioning IS NULL) THEN
35232: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35233: p_msg_name => 'PA_PS_WORKPLAN_DISABLED');
35234: RAISE FND_API.G_EXC_ERROR;
35235: END IF;
35236: END IF;
35237: END IF;
35238:
35244: IF get_task_ver_id%NOTFOUND THEN
35245: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35246: p_msg_name => 'PA_PS_INV_TASK_ID');
35247: CLOSE get_task_ver_id;
35248: RAISE FND_API.G_EXC_ERROR;
35249: END IF;
35250: CLOSE get_task_ver_id;
35251: END IF;
35252:
35258: IF get_task_ver_id2%NOTFOUND THEN
35259: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35260: p_msg_name => 'PA_PS_INV_TASK_ID');
35261: CLOSE get_task_ver_id2;
35262: RAISE FND_API.G_EXC_ERROR;
35263: END IF;
35264: CLOSE get_task_ver_id2;
35265: END IF;
35266: --end bug 3880403
35273: IF get_task_ver_id%NOTFOUND THEN
35274: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35275: p_msg_name => 'PA_PS_INV_TASK_ID');
35276: CLOSE get_task_ver_id;
35277: RAISE FND_API.G_EXC_ERROR;
35278: END IF;
35279: CLOSE get_task_ver_id;
35280: END IF;
35281:
35287: IF get_task_ver_id2%NOTFOUND THEN
35288: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35289: p_msg_name => 'PA_PS_INV_TASK_ID');
35290: CLOSE get_task_ver_id2;
35291: RAISE FND_API.G_EXC_ERROR;
35292: END IF;
35293: CLOSE get_task_ver_id2;
35294: END IF;
35295: --end bug 3880403
35298: -- Bug 8513869 - Replaced lookup type PA_OBJECT_DEPENDENCY_TYPES with PA_DEPENDENCY_TYPE
35299: IF PA_PROJ_ELEMENTS_UTILS.check_pa_lookup_exists('PA_DEPENDENCY_TYPE',p_type) <> 'Y' THEN
35300: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35301: p_msg_name => 'PA_PS_INV_REL_SUBTYPE_VAL');
35302: RAISE FND_API.G_EXC_ERROR;
35303: END IF;
35304: --
35305: --call existing create dependency API to create intra dependency
35306: PA_RELATIONSHIP_PVT.Create_Dependency(
35317: ,x_msg_data => p_msg_data
35318: );
35319:
35320: IF p_msg_count > 0 THEN
35321: RAISE FND_API.G_EXC_ERROR;
35322: END IF;
35323:
35324: p_return_status := FND_API.G_RET_STS_SUCCESS;
35325:
35320: IF p_msg_count > 0 THEN
35321: RAISE FND_API.G_EXC_ERROR;
35322: END IF;
35323:
35324: p_return_status := FND_API.G_RET_STS_SUCCESS;
35325:
35326: EXCEPTION
35327: WHEN FND_API.G_EXC_ERROR THEN
35328: ROLLBACK TO create_dep_pub_amg;
35323:
35324: p_return_status := FND_API.G_RET_STS_SUCCESS;
35325:
35326: EXCEPTION
35327: WHEN FND_API.G_EXC_ERROR THEN
35328: ROLLBACK TO create_dep_pub_amg;
35329: p_return_status := FND_API.G_RET_STS_ERROR;
35330:
35331: -- Begin fix for Bug # 4323969.
35325:
35326: EXCEPTION
35327: WHEN FND_API.G_EXC_ERROR THEN
35328: ROLLBACK TO create_dep_pub_amg;
35329: p_return_status := FND_API.G_RET_STS_ERROR;
35330:
35331: -- Begin fix for Bug # 4323969.
35332:
35333: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35334: , p_data => p_msg_data);
35335:
35336: -- End fix for Bug # 4323969.
35337:
35338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35339: ROLLBACK TO create_dep_pub_amg;
35340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35341:
35342: -- Begin fix for Bug # 4323969.
35336: -- End fix for Bug # 4323969.
35337:
35338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35339: ROLLBACK TO create_dep_pub_amg;
35340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35341:
35342: -- Begin fix for Bug # 4323969.
35343:
35344: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35347: -- End fix for Bug # 4323969.
35348:
35349: When OTHERS then
35350: ROLLBACK TO create_dep_pub_amg;
35351: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35352:
35353: -- Begin fix for Bug # 4323969.
35354:
35355: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35362:
35363:
35364: PROCEDURE Update_Dependency(
35365: p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
35366: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35367: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
35368: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
35369: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35370: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35363:
35364: PROCEDURE Update_Dependency(
35365: p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
35366: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35367: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
35368: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
35369: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35370: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35371: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
35432: AND relationship_type = 'D';
35433: BEGIN
35434: savepoint update_dep_pub_amg;
35435:
35436: IF FND_API.TO_BOOLEAN( p_init_msg_list )
35437: THEN
35438: FND_MSG_PUB.Initialize;
35439: END IF;
35440:
35445: , p_out_project_id => l_project_id
35446: , p_return_status => l_return_status
35447: );
35448:
35449: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35451: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35452: RAISE FND_API.G_EXC_ERROR;
35453: END IF;
35446: , p_return_status => l_return_status
35447: );
35448:
35449: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35451: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35452: RAISE FND_API.G_EXC_ERROR;
35453: END IF;
35454: --
35447: );
35448:
35449: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35451: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35452: RAISE FND_API.G_EXC_ERROR;
35453: END IF;
35454: --
35455: --Bug 3769089
35448:
35449: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35451: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35452: RAISE FND_API.G_EXC_ERROR;
35453: END IF;
35454: --
35455: --Bug 3769089
35456: If PA_PROJECT_STRUCTURE_UTILS.Check_Project_exists(l_project_id) = 'Y' Then
35457: If PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Ver_Exists(l_project_id,p_structure_version_id) <> 'Y' THEN
35458: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35459: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
35460:
35461: RAISE FND_API.G_EXC_ERROR;
35462: End If;
35463: Else
35464: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35465: p_msg_name => 'PA_INV_PROJECT_ID');
35462: End If;
35463: Else
35464: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35465: p_msg_name => 'PA_INV_PROJECT_ID');
35466: RAISE FND_API.G_EXC_ERROR;
35467: End If;
35468: --
35469: --
35470: --check if structure version can be modified
35485: CLOSE get_workplan_status;
35486: IF l_wp_status <> 'STRUCTURE_WORKING' THEN
35487: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35488: p_msg_name => 'PA_UPDATE_PUB_VER_ERR');
35489: RAISE FND_API.G_EXC_ERROR;
35490: END IF;
35491: ELSE
35492: IF (l_versioning IS NULL) THEN
35493: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35491: ELSE
35492: IF (l_versioning IS NULL) THEN
35493: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35494: p_msg_name => 'PA_PS_WORKPLAN_DISABLED');
35495: RAISE FND_API.G_EXC_ERROR;
35496: END IF;
35497: END IF;
35498: END IF;
35499:
35505: IF get_task_ver_id%NOTFOUND THEN
35506: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35507: p_msg_name => 'PA_PS_INV_TASK_ID');
35508: CLOSE get_task_ver_id;
35509: RAISE FND_API.G_EXC_ERROR;
35510: END IF;
35511: CLOSE get_task_ver_id;
35512: END IF;
35513:
35519: IF get_task_ver_id2%NOTFOUND THEN
35520: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35521: p_msg_name => 'PA_PS_INV_TASK_ID');
35522: CLOSE get_task_ver_id2;
35523: RAISE FND_API.G_EXC_ERROR;
35524: END IF;
35525: CLOSE get_task_ver_id2;
35526: END IF;
35527: --end bug 3880403
35535: IF get_task_ver_id%NOTFOUND THEN
35536: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35537: p_msg_name => 'PA_PS_INV_TASK_ID');
35538: CLOSE get_task_ver_id;
35539: RAISE FND_API.G_EXC_ERROR;
35540: END IF;
35541: CLOSE get_task_ver_id;
35542: END IF;
35543:
35549: IF get_task_ver_id2%NOTFOUND THEN
35550: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35551: p_msg_name => 'PA_PS_INV_TASK_ID');
35552: CLOSE get_task_ver_id2;
35553: RAISE FND_API.G_EXC_ERROR;
35554: END IF;
35555: CLOSE get_task_ver_id2;
35556: END IF;
35557: --end bug 3880403
35563: --Bug 3769047
35564: IF get_rvn%NOTFOUND THEN
35565: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35566: p_msg_name => 'PA_PS_INV_DEP_ID');
35567: RAISE FND_API.G_EXC_ERROR;
35568: END IF;
35569: CLOSE get_rvn;
35570: --
35571: --call existing update dependency API to create intra dependency
35582: ,x_msg_data => p_msg_data
35583: );
35584:
35585: IF p_msg_count > 0 THEN
35586: RAISE FND_API.G_EXC_ERROR;
35587: END IF;
35588:
35589: p_return_status := FND_API.G_RET_STS_SUCCESS;
35590:
35585: IF p_msg_count > 0 THEN
35586: RAISE FND_API.G_EXC_ERROR;
35587: END IF;
35588:
35589: p_return_status := FND_API.G_RET_STS_SUCCESS;
35590:
35591: EXCEPTION
35592: WHEN FND_API.G_EXC_ERROR THEN
35593: ROLLBACK TO update_dep_pub_amg;
35588:
35589: p_return_status := FND_API.G_RET_STS_SUCCESS;
35590:
35591: EXCEPTION
35592: WHEN FND_API.G_EXC_ERROR THEN
35593: ROLLBACK TO update_dep_pub_amg;
35594: p_return_status := FND_API.G_RET_STS_ERROR;
35595:
35596: -- 4537865 Included same fix as 4323969.
35590:
35591: EXCEPTION
35592: WHEN FND_API.G_EXC_ERROR THEN
35593: ROLLBACK TO update_dep_pub_amg;
35594: p_return_status := FND_API.G_RET_STS_ERROR;
35595:
35596: -- 4537865 Included same fix as 4323969.
35597: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35598: , p_data => p_msg_data);
35596: -- 4537865 Included same fix as 4323969.
35597: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35598: , p_data => p_msg_data);
35599:
35600: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35601: ROLLBACK TO update_dep_pub_amg;
35602: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35603:
35604: -- 4537865 : Included same fix as 4323969.
35598: , p_data => p_msg_data);
35599:
35600: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35601: ROLLBACK TO update_dep_pub_amg;
35602: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35603:
35604: -- 4537865 : Included same fix as 4323969.
35605: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35606: , p_data => p_msg_data);
35606: , p_data => p_msg_data);
35607:
35608: When OTHERS then
35609: ROLLBACK TO update_dep_pub_amg;
35610: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35611: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35612:
35613: FND_MSG_PUB.add_exc_msg
35614: (p_pkg_name => G_PKG_NAME
35623:
35624:
35625: PROCEDURE Delete_Dependency(
35626: p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
35627: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35628: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
35629: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
35630: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35631: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35624:
35625: PROCEDURE Delete_Dependency(
35626: p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
35627: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
35628: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
35629: ,p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
35630: ,p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35631: ,p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35632: ,p_pm_product_code IN VARCHAR2
35693: AND relationship_type = 'D';
35694: BEGIN
35695: savepoint delete_dep_pub_amg;
35696:
35697: IF FND_API.TO_BOOLEAN( p_init_msg_list )
35698: THEN
35699: FND_MSG_PUB.Initialize;
35700: END IF;
35701:
35706: , p_out_project_id => l_project_id
35707: , p_return_status => l_return_status
35708: );
35709:
35710: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35712: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35713: RAISE FND_API.G_EXC_ERROR;
35714: END IF;
35707: , p_return_status => l_return_status
35708: );
35709:
35710: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35712: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35713: RAISE FND_API.G_EXC_ERROR;
35714: END IF;
35715: --
35708: );
35709:
35710: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35712: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35713: RAISE FND_API.G_EXC_ERROR;
35714: END IF;
35715: --
35716: --Bug 3769079
35709:
35710: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
35711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
35712: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
35713: RAISE FND_API.G_EXC_ERROR;
35714: END IF;
35715: --
35716: --Bug 3769079
35717: If PA_PROJECT_STRUCTURE_UTILS.Check_Project_exists(l_project_id) = 'Y' Then
35717: If PA_PROJECT_STRUCTURE_UTILS.Check_Project_exists(l_project_id) = 'Y' Then
35718: If PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Ver_Exists(l_project_id,p_structure_version_id) <> 'Y' THEN
35719: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35720: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
35721: RAISE FND_API.G_EXC_ERROR;
35722: End If;
35723: Else
35724: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35725: p_msg_name => 'PA_INV_PROJECT_ID');
35722: End If;
35723: Else
35724: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35725: p_msg_name => 'PA_INV_PROJECT_ID');
35726: RAISE FND_API.G_EXC_ERROR;
35727: End If;
35728: --
35729: --
35730: --check if structure version can be modified
35745: CLOSE get_workplan_status;
35746: IF l_wp_status <> 'STRUCTURE_WORKING' THEN
35747: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35748: p_msg_name => 'PA_UPDATE_PUB_VER_ERR');
35749: RAISE FND_API.G_EXC_ERROR;
35750: END IF;
35751: ELSE
35752: IF (l_versioning IS NULL) THEN
35753: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35751: ELSE
35752: IF (l_versioning IS NULL) THEN
35753: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35754: p_msg_name => 'PA_PS_WORKPLAN_DISABLED');
35755: RAISE FND_API.G_EXC_ERROR;
35756: END IF;
35757: END IF;
35758: END IF;
35759:
35765: IF get_task_ver_id%NOTFOUND THEN
35766: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35767: p_msg_name => 'PA_PS_INV_TASK_ID');
35768: CLOSE get_task_ver_id;
35769: RAISE FND_API.G_EXC_ERROR;
35770: END IF;
35771: CLOSE get_task_ver_id;
35772: END IF;
35773:
35779: IF get_task_ver_id2%NOTFOUND THEN
35780: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35781: p_msg_name => 'PA_PS_INV_TASK_ID');
35782: CLOSE get_task_ver_id2;
35783: RAISE FND_API.G_EXC_ERROR;
35784: END IF;
35785: CLOSE get_task_ver_id2;
35786: END IF;
35787: --end bug 3880403
35794: IF get_task_ver_id%NOTFOUND THEN
35795: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35796: p_msg_name => 'PA_PS_INV_TASK_ID');
35797: CLOSE get_task_ver_id;
35798: RAISE FND_API.G_EXC_ERROR;
35799: END IF;
35800: CLOSE get_task_ver_id;
35801: END IF;
35802:
35808: IF get_task_ver_id2%NOTFOUND THEN
35809: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35810: p_msg_name => 'PA_PS_INV_TASK_ID');
35811: CLOSE get_task_ver_id2;
35812: RAISE FND_API.G_EXC_ERROR;
35813: END IF;
35814: CLOSE get_task_ver_id2;
35815: END IF;
35816: --end bug 3880403
35823: --Bug 3769066
35824: IF get_rvn%NOTFOUND THEN
35825: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35826: p_msg_name => 'PA_PS_INV_DEP_ID');
35827: RAISE FND_API.G_EXC_ERROR;
35828: END IF;
35829: CLOSE get_rvn;
35830:
35831: PA_RELATIONSHIP_PVT.Delete_Dependency(
35838:
35839: -- 4537865 : Check has to be made against l_msg_count ,not p_msg_count
35840: -- IF p_msg_count > 0 THEN
35841: IF l_msg_count > 0 THEN
35842: RAISE FND_API.G_EXC_ERROR;
35843: END IF;
35844:
35845: p_return_status := FND_API.G_RET_STS_SUCCESS;
35846: EXCEPTION
35841: IF l_msg_count > 0 THEN
35842: RAISE FND_API.G_EXC_ERROR;
35843: END IF;
35844:
35845: p_return_status := FND_API.G_RET_STS_SUCCESS;
35846: EXCEPTION
35847:
35848: WHEN FND_API.G_EXC_ERROR THEN
35849: ROLLBACK TO delete_dep_pub_amg;
35844:
35845: p_return_status := FND_API.G_RET_STS_SUCCESS;
35846: EXCEPTION
35847:
35848: WHEN FND_API.G_EXC_ERROR THEN
35849: ROLLBACK TO delete_dep_pub_amg;
35850: p_return_status := FND_API.G_RET_STS_ERROR;
35851: -- 4537865 Included same fix as 4323969.
35852: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35846: EXCEPTION
35847:
35848: WHEN FND_API.G_EXC_ERROR THEN
35849: ROLLBACK TO delete_dep_pub_amg;
35850: p_return_status := FND_API.G_RET_STS_ERROR;
35851: -- 4537865 Included same fix as 4323969.
35852: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35853: , p_data => p_msg_data);
35854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35850: p_return_status := FND_API.G_RET_STS_ERROR;
35851: -- 4537865 Included same fix as 4323969.
35852: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35853: , p_data => p_msg_data);
35854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35855: ROLLBACK TO delete_dep_pub_amg;
35856: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35857: -- 4537865 Included same fix as 4323969.
35858: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35852: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35853: , p_data => p_msg_data);
35854: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
35855: ROLLBACK TO delete_dep_pub_amg;
35856: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35857: -- 4537865 Included same fix as 4323969.
35858: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35859: , p_data => p_msg_data);
35860: When OTHERS then
35858: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
35859: , p_data => p_msg_data);
35860: When OTHERS then
35861: ROLLBACK TO delete_dep_pub_amg;
35862: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35863:
35864: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
35865:
35866: FND_MSG_PUB.add_exc_msg
35878: -- Begin fix for Bug # 4096218.
35879:
35880: PROCEDURE check_task_mfd
35881: ( p_api_version_number IN NUMBER
35882: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
35883: , p_return_status OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35884: , p_msg_count OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
35885: , p_msg_data OUT NOCOPY VARCHAR2 /*Added the nocopy check for 4537865 */
35886: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
36024:
36025: l_amg_task_number NUMBER; -- Datatype changed for Bug 4878722
36026: BEGIN
36027:
36028: IF NOT FND_API.Compatible_API_Call (g_api_version_number
36029: , p_api_version_number
36030: , l_api_name
36031: , G_PKG_NAME) THEN
36032:
36029: , p_api_version_number
36030: , l_api_name
36031: , G_PKG_NAME) THEN
36032:
36033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36034:
36035: END IF;
36036:
36037: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
36033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36034:
36035: END IF;
36036:
36037: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
36038:
36039: FND_MSG_PUB.initialize;
36040:
36041: END IF;
36039: FND_MSG_PUB.initialize;
36040:
36041: END IF;
36042:
36043: p_return_status := FND_API.G_RET_STS_SUCCESS;
36044:
36045: -- Initialize output flag.
36046:
36047: l_check_task_mfd_flag := 'N';
36056: , p_pa_project_id => p_project_id
36057: , p_out_project_id => l_project_id
36058: , p_return_status => l_return_status);
36059:
36060: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36061:
36062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36063:
36064: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36058: , p_return_status => l_return_status);
36059:
36060: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36061:
36062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36063:
36064: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36065:
36066: RAISE FND_API.G_EXC_ERROR;
36060: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36061:
36062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36063:
36064: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36065:
36066: RAISE FND_API.G_EXC_ERROR;
36067: END IF;
36068:
36062: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36063:
36064: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36065:
36066: RAISE FND_API.G_EXC_ERROR;
36067: END IF;
36068:
36069: -- If task id is passed ,verify whether it is a valid value
36070: IF p_task_id IS NOT NULL AND p_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
36097: , p_out_task_id => l_task_id
36098: , p_return_status => l_return_status);
36099:
36100:
36101: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36102:
36103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36104:
36105: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36099:
36100:
36101: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36102:
36103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36104:
36105: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36106:
36107: RAISE FND_API.G_EXC_ERROR;
36101: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36102:
36103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36104:
36105: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36106:
36107: RAISE FND_API.G_EXC_ERROR;
36108: END IF;
36109:
36103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36104:
36105: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36106:
36107: RAISE FND_API.G_EXC_ERROR;
36108: END IF;
36109:
36110: END IF;
36111: --get structure_version_id and task_version_id
36136: , p_structure_type => p_structure_type
36137: , p_task_version_id => l_task_version_id
36138: , p_delete_task_ok_flag => l_delete_task_ok_flag -- OUT param
36139: );
36140: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
36141:
36142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36143:
36144: /* Commented because of Issue found during Unit testing
36138: , p_delete_task_ok_flag => l_delete_task_ok_flag -- OUT param
36139: );
36140: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
36141:
36142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36143:
36144: /* Commented because of Issue found during Unit testing
36145: In Check_Delete_Task_OK ,already message has been retrieved and
36146: Hence ,If we raise again here ,In this API ,it wont be able to find any msg in stack now
36149: The commented check corresponds to return status 'E' check .It will be 'E' if its nt
36150: allowed to delete the task. So, Just set the OUT params appropriately
36151: and return
36152:
36153: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36154:
36155: RAISE FND_API.G_EXC_ERROR;
36156: */
36157: END IF;
36151: and return
36152:
36153: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
36154:
36155: RAISE FND_API.G_EXC_ERROR;
36156: */
36157: END IF;
36158:
36159: IF l_delete_task_ok_flag = 'N' THEN
36259: p_msg_data := l_msg_data;
36260:
36261: EXCEPTION
36262:
36263: WHEN FND_API.G_EXC_ERROR THEN
36264:
36265: p_return_status := FND_API.G_RET_STS_ERROR;
36266:
36267: -- 4537865
36261: EXCEPTION
36262:
36263: WHEN FND_API.G_EXC_ERROR THEN
36264:
36265: p_return_status := FND_API.G_RET_STS_ERROR;
36266:
36267: -- 4537865
36268: p_check_task_mfd_flag := NULL ;
36269:
36270: FND_MSG_PUB.Count_And_Get
36271: ( p_count => p_msg_count ,
36272: p_data => p_msg_data );
36273:
36274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
36275:
36276: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36277:
36278: -- 4537865
36272: p_data => p_msg_data );
36273:
36274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
36275:
36276: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36277:
36278: -- 4537865
36279: p_check_task_mfd_flag := NULL ;
36280:
36283: p_data => p_msg_data );
36284:
36285: WHEN OTHERS THEN
36286:
36287: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36288:
36289: p_check_task_mfd_flag := NULL ; -- 4537865
36290:
36291: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36334: )
36335: IS
36336: BEGIN
36337: x_msg_count := 0;
36338: x_return_status := FND_API.G_RET_STS_SUCCESS;
36339: x_msg_data := NULL;
36340: x_deleted_task_ids := PA_PROJECT_PUB.G_DELETED_TASK_IDS_FROM_OP;
36341: EXCEPTION
36342: WHEN OTHERS THEN
36339: x_msg_data := NULL;
36340: x_deleted_task_ids := PA_PROJECT_PUB.G_DELETED_TASK_IDS_FROM_OP;
36341: EXCEPTION
36342: WHEN OTHERS THEN
36343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36344: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36345:
36346: FND_MSG_PUB.add_exc_msg
36347: (p_pkg_name => G_PKG_NAME
36362: -- Bug 5436264 : AMG API FOR PROCESS STRUCTURE UPDATES
36363:
36364: PROCEDURE process_structure_updates
36365: (p_api_version_number IN NUMBER := 1.0
36366: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
36367: , p_commit IN VARCHAR2 := FND_API.G_FALSE
36368: , p_return_status OUT NOCOPY VARCHAR2
36369: , p_msg_count OUT NOCOPY NUMBER
36370: , p_msg_data OUT NOCOPY VARCHAR2
36363:
36364: PROCEDURE process_structure_updates
36365: (p_api_version_number IN NUMBER := 1.0
36366: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
36367: , p_commit IN VARCHAR2 := FND_API.G_FALSE
36368: , p_return_status OUT NOCOPY VARCHAR2
36369: , p_msg_count OUT NOCOPY NUMBER
36370: , p_msg_data OUT NOCOPY VARCHAR2
36371: , p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
36401: SAVEPOINT process_structure_updates;
36402:
36403: -- Standard call to check for call compatibility
36404:
36405: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
36406: p_api_version_number ,
36407: l_api_name ,
36408: g_pkg_name )
36409: THEN
36407: l_api_name ,
36408: g_pkg_name )
36409: THEN
36410:
36411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36412:
36413: END IF;
36414:
36415: -- Initialize the message table if requested
36413: END IF;
36414:
36415: -- Initialize the message table if requested
36416:
36417: IF FND_API.TO_BOOLEAN( p_init_msg_list )
36418: THEN
36419:
36420: FND_MSG_PUB.initialize;
36421:
36422: END IF;
36423:
36424: -- Set API return status to success
36425:
36426: p_return_status := FND_API.G_RET_STS_SUCCESS;
36427:
36428:
36429: -- Get the project ID
36430: -- Added if clause for Bug 6727014
36440: , p_out_project_id => l_project_id
36441: , p_return_status => l_return_status
36442: );
36443:
36444: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36445:
36446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36447:
36448: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
36442: );
36443:
36444: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36445:
36446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36447:
36448: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
36449:
36450: RAISE FND_API.G_EXC_ERROR;
36444: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36445:
36446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36447:
36448: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
36449:
36450: RAISE FND_API.G_EXC_ERROR;
36451: END IF;
36452:
36446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36447:
36448: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
36449:
36450: RAISE FND_API.G_EXC_ERROR;
36451: END IF;
36452:
36453: END IF;
36454:
36455: If PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Ver_Exists(l_project_id, p_structure_version_id) <> 'Y' THEN
36456: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
36457: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
36458:
36459: RAISE FND_API.G_EXC_ERROR;
36460: End If;
36461:
36462: l_responsibility_id := FND_GLOBAL.Resp_id;
36463: l_user_id := FND_GLOBAL.User_id;
36488: p_msg_data => l_msg_data,
36489: p_return_status => l_return_status,
36490: p_function_allowed => l_function_allowed);
36491:
36492: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
36493: THEN
36494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36495:
36496: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36490: p_function_allowed => l_function_allowed);
36491:
36492: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
36493: THEN
36494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36495:
36496: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36497: THEN
36498: RAISE FND_API.G_EXC_ERROR;
36492: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
36493: THEN
36494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36495:
36496: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36497: THEN
36498: RAISE FND_API.G_EXC_ERROR;
36499:
36500: END IF;
36494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36495:
36496: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36497: THEN
36498: RAISE FND_API.G_EXC_ERROR;
36499:
36500: END IF;
36501:
36502: IF l_function_allowed = 'N' THEN
36509: ,p_attribute2 => ''
36510: ,p_attribute3 => ''
36511: ,p_attribute4 => ''
36512: ,p_attribute5 => '');
36513: p_return_status := FND_API.G_RET_STS_ERROR;
36514: RAISE FND_API.G_EXC_ERROR;
36515: END IF;
36516:
36517: --Bug# 5973460
36510: ,p_attribute3 => ''
36511: ,p_attribute4 => ''
36512: ,p_attribute5 => '');
36513: p_return_status := FND_API.G_RET_STS_ERROR;
36514: RAISE FND_API.G_EXC_ERROR;
36515: END IF;
36516:
36517: --Bug# 5973460
36518: l_process_code := PA_PROJECT_STRUCTURE_UTILS.GET_PROCESS_STATUS_CODE(p_project_id => l_project_id
36522: THEN
36523: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
36524: ,p_msg_name => 'PA_PS_PUBLISH_ERROR');
36525:
36526: RAISE FND_API.G_EXC_ERROR;
36527: END IF;
36528: --Bug# 5973460
36529:
36530: -- check the process_update_wbs_flag
36554: ,x_return_status => l_return_status
36555: ,x_msg_count => l_msg_count
36556: ,x_msg_data => l_msg_data ) ;
36557:
36558: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
36559: THEN
36560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36562: THEN
36556: ,x_msg_data => l_msg_data ) ;
36557:
36558: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
36559: THEN
36560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36562: THEN
36563: RAISE FND_API.G_EXC_ERROR;
36564: END IF;
36557:
36558: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
36559: THEN
36560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36562: THEN
36563: RAISE FND_API.G_EXC_ERROR;
36564: END IF;
36565:
36559: THEN
36560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36562: THEN
36563: RAISE FND_API.G_EXC_ERROR;
36564: END IF;
36565:
36566: ELSIF p_process_mode = 'CONCURRENT' THEN
36567:
36571: ,x_return_status => l_return_status
36572: ,x_msg_count => l_msg_count
36573: ,x_msg_data => l_msg_data ) ;
36574:
36575: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
36576: THEN
36577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36579: THEN
36573: ,x_msg_data => l_msg_data ) ;
36574:
36575: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
36576: THEN
36577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36579: THEN
36580: RAISE FND_API.G_EXC_ERROR;
36581: END IF;
36574:
36575: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
36576: THEN
36577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36579: THEN
36580: RAISE FND_API.G_EXC_ERROR;
36581: END IF;
36582:
36576: THEN
36577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36578: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
36579: THEN
36580: RAISE FND_API.G_EXC_ERROR;
36581: END IF;
36582:
36583: END IF ; -- p_process_mode
36584:
36585: END IF ; -- l_message_type
36586:
36587: END IF; -- l_update_wbs_flag
36588:
36589: IF FND_API.to_boolean( p_commit )
36590: THEN
36591: COMMIT;
36592: END IF;
36593:
36591: COMMIT;
36592: END IF;
36593:
36594: EXCEPTION
36595: WHEN FND_API.G_EXC_ERROR THEN
36596: p_return_status := FND_API.G_RET_STS_ERROR;
36597:
36598: ROLLBACK TO process_structure_updates;
36599:
36592: END IF;
36593:
36594: EXCEPTION
36595: WHEN FND_API.G_EXC_ERROR THEN
36596: p_return_status := FND_API.G_RET_STS_ERROR;
36597:
36598: ROLLBACK TO process_structure_updates;
36599:
36600: p_msg_count := l_msg_count;
36603: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
36604: , p_data => p_msg_data);
36605:
36606:
36607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
36608: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36609:
36610: ROLLBACK TO process_structure_updates;
36611:
36604: , p_data => p_msg_data);
36605:
36606:
36607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
36608: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36609:
36610: ROLLBACK TO process_structure_updates;
36611:
36612: p_msg_count := l_msg_count;
36615: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
36616: , p_data => p_msg_data);
36617:
36618: WHEN OTHERS THEN
36619: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36620:
36621: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
36622: FND_MSG_PUB.add_exc_msg
36623: (p_pkg_name => G_PKG_NAME
36714:
36715: if nvl(l_exists,'Y') = 'X' Then
36716: PA_PROJECT_PUB.process_structure_updates
36717: ( p_api_version_number => 1.0
36718: , p_init_msg_list => FND_API.G_TRUE
36719: , p_commit => FND_API.G_FALSE
36720: , p_return_status => l_return_status
36721: , p_msg_count => l_msg_count
36722: , p_msg_data => l_msg_data
36715: if nvl(l_exists,'Y') = 'X' Then
36716: PA_PROJECT_PUB.process_structure_updates
36717: ( p_api_version_number => 1.0
36718: , p_init_msg_list => FND_API.G_TRUE
36719: , p_commit => FND_API.G_FALSE
36720: , p_return_status => l_return_status
36721: , p_msg_count => l_msg_count
36722: , p_msg_data => l_msg_data
36723: , p_structure_version_id => i.structure_version_id
36725: , p_pm_project_reference => PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
36726: , p_process_mode => 'ONLINE'
36727: , p_calling_context => 'CONC_WRP');
36728:
36729: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36731: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
36732: RAISE FND_API.G_EXC_ERROR;
36733: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
36726: , p_process_mode => 'ONLINE'
36727: , p_calling_context => 'CONC_WRP');
36728:
36729: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36731: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
36732: RAISE FND_API.G_EXC_ERROR;
36733: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
36734: COMMIT;
36727: , p_calling_context => 'CONC_WRP');
36728:
36729: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36731: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
36732: RAISE FND_API.G_EXC_ERROR;
36733: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
36734: COMMIT;
36735: END IF;
36728:
36729: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36731: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
36732: RAISE FND_API.G_EXC_ERROR;
36733: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
36734: COMMIT;
36735: END IF;
36736:
36729: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
36730: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36731: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
36732: RAISE FND_API.G_EXC_ERROR;
36733: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
36734: COMMIT;
36735: END IF;
36736:
36737: fnd_file.put_line(1, rpad(i.project_number,30,' ')||rpad(substrb(i.structure_name,1,60),65,' ')||l_return_status);
36739: fnd_file.put_line(1, rpad(i.project_number,30,' ')||rpad(substrb(i.structure_name,1,60),65,' ')||'A process is already running for this structure');
36740: End If;
36741:
36742: EXCEPTION
36743: WHEN FND_API.G_EXC_ERROR THEN
36744: l_retcode := '1';
36745:
36746: IF l_msg_count >= 1 THEN
36747: PA_INTERFACE_UTILS_PUB.get_messages
36744: l_retcode := '1';
36745:
36746: IF l_msg_count >= 1 THEN
36747: PA_INTERFACE_UTILS_PUB.get_messages
36748: (p_encoded => FND_API.G_FALSE
36749: ,p_msg_index => 1
36750: ,p_msg_count => l_msg_count
36751: ,p_msg_data => l_msg_data
36752: ,p_data => l_data
36755: fnd_file.put_line(1, rpad(i.project_number,30,' ')||rpad(substrb(i.structure_name,1,60),65,' ')||l_return_status||' - '||errbuf);
36756: END IF;
36757: ROLLBACK;
36758:
36759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
36760: l_retcode := '1';
36761:
36762: IF l_msg_count >= 1 THEN
36763: PA_INTERFACE_UTILS_PUB.get_messages
36760: l_retcode := '1';
36761:
36762: IF l_msg_count >= 1 THEN
36763: PA_INTERFACE_UTILS_PUB.get_messages
36764: (p_encoded => FND_API.G_FALSE
36765: ,p_msg_index => 1
36766: ,p_msg_count => l_msg_count
36767: ,p_msg_data => l_msg_data
36768: ,p_data => l_data
36802: -- Bug # 5072032.
36803:
36804: PROCEDURE SETUP_PROJECT_AS_PROGRAM
36805: (p_api_version IN NUMBER := 1.0
36806: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
36807: , p_commit IN VARCHAR2 := FND_API.G_FALSE
36808: , p_debug_mode IN VARCHAR2 := 'N'
36809: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
36810: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
36803:
36804: PROCEDURE SETUP_PROJECT_AS_PROGRAM
36805: (p_api_version IN NUMBER := 1.0
36806: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
36807: , p_commit IN VARCHAR2 := FND_API.G_FALSE
36808: , p_debug_mode IN VARCHAR2 := 'N'
36809: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
36810: , p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
36811: , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
36850: -- Establish the save point.
36851: savepoint SETUP_PROJECT_AS_PROGRAM_AMG;
36852:
36853: -- Initialize the message table if requested.
36854: if FND_API.TO_BOOLEAN(p_init_msg_list) then
36855: FND_MSG_PUB.initialize;
36856: end if;
36857:
36858: -- Standard call to check for API compatibility.
36855: FND_MSG_PUB.initialize;
36856: end if;
36857:
36858: -- Standard call to check for API compatibility.
36859: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
36860: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36861: end if;
36862:
36863: -- Initialize the return status
36856: end if;
36857:
36858: -- Standard call to check for API compatibility.
36859: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
36860: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36861: end if;
36862:
36863: -- Initialize the return status
36864: x_return_status := FND_API.G_RET_STS_SUCCESS;
36860: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36861: end if;
36862:
36863: -- Initialize the return status
36864: x_return_status := FND_API.G_RET_STS_SUCCESS;
36865:
36866: -- Convert project reference to id.
36867: PA_PROJECT_PVT.Convert_pm_projref_to_id
36868: (p_pm_project_reference => p_pm_project_reference
36869: , p_pa_project_id => p_project_id
36870: , p_out_project_id => l_project_id
36871: , p_return_status => l_return_status);
36872:
36873: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36874: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36875: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36876: raise FND_API.G_EXC_ERROR;
36877: end if;
36870: , p_out_project_id => l_project_id
36871: , p_return_status => l_return_status);
36872:
36873: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36874: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36875: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36876: raise FND_API.G_EXC_ERROR;
36877: end if;
36878:
36871: , p_return_status => l_return_status);
36872:
36873: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36874: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36875: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36876: raise FND_API.G_EXC_ERROR;
36877: end if;
36878:
36879: -- Get the current attributes of the project.
36872:
36873: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36874: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36875: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36876: raise FND_API.G_EXC_ERROR;
36877: end if;
36878:
36879: -- Get the current attributes of the project.
36880: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(l_project_id);
36911: , p_msg_data => l_msg_data
36912: , p_return_status => l_return_status
36913: , p_function_allowed => l_function_allowed);
36914:
36915: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36916: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36917: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36918: raise FND_API.G_EXC_ERROR;
36919: end if;
36912: , p_return_status => l_return_status
36913: , p_function_allowed => l_function_allowed);
36914:
36915: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36916: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36917: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36918: raise FND_API.G_EXC_ERROR;
36919: end if;
36920:
36913: , p_function_allowed => l_function_allowed);
36914:
36915: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36916: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36917: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36918: raise FND_API.G_EXC_ERROR;
36919: end if;
36920:
36921: if l_function_allowed = 'N' then
36914:
36915: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36916: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36917: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36918: raise FND_API.G_EXC_ERROR;
36919: end if;
36920:
36921: if l_function_allowed = 'N' then
36922: pa_interface_utils_pub.map_new_amg_msg
36928: , p_attribute2 => ''
36929: , p_attribute3 => ''
36930: , p_attribute4 => ''
36931: , p_attribute5 => '');
36932: raise FND_API.G_EXC_ERROR;
36933: end if;
36934:
36935: -- Call the API to setup the project as a program.
36936: PA_PROJECT_STRUCTURE_PUB1.UPDATE_STRUCTURES_SETUP_ATTR
36950: , x_return_status => l_return_status
36951: , x_msg_count => l_msg_count
36952: , x_msg_data => l_msg_data);
36953:
36954: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36955: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36956: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36957: raise FND_API.G_EXC_ERROR;
36958: end if;
36951: , x_msg_count => l_msg_count
36952: , x_msg_data => l_msg_data);
36953:
36954: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36955: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36956: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36957: raise FND_API.G_EXC_ERROR;
36958: end if;
36959:
36952: , x_msg_data => l_msg_data);
36953:
36954: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36955: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36956: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36957: raise FND_API.G_EXC_ERROR;
36958: end if;
36959:
36960: -- Commit if p_commit = FND_API.G_TRUE.
36953:
36954: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
36955: raise FND_API.G_EXC_UNEXPECTED_ERROR;
36956: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36957: raise FND_API.G_EXC_ERROR;
36958: end if;
36959:
36960: -- Commit if p_commit = FND_API.G_TRUE.
36961: if (p_commit = FND_API.G_TRUE) then
36956: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
36957: raise FND_API.G_EXC_ERROR;
36958: end if;
36959:
36960: -- Commit if p_commit = FND_API.G_TRUE.
36961: if (p_commit = FND_API.G_TRUE) then
36962: commit;
36963: end if;
36964:
36957: raise FND_API.G_EXC_ERROR;
36958: end if;
36959:
36960: -- Commit if p_commit = FND_API.G_TRUE.
36961: if (p_commit = FND_API.G_TRUE) then
36962: commit;
36963: end if;
36964:
36965: exception
36963: end if;
36964:
36965: exception
36966:
36967: when FND_API.G_EXC_ERROR then
36968: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36969: x_return_status := FND_API.G_RET_STS_ERROR;
36970: x_msg_count := FND_MSG_PUB.count_msg;
36971:
36965: exception
36966:
36967: when FND_API.G_EXC_ERROR then
36968: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36969: x_return_status := FND_API.G_RET_STS_ERROR;
36970: x_msg_count := FND_MSG_PUB.count_msg;
36971:
36972: if x_msg_count = 1 then
36973: PA_INTERFACE_UTILS_PUB.get_messages
36970: x_msg_count := FND_MSG_PUB.count_msg;
36971:
36972: if x_msg_count = 1 then
36973: PA_INTERFACE_UTILS_PUB.get_messages
36974: (p_encoded => FND_API.G_FALSE
36975: , p_msg_index => 1
36976: , p_msg_count => x_msg_count
36977: , p_msg_data => x_msg_data
36978: , p_data => x_msg_data
36978: , p_data => x_msg_data
36979: , p_msg_index_out => l_msg_index_out);
36980: end if;
36981:
36982: when FND_API.G_EXC_UNEXPECTED_ERROR then
36983: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36985: x_msg_count := FND_MSG_PUB.count_msg;
36986:
36980: end if;
36981:
36982: when FND_API.G_EXC_UNEXPECTED_ERROR then
36983: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36985: x_msg_count := FND_MSG_PUB.count_msg;
36986:
36987: if x_msg_count = 1 then
36988: PA_INTERFACE_UTILS_PUB.get_messages
36985: x_msg_count := FND_MSG_PUB.count_msg;
36986:
36987: if x_msg_count = 1 then
36988: PA_INTERFACE_UTILS_PUB.get_messages
36989: (p_encoded => FND_API.G_FALSE
36990: , p_msg_index => 1
36991: , p_msg_count => x_msg_count
36992: , p_msg_data => x_msg_data
36993: , p_data => x_msg_data
36995: end if;
36996:
36997: when OTHERS then
36998: rollback to SETUP_PROJECT_AS_PROGRAM_AMG;
36999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37000: x_msg_count := 1;
37001: x_msg_data := SQLERRM;
37002: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37003: FND_MSG_PUB.add_exc_msg
37008: end SETUP_PROJECT_AS_PROGRAM;
37009:
37010: PROCEDURE CREATE_PROGRAM_LINKS
37011: (p_api_version IN NUMBER := 1.0
37012: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
37013: , p_commit IN VARCHAR2 := FND_API.G_FALSE
37014: , p_debug_mode IN VARCHAR2 := 'N'
37015: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
37016: , p_program_links_tbl IN PA_PROJECT_PUB.PROGRAM_LINKS_TBL_TYPE
37009:
37010: PROCEDURE CREATE_PROGRAM_LINKS
37011: (p_api_version IN NUMBER := 1.0
37012: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
37013: , p_commit IN VARCHAR2 := FND_API.G_FALSE
37014: , p_debug_mode IN VARCHAR2 := 'N'
37015: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
37016: , p_program_links_tbl IN PA_PROJECT_PUB.PROGRAM_LINKS_TBL_TYPE
37017: , x_return_status OUT NOCOPY VARCHAR2
37125: -- Establish the save point.
37126: savepoint CREATE_PROGRAM_LINKS_AMG;
37127:
37128: -- Initialize the message table if requested.
37129: if FND_API.TO_BOOLEAN(p_init_msg_list) then
37130: FND_MSG_PUB.initialize;
37131: end if;
37132:
37133: -- Standard call to check for API compatibility.
37130: FND_MSG_PUB.initialize;
37131: end if;
37132:
37133: -- Standard call to check for API compatibility.
37134: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
37135: raise FND_API.G_EXC_UNEXPECTED_ERROR;
37136: end if;
37137:
37138: -- Initialize the return status
37131: end if;
37132:
37133: -- Standard call to check for API compatibility.
37134: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
37135: raise FND_API.G_EXC_UNEXPECTED_ERROR;
37136: end if;
37137:
37138: -- Initialize the return status
37139: x_return_status := FND_API.G_RET_STS_SUCCESS;
37135: raise FND_API.G_EXC_UNEXPECTED_ERROR;
37136: end if;
37137:
37138: -- Initialize the return status
37139: x_return_status := FND_API.G_RET_STS_SUCCESS;
37140:
37141: -- Initialize the error flags.
37142: l_unexp_error_flag := 'N';
37143: l_exp_error_flag := 'N';
37171: , p_pa_project_id => p_program_links_tbl(l_count).parent_project_id
37172: , p_out_project_id => l_parent_project_id
37173: , p_return_status => l_return_status);
37174:
37175: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37176: l_unexp_error_flag := 'Y';
37177: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37178: l_exp_error_flag := 'Y';
37179: end if;
37173: , p_return_status => l_return_status);
37174:
37175: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37176: l_unexp_error_flag := 'Y';
37177: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37178: l_exp_error_flag := 'Y';
37179: end if;
37180:
37181: end if;
37189: , p_structure_type => p_program_links_tbl(l_count).structure_type
37190: , p_out_task_id => l_task_id
37191: , p_return_status => l_return_status);
37192:
37193: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37194: l_unexp_error_flag := 'Y';
37195: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37196: l_exp_error_flag := 'Y';
37197: end if;
37191: , p_return_status => l_return_status);
37192:
37193: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37194: l_unexp_error_flag := 'Y';
37195: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37196: l_exp_error_flag := 'Y';
37197: end if;
37198:
37199: end if;
37236: , p_structure_type => p_program_links_tbl(l_count).structure_type
37237: , p_out_task_id => l_task_id_out
37238: , p_return_status => l_return_status);
37239:
37240: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37241: l_unexp_error_flag := 'Y';
37242: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37243: l_exp_error_flag := 'Y';
37244: end if;
37238: , p_return_status => l_return_status);
37239:
37240: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37241: l_unexp_error_flag := 'Y';
37242: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37243: l_exp_error_flag := 'Y';
37244: end if;
37245: end if;
37246:
37329: , p_msg_data => l_msg_data
37330: , p_return_status => l_return_status
37331: , p_function_allowed => l_function_allowed);
37332:
37333: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37334: l_unexp_error_flag := 'Y';
37335: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37336: l_exp_error_flag := 'Y';
37337: end if;
37331: , p_function_allowed => l_function_allowed);
37332:
37333: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37334: l_unexp_error_flag := 'Y';
37335: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37336: l_exp_error_flag := 'Y';
37337: end if;
37338:
37339: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
37365: , p_msg_data => l_msg_data
37366: , p_return_status => l_return_status
37367: , p_function_allowed => l_function_allowed);
37368:
37369: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37370: l_unexp_error_flag := 'Y';
37371: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37372: l_exp_error_flag := 'Y';
37373: end if;
37367: , p_function_allowed => l_function_allowed);
37368:
37369: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37370: l_unexp_error_flag := 'Y';
37371: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37372: l_exp_error_flag := 'Y';
37373: end if;
37374:
37375: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
37426: -- Call the API to create the sub-project association.
37427: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
37428: PA_RELATIONSHIP_PUB.CREATE_SUBPROJECT_ASSOCIATION
37429: (p_api_version => p_api_version
37430: , p_init_msg_list => FND_API.G_FALSE
37431: , p_commit => p_commit
37432: , p_calling_module => 'AMG'
37433: , p_debug_mode => p_debug_mode
37434: , p_max_msg_count => p_max_msg_count
37439: , x_return_status => l_return_status
37440: , x_msg_count => l_msg_count
37441: , x_msg_data => l_msg_data);
37442:
37443: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37444: l_unexp_error_flag := 'Y';
37445: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37446: l_exp_error_flag := 'Y';
37447: end if;
37441: , x_msg_data => l_msg_data);
37442:
37443: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37444: l_unexp_error_flag := 'Y';
37445: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37446: l_exp_error_flag := 'Y';
37447: end if;
37448: end if;
37449:
37498:
37499: end if;
37500:
37501: PA_INTERFACE_UTILS_PUB.get_messages
37502: (p_encoded => FND_API.G_FALSE -- Get the encoded message.
37503: , p_msg_index => 1 -- Get the message at index 1.
37504: , p_data => l_prog_error_tbl(l_count).error_msg
37505: , p_msg_index_out => l_msg_index_out);
37506:
37513:
37514: if (l_error_count > 0) then
37515:
37516: -- Set the return status to error.
37517: x_return_status := FND_API.G_RET_STS_ERROR;
37518:
37519: -- Clear all previous messages from the message stack.
37520: FND_MSG_PUB.initialize;
37521:
37532: ,'ERRORMSG', l_prog_error_tbl(l).error_msg);
37533: end if;
37534: end loop;
37535:
37536: raise FND_API.G_EXC_ERROR;
37537:
37538: end if;
37539:
37540: -- Commit if p_commit = FND_API.G_TRUE.
37536: raise FND_API.G_EXC_ERROR;
37537:
37538: end if;
37539:
37540: -- Commit if p_commit = FND_API.G_TRUE.
37541: if (p_commit = FND_API.G_TRUE) then
37542: commit;
37543: end if;
37544:
37537:
37538: end if;
37539:
37540: -- Commit if p_commit = FND_API.G_TRUE.
37541: if (p_commit = FND_API.G_TRUE) then
37542: commit;
37543: end if;
37544:
37545: exception
37543: end if;
37544:
37545: exception
37546:
37547: when FND_API.G_EXC_ERROR then
37548: rollback to CREATE_PROGRAM_LINKS_AMG;
37549: x_return_status := FND_API.G_RET_STS_ERROR;
37550: x_msg_count := FND_MSG_PUB.count_msg;
37551:
37545: exception
37546:
37547: when FND_API.G_EXC_ERROR then
37548: rollback to CREATE_PROGRAM_LINKS_AMG;
37549: x_return_status := FND_API.G_RET_STS_ERROR;
37550: x_msg_count := FND_MSG_PUB.count_msg;
37551:
37552: if x_msg_count = 1 then
37553: PA_INTERFACE_UTILS_PUB.get_messages
37550: x_msg_count := FND_MSG_PUB.count_msg;
37551:
37552: if x_msg_count = 1 then
37553: PA_INTERFACE_UTILS_PUB.get_messages
37554: (p_encoded => FND_API.G_FALSE
37555: , p_msg_index => 1
37556: , p_msg_count => x_msg_count
37557: , p_msg_data => x_msg_data
37558: , p_data => x_msg_data
37558: , p_data => x_msg_data
37559: , p_msg_index_out => l_msg_index_out);
37560: end if;
37561:
37562: when FND_API.G_EXC_UNEXPECTED_ERROR then
37563: rollback to CREATE_PROGRAM_LINKS_AMG;
37564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37565: x_msg_count := FND_MSG_PUB.count_msg;
37566:
37560: end if;
37561:
37562: when FND_API.G_EXC_UNEXPECTED_ERROR then
37563: rollback to CREATE_PROGRAM_LINKS_AMG;
37564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37565: x_msg_count := FND_MSG_PUB.count_msg;
37566:
37567: if x_msg_count = 1 then
37568: PA_INTERFACE_UTILS_PUB.get_messages
37565: x_msg_count := FND_MSG_PUB.count_msg;
37566:
37567: if x_msg_count = 1 then
37568: PA_INTERFACE_UTILS_PUB.get_messages
37569: (p_encoded => FND_API.G_FALSE
37570: , p_msg_index => 1
37571: , p_msg_count => x_msg_count
37572: , p_msg_data => x_msg_data
37573: , p_data => x_msg_data
37575: end if;
37576:
37577: when OTHERS then
37578: rollback to CREATE_PROGRAM_LINKS_AMG;
37579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37580: x_msg_count := 1;
37581: x_msg_data := SQLERRM;
37582: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
37583: FND_MSG_PUB.add_exc_msg
37588: end CREATE_PROGRAM_LINKS;
37589:
37590: PROCEDURE UPDATE_PROGRAM_LINK_COMMENTS
37591: (p_api_version IN NUMBER := 1.0
37592: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
37593: , p_commit IN VARCHAR2 := FND_API.G_FALSE
37594: , p_debug_mode IN VARCHAR2 := 'N'
37595: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
37596: , p_program_links_tbl IN PA_PROJECT_PUB.PROGRAM_LINKS_TBL_TYPE
37589:
37590: PROCEDURE UPDATE_PROGRAM_LINK_COMMENTS
37591: (p_api_version IN NUMBER := 1.0
37592: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
37593: , p_commit IN VARCHAR2 := FND_API.G_FALSE
37594: , p_debug_mode IN VARCHAR2 := 'N'
37595: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
37596: , p_program_links_tbl IN PA_PROJECT_PUB.PROGRAM_LINKS_TBL_TYPE
37597: , x_return_status OUT NOCOPY VARCHAR2
37718: -- Establish the save point.
37719: savepoint UPDATE_PROGRAM_LINK_CMNTS_AMG;
37720:
37721: -- Initialize the message table if requested.
37722: if FND_API.TO_BOOLEAN(p_init_msg_list) then
37723: FND_MSG_PUB.initialize;
37724: end if;
37725:
37726: -- Standard call to check for API compatibility.
37723: FND_MSG_PUB.initialize;
37724: end if;
37725:
37726: -- Standard call to check for API compatibility.
37727: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
37728: raise FND_API.G_EXC_UNEXPECTED_ERROR;
37729: end if;
37730:
37731: -- Initialize the return status
37724: end if;
37725:
37726: -- Standard call to check for API compatibility.
37727: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
37728: raise FND_API.G_EXC_UNEXPECTED_ERROR;
37729: end if;
37730:
37731: -- Initialize the return status
37732: x_return_status := FND_API.G_RET_STS_SUCCESS;
37728: raise FND_API.G_EXC_UNEXPECTED_ERROR;
37729: end if;
37730:
37731: -- Initialize the return status
37732: x_return_status := FND_API.G_RET_STS_SUCCESS;
37733:
37734: -- Initialize the error flags.
37735: l_unexp_error_flag := 'N';
37736: l_exp_error_flag := 'N';
37770: , p_pa_project_id => p_program_links_tbl(l_count).parent_project_id
37771: , p_out_project_id => l_parent_project_id
37772: , p_return_status => l_return_status);
37773:
37774: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37775: l_unexp_error_flag := 'Y';
37776: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37777: l_exp_error_flag := 'Y';
37778: end if;
37772: , p_return_status => l_return_status);
37773:
37774: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37775: l_unexp_error_flag := 'Y';
37776: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37777: l_exp_error_flag := 'Y';
37778: end if;
37779: end if;
37780:
37787: , p_structure_type => p_program_links_tbl(l_count).structure_type
37788: , p_out_task_id => l_task_id
37789: , p_return_status => l_return_status);
37790:
37791: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37792: l_unexp_error_flag := 'Y';
37793: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37794: l_exp_error_flag := 'Y';
37795: end if;
37789: , p_return_status => l_return_status);
37790:
37791: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37792: l_unexp_error_flag := 'Y';
37793: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37794: l_exp_error_flag := 'Y';
37795: end if;
37796: end if;
37797:
37834: , p_structure_type => p_program_links_tbl(l_count).structure_type
37835: , p_out_task_id => l_task_id_out
37836: , p_return_status => l_return_status);
37837:
37838: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37839: l_unexp_error_flag := 'Y';
37840: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37841: l_exp_error_flag := 'Y';
37842: end if;
37836: , p_return_status => l_return_status);
37837:
37838: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37839: l_unexp_error_flag := 'Y';
37840: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37841: l_exp_error_flag := 'Y';
37842: end if;
37843: end if;
37844:
37945: , p_msg_data => l_msg_data
37946: , p_return_status => l_return_status
37947: , p_function_allowed => l_function_allowed);
37948:
37949: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37950: l_unexp_error_flag := 'Y';
37951: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37952: l_exp_error_flag := 'Y';
37953: end if;
37947: , p_function_allowed => l_function_allowed);
37948:
37949: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37950: l_unexp_error_flag := 'Y';
37951: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37952: l_exp_error_flag := 'Y';
37953: end if;
37954:
37955: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
37982: , p_msg_data => l_msg_data
37983: , p_return_status => l_return_status
37984: , p_function_allowed => l_function_allowed);
37985:
37986: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37987: l_unexp_error_flag := 'Y';
37988: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37989: l_exp_error_flag := 'Y';
37990: end if;
37984: , p_function_allowed => l_function_allowed);
37985:
37986: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
37987: l_unexp_error_flag := 'Y';
37988: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
37989: l_exp_error_flag := 'Y';
37990: end if;
37991:
37992: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
38010: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
38011: -- Call the API to update the sub-project association.
38012: PA_RELATIONSHIP_PUB.UPDATE_SUBPROJECT_ASSOCIATION
38013: (p_api_version => p_api_version
38014: , p_init_msg_list => FND_API.G_FALSE
38015: , p_calling_module => 'AMG'
38016: , p_max_msg_count => p_max_msg_count
38017: , p_commit => p_commit
38018: , p_debug_mode => p_debug_mode
38022: , x_return_status => l_return_status
38023: , x_msg_count => l_msg_count
38024: , x_msg_data => l_msg_data);
38025:
38026: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38027: l_unexp_error_flag := 'Y';
38028: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38029: l_exp_error_flag := 'Y';
38030: end if;
38024: , x_msg_data => l_msg_data);
38025:
38026: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38027: l_unexp_error_flag := 'Y';
38028: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38029: l_exp_error_flag := 'Y';
38030: end if;
38031: end if;
38032:
38081:
38082: end if;
38083:
38084: PA_INTERFACE_UTILS_PUB.get_messages
38085: (p_encoded => FND_API.G_FALSE -- Get the encoded message.
38086: , p_msg_index => 1 -- Get the message at index 1.
38087: , p_data => l_prog_error_tbl(l_count).error_msg
38088: , p_msg_index_out => l_msg_index_out);
38089:
38096:
38097: if (l_error_count > 0) then
38098:
38099: -- Set the return status to error.
38100: x_return_status := FND_API.G_RET_STS_ERROR;
38101:
38102: -- Clear all previous messages from the message stack.
38103: FND_MSG_PUB.initialize;
38104:
38115: ,'ERRORMSG', l_prog_error_tbl(l).error_msg);
38116: end if;
38117: end loop;
38118:
38119: raise FND_API.G_EXC_ERROR;
38120:
38121: end if;
38122:
38123: -- Commit if p_commit = FND_API.G_TRUE.
38119: raise FND_API.G_EXC_ERROR;
38120:
38121: end if;
38122:
38123: -- Commit if p_commit = FND_API.G_TRUE.
38124: if (p_commit = FND_API.G_TRUE) then
38125: commit;
38126: end if;
38127:
38120:
38121: end if;
38122:
38123: -- Commit if p_commit = FND_API.G_TRUE.
38124: if (p_commit = FND_API.G_TRUE) then
38125: commit;
38126: end if;
38127:
38128: exception
38126: end if;
38127:
38128: exception
38129:
38130: when FND_API.G_EXC_ERROR then
38131: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
38132: x_return_status := FND_API.G_RET_STS_ERROR;
38133: x_msg_count := FND_MSG_PUB.count_msg;
38134:
38128: exception
38129:
38130: when FND_API.G_EXC_ERROR then
38131: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
38132: x_return_status := FND_API.G_RET_STS_ERROR;
38133: x_msg_count := FND_MSG_PUB.count_msg;
38134:
38135: if x_msg_count = 1 then
38136: PA_INTERFACE_UTILS_PUB.get_messages
38133: x_msg_count := FND_MSG_PUB.count_msg;
38134:
38135: if x_msg_count = 1 then
38136: PA_INTERFACE_UTILS_PUB.get_messages
38137: (p_encoded => FND_API.G_FALSE
38138: , p_msg_index => 1
38139: , p_msg_count => x_msg_count
38140: , p_msg_data => x_msg_data
38141: , p_data => x_msg_data
38141: , p_data => x_msg_data
38142: , p_msg_index_out => l_msg_index_out);
38143: end if;
38144:
38145: when FND_API.G_EXC_UNEXPECTED_ERROR then
38146: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
38147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38148: x_msg_count := FND_MSG_PUB.count_msg;
38149:
38143: end if;
38144:
38145: when FND_API.G_EXC_UNEXPECTED_ERROR then
38146: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
38147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38148: x_msg_count := FND_MSG_PUB.count_msg;
38149:
38150: if x_msg_count = 1 then
38151: PA_INTERFACE_UTILS_PUB.get_messages
38148: x_msg_count := FND_MSG_PUB.count_msg;
38149:
38150: if x_msg_count = 1 then
38151: PA_INTERFACE_UTILS_PUB.get_messages
38152: (p_encoded => FND_API.G_FALSE
38153: , p_msg_index => 1
38154: , p_msg_count => x_msg_count
38155: , p_msg_data => x_msg_data
38156: , p_data => x_msg_data
38158: end if;
38159:
38160: when OTHERS then
38161: rollback to UPDATE_PROGRAM_LINK_CMNTS_AMG;
38162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38163: x_msg_count := 1;
38164: x_msg_data := SQLERRM;
38165: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
38166: FND_MSG_PUB.add_exc_msg
38171: end UPDATE_PROGRAM_LINK_COMMENTS;
38172:
38173: PROCEDURE DELETE_PROGRAM_LINK
38174: (p_api_version IN NUMBER := 1.0
38175: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
38176: , p_commit IN VARCHAR2 := FND_API.G_FALSE
38177: , p_debug_mode IN VARCHAR2 := 'N'
38178: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
38179: , p_object_relationship_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
38172:
38173: PROCEDURE DELETE_PROGRAM_LINK
38174: (p_api_version IN NUMBER := 1.0
38175: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
38176: , p_commit IN VARCHAR2 := FND_API.G_FALSE
38177: , p_debug_mode IN VARCHAR2 := 'N'
38178: , p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
38179: , p_object_relationship_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
38180: , p_parent_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
38284: -- Establish the save point.
38285: savepoint DELETE_PROGRAM_LINK_AMG;
38286:
38287: -- Initialize the message table if requested.
38288: if FND_API.TO_BOOLEAN(p_init_msg_list) then
38289: FND_MSG_PUB.initialize;
38290: end if;
38291:
38292: -- Standard call to check for API compatibility.
38289: FND_MSG_PUB.initialize;
38290: end if;
38291:
38292: -- Standard call to check for API compatibility.
38293: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
38294: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38295: end if;
38296:
38297: -- Initialize the return status
38290: end if;
38291:
38292: -- Standard call to check for API compatibility.
38293: if NOT FND_API.Compatible_API_Call (g_api_version_number, p_api_version, l_api_name, G_PKG_NAME) then
38294: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38295: end if;
38296:
38297: -- Initialize the return status
38298: x_return_status := FND_API.G_RET_STS_SUCCESS;
38294: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38295: end if;
38296:
38297: -- Initialize the return status
38298: x_return_status := FND_API.G_RET_STS_SUCCESS;
38299:
38300: -- If object relationship id is not passed in.
38301: if ((p_object_relationship_id is null)
38302: or (p_object_relationship_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)) then
38311: , p_pa_project_id => p_parent_project_id
38312: , p_out_project_id => l_parent_project_id
38313: , p_return_status => l_return_status);
38314:
38315: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38317: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38318: raise FND_API.G_EXC_ERROR;
38319: end if;
38312: , p_out_project_id => l_parent_project_id
38313: , p_return_status => l_return_status);
38314:
38315: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38317: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38318: raise FND_API.G_EXC_ERROR;
38319: end if;
38320:
38313: , p_return_status => l_return_status);
38314:
38315: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38317: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38318: raise FND_API.G_EXC_ERROR;
38319: end if;
38320:
38321: -- Convert task reference to id
38314:
38315: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38317: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38318: raise FND_API.G_EXC_ERROR;
38319: end if;
38320:
38321: -- Convert task reference to id
38322: PA_PROJECT_PVT.CONVERT_PM_TASKREF_TO_ID_ALL
38326: , p_structure_type => p_structure_type
38327: , p_out_task_id => l_task_id
38328: , p_return_status => l_return_status);
38329:
38330: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38331: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38332: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38333: raise FND_API.G_EXC_ERROR;
38334: end if;
38327: , p_out_task_id => l_task_id
38328: , p_return_status => l_return_status);
38329:
38330: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38331: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38332: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38333: raise FND_API.G_EXC_ERROR;
38334: end if;
38335:
38328: , p_return_status => l_return_status);
38329:
38330: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38331: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38332: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38333: raise FND_API.G_EXC_ERROR;
38334: end if;
38335:
38336: -- Find the task version id in the current working workplan structure version.
38329:
38330: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38331: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38332: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38333: raise FND_API.G_EXC_ERROR;
38334: end if;
38335:
38336: -- Find the task version id in the current working workplan structure version.
38337: open l_cur_task_ver_id(l_task_id, p_structure_type);
38340:
38341: -- Validate that the task has a version in the specified structure type.
38342: if (l_task_version_id is null) then
38343: PA_UTILS.ADD_MESSAGE('PA','PA_TASK_ID_INVALID');
38344: raise FND_API.G_EXC_ERROR;
38345: end if;
38346:
38347: -- If task version id is passed in.
38348: else
38351: open l_cur_project_id2(l_task_version_id);
38352: fetch l_cur_project_id2 into l_parent_project_id, l_task_id;
38353: if l_cur_project_id2%NOTFOUND then
38354: PA_UTILS.ADD_MESSAGE('PA','PA_TASK_VERSION_REQUIRED');
38355: raise FND_API.G_EXC_ERROR;
38356: end if;
38357: close l_cur_project_id2;
38358:
38359: -- Validate the task id and project id of the task version id.
38363: , p_structure_type => p_structure_type
38364: , p_out_task_id => l_task_id_out
38365: , p_return_status => l_return_status);
38366:
38367: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38368: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38369: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38370: raise FND_API.G_EXC_ERROR;
38371: end if;
38364: , p_out_task_id => l_task_id_out
38365: , p_return_status => l_return_status);
38366:
38367: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38368: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38369: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38370: raise FND_API.G_EXC_ERROR;
38371: end if;
38372:
38365: , p_return_status => l_return_status);
38366:
38367: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38368: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38369: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38370: raise FND_API.G_EXC_ERROR;
38371: end if;
38372:
38373: end if;
38366:
38367: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38368: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38369: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38370: raise FND_API.G_EXC_ERROR;
38371: end if;
38372:
38373: end if;
38374:
38404:
38405: if (l_sub_project_id is null) then
38406:
38407: PA_UTILS.ADD_MESSAGE('PA','PA_INV_PROJECT_ID');
38408: raise FND_API.G_EXC_ERROR;
38409:
38410: end if;
38411:
38412: open l_cur_por1(l_task_version_id, l_sub_project_id, p_structure_type);
38433: ,'STR', p_structure_type);
38434:
38435: close l_cur_por1;
38436:
38437: RAISE FND_API.G_EXC_ERROR;
38438: end if;
38439:
38440: close l_cur_por1;
38441:
38450: ,'OBJRELID', p_object_relationship_id);
38451:
38452: close l_cur_por2;
38453:
38454: RAISE FND_API.G_EXC_ERROR;
38455: end if;
38456:
38457: close l_cur_por2;
38458: end if;
38470: , p_msg_data => l_msg_data
38471: , p_return_status => l_return_status
38472: , p_function_allowed => l_function_allowed);
38473:
38474: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38475: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38476: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38477: raise FND_API.G_EXC_ERROR;
38478: end if;
38471: , p_return_status => l_return_status
38472: , p_function_allowed => l_function_allowed);
38473:
38474: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38475: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38476: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38477: raise FND_API.G_EXC_ERROR;
38478: end if;
38479:
38472: , p_function_allowed => l_function_allowed);
38473:
38474: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38475: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38476: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38477: raise FND_API.G_EXC_ERROR;
38478: end if;
38479:
38480: if l_function_allowed = 'N' then
38473:
38474: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38475: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38476: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38477: raise FND_API.G_EXC_ERROR;
38478: end if;
38479:
38480: if l_function_allowed = 'N' then
38481: pa_interface_utils_pub.map_new_amg_msg
38487: , p_attribute2 => ''
38488: , p_attribute3 => ''
38489: , p_attribute4 => ''
38490: , p_attribute5 => '');
38491: raise FND_API.G_EXC_ERROR;
38492: end if;
38493: end if;
38494:
38495: if (p_structure_type = 'FINANCIAL'
38502: , p_msg_data => l_msg_data
38503: , p_return_status => l_return_status
38504: , p_function_allowed => l_function_allowed);
38505:
38506: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38507: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38508: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38509: raise FND_API.G_EXC_ERROR;
38510: end if;
38503: , p_return_status => l_return_status
38504: , p_function_allowed => l_function_allowed);
38505:
38506: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38507: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38508: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38509: raise FND_API.G_EXC_ERROR;
38510: end if;
38511:
38504: , p_function_allowed => l_function_allowed);
38505:
38506: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38507: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38508: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38509: raise FND_API.G_EXC_ERROR;
38510: end if;
38511:
38512: if l_function_allowed = 'N' then
38505:
38506: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38507: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38508: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38509: raise FND_API.G_EXC_ERROR;
38510: end if;
38511:
38512: if l_function_allowed = 'N' then
38513: pa_interface_utils_pub.map_new_amg_msg
38519: , p_attribute2 => ''
38520: , p_attribute3 => ''
38521: , p_attribute4 => ''
38522: , p_attribute5 => '');
38523: raise FND_API.G_EXC_ERROR;
38524: end if;
38525: end if;
38526:
38527: -- Call the API to delete the sub-project association.
38537: , x_return_status => l_return_status
38538: , x_msg_count => l_msg_count
38539: , x_msg_data => l_msg_data);
38540:
38541: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38542: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38543: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38544: raise FND_API.G_EXC_ERROR;
38545: end if;
38538: , x_msg_count => l_msg_count
38539: , x_msg_data => l_msg_data);
38540:
38541: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38542: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38543: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38544: raise FND_API.G_EXC_ERROR;
38545: end if;
38546:
38539: , x_msg_data => l_msg_data);
38540:
38541: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38542: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38543: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38544: raise FND_API.G_EXC_ERROR;
38545: end if;
38546:
38547: -- Commit if p_commit = FND_API.G_TRUE.
38540:
38541: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
38542: raise FND_API.G_EXC_UNEXPECTED_ERROR;
38543: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38544: raise FND_API.G_EXC_ERROR;
38545: end if;
38546:
38547: -- Commit if p_commit = FND_API.G_TRUE.
38548: if (p_commit = FND_API.G_TRUE) then
38543: elsif (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
38544: raise FND_API.G_EXC_ERROR;
38545: end if;
38546:
38547: -- Commit if p_commit = FND_API.G_TRUE.
38548: if (p_commit = FND_API.G_TRUE) then
38549: commit;
38550: end if;
38551:
38544: raise FND_API.G_EXC_ERROR;
38545: end if;
38546:
38547: -- Commit if p_commit = FND_API.G_TRUE.
38548: if (p_commit = FND_API.G_TRUE) then
38549: commit;
38550: end if;
38551:
38552: exception
38550: end if;
38551:
38552: exception
38553:
38554: when FND_API.G_EXC_ERROR then
38555: rollback to DELETE_PROGRAM_LINK_AMG;
38556: x_return_status := FND_API.G_RET_STS_ERROR;
38557: x_msg_count := FND_MSG_PUB.count_msg;
38558:
38552: exception
38553:
38554: when FND_API.G_EXC_ERROR then
38555: rollback to DELETE_PROGRAM_LINK_AMG;
38556: x_return_status := FND_API.G_RET_STS_ERROR;
38557: x_msg_count := FND_MSG_PUB.count_msg;
38558:
38559: if x_msg_count = 1 then
38560: PA_INTERFACE_UTILS_PUB.get_messages
38557: x_msg_count := FND_MSG_PUB.count_msg;
38558:
38559: if x_msg_count = 1 then
38560: PA_INTERFACE_UTILS_PUB.get_messages
38561: (p_encoded => FND_API.G_FALSE
38562: , p_msg_index => 1
38563: , p_msg_count => x_msg_count
38564: , p_msg_data => x_msg_data
38565: , p_data => x_msg_data
38565: , p_data => x_msg_data
38566: , p_msg_index_out => l_msg_index_out);
38567: end if;
38568:
38569: when FND_API.G_EXC_UNEXPECTED_ERROR then
38570: rollback to DELETE_PROGRAM_LINK_AMG;
38571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38572: x_msg_count := FND_MSG_PUB.count_msg;
38573:
38567: end if;
38568:
38569: when FND_API.G_EXC_UNEXPECTED_ERROR then
38570: rollback to DELETE_PROGRAM_LINK_AMG;
38571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38572: x_msg_count := FND_MSG_PUB.count_msg;
38573:
38574: if x_msg_count = 1 then
38575: PA_INTERFACE_UTILS_PUB.get_messages
38572: x_msg_count := FND_MSG_PUB.count_msg;
38573:
38574: if x_msg_count = 1 then
38575: PA_INTERFACE_UTILS_PUB.get_messages
38576: (p_encoded => FND_API.G_FALSE
38577: , p_msg_index => 1
38578: , p_msg_count => x_msg_count
38579: , p_msg_data => x_msg_data
38580: , p_data => x_msg_data
38582: end if;
38583:
38584: when OTHERS then
38585: rollback to DELETE_PROGRAM_LINK_AMG;
38586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38587: x_msg_count := 1;
38588: x_msg_data := SQLERRM;
38589: if FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
38590: FND_MSG_PUB.add_exc_msg
38671: END IF;
38672: END LOOP;
38673: END LOOP;
38674:
38675: x_return_status := FND_API.G_RET_STS_SUCCESS;
38676:
38677: EXCEPTION
38678:
38679: WHEN FND_API.G_EXC_ERROR THEN
38675: x_return_status := FND_API.G_RET_STS_SUCCESS;
38676:
38677: EXCEPTION
38678:
38679: WHEN FND_API.G_EXC_ERROR THEN
38680:
38681: x_return_status := FND_API.G_RET_STS_ERROR;
38682:
38683:
38677: EXCEPTION
38678:
38679: WHEN FND_API.G_EXC_ERROR THEN
38680:
38681: x_return_status := FND_API.G_RET_STS_ERROR;
38682:
38683:
38684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
38685:
38680:
38681: x_return_status := FND_API.G_RET_STS_ERROR;
38682:
38683:
38684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
38685:
38686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38687:
38688: WHEN OTHERS THEN
38682:
38683:
38684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
38685:
38686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38687:
38688: WHEN OTHERS THEN
38689:
38690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38687:
38688: WHEN OTHERS THEN
38689:
38690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
38691:
38692: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
38693: THEN
38694: FND_MSG_PUB.add_exc_msg
38702:
38703: -- Added BULK_UPDATE_TASKS_LITE api for Huawei enhancement bug 13923366 by skkoppul
38704: PROCEDURE BULK_UPDATE_TASKS_LITE
38705: ( p_api_version_number IN NUMBER
38706: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
38707: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
38708: ,x_msg_count OUT NOCOPY NUMBER
38709: ,x_msg_data OUT NOCOPY VARCHAR2
38710: ,x_return_status OUT NOCOPY VARCHAR2
38703: -- Added BULK_UPDATE_TASKS_LITE api for Huawei enhancement bug 13923366 by skkoppul
38704: PROCEDURE BULK_UPDATE_TASKS_LITE
38705: ( p_api_version_number IN NUMBER
38706: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
38707: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
38708: ,x_msg_count OUT NOCOPY NUMBER
38709: ,x_msg_data OUT NOCOPY VARCHAR2
38710: ,x_return_status OUT NOCOPY VARCHAR2
38711: ,p_project_id IN NUMBER
38761: exception
38762: when no_data_found then
38763: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38764: p_msg_name => 'PA_LITE_API_CANT_USE');
38765: RAISE FND_API.G_EXC_ERROR;
38766: when others then
38767:
38768: raise;
38769: end;
38767:
38768: raise;
38769: end;
38770:
38771: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
38772: FND_MSG_PUB.Initialize;
38773: END IF;
38774:
38775: OPEN get_project_details_csr (p_project_id);
38780: IF NVL(l_project_details_rec.structure_sharing_code,' ') <> 'SHARE_FULL'
38781: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id),'N') = 'Y' THEN
38782: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38783: p_msg_name => 'PA_CANT_USE_LITE_API');
38784: RAISE FND_API.G_EXC_ERROR;
38785: END IF;
38786:
38787: l_project_in_rec.pm_project_reference := l_project_details_rec.pm_project_reference;
38788: l_project_in_rec.pa_project_number := l_project_details_rec.segment1;
38810: IF l_return_status <> 'S'
38811: THEN
38812: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38813: p_msg_name =>'PA_CANT_USE_LITE_API' );
38814: RAISE FND_API.G_EXC_ERROR;
38815: ELSE
38816: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_project_id,l_structure_version_id,'UPDATE');
38817: END IF;
38818: END IF;
38942: p_update_mode => p_update_mode);
38943: IF l_return_status <> 'S' THEN
38944: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38945: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
38946: RAISE FND_API.G_EXC_ERROR;
38947: END IF;
38948: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38949: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38950: END IF;
38962: PA_PROJECT_PUB.G_BULK_UPDATE_MODE := NULL;
38963:
38964: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
38965:
38966: IF (FND_API.to_boolean( p_commit )) THEN
38967: COMMIT WORK;
38968: END IF;
38969: x_return_status := FND_API.G_RET_STS_SUCCESS;
38970:
38965:
38966: IF (FND_API.to_boolean( p_commit )) THEN
38967: COMMIT WORK;
38968: END IF;
38969: x_return_status := FND_API.G_RET_STS_SUCCESS;
38970:
38971: EXCEPTION
38972: WHEN FND_API.G_EXC_ERROR THEN
38973: x_return_status := FND_API.G_RET_STS_ERROR ;
38968: END IF;
38969: x_return_status := FND_API.G_RET_STS_SUCCESS;
38970:
38971: EXCEPTION
38972: WHEN FND_API.G_EXC_ERROR THEN
38973: x_return_status := FND_API.G_RET_STS_ERROR ;
38974: ROLLBACK TO BULK_UPDATE_TASKS_LITE;
38975:
38976: FND_MSG_PUB.Count_And_Get
38969: x_return_status := FND_API.G_RET_STS_SUCCESS;
38970:
38971: EXCEPTION
38972: WHEN FND_API.G_EXC_ERROR THEN
38973: x_return_status := FND_API.G_RET_STS_ERROR ;
38974: ROLLBACK TO BULK_UPDATE_TASKS_LITE;
38975:
38976: FND_MSG_PUB.Count_And_Get
38977: ( p_count => x_msg_count ,
38979: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38980: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38981: END IF;
38982:
38983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
38984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
38985: ROLLBACK TO BULK_UPDATE_TASKS_LITE;
38986:
38987: FND_MSG_PUB.Count_And_Get
38980: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38981: END IF;
38982:
38983: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
38984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
38985: ROLLBACK TO BULK_UPDATE_TASKS_LITE;
38986:
38987: FND_MSG_PUB.Count_And_Get
38988: ( p_count => x_msg_count ,
38992: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
38993: END IF;
38994:
38995: WHEN OTHERS THEN
38996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
38997: ROLLBACK TO BULK_UPDATE_TASKS_LITE;
38998:
38999: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
39000: FND_MSG_PUB.add_exc_msg
39014:
39015: -- Added BULK_ADD_TASKS_LITE api for Huawei enhancement bug 13923366 by skkoppul
39016: PROCEDURE BULK_ADD_TASKS_LITE
39017: ( p_api_version_number IN NUMBER
39018: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
39019: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
39020: ,x_msg_count OUT NOCOPY NUMBER
39021: ,x_msg_data OUT NOCOPY VARCHAR2
39022: ,x_return_status OUT NOCOPY VARCHAR2
39015: -- Added BULK_ADD_TASKS_LITE api for Huawei enhancement bug 13923366 by skkoppul
39016: PROCEDURE BULK_ADD_TASKS_LITE
39017: ( p_api_version_number IN NUMBER
39018: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
39019: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
39020: ,x_msg_count OUT NOCOPY NUMBER
39021: ,x_msg_data OUT NOCOPY VARCHAR2
39022: ,x_return_status OUT NOCOPY VARCHAR2
39023: ,p_project_id IN NUMBER
39077: exception
39078: when no_data_found then
39079: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39080: p_msg_name => 'PA_LITE_API_CANT_USE');
39081: RAISE FND_API.G_EXC_ERROR;
39082: when others then
39083:
39084: raise;
39085: end;
39083:
39084: raise;
39085: end;
39086:
39087: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
39088: FND_MSG_PUB.Initialize;
39089: END IF;
39090:
39091: OPEN get_project_details_csr (p_project_id);
39103: IF NVL(l_project_details_rec.structure_sharing_code,' ') <> 'SHARE_FULL'
39104: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id),'N') = 'Y' THEN
39105: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39106: p_msg_name => 'PA_CANT_USE_LITE_API');
39107: RAISE FND_API.G_EXC_ERROR;
39108: END IF;
39109:
39110: PA_PROJECT_PUB.G_MASS_ADD_TASKS := 'Y';
39111: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := NULL;
39132: IF l_return_status <> 'S'
39133: THEN
39134: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39135: p_msg_name =>l_msg_data );
39136: RAISE FND_API.G_EXC_ERROR;
39137: ELSE
39138: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_project_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD');
39139: END IF;
39140: END IF;
39239: );
39240: IF l_return_status <> 'S' THEN
39241: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39242: p_msg_name => 'PA_ERROR_ADDING_TASKS');
39243: RAISE FND_API.G_EXC_ERROR;
39244: ELSE
39245: IF(p_commit=FND_API.G_TRUE) THEN
39246: commit;
39247: SAVEPOINT BULK_ADD_TASKS_LITE;
39241: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39242: p_msg_name => 'PA_ERROR_ADDING_TASKS');
39243: RAISE FND_API.G_EXC_ERROR;
39244: ELSE
39245: IF(p_commit=FND_API.G_TRUE) THEN
39246: commit;
39247: SAVEPOINT BULK_ADD_TASKS_LITE;
39248: END IF;
39249: p_tasks_out(j).pa_task_id:=l_task_id;
39333: );
39334: IF l_return_status <> 'S' THEN
39335: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39336: p_msg_name => 'PA_ERROR_ADDING_TASKS');
39337: RAISE FND_API.G_EXC_ERROR;
39338: ELSE
39339: IF(p_commit=FND_API.G_TRUE) THEN
39340: commit;
39341: SAVEPOINT BULK_ADD_TASKS_LITE;
39335: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39336: p_msg_name => 'PA_ERROR_ADDING_TASKS');
39337: RAISE FND_API.G_EXC_ERROR;
39338: ELSE
39339: IF(p_commit=FND_API.G_TRUE) THEN
39340: commit;
39341: SAVEPOINT BULK_ADD_TASKS_LITE;
39342: END IF;
39343: p_tasks_out(j).pa_task_id:=l_task_id;
39482: p_update_mode => p_update_mode);
39483: IF l_return_status <> 'S' THEN
39484: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39485: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
39486: RAISE FND_API.G_EXC_ERROR;
39487: END IF;
39488: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD_FIRST');
39489: --PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39490:
39503:
39504: IF l_return_status <> 'S' THEN
39505: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39506: p_msg_name => 'PA_ERROR_REFRESHING_STRUCTURE');
39507: RAISE FND_API.G_EXC_ERROR;
39508: END IF;
39509: END IF;
39510:
39511: -- reset all global variables with NULL
39523: PA_PROJECT_PUB.G_STRUC_VERSION_ID := NULL;
39524:
39525: PA_PROJECT_PUB.G_FP_DFF_TBL.delete;
39526:
39527: IF (FND_API.to_boolean( p_commit )) THEN
39528: COMMIT WORK;
39529: END IF;
39530:
39531: x_return_status := FND_API.G_RET_STS_SUCCESS;
39527: IF (FND_API.to_boolean( p_commit )) THEN
39528: COMMIT WORK;
39529: END IF;
39530:
39531: x_return_status := FND_API.G_RET_STS_SUCCESS;
39532:
39533: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39534: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39535: END IF;
39534: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39535: END IF;
39536:
39537: EXCEPTION
39538: WHEN FND_API.G_EXC_ERROR THEN
39539: x_return_status := FND_API.G_RET_STS_ERROR ;
39540: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39541: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39542: END IF;
39535: END IF;
39536:
39537: EXCEPTION
39538: WHEN FND_API.G_EXC_ERROR THEN
39539: x_return_status := FND_API.G_RET_STS_ERROR ;
39540: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39541: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39542: END IF;
39543: ROLLBACK TO BULK_ADD_TASKS_LITE;
39546: ( p_count => x_msg_count ,
39547: p_data => x_msg_data );
39548:
39549:
39550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
39551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
39552: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39553: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39554: END IF;
39547: p_data => x_msg_data );
39548:
39549:
39550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
39551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
39552: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39553: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39554: END IF;
39555: ROLLBACK TO BULK_ADD_TASKS_LITE;
39559: p_data => x_msg_data );
39560:
39561:
39562: WHEN OTHERS THEN
39563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
39564: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39565: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
39566: END IF;
39567: ROLLBACK TO BULK_ADD_TASKS_LITE;
39580:
39581: -- Added new api BULK_MOVE_TASKS_LITE for Huawei enhancement - bug 13923366 by skkoppul
39582: PROCEDURE BULK_MOVE_TASKS_LITE
39583: ( p_api_version IN NUMBER := 1.0,
39584: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
39585: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39586: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
39587: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
39588: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
39581: -- Added new api BULK_MOVE_TASKS_LITE for Huawei enhancement - bug 13923366 by skkoppul
39582: PROCEDURE BULK_MOVE_TASKS_LITE
39583: ( p_api_version IN NUMBER := 1.0,
39584: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
39585: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39586: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
39587: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
39588: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
39589: p_debug_mode IN VARCHAR2 := 'N',
39582: PROCEDURE BULK_MOVE_TASKS_LITE
39583: ( p_api_version IN NUMBER := 1.0,
39584: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
39585: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39586: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
39587: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
39588: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
39589: p_debug_mode IN VARCHAR2 := 'N',
39590: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
39583: ( p_api_version IN NUMBER := 1.0,
39584: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
39585: p_commit IN VARCHAR2 := FND_API.G_FALSE,
39586: p_validate_only IN VARCHAR2 := FND_API.G_TRUE,
39587: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
39588: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
39589: p_debug_mode IN VARCHAR2 := 'N',
39590: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
39591: p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
39682: BEGIN
39683:
39684: pa_debug.init_err_stack ('PA_PROJECT_PUB.BULK_MOVE_TASKS_LITE');
39685:
39686: x_return_status := FND_API.G_RET_STS_SUCCESS ;
39687:
39688:
39689:
39690: -- Set the G_ROLLUP_FLAG based on profile options
39700: IF (p_debug_mode = 'Y') THEN
39701: pa_debug.debug('PA_PROJECT_PUB.BULK_MOVE_TASKS_LITE begin');
39702: END IF;
39703:
39704: IF (p_commit = FND_API.G_TRUE) THEN
39705: savepoint BULK_MOVE_TASKS_LITE ;
39706: END IF;
39707:
39708: /* Added below block to ensure that the new API's are controlled by Dev*/
39715: exception
39716: when no_data_found then
39717: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39718: p_msg_name => 'PA_LITE_API_CANT_USE');
39719: RAISE FND_API.G_EXC_ERROR;
39720: when others then
39721:
39722: raise;
39723: end;
39725: IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(l_project_id),' ') <> 'SHARE_FULL'
39726: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_project_id),'N') = 'Y' THEN
39727: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39728: p_msg_name => 'PA_CANT_USE_LITE_API');
39729: RAISE FND_API.G_EXC_ERROR;
39730: END IF;
39731: -- Set the G_ROLLUP_FLAG based on profile options
39732: PA_PROJECT_PUB.G_ROLLUP_DEFER:=NVL(fnd_profile.value('G_ROLLUP_DEFER'),'N');
39733: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39735: IF l_return_status <> 'S'
39736: THEN
39737: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39738: p_msg_name =>l_msg_data );
39739: RAISE FND_API.G_EXC_ERROR;
39740: ELSE
39741: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(l_project_id,p_structure_version_id,'MOVE');
39742: --PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(l_project_id,p_ref_task_version_id,p_structure_version_id,'MOVE');
39743: --Loop through and update log event for all the tasks
39746: END LOOP;
39747: END IF;
39748: END IF;
39749:
39750: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
39751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39752: END IF;
39753:
39754: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
39747: END IF;
39748: END IF;
39749:
39750: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
39751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39752: END IF;
39753:
39754: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
39755: FND_MSG_PUB.initialize;
39750: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
39751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39752: END IF;
39753:
39754: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
39755: FND_MSG_PUB.initialize;
39756: END IF;
39757: IF p_calling_module = 'SELF_SERVICE' THEN
39758:
39791: END IF;
39792: IF l_update_parent_task_allowed = 'N' THEN
39793: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39794: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
39795: raise FND_API.G_EXC_ERROR;
39796: END IF;
39797: End If;
39798:
39799: End If; /* End if calling module is self service*/
39835:
39836: IF nvl(p_task_version_id_tbl.LAST,0)>0 THEN
39837: FOR i IN p_task_version_id_tbl.FIRST..p_task_version_id_tbl.LAST LOOP
39838: PA_TASK_PUB1.Move_Task_Version(
39839: p_init_msg_list => FND_API.G_FALSE,
39840: p_structure_version_id => p_structure_version_id,
39841: p_task_version_id => p_task_version_id_tbl(i),
39842: p_ref_task_version_id => ref_task_temp_version_id,
39843: p_peer_or_sub => p_peer_or_sub,
39856: x_return_status => x_return_status,
39857: x_msg_count => x_msg_count,
39858: x_msg_data => x_msg_data
39859: );
39860: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
39861: RAISE FND_API.G_EXC_ERROR ;
39862: END IF;
39863: ref_task_temp_version_id := p_task_version_id_tbl(i);
39864: END LOOP;
39857: x_msg_count => x_msg_count,
39858: x_msg_data => x_msg_data
39859: );
39860: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
39861: RAISE FND_API.G_EXC_ERROR ;
39862: END IF;
39863: ref_task_temp_version_id := p_task_version_id_tbl(i);
39864: END LOOP;
39865:
39867: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39868: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39869: END IF;
39870:
39871: IF (p_commit = FND_API.G_TRUE) THEN
39872: COMMIT;
39873: END IF;
39874:
39875: EXCEPTION
39872: COMMIT;
39873: END IF;
39874:
39875: EXCEPTION
39876: when FND_API.G_EXC_ERROR then
39877: if p_commit = FND_API.G_TRUE then
39878: rollback to BULK_MOVE_TASKS_LITE;
39879: end if;
39880: x_return_status := FND_API.G_RET_STS_ERROR;
39873: END IF;
39874:
39875: EXCEPTION
39876: when FND_API.G_EXC_ERROR then
39877: if p_commit = FND_API.G_TRUE then
39878: rollback to BULK_MOVE_TASKS_LITE;
39879: end if;
39880: x_return_status := FND_API.G_RET_STS_ERROR;
39881: x_msg_count := Fnd_Msg_Pub.count_msg;
39876: when FND_API.G_EXC_ERROR then
39877: if p_commit = FND_API.G_TRUE then
39878: rollback to BULK_MOVE_TASKS_LITE;
39879: end if;
39880: x_return_status := FND_API.G_RET_STS_ERROR;
39881: x_msg_count := Fnd_Msg_Pub.count_msg;
39882:
39883: IF x_msg_count = 1 AND x_msg_data IS NULL
39884: THEN
39882:
39883: IF x_msg_count = 1 AND x_msg_data IS NULL
39884: THEN
39885: Pa_Interface_Utils_Pub.get_messages
39886: ( p_encoded => Fnd_Api.G_FALSE
39887: , p_msg_index => 1
39888: , p_msg_count => l_msg_count
39889: , p_msg_data => l_msg_data
39890: , p_data => l_data
39897: FND_MSG_PUB.Count_And_Get
39898: ( p_count => x_msg_count ,
39899: p_data => x_msg_data );
39900:
39901: when FND_API.G_EXC_UNEXPECTED_ERROR then
39902: if p_commit = FND_API.G_TRUE then
39903: rollback to BULK_MOVE_TASKS_LITE;
39904: end if;
39905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39898: ( p_count => x_msg_count ,
39899: p_data => x_msg_data );
39900:
39901: when FND_API.G_EXC_UNEXPECTED_ERROR then
39902: if p_commit = FND_API.G_TRUE then
39903: rollback to BULK_MOVE_TASKS_LITE;
39904: end if;
39905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39906: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39901: when FND_API.G_EXC_UNEXPECTED_ERROR then
39902: if p_commit = FND_API.G_TRUE then
39903: rollback to BULK_MOVE_TASKS_LITE;
39904: end if;
39905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39906: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39907: p_procedure_name => l_api_name,
39908: p_error_text => SUBSTRB(SQLERRM,1,240));
39909: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39909: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39910: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(l_project_id);
39911: END IF;
39912: when OTHERS then
39913: if p_commit = FND_API.G_TRUE then
39914: rollback to BULK_MOVE_TASKS_LITE;
39915: end if;
39916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39917: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39912: when OTHERS then
39913: if p_commit = FND_API.G_TRUE then
39914: rollback to BULK_MOVE_TASKS_LITE;
39915: end if;
39916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
39917: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
39918: p_procedure_name => l_api_name,
39919: p_error_text => SUBSTRB(SQLERRM,1,240));
39920: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39928:
39929: -- Added new api BULK_INDENT_TASKS_LITE for Huawei enhancement - bug 13923366 by skkoppul
39930: PROCEDURE BULK_INDENT_TASKS_LITE (
39931: p_api_version IN NUMBER :=1.0,
39932: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
39933: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
39934: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
39935: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
39936: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
39929: -- Added new api BULK_INDENT_TASKS_LITE for Huawei enhancement - bug 13923366 by skkoppul
39930: PROCEDURE BULK_INDENT_TASKS_LITE (
39931: p_api_version IN NUMBER :=1.0,
39932: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
39933: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
39934: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
39935: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
39936: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
39937: p_debug_mode IN VARCHAR2 :='N',
39930: PROCEDURE BULK_INDENT_TASKS_LITE (
39931: p_api_version IN NUMBER :=1.0,
39932: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
39933: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
39934: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
39935: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
39936: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
39937: p_debug_mode IN VARCHAR2 :='N',
39938: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
39931: p_api_version IN NUMBER :=1.0,
39932: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
39933: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
39934: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
39935: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
39936: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
39937: p_debug_mode IN VARCHAR2 :='N',
39938: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
39939: p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
40210: IF (p_debug_mode = 'Y') THEN
40211: pa_debug.debug('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE begin');
40212: END IF;
40213:
40214: IF (p_commit = FND_API.G_TRUE) THEN
40215: savepoint BULK_INDENT_TASKS_LITE;
40216: END IF;
40217:
40218: /* Added below block to ensure that the new API's are controlled by Dev*/
40225: exception
40226: when no_data_found then
40227: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40228: p_msg_name => 'PA_LITE_API_CANT_USE');
40229: RAISE FND_API.G_EXC_ERROR;
40230: when others then
40231:
40232: raise;
40233: end;
40235: IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id),' ') <> 'SHARE_FULL'
40236: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id),'N') = 'Y' THEN
40237: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40238: p_msg_name => 'PA_CANT_USE_LITE_API');
40239: RAISE FND_API.G_EXC_ERROR;
40240: END IF;
40241:
40242: -- Set the G_ROLLUP_FLAG based on profile options
40243: --IF(p_calling_module = 'AMG') THEN
40249: IF l_return_status <> 'S'
40250: THEN
40251: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40252: p_msg_name =>l_msg_data );
40253: RAISE FND_API.G_EXC_ERROR;
40254: ELSE
40255: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_project_id,p_structure_version_id,'INDENT');
40256: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,p_task_version_id,p_structure_version_id,'INDENT');
40257: END IF;
40256: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,p_task_version_id,p_structure_version_id,'INDENT');
40257: END IF;
40258: END IF;
40259:
40260: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
40261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40262: END IF;
40263:
40264: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
40257: END IF;
40258: END IF;
40259:
40260: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
40261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40262: END IF;
40263:
40264: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
40265: FND_MSG_PUB.initialize;
40260: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
40261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
40262: END IF;
40263:
40264: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
40265: FND_MSG_PUB.initialize;
40266: END IF;
40267:
40268: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
40308: END IF;
40309: IF l_update_parent_task_allowed = 'N' THEN
40310: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40311: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
40312: raise FND_API.G_EXC_ERROR;
40313: END IF;
40314: END IF;
40315: END IF;
40316:
40334: , src_proj_element_id
40335: , p_task_version_id),'N') = 'Y') THEN
40336: --deleting linked task. Error
40337: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_IND_LINKED_TASK');
40338: raise FND_API.G_EXC_ERROR;
40339: END IF;
40340: END IF;
40341:
40342: -- Get Source Task Information
40361: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
40362: src_proj_element_id)) THEN
40363: --Indenting a task with phase. Error
40364: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
40365: raise FND_API.G_EXC_ERROR;
40366: END IF;
40367: END IF;
40368:
40369:
40369:
40370: IF src_seq_number = 1 then
40371: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
40372: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
40373: raise FND_API.G_EXC_ERROR;
40374: END IF;
40375:
40376: /* Bug 2843737 Added logic to populate the error message when you try to indent lowest task
40377: Also restructured the logic to get the reference task */
40389:
40390: IF src_wbs_level > ref_wbs_level then
40391: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
40392: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
40393: raise FND_API.G_EXC_ERROR;
40394: END IF;
40395:
40396: IF src_wbs_level = ref_wbs_level then
40397: l_peer_or_sub := 'SUB';
40426:
40427: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_ref_tsk_version_id) = 'Y' THEN
40428: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40429: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
40430: raise FND_API.G_EXC_ERROR;
40431: END IF;
40432:
40433: --Check if ok to indent this task
40434: PA_PROJ_ELEMENTS_UTILS.Check_move_task_ok(
40439:
40440: IF (l_return_status <> 'Y') THEN
40441: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40442: p_msg_name => l_error_msg_code);
40443: raise FND_API.G_EXC_ERROR;
40444: END IF;
40445:
40446: --check if ok to create subtask
40447: IF (l_peer_or_sub = 'PEER') THEN
40462:
40463: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
40464: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40465: p_msg_name => 'PA_CANT_CHANGE_PARENT');
40466: raise FND_API.G_EXC_ERROR;
40467: END IF;
40468: END IF;
40469: --end bug 3069306
40470:
40476:
40477: IF (l_return_status <> 'Y') THEN
40478: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40479: p_msg_name => l_error_msg_code);
40480: raise FND_API.G_EXC_ERROR;
40481: END IF;
40482:
40483: --bug 4099488
40484: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(l_parent_ver_id, p_task_version_id) = 'N' THEN
40483: --bug 4099488
40484: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(l_parent_ver_id, p_task_version_id) = 'N' THEN
40485: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40486: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
40487: raise FND_API.G_EXC_ERROR;
40488: END IF;
40489: --end bug 4099488
40490: ELSE
40491: --bug 3069306
40501:
40502: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
40503: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40504: p_msg_name => 'PA_CANT_CHANGE_PARENT');
40505: raise FND_API.G_EXC_ERROR;
40506: END IF;
40507: END IF;
40508: --end bug 3069306
40509:
40516:
40517: IF (l_return_status <> 'Y') THEN
40518: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40519: p_msg_name => l_error_msg_code);
40520: raise FND_API.G_EXC_ERROR;
40521: END IF;
40522:
40523: --bug 4099488
40524: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(ref_elem_ver_id, p_task_version_id) = 'N' THEN
40523: --bug 4099488
40524: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(ref_elem_ver_id, p_task_version_id) = 'N' THEN
40525: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40526: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
40527: raise FND_API.G_EXC_ERROR;
40528: END IF;
40529: --end bug 4099488
40530: END IF;
40531:
40543:
40544: IF (x_return_status <> 'S') THEN -- 4275757 : Changed from 'Y' to 'S'
40545: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40546: p_msg_name => l_error_msg_code);
40547: raise FND_API.G_EXC_ERROR;
40548: End If;
40549: End If;
40550:
40551: --check the task is a lowest task bug 3301192
40884: ,x_msg_data => l_msg_data
40885: );
40886:
40887:
40888: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
40889: x_msg_count := FND_MSG_PUB.count_msg;
40890: IF x_msg_count = 1 then
40891: pa_interface_utils_pub.get_messages
40892: (p_encoded => FND_API.G_TRUE,
40888: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
40889: x_msg_count := FND_MSG_PUB.count_msg;
40890: IF x_msg_count = 1 then
40891: pa_interface_utils_pub.get_messages
40892: (p_encoded => FND_API.G_TRUE,
40893: p_msg_index => 1,
40894: p_msg_count => l_msg_count,
40895: p_msg_data => l_msg_data,
40896: p_data => l_data,
40896: p_data => l_data,
40897: p_msg_index_out => l_msg_index_out);
40898: x_msg_data := l_data;
40899: END IF;
40900: raise FND_API.G_EXC_ERROR;
40901: END IF;
40902:
40903: --for task weighting
40904: PA_TASK_PVT1.RECALC_TASKS_WEIGHTING(
40910:
40911: x_msg_count := FND_MSG_PUB.count_msg;
40912: IF x_msg_count = 1 then
40913: pa_interface_utils_pub.get_messages
40914: (p_encoded => FND_API.G_TRUE,
40915: p_msg_index => 1,
40916: p_msg_count => l_msg_count,
40917: p_msg_data => l_msg_data,
40918: p_data => l_data,
40930:
40931: x_msg_count := FND_MSG_PUB.count_msg;
40932: IF x_msg_count = 1 then
40933: pa_interface_utils_pub.get_messages
40934: (p_encoded => FND_API.G_TRUE,
40935: p_msg_index => 1,
40936: p_msg_count => l_msg_count,
40937: p_msg_data => l_msg_data,
40938: p_data => l_data,
41007: ,x_msg_count => l_msg_count
41008: ,x_msg_data => l_msg_data );
41009:
41010: -- Merged from 85
41011: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
41012: x_msg_count := FND_MSG_PUB.count_msg;
41013: IF x_msg_count = 1 then
41014: pa_interface_utils_pub.get_messages
41015: (p_encoded => FND_API.G_TRUE,
41011: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
41012: x_msg_count := FND_MSG_PUB.count_msg;
41013: IF x_msg_count = 1 then
41014: pa_interface_utils_pub.get_messages
41015: (p_encoded => FND_API.G_TRUE,
41016: p_msg_index => 1,
41017: p_msg_count => l_msg_count,
41018: p_msg_data => l_msg_data,
41019: p_data => l_data,
41019: p_data => l_data,
41020: p_msg_index_out => l_msg_index_out);
41021: x_msg_data := l_data;
41022: END IF;
41023: raise FND_API.G_EXC_ERROR;
41024: END IF;
41025:
41026: OPEN get_parent_task_id( l_task_id , l_project_id );
41027: FETCH get_parent_task_id INTO l_parent_task_id,l_top_task_id;
41032: IF NVL( l_top_task_id, -99 ) <> NVL( l_old_top_task_id, -99 )
41033: THEN
41034: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41035: p_msg_name => 'PA_CANT_CHANGE_PARENT');
41036: raise FND_API.G_EXC_ERROR;
41037: END IF;
41038: --End bug 2967204
41039:
41040: END IF;
41052: ,x_msg_count => x_msg_count
41053: ,x_msg_data => x_msg_data
41054: );
41055:
41056: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
41057: x_msg_count := FND_MSG_PUB.count_msg;
41058: If x_msg_count = 1 then
41059: pa_interface_utils_pub.get_messages
41060: (p_encoded => FND_API.G_TRUE,
41056: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
41057: x_msg_count := FND_MSG_PUB.count_msg;
41058: If x_msg_count = 1 then
41059: pa_interface_utils_pub.get_messages
41060: (p_encoded => FND_API.G_TRUE,
41061: p_msg_index => 1,
41062: p_msg_count => l_msg_count,
41063: p_msg_data => l_msg_data,
41064: p_data => l_data,
41064: p_data => l_data,
41065: p_msg_index_out => l_msg_index_out);
41066: x_msg_data := l_data;
41067: End If;
41068: raise FND_API.G_EXC_ERROR;
41069: End If;
41070: End If;
41071: -- End of FP_M changes
41072:
41073: l_tasks_ver_ids.extend;
41074: l_tasks_ver_ids(l_tasks_ver_ids.count) := p_task_version_id;
41075:
41076: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
41077: p_commit => FND_API.G_FALSE,
41078: p_element_versions => l_tasks_ver_ids,
41079: x_return_status => l_return_status,
41080: x_msg_count => l_msg_count,
41081: x_msg_data => l_msg_data);
41079: x_return_status => l_return_status,
41080: x_msg_count => l_msg_count,
41081: x_msg_data => l_msg_data);
41082:
41083: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41084: x_msg_count := FND_MSG_PUB.count_msg;
41085: if x_msg_count = 1 then
41086: pa_interface_utils_pub.get_messages
41087: (p_encoded => FND_API.G_TRUE,
41083: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41084: x_msg_count := FND_MSG_PUB.count_msg;
41085: if x_msg_count = 1 then
41086: pa_interface_utils_pub.get_messages
41087: (p_encoded => FND_API.G_TRUE,
41088: p_msg_index => 1,
41089: p_msg_count => l_msg_count,
41090: p_msg_data => l_msg_data,
41091: p_data => l_data,
41091: p_data => l_data,
41092: p_msg_index_out => l_msg_index_out);
41093: x_msg_data := l_data;
41094: end if;
41095: raise FND_API.G_EXC_ERROR;
41096: end if;
41097:
41098: --hsiu added for task status
41099: --if versioning is off, rollup.
41105: ,x_msg_count => l_msg_count
41106: ,x_msg_data => l_msg_data
41107: );
41108:
41109: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41110: x_msg_count := FND_MSG_PUB.count_msg;
41111: if x_msg_count = 1 then
41112: pa_interface_utils_pub.get_messages
41113: (p_encoded => FND_API.G_TRUE,
41109: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41110: x_msg_count := FND_MSG_PUB.count_msg;
41111: if x_msg_count = 1 then
41112: pa_interface_utils_pub.get_messages
41113: (p_encoded => FND_API.G_TRUE,
41114: p_msg_index => 1,
41115: p_msg_count => l_msg_count,
41116: p_msg_data => l_msg_data,
41117: p_data => l_data,
41117: p_data => l_data,
41118: p_msg_index_out => l_msg_index_out);
41119: x_msg_data := l_data;
41120: end if;
41121: raise FND_API.G_EXC_ERROR;
41122: end if;
41123: END IF;
41124:
41125: --end task status changes
41164: ,x_return_status => l_return_status
41165: ,x_msg_count => l_msg_count
41166: ,x_msg_data => l_msg_data);
41167:
41168: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41169: x_msg_count := FND_MSG_PUB.count_msg;
41170: if x_msg_count = 1 then
41171: pa_interface_utils_pub.get_messages
41172: (p_encoded => FND_API.G_TRUE,
41168: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41169: x_msg_count := FND_MSG_PUB.count_msg;
41170: if x_msg_count = 1 then
41171: pa_interface_utils_pub.get_messages
41172: (p_encoded => FND_API.G_TRUE,
41173: p_msg_index => 1,
41174: p_msg_count => l_msg_count,
41175: p_msg_data => l_msg_data,
41176: p_data => l_data,
41176: p_data => l_data,
41177: p_msg_index_out => l_msg_index_out);
41178: x_msg_data := l_data;
41179: end if;
41180: raise FND_API.G_EXC_ERROR;
41181: end if;
41182: END IF;
41183: --3035902: end process update flag changes
41184:
41196: ,x_return_status => l_return_status
41197: ,x_msg_count => l_msg_count
41198: ,x_msg_data => l_msg_data );
41199:
41200: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41201: x_msg_count := FND_MSG_PUB.count_msg;
41202: if x_msg_count = 1 then
41203: pa_interface_utils_pub.get_messages
41204: (p_encoded => FND_API.G_TRUE,
41200: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41201: x_msg_count := FND_MSG_PUB.count_msg;
41202: if x_msg_count = 1 then
41203: pa_interface_utils_pub.get_messages
41204: (p_encoded => FND_API.G_TRUE,
41205: p_msg_index => 1,
41206: p_msg_count => l_msg_count,
41207: p_msg_data => l_msg_data,
41208: p_data => l_data,
41208: p_data => l_data,
41209: p_msg_index_out => l_msg_index_out);
41210: x_msg_data := l_data;
41211: end if;
41212: raise FND_API.G_EXC_ERROR;
41213: end if;
41214: END IF;
41215: END IF;
41216:
41255: WHEN OTHERS THEN
41256: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41257: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41258: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
41259: RAISE FND_API.G_EXC_ERROR;
41260: END;
41261:
41262: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41263: x_msg_count := FND_MSG_PUB.count_msg;
41258: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
41259: RAISE FND_API.G_EXC_ERROR;
41260: END;
41261:
41262: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41263: x_msg_count := FND_MSG_PUB.count_msg;
41264: if x_msg_count = 1 then
41265: pa_interface_utils_pub.get_messages
41266: (p_encoded => FND_API.G_TRUE,
41262: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
41263: x_msg_count := FND_MSG_PUB.count_msg;
41264: if x_msg_count = 1 then
41265: pa_interface_utils_pub.get_messages
41266: (p_encoded => FND_API.G_TRUE,
41267: p_msg_index => 1,
41268: p_msg_count => l_msg_count,
41269: p_msg_data => l_msg_data,
41270: p_data => l_data,
41270: p_data => l_data,
41271: p_msg_index_out => l_msg_index_out);
41272: x_msg_data := l_data;
41273: end if;
41274: raise FND_API.G_EXC_ERROR;
41275: end if;
41276: END IF; --<
41277: END IF; --<
41278:
41279: --bug 4149392
41280: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := NULL;
41281: --end bug 4149392
41282:
41283: x_return_status := FND_API.G_RET_STS_SUCCESS;
41284:
41285: IF (p_commit = FND_API.G_TRUE) THEN
41286: COMMIT;
41287: END IF;
41281: --end bug 4149392
41282:
41283: x_return_status := FND_API.G_RET_STS_SUCCESS;
41284:
41285: IF (p_commit = FND_API.G_TRUE) THEN
41286: COMMIT;
41287: END IF;
41288:
41289: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41294: pa_debug.debug('PA_PROJECT_PUB.BULK_INDENT_TASKS_LITE END');
41295: END IF;
41296:
41297: EXCEPTION
41298: when FND_API.G_EXC_ERROR then
41299: if p_commit = FND_API.G_TRUE then
41300: rollback to BULK_INDENT_TASKS_LITE;
41301: end if;
41302: x_return_status := FND_API.G_RET_STS_ERROR;
41295: END IF;
41296:
41297: EXCEPTION
41298: when FND_API.G_EXC_ERROR then
41299: if p_commit = FND_API.G_TRUE then
41300: rollback to BULK_INDENT_TASKS_LITE;
41301: end if;
41302: x_return_status := FND_API.G_RET_STS_ERROR;
41303: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41298: when FND_API.G_EXC_ERROR then
41299: if p_commit = FND_API.G_TRUE then
41300: rollback to BULK_INDENT_TASKS_LITE;
41301: end if;
41302: x_return_status := FND_API.G_RET_STS_ERROR;
41303: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41304: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41305: END IF;
41306: FND_MSG_PUB.Count_And_Get
41305: END IF;
41306: FND_MSG_PUB.Count_And_Get
41307: ( p_count => x_msg_count ,
41308: p_data => x_msg_data );
41309: when FND_API.G_EXC_UNEXPECTED_ERROR then
41310: if p_commit = FND_API.G_TRUE then
41311: rollback to BULK_INDENT_TASKS_LITE;
41312: end if;
41313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41306: FND_MSG_PUB.Count_And_Get
41307: ( p_count => x_msg_count ,
41308: p_data => x_msg_data );
41309: when FND_API.G_EXC_UNEXPECTED_ERROR then
41310: if p_commit = FND_API.G_TRUE then
41311: rollback to BULK_INDENT_TASKS_LITE;
41312: end if;
41313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41314: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41309: when FND_API.G_EXC_UNEXPECTED_ERROR then
41310: if p_commit = FND_API.G_TRUE then
41311: rollback to BULK_INDENT_TASKS_LITE;
41312: end if;
41313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41314: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41315: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41316: p_error_text => SUBSTRB(SQLERRM,1,240));
41317: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41317: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41318: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
41319: END IF;
41320: when OTHERS then
41321: if p_commit = FND_API.G_TRUE then
41322: rollback to BULK_INDENT_TASKS_LITE;
41323: end if;
41324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41325: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41320: when OTHERS then
41321: if p_commit = FND_API.G_TRUE then
41322: rollback to BULK_INDENT_TASKS_LITE;
41323: end if;
41324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
41325: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
41326: p_procedure_name => 'BULK_INDENT_TASKS_LITE',
41327: p_error_text => SUBSTRB(SQLERRM,1,240));
41328: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41338:
41339: -- Added new api BULK_OUTDENT_TASKS_LITE for Huawei enhancement - bug 13923366 by skkoppul
41340: PROCEDURE BULK_OUTDENT_TASKS_LITE (
41341: p_api_version IN NUMBER :=1.0,
41342: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
41343: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
41344: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
41345: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
41346: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
41339: -- Added new api BULK_OUTDENT_TASKS_LITE for Huawei enhancement - bug 13923366 by skkoppul
41340: PROCEDURE BULK_OUTDENT_TASKS_LITE (
41341: p_api_version IN NUMBER :=1.0,
41342: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
41343: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
41344: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
41345: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
41346: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
41347: p_debug_mode IN VARCHAR2 :='N',
41340: PROCEDURE BULK_OUTDENT_TASKS_LITE (
41341: p_api_version IN NUMBER :=1.0,
41342: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
41343: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
41344: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
41345: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
41346: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
41347: p_debug_mode IN VARCHAR2 :='N',
41348: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
41341: p_api_version IN NUMBER :=1.0,
41342: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
41343: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
41344: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
41345: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
41346: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
41347: p_debug_mode IN VARCHAR2 :='N',
41348: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
41349: p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
41665: IF (p_debug_mode = 'Y') THEN
41666: pa_debug.debug('PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE begin');
41667: END IF;
41668:
41669: IF (p_commit = FND_API.G_TRUE) THEN
41670: savepoint BULK_OUTDENT_TASKS_LITE;
41671: END IF;
41672:
41673: /* Added below block to ensure that the new API's are controlled by Dev*/
41680: exception
41681: when no_data_found then
41682: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41683: p_msg_name => 'PA_LITE_API_CANT_USE');
41684: RAISE FND_API.G_EXC_ERROR;
41685: when others then
41686:
41687: raise;
41688: end;
41691: IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id),' ') <> 'SHARE_FULL'
41692: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id),'N') = 'Y' THEN
41693: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41694: p_msg_name => 'PA_CANT_USE_LITE_API');
41695: RAISE FND_API.G_EXC_ERROR;
41696: END IF;
41697:
41698: -- Set the G_ROLLUP_FLAG based on profile options
41699: --IF(p_calling_module = 'AMG') THEN
41704: IF l_return_status <> 'S'
41705: THEN
41706: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41707: p_msg_name =>l_msg_data );
41708: RAISE FND_API.G_EXC_ERROR;
41709: ELSE
41710: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_project_id,p_structure_version_id,'OUTDENT');
41711: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,p_task_version_id,p_structure_version_id,'OUTDENT');
41712: END IF;
41711: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,p_task_version_id,p_structure_version_id,'OUTDENT');
41712: END IF;
41713: END IF;
41714:
41715: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
41716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41717: END IF;
41718:
41719: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
41712: END IF;
41713: END IF;
41714:
41715: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
41716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41717: END IF;
41718:
41719: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
41720: FND_MSG_PUB.initialize;
41715: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
41716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41717: END IF;
41718:
41719: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
41720: FND_MSG_PUB.initialize;
41721: END IF;
41722:
41723: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := 'N';
41763: END IF;
41764: IF l_update_parent_task_allowed = 'N' THEN
41765: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41766: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
41767: raise FND_API.G_EXC_ERROR;
41768: END IF;
41769: END IF;
41770: END IF;
41771:
41775: p_structure_version_id,
41776: p_task_version_id)) THEN
41777: --deleting linked task. Error
41778: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
41779: raise FND_API.G_EXC_ERROR;
41780: END IF;
41781: END IF;
41782:
41783: --hsiu added, for dates rollup
41811:
41812: IF src_wbs_level = 1 then
41813: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
41814: ,p_msg_name => 'PA_PS_CANNOT_OUTDENT');
41815: raise FND_API.G_EXC_ERROR;
41816: END IF;
41817:
41818: -- Get Refernce Task Information
41819:
41841:
41842: IF src_wbs_level < ref_wbs_level then
41843: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
41844: ,p_msg_name => 'PA_PS_CANNOT_OUTDENT');
41845: raise FND_API.G_EXC_ERROR;
41846: END IF;
41847:
41848: -- While Outdenting always the source task will become peer of reference task
41849: l_peer_or_sub := 'PEER';
41866: END IF;
41867:
41868: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41869: p_msg_name => 'PA_PS_TASK_HAS_SUB_PROJ');
41870: raise FND_API.G_EXC_ERROR;
41871:
41872: end if;
41873:
41874: --Check if ok to OUTDENT this task
41880:
41881: IF (l_return_status <> 'Y') THEN
41882: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41883: p_msg_name => l_error_msg_code);
41884: raise FND_API.G_EXC_ERROR;
41885: END IF;
41886:
41887: --check if ok to create
41888: OPEN get_parent_version_id(ref_elem_ver_id);
41901:
41902: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
41903: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41904: p_msg_name => 'PA_CANT_CHANGE_PARENT');
41905: raise FND_API.G_EXC_ERROR;
41906: END IF;
41907: END IF;
41908:
41909: PA_PROJ_ELEMENTS_UTILS.Check_create_subtask_ok(
41914:
41915: IF (l_return_status <> 'Y') THEN
41916: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41917: p_msg_name => l_error_msg_code);
41918: raise FND_API.G_EXC_ERROR;
41919: END IF;
41920:
41921: -- Added for FP_M changes. Bug 3305199 : Bhumesh xxx
41922:
41934:
41935: IF (x_return_status <> 'S') THEN --Bug 3831786 Added
41936: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41937: p_msg_name => l_error_msg_code);
41938: raise FND_API.G_EXC_ERROR;
41939: End If;
41940: End If;
41941:
41942: --check the task is a lowest task bug 3301192
42334: ,x_msg_data => l_msg_data
42335: );
42336:
42337:
42338: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42339: x_msg_count := FND_MSG_PUB.count_msg;
42340: IF x_msg_count = 1 then
42341: pa_interface_utils_pub.get_messages
42342: (p_encoded => FND_API.G_TRUE,
42338: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42339: x_msg_count := FND_MSG_PUB.count_msg;
42340: IF x_msg_count = 1 then
42341: pa_interface_utils_pub.get_messages
42342: (p_encoded => FND_API.G_TRUE,
42343: p_msg_index => 1,
42344: p_msg_count => l_msg_count,
42345: p_msg_data => l_msg_data,
42346: p_data => l_data,
42346: p_data => l_data,
42347: p_msg_index_out => l_msg_index_out);
42348: x_msg_data := l_data;
42349: END IF;
42350: raise FND_API.G_EXC_ERROR;
42351: END IF;
42352:
42353: -- I don't think the following code is needed. This case is impossible in case of OUTDENT
42354: IF l_update_new_child_rels = 'Y' -- AND p_action IN( 'OUTDENT' )
42366: --bug 4099488
42367: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(p_task_version_id, cur_new_child_rec.object_id_to1) = 'N' THEN
42368: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42369: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
42370: raise FND_API.G_EXC_ERROR;
42371: END IF;
42372: --end bug 4099488
42373:
42374: PA_RELATIONSHIP_PVT.Update_Relationship
42398: ,x_msg_count => x_msg_count
42399: ,x_msg_data => x_msg_data
42400: );
42401:
42402: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42403: x_msg_count := FND_MSG_PUB.count_msg;
42404: IF x_msg_count = 1 then
42405: pa_interface_utils_pub.get_messages
42406: (p_encoded => FND_API.G_TRUE,
42402: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42403: x_msg_count := FND_MSG_PUB.count_msg;
42404: IF x_msg_count = 1 then
42405: pa_interface_utils_pub.get_messages
42406: (p_encoded => FND_API.G_TRUE,
42407: p_msg_index => 1,
42408: p_msg_count => l_msg_count,
42409: p_msg_data => l_msg_data,
42410: p_data => l_data,
42410: p_data => l_data,
42411: p_msg_index_out => l_msg_index_out);
42412: x_msg_data := l_data;
42413: END IF;
42414: raise FND_API.G_EXC_ERROR;
42415: END IF;
42416:
42417: END LOOP;
42418: END IF;
42427:
42428: x_msg_count := FND_MSG_PUB.count_msg;
42429: IF x_msg_count = 1 then
42430: pa_interface_utils_pub.get_messages
42431: (p_encoded => FND_API.G_TRUE,
42432: p_msg_index => 1,
42433: p_msg_count => l_msg_count,
42434: p_msg_data => l_msg_data,
42435: p_data => l_data,
42447:
42448: x_msg_count := FND_MSG_PUB.count_msg;
42449: IF x_msg_count = 1 then
42450: pa_interface_utils_pub.get_messages
42451: (p_encoded => FND_API.G_TRUE,
42452: p_msg_index => 1,
42453: p_msg_count => l_msg_count,
42454: p_msg_data => l_msg_data,
42455: p_data => l_data,
42522: ,x_return_status => l_return_status
42523: ,x_msg_count => l_msg_count
42524: ,x_msg_data => l_msg_data );
42525:
42526: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42527: x_msg_count := FND_MSG_PUB.count_msg;
42528: IF x_msg_count = 1 then
42529: pa_interface_utils_pub.get_messages
42530: (p_encoded => FND_API.G_TRUE,
42526: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42527: x_msg_count := FND_MSG_PUB.count_msg;
42528: IF x_msg_count = 1 then
42529: pa_interface_utils_pub.get_messages
42530: (p_encoded => FND_API.G_TRUE,
42531: p_msg_index => 1,
42532: p_msg_count => l_msg_count,
42533: p_msg_data => l_msg_data,
42534: p_data => l_data,
42534: p_data => l_data,
42535: p_msg_index_out => l_msg_index_out);
42536: x_msg_data := l_data;
42537: END IF;
42538: raise FND_API.G_EXC_ERROR;
42539: END IF;
42540:
42541: OPEN get_parent_task_id( l_task_id , l_project_id );
42542: FETCH get_parent_task_id INTO l_parent_task_id,l_top_task_id;
42547: IF NVL( l_top_task_id, -99 ) <> NVL( l_old_top_task_id, -99 )
42548: THEN
42549: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42550: p_msg_name => 'PA_CANT_CHANGE_PARENT');
42551: raise FND_API.G_EXC_ERROR;
42552: END IF;
42553: END IF;
42554: END IF;
42555: CLOSE cur_struc_type;
42568: ,x_msg_count => x_msg_count
42569: ,x_msg_data => x_msg_data
42570: );
42571:
42572: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
42573: x_msg_count := FND_MSG_PUB.count_msg;
42574: If x_msg_count = 1 then
42575: pa_interface_utils_pub.get_messages
42576: (p_encoded => FND_API.G_TRUE,
42572: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
42573: x_msg_count := FND_MSG_PUB.count_msg;
42574: If x_msg_count = 1 then
42575: pa_interface_utils_pub.get_messages
42576: (p_encoded => FND_API.G_TRUE,
42577: p_msg_index => 1,
42578: p_msg_count => l_msg_count,
42579: p_msg_data => l_msg_data,
42580: p_data => l_data,
42580: p_data => l_data,
42581: p_msg_index_out => l_msg_index_out);
42582: x_msg_data := l_data;
42583: End If;
42584: raise FND_API.G_EXC_ERROR;
42585: End If;
42586: End If;
42587: -- End of FP_M changes
42588:
42594: l_rollup_task_id := p_task_version_id;
42595: END IF;
42596:
42597: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
42598: p_commit => FND_API.G_FALSE,
42599: p_element_versions => l_tasks_ver_ids,
42600: x_return_status => l_return_status,
42601: x_msg_count => l_msg_count,
42602: x_msg_data => l_msg_data);
42600: x_return_status => l_return_status,
42601: x_msg_count => l_msg_count,
42602: x_msg_data => l_msg_data);
42603:
42604: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42605: x_msg_count := FND_MSG_PUB.count_msg;
42606: if x_msg_count = 1 then
42607: pa_interface_utils_pub.get_messages
42608: (p_encoded => FND_API.G_TRUE,
42604: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42605: x_msg_count := FND_MSG_PUB.count_msg;
42606: if x_msg_count = 1 then
42607: pa_interface_utils_pub.get_messages
42608: (p_encoded => FND_API.G_TRUE,
42609: p_msg_index => 1,
42610: p_msg_count => l_msg_count,
42611: p_msg_data => l_msg_data,
42612: p_data => l_data,
42612: p_data => l_data,
42613: p_msg_index_out => l_msg_index_out);
42614: x_msg_data := l_data;
42615: end if;
42616: raise FND_API.G_EXC_ERROR;
42617: end if;
42618:
42619: --if versioning is off, rollup.
42620: IF ('N' = PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_project_id)) THEN
42625: ,x_msg_count => l_msg_count
42626: ,x_msg_data => l_msg_data
42627: );
42628:
42629: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42630: x_msg_count := FND_MSG_PUB.count_msg;
42631: if x_msg_count = 1 then
42632: pa_interface_utils_pub.get_messages
42633: (p_encoded => FND_API.G_TRUE,
42629: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42630: x_msg_count := FND_MSG_PUB.count_msg;
42631: if x_msg_count = 1 then
42632: pa_interface_utils_pub.get_messages
42633: (p_encoded => FND_API.G_TRUE,
42634: p_msg_index => 1,
42635: p_msg_count => l_msg_count,
42636: p_msg_data => l_msg_data,
42637: p_data => l_data,
42637: p_data => l_data,
42638: p_msg_index_out => l_msg_index_out);
42639: x_msg_data := l_data;
42640: end if;
42641: raise FND_API.G_EXC_ERROR;
42642: end if;
42643: END IF;
42644:
42645: END IF;
42681: ,x_return_status => l_return_status
42682: ,x_msg_count => l_msg_count
42683: ,x_msg_data => l_msg_data);
42684:
42685: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42686: x_msg_count := FND_MSG_PUB.count_msg;
42687: if x_msg_count = 1 then
42688: pa_interface_utils_pub.get_messages
42689: (p_encoded => FND_API.G_TRUE,
42685: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42686: x_msg_count := FND_MSG_PUB.count_msg;
42687: if x_msg_count = 1 then
42688: pa_interface_utils_pub.get_messages
42689: (p_encoded => FND_API.G_TRUE,
42690: p_msg_index => 1,
42691: p_msg_count => l_msg_count,
42692: p_msg_data => l_msg_data,
42693: p_data => l_data,
42693: p_data => l_data,
42694: p_msg_index_out => l_msg_index_out);
42695: x_msg_data := l_data;
42696: end if;
42697: raise FND_API.G_EXC_ERROR;
42698: end if;
42699: --3035902: end process update flag changes
42700:
42701: --ideally the following calls should have been cached. but due to time constraints
42713: ,x_return_status => l_return_status
42714: ,x_msg_count => l_msg_count
42715: ,x_msg_data => l_msg_data );
42716:
42717: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42718: x_msg_count := FND_MSG_PUB.count_msg;
42719: if x_msg_count = 1 then
42720: pa_interface_utils_pub.get_messages
42721: (p_encoded => FND_API.G_TRUE,
42717: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42718: x_msg_count := FND_MSG_PUB.count_msg;
42719: if x_msg_count = 1 then
42720: pa_interface_utils_pub.get_messages
42721: (p_encoded => FND_API.G_TRUE,
42722: p_msg_index => 1,
42723: p_msg_count => l_msg_count,
42724: p_msg_data => l_msg_data,
42725: p_data => l_data,
42725: p_data => l_data,
42726: p_msg_index_out => l_msg_index_out);
42727: x_msg_data := l_data;
42728: end if;
42729: raise FND_API.G_EXC_ERROR;
42730: end if;
42731: END IF;
42732: END IF;
42733: --check the task is a lowest task again and check whehter its no more a lowest task.
42776: WHEN OTHERS then
42777: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42778: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42779: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
42780: RAISE FND_API.G_EXC_ERROR;
42781: END;
42782: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42783: x_msg_count := FND_MSG_PUB.count_msg;
42784: if x_msg_count = 1 then
42778: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42779: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
42780: RAISE FND_API.G_EXC_ERROR;
42781: END;
42782: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42783: x_msg_count := FND_MSG_PUB.count_msg;
42784: if x_msg_count = 1 then
42785: pa_interface_utils_pub.get_messages
42786: (p_encoded => FND_API.G_TRUE,
42782: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
42783: x_msg_count := FND_MSG_PUB.count_msg;
42784: if x_msg_count = 1 then
42785: pa_interface_utils_pub.get_messages
42786: (p_encoded => FND_API.G_TRUE,
42787: p_msg_index => 1,
42788: p_msg_count => l_msg_count,
42789: p_msg_data => l_msg_data,
42790: p_data => l_data,
42790: p_data => l_data,
42791: p_msg_index_out => l_msg_index_out);
42792: x_msg_data := l_data;
42793: end if;
42794: raise FND_API.G_EXC_ERROR;
42795: end if;
42796: END IF; --<
42797: END IF; --<
42798: --bug 3301192
42800: --bug 4149392
42801: PA_TASK_PUB1.G_CALL_PJI_ROLLUP := NULL;
42802: --end bug 4149392
42803:
42804: x_return_status := FND_API.G_RET_STS_SUCCESS;
42805:
42806: IF (p_commit = FND_API.G_TRUE) THEN
42807: COMMIT;
42808: END IF;
42802: --end bug 4149392
42803:
42804: x_return_status := FND_API.G_RET_STS_SUCCESS;
42805:
42806: IF (p_commit = FND_API.G_TRUE) THEN
42807: COMMIT;
42808: END IF;
42809:
42810: IF (p_debug_mode = 'Y') THEN
42815: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42816: END IF;
42817:
42818: EXCEPTION
42819: when FND_API.G_EXC_ERROR then
42820: if p_commit = FND_API.G_TRUE then
42821: rollback to BULK_OUTDENT_TASKS_LITE;
42822: end if;
42823: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42816: END IF;
42817:
42818: EXCEPTION
42819: when FND_API.G_EXC_ERROR then
42820: if p_commit = FND_API.G_TRUE then
42821: rollback to BULK_OUTDENT_TASKS_LITE;
42822: end if;
42823: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42824: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42822: end if;
42823: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42824: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42825: END IF;
42826: x_return_status := FND_API.G_RET_STS_ERROR;
42827: FND_MSG_PUB.Count_And_Get
42828: ( p_count => x_msg_count ,
42829: p_data => x_msg_data );
42830: when FND_API.G_EXC_UNEXPECTED_ERROR then
42826: x_return_status := FND_API.G_RET_STS_ERROR;
42827: FND_MSG_PUB.Count_And_Get
42828: ( p_count => x_msg_count ,
42829: p_data => x_msg_data );
42830: when FND_API.G_EXC_UNEXPECTED_ERROR then
42831: if p_commit = FND_API.G_TRUE then
42832: rollback to BULK_OUTDENT_TASKS_LITE;
42833: end if;
42834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42827: FND_MSG_PUB.Count_And_Get
42828: ( p_count => x_msg_count ,
42829: p_data => x_msg_data );
42830: when FND_API.G_EXC_UNEXPECTED_ERROR then
42831: if p_commit = FND_API.G_TRUE then
42832: rollback to BULK_OUTDENT_TASKS_LITE;
42833: end if;
42834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42835: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42830: when FND_API.G_EXC_UNEXPECTED_ERROR then
42831: if p_commit = FND_API.G_TRUE then
42832: rollback to BULK_OUTDENT_TASKS_LITE;
42833: end if;
42834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42835: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42836: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42837: p_error_text => SUBSTRB(SQLERRM,1,240));
42838: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42838: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42839: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_project_id);
42840: END IF;
42841: when OTHERS then
42842: if p_commit = FND_API.G_TRUE then
42843: rollback to BULK_OUTDENT_TASKS_LITE;
42844: end if;
42845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42846: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42841: when OTHERS then
42842: if p_commit = FND_API.G_TRUE then
42843: rollback to BULK_OUTDENT_TASKS_LITE;
42844: end if;
42845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42846: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
42847: p_procedure_name => 'BULK_OUTDENT_TASKS_LITE',
42848: p_error_text => SUBSTRB(SQLERRM,1,240));
42849: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42857: END BULK_OUTDENT_TASKS_LITE;
42858:
42859: -- Added new wrapper API for 14556729
42860: PROCEDURE Bulk_Delete_Task ( p_api_version_number IN NUMBER := 1.0
42861: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
42862: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
42863: ,p_msg_count OUT NOCOPY NUMBER
42864: ,p_msg_data OUT NOCOPY VARCHAR2
42865: ,p_return_status OUT NOCOPY VARCHAR2
42858:
42859: -- Added new wrapper API for 14556729
42860: PROCEDURE Bulk_Delete_Task ( p_api_version_number IN NUMBER := 1.0
42861: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
42862: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
42863: ,p_msg_count OUT NOCOPY NUMBER
42864: ,p_msg_data OUT NOCOPY VARCHAR2
42865: ,p_return_status OUT NOCOPY VARCHAR2
42866: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
42894: exception
42895: when no_data_found then
42896: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42897: p_msg_name => 'PA_LITE_API_CANT_USE');
42898: RAISE FND_API.G_EXC_ERROR;
42899: when others then
42900: raise;
42901: end;
42902:
42906: IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_pa_project_id),' ') <> 'SHARE_FULL'
42907: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_pa_project_id),'N') = 'Y' THEN
42908: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42909: p_msg_name => 'PA_CANT_USE_LITE_API');
42910: RAISE FND_API.G_EXC_ERROR;
42911: END IF;
42912:
42913: PA_PROJECT_PUB.G_PROJECT_ID:=p_pa_project_id;
42914: l_structure_version_id :=PA_PROJECT_STRUCTURE_UTILS.GET_FIN_STRUC_VER_ID(p_pa_project_id);
42920: IF p_return_status <> 'S'
42921: THEN
42922: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42923: p_msg_name => p_msg_data);
42924: RAISE FND_API.G_EXC_ERROR;
42925: ELSE
42926: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_pa_project_id,l_structure_version_id,'DELETE');
42927: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_pa_project_id,p_pa_task_id,l_structure_version_id,'DELETE');
42928: END IF;
42958: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42959: END IF;
42960:
42961: EXCEPTION
42962: WHEN FND_API.G_EXC_ERROR THEN
42963: p_return_status := FND_API.G_RET_STS_ERROR ;
42964: FND_MSG_PUB.Count_And_Get
42965: ( p_count => p_msg_count ,
42966: p_data => p_msg_data );
42959: END IF;
42960:
42961: EXCEPTION
42962: WHEN FND_API.G_EXC_ERROR THEN
42963: p_return_status := FND_API.G_RET_STS_ERROR ;
42964: FND_MSG_PUB.Count_And_Get
42965: ( p_count => p_msg_count ,
42966: p_data => p_msg_data );
42967: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42968: PA_PROJECT_PVT.CONC_RELEASE_LOCK_PROJECT(p_pa_project_id);
42969: END IF;
42970:
42971: WHEN OTHERS THEN
42972: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
42973: p_msg_count := FND_MSG_PUB.count_msg;
42974: p_project_id := NULL ;
42975: p_task_id := NULL;
42976: PA_PROJECT_PUB.G_PROJECT_ID:=NULL;
42988: END Bulk_Delete_Task;
42989:
42990: procedure STRUCTURE_ROLLUP (
42991: p_api_version IN NUMBER :=1.0,
42992: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
42993: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
42994: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
42995: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
42996: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
42989:
42990: procedure STRUCTURE_ROLLUP (
42991: p_api_version IN NUMBER :=1.0,
42992: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
42993: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
42994: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
42995: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
42996: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
42997: p_debug_mode IN VARCHAR2 :='N',
42990: procedure STRUCTURE_ROLLUP (
42991: p_api_version IN NUMBER :=1.0,
42992: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
42993: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
42994: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
42995: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
42996: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
42997: p_debug_mode IN VARCHAR2 :='N',
42998: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
42991: p_api_version IN NUMBER :=1.0,
42992: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
42993: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
42994: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
42995: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
42996: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
42997: p_debug_mode IN VARCHAR2 :='N',
42998: p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
42999: p_structure_version_id IN NUMBER := NULL,
43029: IF (p_debug_mode = 'Y') THEN
43030: pa_debug.debug('PA_PROJECT_PUB.STRUCTURE_ROLLUP begin');
43031: END IF;
43032:
43033: IF (p_commit = FND_API.G_TRUE) THEN
43034: savepoint STRUCTURE_ROLLUP;
43035: END IF;
43036: /* Added below block to ensure that the new API's are controlled by Dev*/
43037: begin
43043: exception
43044: when no_data_found then
43045: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43046: p_msg_name => 'PA_LITE_API_CANT_USE');
43047: RAISE FND_API.G_EXC_ERROR;
43048: when others then
43049:
43050: raise;
43051: end;
43050: raise;
43051: end;
43052:
43053:
43054: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
43055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43056: END IF;
43057:
43058: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
43051: end;
43052:
43053:
43054: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
43055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43056: END IF;
43057:
43058: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
43059: FND_MSG_PUB.initialize;
43054: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
43055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43056: END IF;
43057:
43058: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
43059: FND_MSG_PUB.initialize;
43060: END IF;
43061:
43062: If p_as_of_date IS NULL OR p_as_of_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
43069: IF p_project_id is not null and p_structure_version_id is not null
43070: then
43071: PA_TASK_PVT1.Defer_Calc_Task_Weigthage (
43072: p_init_msg_list => p_init_msg_list
43073: ,p_commit => FND_API.G_FALSE
43074: ,p_project_id => p_project_id
43075: ,p_parent_struct_ver_id => p_structure_version_id
43076: ,x_return_status => l_return_status
43077: ,x_msg_count => l_msg_count
43079: );
43080: IF l_return_status <> 'S' THEN
43081: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43082: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43083: RAISE FND_API.G_EXC_ERROR;
43084: END IF;
43085:
43086: PA_PROJECT_STRUCTURE_PVT1.REFRESH_STRUCTURE_VERSION
43087: ( p_project_id => p_project_id
43092: );
43093: IF l_return_status <> 'S' THEN
43094: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43095: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43096: RAISE FND_API.G_EXC_ERROR;
43097: END IF;
43098:
43099: OPEN c_get_task_weight_method(p_project_id, p_structure_type);
43100: FETCH c_get_task_weight_method INTO l_rollup_method;
43101: CLOSE c_get_task_weight_method;
43102:
43103: PA_PROGRESS_PVT.DEFER_ROLLUP_PVT(
43104: p_init_msg_list => p_init_msg_list
43105: ,p_commit => FND_API.G_FALSE
43106: ,p_calling_module => 'AMG'
43107: ,p_project_id => p_project_id
43108: ,p_structure_version_id => p_structure_version_id
43109: ,p_as_of_date => trunc(l_rollup_as_of_date)
43117:
43118: IF l_return_status <> 'S' THEN
43119: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43120: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43121: RAISE FND_API.G_EXC_ERROR;
43122: END IF;
43123:
43124: UPDATE PA_PROJ_ELEMENT_VERSIONS SET DEFER_CODE=null where project_id=p_project_id
43125: and DEFER_CODE is not null AND parent_structure_version_id=p_structure_version_id;
43131: when OTHERS then
43132: null;
43133: end;
43134:
43135: IF(p_commit=FND_API.G_TRUE) THEN
43136: commit;
43137: END IF;
43138:
43139: else
43140: for i in (select event_object, event_id, attribute4 from PA_PJI_PROJ_EVENTS_LOG where event_type = 'DEFER_ROLLUP')
43141: loop
43142: PA_TASK_PVT1.Defer_Calc_Task_Weigthage (
43143: p_init_msg_list => p_init_msg_list
43144: ,p_commit => FND_API.G_FALSE
43145: ,p_project_id => i.event_object
43146: ,p_parent_struct_ver_id => i.attribute4
43147: ,x_return_status => l_return_status
43148: ,x_msg_count => l_msg_count
43150: );
43151: IF l_return_status <> 'S' THEN
43152: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43153: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43154: RAISE FND_API.G_EXC_ERROR;
43155: END IF;
43156:
43157: PA_PROJECT_STRUCTURE_PVT1.REFRESH_STRUCTURE_VERSION
43158: ( p_project_id => i.event_object
43163: );
43164: IF l_return_status <> 'S' THEN
43165: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43166: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43167: RAISE FND_API.G_EXC_ERROR;
43168: END IF;
43169:
43170: OPEN c_get_task_weight_method(i.event_object, p_structure_type);
43171: FETCH c_get_task_weight_method INTO l_rollup_method;
43172: CLOSE c_get_task_weight_method;
43173:
43174: PA_PROGRESS_PVT.DEFER_ROLLUP_PVT(
43175: p_init_msg_list => p_init_msg_list
43176: ,p_commit => FND_API.G_FALSE
43177: ,p_calling_module => 'AMG'
43178: ,p_project_id => i.event_object
43179: ,p_structure_version_id => i.attribute4
43180: ,p_as_of_date => trunc(l_rollup_as_of_date)
43188:
43189: IF l_return_status <> 'S' THEN
43190: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43191: p_msg_name => 'PA_ERROR_REFRESHING_STRUCTURE');
43192: RAISE FND_API.G_EXC_ERROR;
43193: END IF;
43194:
43195: UPDATE PA_PROJ_ELEMENT_VERSIONS SET DEFER_CODE=null where project_id=i.event_object
43196: and DEFER_CODE is not null AND parent_structure_version_id=i.attribute4;
43200:
43201: delete from PA_PJI_PROJ_EVENTS_LOG where event_type = 'DEFER_ROLLUP' and event_id = i.event_id
43202: and event_object = i.event_object;
43203:
43204: IF(p_commit=FND_API.G_TRUE) THEN
43205: commit;
43206: SAVEPOINT STRUCTURE_ROLLUP;
43207: END IF;
43208:
43207: END IF;
43208:
43209: end loop;
43210: end if;
43211: x_return_status := FND_API.G_RET_STS_SUCCESS;
43212: IF (p_debug_mode = 'Y') THEN
43213: pa_debug.debug('PA_PROJECT_PUB.STRUCTURE_ROLLUP END');
43214: END IF;
43215: if p_commit = FND_API.G_TRUE then
43211: x_return_status := FND_API.G_RET_STS_SUCCESS;
43212: IF (p_debug_mode = 'Y') THEN
43213: pa_debug.debug('PA_PROJECT_PUB.STRUCTURE_ROLLUP END');
43214: END IF;
43215: if p_commit = FND_API.G_TRUE then
43216: COMMIT;
43217: end if;
43218: EXCEPTION
43219: when FND_API.G_EXC_ERROR then
43215: if p_commit = FND_API.G_TRUE then
43216: COMMIT;
43217: end if;
43218: EXCEPTION
43219: when FND_API.G_EXC_ERROR then
43220: if p_commit = FND_API.G_TRUE then
43221: rollback to STRUCTURE_ROLLUP;
43222: end if;
43223: x_return_status := FND_API.G_RET_STS_ERROR;
43216: COMMIT;
43217: end if;
43218: EXCEPTION
43219: when FND_API.G_EXC_ERROR then
43220: if p_commit = FND_API.G_TRUE then
43221: rollback to STRUCTURE_ROLLUP;
43222: end if;
43223: x_return_status := FND_API.G_RET_STS_ERROR;
43224: FND_MSG_PUB.Count_And_Get
43219: when FND_API.G_EXC_ERROR then
43220: if p_commit = FND_API.G_TRUE then
43221: rollback to STRUCTURE_ROLLUP;
43222: end if;
43223: x_return_status := FND_API.G_RET_STS_ERROR;
43224: FND_MSG_PUB.Count_And_Get
43225: ( p_count => x_msg_count ,
43226: p_data => x_msg_data );
43227: when FND_API.G_EXC_UNEXPECTED_ERROR then
43223: x_return_status := FND_API.G_RET_STS_ERROR;
43224: FND_MSG_PUB.Count_And_Get
43225: ( p_count => x_msg_count ,
43226: p_data => x_msg_data );
43227: when FND_API.G_EXC_UNEXPECTED_ERROR then
43228: if p_commit = FND_API.G_TRUE then
43229: rollback to STRUCTURE_ROLLUP;
43230: end if;
43231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43224: FND_MSG_PUB.Count_And_Get
43225: ( p_count => x_msg_count ,
43226: p_data => x_msg_data );
43227: when FND_API.G_EXC_UNEXPECTED_ERROR then
43228: if p_commit = FND_API.G_TRUE then
43229: rollback to STRUCTURE_ROLLUP;
43230: end if;
43231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43232: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43227: when FND_API.G_EXC_UNEXPECTED_ERROR then
43228: if p_commit = FND_API.G_TRUE then
43229: rollback to STRUCTURE_ROLLUP;
43230: end if;
43231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43232: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43233: p_procedure_name => 'STRUCTURE_ROLLUP',
43234: p_error_text => SUBSTRB(SQLERRM,1,240));
43235: when OTHERS then
43232: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43233: p_procedure_name => 'STRUCTURE_ROLLUP',
43234: p_error_text => SUBSTRB(SQLERRM,1,240));
43235: when OTHERS then
43236: if p_commit = FND_API.G_TRUE then
43237: rollback to STRUCTURE_ROLLUP;
43238: end if;
43239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43235: when OTHERS then
43236: if p_commit = FND_API.G_TRUE then
43237: rollback to STRUCTURE_ROLLUP;
43238: end if;
43239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
43240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
43241: p_procedure_name => 'STRUCTURE_ROLLUP',
43242: p_error_text => SUBSTRB(SQLERRM,1,240));
43243: FND_MSG_PUB.Count_And_Get
43276: */
43277:
43278: PROCEDURE ADD_COST_CODE_TO_TASK (
43279: p_api_version IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
43280: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
43281: , p_commit IN VARCHAR2 := FND_API.G_FALSE
43282: , p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
43283: , p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43284: , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43277:
43278: PROCEDURE ADD_COST_CODE_TO_TASK (
43279: p_api_version IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
43280: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
43281: , p_commit IN VARCHAR2 := FND_API.G_FALSE
43282: , p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
43283: , p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43284: , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43285: , p_task_cost_code_in IN TASK_COST_CODE_TBL
43372: If l_cbs_enabled_flag <> 'Y' THEN
43373: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43374: ,p_msg_name => 'PA_CBS_PRJ_NOT_CBS'
43375: );
43376: x_return_status := FND_API.G_RET_STS_ERROR;
43377: RAISE FND_API.G_EXC_ERROR;
43378:
43379: END IF;
43380:
43373: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43374: ,p_msg_name => 'PA_CBS_PRJ_NOT_CBS'
43375: );
43376: x_return_status := FND_API.G_RET_STS_ERROR;
43377: RAISE FND_API.G_EXC_ERROR;
43378:
43379: END IF;
43380:
43381: if p_task_cost_code_in.count > 0 then
43378:
43379: END IF;
43380:
43381: if p_task_cost_code_in.count > 0 then
43382: IF (p_commit = FND_API.G_TRUE) THEN
43383: savepoint ADD_COST_CODE_TO_TASK;
43384: END IF;
43385:
43386: -- Add validations here
43403: ,p_msg_name => 'PA_CBS_COST_CODE_ID_REQ'
43404: ,p_token1 => 'TASK'
43405: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43406: );
43407: x_return_status := FND_API.G_RET_STS_ERROR;
43408: X_Msg_Data := 'PA_CBS_COST_CODE_ID_REQ';
43409: X_Msg_Count := 1;
43410: ROLLBACK;
43411: RAISE FND_API.G_EXC_ERROR;
43407: x_return_status := FND_API.G_RET_STS_ERROR;
43408: X_Msg_Data := 'PA_CBS_COST_CODE_ID_REQ';
43409: X_Msg_Count := 1;
43410: ROLLBACK;
43411: RAISE FND_API.G_EXC_ERROR;
43412: ELSE
43413: OPEN Check_cost_code_valid(l_project_id,l_Cbs_Element_Id_tbl(i));
43414: FETCH Check_cost_code_valid into l_count;
43415: CLOSE Check_cost_code_valid;
43419: ,p_msg_name => 'PA_CBS_COST_CODE_INVALID'
43420: ,p_token1 => 'COST_CODE'
43421: ,p_value1 =>p_task_cost_code_in(i).cost_code
43422: );
43423: x_return_status := FND_API.G_RET_STS_ERROR;
43424: X_Msg_Data := 'PA_CBS_COST_CODE_ID_REQ';
43425: X_Msg_Count := 1;
43426: ROLLBACK;
43427: RAISE FND_API.G_EXC_ERROR;
43423: x_return_status := FND_API.G_RET_STS_ERROR;
43424: X_Msg_Data := 'PA_CBS_COST_CODE_ID_REQ';
43425: X_Msg_Count := 1;
43426: ROLLBACK;
43427: RAISE FND_API.G_EXC_ERROR;
43428: ENd If;
43429:
43430: END IF;
43431: END IF;
43461: IF l_Proj_Element_Id_tbl(i) is null Then
43462: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43463: ,p_msg_name => 'PA_CBS_TASK_DETAILS_REQ'
43464: );
43465: x_return_status := FND_API.G_RET_STS_ERROR;
43466: X_Msg_Data := 'PA_CBS_TASK_DETAILS_REQ';
43467: X_Msg_Count := 1;
43468: ROLLBACK;
43469: RAISE FND_API.G_EXC_ERROR;
43465: x_return_status := FND_API.G_RET_STS_ERROR;
43466: X_Msg_Data := 'PA_CBS_TASK_DETAILS_REQ';
43467: X_Msg_Count := 1;
43468: ROLLBACK;
43469: RAISE FND_API.G_EXC_ERROR;
43470:
43471: END IF;
43472: If l_count = 0 Then
43473: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43474: ,p_msg_name => 'PA_CBS_TASK_INVALID'
43475: ,p_token1 => 'TASK'
43476: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43477: );
43478: x_return_status := FND_API.G_RET_STS_ERROR;
43479: X_Msg_Data := 'PA_CBS_TASK_INVALID';
43480: X_Msg_Count := 1;
43481: ROLLBACK;
43482: RAISE FND_API.G_EXC_ERROR;
43478: x_return_status := FND_API.G_RET_STS_ERROR;
43479: X_Msg_Data := 'PA_CBS_TASK_INVALID';
43480: X_Msg_Count := 1;
43481: ROLLBACK;
43482: RAISE FND_API.G_EXC_ERROR;
43483:
43484: END If;
43485:
43486: end loop;
43519: X_Msg_Data =>X_Msg_Data,
43520: X_Msg_Count=>X_Msg_Count);
43521:
43522: IF X_Return_Status = 'S' THEN
43523: If p_commit=FND_API.G_TRUE then
43524: commit;
43525: end if;
43526: END IF;
43527: end if;
43526: END IF;
43527: end if;
43528: EXCEPTION
43529:
43530: When FND_API.G_EXC_ERROR Then
43531: FND_MSG_PUB.Count_And_Get
43532: ( p_count => x_msg_count ,
43533: p_data => x_msg_data );
43534: X_Return_Status := 'E';
43574:
43575:
43576: PROCEDURE DELETE_COST_CODE_FROM_TASK (
43577: p_api_version IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
43578: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
43579: , p_commit IN VARCHAR2 := FND_API.G_FALSE
43580: , p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
43581: , p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43582: , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43575:
43576: PROCEDURE DELETE_COST_CODE_FROM_TASK (
43577: p_api_version IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
43578: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
43579: , p_commit IN VARCHAR2 := FND_API.G_FALSE
43580: , p_pa_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
43581: , p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43582: , p_pm_project_reference IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
43583: , p_task_cost_code_in IN TASK_COST_CODE_TBL
43665: If l_cbs_enabled_flag <> 'Y' THEN
43666: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43667: ,p_msg_name => 'PA_CBS_PRJ_NOT_CBS'
43668: );
43669: x_return_status := FND_API.G_RET_STS_ERROR;
43670: RAISE FND_API.G_EXC_ERROR;
43671:
43672: END IF;
43673:
43666: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43667: ,p_msg_name => 'PA_CBS_PRJ_NOT_CBS'
43668: );
43669: x_return_status := FND_API.G_RET_STS_ERROR;
43670: RAISE FND_API.G_EXC_ERROR;
43671:
43672: END IF;
43673:
43674: if p_task_cost_code_in.count > 0 then
43671:
43672: END IF;
43673:
43674: if p_task_cost_code_in.count > 0 then
43675: IF (p_commit = FND_API.G_TRUE) THEN
43676: savepoint ADD_COST_CODE_TO_TASK;
43677: END IF;
43678:
43679: -- Add validations here
43696: ,p_msg_name => 'PA_CBS_COST_CODE_ID_REQ'
43697: ,p_token1 => 'TASK'
43698: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43699: );
43700: x_return_status := FND_API.G_RET_STS_ERROR;
43701: X_Msg_Data := 'PA_CBS_COST_CODE_ID_REQ';
43702: X_Msg_Count := 1;
43703: ROLLBACK;
43704: RAISE FND_API.G_EXC_ERROR;
43700: x_return_status := FND_API.G_RET_STS_ERROR;
43701: X_Msg_Data := 'PA_CBS_COST_CODE_ID_REQ';
43702: X_Msg_Count := 1;
43703: ROLLBACK;
43704: RAISE FND_API.G_EXC_ERROR;
43705: ELSE
43706: OPEN Check_cost_code_valid(l_project_id,l_Cbs_Element_Id_tbl(i));
43707: FETCH Check_cost_code_valid into l_count;
43708: CLOSE Check_cost_code_valid;
43712: ,p_msg_name => 'PA_CBS_COST_CODE_INVALID'
43713: ,p_token1 => 'COST_CODE'
43714: ,p_value1 =>p_task_cost_code_in(i).cost_code
43715: );
43716: x_return_status := FND_API.G_RET_STS_ERROR;
43717: X_Msg_Data := 'PA_CBS_COST_CODE_ID_REQ';
43718: X_Msg_Count := 1;
43719: ROLLBACK;
43720: RAISE FND_API.G_EXC_ERROR;
43716: x_return_status := FND_API.G_RET_STS_ERROR;
43717: X_Msg_Data := 'PA_CBS_COST_CODE_ID_REQ';
43718: X_Msg_Count := 1;
43719: ROLLBACK;
43720: RAISE FND_API.G_EXC_ERROR;
43721: ENd If;
43722:
43723: END IF;
43724: END IF;
43754: IF l_Proj_Element_Id_tbl(i) is null Then
43755: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43756: ,p_msg_name => 'PA_CBS_TASK_DETAILS_REQ'
43757: );
43758: x_return_status := FND_API.G_RET_STS_ERROR;
43759: X_Msg_Data := 'PA_CBS_TASK_DETAILS_REQ';
43760: X_Msg_Count := 1;
43761: ROLLBACK;
43762: RAISE FND_API.G_EXC_ERROR;
43758: x_return_status := FND_API.G_RET_STS_ERROR;
43759: X_Msg_Data := 'PA_CBS_TASK_DETAILS_REQ';
43760: X_Msg_Count := 1;
43761: ROLLBACK;
43762: RAISE FND_API.G_EXC_ERROR;
43763:
43764: END IF;
43765: If l_count = 0 Then
43766: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43767: ,p_msg_name => 'PA_CBS_TASK_INVALID'
43768: ,p_token1 => 'TASK'
43769: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43770: );
43771: x_return_status := FND_API.G_RET_STS_ERROR;
43772: X_Msg_Data := 'PA_CBS_TASK_INVALID';
43773: X_Msg_Count := 1;
43774: ROLLBACK;
43775: RAISE FND_API.G_EXC_ERROR;
43771: x_return_status := FND_API.G_RET_STS_ERROR;
43772: X_Msg_Data := 'PA_CBS_TASK_INVALID';
43773: X_Msg_Count := 1;
43774: ROLLBACK;
43775: RAISE FND_API.G_EXC_ERROR;
43776:
43777: END If;
43778:
43779: --Get the Alternate Tasks
43789: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43790: ,p_token2 => 'COST_CODE_ID'
43791: ,p_value2 =>l_Cbs_Element_Id_tbl(i)
43792: );
43793: x_return_status := FND_API.G_RET_STS_ERROR;
43794: X_Msg_Data := 'PA_CBS_INVALID_ALT_TASK';
43795: X_Msg_Count := 1;
43796: ROLLBACK;
43797: RAISE FND_API.G_EXC_ERROR;
43793: x_return_status := FND_API.G_RET_STS_ERROR;
43794: X_Msg_Data := 'PA_CBS_INVALID_ALT_TASK';
43795: X_Msg_Count := 1;
43796: ROLLBACK;
43797: RAISE FND_API.G_EXC_ERROR;
43798:
43799: END IF;
43800:
43801: end loop;
43806: X_Msg_Data =>X_Msg_Data,
43807: X_Msg_Count=>X_Msg_Count);
43808:
43809: IF X_Return_Status = 'S' THEN
43810: If p_commit=FND_API.G_TRUE then
43811: commit;
43812: end if;
43813: END IF;
43814: end if;
43812: end if;
43813: END IF;
43814: end if;
43815: EXCEPTION
43816: When FND_API.G_EXC_ERROR Then
43817: FND_MSG_PUB.Count_And_Get
43818: ( p_count => x_msg_count ,
43819: p_data => x_msg_data );
43820: X_Return_Status := 'E';