7: -- Procedure : Col_Adjustments
8: ------------------------------------------------------------------------------+
9: PROCEDURE Col_Adjustments
10: ( p_api_version IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_commit IN VARCHAR2 := FND_API.G_FALSE,
13: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14: x_return_status OUT NOCOPY VARCHAR2,
15: x_msg_count OUT NOCOPY NUMBER,
8: ------------------------------------------------------------------------------+
9: PROCEDURE Col_Adjustments
10: ( p_api_version IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_commit IN VARCHAR2 := FND_API.G_FALSE,
13: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14: x_return_status OUT NOCOPY VARCHAR2,
15: x_msg_count OUT NOCOPY NUMBER,
16: x_msg_data OUT NOCOPY VARCHAR2,
9: PROCEDURE Col_Adjustments
10: ( p_api_version IN NUMBER,
11: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
12: p_commit IN VARCHAR2 := FND_API.G_FALSE,
13: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14: x_return_status OUT NOCOPY VARCHAR2,
15: x_msg_count OUT NOCOPY NUMBER,
16: x_msg_data OUT NOCOPY VARCHAR2,
17: p_org_id IN NUMBER -- Added For R12 MOAC Changes
32: BEGIN
33: -- Standard Start of API savepoint
34: SAVEPOINT col_adjustments;
35: -- Standard call to check for call compatibility.
36: IF NOT FND_API.Compatible_API_Call (l_api_version,
37: p_api_version,
38: l_api_name,
39: G_PKG_NAME)
40: THEN
37: p_api_version,
38: l_api_name,
39: G_PKG_NAME)
40: THEN
41: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
42: END IF;
43: -- Initialize message list if p_init_msg_list is set to TRUE.
44: IF FND_API.to_Boolean( p_init_msg_list ) THEN
45: FND_MSG_PUB.initialize;
40: THEN
41: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
42: END IF;
43: -- Initialize message list if p_init_msg_list is set to TRUE.
44: IF FND_API.to_Boolean( p_init_msg_list ) THEN
45: FND_MSG_PUB.initialize;
46: END IF;
47: -- Initialize API return status to success
48: x_return_status := FND_API.G_RET_STS_SUCCESS;
44: IF FND_API.to_Boolean( p_init_msg_list ) THEN
45: FND_MSG_PUB.initialize;
46: END IF;
47: -- Initialize API return status to success
48: x_return_status := FND_API.G_RET_STS_SUCCESS;
49: -------------------+
50: -- API body
51: -------------------+
52: FOR l_changed_line_rec IN c_changed_lines LOOP
64: -------------------+
65: -- End of API body.
66: -------------------+
67: -- Standard check of p_commit.
68: IF FND_API.To_Boolean( p_commit ) THEN
69: COMMIT WORK;
70: END IF;
71: -- Standard call to get message count and if count is 1, get message info.
72: FND_MSG_PUB.Count_And_Get
71: -- Standard call to get message count and if count is 1, get message info.
72: FND_MSG_PUB.Count_And_Get
73: (p_count => x_msg_count ,
74: p_data => x_msg_data ,
75: p_encoded => FND_API.G_FALSE);
76: EXCEPTION
77: WHEN FND_API.G_EXC_ERROR THEN
78: ROLLBACK TO Col_Adjustments;
79: x_return_status := FND_API.G_RET_STS_ERROR ;
73: (p_count => x_msg_count ,
74: p_data => x_msg_data ,
75: p_encoded => FND_API.G_FALSE);
76: EXCEPTION
77: WHEN FND_API.G_EXC_ERROR THEN
78: ROLLBACK TO Col_Adjustments;
79: x_return_status := FND_API.G_RET_STS_ERROR ;
80: FND_MSG_PUB.Count_And_Get
81: (p_count => x_msg_count,
75: p_encoded => FND_API.G_FALSE);
76: EXCEPTION
77: WHEN FND_API.G_EXC_ERROR THEN
78: ROLLBACK TO Col_Adjustments;
79: x_return_status := FND_API.G_RET_STS_ERROR ;
80: FND_MSG_PUB.Count_And_Get
81: (p_count => x_msg_count,
82: p_data => x_msg_data,
83: p_encoded => FND_API.G_FALSE);
79: x_return_status := FND_API.G_RET_STS_ERROR ;
80: FND_MSG_PUB.Count_And_Get
81: (p_count => x_msg_count,
82: p_data => x_msg_data,
83: p_encoded => FND_API.G_FALSE);
84: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
85: ROLLBACK TO Col_Adjustments;
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
87: FND_MSG_PUB.Count_And_Get
80: FND_MSG_PUB.Count_And_Get
81: (p_count => x_msg_count,
82: p_data => x_msg_data,
83: p_encoded => FND_API.G_FALSE);
84: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
85: ROLLBACK TO Col_Adjustments;
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
87: FND_MSG_PUB.Count_And_Get
88: (p_count => x_msg_count,
82: p_data => x_msg_data,
83: p_encoded => FND_API.G_FALSE);
84: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
85: ROLLBACK TO Col_Adjustments;
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
87: FND_MSG_PUB.Count_And_Get
88: (p_count => x_msg_count,
89: p_data => x_msg_data,
90: p_encoded => FND_API.G_FALSE);
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
87: FND_MSG_PUB.Count_And_Get
88: (p_count => x_msg_count,
89: p_data => x_msg_data,
90: p_encoded => FND_API.G_FALSE);
91: WHEN OTHERS THEN
92: ROLLBACK TO Col_Adjustments;
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
94: IF FND_MSG_PUB.Check_Msg_Level
89: p_data => x_msg_data,
90: p_encoded => FND_API.G_FALSE);
91: WHEN OTHERS THEN
92: ROLLBACK TO Col_Adjustments;
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
94: IF FND_MSG_PUB.Check_Msg_Level
95: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
96: FND_MSG_PUB.Add_Exc_Msg
97: (G_PKG_NAME,
99: END IF;
100: FND_MSG_PUB.Count_And_Get
101: (p_count => x_msg_count,
102: p_data => x_msg_data,
103: p_encoded => FND_API.G_FALSE);
104: END Col_Adjustments;
105:
106:
107: END CN_NOT_TRX_GRP;