12: G_APP_NAME CONSTANT VARCHAR2(3) := 'OKS';
13: ------------------------------------------------------------------------------
14: -- GLOBAL CONSTANTS
15: ------------------------------------------------------------------------------
16: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
17: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
18:
19: g_api_version constant number :=1;
20: g_init_msg_list varchar2(1) := 'T';
13: ------------------------------------------------------------------------------
14: -- GLOBAL CONSTANTS
15: ------------------------------------------------------------------------------
16: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
17: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
18:
19: g_api_version constant number :=1;
20: g_init_msg_list varchar2(1) := 'T';
21: g_msg_count NUMBER;
68: '100: Entered UPDATE_HEADER_STATUS');
69: END IF;
70:
71: if ((p_new_sts_code is NULL) OR (p_id is null) OR (p_canc_reason_code is NULL)) then
72: raise FND_API.G_EXC_ERROR;
73: end if;
74:
75: if (p_init_msg_list = FND_API.G_TRUE) then
76: fnd_msg_pub.initialize();
71: if ((p_new_sts_code is NULL) OR (p_id is null) OR (p_canc_reason_code is NULL)) then
72: raise FND_API.G_EXC_ERROR;
73: end if;
74:
75: if (p_init_msg_list = FND_API.G_TRUE) then
76: fnd_msg_pub.initialize();
77: end if;
78:
79: l_new_sts_code := p_new_sts_code;
97: p_new_ste_code => l_new_ste_code,
98: p_cle_id => NULL);
99:
100:
101: if (x_return_status = FND_API.G_RET_STS_ERROR) then
102: raise FND_API.G_EXC_ERROR;
103: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
104: raise FND_API.G_EXC_UNEXPECTED_ERROR;
105: end if;
98: p_cle_id => NULL);
99:
100:
101: if (x_return_status = FND_API.G_RET_STS_ERROR) then
102: raise FND_API.G_EXC_ERROR;
103: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
104: raise FND_API.G_EXC_UNEXPECTED_ERROR;
105: end if;
106:
99:
100:
101: if (x_return_status = FND_API.G_RET_STS_ERROR) then
102: raise FND_API.G_EXC_ERROR;
103: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
104: raise FND_API.G_EXC_UNEXPECTED_ERROR;
105: end if;
106:
107: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
100:
101: if (x_return_status = FND_API.G_RET_STS_ERROR) then
102: raise FND_API.G_EXC_ERROR;
103: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
104: raise FND_API.G_EXC_UNEXPECTED_ERROR;
105: end if;
106:
107: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
108: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
138:
139: Update_header_status( x_return_status => x_return_status,
140: x_msg_data => x_msg_data,
141: x_msg_count => x_msg_count,
142: p_init_msg_list => FND_API.G_FALSE,
143: p_chrv_tbl => l_chrv_tbl,
144: p_canc_reason_code => p_canc_reason_code,
145: p_comments => p_comments,
146: p_term_cancel_source => p_term_cancel_source,
145: p_comments => p_comments,
146: p_term_cancel_source => p_term_cancel_source,
147: p_date_cancelled => p_date_cancelled);
148:
149: if (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
150: raise FND_API.G_EXC_UNEXPECTED_ERROR;
151: elsif (x_return_status = FND_API.G_RET_STS_ERROR) then
152: raise FND_API.G_EXC_ERROR;
153: end if;
146: p_term_cancel_source => p_term_cancel_source,
147: p_date_cancelled => p_date_cancelled);
148:
149: if (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
150: raise FND_API.G_EXC_UNEXPECTED_ERROR;
151: elsif (x_return_status = FND_API.G_RET_STS_ERROR) then
152: raise FND_API.G_EXC_ERROR;
153: end if;
154:
147: p_date_cancelled => p_date_cancelled);
148:
149: if (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
150: raise FND_API.G_EXC_UNEXPECTED_ERROR;
151: elsif (x_return_status = FND_API.G_RET_STS_ERROR) then
152: raise FND_API.G_EXC_ERROR;
153: end if;
154:
155: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148:
149: if (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
150: raise FND_API.G_EXC_UNEXPECTED_ERROR;
151: elsif (x_return_status = FND_API.G_RET_STS_ERROR) then
152: raise FND_API.G_EXC_ERROR;
153: end if;
154:
155: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
156: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
156: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
157: '170: Completed Update_header_status succesfully');
158: END IF;
159:
160: x_return_status := FND_API.G_RET_STS_SUCCESS;
161:
162: Exception
163: WHEN FND_API.G_EXC_ERROR THEN
164: x_return_status := FND_API.G_RET_STS_ERROR;
159:
160: x_return_status := FND_API.G_RET_STS_SUCCESS;
161:
162: Exception
163: WHEN FND_API.G_EXC_ERROR THEN
164: x_return_status := FND_API.G_RET_STS_ERROR;
165:
166: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
167: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'180: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
160: x_return_status := FND_API.G_RET_STS_SUCCESS;
161:
162: Exception
163: WHEN FND_API.G_EXC_ERROR THEN
164: x_return_status := FND_API.G_RET_STS_ERROR;
165:
166: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
167: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'180: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
168: END IF;
163: WHEN FND_API.G_EXC_ERROR THEN
164: x_return_status := FND_API.G_RET_STS_ERROR;
165:
166: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
167: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'180: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
168: END IF;
169:
170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
166: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
167: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'180: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
168: END IF;
169:
170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
172:
173: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
174: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'190: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
167: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'180: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
168: END IF;
169:
170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
172:
173: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
174: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'190: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
175: END IF;
170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
172:
173: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
174: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'190: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
175: END IF;
176:
177: WHEN OTHERS THEN
178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
174: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'190: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
175: END IF;
176:
177: WHEN OTHERS THEN
178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
179:
180: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
181: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'200: Leaving OKS_CHANGE_STATUS_PVT because of EXCEPTION: '||sqlerrm);
182: END IF;
227:
228: begin
229: p_count := p_chrv_tbl.count;
230:
231: if (p_init_msg_list = FND_API.G_TRUE) then
232: fnd_msg_pub.initialize();
233: end if;
234:
235: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
268: p_chrv_tbl(i).old_sts_code,
269: l_cle_id,
270: p_validate_status);
271:
272: if (x_return_status = FND_API.G_RET_STS_ERROR) then
273: raise FND_API.G_EXC_ERROR;
274: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
275: raise FND_API.G_EXC_UNEXPECTED_ERROR;
276: end if;
269: l_cle_id,
270: p_validate_status);
271:
272: if (x_return_status = FND_API.G_RET_STS_ERROR) then
273: raise FND_API.G_EXC_ERROR;
274: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
275: raise FND_API.G_EXC_UNEXPECTED_ERROR;
276: end if;
277: l_valid_flag := 'Y';
270: p_validate_status);
271:
272: if (x_return_status = FND_API.G_RET_STS_ERROR) then
273: raise FND_API.G_EXC_ERROR;
274: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
275: raise FND_API.G_EXC_UNEXPECTED_ERROR;
276: end if;
277: l_valid_flag := 'Y';
278:
271:
272: if (x_return_status = FND_API.G_RET_STS_ERROR) then
273: raise FND_API.G_EXC_ERROR;
274: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
275: raise FND_API.G_EXC_UNEXPECTED_ERROR;
276: end if;
277: l_valid_flag := 'Y';
278:
279: EXCEPTION
276: end if;
277: l_valid_flag := 'Y';
278:
279: EXCEPTION
280: WHEN FND_API.G_EXC_ERROR then
281: l_valid_flag := 'N';
282: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
283: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name, FND_MSG_PUB.Get('F', 1));
284: END IF;
309: x_msg_count => g_msg_count,
310: x_msg_data => g_msg_data,
311: p_chrv_rec => p_chrv_tbl(i));
312:
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_data => g_msg_data,
311: p_chrv_rec => p_chrv_tbl(i));
312:
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: p_chrv_rec => p_chrv_tbl(i));
312:
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: --end of 5710909
312:
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: --end of 5710909
320:
329: p_control_rec => p_control_rec,
330: x_chrv_rec => l_chrv_tbl(i));
331:
332:
333: if (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) Then
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: elsif (x_return_status = FND_API.G_RET_STS_ERROR) Then
336: RAISE FND_API.G_EXC_ERROR;
337: end if;
330: x_chrv_rec => l_chrv_tbl(i));
331:
332:
333: if (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) Then
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: elsif (x_return_status = FND_API.G_RET_STS_ERROR) Then
336: RAISE FND_API.G_EXC_ERROR;
337: end if;
338:
331:
332:
333: if (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) Then
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: elsif (x_return_status = FND_API.G_RET_STS_ERROR) Then
336: RAISE FND_API.G_EXC_ERROR;
337: end if;
338:
339: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
332:
333: if (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) Then
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: elsif (x_return_status = FND_API.G_RET_STS_ERROR) Then
336: RAISE FND_API.G_EXC_ERROR;
337: end if;
338:
339: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
340: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
357: p_date_cancelled => p_date_cancelled,
358: p_comments => p_comments,
359: p_validate_status => 'N');
360:
361: If (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: elsIf (x_return_status = FND_API.G_RET_STS_ERROR) then
364: RAISE FND_API.G_EXC_ERROR;
365: End if;
358: p_comments => p_comments,
359: p_validate_status => 'N');
360:
361: If (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: elsIf (x_return_status = FND_API.G_RET_STS_ERROR) then
364: RAISE FND_API.G_EXC_ERROR;
365: End if;
366:
359: p_validate_status => 'N');
360:
361: If (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: elsIf (x_return_status = FND_API.G_RET_STS_ERROR) then
364: RAISE FND_API.G_EXC_ERROR;
365: End if;
366:
367: -- Call API for Cleaning the Renewal links which are due to
360:
361: If (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: elsIf (x_return_status = FND_API.G_RET_STS_ERROR) then
364: RAISE FND_API.G_EXC_ERROR;
365: End if;
366:
367: -- Call API for Cleaning the Renewal links which are due to
368: -- cancel action on the contract.
381: x_return_status => x_return_status,
382: x_msg_count => x_msg_count,
383: x_msg_data => x_msg_data);
384:
385: if (x_return_status = FND_API.G_RET_STS_ERROR) then
386: Raise FND_API.G_EXC_ERROR;
387: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
388: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
389: end if;
382: x_msg_count => x_msg_count,
383: x_msg_data => x_msg_data);
384:
385: if (x_return_status = FND_API.G_RET_STS_ERROR) then
386: Raise FND_API.G_EXC_ERROR;
387: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
388: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
389: end if;
390: END IF; -- Renewed_YN
383: x_msg_data => x_msg_data);
384:
385: if (x_return_status = FND_API.G_RET_STS_ERROR) then
386: Raise FND_API.G_EXC_ERROR;
387: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
388: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
389: end if;
390: END IF; -- Renewed_YN
391:
384:
385: if (x_return_status = FND_API.G_RET_STS_ERROR) then
386: Raise FND_API.G_EXC_ERROR;
387: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
388: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
389: end if;
390: END IF; -- Renewed_YN
391:
392: -- Abort the Renewal workflow process as the contract is getting
415: x_return_status => x_return_status,
416: x_msg_count => x_msg_count,
417: x_msg_data => x_msg_data);
418:
419: if (x_return_status = FND_API.G_RET_STS_ERROR) then
420: Raise FND_API.G_EXC_ERROR;
421: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
422: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
423: end if;
416: x_msg_count => x_msg_count,
417: x_msg_data => x_msg_data);
418:
419: if (x_return_status = FND_API.G_RET_STS_ERROR) then
420: Raise FND_API.G_EXC_ERROR;
421: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
422: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
423: end if;
424:
417: x_msg_data => x_msg_data);
418:
419: if (x_return_status = FND_API.G_RET_STS_ERROR) then
420: Raise FND_API.G_EXC_ERROR;
421: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
422: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
423: end if;
424:
425: -- End of Changed by MKS/SKK
418:
419: if (x_return_status = FND_API.G_RET_STS_ERROR) then
420: Raise FND_API.G_EXC_ERROR;
421: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
422: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
423: end if;
424:
425: -- End of Changed by MKS/SKK
426: elsif (p_chrv_tbl(i).old_ste_code = 'CANCELLED' and p_chrv_tbl(i).new_ste_code = 'ENTERED') then
439: x_return_status => x_return_status,
440: x_msg_count => x_msg_count,
441: x_msg_data => x_msg_data);
442:
443: if (x_return_status = FND_API.G_RET_STS_ERROR) then
444: Raise FND_API.G_EXC_ERROR;
445: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
446: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
447: end if;
440: x_msg_count => x_msg_count,
441: x_msg_data => x_msg_data);
442:
443: if (x_return_status = FND_API.G_RET_STS_ERROR) then
444: Raise FND_API.G_EXC_ERROR;
445: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
446: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
447: end if;
448:
441: x_msg_data => x_msg_data);
442:
443: if (x_return_status = FND_API.G_RET_STS_ERROR) then
444: Raise FND_API.G_EXC_ERROR;
445: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
446: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
447: end if;
448:
449: END IF; -- Renewed_YN
442:
443: if (x_return_status = FND_API.G_RET_STS_ERROR) then
444: Raise FND_API.G_EXC_ERROR;
445: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
446: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
447: end if;
448:
449: END IF; -- Renewed_YN
450:
475: x_return_status => x_return_status,
476: x_msg_count => x_msg_count,
477: x_msg_data => x_msg_data);
478:
479: if (x_return_status = FND_API.G_RET_STS_ERROR) then
480: Raise FND_API.G_EXC_ERROR;
481: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
482: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
483: end if;
476: x_msg_count => x_msg_count,
477: x_msg_data => x_msg_data);
478:
479: if (x_return_status = FND_API.G_RET_STS_ERROR) then
480: Raise FND_API.G_EXC_ERROR;
481: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
482: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
483: end if;
484:
477: x_msg_data => x_msg_data);
478:
479: if (x_return_status = FND_API.G_RET_STS_ERROR) then
480: Raise FND_API.G_EXC_ERROR;
481: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
482: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
483: end if;
484:
485: end if;
478:
479: if (x_return_status = FND_API.G_RET_STS_ERROR) then
480: Raise FND_API.G_EXC_ERROR;
481: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
482: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
483: end if;
484:
485: end if;
486: end if; -- l_validate_flag
489: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
490: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
491: '485: exiting Update_header_status ');
492: END IF;
493: x_return_status := FND_API.G_RET_STS_SUCCESS;
494:
495: EXCEPTION
496: WHEN FND_API.G_EXC_ERROR THEN
497: x_return_status := FND_API.G_RET_STS_ERROR ;
492: END IF;
493: x_return_status := FND_API.G_RET_STS_SUCCESS;
494:
495: EXCEPTION
496: WHEN FND_API.G_EXC_ERROR THEN
497: x_return_status := FND_API.G_RET_STS_ERROR ;
498:
499: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
500: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'490: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_ERROR');
493: x_return_status := FND_API.G_RET_STS_SUCCESS;
494:
495: EXCEPTION
496: WHEN FND_API.G_EXC_ERROR THEN
497: x_return_status := FND_API.G_RET_STS_ERROR ;
498:
499: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
500: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'490: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_ERROR');
501: END IF;
496: WHEN FND_API.G_EXC_ERROR THEN
497: x_return_status := FND_API.G_RET_STS_ERROR ;
498:
499: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
500: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'490: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_ERROR');
501: END IF;
502:
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
499: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
500: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'490: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_ERROR');
501: END IF;
502:
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
505:
506: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
507: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
500: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'490: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_ERROR');
501: END IF;
502:
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
505:
506: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
507: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
508: END IF;
503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
505:
506: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
507: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
508: END IF;
509:
510: WHEN OTHERS THEN
511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
507: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
508: END IF;
509:
510: WHEN OTHERS THEN
511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
512:
513: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
514: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'510: Leaving OKS_CHANGE_STATUS_PVT because of EXCEPTION: '||sqlerrm);
515: END IF;
580: fnd_message.set_name('OKC', 'OKC_CONT_CAN_ENT_1');
581: fnd_message.set_token('PARENT_K',get_source_list(l_chr_id, p_cle_id));
582: fnd_message.set_token('RENEW_K',get_target_list(l_chr_id, p_cle_id));
583: fnd_msg_pub.add;
584: Raise FND_API.G_EXC_ERROR;
585: Elsif Is_Not_Entered_Cancelled(l_chr_id, p_cle_id) then
586: l_validate := 'N';
587: fnd_message.set_name('OKC', 'OKC_CONT_CAN_ENT_2');
588: fnd_message.set_token('PARENT_K',get_source_list(l_chr_id, p_cle_id));
587: fnd_message.set_name('OKC', 'OKC_CONT_CAN_ENT_2');
588: fnd_message.set_token('PARENT_K',get_source_list(l_chr_id, p_cle_id));
589: fnd_message.set_token('RENEW_K',get_target_list(l_chr_id, p_cle_id));
590: fnd_msg_pub.add;
591: Raise FND_API.G_EXC_ERROR;
592: Else
593: fnd_message.set_name('OKC', 'OKC_CONT_CAN_ENT_3');
594: fnd_message.set_token('PARENT_K',get_source_list(l_chr_id, p_cle_id));
595: fnd_msg_pub.add;
606: END IF; -- Renewed_YN
607:
608: -- This should be only for mass status change need to put if clause
609: If (p_old_sts_code = 'QA_HOLD') OR (p_old_sts_code = p_new_sts_code) Then
610: x_return_status := FND_API.G_RET_STS_ERROR;
611: End If;
612:
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: ------------------------------
609: If (p_old_sts_code = 'QA_HOLD') OR (p_old_sts_code = p_new_sts_code) Then
610: x_return_status := FND_API.G_RET_STS_ERROR;
611: End If;
612:
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: ------------------------------
615: EXCEPTION
616: WHEN FND_API.G_EXC_ERROR THEN
617: x_return_status := FND_API.G_RET_STS_ERROR ;
612:
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: ------------------------------
615: EXCEPTION
616: WHEN FND_API.G_EXC_ERROR THEN
617: x_return_status := FND_API.G_RET_STS_ERROR ;
618: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
620: END IF;
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: ------------------------------
615: EXCEPTION
616: WHEN FND_API.G_EXC_ERROR THEN
617: x_return_status := FND_API.G_RET_STS_ERROR ;
618: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
620: END IF;
621: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
615: EXCEPTION
616: WHEN FND_API.G_EXC_ERROR THEN
617: x_return_status := FND_API.G_RET_STS_ERROR ;
618: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
620: END IF;
621: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
622:
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
619: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
620: END IF;
621: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
622:
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'310: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
627: END IF;
620: END IF;
621: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
622:
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'310: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
627: END IF;
628: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
622:
623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
625: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'310: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
627: END IF;
628: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
629:
630: WHEN OKC_API.G_EXC_WARNING THEN
637: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
638: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'330: Leaving OKS_CHANGE_STATUS_PVT because of EXCEPTION: '||sqlerrm);
639: END IF;
640:
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
642: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
643: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name, SQLERRM );
644: END IF;
645:
1193: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1194: '600: Entered UPDATE_LINE_STATUS');
1195: END IF;
1196:
1197: if (p_init_msg_list = FND_API.G_TRUE) then
1198: fnd_msg_pub.initialize();
1199: end if;
1200:
1201: if (p_count = 0) then
1360: l_clev_tbl(x_num).sts_code,
1361: l_clev_tbl(x_num).id,
1362: p_validate_status);
1363:
1364: if (x_return_status = FND_API.G_RET_STS_ERROR) then
1365: Raise FND_API.G_EXC_ERROR;
1366: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1367: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1368: elsif (x_return_status = OKC_API.G_RET_STS_WARNING) then
1361: l_clev_tbl(x_num).id,
1362: p_validate_status);
1363:
1364: if (x_return_status = FND_API.G_RET_STS_ERROR) then
1365: Raise FND_API.G_EXC_ERROR;
1366: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1367: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1368: elsif (x_return_status = OKC_API.G_RET_STS_WARNING) then
1369: Raise OKC_API.G_EXC_WARNING;
1362: p_validate_status);
1363:
1364: if (x_return_status = FND_API.G_RET_STS_ERROR) then
1365: Raise FND_API.G_EXC_ERROR;
1366: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1367: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1368: elsif (x_return_status = OKC_API.G_RET_STS_WARNING) then
1369: Raise OKC_API.G_EXC_WARNING;
1370: end if;
1363:
1364: if (x_return_status = FND_API.G_RET_STS_ERROR) then
1365: Raise FND_API.G_EXC_ERROR;
1366: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1367: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1368: elsif (x_return_status = OKC_API.G_RET_STS_WARNING) then
1369: Raise OKC_API.G_EXC_WARNING;
1370: end if;
1371: end if; -- l_clev_tbl(x_num).lse_id
1417: x_msg_count => x_msg_count,
1418: x_msg_data => x_msg_data,
1419: p_clev_tbl => l_clev_tbl);
1420:
1421: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1422: Raise FND_API.G_EXC_ERROR;
1423: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1424: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1425: End if;
1418: x_msg_data => x_msg_data,
1419: p_clev_tbl => l_clev_tbl);
1420:
1421: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1422: Raise FND_API.G_EXC_ERROR;
1423: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1424: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1425: End if;
1426: -- end of bug 5710909
1419: p_clev_tbl => l_clev_tbl);
1420:
1421: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1422: Raise FND_API.G_EXC_ERROR;
1423: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1424: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1425: End if;
1426: -- end of bug 5710909
1427:
1420:
1421: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1422: Raise FND_API.G_EXC_ERROR;
1423: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1424: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1425: End if;
1426: -- end of bug 5710909
1427:
1428: -- Call the API to update the contract line with
1436: x_msg_data => x_msg_data,
1437: p_clev_tbl => l_clev_tbl,
1438: x_clev_tbl => l1_clev_tbl);
1439:
1440: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1441: Raise FND_API.G_EXC_ERROR;
1442: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1443: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1444: End if;
1437: p_clev_tbl => l_clev_tbl,
1438: x_clev_tbl => l1_clev_tbl);
1439:
1440: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1441: Raise FND_API.G_EXC_ERROR;
1442: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1443: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1444: End if;
1445:
1438: x_clev_tbl => l1_clev_tbl);
1439:
1440: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1441: Raise FND_API.G_EXC_ERROR;
1442: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1443: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1444: End if;
1445:
1446: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1439:
1440: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1441: Raise FND_API.G_EXC_ERROR;
1442: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1443: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1444: End if;
1445:
1446: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1447: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1466: p_target_chr_id => p_id,
1467: p_target_line_id => p_cle_id,
1468: clean_relink_flag => 'CLEAN') ;
1469:
1470: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1471: Raise FND_API.G_EXC_ERROR;
1472: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1473: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1474: End if;
1467: p_target_line_id => p_cle_id,
1468: clean_relink_flag => 'CLEAN') ;
1469:
1470: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1471: Raise FND_API.G_EXC_ERROR;
1472: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1473: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1474: End if;
1475:
1468: clean_relink_flag => 'CLEAN') ;
1469:
1470: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1471: Raise FND_API.G_EXC_ERROR;
1472: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1473: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1474: End if;
1475:
1476: elsif (p_old_ste_code = 'CANCELLED' and p_new_ste_code = 'ENTERED') then
1469:
1470: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1471: Raise FND_API.G_EXC_ERROR;
1472: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1473: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1474: End if;
1475:
1476: elsif (p_old_ste_code = 'CANCELLED' and p_new_ste_code = 'ENTERED') then
1477:
1488: p_target_chr_id => p_id,
1489: p_target_line_id => p_cle_id,
1490: clean_relink_flag => 'RELINK');
1491:
1492: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1493: Raise FND_API.G_EXC_ERROR;
1494: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1495: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1496: End if;
1489: p_target_line_id => p_cle_id,
1490: clean_relink_flag => 'RELINK');
1491:
1492: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1493: Raise FND_API.G_EXC_ERROR;
1494: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1495: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1496: End if;
1497:
1490: clean_relink_flag => 'RELINK');
1491:
1492: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1493: Raise FND_API.G_EXC_ERROR;
1494: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1495: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1496: End if;
1497:
1498: end if; -- p_old_ste_code and p_new_ste_code
1491:
1492: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1493: Raise FND_API.G_EXC_ERROR;
1494: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1495: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1496: End if;
1497:
1498: end if; -- p_old_ste_code and p_new_ste_code
1499:
1527: x_msg_count => x_msg_count,
1528: x_msg_data => x_msg_data);
1529:
1530:
1531: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1532: Raise FND_API.G_EXC_ERROR;
1533: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1534: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1535: End if;
1528: x_msg_data => x_msg_data);
1529:
1530:
1531: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1532: Raise FND_API.G_EXC_ERROR;
1533: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1534: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1535: End if;
1536:
1529:
1530:
1531: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1532: Raise FND_API.G_EXC_ERROR;
1533: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1534: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1535: End if;
1536:
1537: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1530:
1531: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1532: Raise FND_API.G_EXC_ERROR;
1533: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1534: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1535: End if;
1536:
1537: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1538: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1550: x_msg_count => x_msg_count,
1551: x_msg_data => x_msg_data);
1552:
1553:
1554: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1555: Raise FND_API.G_EXC_ERROR;
1556: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1557: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1558: End if;
1551: x_msg_data => x_msg_data);
1552:
1553:
1554: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1555: Raise FND_API.G_EXC_ERROR;
1556: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1557: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1558: End if;
1559:
1552:
1553:
1554: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1555: Raise FND_API.G_EXC_ERROR;
1556: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1557: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1558: End if;
1559:
1560: else
1553:
1554: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1555: Raise FND_API.G_EXC_ERROR;
1556: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1557: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1558: End if;
1559:
1560: else
1561:
1574: x_return_status => x_return_status,
1575: x_msg_count => x_msg_count,
1576: x_msg_data => x_msg_data);
1577:
1578: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1579: Raise FND_API.G_EXC_ERROR;
1580: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1581: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1582: End if;
1575: x_msg_count => x_msg_count,
1576: x_msg_data => x_msg_data);
1577:
1578: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1579: Raise FND_API.G_EXC_ERROR;
1580: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1581: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1582: End if;
1583:
1576: x_msg_data => x_msg_data);
1577:
1578: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1579: Raise FND_API.G_EXC_ERROR;
1580: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1581: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1582: End if;
1583:
1584:
1577:
1578: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1579: Raise FND_API.G_EXC_ERROR;
1580: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1581: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1582: End if;
1583:
1584:
1585: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1597: x_return_status => x_return_status,
1598: x_msg_count => x_msg_count,
1599: x_msg_data => x_msg_data);
1600:
1601: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1602: Raise FND_API.G_EXC_ERROR;
1603: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1604: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1605: End if;
1598: x_msg_count => x_msg_count,
1599: x_msg_data => x_msg_data);
1600:
1601: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1602: Raise FND_API.G_EXC_ERROR;
1603: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1604: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1605: End if;
1606:
1599: x_msg_data => x_msg_data);
1600:
1601: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1602: Raise FND_API.G_EXC_ERROR;
1603: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1604: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1605: End if;
1606:
1607:
1600:
1601: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1602: Raise FND_API.G_EXC_ERROR;
1603: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1604: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1605: End if;
1606:
1607:
1608: end if;
1625: x_return_status => x_return_status,
1626: x_msg_count => x_msg_count,
1627: x_msg_data => x_msg_count);
1628:
1629: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1630: Raise FND_API.G_EXC_ERROR;
1631: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1632: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1633: End if;
1626: x_msg_count => x_msg_count,
1627: x_msg_data => x_msg_count);
1628:
1629: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1630: Raise FND_API.G_EXC_ERROR;
1631: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1632: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1633: End if;
1634:
1627: x_msg_data => x_msg_count);
1628:
1629: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1630: Raise FND_API.G_EXC_ERROR;
1631: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1632: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1633: End if;
1634:
1635:
1628:
1629: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1630: Raise FND_API.G_EXC_ERROR;
1631: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1632: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1633: End if;
1634:
1635:
1636:
1674: x_msg_data => x_msg_data,
1675: p_hstv_rec => l_hstv_rec,
1676: x_hstv_rec => x_hstv_rec);
1677:
1678: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1679: Raise FND_API.G_EXC_ERROR;
1680: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1681: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1682: End if;
1675: p_hstv_rec => l_hstv_rec,
1676: x_hstv_rec => x_hstv_rec);
1677:
1678: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1679: Raise FND_API.G_EXC_ERROR;
1680: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1681: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1682: End if;
1683: end if; -- call history API
1676: x_hstv_rec => x_hstv_rec);
1677:
1678: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1679: Raise FND_API.G_EXC_ERROR;
1680: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1681: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1682: End if;
1683: end if; -- call history API
1684:
1677:
1678: If (x_return_status = FND_API.G_RET_STS_ERROR) then
1679: Raise FND_API.G_EXC_ERROR;
1680: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1681: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1682: End if;
1683: end if; -- call history API
1684:
1685: x_return_status := FND_API.G_RET_STS_SUCCESS;
1681: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1682: End if;
1683: end if; -- call history API
1684:
1685: x_return_status := FND_API.G_RET_STS_SUCCESS;
1686:
1687: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1688: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
1689: '730: succesfully complete update_line_status ');
1689: '730: succesfully complete update_line_status ');
1690: END IF;
1691:
1692: EXCEPTION
1693: WHEN FND_API.G_EXC_ERROR THEN
1694: x_return_status := FND_API.G_RET_STS_ERROR;
1695: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1696: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'740: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
1697: END IF;
1690: END IF;
1691:
1692: EXCEPTION
1693: WHEN FND_API.G_EXC_ERROR THEN
1694: x_return_status := FND_API.G_RET_STS_ERROR;
1695: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1696: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'740: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
1697: END IF;
1698: if (c_lines%ISOPEN) then
1692: EXCEPTION
1693: WHEN FND_API.G_EXC_ERROR THEN
1694: x_return_status := FND_API.G_RET_STS_ERROR;
1695: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1696: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'740: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
1697: END IF;
1698: if (c_lines%ISOPEN) then
1699: close c_lines;
1700: end if;
1698: if (c_lines%ISOPEN) then
1699: close c_lines;
1700: end if;
1701:
1702: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1704:
1705: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1706: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'750: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
1699: close c_lines;
1700: end if;
1701:
1702: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1704:
1705: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1706: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'750: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
1707: END IF;
1702: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1704:
1705: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1706: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'750: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_UNEXPECTED_ERROR '||SQLERRM);
1707: END IF;
1708:
1709: if (c_lines%ISOPEN) then
1710: close c_lines;
1725: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1726: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'770: Leaving OKS_CHANGE_STATUS_PVT because of EXCEPTION: '||sqlerrm);
1727: END IF;
1728:
1729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1730: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1731: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1732: END IF;
1733: if (c_lines%ISOPEN) then
1794:
1795: If (p_old_ste_code = 'EXPIRED') then
1796: fnd_message.set_name('OKS','OKS_CHANGE_STAT_NOT_ALLOWED'); -- Add a message name here and throw a exception
1797: fnd_msg_pub.add();
1798: raise FND_API.G_EXC_ERROR;
1799: end if;
1800:
1801: if (p_new_ste_code is NULL) then
1802: open get_ste_code (l_new_sts_code);
1854: AND ST.ENABLED_FLAG = 'Y'
1855: AND S.code <> l_old_sts_code
1856: AND l_old_ste_code='CANCELLED');
1857:
1858: x_return_status := FND_API.G_RET_STS_SUCCESS;
1859:
1860: exception
1861:
1862: WHEN FND_API.G_EXC_ERROR then
1858: x_return_status := FND_API.G_RET_STS_SUCCESS;
1859:
1860: exception
1861:
1862: WHEN FND_API.G_EXC_ERROR then
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1865: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
1866: END IF;
1859:
1860: exception
1861:
1862: WHEN FND_API.G_EXC_ERROR then
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1865: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
1866: END IF;
1867:
1861:
1862: WHEN FND_API.G_EXC_ERROR then
1863: x_return_status := FND_API.G_RET_STS_ERROR;
1864: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1865: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
1866: END IF;
1867:
1868: WHEN NO_DATA_FOUND then
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1865: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving OKS_CHANGE_STATUS_PVT : FND_API.G_EXC_ERROR');
1866: END IF;
1867:
1868: WHEN NO_DATA_FOUND then
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: FND_MESSAGE.set_name('OKS','OKS_CHANGE_STAT_NOT_ALLOWED'); -- set the message here
1871: fnd_msg_pub.add;
1872:
1873: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1874: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'510: Leaving OKS_CHANGE_STATUS_PVT : NO_DATA_FOUND');
1875: END IF;
1876:
1877: WHEN OTHERS then
1878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1879: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1880: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'520: Leaving OKS_CHANGE_STATUS_PVT because of EXCEPTION: '||sqlerrm);
1881: END IF;
1882:
1981: '800: Entered UPDATE_CONTRACT_TAX_AMOUNT ');
1982: END IF;
1983:
1984: IF ((p_from_ste_code is NULL) OR (p_to_ste_code is NULL) OR (p_id is null)) THEN
1985: raise FND_API.G_EXC_ERROR;
1986: END IF;
1987:
1988: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1989: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2216: x_return_status => l_return_status,
2217: x_msg_count => l_msg_count,
2218: x_msg_data => l_msg_data);
2219:
2220: If (x_return_status = FND_API.G_RET_STS_ERROR) then
2221: Raise FND_API.G_EXC_ERROR;
2222: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2223: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2224: End if;
2217: x_msg_count => l_msg_count,
2218: x_msg_data => l_msg_data);
2219:
2220: If (x_return_status = FND_API.G_RET_STS_ERROR) then
2221: Raise FND_API.G_EXC_ERROR;
2222: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2223: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2224: End if;
2225:
2218: x_msg_data => l_msg_data);
2219:
2220: If (x_return_status = FND_API.G_RET_STS_ERROR) then
2221: Raise FND_API.G_EXC_ERROR;
2222: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2223: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2224: End if;
2225:
2226: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2219:
2220: If (x_return_status = FND_API.G_RET_STS_ERROR) then
2221: Raise FND_API.G_EXC_ERROR;
2222: elsif (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2223: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2224: End if;
2225:
2226: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2227: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
2248: Where chr_id = p_id;
2249:
2250: ---
2251:
2252: x_return_status := FND_API.G_RET_STS_SUCCESS;
2253:
2254: ---
2255: Exception
2256:
2253:
2254: ---
2255: Exception
2256:
2257: WHEN FND_API.G_EXC_ERROR THEN
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2259:
2260: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2261: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1300: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2254: ---
2255: Exception
2256:
2257: WHEN FND_API.G_EXC_ERROR THEN
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2259:
2260: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2261: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1300: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2262: END IF;
2257: WHEN FND_API.G_EXC_ERROR THEN
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2259:
2260: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2261: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1300: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2262: END IF;
2263:
2264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2260: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2261: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1300: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2262: END IF;
2263:
2264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2266:
2267: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2268: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1310: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
2261: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1300: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2262: END IF;
2263:
2264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2266:
2267: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2268: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1310: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
2269: END IF;
2264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2266:
2267: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2268: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1310: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
2269: END IF;
2270:
2271: WHEN OTHERS THEN
2272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2268: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1310: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
2269: END IF;
2270:
2271: WHEN OTHERS THEN
2272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2273:
2274: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2275: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1320: Leaving OKS_CHANGE_STATUS_PVT because of EXCEPTION: '||sqlerrm);
2276: END IF;
2287: ---[llc] UPDATE_SUBSCRIPTION_TAX_AMOUNT updates all the tax_amount of toplines which are of type subscription
2288:
2289: PROCEDURE UPDATE_SUBSCRIPTION_TAX_AMOUNT(
2290: p_api_version IN NUMBER,
2291: p_init_msg_list IN varchar2 default FND_API.G_FALSE,
2292: p_id IN NUMBER,
2293: x_return_status OUT NOCOPY VARCHAR2,
2294: x_msg_count OUT NOCOPY NUMBER,
2295: x_msg_data OUT NOCOPY VARCHAR2)
2374: END IF;
2375:
2376: ---
2377:
2378: x_return_status := FND_API.G_RET_STS_SUCCESS;
2379:
2380: ---
2381: Exception
2382:
2379:
2380: ---
2381: Exception
2382:
2383: WHEN FND_API.G_EXC_ERROR THEN
2384: x_return_status := FND_API.G_RET_STS_ERROR;
2385:
2386: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2387: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1170: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2380: ---
2381: Exception
2382:
2383: WHEN FND_API.G_EXC_ERROR THEN
2384: x_return_status := FND_API.G_RET_STS_ERROR;
2385:
2386: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2387: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1170: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2388: END IF;
2383: WHEN FND_API.G_EXC_ERROR THEN
2384: x_return_status := FND_API.G_RET_STS_ERROR;
2385:
2386: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2387: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1170: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2388: END IF;
2389:
2390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2386: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2387: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1170: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2388: END IF;
2389:
2390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2392:
2393: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2394: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1180: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
2387: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1170: Leaving OKS_CHANGE_STATUS_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
2388: END IF;
2389:
2390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2392:
2393: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2394: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1180: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
2395: END IF;
2390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2392:
2393: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2394: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1180: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
2395: END IF;
2396:
2397: WHEN OTHERS THEN
2398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2394: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1180: Leaving OKS_CHANGE_STATUS_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
2395: END IF;
2396:
2397: WHEN OTHERS THEN
2398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2399:
2400: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2401: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1190: Leaving OKS_CHANGE_STATUS_PVT because of EXCEPTION: '||sqlerrm);
2402: END IF;
2436: x_msg_count => x_msg_count,
2437: x_msg_data => x_msg_data,
2438: x_return_status => l_return_status);
2439:
2440: If (l_return_status = FND_API.G_RET_STS_ERROR) then
2441: Raise FND_API.G_EXC_ERROR;
2442: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2443: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2444: End if;
2437: x_msg_data => x_msg_data,
2438: x_return_status => l_return_status);
2439:
2440: If (l_return_status = FND_API.G_RET_STS_ERROR) then
2441: Raise FND_API.G_EXC_ERROR;
2442: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2443: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2444: End if;
2445:
2438: x_return_status => l_return_status);
2439:
2440: If (l_return_status = FND_API.G_RET_STS_ERROR) then
2441: Raise FND_API.G_EXC_ERROR;
2442: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2443: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2444: End if;
2445:
2446:
2439:
2440: If (l_return_status = FND_API.G_RET_STS_ERROR) then
2441: Raise FND_API.G_EXC_ERROR;
2442: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2443: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
2444: End if;
2445:
2446:
2447: If (l_return_status = 'S') then