1: PACKAGE BODY MTL_CROSS_REFERENCES_PUB AS
2: /* $Header: INVPXRFB.pls 120.6 2011/06/22 23:48:34 akbharga noship $ */
3:
4: PROCEDURE Process_XRef(
5: p_api_version IN NUMBER,
4: PROCEDURE Process_XRef(
5: p_api_version IN NUMBER,
6: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
7: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
8: p_XRef_Tbl IN OUT NOCOPY MTL_CROSS_REFERENCES_PUB.XRef_Tbl_Type,
9: x_return_status OUT NOCOPY VARCHAR2,
10: x_msg_count OUT NOCOPY NUMBER,
11: x_message_list OUT NOCOPY Error_Handler.Error_Tbl_Type) IS
12:
9: x_return_status OUT NOCOPY VARCHAR2,
10: x_msg_count OUT NOCOPY NUMBER,
11: x_message_list OUT NOCOPY Error_Handler.Error_Tbl_Type) IS
12:
13: l_Pub_XRef_Tbl MTL_CROSS_REFERENCES_PUB.XRef_Tbl_Type;
14: l_Pub_XRef_Rec MTL_CROSS_REFERENCES_PUB.XRef_Rec_Type;
15: g_Upd_Null_CHAR CONSTANT VARCHAR2(1) := '!';
16: g_Upd_Null_NUM CONSTANT NUMBER := -999999;
17:
10: x_msg_count OUT NOCOPY NUMBER,
11: x_message_list OUT NOCOPY Error_Handler.Error_Tbl_Type) IS
12:
13: l_Pub_XRef_Tbl MTL_CROSS_REFERENCES_PUB.XRef_Tbl_Type;
14: l_Pub_XRef_Rec MTL_CROSS_REFERENCES_PUB.XRef_Rec_Type;
15: g_Upd_Null_CHAR CONSTANT VARCHAR2(1) := '!';
16: g_Upd_Null_NUM CONSTANT NUMBER := -999999;
17:
18: BEGIN
16: g_Upd_Null_NUM CONSTANT NUMBER := -999999;
17:
18: BEGIN
19:
20: -- Save point for MTL_CROSS_REFERENCES_PUB
21: SAVEPOINT MTL_CROSS_REFERENCES_PUB;
22:
23: -- Initialize message list
24: IF FND_API.To_Boolean (p_init_msg_list) THEN
17:
18: BEGIN
19:
20: -- Save point for MTL_CROSS_REFERENCES_PUB
21: SAVEPOINT MTL_CROSS_REFERENCES_PUB;
22:
23: -- Initialize message list
24: IF FND_API.To_Boolean (p_init_msg_list) THEN
25: Error_Handler.Initialize;
195:
196: EXCEPTION
197: WHEN OTHERS THEN
198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199: ROLLBACK TO MTL_CROSS_REFERENCES_PUB; -- rolling back to savepoint
200:
201: END Process_XRef;
202: END MTL_CROSS_REFERENCES_PUB;
198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199: ROLLBACK TO MTL_CROSS_REFERENCES_PUB; -- rolling back to savepoint
200:
201: END Process_XRef;
202: END MTL_CROSS_REFERENCES_PUB;