117: 'At the start of PLSQL procedure');
118: END IF;
119: -- Standard call to check for call compatibility.
120: IF FND_API.to_boolean(p_init_msg_list)THEN
121: FND_MSG_PUB.initialize;
122: END IF;
123: -- Initialize API return status to success
124: x_return_status := FND_API.G_RET_STS_SUCCESS;
125: -- Initialize message list if p_init_msg_list is set to TRUE.
140: OPEN c_visit_task_matrl_cur(l_sch_mtls_Rec.scheduled_material_id);
141: FETCH c_visit_task_matrl_cur INTO l_scheduled_date,l_scheduled_quantity;
142: IF l_scheduled_date IS NOT NULL THEN
143: Fnd_Message.SET_NAME('AHL','AHL_LTP_MRP_SCHEDUl_ITEM');
144: Fnd_Msg_Pub.ADD;
145: CLOSE c_visit_task_matrl_cur;
146: RAISE Fnd_Api.G_EXC_ERROR;
147: ELSE
148: -- Added by surrkuma on 14-JUL-2010 for bug 9901811
225: EXCEPTION
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: ROLLBACK TO unschedule_visit;
228: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
230: p_count => x_msg_count,
231: p_data => x_msg_data);
232: WHEN FND_API.G_EXC_ERROR THEN
233: ROLLBACK TO unschedule_visit;
231: p_data => x_msg_data);
232: WHEN FND_API.G_EXC_ERROR THEN
233: ROLLBACK TO unschedule_visit;
234: X_return_status := FND_API.G_RET_STS_ERROR;
235: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
236: p_count => x_msg_count,
237: p_data => X_msg_data);
238: WHEN OTHERS THEN
239: ROLLBACK TO unschedule_visit;
237: p_data => X_msg_data);
238: WHEN OTHERS THEN
239: ROLLBACK TO unschedule_visit;
240: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
242: THEN
243: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
244: p_procedure_name => 'Unschedule_Visit_Materials ',
245: p_error_text => SUBSTR(SQLERRM,1,240));
239: ROLLBACK TO unschedule_visit;
240: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
241: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
242: THEN
243: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
244: p_procedure_name => 'Unschedule_Visit_Materials ',
245: p_error_text => SUBSTR(SQLERRM,1,240));
246: END IF;
247: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
243: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
244: p_procedure_name => 'Unschedule_Visit_Materials ',
245: p_error_text => SUBSTR(SQLERRM,1,240));
246: END IF;
247: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
248: p_count => x_msg_count,
249: p_data => X_msg_data);
250: END Unschedule_Visit_Materials;
251:
419: -- Standard start of API savepoint
420: SAVEPOINT Insert_Planned_Matrls;
421: -- Initialize message list if p_init_msg_list is set to TRUE
422: IF FND_API.To_Boolean( l_init_msg_list) THEN
423: FND_MSG_PUB.Initialize;
424: END IF;
425: -- Initialize API return status to success
426: x_return_status := FND_API.G_RET_STS_SUCCESS;
427: --
484: IF l_prim_quantity IS NULL THEN
485: FND_MESSAGE.Set_Name( 'AHL','AHL_LTP_UOM_CONV_NOT_EXIST' );
486: FND_MESSAGE.Set_Token('FUOM', l_uom_code);
487: FND_MESSAGE.Set_Token('TUOM', l_prim_uom_code);
488: FND_MSG_PUB.add;
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491:
492: l_sched_prim_quantity := l_prim_quantity;
684: -- SKPATHAK :: Bug 8604722 :: 04-MAR-2010 :: END
685: END IF; --Record doesnt exist
686:
687: -- Check Error Message stack.
688: l_msg_count := FND_MSG_PUB.count_msg;
689: IF l_msg_count > 0 THEN
690: RAISE FND_API.G_EXC_ERROR;
691: END IF;
692:
697: EXCEPTION
698: WHEN FND_API.G_EXC_ERROR THEN
699: x_return_status := FND_API.G_RET_STS_ERROR;
700: ROLLBACK TO Insert_Planned_Matrls;
701: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
702: p_data => x_msg_data,
703: p_encoded => fnd_api.g_false);
704:
705:
705:
706: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
708: ROLLBACK TO Insert_Planned_Matrls;
709: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
710: p_data => x_msg_data,
711: p_encoded => fnd_api.g_false);
712:
713:
713:
714: WHEN OTHERS THEN
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: ROLLBACK TO Insert_Planned_Matrls;
717: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
718: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
719: p_procedure_name => 'INSERT_PLANNED_MATRLS',
720: p_error_text => SUBSTR(SQLERRM,1,500));
721: END IF;
714: WHEN OTHERS THEN
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: ROLLBACK TO Insert_Planned_Matrls;
717: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
718: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
719: p_procedure_name => 'INSERT_PLANNED_MATRLS',
720: p_error_text => SUBSTR(SQLERRM,1,500));
721: END IF;
722: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
718: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
719: p_procedure_name => 'INSERT_PLANNED_MATRLS',
720: p_error_text => SUBSTR(SQLERRM,1,500));
721: END IF;
722: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
723: p_data => x_msg_data,
724: p_encoded => fnd_api.g_false);
725:
726:
824: -- Standard start of API savepoint
825: SAVEPOINT Update_Planned_Materials;
826: -- Initialize message list if p_init_msg_list is set to TRUE
827: IF FND_API.To_Boolean( p_init_msg_list) THEN
828: FND_MSG_PUB.Initialize;
829: END IF;
830: -- Initialize API return status to success
831: x_return_status := FND_API.G_RET_STS_SUCCESS;
832: --
850: OPEN Get_Planned_Items_cur(l_planned_materials_tbl(i).schedule_material_id);
851: FETCH Get_Planned_Items_cur INTO l_Planned_Items_rec;
852: IF Get_Planned_Items_cur%NOTFOUND THEN
853: FND_MESSAGE.set_name( 'AHL','AHL_LTP_SCHE_ID_INVALID' );
854: FND_MSG_PUB.add;
855: IF (l_log_error >= l_log_current_level)THEN
856: fnd_log.string
857: (
858: l_log_error,
872: --
873: IF (l_planned_materials_tbl(i).object_version_number <> l_Planned_Items_rec.object_version_number )
874: THEN
875: FND_MESSAGE.set_name( 'AHL','AHL_LTP_RECORD_INVALID' );
876: FND_MSG_PUB.add;
877: IF (l_log_error >= l_log_current_level)THEN
878: fnd_log.string
879: (
880: l_log_error,
893: l_planned_items_rec.organization_id);
894: FETCH Get_Inv_Item_cur INTO l_planned_materials_tbl(i).inventory_item_id;
895: IF Get_Inv_Item_cur%NOTFOUND THEN
896: FND_MESSAGE.set_name( 'AHL','AHL_LTP_ITEM_INVALID' );
897: FND_MSG_PUB.add;
898: IF (l_log_error >= l_log_current_level)THEN
899: fnd_log.string
900: (
901: l_log_error,
928: -- This is based on PRIMARY_RESERVATION_QUANTITY is not null in mtl_reservations
929: IF l_rsvd_quantity IS NOT NULL THEN
930: FND_MESSAGE.set_name( 'AHL','AHL_LTP_ITEM_RSV_EXISTS' );
931: -- Cannot change the item required because at least one reservation already exists for this item.
932: FND_MSG_PUB.add;
933: RAISE FND_API.G_EXC_ERROR;
934: END IF;
935: END IF;
936: -- Serial Number Reservation Enhancement Changes Ends.
947:
948: -- yazhou 03-JUL-2006 ends
949: --
950: Fnd_message.SET_NAME('AHL','AHL_LTP_QUANTITY_INVALID');
951: Fnd_Msg_Pub.ADD;
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
955: -- Serial Number Reservation Enhancement Changes Starts.
970: IF NVL((NVL(l_rsvd_quantity,0) + nvl(l_Planned_Items_rec.completed_quantity,0)),-9) > NVL(l_planned_materials_tbl(i).quantity,-9)
971: THEN
972: Fnd_message.SET_NAME('AHL','AHL_LTP_QTY_EXCEEDS');
973: --Completed quantity plus reserved quantity exceeded scheduled quantity
974: Fnd_Msg_Pub.ADD;
975: RAISE FND_API.G_EXC_ERROR;
976: END IF;
977: END IF;
978: END IF;
982: l_planned_materials_tbl(i).requested_date <> FND_API.G_MISS_DATE) THEN
983: IF l_planned_materials_tbl(i).requested_date < trunc(sysdate) THEN
984: --
985: Fnd_message.SET_NAME('AHL','AHL_LTP_DATE_INVALID');
986: Fnd_Msg_Pub.ADD;
987: RAISE FND_API.G_EXC_ERROR;
988:
989: END IF;
990:
1002: (l_visit_end_date is not NULL AND
1003: (TRUNC(l_planned_materials_tbl(i).requested_date) > TRUNC(l_visit_end_date))) THEN
1004:
1005: Fnd_message.SET_NAME('AHL','AHL_LTP_REQ_DATE_RANGE');
1006: Fnd_Msg_Pub.ADD;
1007: RAISE FND_API.G_EXC_ERROR;
1008:
1009: END IF;
1010:
1021: P_REQUESTED_DATE => l_planned_materials_tbl(i).requested_date);
1022: END IF;
1023:
1024: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1025: l_msg_count := FND_MSG_PUB.count_msg;
1026: RAISE FND_API.G_EXC_ERROR;
1027: END IF;
1028:
1029: -- Serial Number Reservation Enhancement Changes. Ends
1033: END LOOP;
1034: END IF;
1035: -- Check Error Message stack.
1036: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1037: l_msg_count := FND_MSG_PUB.count_msg;
1038: IF l_msg_count > 0 THEN
1039: RAISE FND_API.G_EXC_ERROR;
1040: END IF;
1041: END IF;
1057: --
1058: END LOOP;
1059: END IF;
1060: -- Check Error Message stack.
1061: x_msg_count := FND_MSG_PUB.count_msg;
1062: IF x_msg_count > 0 THEN
1063: RAISE FND_API.G_EXC_ERROR;
1064: END IF;
1065:
1079: EXCEPTION
1080: WHEN FND_API.G_EXC_ERROR THEN
1081: x_return_status := FND_API.G_RET_STS_ERROR;
1082: ROLLBACK TO Update_Planned_Materials;
1083: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1084: p_data => x_msg_data,
1085: p_encoded => fnd_api.g_false);
1086:
1087:
1087:
1088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1090: ROLLBACK TO Update_Planned_Materials;
1091: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1092: p_data => x_msg_data,
1093: p_encoded => fnd_api.g_false);
1094:
1095:
1095:
1096: WHEN OTHERS THEN
1097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1098: ROLLBACK TO Update_Planned_Materials;
1099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1100: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1101: p_procedure_name => 'Update_Planned_Materials',
1102: p_error_text => SUBSTR(SQLERRM,1,500));
1103: END IF;
1096: WHEN OTHERS THEN
1097: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1098: ROLLBACK TO Update_Planned_Materials;
1099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1100: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1101: p_procedure_name => 'Update_Planned_Materials',
1102: p_error_text => SUBSTR(SQLERRM,1,500));
1103: END IF;
1104: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1100: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1101: p_procedure_name => 'Update_Planned_Materials',
1102: p_error_text => SUBSTR(SQLERRM,1,500));
1103: END IF;
1104: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1105: p_data => x_msg_data,
1106: p_encoded => fnd_api.g_false);
1107:
1108: END Update_Planned_Materials;
1206: -- Standard start of API savepoint
1207: SAVEPOINT Create_Task_Materials;
1208: -- Initialize message list if p_init_msg_list is set to TRUE
1209: IF FND_API.To_Boolean( p_init_msg_list) THEN
1210: FND_MSG_PUB.Initialize;
1211: END IF;
1212: -- Initialize API return status to success
1213: x_return_status := FND_API.G_RET_STS_SUCCESS;
1214: --
1343: );
1344: END IF;
1345: -- Check Error Message stack.
1346: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1347: l_msg_count := FND_MSG_PUB.count_msg;
1348: IF l_msg_count > 0 THEN
1349: RAISE FND_API.G_EXC_ERROR;
1350: END IF;
1351: END IF;
1401: END IF;
1402:
1403: -- Check Error Message stack.
1404: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1405: l_msg_count := FND_MSG_PUB.count_msg;
1406: IF l_msg_count > 0 THEN
1407: RAISE FND_API.G_EXC_ERROR;
1408: END IF;
1409: END IF;
1425: EXCEPTION
1426: WHEN FND_API.G_EXC_ERROR THEN
1427: x_return_status := FND_API.G_RET_STS_ERROR;
1428: ROLLBACK TO Create_Task_Materials;
1429: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1430: p_data => x_msg_data,
1431: p_encoded => fnd_api.g_false);
1432:
1433:
1433:
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436: ROLLBACK TO Create_Task_Materials;
1437: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1438: p_data => x_msg_data,
1439: p_encoded => fnd_api.g_false);
1440:
1441:
1441:
1442: WHEN OTHERS THEN
1443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1444: ROLLBACK TO Create_Task_Materials;
1445: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1446: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1447: p_procedure_name => 'Create_Task_Materials',
1448: p_error_text => SUBSTR(SQLERRM,1,500));
1449: END IF;
1442: WHEN OTHERS THEN
1443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1444: ROLLBACK TO Create_Task_Materials;
1445: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1446: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1447: p_procedure_name => 'Create_Task_Materials',
1448: p_error_text => SUBSTR(SQLERRM,1,500));
1449: END IF;
1450: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1446: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1447: p_procedure_name => 'Create_Task_Materials',
1448: p_error_text => SUBSTR(SQLERRM,1,500));
1449: END IF;
1450: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1451: p_data => x_msg_data,
1452: p_encoded => fnd_api.g_false);
1453:
1454:
1677: -- Standard start of API savepoint
1678: SAVEPOINT Modify_Visit_Task_Matrls;
1679: -- Initialize message list if p_init_msg_list is set to TRUE
1680: IF FND_API.To_Boolean( p_init_msg_list) THEN
1681: FND_MSG_PUB.Initialize;
1682: END IF;
1683: -- Initialize API return status to success
1684: x_return_status := FND_API.G_RET_STS_SUCCESS;
1685: -- yazhou 17-May-2006 starts
1807: 'After calling AHL_LTP_MTL_REQ_PVT.Get_Route_Mtl_Req, Return Status: ' || l_return_status);
1808: END IF;
1809: -- Check Error Message stack.
1810: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1811: l_msg_count := FND_MSG_PUB.count_msg;
1812: IF l_msg_count > 0 THEN
1813: RAISE FND_API.G_EXC_ERROR;
1814: END IF;
1815: END IF;
1951:
1952: -- Changed by surrkuma: Moved the following lines to within the loop
1953: -- Check Error Message stack.
1954: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1955: l_msg_count := FND_MSG_PUB.count_msg;
1956: IF l_msg_count > 0 THEN
1957: RAISE FND_API.G_EXC_ERROR;
1958: END IF;
1959: END IF;
1978: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY,
1979: 'Returned from call to AHL_PP_MATERIALS_PVT.Process_Material_Request. x_return_status = ' || l_return_status);
1980: END IF;
1981: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1982: l_msg_count := FND_MSG_PUB.count_msg;
1983: IF l_msg_count > 0 THEN
1984: RAISE FND_API.G_EXC_ERROR;
1985: END IF;
1986: END IF;
2030: END IF;
2031:
2032: -- Check Error Message stack.
2033: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2034: l_msg_count := FND_MSG_PUB.count_msg;
2035: RAISE FND_API.G_EXC_ERROR;
2036: END IF;
2037:
2038: -- Check Error Message stack.
2035: RAISE FND_API.G_EXC_ERROR;
2036: END IF;
2037:
2038: -- Check Error Message stack.
2039: x_msg_count := FND_MSG_PUB.count_msg;
2040: IF x_msg_count > 0 THEN
2041: RAISE FND_API.G_EXC_ERROR;
2042: END IF;
2043:
2053: EXCEPTION
2054: WHEN FND_API.G_EXC_ERROR THEN
2055: x_return_status := FND_API.G_RET_STS_ERROR;
2056: ROLLBACK TO Modify_Visit_Task_Matrls;
2057: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2058: p_data => x_msg_data,
2059: p_encoded => fnd_api.g_false);
2060:
2061:
2061:
2062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2064: ROLLBACK TO Modify_Visit_Task_Matrls;
2065: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2066: p_data => x_msg_data,
2067: p_encoded => fnd_api.g_false);
2068:
2069:
2069:
2070: WHEN OTHERS THEN
2071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2072: ROLLBACK TO Modify_Visit_Task_Matrls;
2073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2074: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2075: p_procedure_name => 'Modify_Visit_Task_Matrls',
2076: p_error_text => SUBSTR(SQLERRM,1,500));
2077: END IF;
2070: WHEN OTHERS THEN
2071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2072: ROLLBACK TO Modify_Visit_Task_Matrls;
2073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2074: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2075: p_procedure_name => 'Modify_Visit_Task_Matrls',
2076: p_error_text => SUBSTR(SQLERRM,1,500));
2077: END IF;
2078: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2074: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2075: p_procedure_name => 'Modify_Visit_Task_Matrls',
2076: p_error_text => SUBSTR(SQLERRM,1,500));
2077: END IF;
2078: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2079: p_data => x_msg_data,
2080: p_encoded => fnd_api.g_false);
2081:
2082:
2167: END IF;
2168: -- Standard call to check for call compatibility.
2169: IF FND_API.to_boolean(p_init_msg_list)
2170: THEN
2171: FND_MSG_PUB.initialize;
2172: END IF;
2173: -- Initialize API return status to success
2174: x_return_status := FND_API.G_RET_STS_SUCCESS;
2175: -- Initialize message list if p_init_msg_list is set to TRUE.
2209: CLOSE check_items_cur;
2210:
2211: ---------------------------End of Body---------------------------------------
2212: --Standard check to count messages
2213: l_msg_count := Fnd_Msg_Pub.count_msg;
2214:
2215: IF l_msg_count > 0 THEN
2216: X_msg_count := l_msg_count;
2217: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2232: EXCEPTION
2233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2234: ROLLBACK TO Unschedule_Task_Items;
2235: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2236: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2237: p_count => x_msg_count,
2238: p_data => x_msg_data);
2239: IF G_DEBUG='Y' THEN
2240:
2247:
2248: WHEN FND_API.G_EXC_ERROR THEN
2249: ROLLBACK TO search_schedule_materials;
2250: X_return_status := FND_API.G_RET_STS_ERROR;
2251: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2252: p_count => x_msg_count,
2253: p_data => X_msg_data);
2254: IF G_DEBUG='Y' THEN
2255:
2263:
2264: WHEN OTHERS THEN
2265: ROLLBACK TO Unschedule_Task_Items;
2266: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2267: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2268: THEN
2269: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
2270: p_procedure_name => 'UNSCHEDULE_TASK_ITEMS',
2271: p_error_text => SUBSTR(SQLERRM,1,240));
2265: ROLLBACK TO Unschedule_Task_Items;
2266: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2267: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2268: THEN
2269: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
2270: p_procedure_name => 'UNSCHEDULE_TASK_ITEMS',
2271: p_error_text => SUBSTR(SQLERRM,1,240));
2272: END IF;
2273: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2269: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
2270: p_procedure_name => 'UNSCHEDULE_TASK_ITEMS',
2271: p_error_text => SUBSTR(SQLERRM,1,240));
2272: END IF;
2273: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2274: p_count => x_msg_count,
2275: p_data => X_msg_data);
2276: IF G_DEBUG='Y' THEN
2277:
2358: -- Standard start of API savepoint
2359: SAVEPOINT Process_Planned_Materials;
2360: -- Initialize message list if p_init_msg_list is set to TRUE
2361: IF FND_API.To_Boolean( p_init_msg_list) THEN
2362: FND_MSG_PUB.Initialize;
2363: END IF;
2364:
2365: -- Initialize API return status to success
2366: x_return_status := FND_API.G_RET_STS_SUCCESS;
2394: 'After calling Create_Task_Materials, Return Status: ' || l_return_status);
2395: END IF;
2396: -- Check Error Message stack.
2397: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2398: l_msg_count := FND_MSG_PUB.count_msg;
2399: IF l_msg_count > 0 THEN
2400: RAISE FND_API.G_EXC_ERROR;
2401: END IF;
2402: END IF;
2433: );
2434: END IF;
2435: -- Check Error Message stack.
2436: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2437: l_msg_count := FND_MSG_PUB.count_msg;
2438: IF l_msg_count > 0 THEN
2439: RAISE FND_API.G_EXC_ERROR;
2440: END IF;
2441: END IF;
2454: x_msg_data => l_msg_data);
2455:
2456: -- Check Error Message stack.
2457: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2458: l_msg_count := FND_MSG_PUB.count_msg;
2459: IF l_msg_count > 0 THEN
2460: RAISE FND_API.G_EXC_ERROR;
2461: END IF;
2462: END IF;
2488: END IF;
2489:
2490: -- Check Error Message stack.
2491: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2492: l_msg_count := FND_MSG_PUB.count_msg;
2493: IF l_msg_count > 0 THEN
2494: RAISE FND_API.G_EXC_ERROR;
2495: END IF;
2496: END IF;
2522: );
2523: END IF;
2524: -- Check Error Message stack.
2525: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2526: l_msg_count := FND_MSG_PUB.count_msg;
2527: IF l_msg_count > 0 THEN
2528: RAISE FND_API.G_EXC_ERROR;
2529: END IF;
2530: END IF;
2553: );
2554: END IF;
2555: -- Check Error Message stack.
2556: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2557: l_msg_count := FND_MSG_PUB.count_msg;
2558: IF l_msg_count > 0 THEN
2559: RAISE FND_API.G_EXC_ERROR;
2560: END IF;
2561: END IF;
2573: EXCEPTION
2574: WHEN FND_API.G_EXC_ERROR THEN
2575: x_return_status := FND_API.G_RET_STS_ERROR;
2576: ROLLBACK TO Process_Planned_Materials;
2577: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2578: p_data => x_msg_data,
2579: p_encoded => fnd_api.g_false);
2580:
2581:
2581:
2582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2584: ROLLBACK TO Process_Planned_Materials;
2585: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2586: p_data => x_msg_data,
2587: p_encoded => fnd_api.g_false);
2588:
2589:
2589:
2590: WHEN OTHERS THEN
2591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2592: ROLLBACK TO Process_Planned_Materials;
2593: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2594: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2595: p_procedure_name => 'Process_Planned_Materials',
2596: p_error_text => SUBSTR(SQLERRM,1,500));
2597: END IF;
2590: WHEN OTHERS THEN
2591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2592: ROLLBACK TO Process_Planned_Materials;
2593: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2594: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2595: p_procedure_name => 'Process_Planned_Materials',
2596: p_error_text => SUBSTR(SQLERRM,1,500));
2597: END IF;
2598: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2594: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2595: p_procedure_name => 'Process_Planned_Materials',
2596: p_error_text => SUBSTR(SQLERRM,1,500));
2597: END IF;
2598: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2599: p_data => x_msg_data,
2600: p_encoded => fnd_api.g_false);
2601:
2602:
2722: SAVEPOINT Remove_Visit_Task_Matrls;
2723:
2724: -- Initialize message list if p_init_msg_list is set to TRUE
2725: IF FND_API.To_Boolean( p_init_msg_list) THEN
2726: FND_MSG_PUB.Initialize;
2727: END IF;
2728:
2729: -- Initialize API return status to success
2730: x_return_status := FND_API.G_RET_STS_SUCCESS;
2871: END IF;
2872: x_planned_order_flag := l_planned_order_flag;
2873:
2874: --Standard check to count messages
2875: l_msg_count := Fnd_Msg_Pub.count_msg;
2876:
2877: IF l_msg_count > 0 THEN
2878: X_msg_count := l_msg_count;
2879: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2892: EXCEPTION
2893: WHEN FND_API.G_EXC_ERROR THEN
2894: x_return_status := FND_API.G_RET_STS_ERROR;
2895: ROLLBACK TO Remove_Visit_Task_Matrls;
2896: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2897: p_data => x_msg_data,
2898: p_encoded => fnd_api.g_false);
2899:
2900:
2900:
2901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2903: ROLLBACK TO Remove_Visit_Task_Matrls;
2904: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2905: p_data => x_msg_data,
2906: p_encoded => fnd_api.g_false);
2907:
2908:
2908:
2909: WHEN OTHERS THEN
2910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2911: ROLLBACK TO Remove_Visit_Task_Matrls;
2912: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2913: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2914: p_procedure_name => 'REMOVE_VISIT_TASK_MATRLS',
2915: p_error_text => SUBSTR(SQLERRM,1,500));
2916: END IF;
2909: WHEN OTHERS THEN
2910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2911: ROLLBACK TO Remove_Visit_Task_Matrls;
2912: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2913: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2914: p_procedure_name => 'REMOVE_VISIT_TASK_MATRLS',
2915: p_error_text => SUBSTR(SQLERRM,1,500));
2916: END IF;
2917: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2913: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2914: p_procedure_name => 'REMOVE_VISIT_TASK_MATRLS',
2915: p_error_text => SUBSTR(SQLERRM,1,500));
2916: END IF;
2917: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2918: p_data => x_msg_data,
2919: p_encoded => fnd_api.g_false);
2920:
2921:
2988: SAVEPOINT Update_Unplanned_Matrls;
2989:
2990: -- Initialize message list if p_init_msg_list is set to TRUE
2991: IF FND_API.To_Boolean( p_init_msg_list) THEN
2992: FND_MSG_PUB.Initialize;
2993: END IF;
2994: -- Initialize API return status to success
2995: x_return_status := FND_API.G_RET_STS_SUCCESS;
2996:
3052: EXCEPTION
3053: WHEN FND_API.G_EXC_ERROR THEN
3054: x_return_status := FND_API.G_RET_STS_ERROR;
3055: ROLLBACK TO Update_Unplanned_Matrls;
3056: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3057: p_data => x_msg_data,
3058: p_encoded => fnd_api.g_false);
3059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3058: p_encoded => fnd_api.g_false);
3059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3061: ROLLBACK TO Update_Unplanned_Matrls;
3062: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3063: p_data => x_msg_data,
3064: p_encoded => fnd_api.g_false);
3065: WHEN OTHERS THEN
3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3064: p_encoded => fnd_api.g_false);
3065: WHEN OTHERS THEN
3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3067: ROLLBACK TO Update_Unplanned_Matrls;
3068: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3069: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3070: p_procedure_name => 'UPDATE_UNPLANNED_MATRLS',
3071: p_error_text => SUBSTR(SQLERRM,1,500));
3072: END IF;
3065: WHEN OTHERS THEN
3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3067: ROLLBACK TO Update_Unplanned_Matrls;
3068: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3069: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3070: p_procedure_name => 'UPDATE_UNPLANNED_MATRLS',
3071: p_error_text => SUBSTR(SQLERRM,1,500));
3072: END IF;
3073: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3069: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3070: p_procedure_name => 'UPDATE_UNPLANNED_MATRLS',
3071: p_error_text => SUBSTR(SQLERRM,1,500));
3072: END IF;
3073: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3074: p_data => x_msg_data,
3075: p_encoded => fnd_api.g_false);
3076: END Update_Unplanned_Matrls;
3077:
3178: IF l_prev_org_id IS NULL THEN
3179: Return;
3180: ELSIF l_org_count > 1 THEN
3181: FND_MESSAGE.set_name('AHL', 'AHL_LTP_MULTI_ORG');
3182: FND_MSG_PUB.ADD;
3183: RAISE Fnd_Api.g_exc_error;
3184: END IF;
3185:
3186: IF l_prev_org_id <> l_cur_org_id THEN
3315: END IF;
3316:
3317: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
3318: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
3319: FND_MSG_PUB.INITIALIZE;
3320: END IF;
3321:
3322: -- Log API entry point
3323: IF (l_log_procedure >= l_log_current_level) THEN
3328: IF (l_log_statement >= l_log_current_level) THEN
3329: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Task id is null' );
3330: END IF;
3331: Fnd_Message.SET_NAME('AHL','AHL_VISIT_TASKID_NULL');
3332: Fnd_Msg_Pub.ADD;
3333: RAISE Fnd_Api.G_EXC_ERROR;
3334: END IF;
3335:
3336: --Update the status of the record to 'HISTORY'
3360: EXCEPTION
3361: WHEN Fnd_Api.g_exc_error THEN
3362: ROLLBACK TO Update_Material_Reqrs_sts;
3363: x_return_status := Fnd_Api.g_ret_sts_error;
3364: Fnd_Msg_Pub.count_and_get (
3365: p_encoded => Fnd_Api.g_false,
3366: p_count => x_msg_count,
3367: p_data => x_msg_data);
3368:
3368:
3369: WHEN Fnd_Api.g_exc_unexpected_error THEN
3370: ROLLBACK TO Update_Material_Reqrs_sts;
3371: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
3372: Fnd_Msg_Pub.count_and_get (
3373: p_encoded => Fnd_Api.g_false,
3374: p_count => x_msg_count,
3375: p_data => x_msg_data);
3376:
3376:
3377: WHEN OTHERS THEN
3378: ROLLBACK TO Update_Material_Reqrs_sts;
3379: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
3380: Fnd_Msg_Pub.count_and_get (
3381: p_encoded => Fnd_Api.g_false,
3382: p_count => x_msg_count,
3383: p_data => x_msg_data );
3384: END Update_Material_Reqrs_status;
3617:
3618: -- Initialize message list if p_init_msg_list is set to TRUE
3619:
3620: IF FND_API.To_Boolean( p_init_msg_list) THEN
3621: FND_MSG_PUB.Initialize;
3622: END IF;
3623:
3624: -- Initialize API return status to success
3625: x_return_status := FND_API.G_RET_STS_SUCCESS;
3657:
3658: IF (l_log_statement >= l_log_current_level) THEN
3659: fnd_log.string(l_log_statement,
3660: L_DEBUG_KEY,
3661: 'After calling POPULATE_PROF_MAT_REQ. l_return_status = ' || l_return_status ||' FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg||'l_nrp_mat_req_tbl.count is : '||l_nrp_mat_req_tbl.count);
3662: END IF;
3663:
3664: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3665: x_msg_count := FND_MSG_PUB.count_msg;
3661: 'After calling POPULATE_PROF_MAT_REQ. l_return_status = ' || l_return_status ||' FND_MSG_PUB.count_msg= '||FND_MSG_PUB.count_msg||'l_nrp_mat_req_tbl.count is : '||l_nrp_mat_req_tbl.count);
3662: END IF;
3663:
3664: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3665: x_msg_count := FND_MSG_PUB.count_msg;
3666: IF (l_log_statement >= l_log_current_level) THEN
3667: fnd_log.string(l_log_statement,
3668: L_DEBUG_KEY,
3669: 'Errors from POPULATE_PROF_MAT_REQ. Message count: ' || x_msg_count);
3923: WHEN FND_API.G_EXC_ERROR THEN
3924:
3925: x_return_status := FND_API.G_RET_STS_ERROR;
3926: ROLLBACK TO Associate_Stage_Materials_pvt;
3927: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3928: p_data => x_msg_data,
3929: p_encoded => fnd_api.g_false);
3930:
3931: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3930:
3931: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3933: ROLLBACK TO Associate_Stage_Materials_pvt;
3934: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3935: p_data => x_msg_data,
3936: p_encoded => fnd_api.g_false);
3937:
3938: WHEN OTHERS THEN
3938: WHEN OTHERS THEN
3939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3940: ROLLBACK TO Associate_Stage_Materials_pvt;
3941:
3942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3943: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3944: p_procedure_name => 'Associate_Stage_Materials',
3945: p_error_text => SUBSTR(SQLERRM,1,500));
3946: END IF;
3939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3940: ROLLBACK TO Associate_Stage_Materials_pvt;
3941:
3942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3943: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3944: p_procedure_name => 'Associate_Stage_Materials',
3945: p_error_text => SUBSTR(SQLERRM,1,500));
3946: END IF;
3947:
3944: p_procedure_name => 'Associate_Stage_Materials',
3945: p_error_text => SUBSTR(SQLERRM,1,500));
3946: END IF;
3947:
3948: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3949: p_data => x_msg_data,
3950: p_encoded => fnd_api.g_false);
3951: END Associate_Stage_Materials;
3952:
4069:
4070: -- Initialize message list if p_init_msg_list is set to TRUE
4071:
4072: IF FND_API.To_Boolean( p_init_msg_list) THEN
4073: FND_MSG_PUB.Initialize;
4074: END IF;
4075:
4076: -- Initialize API return status to success
4077: x_return_status := FND_API.G_RET_STS_SUCCESS;
4113: 'After calling AHL_RA_NR_PROFILE_PVT.POPULATE_PROF_MAT_REQ. l_return_status = ' || l_return_status);
4114: END IF;
4115:
4116: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4117: x_msg_count := FND_MSG_PUB.count_msg;
4118: IF (l_log_statement >= l_log_current_level) THEN
4119: fnd_log.string(l_log_statement,
4120: L_DEBUG_KEY,
4121: 'Errors from AHL_RA_NR_PROFILE_PVT.POPULATE_PROF_MAT_REQ. Message count: ' || x_msg_count);
4290: WHEN FND_API.G_EXC_ERROR THEN
4291:
4292: x_return_status := FND_API.G_RET_STS_ERROR;
4293: ROLLBACK TO Remove_Stage_Materials_pvt;
4294: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4295: p_data => x_msg_data,
4296: p_encoded => fnd_api.g_false);
4297:
4298: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4297:
4298: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4300: ROLLBACK TO Remove_Stage_Materials_pvt;
4301: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4302: p_data => x_msg_data,
4303: p_encoded => fnd_api.g_false);
4304:
4305: WHEN OTHERS THEN
4305: WHEN OTHERS THEN
4306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4307: ROLLBACK TO Remove_Stage_Materials_pvt;
4308:
4309: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4310: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4311: p_procedure_name => 'Remove_Stage_Materials',
4312: p_error_text => SUBSTR(SQLERRM,1,500));
4313: END IF;
4306: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4307: ROLLBACK TO Remove_Stage_Materials_pvt;
4308:
4309: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4310: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4311: p_procedure_name => 'Remove_Stage_Materials',
4312: p_error_text => SUBSTR(SQLERRM,1,500));
4313: END IF;
4314:
4311: p_procedure_name => 'Remove_Stage_Materials',
4312: p_error_text => SUBSTR(SQLERRM,1,500));
4313: END IF;
4314:
4315: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4316: p_data => x_msg_data,
4317: p_encoded => fnd_api.g_false);
4318: END Remove_Stage_Materials;
4319: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
4401:
4402: -- Initialize message list if p_init_msg_list is set to TRUE
4403:
4404: IF FND_API.To_Boolean( p_init_msg_list) THEN
4405: FND_MSG_PUB.Initialize;
4406: END IF;
4407:
4408: -- Initialize API return status to success
4409: x_return_status := FND_API.G_RET_STS_SUCCESS;
4536: WHEN FND_API.G_EXC_ERROR THEN
4537:
4538: x_return_status := FND_API.G_RET_STS_ERROR;
4539: ROLLBACK TO Delete_Default_Stage_Materials;
4540: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4541: p_data => x_msg_data,
4542: p_encoded => fnd_api.g_false);
4543:
4544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4543:
4544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4546: ROLLBACK TO Delete_Default_Stage_Materials;
4547: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4548: p_data => x_msg_data,
4549: p_encoded => fnd_api.g_false);
4550:
4551: WHEN OTHERS THEN
4551: WHEN OTHERS THEN
4552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4553: ROLLBACK TO Delete_Default_Stage_Materials;
4554:
4555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4556: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4557: p_procedure_name => 'Delete_Default_Stage_Materials',
4558: p_error_text => SUBSTR(SQLERRM,1,500));
4559: END IF;
4552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4553: ROLLBACK TO Delete_Default_Stage_Materials;
4554:
4555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4556: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4557: p_procedure_name => 'Delete_Default_Stage_Materials',
4558: p_error_text => SUBSTR(SQLERRM,1,500));
4559: END IF;
4560:
4557: p_procedure_name => 'Delete_Default_Stage_Materials',
4558: p_error_text => SUBSTR(SQLERRM,1,500));
4559: END IF;
4560:
4561: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4562: p_data => x_msg_data,
4563: p_encoded => fnd_api.g_false);
4564: END Delete_Default_Stage_Materials;
4565: