11:
12: PROCEDURE Update_Row
13: (
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
16: p_commit IN VARCHAR2 := FND_API.G_FALSE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: p_return_status OUT NOCOPY VARCHAR2,
19: p_msg_count OUT NOCOPY NUMBER,
12: PROCEDURE Update_Row
13: (
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
16: p_commit IN VARCHAR2 := FND_API.G_FALSE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: p_return_status OUT NOCOPY VARCHAR2,
19: p_msg_count OUT NOCOPY NUMBER,
20: p_msg_data OUT NOCOPY VARCHAR2,
13: (
14: p_api_version IN NUMBER,
15: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
16: p_commit IN VARCHAR2 := FND_API.G_FALSE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: p_return_status OUT NOCOPY VARCHAR2,
19: p_msg_count OUT NOCOPY NUMBER,
20: p_msg_data OUT NOCOPY VARCHAR2,
21: --
58: --
59: --
60: SAVEPOINT Update_Row_Pvt ;
61: --
62: IF NOT FND_API.Compatible_API_Call ( l_api_version,
63: p_api_version,
64: l_api_name,
65: G_PKG_NAME )
66: THEN
63: p_api_version,
64: l_api_name,
65: G_PKG_NAME )
66: THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
68: END IF;
69: --
70:
71: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
68: END IF;
69: --
70:
71: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
72: FND_MSG_PUB.initialize ;
73: END IF;
74: --
75: p_return_status := FND_API.G_RET_STS_SUCCESS ;
71: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
72: FND_MSG_PUB.initialize ;
73: END IF;
74: --
75: p_return_status := FND_API.G_RET_STS_SUCCESS ;
76: --
77:
78: -- Initialize the table
79: FOR l_index in 1..PSB_WS_ACCT1.G_MAX_NUM_AMOUNTS LOOP
93: l_period_amount(10) := p_amount_P10;
94: l_period_amount(11) := p_amount_P11;
95: l_period_amount(12) := p_amount_P12;
96:
97: l_distribute_flag := FND_API.G_TRUE;
98:
99:
100:
101: -- Added the following loop for Bug 3243919
100:
101: -- Added the following loop for Bug 3243919
102: FOR l_index in 1..PSB_WS_ACCT1.G_MAX_NUM_AMOUNTS LOOP
103: IF nvl(l_period_amount(l_index),0) <> 0 THEN
104: l_distribute_flag := FND_API.G_FALSE;
105: END IF;
106: END LOOP;
107:
108:
116:
117: PSB_WS_ACCT_PVT.Create_Account_Dist
118: (
119: p_api_version => 1.0,
120: p_init_msg_list => FND_API.G_FALSE,
121: p_commit => FND_API.G_FALSE,
122: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
123: p_return_status => l_return_status,
124: p_msg_count => p_msg_count,
117: PSB_WS_ACCT_PVT.Create_Account_Dist
118: (
119: p_api_version => 1.0,
120: p_init_msg_list => FND_API.G_FALSE,
121: p_commit => FND_API.G_FALSE,
122: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
123: p_return_status => l_return_status,
124: p_msg_count => p_msg_count,
125: p_msg_data => p_msg_data,
118: (
119: p_api_version => 1.0,
120: p_init_msg_list => FND_API.G_FALSE,
121: p_commit => FND_API.G_FALSE,
122: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
123: p_return_status => l_return_status,
124: p_msg_count => p_msg_count,
125: p_msg_data => p_msg_data,
126: --
135: );
136:
137: END IF;
138:
139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
140: RAISE FND_API.G_EXC_ERROR ;
141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
143: END IF;
136:
137: END IF;
138:
139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
140: RAISE FND_API.G_EXC_ERROR ;
141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
143: END IF;
144:
137: END IF;
138:
139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
140: RAISE FND_API.G_EXC_ERROR ;
141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
143: END IF;
144:
145:
138:
139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
140: RAISE FND_API.G_EXC_ERROR ;
141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
143: END IF;
144:
145:
146: IF FND_API.To_Boolean ( p_commit ) THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
143: END IF;
144:
145:
146: IF FND_API.To_Boolean ( p_commit ) THEN
147: COMMIT WORK;
148: END iF;
149: --
150: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
151: p_data => p_msg_data );
152: --
153: EXCEPTION
154: --
155: WHEN FND_API.G_EXC_ERROR THEN
156: --
157: ROLLBACK TO Update_Row_Pvt ;
158: p_return_status := FND_API.G_RET_STS_ERROR;
159: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
154: --
155: WHEN FND_API.G_EXC_ERROR THEN
156: --
157: ROLLBACK TO Update_Row_Pvt ;
158: p_return_status := FND_API.G_RET_STS_ERROR;
159: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
160: p_data => p_msg_data );
161: --
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158: p_return_status := FND_API.G_RET_STS_ERROR;
159: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
160: p_data => p_msg_data );
161: --
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: --
164: ROLLBACK TO Update_Row_Pvt ;
165: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
161: --
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: --
164: ROLLBACK TO Update_Row_Pvt ;
165: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
166: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
167: p_data => p_msg_data );
168: --
169: WHEN OTHERS THEN
168: --
169: WHEN OTHERS THEN
170: --
171: ROLLBACK TO Update_Row_Pvt ;
172: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
173: --
174: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
175: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
176: l_api_name);
195:
196: PROCEDURE Delete_Row
197: (
198: p_api_version IN NUMBER,
199: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
200: p_commit IN VARCHAR2 := FND_API.G_FALSE,
201: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
202: p_return_status OUT NOCOPY VARCHAR2,
203: p_msg_count OUT NOCOPY NUMBER,
196: PROCEDURE Delete_Row
197: (
198: p_api_version IN NUMBER,
199: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
200: p_commit IN VARCHAR2 := FND_API.G_FALSE,
201: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
202: p_return_status OUT NOCOPY VARCHAR2,
203: p_msg_count OUT NOCOPY NUMBER,
204: p_msg_data OUT NOCOPY VARCHAR2,
197: (
198: p_api_version IN NUMBER,
199: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
200: p_commit IN VARCHAR2 := FND_API.G_FALSE,
201: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
202: p_return_status OUT NOCOPY VARCHAR2,
203: p_msg_count OUT NOCOPY NUMBER,
204: p_msg_data OUT NOCOPY VARCHAR2,
205: --
215: BEGIN
216: --
217: SAVEPOINT Delete_Row_Pvt ;
218: --
219: IF NOT FND_API.Compatible_API_Call ( l_api_version,
220: p_api_version,
221: l_api_name,
222: G_PKG_NAME )
223: THEN
220: p_api_version,
221: l_api_name,
222: G_PKG_NAME )
223: THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
225: END IF;
226: --
227:
228: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
225: END IF;
226: --
227:
228: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
229: FND_MSG_PUB.initialize ;
230: END IF;
231: --
232: p_return_status := FND_API.G_RET_STS_SUCCESS ;
228: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
229: FND_MSG_PUB.initialize ;
230: END IF;
231: --
232: p_return_status := FND_API.G_RET_STS_SUCCESS ;
233: --
234:
235: DELETE FROM PSB_WS_ACCOUNT_LINES
236: WHERE account_line_id = p_wal_id;
239: RAISE NO_DATA_FOUND ;
240: END IF;
241:
242: --
243: IF FND_API.To_Boolean ( p_commit ) THEN
244: COMMIT WORK;
245: END iF;
246: --
247: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
248: p_data => p_msg_data );
249:
250: EXCEPTION
251: --
252: WHEN FND_API.G_EXC_ERROR THEN
253: --
254: ROLLBACK TO Delete_Row_Pvt ;
255: p_return_status := FND_API.G_RET_STS_ERROR;
256: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
251: --
252: WHEN FND_API.G_EXC_ERROR THEN
253: --
254: ROLLBACK TO Delete_Row_Pvt ;
255: p_return_status := FND_API.G_RET_STS_ERROR;
256: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
257: p_data => p_msg_data );
258: --
259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255: p_return_status := FND_API.G_RET_STS_ERROR;
256: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
257: p_data => p_msg_data );
258: --
259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
260: --
261: ROLLBACK TO Delete_Row_Pvt ;
262: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
258: --
259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
260: --
261: ROLLBACK TO Delete_Row_Pvt ;
262: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
264: p_data => p_msg_data );
265: --
266: WHEN OTHERS THEN
265: --
266: WHEN OTHERS THEN
267: --
268: ROLLBACK TO Delete_Row_Pvt ;
269: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: --
271: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
272: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
273: l_api_name);