5: G_MSG_LVL_UNEXP_ERROR CONSTANT NUMBER := 60;
6:
7: PROCEDURE Insert_Inspection
8: ( p_api_version IN NUMBER ,
9: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
10: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
11: p_validation_level IN NUMBER :=
12: FND_API.G_VALID_LEVEL_FULL ,
13: p_created_by IN NUMBER ,
6:
7: PROCEDURE Insert_Inspection
8: ( p_api_version IN NUMBER ,
9: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
10: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
11: p_validation_level IN NUMBER :=
12: FND_API.G_VALID_LEVEL_FULL ,
13: p_created_by IN NUMBER ,
14: p_last_updated_by IN NUMBER ,
8: ( p_api_version IN NUMBER ,
9: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
10: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
11: p_validation_level IN NUMBER :=
12: FND_API.G_VALID_LEVEL_FULL ,
13: p_created_by IN NUMBER ,
14: p_last_updated_by IN NUMBER ,
15: p_last_update_login IN NUMBER ,
16: p_employee_id IN NUMBER ,
219: --dbms_output.enable('1000000');
220: -- Standard Start of API savepoint
221: SAVEPOINT INSPECTION_GRP;
222: -- Standard call to check for call compatibility.
223: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
224: p_api_version ,
225: l_api_name ,
226: G_PKG_NAME )
227: THEN
224: p_api_version ,
225: l_api_name ,
226: G_PKG_NAME )
227: THEN
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230: -- Initialize message list if p_init_msg_list is set to TRUE.
231: IF FND_API.to_Boolean( p_init_msg_list ) THEN
232: FND_MSG_PUB.initialize;
227: THEN
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230: -- Initialize message list if p_init_msg_list is set to TRUE.
231: IF FND_API.to_Boolean( p_init_msg_list ) THEN
232: FND_MSG_PUB.initialize;
233: END IF;
234: -- Initialize API return status to success
235: p_return_status := FND_API.G_RET_STS_SUCCESS;
231: IF FND_API.to_Boolean( p_init_msg_list ) THEN
232: FND_MSG_PUB.initialize;
233: END IF;
234: -- Initialize API return status to success
235: p_return_status := FND_API.G_RET_STS_SUCCESS;
236:
237: if p_transaction_type = 'ACCEPT' then
238: l_inspection_status_code := 'ACCEPTED';
239: elsif p_transaction_type = 'REJECT' then
238: l_inspection_status_code := 'ACCEPTED';
239: elsif p_transaction_type = 'REJECT' then
240: l_inspection_status_code := 'REJECTED';
241: else
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: end if;
244:
245: OPEN C1;
246: FETCH C1 INTO RCVT;
467:
468: /* End Bug 5018102 */
469:
470: -- Standard check of p_commit.
471: IF FND_API.To_Boolean( p_commit ) THEN
472: COMMIT WORK;
473: END IF;
474: -- Standard call to get message count and if count is 1, get message info.
475: FND_MSG_PUB.Count_And_Get
477: p_data => p_msg_data
478: );
479:
480: EXCEPTION
481: WHEN FND_API.G_EXC_ERROR THEN
482: ROLLBACK TO INSPECTION_GRP;
483: p_return_status := FND_API.G_RET_STS_ERROR ;
484: FND_MSG_PUB.Count_And_Get
485: ( p_count => p_msg_count ,
479:
480: EXCEPTION
481: WHEN FND_API.G_EXC_ERROR THEN
482: ROLLBACK TO INSPECTION_GRP;
483: p_return_status := FND_API.G_RET_STS_ERROR ;
484: FND_MSG_PUB.Count_And_Get
485: ( p_count => p_msg_count ,
486: p_data => p_msg_data
487: );
484: FND_MSG_PUB.Count_And_Get
485: ( p_count => p_msg_count ,
486: p_data => p_msg_data
487: );
488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
489: ROLLBACK TO INSPECTION_GRP;
490: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
491: FND_MSG_PUB.Count_And_Get
492: ( p_count => p_msg_count ,
486: p_data => p_msg_data
487: );
488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
489: ROLLBACK TO INSPECTION_GRP;
490: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
491: FND_MSG_PUB.Count_And_Get
492: ( p_count => p_msg_count ,
493: p_data => p_msg_data
494: );
494: );
495:
496: WHEN OTHERS THEN
497: ROLLBACK TO INSPECTION_GRP;
498: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
499: IF FND_MSG_PUB.Check_Msg_Level
500: (G_MSG_LVL_UNEXP_ERROR)
501: THEN
502: FND_MSG_PUB.Add_Exc_Msg