189: END IF;
190:
191: -- Initialize message list if p_init_msg_list is set to TRUE.
192: IF FND_API.to_Boolean( p_init_msg_list ) THEN
193: FND_MSG_PUB.initialize;
194: END IF;
195:
196: -- Initialize API return status to success
197: x_return_status := FND_API.G_RET_STS_SUCCESS;
492: COMMIT WORK;
493: END IF;
494:
495: -- Standard call to get message count and IF count is get message info.
496: FND_MSG_PUB.Count_And_Get
497: (p_count => x_msg_count,
498: p_data => x_msg_data );
499:
500: EXCEPTION
500: EXCEPTION
501: WHEN FND_API.G_EXC_ERROR THEN
502: ROLLBACK TO Group_Wip_update;
503: x_return_status := FND_API.G_RET_STS_ERROR ;
504: FND_MSG_PUB.Count_And_Get
505: (p_count => x_msg_count,
506: p_data => x_msg_data );
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
506: p_data => x_msg_data );
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
509: ROLLBACK TO Group_Wip_update;
510: FND_MSG_PUB.Count_And_Get
511: ( p_count => x_msg_count,
512: p_data => x_msg_data );
513: WHEN OTHERS THEN
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
512: p_data => x_msg_data );
513: WHEN OTHERS THEN
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
515: ROLLBACK TO Group_Wip_update ;
516: IF FND_MSG_PUB.Check_Msg_Level
517: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
518: THEN
519: FND_MSG_PUB.Add_Exc_Msg
520: (G_PKG_NAME ,
513: WHEN OTHERS THEN
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
515: ROLLBACK TO Group_Wip_update ;
516: IF FND_MSG_PUB.Check_Msg_Level
517: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
518: THEN
519: FND_MSG_PUB.Add_Exc_Msg
520: (G_PKG_NAME ,
521: l_api_name );
515: ROLLBACK TO Group_Wip_update ;
516: IF FND_MSG_PUB.Check_Msg_Level
517: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
518: THEN
519: FND_MSG_PUB.Add_Exc_Msg
520: (G_PKG_NAME ,
521: l_api_name );
522: END IF;
523: FND_MSG_PUB.Count_And_Get
519: FND_MSG_PUB.Add_Exc_Msg
520: (G_PKG_NAME ,
521: l_api_name );
522: END IF;
523: FND_MSG_PUB.Count_And_Get
524: (p_count => x_msg_count,
525: p_data => x_msg_data );
526:
527: END Group_Wip_update;
578: END IF;
579:
580: -- Initialize message list if p_init_msg_list is set to TRUE.
581: IF FND_API.to_Boolean( p_init_msg_list ) THEN
582: FND_MSG_PUB.initialize;
583: END IF;
584:
585: -- Initialize API return status to success
586: x_return_status := FND_API.G_RET_STS_SUCCESS;
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
823: ROLLBACK TO Pre_process_update;
824: x_return_status := FND_API.G_RET_STS_ERROR ;
825: FND_MSG_PUB.Count_And_Get
826: (p_count => x_msg_count,
827: p_data => x_msg_data );
828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
827: p_data => x_msg_data );
828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
830: ROLLBACK TO Pre_process_update ;
831: FND_MSG_PUB.Count_And_Get
832: ( p_count => x_msg_count,
833: p_data => x_msg_data );
834: WHEN OTHERS THEN
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
833: p_data => x_msg_data );
834: WHEN OTHERS THEN
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
836: ROLLBACK TO Pre_process_update ;
837: IF FND_MSG_PUB.Check_Msg_Level
838: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
839: THEN
840: FND_MSG_PUB.Add_Exc_Msg
841: (G_PKG_NAME ,
834: WHEN OTHERS THEN
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
836: ROLLBACK TO Pre_process_update ;
837: IF FND_MSG_PUB.Check_Msg_Level
838: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
839: THEN
840: FND_MSG_PUB.Add_Exc_Msg
841: (G_PKG_NAME ,
842: l_api_name );
836: ROLLBACK TO Pre_process_update ;
837: IF FND_MSG_PUB.Check_Msg_Level
838: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
839: THEN
840: FND_MSG_PUB.Add_Exc_Msg
841: (G_PKG_NAME ,
842: l_api_name );
843: END IF;
844: FND_MSG_PUB.Count_And_Get
840: FND_MSG_PUB.Add_Exc_Msg
841: (G_PKG_NAME ,
842: l_api_name );
843: END IF;
844: FND_MSG_PUB.Count_And_Get
845: (p_count => x_msg_count,
846: p_data => x_msg_data );
847: END Pre_process_update;
848:
898: END IF;
899:
900: -- Initialize message list if p_init_msg_list is set to TRUE.
901: IF FND_API.to_Boolean( p_init_msg_list ) THEN
902: FND_MSG_PUB.initialize;
903: END IF;
904:
905: -- Initialize API return status to success
906: x_return_status := FND_API.G_RET_STS_SUCCESS;
1143: EXCEPTION
1144: WHEN FND_API.G_EXC_ERROR THEN
1145: ROLLBACK TO Post_process_update;
1146: x_return_status := FND_API.G_RET_STS_ERROR ;
1147: FND_MSG_PUB.Count_And_Get
1148: (p_count => x_msg_count,
1149: p_data => x_msg_data );
1150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1149: p_data => x_msg_data );
1150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1152: ROLLBACK TO Post_process_update ;
1153: FND_MSG_PUB.Count_And_Get
1154: ( p_count => x_msg_count,
1155: p_data => x_msg_data );
1156: WHEN OTHERS THEN
1157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1155: p_data => x_msg_data );
1156: WHEN OTHERS THEN
1157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1158: ROLLBACK TO Post_process_update ;
1159: IF FND_MSG_PUB.Check_Msg_Level
1160: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1161: THEN
1162: FND_MSG_PUB.Add_Exc_Msg
1163: (G_PKG_NAME ,
1156: WHEN OTHERS THEN
1157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1158: ROLLBACK TO Post_process_update ;
1159: IF FND_MSG_PUB.Check_Msg_Level
1160: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1161: THEN
1162: FND_MSG_PUB.Add_Exc_Msg
1163: (G_PKG_NAME ,
1164: l_api_name );
1158: ROLLBACK TO Post_process_update ;
1159: IF FND_MSG_PUB.Check_Msg_Level
1160: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1161: THEN
1162: FND_MSG_PUB.Add_Exc_Msg
1163: (G_PKG_NAME ,
1164: l_api_name );
1165: END IF;
1166: FND_MSG_PUB.Count_And_Get
1162: FND_MSG_PUB.Add_Exc_Msg
1163: (G_PKG_NAME ,
1164: l_api_name );
1165: END IF;
1166: FND_MSG_PUB.Count_And_Get
1167: (p_count => x_msg_count,
1168: p_data => x_msg_data );
1169: END Post_process_update;
1170:
1278: END IF;
1279:
1280: -- Initialize message list if p_init_msg_list is set to TRUE.
1281: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1282: FND_MSG_PUB.initialize;
1283: END IF;
1284:
1285: -- Initialize API return status to success
1286: x_return_status := FND_API.G_RET_STS_SUCCESS;
1358: END IF;
1359:
1360: fnd_message.set_name('CSD','CSD_INVALID_ITEM_ID');
1361: fnd_message.set_token('INVENTORY_ITEM_ID',C1.inventory_item_id);
1362: fnd_msg_pub.add;
1363: RAISE FND_API.G_EXC_ERROR;
1364: End;
1365:
1366: IF l_ib_flag = 'Y' THEN
1428: END IF;
1429:
1430: fnd_message.set_name('CSD','CSD_INVALID_SERIAL_NUMBER');
1431: fnd_message.set_token('SERIAL_NUMBER',C1.serial_number );
1432: fnd_msg_pub.add;
1433: RAISE FND_API.G_EXC_ERROR;
1434: End;
1435:
1436: -- Update csd_repairs with txn_status
1576: EXCEPTION
1577: WHEN FND_API.G_EXC_ERROR THEN
1578: ROLLBACK TO Group_Rma_Update;
1579: x_return_status := FND_API.G_RET_STS_ERROR ;
1580: FND_MSG_PUB.Count_And_Get
1581: (p_count => x_msg_count,
1582: p_data => x_msg_data );
1583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1582: p_data => x_msg_data );
1583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1585: ROLLBACK TO Group_Rma_Update ;
1586: FND_MSG_PUB.Count_And_Get
1587: ( p_count => x_msg_count,
1588: p_data => x_msg_data );
1589: WHEN OTHERS THEN
1590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1588: p_data => x_msg_data );
1589: WHEN OTHERS THEN
1590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1591: ROLLBACK TO Group_Rma_Update ;
1592: IF FND_MSG_PUB.Check_Msg_Level
1593: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1594: THEN
1595: FND_MSG_PUB.Add_Exc_Msg
1596: (G_PKG_NAME ,
1589: WHEN OTHERS THEN
1590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1591: ROLLBACK TO Group_Rma_Update ;
1592: IF FND_MSG_PUB.Check_Msg_Level
1593: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1594: THEN
1595: FND_MSG_PUB.Add_Exc_Msg
1596: (G_PKG_NAME ,
1597: l_api_name );
1591: ROLLBACK TO Group_Rma_Update ;
1592: IF FND_MSG_PUB.Check_Msg_Level
1593: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1594: THEN
1595: FND_MSG_PUB.Add_Exc_Msg
1596: (G_PKG_NAME ,
1597: l_api_name );
1598: END IF;
1599: FND_MSG_PUB.Count_And_Get
1595: FND_MSG_PUB.Add_Exc_Msg
1596: (G_PKG_NAME ,
1597: l_api_name );
1598: END IF;
1599: FND_MSG_PUB.Count_And_Get
1600: (p_count => x_msg_count,
1601: p_data => x_msg_data );
1602: END Group_Rma_Update;
1603:
1698: END IF;
1699:
1700: -- Initialize message list if p_init_msg_list is set to TRUE.
1701: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1702: FND_MSG_PUB.initialize;
1703: END IF;
1704:
1705: -- Initialize API return status to success
1706: x_return_status := FND_API.G_RET_STS_SUCCESS;
1874: EXCEPTION
1875: WHEN FND_API.G_EXC_ERROR THEN
1876: ROLLBACK TO Group_ship_update;
1877: x_return_status := FND_API.G_RET_STS_ERROR ;
1878: FND_MSG_PUB.Count_And_Get
1879: (p_count => x_msg_count,
1880: p_data => x_msg_data );
1881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1880: p_data => x_msg_data );
1881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1883: ROLLBACK TO Group_ship_update ;
1884: FND_MSG_PUB.Count_And_Get
1885: ( p_count => x_msg_count,
1886: p_data => x_msg_data );
1887: WHEN OTHERS THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1886: p_data => x_msg_data );
1887: WHEN OTHERS THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1889: ROLLBACK TO Group_ship_update ;
1890: IF FND_MSG_PUB.Check_Msg_Level
1891: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1892: THEN
1893: FND_MSG_PUB.Add_Exc_Msg
1894: (G_PKG_NAME ,
1887: WHEN OTHERS THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1889: ROLLBACK TO Group_ship_update ;
1890: IF FND_MSG_PUB.Check_Msg_Level
1891: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1892: THEN
1893: FND_MSG_PUB.Add_Exc_Msg
1894: (G_PKG_NAME ,
1895: l_api_name );
1889: ROLLBACK TO Group_ship_update ;
1890: IF FND_MSG_PUB.Check_Msg_Level
1891: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1892: THEN
1893: FND_MSG_PUB.Add_Exc_Msg
1894: (G_PKG_NAME ,
1895: l_api_name );
1896: END IF;
1897: FND_MSG_PUB.Count_And_Get
1893: FND_MSG_PUB.Add_Exc_Msg
1894: (G_PKG_NAME ,
1895: l_api_name );
1896: END IF;
1897: FND_MSG_PUB.Count_And_Get
1898: (p_count => x_msg_count,
1899: p_data => x_msg_data );
1900:
1901: End Group_ship_update;