12:
13: IS
14: l_api_version CONSTANT NUMBER := 1.0;
15: l_api_name CONSTANT VARCHAR2(30) := 'create_accrual_rules';
16: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
17: l_agnv_rec agnv_rec_type := p_agnv_rec;
18:
19: BEGIN
20: SAVEPOINT create_accrual_rules;
18:
19: BEGIN
20: SAVEPOINT create_accrual_rules;
21:
22: x_return_status := FND_API.G_RET_STS_SUCCESS;
23:
24: -- customer pre-processing
25:
26:
33: x_msg_data => x_msg_data,
34: p_agnv_rec => p_agnv_rec,
35: x_agnv_rec => x_agnv_rec);
36:
37: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
40: RAISE FND_API.G_EXC_ERROR;
41: END IF;
34: p_agnv_rec => p_agnv_rec,
35: x_agnv_rec => x_agnv_rec);
36:
37: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
40: RAISE FND_API.G_EXC_ERROR;
41: END IF;
42:
35: x_agnv_rec => x_agnv_rec);
36:
37: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
40: RAISE FND_API.G_EXC_ERROR;
41: END IF;
42:
43: -- customer post-processing
36:
37: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
40: RAISE FND_API.G_EXC_ERROR;
41: END IF;
42:
43: -- customer post-processing
44:
44:
45:
46: EXCEPTION
47:
48: WHEN FND_API.G_EXC_ERROR THEN
49: ROLLBACK TO create_accrual_rules;
50: x_return_status := FND_API.G_RET_STS_ERROR;
51:
52: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
46: EXCEPTION
47:
48: WHEN FND_API.G_EXC_ERROR THEN
49: ROLLBACK TO create_accrual_rules;
50: x_return_status := FND_API.G_RET_STS_ERROR;
51:
52: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
53: ,p_count => x_msg_count
54: ,p_data => x_msg_data);
48: WHEN FND_API.G_EXC_ERROR THEN
49: ROLLBACK TO create_accrual_rules;
50: x_return_status := FND_API.G_RET_STS_ERROR;
51:
52: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
53: ,p_count => x_msg_count
54: ,p_data => x_msg_data);
55:
56: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
52: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
53: ,p_count => x_msg_count
54: ,p_data => x_msg_data);
55:
56: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
57: ROLLBACK TO create_accrual_rules;
58: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
59: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
60: ,p_count => x_msg_count
54: ,p_data => x_msg_data);
55:
56: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
57: ROLLBACK TO create_accrual_rules;
58: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
59: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
60: ,p_count => x_msg_count
61: ,p_data => x_msg_data);
62:
55:
56: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
57: ROLLBACK TO create_accrual_rules;
58: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
59: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
60: ,p_count => x_msg_count
61: ,p_data => x_msg_data);
62:
63: WHEN OTHERS THEN
62:
63: WHEN OTHERS THEN
64: ROLLBACK TO create_accrual_rules;
65: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','create_accrual_rules');
66: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
67: ,p_count => x_msg_count
68: ,p_data => x_msg_data);
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70:
65: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','create_accrual_rules');
66: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
67: ,p_count => x_msg_count
68: ,p_data => x_msg_data);
69: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70:
71: END create_accrual_rules;
72:
73:
82:
83: IS
84: l_api_version CONSTANT NUMBER := 1.0;
85: l_api_name CONSTANT VARCHAR2(30) := 'create_accrual_rules';
86: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
87: l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
88: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
89: BEGIN
90: SAVEPOINT create_accrual_rules;
84: l_api_version CONSTANT NUMBER := 1.0;
85: l_api_name CONSTANT VARCHAR2(30) := 'create_accrual_rules';
86: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
87: l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
88: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
89: BEGIN
90: SAVEPOINT create_accrual_rules;
91:
92: x_return_status := FND_API.G_RET_STS_SUCCESS;
88: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
89: BEGIN
90: SAVEPOINT create_accrual_rules;
91:
92: x_return_status := FND_API.G_RET_STS_SUCCESS;
93:
94: -- customer pre-processing
95:
96:
106: x_msg_data => x_msg_data,
107: p_agnv_rec => l_agnv_tbl(i),
108: x_agnv_rec => x_agnv_tbl(i));
109:
110: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
113: RAISE FND_API.G_EXC_ERROR;
114: END IF;
107: p_agnv_rec => l_agnv_tbl(i),
108: x_agnv_rec => x_agnv_tbl(i));
109:
110: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
113: RAISE FND_API.G_EXC_ERROR;
114: END IF;
115:
108: x_agnv_rec => x_agnv_tbl(i));
109:
110: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
113: RAISE FND_API.G_EXC_ERROR;
114: END IF;
115:
116: END LOOP;
109:
110: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
112: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
113: RAISE FND_API.G_EXC_ERROR;
114: END IF;
115:
116: END LOOP;
117: -- return overall status
122:
123:
124: EXCEPTION
125:
126: WHEN FND_API.G_EXC_ERROR THEN
127: ROLLBACK TO create_accrual_rules;
128: x_return_status := FND_API.G_RET_STS_ERROR;
129:
130: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
124: EXCEPTION
125:
126: WHEN FND_API.G_EXC_ERROR THEN
127: ROLLBACK TO create_accrual_rules;
128: x_return_status := FND_API.G_RET_STS_ERROR;
129:
130: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
131: ,p_count => x_msg_count
132: ,p_data => x_msg_data);
126: WHEN FND_API.G_EXC_ERROR THEN
127: ROLLBACK TO create_accrual_rules;
128: x_return_status := FND_API.G_RET_STS_ERROR;
129:
130: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
131: ,p_count => x_msg_count
132: ,p_data => x_msg_data);
133:
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
130: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
131: ,p_count => x_msg_count
132: ,p_data => x_msg_data);
133:
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135: ROLLBACK TO create_accrual_rules;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
138: ,p_count => x_msg_count
132: ,p_data => x_msg_data);
133:
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135: ROLLBACK TO create_accrual_rules;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
138: ,p_count => x_msg_count
139: ,p_data => x_msg_data);
140:
133:
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135: ROLLBACK TO create_accrual_rules;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
138: ,p_count => x_msg_count
139: ,p_data => x_msg_data);
140:
141: WHEN OTHERS THEN
140:
141: WHEN OTHERS THEN
142: ROLLBACK TO create_accrual_rules;
143: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','create_accrual_rules');
144: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
145: ,p_count => x_msg_count
146: ,p_data => x_msg_data);
147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
148:
143: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','create_accrual_rules');
144: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
145: ,p_count => x_msg_count
146: ,p_data => x_msg_data);
147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
148:
149: END create_accrual_rules;
150:
151:
160:
161: IS
162: l_api_version CONSTANT NUMBER := 1.0;
163: l_api_name CONSTANT VARCHAR2(30) := 'update_accrual_rules';
164: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
165: l_agnv_rec agnv_rec_type := p_agnv_rec;
166:
167: BEGIN
168: SAVEPOINT update_accrual_rules;
165: l_agnv_rec agnv_rec_type := p_agnv_rec;
166:
167: BEGIN
168: SAVEPOINT update_accrual_rules;
169: x_return_status := FND_API.G_RET_STS_SUCCESS;
170: -- customer pre-processing
171:
172: -- CALL THE MAIN PROCEDURE
173: OKL_SETUP_ACCRUALS_PVT.update_accrual_rules(p_api_version => l_api_version,
176: x_msg_count => x_msg_count,
177: x_msg_data => x_msg_data,
178: p_agnv_rec => p_agnv_rec,
179: x_agnv_rec => x_agnv_rec);
180: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
177: x_msg_data => x_msg_data,
178: p_agnv_rec => p_agnv_rec,
179: x_agnv_rec => x_agnv_rec);
180: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
178: p_agnv_rec => p_agnv_rec,
179: x_agnv_rec => x_agnv_rec);
180: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186: -- customer post-processing
179: x_agnv_rec => x_agnv_rec);
180: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186: -- customer post-processing
187:
186: -- customer post-processing
187:
188: EXCEPTION
189:
190: WHEN FND_API.G_EXC_ERROR THEN
191: ROLLBACK TO update_accrual_rules;
192: x_return_status := FND_API.G_RET_STS_ERROR;
193:
194: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
188: EXCEPTION
189:
190: WHEN FND_API.G_EXC_ERROR THEN
191: ROLLBACK TO update_accrual_rules;
192: x_return_status := FND_API.G_RET_STS_ERROR;
193:
194: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
195: ,p_count => x_msg_count
196: ,p_data => x_msg_data);
190: WHEN FND_API.G_EXC_ERROR THEN
191: ROLLBACK TO update_accrual_rules;
192: x_return_status := FND_API.G_RET_STS_ERROR;
193:
194: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
195: ,p_count => x_msg_count
196: ,p_data => x_msg_data);
197:
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
195: ,p_count => x_msg_count
196: ,p_data => x_msg_data);
197:
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: ROLLBACK TO update_accrual_rules;
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
202: ,p_count => x_msg_count
196: ,p_data => x_msg_data);
197:
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: ROLLBACK TO update_accrual_rules;
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
202: ,p_count => x_msg_count
203: ,p_data => x_msg_data);
204:
197:
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: ROLLBACK TO update_accrual_rules;
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
202: ,p_count => x_msg_count
203: ,p_data => x_msg_data);
204:
205: WHEN OTHERS THEN
204:
205: WHEN OTHERS THEN
206: ROLLBACK TO update_accrual_rules;
207: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','update_accrual_rules');
208: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
209: ,p_count => x_msg_count
210: ,p_data => x_msg_data);
211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212:
207: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','update_accrual_rules');
208: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
209: ,p_count => x_msg_count
210: ,p_data => x_msg_data);
211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212:
213: END update_accrual_rules;
214:
215:
224:
225: IS
226: l_api_version CONSTANT NUMBER := 1.0;
227: l_api_name CONSTANT VARCHAR2(30) := 'update_accrual_rules';
228: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
229: l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
230: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
231: BEGIN
232: SAVEPOINT update_accrual_rules;
226: l_api_version CONSTANT NUMBER := 1.0;
227: l_api_name CONSTANT VARCHAR2(30) := 'update_accrual_rules';
228: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
229: l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
230: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
231: BEGIN
232: SAVEPOINT update_accrual_rules;
233: x_return_status := FND_API.G_RET_STS_SUCCESS;
234: -- customer pre-processing
229: l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
230: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
231: BEGIN
232: SAVEPOINT update_accrual_rules;
233: x_return_status := FND_API.G_RET_STS_SUCCESS;
234: -- customer pre-processing
235:
236: IF l_agnv_tbl.COUNT > 0 THEN
237: FOR i IN l_agnv_tbl.FIRST..l_agnv_tbl.LAST
243: x_msg_count => x_msg_count,
244: x_msg_data => x_msg_data,
245: p_agnv_rec => l_agnv_tbl(i),
246: x_agnv_rec => x_agnv_tbl(i));
247: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
250: RAISE FND_API.G_EXC_ERROR;
251: END IF;
244: x_msg_data => x_msg_data,
245: p_agnv_rec => l_agnv_tbl(i),
246: x_agnv_rec => x_agnv_tbl(i));
247: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
250: RAISE FND_API.G_EXC_ERROR;
251: END IF;
252: END LOOP;
245: p_agnv_rec => l_agnv_tbl(i),
246: x_agnv_rec => x_agnv_tbl(i));
247: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
250: RAISE FND_API.G_EXC_ERROR;
251: END IF;
252: END LOOP;
253:
246: x_agnv_rec => x_agnv_tbl(i));
247: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
250: RAISE FND_API.G_EXC_ERROR;
251: END IF;
252: END LOOP;
253:
254: -- return overall status
257:
258: -- customer post-processing
259:
260: EXCEPTION
261: WHEN FND_API.G_EXC_ERROR THEN
262: ROLLBACK TO update_accrual_rules;
263: x_return_status := FND_API.G_RET_STS_ERROR;
264:
265: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
259:
260: EXCEPTION
261: WHEN FND_API.G_EXC_ERROR THEN
262: ROLLBACK TO update_accrual_rules;
263: x_return_status := FND_API.G_RET_STS_ERROR;
264:
265: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
266: ,p_count => x_msg_count
267: ,p_data => x_msg_data);
261: WHEN FND_API.G_EXC_ERROR THEN
262: ROLLBACK TO update_accrual_rules;
263: x_return_status := FND_API.G_RET_STS_ERROR;
264:
265: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
266: ,p_count => x_msg_count
267: ,p_data => x_msg_data);
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
265: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
266: ,p_count => x_msg_count
267: ,p_data => x_msg_data);
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: ROLLBACK TO update_accrual_rules;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
273: ,p_count => x_msg_count
267: ,p_data => x_msg_data);
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: ROLLBACK TO update_accrual_rules;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
273: ,p_count => x_msg_count
274: ,p_data => x_msg_data);
275:
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: ROLLBACK TO update_accrual_rules;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
273: ,p_count => x_msg_count
274: ,p_data => x_msg_data);
275:
276: WHEN OTHERS THEN
275:
276: WHEN OTHERS THEN
277: ROLLBACK TO update_accrual_rules;
278: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','update_accrual_rules');
279: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
280: ,p_count => x_msg_count
281: ,p_data => x_msg_data);
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283:
278: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','update_accrual_rules');
279: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
280: ,p_count => x_msg_count
281: ,p_data => x_msg_data);
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283:
284: END update_accrual_rules;
285:
286:
294:
295: IS
296: l_api_version CONSTANT NUMBER := 1.0;
297: l_api_name CONSTANT VARCHAR2(30) := 'delete_accrual_rules';
298: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
299: l_agnv_rec agnv_rec_type := p_agnv_rec;
300:
301: BEGIN
302: SAVEPOINT delete_accrual_rules;
299: l_agnv_rec agnv_rec_type := p_agnv_rec;
300:
301: BEGIN
302: SAVEPOINT delete_accrual_rules;
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
304: -- customer pre-processing
305:
306: -- CALL THE MAIN PROCEDURE
307: OKL_SETUP_ACCRUALS_PVT.delete_accrual_rules(p_api_version => l_api_version,
309: x_return_status => x_return_Status,
310: x_msg_count => x_msg_count,
311: x_msg_data => x_msg_data,
312: p_agnv_rec => p_agnv_rec);
313: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
316: RAISE FND_API.G_EXC_ERROR;
317: END IF;
310: x_msg_count => x_msg_count,
311: x_msg_data => x_msg_data,
312: p_agnv_rec => p_agnv_rec);
313: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
316: RAISE FND_API.G_EXC_ERROR;
317: END IF;
318:
311: x_msg_data => x_msg_data,
312: p_agnv_rec => p_agnv_rec);
313: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
316: RAISE FND_API.G_EXC_ERROR;
317: END IF;
318:
319: -- customer post-processing
312: p_agnv_rec => p_agnv_rec);
313: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
316: RAISE FND_API.G_EXC_ERROR;
317: END IF;
318:
319: -- customer post-processing
320:
318:
319: -- customer post-processing
320:
321: EXCEPTION
322: WHEN FND_API.G_EXC_ERROR THEN
323: ROLLBACK TO delete_accrual_rules;
324: x_return_status := FND_API.G_RET_STS_ERROR;
325:
326: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
320:
321: EXCEPTION
322: WHEN FND_API.G_EXC_ERROR THEN
323: ROLLBACK TO delete_accrual_rules;
324: x_return_status := FND_API.G_RET_STS_ERROR;
325:
326: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
327: ,p_count => x_msg_count
328: ,p_data => x_msg_data);
322: WHEN FND_API.G_EXC_ERROR THEN
323: ROLLBACK TO delete_accrual_rules;
324: x_return_status := FND_API.G_RET_STS_ERROR;
325:
326: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
327: ,p_count => x_msg_count
328: ,p_data => x_msg_data);
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
326: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
327: ,p_count => x_msg_count
328: ,p_data => x_msg_data);
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: ROLLBACK TO delete_accrual_rules;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
334: ,p_count => x_msg_count
328: ,p_data => x_msg_data);
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: ROLLBACK TO delete_accrual_rules;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
334: ,p_count => x_msg_count
335: ,p_data => x_msg_data);
336:
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: ROLLBACK TO delete_accrual_rules;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
334: ,p_count => x_msg_count
335: ,p_data => x_msg_data);
336:
337: WHEN OTHERS THEN
336:
337: WHEN OTHERS THEN
338: ROLLBACK TO delete_accrual_rules;
339: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','delete_accrual_rules');
340: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
341: ,p_count => x_msg_count
342: ,p_data => x_msg_data);
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344:
339: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','delete_accrual_rules');
340: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
341: ,p_count => x_msg_count
342: ,p_data => x_msg_data);
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344:
345: END delete_accrual_rules;
346:
347: PROCEDURE delete_accrual_rules(
355: IS
356:
357: l_api_version CONSTANT NUMBER := 1.0;
358: l_api_name CONSTANT VARCHAR2(30) := 'delete_accrual_rules';
359: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
360: l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
361: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
362: BEGIN
363: SAVEPOINT delete_accrual_rules;
357: l_api_version CONSTANT NUMBER := 1.0;
358: l_api_name CONSTANT VARCHAR2(30) := 'delete_accrual_rules';
359: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
360: l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
361: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
362: BEGIN
363: SAVEPOINT delete_accrual_rules;
364: x_return_status := FND_API.G_RET_STS_SUCCESS;
365: -- customer pre-processing
360: l_agnv_tbl agnv_tbl_type := p_agnv_tbl;
361: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
362: BEGIN
363: SAVEPOINT delete_accrual_rules;
364: x_return_status := FND_API.G_RET_STS_SUCCESS;
365: -- customer pre-processing
366:
367: IF l_agnv_tbl.COUNT > 0 THEN
368: FOR i IN l_agnv_tbl.FIRST..l_agnv_tbl.LAST
373: x_return_status => x_return_Status,
374: x_msg_count => x_msg_count,
375: x_msg_data => x_msg_data,
376: p_agnv_rec => l_agnv_tbl(i));
377: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
379: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
380: RAISE FND_API.G_EXC_ERROR;
381: END IF;
374: x_msg_count => x_msg_count,
375: x_msg_data => x_msg_data,
376: p_agnv_rec => l_agnv_tbl(i));
377: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
379: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
380: RAISE FND_API.G_EXC_ERROR;
381: END IF;
382: END LOOP;
375: x_msg_data => x_msg_data,
376: p_agnv_rec => l_agnv_tbl(i));
377: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
379: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
380: RAISE FND_API.G_EXC_ERROR;
381: END IF;
382: END LOOP;
383: -- return overall status
376: p_agnv_rec => l_agnv_tbl(i));
377: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
379: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
380: RAISE FND_API.G_EXC_ERROR;
381: END IF;
382: END LOOP;
383: -- return overall status
384: x_return_status := l_overall_status;
386:
387: -- customer post-processing
388:
389: EXCEPTION
390: WHEN FND_API.G_EXC_ERROR THEN
391: ROLLBACK TO delete_accrual_rules;
392: x_return_status := FND_API.G_RET_STS_ERROR;
393:
394: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
388:
389: EXCEPTION
390: WHEN FND_API.G_EXC_ERROR THEN
391: ROLLBACK TO delete_accrual_rules;
392: x_return_status := FND_API.G_RET_STS_ERROR;
393:
394: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
395: ,p_count => x_msg_count
396: ,p_data => x_msg_data);
390: WHEN FND_API.G_EXC_ERROR THEN
391: ROLLBACK TO delete_accrual_rules;
392: x_return_status := FND_API.G_RET_STS_ERROR;
393:
394: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
395: ,p_count => x_msg_count
396: ,p_data => x_msg_data);
397:
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
394: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
395: ,p_count => x_msg_count
396: ,p_data => x_msg_data);
397:
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: ROLLBACK TO delete_accrual_rules;
400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
402: ,p_count => x_msg_count
396: ,p_data => x_msg_data);
397:
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: ROLLBACK TO delete_accrual_rules;
400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
402: ,p_count => x_msg_count
403: ,p_data => x_msg_data);
404:
397:
398: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399: ROLLBACK TO delete_accrual_rules;
400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
402: ,p_count => x_msg_count
403: ,p_data => x_msg_data);
404:
405: WHEN OTHERS THEN
404:
405: WHEN OTHERS THEN
406: ROLLBACK TO delete_accrual_rules;
407: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','delete_accrual_rules');
408: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
409: ,p_count => x_msg_count
410: ,p_data => x_msg_data);
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412:
407: FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUP_ACCRUALS_PUB','delete_accrual_rules');
408: FND_MSG_PUB.Count_and_get(p_encoded => FND_API.G_FALSE
409: ,p_count => x_msg_count
410: ,p_data => x_msg_data);
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412:
413: END delete_accrual_rules;
414:
415: END OKL_SETUP_ACCRUALS_PUB;