21: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_CONTRACT';
22: l_api_version CONSTANT NUMBER := 1;
23: BEGIN
24: savepoint create_split_contract_pub;
25: x_return_status := FND_API.G_RET_STS_SUCCESS;
26: -- Standard call to check for call compatibility.
27: IF NOT (FND_API.Compatible_API_Call (l_api_version,
28: p_api_version,
29: l_api_name,
23: BEGIN
24: savepoint create_split_contract_pub;
25: x_return_status := FND_API.G_RET_STS_SUCCESS;
26: -- Standard call to check for call compatibility.
27: IF NOT (FND_API.Compatible_API_Call (l_api_version,
28: p_api_version,
29: l_api_name,
30: G_PKG_NAME)) THEN
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27: IF NOT (FND_API.Compatible_API_Call (l_api_version,
28: p_api_version,
29: l_api_name,
30: G_PKG_NAME)) THEN
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32: END IF;
33: -- Initialize message list if p_init_msg_list is set to TRUE.
34: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
35: FND_MSG_PUB.initialize;
30: G_PKG_NAME)) THEN
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
32: END IF;
33: -- Initialize message list if p_init_msg_list is set to TRUE.
34: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
35: FND_MSG_PUB.initialize;
36: END IF;
37: -- Customer pre processing section
38: -- Verticle industry pre- processing section
44: x_msg_data => x_msg_data,
45: p_old_contract_number => p_old_contract_number,
46: p_new_khr_top_line => p_new_khr_top_line,
47: x_new_khr_top_line => x_new_khr_top_line);
48: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
49: RAISE FND_API.G_EXC_ERROR;
50: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
45: p_old_contract_number => p_old_contract_number,
46: p_new_khr_top_line => p_new_khr_top_line,
47: x_new_khr_top_line => x_new_khr_top_line);
48: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
49: RAISE FND_API.G_EXC_ERROR;
50: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53: -- Verticle industry post- processing section
46: p_new_khr_top_line => p_new_khr_top_line,
47: x_new_khr_top_line => x_new_khr_top_line);
48: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
49: RAISE FND_API.G_EXC_ERROR;
50: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53: -- Verticle industry post- processing section
54: -- Customer post processing section
47: x_new_khr_top_line => x_new_khr_top_line);
48: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
49: RAISE FND_API.G_EXC_ERROR;
50: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53: -- Verticle industry post- processing section
54: -- Customer post processing section
55: EXCEPTION
52: END IF;
53: -- Verticle industry post- processing section
54: -- Customer post processing section
55: EXCEPTION
56: When FND_API.G_EXC_ERROR then
57: ROLLBACK TO create_split_contract_pub;
58: x_return_status := FND_API.G_RET_STS_ERROR;
59: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
60: p_data => x_msg_data);
54: -- Customer post processing section
55: EXCEPTION
56: When FND_API.G_EXC_ERROR then
57: ROLLBACK TO create_split_contract_pub;
58: x_return_status := FND_API.G_RET_STS_ERROR;
59: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
60: p_data => x_msg_data);
61: When FND_API.G_EXC_UNEXPECTED_ERROR then
62: ROLLBACK TO create_split_contract_pub;
57: ROLLBACK TO create_split_contract_pub;
58: x_return_status := FND_API.G_RET_STS_ERROR;
59: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
60: p_data => x_msg_data);
61: When FND_API.G_EXC_UNEXPECTED_ERROR then
62: ROLLBACK TO create_split_contract_pub;
63: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
65: p_data => x_msg_data);
59: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
60: p_data => x_msg_data);
61: When FND_API.G_EXC_UNEXPECTED_ERROR then
62: ROLLBACK TO create_split_contract_pub;
63: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
64: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
65: p_data => x_msg_data);
66: When OTHERS then
67: ROLLBACK TO create_split_contract_pub;
64: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
65: p_data => x_msg_data);
66: When OTHERS then
67: ROLLBACK TO create_split_contract_pub;
68: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
69: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
70: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
71: p_count => x_msg_count,
72: p_data => x_msg_data);
66: When OTHERS then
67: ROLLBACK TO create_split_contract_pub;
68: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
69: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
70: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
71: p_count => x_msg_count,
72: p_data => x_msg_data);
73:
74: END create_split_contract;
91: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_CONTRACT';
92: l_api_version CONSTANT NUMBER := 1;
93: BEGIN
94: savepoint post_split_contract_pub;
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
96: -- Standard call to check for call compatibility.
97: IF NOT (FND_API.Compatible_API_Call (l_api_version,
98: p_api_version,
99: l_api_name,
93: BEGIN
94: savepoint post_split_contract_pub;
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
96: -- Standard call to check for call compatibility.
97: IF NOT (FND_API.Compatible_API_Call (l_api_version,
98: p_api_version,
99: l_api_name,
100: G_PKG_NAME)) THEN
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
97: IF NOT (FND_API.Compatible_API_Call (l_api_version,
98: p_api_version,
99: l_api_name,
100: G_PKG_NAME)) THEN
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
102: END IF;
103: -- Initialize message list if p_init_msg_list is set to TRUE.
104: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
105: FND_MSG_PUB.initialize;
100: G_PKG_NAME)) THEN
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
102: END IF;
103: -- Initialize message list if p_init_msg_list is set to TRUE.
104: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
105: FND_MSG_PUB.initialize;
106: END IF;
107: -- Customer pre processing section
108: -- Verticle industry pre- processing section
120: x_trx1_status => x_trx1_status,
121: x_trx2_number => x_trx2_number,
122: x_trx2_status => x_trx2_status);
123:
124: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
125: RAISE FND_API.G_EXC_ERROR;
126: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: END IF;
121: x_trx2_number => x_trx2_number,
122: x_trx2_status => x_trx2_status);
123:
124: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
125: RAISE FND_API.G_EXC_ERROR;
126: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: END IF;
129: -- Verticle industry post- processing section
122: x_trx2_status => x_trx2_status);
123:
124: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
125: RAISE FND_API.G_EXC_ERROR;
126: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: END IF;
129: -- Verticle industry post- processing section
130: -- Customer post processing section
123:
124: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
125: RAISE FND_API.G_EXC_ERROR;
126: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: END IF;
129: -- Verticle industry post- processing section
130: -- Customer post processing section
131: EXCEPTION
128: END IF;
129: -- Verticle industry post- processing section
130: -- Customer post processing section
131: EXCEPTION
132: When FND_API.G_EXC_ERROR then
133: ROLLBACK TO post_split_contract_pub;
134: x_return_status := FND_API.G_RET_STS_ERROR;
135: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
136: p_data => x_msg_data);
130: -- Customer post processing section
131: EXCEPTION
132: When FND_API.G_EXC_ERROR then
133: ROLLBACK TO post_split_contract_pub;
134: x_return_status := FND_API.G_RET_STS_ERROR;
135: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
136: p_data => x_msg_data);
137: When FND_API.G_EXC_UNEXPECTED_ERROR then
138: ROLLBACK TO post_split_contract_pub;
133: ROLLBACK TO post_split_contract_pub;
134: x_return_status := FND_API.G_RET_STS_ERROR;
135: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
136: p_data => x_msg_data);
137: When FND_API.G_EXC_UNEXPECTED_ERROR then
138: ROLLBACK TO post_split_contract_pub;
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
141: p_data => x_msg_data);
135: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
136: p_data => x_msg_data);
137: When FND_API.G_EXC_UNEXPECTED_ERROR then
138: ROLLBACK TO post_split_contract_pub;
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
141: p_data => x_msg_data);
142: When OTHERS then
143: ROLLBACK TO post_split_contract_pub;
140: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
141: p_data => x_msg_data);
142: When OTHERS then
143: ROLLBACK TO post_split_contract_pub;
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
146: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
147: p_count => x_msg_count,
148: p_data => x_msg_data);
142: When OTHERS then
143: ROLLBACK TO post_split_contract_pub;
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
146: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
147: p_count => x_msg_count,
148: p_data => x_msg_data);
149:
150: END post_split_contract;
163: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_CONTRACT';
164: l_api_version CONSTANT NUMBER := 1;
165: BEGIN
166: savepoint post_split_contract_pub;
167: x_return_status := FND_API.G_RET_STS_SUCCESS;
168: -- Standard call to check for call compatibility.
169: IF NOT (FND_API.Compatible_API_Call (l_api_version,
170: p_api_version,
171: l_api_name,
165: BEGIN
166: savepoint post_split_contract_pub;
167: x_return_status := FND_API.G_RET_STS_SUCCESS;
168: -- Standard call to check for call compatibility.
169: IF NOT (FND_API.Compatible_API_Call (l_api_version,
170: p_api_version,
171: l_api_name,
172: G_PKG_NAME)) THEN
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169: IF NOT (FND_API.Compatible_API_Call (l_api_version,
170: p_api_version,
171: l_api_name,
172: G_PKG_NAME)) THEN
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
174: END IF;
175: -- Initialize message list if p_init_msg_list is set to TRUE.
176: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
177: FND_MSG_PUB.initialize;
172: G_PKG_NAME)) THEN
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
174: END IF;
175: -- Initialize message list if p_init_msg_list is set to TRUE.
176: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
177: FND_MSG_PUB.initialize;
178: END IF;
179:
180: OKL_SPLIT_CONTRACT_PVT.set_context (
186: p_appl_id => p_appl_id,
187: p_user_id => p_user_id,
188: x_return_status => x_return_status);
189:
190: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
191: RAISE FND_API.G_EXC_ERROR;
192: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END IF;
187: p_user_id => p_user_id,
188: x_return_status => x_return_status);
189:
190: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
191: RAISE FND_API.G_EXC_ERROR;
192: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END IF;
195: EXCEPTION
188: x_return_status => x_return_status);
189:
190: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
191: RAISE FND_API.G_EXC_ERROR;
192: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END IF;
195: EXCEPTION
196: When FND_API.G_EXC_ERROR then
189:
190: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
191: RAISE FND_API.G_EXC_ERROR;
192: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END IF;
195: EXCEPTION
196: When FND_API.G_EXC_ERROR then
197: ROLLBACK TO post_split_contract_pub;
192: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
194: END IF;
195: EXCEPTION
196: When FND_API.G_EXC_ERROR then
197: ROLLBACK TO post_split_contract_pub;
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
200: p_data => x_msg_data);
194: END IF;
195: EXCEPTION
196: When FND_API.G_EXC_ERROR then
197: ROLLBACK TO post_split_contract_pub;
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
200: p_data => x_msg_data);
201: When FND_API.G_EXC_UNEXPECTED_ERROR then
202: ROLLBACK TO post_split_contract_pub;
197: ROLLBACK TO post_split_contract_pub;
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
200: p_data => x_msg_data);
201: When FND_API.G_EXC_UNEXPECTED_ERROR then
202: ROLLBACK TO post_split_contract_pub;
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
205: p_data => x_msg_data);
199: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
200: p_data => x_msg_data);
201: When FND_API.G_EXC_UNEXPECTED_ERROR then
202: ROLLBACK TO post_split_contract_pub;
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
205: p_data => x_msg_data);
206: When OTHERS then
207: ROLLBACK TO post_split_contract_pub;
204: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
205: p_data => x_msg_data);
206: When OTHERS then
207: ROLLBACK TO post_split_contract_pub;
208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
210: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
211: p_count => x_msg_count,
212: p_data => x_msg_data);
206: When OTHERS then
207: ROLLBACK TO post_split_contract_pub;
208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
210: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
211: p_count => x_msg_count,
212: p_data => x_msg_data);
213: END set_context;
214: -----------------------------------------------------------------------------------------------
228: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_CONTRACT';
229: l_api_version CONSTANT NUMBER := 1;
230: BEGIN
231: savepoint post_split_contract_pub;
232: x_return_status := FND_API.G_RET_STS_SUCCESS;
233: -- Standard call to check for call compatibility.
234: IF NOT (FND_API.Compatible_API_Call (l_api_version,
235: p_api_version,
236: l_api_name,
230: BEGIN
231: savepoint post_split_contract_pub;
232: x_return_status := FND_API.G_RET_STS_SUCCESS;
233: -- Standard call to check for call compatibility.
234: IF NOT (FND_API.Compatible_API_Call (l_api_version,
235: p_api_version,
236: l_api_name,
237: G_PKG_NAME)) THEN
238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
234: IF NOT (FND_API.Compatible_API_Call (l_api_version,
235: p_api_version,
236: l_api_name,
237: G_PKG_NAME)) THEN
238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
239: END IF;
240: -- Initialize message list if p_init_msg_list is set to TRUE.
241: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
242: FND_MSG_PUB.initialize;
237: G_PKG_NAME)) THEN
238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
239: END IF;
240: -- Initialize message list if p_init_msg_list is set to TRUE.
241: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
242: FND_MSG_PUB.initialize;
243: END IF;
244: -- Customer pre processing section
245: -- Verticle industry pre- processing section
255: x_child_chrid1 => x_child_chrid1,
256: x_child_chrid2 => x_child_chrid2,
257: p_contract_id => p_contract_id);
258:
259: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
260: RAISE FND_API.G_EXC_ERROR;
261: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
263: END IF;
256: x_child_chrid2 => x_child_chrid2,
257: p_contract_id => p_contract_id);
258:
259: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
260: RAISE FND_API.G_EXC_ERROR;
261: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
263: END IF;
264: -- Verticle industry post- processing section
257: p_contract_id => p_contract_id);
258:
259: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
260: RAISE FND_API.G_EXC_ERROR;
261: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
263: END IF;
264: -- Verticle industry post- processing section
265: -- Customer post processing section
258:
259: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
260: RAISE FND_API.G_EXC_ERROR;
261: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
263: END IF;
264: -- Verticle industry post- processing section
265: -- Customer post processing section
266: EXCEPTION
263: END IF;
264: -- Verticle industry post- processing section
265: -- Customer post processing section
266: EXCEPTION
267: When FND_API.G_EXC_ERROR then
268: ROLLBACK TO post_split_contract_pub;
269: x_return_status := FND_API.G_RET_STS_ERROR;
270: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
271: p_data => x_msg_data);
265: -- Customer post processing section
266: EXCEPTION
267: When FND_API.G_EXC_ERROR then
268: ROLLBACK TO post_split_contract_pub;
269: x_return_status := FND_API.G_RET_STS_ERROR;
270: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
271: p_data => x_msg_data);
272: When FND_API.G_EXC_UNEXPECTED_ERROR then
273: ROLLBACK TO post_split_contract_pub;
268: ROLLBACK TO post_split_contract_pub;
269: x_return_status := FND_API.G_RET_STS_ERROR;
270: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
271: p_data => x_msg_data);
272: When FND_API.G_EXC_UNEXPECTED_ERROR then
273: ROLLBACK TO post_split_contract_pub;
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
276: p_data => x_msg_data);
270: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
271: p_data => x_msg_data);
272: When FND_API.G_EXC_UNEXPECTED_ERROR then
273: ROLLBACK TO post_split_contract_pub;
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
276: p_data => x_msg_data);
277: When OTHERS then
278: ROLLBACK TO post_split_contract_pub;
275: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
276: p_data => x_msg_data);
277: When OTHERS then
278: ROLLBACK TO post_split_contract_pub;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
281: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
282: p_count => x_msg_count,
283: p_data => x_msg_data);
277: When OTHERS then
278: ROLLBACK TO post_split_contract_pub;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
281: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
282: p_count => x_msg_count,
283: p_data => x_msg_data);
284:
285: END check_split_process;
296: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_CONTRACT';
297: l_api_version CONSTANT NUMBER := 1;
298: BEGIN
299: savepoint post_split_contract_pub;
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301: -- Standard call to check for call compatibility.
302: IF NOT (FND_API.Compatible_API_Call (l_api_version,
303: p_api_version,
304: l_api_name,
298: BEGIN
299: savepoint post_split_contract_pub;
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301: -- Standard call to check for call compatibility.
302: IF NOT (FND_API.Compatible_API_Call (l_api_version,
303: p_api_version,
304: l_api_name,
305: G_PKG_NAME)) THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
302: IF NOT (FND_API.Compatible_API_Call (l_api_version,
303: p_api_version,
304: l_api_name,
305: G_PKG_NAME)) THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308: -- Initialize message list if p_init_msg_list is set to TRUE.
309: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
310: FND_MSG_PUB.initialize;
305: G_PKG_NAME)) THEN
306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308: -- Initialize message list if p_init_msg_list is set to TRUE.
309: IF (FND_API.to_Boolean( p_init_msg_list )) THEN
310: FND_MSG_PUB.initialize;
311: END IF;
312: -- Customer pre processing section
313: -- Verticle industry pre- processing section
319: x_msg_count => x_msg_count,
320: x_msg_data => x_msg_data,
321: p_contract_id => p_contract_id);
322:
323: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
324: RAISE FND_API.G_EXC_ERROR;
325: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
320: x_msg_data => x_msg_data,
321: p_contract_id => p_contract_id);
322:
323: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
324: RAISE FND_API.G_EXC_ERROR;
325: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
328: -- Verticle industry post- processing section
321: p_contract_id => p_contract_id);
322:
323: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
324: RAISE FND_API.G_EXC_ERROR;
325: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
328: -- Verticle industry post- processing section
329: -- Customer post processing section
322:
323: IF (x_return_status = FND_API.G_RET_STS_ERROR ) THEN
324: RAISE FND_API.G_EXC_ERROR;
325: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
327: END IF;
328: -- Verticle industry post- processing section
329: -- Customer post processing section
330: EXCEPTION
327: END IF;
328: -- Verticle industry post- processing section
329: -- Customer post processing section
330: EXCEPTION
331: When FND_API.G_EXC_ERROR then
332: ROLLBACK TO post_split_contract_pub;
333: x_return_status := FND_API.G_RET_STS_ERROR;
334: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
335: p_data => x_msg_data);
329: -- Customer post processing section
330: EXCEPTION
331: When FND_API.G_EXC_ERROR then
332: ROLLBACK TO post_split_contract_pub;
333: x_return_status := FND_API.G_RET_STS_ERROR;
334: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
335: p_data => x_msg_data);
336: When FND_API.G_EXC_UNEXPECTED_ERROR then
337: ROLLBACK TO post_split_contract_pub;
332: ROLLBACK TO post_split_contract_pub;
333: x_return_status := FND_API.G_RET_STS_ERROR;
334: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
335: p_data => x_msg_data);
336: When FND_API.G_EXC_UNEXPECTED_ERROR then
337: ROLLBACK TO post_split_contract_pub;
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
340: p_data => x_msg_data);
334: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
335: p_data => x_msg_data);
336: When FND_API.G_EXC_UNEXPECTED_ERROR then
337: ROLLBACK TO post_split_contract_pub;
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
340: p_data => x_msg_data);
341: When OTHERS then
342: ROLLBACK TO post_split_contract_pub;
339: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
340: p_data => x_msg_data);
341: When OTHERS then
342: ROLLBACK TO post_split_contract_pub;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
345: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
346: p_count => x_msg_count,
347: p_data => x_msg_data);
341: When OTHERS then
342: ROLLBACK TO post_split_contract_pub;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: FND_MSG_PUB.ADD_EXC_MSG( G_PKG_NAME, 'OKL_SPLIT_CONTRACT_PUB');
345: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
346: p_count => x_msg_count,
347: p_data => x_msg_data);
348:
349: END cancel_split_process;