57: RETURN(TRUE);
58: End If;
59: End If;
60:
61: IF (l_mod is not null) and (l_mod <> OKC_API.G_MISS_CHAR) then
62: l_k := l_k ||'-'||l_mod;
63: END IF;
64:
65: IF l_template_yn = 'Y' then
62: l_k := l_k ||'-'||l_mod;
63: END IF;
64:
65: IF l_template_yn = 'Y' then
66: OKC_API.set_message(p_app_name => g_app_name,
67: p_msg_name => 'OKC_K_TEMPLATE',
68: p_token1 => 'NUMBER',
69: p_token1_value => l_k);
70: RETURN(FALSE);
70: RETURN(FALSE);
71: END IF;
72:
73: IF l_code = 'QA_HOLD' then
74: OKC_API.set_message(p_app_name => g_app_name,
75: p_msg_name => 'OKC_INVALID_STS',
76: p_token1 => 'component',
77: p_token1_value => l_k);
78: RETURN(FALSE);
82: FETCH c_sts INTO l_sts_code;
83: CLOSE c_sts;
84:
85: IF l_sts_code NOT IN ('ACTIVE','HOLD','SIGNED','EXPIRED') THEN
86: OKC_API.set_message(p_app_name => g_app_name,
87: p_msg_name => 'OKC_INVALID_STS',
88: p_token1 => 'component',
89: p_token1_value => l_k);
90: RETURN(FALSE);
90: RETURN(FALSE);
91: END IF;
92: -- Added by MSENGUPT on 12/09/2001 for Bug#2143096
93: IF l_date_term IS NOT NULL Then
94: OKC_API.set_message(p_app_name => g_app_name,
95: p_msg_name => 'OKC_ALREADY_TERM');
96: RETURN(FALSE);
97: end if;
98:
100:
101: If okc_util.Get_All_K_Access_Level(p_application_id => l_app_id,
102: p_chr_id => p_chr_id,
103: p_scs_code => l_scs_code) <> 'U' Then
104: OKC_API.set_message(p_app_name => g_app_name,
105: p_msg_name => 'OKC_NO_UPDATE',
106: p_token1 => 'CHR',
107: p_token1_value => l_k);
108: Return(FALSE);
114: FETCH c_invoice into l_allow;
115: CLOSE c_invoice;
116:
117: IF l_allow <> 'Y' then
118: OKC_API.set_message(p_app_name => g_app_name,
119: p_msg_name => 'OKC_INVOICE_TERM',
120: p_token1 => 'component',
121: p_token1_value => l_k);
122: RETURN(FALSE);--------------
140: l_cls_code VARCHAR2(100);
141: l_template_yn VARCHAR2(10);
142: l_code VARCHAR2(100);
143: l_hdr_code VARCHAR2(100);
144: l_chr_id number:=OKC_API.G_MISS_NUM;
145: l_app_id okc_k_headers_b.application_id%TYPE;
146: l_scs_code okc_k_headers_b.scs_code%TYPE;
147: l_k VARCHAR2(255);
148: l_mod okc_k_headers_b.contract_number_modifier%TYPE ;
178: OPEN c_cle;
179: FETCH c_cle INTO l_code,l_chr_id,l_no, l_date_term_cle;
180: CLOSE c_cle;
181:
182: If l_chr_id=OKC_API.G_MISS_NUM then
183: OKC_API.set_message(p_app_name => g_app_name,
184: p_msg_name => 'OKC_NO_CHR',
185: p_token1 => 'component',
186: p_token1_value => l_no);
179: FETCH c_cle INTO l_code,l_chr_id,l_no, l_date_term_cle;
180: CLOSE c_cle;
181:
182: If l_chr_id=OKC_API.G_MISS_NUM then
183: OKC_API.set_message(p_app_name => g_app_name,
184: p_msg_name => 'OKC_NO_CHR',
185: p_token1 => 'component',
186: p_token1_value => l_no);
187: RETURN (FALSE);
201: End If;
202: End If;
203:
204:
205: IF (l_mod is not null) and (l_mod <> OKC_API.G_MISS_CHAR) then
206: l_k := l_k ||'-'||l_mod;
207: END IF;
208:
209: IF l_template_yn = 'Y' then
206: l_k := l_k ||'-'||l_mod;
207: END IF;
208:
209: IF l_template_yn = 'Y' then
210: OKC_API.set_message(p_app_name => g_app_name,
211: p_msg_name => 'OKC_K_TEMPLATE',
212: p_token1 => 'NUMBER',
213: p_token1_value => l_k);
214: RETURN(FALSE);
214: RETURN(FALSE);
215: END IF;
216:
217: IF l_hdr_code = 'QA_HOLD' then
218: OKC_API.set_message(p_app_name => g_app_name,
219: p_msg_name => 'OKC_INVALID_STS',
220: p_token1 => 'component',
221: p_token1_value => l_k);
222: RETURN(FALSE);
226: FETCH c_sts INTO l_sts_code;
227: CLOSE c_sts;
228:
229: IF l_sts_code NOT IN ('ACTIVE','HOLD','SIGNED','EXPIRED') THEN
230: OKC_API.set_message(p_app_name => g_app_name,
231: p_msg_name => 'OKC_INVALID_STS',
232: p_token1 => 'component',
233: p_token1_value => l_no);
234: RETURN(FALSE);
237: -- Added by MSENGUPT on 12/09/2001 for Bug#2143096
238:
239: IF l_date_term_chr IS NOT NULL OR
240: l_date_term_cle IS NOT NULL Then
241: OKC_API.set_message(p_app_name => g_app_name,
242: p_msg_name => 'OKC_ALREADY_TERM');
243: RETURN(FALSE);
244: end if;
245: -- end of bug#2143096 -------------
246:
247: If okc_util.Get_All_K_Access_Level(p_application_id => l_app_id,
248: p_chr_id => l_chr_id,
249: p_scs_code => l_scs_code) <> 'U' Then
250: OKC_API.set_message(p_app_name => g_app_name,
251: p_msg_name => 'OKC_NO_UPDATE',
252: p_token1 => 'CHR',
253: p_token1_value => l_k);
254: Return(FALSE);
260: FETCH c_invoice into l_allow;
261: CLOSE c_invoice;
262:
263: IF l_allow <> 'Y' then
264: OKC_API.set_message(p_app_name => g_app_name,
265: p_msg_name => 'OKC_INVOICE_TERM',
266: p_token1 => 'component',
267: p_token1_value => l_no);
268: RETURN(FALSE);
347:
348: l_status varchar2(30); -- Impact on status
349: l_meaning okc_statuses_v.meaning%type;
350:
351: l_return_status varchar2(1) := okc_api.g_ret_sts_success;
352:
353: BEGIN
354:
355: --dbms_output.put_line(' validate_chr (+) ');
353: BEGIN
354:
355: --dbms_output.put_line(' validate_chr (+) ');
356:
357: x_return_status := okc_api.g_ret_sts_success;
358:
359: okc_api.init_msg_list(p_init_msg_list);
360:
361: OPEN cur_k_header;
355: --dbms_output.put_line(' validate_chr (+) ');
356:
357: x_return_status := okc_api.g_ret_sts_success;
358:
359: okc_api.init_msg_list(p_init_msg_list);
360:
361: OPEN cur_k_header;
362: FETCH cur_k_header into l_chrv_rec;
363: CLOSE cur_k_header;
363: CLOSE cur_k_header;
364:
365: IF l_chrv_rec.template_Yn = 'Y' THEN
366:
367: OKC_API.set_message(p_app_name => g_app_name,
368: p_msg_name => 'OKC_K_TEMPLATE',
369: p_token1 => 'NUMBER',
370: p_token1_value => l_chrv_rec.contract_number);
371:
368: p_msg_name => 'OKC_K_TEMPLATE',
369: p_token1 => 'NUMBER',
370: p_token1_value => l_chrv_rec.contract_number);
371:
372: x_return_status := okc_api.g_ret_sts_error;
373: RAISE g_exception_halt_validation;
374: END if;
375:
376: OPEN is_k_locked;
377: FETCH is_k_locked into l_chg_request_in_process;
378:
379: IF is_k_locked%FOUND THEN
380:
381: OKC_API.set_message(p_app_name => g_app_name,
382: p_msg_name => 'OKC_K_LOCKED',
383: p_token1 => 'NUMBER',
384: p_token1_value => l_chrv_rec.contract_number);
385:
382: p_msg_name => 'OKC_K_LOCKED',
383: p_token1 => 'NUMBER',
384: p_token1_value => l_chrv_rec.contract_number);
385:
386: x_return_status := okc_api.g_ret_sts_error;
387: CLOSE is_k_locked;
388: RAISE g_exception_halt_validation;
389:
390: END IF;
398: FETCH cur_service_requests into l_status;
399:
400: if cur_service_requests%FOUND THEN
401:
402: OKC_API.set_message(p_app_name => g_app_name,
403: p_msg_name => 'OKC_SR_PENDING',
404: p_token1 => 'NUMBER',
405: p_token1_value => l_chrv_rec.contract_number);
406:
403: p_msg_name => 'OKC_SR_PENDING',
404: p_token1 => 'NUMBER',
405: p_token1_value => l_chrv_rec.contract_number);
406:
407: x_return_status := okc_api.g_ret_sts_error;
408:
409: CLOSE cur_service_requests;
410: RAISE g_exception_halt_validation;
411:
422: CLOSE cur_sts_code;
423:
424: IF l_status='1' then
425: --
426: OKC_API.set_message(p_app_name => g_app_name,
427: p_msg_name => 'OKC_INVALID_K_STATUS',
428: p_token1 => 'NUMBER',
429: p_token1_value => l_chrv_rec.contract_number,
430: p_token2 => 'MODIFIER',
437: END IF;
438:
439: IF (l_status NOT IN ('ACTIVE','HOLD','SIGNED','EXPIRED')) OR (l_status='HOLD' and l_chrv_rec.sts_code='QA_HOLD') THEN
440:
441: x_return_status := OKC_API.G_RET_STS_ERROR;
442:
443: OKC_API.set_message(p_app_name => g_app_name,
444: p_msg_name => 'OKC_INVALID_K_STATUS',
445: p_token1 => 'NUMBER',
439: IF (l_status NOT IN ('ACTIVE','HOLD','SIGNED','EXPIRED')) OR (l_status='HOLD' and l_chrv_rec.sts_code='QA_HOLD') THEN
440:
441: x_return_status := OKC_API.G_RET_STS_ERROR;
442:
443: OKC_API.set_message(p_app_name => g_app_name,
444: p_msg_name => 'OKC_INVALID_K_STATUS',
445: p_token1 => 'NUMBER',
446: p_token1_value => l_chrv_rec.contract_number,
447: p_token2 => 'MODIFIER',
452: RAISE g_exception_halt_validation;
453:
454: ELSIF l_chrv_rec.date_terminated is not null THEN
455:
456: x_return_status := OKC_API.G_RET_STS_ERROR;
457:
458: OKC_API.set_message(p_app_name => g_app_name,
459: p_msg_name => 'OKC_FUTURE_TERMINATED_K',
460: p_token1 => 'NUMBER',
454: ELSIF l_chrv_rec.date_terminated is not null THEN
455:
456: x_return_status := OKC_API.G_RET_STS_ERROR;
457:
458: OKC_API.set_message(p_app_name => g_app_name,
459: p_msg_name => 'OKC_FUTURE_TERMINATED_K',
460: p_token1 => 'NUMBER',
461: p_token1_value => l_chrv_rec.contract_number );
462:
469: close cur_old_contract;
470:
471: x_return_status := 'W';
472:
473: OKC_API.set_message( p_app_name => g_app_name,
474: p_msg_name =>'OKC_RENEWED_CONTRACT_TERM',
475: -- nechatur 21-Jun-2006 Bug#5122905 Not display the original Contract and its Modifier, Only display the number and modifier of the renewed contract
476: /* p_token1 =>'NUMBER',
477: p_token1_value => l_chrv_rec.contract_number,
489: IF Nvl(p_terminate_in_parameters_rec.p_orig_end_date,
490: p_terminate_in_parameters_rec.p_termination_date + 1) <
491: p_terminate_in_parameters_rec.p_termination_date then
492:
493: x_return_status := OKC_API.G_RET_STS_ERROR;
494:
495: OKC_API.set_message( p_app_name => g_app_name,
496: p_msg_name =>'OKC_TRMDATE_MORE_END'
497: );
491: p_terminate_in_parameters_rec.p_termination_date then
492:
493: x_return_status := OKC_API.G_RET_STS_ERROR;
494:
495: OKC_API.set_message( p_app_name => g_app_name,
496: p_msg_name =>'OKC_TRMDATE_MORE_END'
497: );
498:
499:
503: EXCEPTION
504: WHEN G_EXCEPTION_HALT_VALIDATION THEN
505: NULL;
506: WHEN OTHERS THEN
507: OKC_API.set_message(p_app_name => g_app_name,
508: p_msg_name => g_unexpected_error,
509: p_token1 => g_sqlcode_token,
510: p_token1_value => sqlcode,
511: p_token2 => g_sqlerrm_token,
510: p_token1_value => sqlcode,
511: p_token2 => g_sqlerrm_token,
512: p_token2_value => sqlerrm);
513:
514: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
515:
516: END;
517:
518: PROCEDURE terminate_chr( p_api_version IN NUMBER,
638: l_scs_code okc_subclasses_v.code%type;
639: l_cls_code okc_subclasses_v.cls_code%type;
640: l_k_status_code okc_k_headers_v.sts_code%type;
641: l_estimated_amount number;
642: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
643:
644: l_api_name constant varchar2(30) := 'terminate_chr';
645:
646: l_chrv_rec okc_contract_pub.chrv_rec_type ;
661:
662: BEGIN
663:
664: --dbms_output.put_line(' terminate_chr (+) ');
665: x_return_status := OKC_API.G_RET_STS_SUCCESS;
666:
667: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
668: p_init_msg_list,
669: '_PROCESS',
663:
664: --dbms_output.put_line(' terminate_chr (+) ');
665: x_return_status := OKC_API.G_RET_STS_SUCCESS;
666:
667: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
668: p_init_msg_list,
669: '_PROCESS',
670: x_return_status);
671:
668: p_init_msg_list,
669: '_PROCESS',
670: x_return_status);
671:
672: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
673: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
674: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
675: raise OKC_API.G_EXCEPTION_ERROR;
676: END IF;
669: '_PROCESS',
670: x_return_status);
671:
672: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
673: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
674: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
675: raise OKC_API.G_EXCEPTION_ERROR;
676: END IF;
677:
670: x_return_status);
671:
672: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
673: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
674: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
675: raise OKC_API.G_EXCEPTION_ERROR;
676: END IF;
677:
678: OPEN cur_k_header;
671:
672: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
673: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
674: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
675: raise OKC_API.G_EXCEPTION_ERROR;
676: END IF;
677:
678: OPEN cur_k_header;
679: FETCH cur_k_header into
682: rec_k_header.STS_CODE;
683:
684: if cur_k_header%NOTFOUND THEN
685:
686: OKC_API.set_message(p_app_name => g_app_name,
687: p_msg_name => 'OKC_K_CHANGED',
688: p_token1 => 'NUMBER',
689: --p_token1_value => rec_k_header.contract_number);
690: p_token1_value => p_terminate_in_parameters_rec.p_contract_number,
690: p_token1_value => p_terminate_in_parameters_rec.p_contract_number,
691: p_token2 => 'MODIFIER',
692: p_token2_value => p_terminate_in_parameters_rec.p_contract_modifier);
693:
694: x_return_status := OKC_API.G_RET_STS_ERROR;
695:
696: CLOSE cur_k_header;
697:
698: raise OKC_API.G_EXCEPTION_ERROR;
694: x_return_status := OKC_API.G_RET_STS_ERROR;
695:
696: CLOSE cur_k_header;
697:
698: raise OKC_API.G_EXCEPTION_ERROR;
699:
700: END if;
701:
702: CLOSE cur_k_header;
703:
704: --dbms_output.put_line(' validate_chr (+) ');
705:
706: OKC_TERMINATE_PVT.validate_chr(p_api_version => 1,
707: p_init_msg_list => OKC_API.G_FALSE,
708: x_return_status => l_return_status,
709: x_msg_count => x_msg_count,
710: x_msg_data => x_msg_data,
711: p_terminate_in_parameters_rec => p_terminate_in_parameters_rec);
713: --dbms_output.put_line(' validate_chr (-) ');
714: IF l_return_status = 'W' then
715: x_return_status := 'W';
716: end if;
717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
720: raise OKC_API.G_EXCEPTION_ERROR;
721: END IF;
714: IF l_return_status = 'W' then
715: x_return_status := 'W';
716: end if;
717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
720: raise OKC_API.G_EXCEPTION_ERROR;
721: END IF;
722:
715: x_return_status := 'W';
716: end if;
717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
720: raise OKC_API.G_EXCEPTION_ERROR;
721: END IF;
722:
723: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
716: end if;
717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
720: raise OKC_API.G_EXCEPTION_ERROR;
721: END IF;
722:
723: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
724: p_status_type => 'TERMINATED',
725: x_status_code => l_ter_status_code);
726: IF (l_debug = 'Y') THEN
727: okc_debug.set_trace_off;
728: END IF;
729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
730: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
732: raise OKC_API.G_EXCEPTION_ERROR;
733: END IF;
726: IF (l_debug = 'Y') THEN
727: okc_debug.set_trace_off;
728: END IF;
729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
730: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
732: raise OKC_API.G_EXCEPTION_ERROR;
733: END IF;
734: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
727: okc_debug.set_trace_off;
728: END IF;
729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
730: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
732: raise OKC_API.G_EXCEPTION_ERROR;
733: END IF;
734: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
735: p_status_type => 'CANCELLED',
728: END IF;
729: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
730: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
732: raise OKC_API.G_EXCEPTION_ERROR;
733: END IF;
734: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
735: p_status_type => 'CANCELLED',
736: x_status_code => l_can_status_code);
736: x_status_code => l_can_status_code);
737: IF (l_debug = 'Y') THEN
738: okc_debug.set_trace_off;
739: END IF;
740: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
741: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
742: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
743: raise OKC_API.G_EXCEPTION_ERROR;
744: END IF;
737: IF (l_debug = 'Y') THEN
738: okc_debug.set_trace_off;
739: END IF;
740: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
741: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
742: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
743: raise OKC_API.G_EXCEPTION_ERROR;
744: END IF;
745: l_chrv_rec := rec_k_header;
738: okc_debug.set_trace_off;
739: END IF;
740: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
741: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
742: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
743: raise OKC_API.G_EXCEPTION_ERROR;
744: END IF;
745: l_chrv_rec := rec_k_header;
746:
739: END IF;
740: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
741: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
742: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
743: raise OKC_API.G_EXCEPTION_ERROR;
744: END IF;
745: l_chrv_rec := rec_k_header;
746:
747: l_chrv_rec.trn_code := p_terminate_in_parameters_rec.p_termination_reason;
766: --
767: END if;
768:
769: okc_contract_pub.update_contract_header ( p_api_version => 1,
770: p_init_msg_list => OKC_API.G_FALSE,
771: x_return_status => l_return_status,
772: x_msg_count => x_msg_count,
773: x_msg_data => x_msg_data,
774: p_restricted_update => okc_api.g_true,
770: p_init_msg_list => OKC_API.G_FALSE,
771: x_return_status => l_return_status,
772: x_msg_count => x_msg_count,
773: x_msg_data => x_msg_data,
774: p_restricted_update => okc_api.g_true,
775: p_chrv_rec => l_chrv_rec,
776: x_chrv_rec => i_chrv_rec );
777:
778: --dbms_output.put_line(' update_contract_header (-) ');
776: x_chrv_rec => i_chrv_rec );
777:
778: --dbms_output.put_line(' update_contract_header (-) ');
779:
780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
781: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
782: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
783: raise OKC_API.G_EXCEPTION_ERROR;
784: END IF;
777:
778: --dbms_output.put_line(' update_contract_header (-) ');
779:
780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
781: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
782: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
783: raise OKC_API.G_EXCEPTION_ERROR;
784: END IF;
785:
778: --dbms_output.put_line(' update_contract_header (-) ');
779:
780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
781: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
782: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
783: raise OKC_API.G_EXCEPTION_ERROR;
784: END IF;
785:
786: -- Bug 1473143: The loop below was after the loop to update contract
779:
780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
781: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
782: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
783: raise OKC_API.G_EXCEPTION_ERROR;
784: END IF;
785:
786: -- Bug 1473143: The loop below was after the loop to update contract
787: -- lines. The cursor was not working because at that point the lines
808:
809: --dbms_output.put_line(' PRE_TERMINATE_SERVICE (+) ');
810:
811: OKS_BILL_REC_PUB.pre_terminate_service ( p_api_version => 1,
812: p_init_msg_list => OKC_API.G_FALSE,
813: x_return_status => l_return_status,
814: p_calledfrom => NULL,
815: x_msg_count => x_msg_count,
816: x_msg_data => x_msg_data,
820: x_amount => l_amount );
821:
822: --dbms_output.put_line(' PRE_TERMINATE_SERVICE (-) ');
823:
824: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
825: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
827: raise OKC_API.G_EXCEPTION_ERROR;
828: END IF;
821:
822: --dbms_output.put_line(' PRE_TERMINATE_SERVICE (-) ');
823:
824: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
825: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
827: raise OKC_API.G_EXCEPTION_ERROR;
828: END IF;
829: END LOOP;
822: --dbms_output.put_line(' PRE_TERMINATE_SERVICE (-) ');
823:
824: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
825: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
827: raise OKC_API.G_EXCEPTION_ERROR;
828: END IF;
829: END LOOP;
830: */
823:
824: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
825: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
827: raise OKC_API.G_EXCEPTION_ERROR;
828: END IF;
829: END LOOP;
830: */
831: -- END if;
896:
897: --dbms_output.put_line(' update_contract_line (+) ');
898:
899: OKC_CONTRACT_PUB.update_contract_line ( p_api_version => 1,
900: p_init_msg_list => OKC_API.G_FALSE,
901: x_return_status => l_return_status,
902: x_msg_count => x_msg_count,
903: x_msg_data => x_msg_data,
904: p_restricted_update => okc_api.g_true,
900: p_init_msg_list => OKC_API.G_FALSE,
901: x_return_status => l_return_status,
902: x_msg_count => x_msg_count,
903: x_msg_data => x_msg_data,
904: p_restricted_update => okc_api.g_true,
905: p_clev_rec => l_clev_rec,
906: x_clev_rec => i_clev_rec );
907: IF (l_debug = 'Y') THEN
908: okc_debug.set_trace_off;
908: okc_debug.set_trace_off;
909: END IF;
910: --dbms_output.put_line(' update_contract_line (-) ');
911:
912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
913: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
914: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
915: raise OKC_API.G_EXCEPTION_ERROR;
916: END IF;
909: END IF;
910: --dbms_output.put_line(' update_contract_line (-) ');
911:
912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
913: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
914: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
915: raise OKC_API.G_EXCEPTION_ERROR;
916: END IF;
917:
910: --dbms_output.put_line(' update_contract_line (-) ');
911:
912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
913: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
914: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
915: raise OKC_API.G_EXCEPTION_ERROR;
916: END IF;
917:
918:
911:
912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
913: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
914: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
915: raise OKC_API.G_EXCEPTION_ERROR;
916: END IF;
917:
918:
919: If l_lse_id = 61 Then
929: p_termination_date => l_clev_rec.date_terminated,
930: p_operation_code => 'TERMINATE');
931: End If;
932:
933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
934: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
936: raise OKC_API.G_EXCEPTION_ERROR;
937: END IF;
930: p_operation_code => 'TERMINATE');
931: End If;
932:
933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
934: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
936: raise OKC_API.G_EXCEPTION_ERROR;
937: END IF;
938:
931: End If;
932:
933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
934: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
936: raise OKC_API.G_EXCEPTION_ERROR;
937: END IF;
938:
939:
932:
933: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
934: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
935: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
936: raise OKC_API.G_EXCEPTION_ERROR;
937: END IF;
938:
939:
940:
968:
969: --dbms_output.put_line(' update_cond_hdrs (+) ');
970:
971: OKC_CONDITIONS_PUB.update_cond_hdrs( p_api_version => 1,
972: p_init_msg_list => OKC_API.G_FALSE,
973: x_return_status => l_return_status,
974: x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data,
976: p_cnhv_rec => l_cnh_rec,
979: okc_debug.set_trace_off;
980: END IF;
981: --dbms_output.put_line(' update_cond_hdrs (-) ');
982:
983: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
985: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
986: RAISE OKC_API.G_EXCEPTION_ERROR;
987: END IF;
980: END IF;
981: --dbms_output.put_line(' update_cond_hdrs (-) ');
982:
983: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
985: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
986: RAISE OKC_API.G_EXCEPTION_ERROR;
987: END IF;
988:
981: --dbms_output.put_line(' update_cond_hdrs (-) ');
982:
983: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
985: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
986: RAISE OKC_API.G_EXCEPTION_ERROR;
987: END IF;
988:
989: END LOOP;
982:
983: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
985: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
986: RAISE OKC_API.G_EXCEPTION_ERROR;
987: END IF;
988:
989: END LOOP;
990: IF (l_debug = 'Y') THEN
1002:
1003: --dbms_output.put_line(' update_change_request (+) ');
1004:
1005: OKC_CHANGE_REQUEST_PUB.update_change_request( p_api_version => 1,
1006: p_init_msg_list => OKC_API.G_FALSE,
1007: x_return_status => l_return_status,
1008: x_msg_count => x_msg_count,
1009: x_msg_data => x_msg_data,
1010: p_crtv_rec => l_crtv_rec,
1013: okc_debug.set_trace_off;
1014: END IF;
1015: --dbms_output.put_line(' update_change_request (-) ');
1016:
1017: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1020: RAISE OKC_API.G_EXCEPTION_ERROR;
1021: END IF;
1014: END IF;
1015: --dbms_output.put_line(' update_change_request (-) ');
1016:
1017: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1020: RAISE OKC_API.G_EXCEPTION_ERROR;
1021: END IF;
1022:
1015: --dbms_output.put_line(' update_change_request (-) ');
1016:
1017: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1020: RAISE OKC_API.G_EXCEPTION_ERROR;
1021: END IF;
1022:
1023: END LOOP;
1016:
1017: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1019: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1020: RAISE OKC_API.G_EXCEPTION_ERROR;
1021: END IF;
1022:
1023: END LOOP;
1024: IF (l_debug = 'Y') THEN
1035: fetch cur_header_aa into l_estimated_amount,l_scs_code,l_cls_code,l_k_status_code;
1036: close cur_header_aa;
1037:
1038: OKC_K_TERM_ASMBLR_PVT.acn_assemble(p_api_version => 1,
1039: p_init_msg_list => OKC_API.G_FALSE,
1040: x_return_status => l_return_status,
1041: x_msg_count => x_msg_count,
1042: x_msg_data => x_msg_data,
1043: p_k_id => p_terminate_in_parameters_rec.p_contract_id,
1050: p_k_status_code => l_k_status_code,
1051: p_estimated_amount => l_estimated_amount);
1052:
1053: --dbms_output.put_line(' acn_assemble (-) ');
1054: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1056: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1057: RAISE OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1051: p_estimated_amount => l_estimated_amount);
1052:
1053: --dbms_output.put_line(' acn_assemble (-) ');
1054: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1056: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1057: RAISE OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1059:
1052:
1053: --dbms_output.put_line(' acn_assemble (-) ');
1054: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1056: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1057: RAISE OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1059:
1060: END IF;
1053: --dbms_output.put_line(' acn_assemble (-) ');
1054: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1055: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1056: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1057: RAISE OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1059:
1060: END IF;
1061:
1058: END IF;
1059:
1060: END IF;
1061:
1062: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1063: --dbms_output.put_line(' terminate_chr (-) ');
1064: EXCEPTION
1065: WHEN E_Resource_Busy THEN
1066: IF (l_debug = 'Y') THEN
1065: WHEN E_Resource_Busy THEN
1066: IF (l_debug = 'Y') THEN
1067: okc_debug.set_trace_on;
1068: END IF;
1069: x_return_status := okc_api.g_ret_sts_error;
1070:
1071: OKC_API.set_message(G_FND_APP,
1072: G_FORM_UNABLE_TO_RESERVE_REC);
1073: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1067: okc_debug.set_trace_on;
1068: END IF;
1069: x_return_status := okc_api.g_ret_sts_error;
1070:
1071: OKC_API.set_message(G_FND_APP,
1072: G_FORM_UNABLE_TO_RESERVE_REC);
1073: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1074:
1075: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1071: OKC_API.set_message(G_FND_APP,
1072: G_FORM_UNABLE_TO_RESERVE_REC);
1073: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1074:
1075: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1076: IF (l_debug = 'Y') THEN
1077: okc_debug.set_trace_on;
1078: END IF;
1079: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1075: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1076: IF (l_debug = 'Y') THEN
1077: okc_debug.set_trace_on;
1078: END IF;
1079: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1080: (l_api_name,
1081: G_PKG_NAME,
1082: 'OKC_API.G_RET_STS_ERROR',
1083: x_msg_count,
1078: END IF;
1079: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1080: (l_api_name,
1081: G_PKG_NAME,
1082: 'OKC_API.G_RET_STS_ERROR',
1083: x_msg_count,
1084: x_msg_data,
1085: '_PROCESS');
1086: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1082: 'OKC_API.G_RET_STS_ERROR',
1083: x_msg_count,
1084: x_msg_data,
1085: '_PROCESS');
1086: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1087: IF (l_debug = 'Y') THEN
1088: okc_debug.set_trace_on;
1089: END IF;
1090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1086: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1087: IF (l_debug = 'Y') THEN
1088: okc_debug.set_trace_on;
1089: END IF;
1090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1091: (l_api_name,
1092: G_PKG_NAME,
1093: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1094: x_msg_count,
1089: END IF;
1090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1091: (l_api_name,
1092: G_PKG_NAME,
1093: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1094: x_msg_count,
1095: x_msg_data,
1096: '_PROCESS');
1097: WHEN OTHERS THEN
1097: WHEN OTHERS THEN
1098: IF (l_debug = 'Y') THEN
1099: okc_debug.set_trace_on;
1100: END IF;
1101: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1102: (l_api_name,
1103: G_PKG_NAME,
1104: 'OTHERS',
1105: x_msg_count,
1167:
1168: l_status varchar2(30) ; -- Impact on status
1169: l_meaning okc_statuses_v.meaning%type;
1170:
1171: l_return_status varchar2(1) := okc_api.g_ret_sts_success;
1172: l_dummy varchar2(1);
1173:
1174: --CURSOR cur_old_contract is
1175: --SELECT contract_number,contract_number_modifier
1189: l_k_num okc_k_headers_v.contract_number%type;
1190: l_k_mod okc_k_headers_v.contract_number_modifier%type;
1191: BEGIN
1192:
1193: x_return_status := okc_api.g_ret_sts_success;
1194:
1195: okc_api.init_msg_list(p_init_msg_list);
1196:
1197: --dbms_output.put_line('is top line (+)');
1191: BEGIN
1192:
1193: x_return_status := okc_api.g_ret_sts_success;
1194:
1195: okc_api.init_msg_list(p_init_msg_list);
1196:
1197: --dbms_output.put_line('is top line (+)');
1198:
1199:
1201: FETCH is_line_a_top_line into l_dummy;
1202:
1203: IF is_line_a_top_line%NOTFOUND THEN
1204:
1205: OKC_API.set_message(p_app_name => g_app_name,
1206: p_msg_name => 'OKC_CLE_NOT_TOP_LINE' ,
1207: p_token1 => 'NUMBER',
1208: p_token1_value => p_terminate_in_parameters_rec.p_line_number);
1209:
1206: p_msg_name => 'OKC_CLE_NOT_TOP_LINE' ,
1207: p_token1 => 'NUMBER',
1208: p_token1_value => p_terminate_in_parameters_rec.p_line_number);
1209:
1210: x_return_status := okc_api.g_ret_sts_error;
1211: CLOSE is_line_a_top_line;
1212: raise G_EXCEPTION_HALT_VALIDATION;
1213: END if;
1214:
1224: FETCH is_k_locked into l_dummy;
1225:
1226: IF is_k_locked%FOUND THEN
1227:
1228: OKC_API.set_message(p_app_name => g_app_name,
1229: p_msg_name => 'OKC_K_LOCKED',
1230: p_token1 => 'NUMBER',
1231: p_token1_value => l_chrv_rec.contract_number);
1232:
1229: p_msg_name => 'OKC_K_LOCKED',
1230: p_token1 => 'NUMBER',
1231: p_token1_value => l_chrv_rec.contract_number);
1232:
1233: x_return_status := okc_api.g_ret_sts_error;
1234: CLOSE is_k_locked;
1235: raise G_EXCEPTION_HALT_VALIDATION;
1236: END if;
1237: CLOSE is_k_locked;
1239: --dbms_output.put_line('is k locked (-)');
1240:
1241: If l_chrv_rec.template_Yn = 'Y' THEN
1242:
1243: OKC_API.set_message(p_app_name => g_app_name,
1244: p_msg_name => 'OKC_K_TEMPLATE',
1245: p_token1 => 'NUMBER',
1246: p_token1_value => l_chrv_rec.contract_number);
1247:
1244: p_msg_name => 'OKC_K_TEMPLATE',
1245: p_token1 => 'NUMBER',
1246: p_token1_value => l_chrv_rec.contract_number);
1247:
1248: x_return_status := okc_api.g_ret_sts_error;
1249: raise G_EXCEPTION_HALT_VALIDATION;
1250: END if;
1251:
1252: IF l_chrv_rec.sts_code='QA_HOLD' then
1253: OPEN cur_sts_code(l_chrv_rec.sts_code);
1254: FETCH cur_sts_code into l_status,l_meaning;
1255: CLOSE cur_sts_code;
1256:
1257: x_return_status := OKC_API.G_RET_STS_ERROR;
1258:
1259: OKC_API.set_message(p_app_name => g_app_name,
1260: p_msg_name => 'OKC_INVALID_K_STATUS',
1261: p_token1 => 'NUMBER',
1255: CLOSE cur_sts_code;
1256:
1257: x_return_status := OKC_API.G_RET_STS_ERROR;
1258:
1259: OKC_API.set_message(p_app_name => g_app_name,
1260: p_msg_name => 'OKC_INVALID_K_STATUS',
1261: p_token1 => 'NUMBER',
1262: p_token1_value => l_chrv_rec.contract_number,
1263: p_token2 => 'MODIFIER',
1283: FETCH cur_service_requests into l_status;
1284:
1285: IF cur_service_requests%FOUND THEN
1286:
1287: OKC_API.set_message(p_app_name => g_app_name,
1288: p_msg_name => 'OKC_SR_PENDING',
1289: p_token1 => 'NUMBER',
1290: p_token1_value => l_chrv_rec.contract_number);
1291:
1288: p_msg_name => 'OKC_SR_PENDING',
1289: p_token1 => 'NUMBER',
1290: p_token1_value => l_chrv_rec.contract_number);
1291:
1292: x_return_status := okc_api.g_ret_sts_error;
1293: CLOSE cur_service_requests;
1294: raise G_EXCEPTION_HALT_VALIDATION;
1295: END if;
1296:
1309: CLOSE cur_sts_code;
1310:
1311: IF l_status NOT IN ('ACTIVE','HOLD','SIGNED','EXPIRED') THEN
1312:
1313: x_return_status := OKC_API.G_RET_STS_ERROR;
1314:
1315: OKC_API.set_message(p_app_name => g_app_name,
1316: p_msg_name => 'OKC_INVALID_K_STATUS',
1317: p_token1 => 'NUMBER',
1311: IF l_status NOT IN ('ACTIVE','HOLD','SIGNED','EXPIRED') THEN
1312:
1313: x_return_status := OKC_API.G_RET_STS_ERROR;
1314:
1315: OKC_API.set_message(p_app_name => g_app_name,
1316: p_msg_name => 'OKC_INVALID_K_STATUS',
1317: p_token1 => 'NUMBER',
1318: p_token1_value => p_terminate_in_parameters_rec.p_line_number,
1319: p_token2 => 'STATUS',
1330: close cur_old_contract;
1331:
1332: x_return_status := 'W';
1333:
1334: OKC_API.set_message( p_app_name => g_app_name,
1335: p_msg_name =>'OKC_RENEWED_CONTRACT_TERM',
1336: -- nechatur 21-Jun-2006 Bug#5122905 Not display the original Contract and its Modifier, Only display the number and modifier of the renewed contract
1337: /* p_token1 =>'NUMBER',
1338: p_token1_value => l_chrv_rec.contract_number,
1351: IF Nvl(p_terminate_in_parameters_rec.p_orig_end_date,
1352: p_terminate_in_parameters_rec.p_termination_date + 1) <
1353: p_terminate_in_parameters_rec.p_termination_date then
1354:
1355: x_return_status := OKC_API.G_RET_STS_ERROR;
1356:
1357: OKC_API.set_message( p_app_name => g_app_name,
1358: p_msg_name =>'OKC_TRMDATE_MORE_END');
1359:
1353: p_terminate_in_parameters_rec.p_termination_date then
1354:
1355: x_return_status := OKC_API.G_RET_STS_ERROR;
1356:
1357: OKC_API.set_message( p_app_name => g_app_name,
1358: p_msg_name =>'OKC_TRMDATE_MORE_END');
1359:
1360:
1361: RAISE g_exception_halt_validation;
1363: EXCEPTION
1364: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1365: NULL;
1366: WHEN OTHERS THEN
1367: OKC_API.set_message(p_app_name => g_app_name,
1368: p_msg_name => g_unexpected_error,
1369: p_token1 => g_sqlcode_token,
1370: p_token1_value => sqlcode,
1371: p_token2 => g_sqlerrm_token,
1370: p_token1_value => sqlcode,
1371: p_token2 => g_sqlerrm_token,
1372: p_token2_value => sqlerrm);
1373:
1374: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1375: END;
1376:
1377: PROCEDURE terminate_cle( p_api_version IN NUMBER,
1378: p_init_msg_list IN VARCHAR2 ,
1381: x_msg_data OUT NOCOPY VARCHAR2,
1382: p_terminate_in_parameters_rec IN terminate_in_cle_rec
1383: )is
1384:
1385: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1386: l_api_name constant varchar2(30) := 'terminate_cle';
1387: l_dummy varchar2(1);
1388:
1389: CURSOR cur_header is
1447:
1448: BEGIN
1449: --dbms_output.put_line(' terminate_cle (+) ');
1450:
1451: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1452:
1453: l_return_status := OKC_API.START_ACTIVITY( l_api_name,
1454: p_init_msg_list,
1455: '_PROCESS',
1449: --dbms_output.put_line(' terminate_cle (+) ');
1450:
1451: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1452:
1453: l_return_status := OKC_API.START_ACTIVITY( l_api_name,
1454: p_init_msg_list,
1455: '_PROCESS',
1456: x_return_status );
1457:
1454: p_init_msg_list,
1455: '_PROCESS',
1456: x_return_status );
1457:
1458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1459: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1461: raise OKC_API.G_EXCEPTION_ERROR;
1462: END IF;
1455: '_PROCESS',
1456: x_return_status );
1457:
1458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1459: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1461: raise OKC_API.G_EXCEPTION_ERROR;
1462: END IF;
1463:
1456: x_return_status );
1457:
1458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1459: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1461: raise OKC_API.G_EXCEPTION_ERROR;
1462: END IF;
1463:
1464: --dbms_output.put_line(' VALIDATE_CLE (+) ');
1457:
1458: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1459: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1461: raise OKC_API.G_EXCEPTION_ERROR;
1462: END IF;
1463:
1464: --dbms_output.put_line(' VALIDATE_CLE (+) ');
1465:
1463:
1464: --dbms_output.put_line(' VALIDATE_CLE (+) ');
1465:
1466: OKC_TERMINATE_PUB.validate_cle(p_api_version => 1,
1467: p_init_msg_list => OKC_API.G_FALSE,
1468: x_return_status => l_return_status,
1469: x_msg_count => x_msg_count,
1470: x_msg_data => x_msg_data,
1471: p_terminate_in_parameters_rec => p_terminate_in_parameters_rec);
1476: IF l_return_status = 'W' then
1477: x_return_status := 'W';
1478: END IF;
1479:
1480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1481: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1483: raise OKC_API.G_EXCEPTION_ERROR;
1484: END IF;
1477: x_return_status := 'W';
1478: END IF;
1479:
1480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1481: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1483: raise OKC_API.G_EXCEPTION_ERROR;
1484: END IF;
1485:
1478: END IF;
1479:
1480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1481: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1483: raise OKC_API.G_EXCEPTION_ERROR;
1484: END IF;
1485:
1486: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
1479:
1480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1481: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1483: raise OKC_API.G_EXCEPTION_ERROR;
1484: END IF;
1485:
1486: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
1487: p_status_type => 'TERMINATED',
1488: x_status_code => l_ter_status_code );
1489: IF (l_debug = 'Y') THEN
1490: okc_debug.set_trace_off;
1491: END IF;
1492: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1493: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1494: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1495: raise OKC_API.G_EXCEPTION_ERROR;
1496: END IF;
1489: IF (l_debug = 'Y') THEN
1490: okc_debug.set_trace_off;
1491: END IF;
1492: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1493: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1494: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1495: raise OKC_API.G_EXCEPTION_ERROR;
1496: END IF;
1497: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
1490: okc_debug.set_trace_off;
1491: END IF;
1492: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1493: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1494: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1495: raise OKC_API.G_EXCEPTION_ERROR;
1496: END IF;
1497: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
1498: p_status_type => 'CANCELLED',
1491: END IF;
1492: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1493: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1494: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1495: raise OKC_API.G_EXCEPTION_ERROR;
1496: END IF;
1497: OKC_ASSENT_PUB.get_default_status( x_return_status => l_return_status,
1498: p_status_type => 'CANCELLED',
1499: x_status_code => l_can_status_code);
1499: x_status_code => l_can_status_code);
1500: IF (l_debug = 'Y') THEN
1501: okc_debug.set_trace_off;
1502: END IF;
1503: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1504: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1500: IF (l_debug = 'Y') THEN
1501: okc_debug.set_trace_off;
1502: END IF;
1503: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1504: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: IF (l_debug = 'Y') THEN
1501: okc_debug.set_trace_off;
1502: END IF;
1503: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1504: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: IF (l_debug = 'Y') THEN
1509: OKC_DEBUG.SET_TRACE_OFF;
1502: END IF;
1503: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1504: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: IF (l_debug = 'Y') THEN
1509: OKC_DEBUG.SET_TRACE_OFF;
1510: END IF;
1578: --
1579: --dbms_output.put_line('update_contract_line (+) ');
1580: /*
1581: OKC_CONTRACT_PUB.update_contract_line( p_api_version => 1,
1582: p_init_msg_list => OKC_API.G_FALSE,
1583: x_return_status => l_return_status,
1584: x_msg_count => x_msg_count,
1585: x_msg_data => x_msg_data,
1586: p_restricted_update => okc_api.g_true,
1582: p_init_msg_list => OKC_API.G_FALSE,
1583: x_return_status => l_return_status,
1584: x_msg_count => x_msg_count,
1585: x_msg_data => x_msg_data,
1586: p_restricted_update => okc_api.g_true,
1587: p_clev_rec => l_clev_rec,
1588: x_clev_rec => i_clev_rec );
1589: IF (l_debug = 'Y') THEN
1590: okc_debug.set_trace_off;
1589: IF (l_debug = 'Y') THEN
1590: okc_debug.set_trace_off;
1591: END IF;
1592: --dbms_output.put_line('update_contract_line (-) ');
1593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1594: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1596: raise OKC_API.G_EXCEPTION_ERROR;
1597: END IF;
1590: okc_debug.set_trace_off;
1591: END IF;
1592: --dbms_output.put_line('update_contract_line (-) ');
1593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1594: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1596: raise OKC_API.G_EXCEPTION_ERROR;
1597: END IF;
1598: */
1591: END IF;
1592: --dbms_output.put_line('update_contract_line (-) ');
1593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1594: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1596: raise OKC_API.G_EXCEPTION_ERROR;
1597: END IF;
1598: */
1599: If l_lse_id = 61 Then
1592: --dbms_output.put_line('update_contract_line (-) ');
1593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1594: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1596: raise OKC_API.G_EXCEPTION_ERROR;
1597: END IF;
1598: */
1599: If l_lse_id = 61 Then
1600: --if the contract line being terminated is a Price Hold line, we need to delete the entry in QP
1609: p_termination_date => l_clev_tbl(l_loop_counter).date_terminated,
1610: p_operation_code => 'TERMINATE');
1611: End If;
1612:
1613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1614: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1616: raise OKC_API.G_EXCEPTION_ERROR;
1617: END IF;
1610: p_operation_code => 'TERMINATE');
1611: End If;
1612:
1613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1614: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1616: raise OKC_API.G_EXCEPTION_ERROR;
1617: END IF;
1618:
1611: End If;
1612:
1613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1614: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1616: raise OKC_API.G_EXCEPTION_ERROR;
1617: END IF;
1618:
1619: END IF; -- effectivity
1612:
1613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1614: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1616: raise OKC_API.G_EXCEPTION_ERROR;
1617: END IF;
1618:
1619: END IF; -- effectivity
1620: END IF; -- l_status
1622: IF (l_debug = 'Y') THEN
1623: OKC_DEBUG.set_trace_off;
1624: END IF;
1625: OKC_CONTRACT_PUB.update_contract_line( p_api_version => 1,
1626: p_init_msg_list => OKC_API.G_FALSE,
1627: x_return_status => l_return_status,
1628: x_msg_count => x_msg_count,
1629: x_msg_data => x_msg_data,
1630: p_restricted_update => OKC_API.g_true,
1626: p_init_msg_list => OKC_API.G_FALSE,
1627: x_return_status => l_return_status,
1628: x_msg_count => x_msg_count,
1629: x_msg_data => x_msg_data,
1630: p_restricted_update => OKC_API.g_true,
1631: p_clev_tbl => l_clev_tbl,
1632: x_clev_tbl => i_clev_tbl );
1633: IF (l_debug = 'Y') THEN
1634: OKC_DEBUG.set_trace_off;
1633: IF (l_debug = 'Y') THEN
1634: OKC_DEBUG.set_trace_off;
1635: END IF;
1636: --dbms_output.put_line('update_contract_line (-) ');
1637: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1640: RAISE OKC_API.G_EXCEPTION_ERROR;
1641: END IF;
1634: OKC_DEBUG.set_trace_off;
1635: END IF;
1636: --dbms_output.put_line('update_contract_line (-) ');
1637: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1640: RAISE OKC_API.G_EXCEPTION_ERROR;
1641: END IF;
1642:
1635: END IF;
1636: --dbms_output.put_line('update_contract_line (-) ');
1637: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1640: RAISE OKC_API.G_EXCEPTION_ERROR;
1641: END IF;
1642:
1643: IF (l_debug = 'Y') THEN
1636: --dbms_output.put_line('update_contract_line (-) ');
1637: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1640: RAISE OKC_API.G_EXCEPTION_ERROR;
1641: END IF;
1642:
1643: IF (l_debug = 'Y') THEN
1644: okc_debug.set_trace_on;
1653: --
1654: -- If l_dummy = 'x' and p_terminate_in_parameters_rec.p_termination_date <= sysdate and
1655: If l_dummy = 'x' And
1656: OKC_ASSENT_PUB.line_operation_allowed(p_terminate_in_parameters_rec.p_cle_id,
1657: 'INVOICE') = okc_api.g_true THEN
1658:
1659: --dbms_output.put_line('PRE_TERMINATE_SERVICE (+) ');
1660:
1661: OKS_BILL_REC_PUB.pre_terminate_service ( p_api_version => 1,
1658:
1659: --dbms_output.put_line('PRE_TERMINATE_SERVICE (+) ');
1660:
1661: OKS_BILL_REC_PUB.pre_terminate_service ( p_api_version => 1,
1662: p_init_msg_list => OKC_API.G_FALSE,
1663: x_return_status => l_return_status,
1664: x_msg_count => x_msg_count,
1665: x_msg_data => x_msg_data,
1666: p_calledfrom => NULL,
1670: x_amount => l_amount );
1671:
1672: --dbms_output.put_line('PRE_TERMINATE_SERVICE (-) ');
1673:
1674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1677: raise OKC_API.G_EXCEPTION_ERROR;
1678: END IF;
1671:
1672: --dbms_output.put_line('PRE_TERMINATE_SERVICE (-) ');
1673:
1674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1677: raise OKC_API.G_EXCEPTION_ERROR;
1678: END IF;
1679: END if;
1672: --dbms_output.put_line('PRE_TERMINATE_SERVICE (-) ');
1673:
1674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1677: raise OKC_API.G_EXCEPTION_ERROR;
1678: END IF;
1679: END if;
1680: */
1673:
1674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1677: raise OKC_API.G_EXCEPTION_ERROR;
1678: END IF;
1679: END if;
1680: */
1681:
1688: l_price_negotiated,l_kl_sts_code;
1689: CLOSE cur_header;
1690:
1691: OKC_KL_TERM_ASMBLR_PVT.acn_assemble(p_api_version => 1,
1692: p_init_msg_list => OKC_API.G_FALSE,
1693: x_return_status => l_return_status,
1694: x_msg_count => x_msg_count,
1695: x_msg_data => x_msg_data,
1696: p_k_id => p_terminate_in_parameters_rec.p_dnz_chr_id,
1703: p_k_subclass => l_scs_code,
1704: p_kl_status_code => l_kl_sts_code,
1705: p_estimated_amount => l_price_negotiated);
1706:
1707: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1710: RAISE OKC_API.G_EXCEPTION_ERROR;
1711: END IF;
1704: p_kl_status_code => l_kl_sts_code,
1705: p_estimated_amount => l_price_negotiated);
1706:
1707: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1710: RAISE OKC_API.G_EXCEPTION_ERROR;
1711: END IF;
1712:
1705: p_estimated_amount => l_price_negotiated);
1706:
1707: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1710: RAISE OKC_API.G_EXCEPTION_ERROR;
1711: END IF;
1712:
1713: END IF;
1706:
1707: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1710: RAISE OKC_API.G_EXCEPTION_ERROR;
1711: END IF;
1712:
1713: END IF;
1714:
1711: END IF;
1712:
1713: END IF;
1714:
1715: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1716: --dbms_output.put_line(' terminate_cle (-) ');
1717:
1718: EXCEPTION
1719: WHEN E_Resource_Busy THEN
1719: WHEN E_Resource_Busy THEN
1720: IF (l_debug = 'Y') THEN
1721: okc_debug.set_trace_on;
1722: END IF;
1723: x_return_status := okc_api.g_ret_sts_error;
1724: OKC_API.set_message(G_FND_APP,
1725: G_FORM_UNABLE_TO_RESERVE_REC);
1726: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1727:
1720: IF (l_debug = 'Y') THEN
1721: okc_debug.set_trace_on;
1722: END IF;
1723: x_return_status := okc_api.g_ret_sts_error;
1724: OKC_API.set_message(G_FND_APP,
1725: G_FORM_UNABLE_TO_RESERVE_REC);
1726: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1727:
1728: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1724: OKC_API.set_message(G_FND_APP,
1725: G_FORM_UNABLE_TO_RESERVE_REC);
1726: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1727:
1728: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1729: IF (l_debug = 'Y') THEN
1730: okc_debug.set_trace_on;
1731: END IF;
1732: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1728: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1729: IF (l_debug = 'Y') THEN
1730: okc_debug.set_trace_on;
1731: END IF;
1732: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1733: (l_api_name,
1734: G_PKG_NAME,
1735: 'OKC_API.G_RET_STS_ERROR',
1736: x_msg_count,
1731: END IF;
1732: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1733: (l_api_name,
1734: G_PKG_NAME,
1735: 'OKC_API.G_RET_STS_ERROR',
1736: x_msg_count,
1737: x_msg_data,
1738: '_PROCESS');
1739:
1736: x_msg_count,
1737: x_msg_data,
1738: '_PROCESS');
1739:
1740: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1741: IF (l_debug = 'Y') THEN
1742: okc_debug.set_trace_on;
1743: END IF;
1744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1740: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1741: IF (l_debug = 'Y') THEN
1742: okc_debug.set_trace_on;
1743: END IF;
1744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1745: (l_api_name,
1746: G_PKG_NAME,
1747: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1748: x_msg_count,
1743: END IF;
1744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1745: (l_api_name,
1746: G_PKG_NAME,
1747: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1748: x_msg_count,
1749: x_msg_data,
1750: '_PROCESS');
1751: WHEN OTHERS THEN
1751: WHEN OTHERS THEN
1752: IF (l_debug = 'Y') THEN
1753: okc_debug.set_trace_on;
1754: END IF;
1755: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1756: (l_api_name,
1757: G_PKG_NAME,
1758: 'OTHERS',
1759: x_msg_count,