[Home] [Help]
7:
8: ---------------------------------------------------------------------------
9: -- GLOBAL VARIABLES
10: ---------------------------------------------------------------------------
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
14: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
15: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
10: ---------------------------------------------------------------------------
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
14: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
15: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
18: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
12: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
14: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
15: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
18: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
19: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
14: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
15: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
18: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
19: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
20: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
21: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
22: G_EXCEPTION_HALT_VALIDATION exception;
15: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
18: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
19: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
20: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
21: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
22: G_EXCEPTION_HALT_VALIDATION exception;
23: NO_CONTRACT_FOUND exception;
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
18: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
19: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
20: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
21: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
22: G_EXCEPTION_HALT_VALIDATION exception;
23: NO_CONTRACT_FOUND exception;
24: G_NO_UPDATE_ALLOWED_EXCEPTION exception;
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
18: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
19: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
20: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
21: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
22: G_EXCEPTION_HALT_VALIDATION exception;
23: NO_CONTRACT_FOUND exception;
24: G_NO_UPDATE_ALLOWED_EXCEPTION exception;
25: G_NO_UPDATE_ALLOWED CONSTANT VARCHAR2(200) := 'OKC_NO_UPDATE_ALLOWED';
167: okc_debug.Set_Indentation('Generate Contract Number');
168: okc_debug.log('1000: Entering generate contract number');
169: END IF;
170: -- initialize return status
171: x_return_status := OKC_API.G_RET_STS_SUCCESS;
172:
173: -- if contract number is null, polpulate default contract number
174: If (x_contract_number = OKC_API.G_MISS_CHAR or
175: x_contract_number is null)
170: -- initialize return status
171: x_return_status := OKC_API.G_RET_STS_SUCCESS;
172:
173: -- if contract number is null, polpulate default contract number
174: If (x_contract_number = OKC_API.G_MISS_CHAR or
175: x_contract_number is null)
176: Then
177: IF (l_debug = 'Y') THEN
178: okc_debug.log('1010: x_contract_Number is null');
193: okc_debug.log('1040: x_contract_number ' || x_contract_number);
194: END IF;
195:
196: x_return_status := l_return_status;
197: If (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
198: Raise G_EXCEPTION_HALT_VALIDATION;
199: End If;
200:
201: -- check for unique contract_number + modifier
202: /* l_chrv_rec.contract_number := x_contract_number;
203: l_chrv_rec.contract_number_modifier := p_modifier;
204:
205: l_return_status := OKC_CHR_PVT.Is_Unique(l_chrv_rec);
206: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
207: l_unique_number_found := TRUE;
208: End If;
209: x_return_status := l_return_status;
210: END LOOP; */
219: okc_debug.log('1060: Exiting Generate Contract Number');
220: okc_debug.reset_indentation;
221: END IF;
222: when OTHERS then
223: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
224: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
225: p_msg_name => g_unexpected_error,
226: p_token1 => g_sqlcode_token,
227: p_token1_value => sqlcode,
220: okc_debug.reset_indentation;
221: END IF;
222: when OTHERS then
223: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
224: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
225: p_msg_name => g_unexpected_error,
226: p_token1 => g_sqlcode_token,
227: p_token1_value => sqlcode,
228: p_token2 => g_sqlerrm_token,
244: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
245: BEGIN
246:
247: -- initialize return status
248: x_return_status := OKC_API.G_RET_STS_SUCCESS;
249:
250: -- assign/populate contract header id
251: l_cvmv_rec.chr_id := p_chr_id;
252:
264: return (x_return_status);
265: EXCEPTION
266: when OTHERS then
267: -- notify caller of an error
268: x_return_status := OKC_API.G_RET_STS_ERROR;
269:
270: -- store SQL error message on message stack
271: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
272: p_msg_name => g_unexpected_error,
267: -- notify caller of an error
268: x_return_status := OKC_API.G_RET_STS_ERROR;
269:
270: -- store SQL error message on message stack
271: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
272: p_msg_name => g_unexpected_error,
273: p_token1 => g_sqlcode_token,
274: p_token1_value => sqlcode,
275: p_token2 => g_sqlerrm_token,
295:
296: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
297: BEGIN
298:
299: x_return_status := OKC_API.G_RET_STS_SUCCESS;
300:
301: l_cvmv_rec.chr_id := p_chr_id;
302:
303: -- Major version update is not allowed
300:
301: l_cvmv_rec.chr_id := p_chr_id;
302:
303: -- Major version update is not allowed
304: l_cvmv_rec.major_version := OKC_API.G_MISS_NUM;
305:
306: -- update contract version number
307: OKC_CVM_PVT.update_row(
308: p_api_version,
318: return x_return_status;
319: EXCEPTION
320: WHEN OTHERS THEN
321: -- store SQL error message on message stack
322: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
323: p_msg_name => g_unexpected_error,
324: p_token1 => g_sqlcode_token,
325: p_token1_value => sqlcode,
326: p_token2 => g_sqlerrm_token,
325: p_token1_value => sqlcode,
326: p_token2 => g_sqlerrm_token,
327: p_token2_value => sqlerrm);
328:
329: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
330: return x_return_status;
331: END Increment_Minor_Version;
332:
333: FUNCTION Create_Version(p_chr_id IN NUMBER) RETURN VARCHAR2 Is
340: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
341: BEGIN
342:
343: -- initialize return status
344: x_return_status := OKC_API.G_RET_STS_SUCCESS;
345:
346: -- assign/populate contract header id
347: l_cvmv_rec.chr_id := p_chr_id;
348:
360: return (x_return_status);
361: EXCEPTION
362: when OTHERS then
363: -- notify caller of an error
364: x_return_status := OKC_API.G_RET_STS_ERROR;
365:
366: -- store SQL error message on message stack
367: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
368: p_msg_name => g_unexpected_error,
363: -- notify caller of an error
364: x_return_status := OKC_API.G_RET_STS_ERROR;
365:
366: -- store SQL error message on message stack
367: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
368: p_msg_name => g_unexpected_error,
369: p_token1 => g_sqlcode_token,
370: p_token1_value => sqlcode,
371: p_token2 => g_sqlerrm_token,
383: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
384: BEGIN
385:
386: -- initialize return status
387: x_return_status := OKC_API.G_RET_STS_SUCCESS;
388:
389: -- assign/populate contract header id
390: l_cvmv_rec.chr_id := p_chr_id;
391:
402: return (x_return_status);
403: EXCEPTION
404: when OTHERS then
405: -- notify caller of an error
406: x_return_status := OKC_API.G_RET_STS_ERROR;
407:
408: -- store SQL error message on message stack
409: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
410: p_msg_name => g_unexpected_error,
405: -- notify caller of an error
406: x_return_status := OKC_API.G_RET_STS_ERROR;
407:
408: -- store SQL error message on message stack
409: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
410: p_msg_name => g_unexpected_error,
411: p_token1 => g_sqlcode_token,
412: p_token1_value => sqlcode,
413: p_token2 => g_sqlerrm_token,
442: WHERE chr_id=p_chr_id;
443:
444: BEGIN
445: -- initialize return status
446: x_return_status := OKC_API.G_RET_STS_SUCCESS;
447:
448: --if p_check_access is 'Y' , check if user has update access on category
449:
450: If (p_check_access = 'Y' AND
456: RAISE G_CREATE_NA_EXCEPTION;
457: End If;
458:
459: -- if contract number is null, polpulate default contract number
460: If (l_chrv_rec.contract_number = OKC_API.G_MISS_CHAR or
461: l_chrv_rec.contract_number is null)
462: Then
463: OKC_CONTRACT_PVT.GENERATE_CONTRACT_NUMBER(
464: p_scs_code => l_chrv_rec.scs_code,
465: p_modifier => l_chrv_rec.contract_number_modifier,
466: x_return_status => x_return_status,
467: x_contract_number => l_chrv_rec.contract_number);
468:
469: /* If (x_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
470: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
471: p_msg_name => g_unexpected_error,
472: p_token1 => g_sqlcode_token,
473: p_token1_value => sqlcode,
466: x_return_status => x_return_status,
467: x_contract_number => l_chrv_rec.contract_number);
468:
469: /* If (x_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
470: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
471: p_msg_name => g_unexpected_error,
472: p_token1 => g_sqlcode_token,
473: p_token1_value => sqlcode,
474: p_token2 => g_sqlerrm_token,
475: p_token2_value => sqlerrm);
476: End If; */
477: End If;
478:
479: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
480:
481: OKC_CHR_PVT.Insert_Row(
482: p_api_version => p_api_version,
483: p_init_msg_list => p_init_msg_list,
488: x_chrv_rec => x_chrv_rec);
489: End If;
490:
491: -- Create version
492: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
493: x_return_status := OKC_CONTRACT_PVT.Create_Version(x_chrv_rec.id);
494: End If;
495:
496: -- Create record in OKC_K_HISTORY tables
493: x_return_status := OKC_CONTRACT_PVT.Create_Version(x_chrv_rec.id);
494: End If;
495:
496: -- Create record in OKC_K_HISTORY tables
497: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
498: l_hstv_rec.chr_id := x_chrv_rec.id;
499: l_hstv_rec.sts_code_from := NULL;
500: l_hstv_rec.sts_code_to := x_chrv_rec.sts_code;
501: l_hstv_rec.reason_code := 'CREATE';
519: End If;
520:
521: EXCEPTION
522: When G_CREATE_NA_EXCEPTION Then
523: OKC_API.SET_MESSAGE(p_app_name => 'OKC',
524: p_msg_name => 'OKC_CREATE_NA',
525: p_token1 => 'CATEGORY',
526: p_token1_value => l_scs_meaning);
527: x_return_status:=OKC_API.G_RET_STS_ERROR;
523: OKC_API.SET_MESSAGE(p_app_name => 'OKC',
524: p_msg_name => 'OKC_CREATE_NA',
525: p_token1 => 'CATEGORY',
526: p_token1_value => l_scs_meaning);
527: x_return_status:=OKC_API.G_RET_STS_ERROR;
528:
529: END create_contract_header;
530:
531: PROCEDURE create_contract_header(
565: x_hstv_rec OKC_K_HISTORY_PVT.hstv_rec_type;
566: l_version VARCHAR2(255);
567: l_status VARCHAR2(30) := NULL;
568: l_new_status VARCHAR2(30) := NULL;
569: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
570: l_old_ste_code VARCHAR2(30) := NULL;
571: l_new_ste_code VARCHAR2(30) := NULL;
572:
573: Cursor l_chrv_csr Is
600:
601: BEGIN
602: -- if the update is not a restricted update (restricted_update <> 'Y'),
603: -- check whether update is allowed or not
604: If (p_restricted_update <> OKC_API.G_TRUE) Then
605: If (OKC_CONTRACT_PUB.Update_Allowed(p_chrv_rec.id) <> 'Y') Then
606: raise G_NO_UPDATE_ALLOWED_EXCEPTION;
607: End If;
608: End If;
617: open l_status_csr;
618: fetch l_status_csr into l_status;
619: close l_status_csr;
620:
621: If (p_chrv_rec.sts_code = OKC_API.G_MISS_CHAR) Then
622: l_new_status := NULL;
623: Else
624: l_new_status := p_chrv_rec.sts_code;
625: End If;
635: x_chrv_rec => x_chrv_rec);
636:
637: -- Update minor version
638: /*fix for bug6688656*/
639: If x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
640: x_return_status := Update_Minor_Version(p_chrv_rec.id);
641: End if;
642: /*end of fix for bug6688656*/
643:
655: IF l_old_ste_code <> l_new_ste_code THEN
656: OKC_CTC_PVT.update_contact_stecode(p_chr_id => p_chrv_rec.id,
657: x_return_status=>l_return_status);
658:
659: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
660: RAISE OKC_API.G_EXCEPTION_ERROR;
661: END IF;
662:
663: END IF;
656: OKC_CTC_PVT.update_contact_stecode(p_chr_id => p_chrv_rec.id,
657: x_return_status=>l_return_status);
658:
659: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
660: RAISE OKC_API.G_EXCEPTION_ERROR;
661: END IF;
662:
663: END IF;
664: /*end of bugfix 6882512*/
663: END IF;
664: /*end of bugfix 6882512*/
665:
666: -- Call action assembler if status is changed
667: If (x_return_status = OKC_API.G_RET_STS_SUCCESS AND
668: p_chrv_rec.old_sts_code is not null AND
669: p_chrv_rec.new_sts_code is not null AND
670: p_chrv_rec.old_ste_code is not null AND
671: p_chrv_rec.new_ste_code is not null AND
688: p_k_pre_sts_code => p_chrv_rec.old_sts_code,
689: p_k_pre_sts_type => p_chrv_rec.old_ste_code,
690: p_k_source_system_code => p_chrv_rec.ORIG_SYSTEM_SOURCE_CODE);
691: Else
692: If ( ( (x_return_status = OKC_API.G_RET_STS_SUCCESS) AND (l_new_status is not null) AND (l_status is not null) )
693: AND (l_status <> l_new_status) ) Then
694:
695: -- To insert record in history tables
696: l_hstv_rec.chr_id := x_chrv_rec.id;
715: End If;
716: End If;
717:
718: -- Update Currency change
719: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
720: -- If currency code changed, update all lines
721: If (x_chrv_rec.currency_code <> l_currency_code) Then
722: UPDATE okc_k_lines_b
723: SET currency_code = x_chrv_rec.currency_code
728: */
729: End If;
730: exception
731: when G_NO_UPDATE_ALLOWED_EXCEPTION then
732: x_return_status := OKC_API.G_RET_STS_ERROR;
733: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
734: p_msg_name => g_no_update_allowed,
735: p_token1 => 'VALUE1',
736: p_token1_value => 'Contract Header');
729: End If;
730: exception
731: when G_NO_UPDATE_ALLOWED_EXCEPTION then
732: x_return_status := OKC_API.G_RET_STS_ERROR;
733: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
734: p_msg_name => g_no_update_allowed,
735: p_token1 => 'VALUE1',
736: p_token1_value => 'Contract Header');
737: when OTHERS then
735: p_token1 => 'VALUE1',
736: p_token1_value => 'Contract Header');
737: when OTHERS then
738: -- store SQL error message on message stack
739: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
740: p_msg_name => g_unexpected_error,
741: p_token1 => g_sqlcode_token,
742: p_token1_value => sqlcode,
743: p_token2 => g_sqlerrm_token,
743: p_token2 => g_sqlerrm_token,
744: p_token2_value => sqlerrm);
745:
746: -- notify caller of an UNEXPETED error
747: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
748: END update_contract_header;
749:
750:
751: PROCEDURE update_contract_header(
786: x_hstv_rec OKC_K_HISTORY_PVT.hstv_rec_type;
787: l_version VARCHAR2(255);
788: l_status VARCHAR2(30) := NULL;
789: l_new_status VARCHAR2(30) := NULL;
790: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
791: l_old_ste_code VARCHAR2(30) := NULL;
792: l_new_ste_code VARCHAR2(30) := NULL;
793:
794: Cursor l_chrv_csr Is
821:
822: BEGIN
823: -- if the update is not a restricted update (restricted_update <> 'Y'),
824: -- check whether update is allowed or not
825: If (p_restricted_update <> OKC_API.G_TRUE) Then
826: If (OKC_CONTRACT_PUB.Update_Allowed(p_chrv_rec.id) <> 'Y') Then
827: raise G_NO_UPDATE_ALLOWED_EXCEPTION;
828: End If;
829: End If;
838: open l_status_csr;
839: fetch l_status_csr into l_status;
840: close l_status_csr;
841:
842: If (p_chrv_rec.sts_code = OKC_API.G_MISS_CHAR) Then
843: l_new_status := NULL;
844: Else
845: l_new_status := p_chrv_rec.sts_code;
846: End If;
856: x_chrv_rec => x_chrv_rec);
857:
858: -- Update minor version
859: /*fix for bug6688656*/
860: If x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
861: x_return_status := Update_Minor_Version(p_chrv_rec.id);
862: End if;
863: /*end of fix for bug6688656*/
864:
876: IF l_old_ste_code <> l_new_ste_code THEN
877: OKC_CTC_PVT.update_contact_stecode(p_chr_id => p_chrv_rec.id,
878: x_return_status=>l_return_status);
879:
880: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
883:
884: END IF;
877: OKC_CTC_PVT.update_contact_stecode(p_chr_id => p_chrv_rec.id,
878: x_return_status=>l_return_status);
879:
880: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
883:
884: END IF;
885: /*end of bugfix 6882512*/
884: END IF;
885: /*end of bugfix 6882512*/
886:
887: -- Call action assembler if status is changed
888: If (x_return_status = OKC_API.G_RET_STS_SUCCESS AND
889: p_chrv_rec.old_sts_code is not null AND
890: p_chrv_rec.new_sts_code is not null AND
891: p_chrv_rec.old_ste_code is not null AND
892: p_chrv_rec.new_ste_code is not null AND
910: p_k_pre_sts_type => p_chrv_rec.old_ste_code,
911: p_k_source_system_code => p_chrv_rec.ORIG_SYSTEM_SOURCE_CODE,
912: p_control_rec => p_control_rec);
913: Else
914: If ( ( (x_return_status = OKC_API.G_RET_STS_SUCCESS) AND (l_new_status is not null) AND (l_status is not null) )
915: AND (l_status <> l_new_status) ) Then
916:
917: -- To insert record in history tables
918: l_hstv_rec.chr_id := x_chrv_rec.id;
937: End If;
938: End If;
939:
940: -- Update Currency change
941: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
942: -- If currency code changed, update all lines
943: If (x_chrv_rec.currency_code <> l_currency_code) Then
944: UPDATE okc_k_lines_b
945: SET currency_code = x_chrv_rec.currency_code
950: */
951: End If;
952: exception
953: when G_NO_UPDATE_ALLOWED_EXCEPTION then
954: x_return_status := OKC_API.G_RET_STS_ERROR;
955: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
956: p_msg_name => g_no_update_allowed,
957: p_token1 => 'VALUE1',
958: p_token1_value => 'Contract Header');
951: End If;
952: exception
953: when G_NO_UPDATE_ALLOWED_EXCEPTION then
954: x_return_status := OKC_API.G_RET_STS_ERROR;
955: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
956: p_msg_name => g_no_update_allowed,
957: p_token1 => 'VALUE1',
958: p_token1_value => 'Contract Header');
959: when OTHERS then
957: p_token1 => 'VALUE1',
958: p_token1_value => 'Contract Header');
959: when OTHERS then
960: -- store SQL error message on message stack
961: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
962: p_msg_name => g_unexpected_error,
963: p_token1 => g_sqlcode_token,
964: p_token1_value => sqlcode,
965: p_token2 => g_sqlerrm_token,
965: p_token2 => g_sqlerrm_token,
966: p_token2_value => sqlerrm);
967:
968: -- notify caller of an UNEXPETED error
969: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
970: END update_contract_header;
971:
972: PROCEDURE delete_contract_header(
973: p_api_version IN NUMBER,
1072: x_msg_count => x_msg_count,
1073: x_msg_data => x_msg_data,
1074: p_chrv_rec => p_chrv_rec);
1075: Else
1076: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1077: p_msg_name => g_no_parent_record,
1078: p_token1 => g_child_table_token,
1079: p_token1_value => 'OKC_K_LINES_V',
1080: p_token2 => g_parent_table_token,
1079: p_token1_value => 'OKC_K_LINES_V',
1080: p_token2 => g_parent_table_token,
1081: p_token2_value => 'OKC_K_HEADERS_V');
1082: -- notify caller of an error
1083: x_return_status := OKC_API.G_RET_STS_ERROR;
1084: End If;
1085:
1086: -- Delete operation instances (renewal links)
1087: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1083: x_return_status := OKC_API.G_RET_STS_ERROR;
1084: End If;
1085:
1086: -- Delete operation instances (renewal links)
1087: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1088: FOR oie_rec IN oie_csr
1089: LOOP
1090: i := i + 1;
1091: l_oiev_tbl(i).ID := oie_rec.ID;
1102: End if;
1103: End if;
1104:
1105: -- Delete relationships with header and other objects
1106: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1107: For c In l_crjv_csr
1108: Loop
1109: l_crjv_rec.id := c.id;
1110: l_crjv_rec.object_version_number := c.object_version_number;
1127: fetch l_cvm_csr into l_major_version;
1128: close l_cvm_csr;
1129:
1130: -- Delete any attachments assiciated
1131: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1132: If (fnd_attachment_util_pkg.get_atchmt_exists (
1133: l_entity_name => 'OKC_K_HEADERS_B',
1134: l_pkey1 => p_chrv_rec.id,
1135: l_pkey2 => l_major_version) = 'Y')
1148: End If;
1149: End If;
1150:
1151: -- Delete version
1152: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1153: x_return_status := Delete_Version(p_chrv_rec.id);
1154: End If;
1155: exception
1156: when G_NO_UPDATE_ALLOWED_EXCEPTION then
1153: x_return_status := Delete_Version(p_chrv_rec.id);
1154: End If;
1155: exception
1156: when G_NO_UPDATE_ALLOWED_EXCEPTION then
1157: x_return_status := OKC_API.G_RET_STS_ERROR;
1158: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1159: p_msg_name => g_no_update_allowed,
1160: p_token1 => 'VALUE1',
1161: p_token1_value => 'Contract Header');
1154: End If;
1155: exception
1156: when G_NO_UPDATE_ALLOWED_EXCEPTION then
1157: x_return_status := OKC_API.G_RET_STS_ERROR;
1158: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1159: p_msg_name => g_no_update_allowed,
1160: p_token1 => 'VALUE1',
1161: p_token1_value => 'Contract Header');
1162: when OTHERS then
1160: p_token1 => 'VALUE1',
1161: p_token1_value => 'Contract Header');
1162: when OTHERS then
1163: -- store SQL error message on message stack
1164: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1165: p_msg_name => g_unexpected_error,
1166: p_token1 => g_sqlcode_token,
1167: p_token1_value => sqlcode,
1168: p_token2 => g_sqlerrm_token,
1168: p_token2 => g_sqlerrm_token,
1169: p_token2_value => sqlerrm);
1170:
1171: -- notify caller of an UNEXPETED error
1172: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1173: END delete_contract_header;
1174:
1175: PROCEDURE delete_contract_header(
1176: p_api_version IN NUMBER,
1271: p_clev_rec IN OKC_CLE_PVT.clev_rec_type) Is
1272:
1273: l_acyv_rec OKC_ACY_PVT.acyv_rec_type;
1274: l_out_rec OKC_ACY_PVT.acyv_rec_type;
1275: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1276:
1277: -- cursor to get the next level_sequence
1278: Cursor l_acyv_csr Is
1279: select NVL(MAX(level_sequence),0) + 1
1286: from OKC_ANCESTRYS
1287: where cle_id = p_clev_rec.cle_id;
1288:
1289: BEGIN
1290: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1291: -- insert ancestry, if line record has a parent line record
1292: If (p_clev_rec.cle_id <> OKC_API.G_MISS_NUM and
1293: p_clev_rec.cle_id is not null)
1294: Then
1288:
1289: BEGIN
1290: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1291: -- insert ancestry, if line record has a parent line record
1292: If (p_clev_rec.cle_id <> OKC_API.G_MISS_NUM and
1293: p_clev_rec.cle_id is not null)
1294: Then
1295: -- get next level sequence
1296: open l_acyv_csr;
1312:
1313: -- if the current insert is success,
1314: -- copy all other existing ancestry records of
1315: -- parent line (p_clev_rec.cle_id)
1316: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1317: open l_acyv_csr2;
1318:
1319: -- fetch first record
1320: fetch l_acyv_csr2 into l_acyv_rec.cle_id_ascendant,
1339: End If;
1340: exception
1341: when OTHERS then
1342: -- store SQL error message on message stack
1343: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1344: p_msg_name => g_unexpected_error,
1345: p_token1 => g_sqlcode_token,
1346: p_token1_value => sqlcode,
1347: p_token2 => g_sqlerrm_token,
1347: p_token2 => g_sqlerrm_token,
1348: p_token2_value => sqlerrm);
1349:
1350: -- notify caller of an UNEXPETED error
1351: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1352:
1353: -- verify that cursors were closed
1354: if l_acyv_csr%ISOPEN then
1355: close l_acyv_csr;
1374: FROM OKC_K_LINES_B
1375: WHERE id = p_clev_rec.id;
1376: BEGIN
1377: -- initialize return status
1378: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1379: -- if dnz_chr_id is present, return it
1380: If (p_clev_rec.dnz_chr_id is not null and
1381: p_clev_rec.dnz_chr_id <> OKC_API.G_MISS_NUM)
1382: Then
1377: -- initialize return status
1378: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1379: -- if dnz_chr_id is present, return it
1380: If (p_clev_rec.dnz_chr_id is not null and
1381: p_clev_rec.dnz_chr_id <> OKC_API.G_MISS_NUM)
1382: Then
1383: x_chr_id := p_clev_rec.dnz_chr_id;
1384: Else
1385: -- else if chr_id is present , return it
1383: x_chr_id := p_clev_rec.dnz_chr_id;
1384: Else
1385: -- else if chr_id is present , return it
1386: If (p_clev_rec.chr_id is not null and
1387: p_clev_rec.chr_id <> OKC_API.G_MISS_NUM)
1388: Then
1389: x_chr_id := p_clev_rec.chr_id;
1390: Else
1391: -- else get header id from database
1392: Open l_clev_csr;
1393: Fetch l_clev_csr into x_chr_id;
1394: If (l_clev_csr%NOTFOUND) Then
1395: Close l_clev_csr;
1396: x_return_status := OKC_API.G_RET_STS_ERROR;
1397: RAISE OKC_API.G_EXCEPTION_ERROR;
1398: End If;
1399: Close l_clev_csr;
1400: End If;
1393: Fetch l_clev_csr into x_chr_id;
1394: If (l_clev_csr%NOTFOUND) Then
1395: Close l_clev_csr;
1396: x_return_status := OKC_API.G_RET_STS_ERROR;
1397: RAISE OKC_API.G_EXCEPTION_ERROR;
1398: End If;
1399: Close l_clev_csr;
1400: End If;
1401: End If;
1399: Close l_clev_csr;
1400: End If;
1401: End If;
1402: exception
1403: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1404: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1405: p_msg_name => g_unexpected_error,
1406: p_token1 => g_sqlcode_token,
1407: p_token1_value => sqlcode,
1400: End If;
1401: End If;
1402: exception
1403: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1404: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1405: p_msg_name => g_unexpected_error,
1406: p_token1 => g_sqlcode_token,
1407: p_token1_value => sqlcode,
1408: p_token2 => g_sqlerrm_token,
1406: p_token1 => g_sqlcode_token,
1407: p_token1_value => sqlcode,
1408: p_token2 => g_sqlerrm_token,
1409: p_token2_value => sqlerrm);
1410: x_return_status :=OKC_API.G_RET_STS_ERROR;
1411:
1412: when OTHERS then
1413: -- store SQL error message on message stack
1414: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1410: x_return_status :=OKC_API.G_RET_STS_ERROR;
1411:
1412: when OTHERS then
1413: -- store SQL error message on message stack
1414: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1415: p_msg_name => g_unexpected_error,
1416: p_token1 => g_sqlcode_token,
1417: p_token1_value => sqlcode,
1418: p_token2 => g_sqlerrm_token,
1418: p_token2 => g_sqlerrm_token,
1419: p_token2_value => sqlerrm);
1420:
1421: -- notify caller of an UNEXPETED error
1422: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1423: END Get_Contract_Id;
1424:
1425: PROCEDURE create_contract_line(
1426: p_api_version IN NUMBER,
1431: p_restricted_update IN VARCHAR2 ,
1432: p_clev_rec IN OKC_CLE_PVT.clev_rec_type,
1433: x_clev_rec OUT NOCOPY OKC_CLE_PVT.clev_rec_type) IS
1434:
1435: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1436: l_chr_id NUMBER;
1437: BEGIN
1438: -- check whether the contract is updateable or not
1439: OKC_CONTRACT_PVT.Get_Contract_Id(
1440: p_clev_rec => p_clev_rec,
1441: x_chr_id => l_chr_id,
1442: x_return_status => l_return_status);
1443:
1444: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1445: -- if the update is not a restricted update (restricted_update <> 'Y'),
1446: -- check whether update is allowed or not
1447: If (p_restricted_update <> OKC_API.G_TRUE) Then
1448: If (OKC_CONTRACT_PUB.Update_Allowed(l_chr_id) <> 'Y') Then
1443:
1444: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1445: -- if the update is not a restricted update (restricted_update <> 'Y'),
1446: -- check whether update is allowed or not
1447: If (p_restricted_update <> OKC_API.G_TRUE) Then
1448: If (OKC_CONTRACT_PUB.Update_Allowed(l_chr_id) <> 'Y') Then
1449: raise G_NO_UPDATE_ALLOWED_EXCEPTION;
1450: End If;
1451: End If;
1449: raise G_NO_UPDATE_ALLOWED_EXCEPTION;
1450: End If;
1451: End If;
1452: Else
1453: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1454: End If;
1455:
1456: OKC_CLE_PVT.Insert_Row(
1457: p_api_version => p_api_version,
1461: x_msg_data => x_msg_data,
1462: p_clev_rec => p_clev_rec,
1463: x_clev_rec => x_clev_rec);
1464: -- if the above process is success, create ancestry
1465: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1466: x_clev_rec.cle_id := p_clev_rec.cle_id;
1467: create_ancestry(
1468: p_api_version => p_api_version,
1469: p_init_msg_list => p_init_msg_list,
1475: raise G_EXCEPTION_HALT_PROCESS;
1476: End If;
1477:
1478: -- Update minor version
1479: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1480: x_return_status := Update_Minor_Version(x_clev_rec.dnz_chr_id);
1481: End If;
1482: exception
1483: when G_EXCEPTION_HALT_PROCESS then
1483: when G_EXCEPTION_HALT_PROCESS then
1484: null;
1485:
1486: when G_NO_UPDATE_ALLOWED_EXCEPTION then
1487: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1488: p_msg_name => g_no_update_allowed,
1489: p_token1 => 'VALUE1',
1490: p_token1_value => 'Contract Lines');
1491:
1489: p_token1 => 'VALUE1',
1490: p_token1_value => 'Contract Lines');
1491:
1492: -- notify caller of an error
1493: x_return_status := OKC_API.G_RET_STS_ERROR;
1494: when OTHERS then
1495: -- store SQL error message on message stack
1496: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1497: p_msg_name => g_unexpected_error,
1492: -- notify caller of an error
1493: x_return_status := OKC_API.G_RET_STS_ERROR;
1494: when OTHERS then
1495: -- store SQL error message on message stack
1496: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1497: p_msg_name => g_unexpected_error,
1498: p_token1 => g_sqlcode_token,
1499: p_token1_value => sqlcode,
1500: p_token2 => g_sqlerrm_token,
1500: p_token2 => g_sqlerrm_token,
1501: p_token2_value => sqlerrm);
1502:
1503: -- notify caller of an UNEXPETED error
1504: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1505: END create_contract_line;
1506:
1507: PROCEDURE create_contract_line(
1508: p_api_version IN NUMBER,
1533: p_restricted_update IN VARCHAR2 ,
1534: p_clev_rec IN OKC_CLE_PVT.clev_rec_type,
1535: x_clev_rec OUT NOCOPY OKC_CLE_PVT.clev_rec_type) IS
1536:
1537: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1538: l_chr_id NUMBER;
1539: l_api_name CONSTANT VARCHAR2(30) := 'Update_Contract_Line';
1540:
1541: l_contract_number VARCHAR2(120);
1554: p_clev_rec => p_clev_rec,
1555: x_chr_id => l_chr_id,
1556: x_return_status => l_return_status);
1557:
1558: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1559: -- if the update is not a restricted update (restricted_update <> 'Y'),
1560: -- check whether update is allowed or not
1561: If (p_restricted_update <> OKC_API.G_TRUE) Then
1562: If (OKC_CONTRACT_PUB.Update_Allowed(l_chr_id) <> 'Y') Then
1557:
1558: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1559: -- if the update is not a restricted update (restricted_update <> 'Y'),
1560: -- check whether update is allowed or not
1561: If (p_restricted_update <> OKC_API.G_TRUE) Then
1562: If (OKC_CONTRACT_PUB.Update_Allowed(l_chr_id) <> 'Y') Then
1563: raise G_NO_UPDATE_ALLOWED_EXCEPTION;
1564: End If;
1565: End If;
1563: raise G_NO_UPDATE_ALLOWED_EXCEPTION;
1564: End If;
1565: End If;
1566: Else
1567: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1568: End If;
1569: OKC_CLE_PVT.Update_Row(
1570: p_api_version => p_api_version,
1571: p_init_msg_list => p_init_msg_list,
1576: p_clev_rec => p_clev_rec,
1577: x_clev_rec => x_clev_rec);
1578:
1579: -- Call action assembler if status is changed
1580: If (x_return_status = OKC_API.G_RET_STS_SUCCESS AND
1581: NVL(p_clev_rec.Call_Action_Asmblr,'Y') = 'Y' AND
1582: p_clev_rec.old_sts_code is not null AND
1583: p_clev_rec.new_sts_code is not null AND
1584: p_clev_rec.old_ste_code is not null AND
1610: p_kl_source_system_code => p_clev_rec.ORIG_SYSTEM_SOURCE_CODE);
1611: End If;
1612:
1613: -- Update minor version
1614: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1615: x_return_status := Update_Minor_Version(x_clev_rec.dnz_chr_id);
1616: End If;
1617: exception
1618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1614: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1615: x_return_status := Update_Minor_Version(x_clev_rec.dnz_chr_id);
1616: End If;
1617: exception
1618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1619: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1620: (
1621: l_api_name,
1622: G_PKG_NAME,
1615: x_return_status := Update_Minor_Version(x_clev_rec.dnz_chr_id);
1616: End If;
1617: exception
1618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1619: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1620: (
1621: l_api_name,
1622: G_PKG_NAME,
1623: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1619: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1620: (
1621: l_api_name,
1622: G_PKG_NAME,
1623: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1624: x_msg_count,
1625: x_msg_data,
1626: '_PVT'
1627: );
1625: x_msg_data,
1626: '_PVT'
1627: );
1628: when G_NO_UPDATE_ALLOWED_EXCEPTION then
1629: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1630: p_msg_name => g_no_update_allowed,
1631: p_token1 => 'VALUE1',
1632: p_token1_value => 'Contract Lines');
1633:
1631: p_token1 => 'VALUE1',
1632: p_token1_value => 'Contract Lines');
1633:
1634: -- notify caller of an error
1635: x_return_status := OKC_API.G_RET_STS_ERROR;
1636: when OTHERS then
1637: -- store SQL error message on message stack
1638: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1639: p_msg_name => g_unexpected_error,
1634: -- notify caller of an error
1635: x_return_status := OKC_API.G_RET_STS_ERROR;
1636: when OTHERS then
1637: -- store SQL error message on message stack
1638: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1639: p_msg_name => g_unexpected_error,
1640: p_token1 => g_sqlcode_token,
1641: p_token1_value => sqlcode,
1642: p_token2 => g_sqlerrm_token,
1642: p_token2 => g_sqlerrm_token,
1643: p_token2_value => sqlerrm);
1644:
1645: -- notify caller of an UNEXPETED error
1646: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1647: END update_contract_line;
1648:
1649: PROCEDURE update_contract_line(
1650: p_api_version IN NUMBER,
1677: p_cle_id IN NUMBER) Is
1678:
1679: l_acyv_rec OKC_ACY_PVT.acyv_rec_type;
1680: l_out_rec OKC_ACY_PVT.acyv_rec_type;
1681: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1682:
1683: -- cursor to get ancestry records to delete
1684: Cursor l_acyv_csr Is
1685: select cle_id, cle_id_ascendant
1687: where cle_id = p_cle_id;
1688:
1689: BEGIN
1690: -- delete all ancestry records if p_cle_id is not null
1691: If (p_cle_id <> OKC_API.G_MISS_NUM and
1692: p_cle_id is not null)
1693: Then
1694: open l_acyv_csr;
1695:
1704: x_return_status => l_return_status,
1705: x_msg_count => x_msg_count,
1706: x_msg_data => x_msg_data,
1707: p_acyv_rec => l_acyv_rec);
1708: If (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
1709: raise G_EXCEPTION_HALT_VALIDATION;
1710: End If;
1711: -- fetch next record
1712: fetch l_acyv_csr into l_acyv_rec.cle_id,
1717: End If;
1718: exception
1719: when G_EXCEPTION_HALT_VALIDATION then
1720: -- store SQL error message on message stack
1721: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1722: p_msg_name => g_unexpected_error,
1723: p_token1 => g_sqlcode_token,
1724: p_token1_value => sqlcode,
1725: p_token2 => g_sqlerrm_token,
1727: x_return_status := l_return_status;
1728:
1729: when OTHERS then
1730: -- store SQL error message on message stack
1731: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1732: p_msg_name => g_unexpected_error,
1733: p_token1 => g_sqlcode_token,
1734: p_token1_value => sqlcode,
1735: p_token2 => g_sqlerrm_token,
1735: p_token2 => g_sqlerrm_token,
1736: p_token2_value => sqlerrm);
1737:
1738: -- notify caller of an UNEXPETED error
1739: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1740:
1741: -- verify that cursor was closed
1742: if l_acyv_csr%ISOPEN then
1743: close l_acyv_csr;
1752: x_msg_count OUT NOCOPY NUMBER,
1753: x_msg_data OUT NOCOPY VARCHAR2,
1754: p_clev_rec IN OKC_CLE_PVT.clev_rec_type) IS
1755:
1756: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1757: l_chr_id NUMBER;
1758: l_dummy_val NUMBER;
1759: l_major_version FND_ATTACHED_DOCUMENTS.PK2_VALUE%TYPE;
1760:
1819: p_clev_rec => p_clev_rec,
1820: x_chr_id => l_chr_id,
1821: x_return_status => l_return_status);
1822:
1823: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1824: If (OKC_CONTRACT_PUB.Update_Allowed(l_chr_id) <> 'Y') Then
1825: raise G_NO_UPDATE_ALLOWED_EXCEPTION;
1826: End If;
1827: End If;
1848: x_msg_data => x_msg_data,
1849: p_clev_rec => p_clev_rec);
1850:
1851: -- if the above process is success, delete all ancestrys
1852: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1853: delete_ancestry(
1854: p_api_version => p_api_version,
1855: p_init_msg_list => p_init_msg_list,
1856: x_return_status => x_return_status,
1859: p_cle_id => p_clev_rec.id);
1860: End If;
1861:
1862: Else
1863: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1864: p_msg_name => g_no_parent_record,
1865: p_token1 => g_child_table_token,
1866: p_token1_value => 'OKC_K_ITEMS_V',
1867: p_token2 => g_parent_table_token,
1866: p_token1_value => 'OKC_K_ITEMS_V',
1867: p_token2 => g_parent_table_token,
1868: p_token2_value => 'OKC_K_LINES_V');
1869: -- notify caller of an error
1870: x_return_status := OKC_API.G_RET_STS_ERROR;
1871: End If;
1872: Else
1873: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1874: p_msg_name => g_no_parent_record,
1869: -- notify caller of an error
1870: x_return_status := OKC_API.G_RET_STS_ERROR;
1871: End If;
1872: Else
1873: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1874: p_msg_name => g_no_parent_record,
1875: p_token1 => g_child_table_token,
1876: p_token1_value => 'OKC_K_LINES_V',
1877: p_token2 => g_parent_table_token,
1876: p_token1_value => 'OKC_K_LINES_V',
1877: p_token2 => g_parent_table_token,
1878: p_token2_value => 'OKC_K_LINES_V');
1879: -- notify caller of an error
1880: x_return_status := OKC_API.G_RET_STS_ERROR;
1881: End If;
1882:
1883: -- Delete relationships with line and other objects
1884: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1880: x_return_status := OKC_API.G_RET_STS_ERROR;
1881: End If;
1882:
1883: -- Delete relationships with line and other objects
1884: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1885: For c In l_crjv_csr
1886: Loop
1887: l_crjv_rec.id := c.id;
1888: l_crjv_rec.object_version_number := c.object_version_number;
1898: End Loop;
1899: End If;
1900:
1901: -- Delete sales credits
1902: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1903: For c In l_scrv_csr
1904: Loop
1905: l_scrv_rec.id := c.id;
1906: l_scrv_rec.object_version_number := c.object_version_number;
1918: End If;
1919:
1920:
1921: -- Delete price hold line breaks
1922: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1923:
1924: /**********************************************
1925: don't need to do this for delete
1926: --added for price hold top lines
1965: End If;
1966:
1967:
1968: -- Delete all contract governances information at the line level
1969: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
1970: --(note: we do not have to write code to delete goverances in delete_contract_header because
1971: --that is already being done in okc_delete_contract_pvt.delete_contract where the delete is done
1972: --on the basis of dnz_chr_id so lines are deleted there as well)
1973:
1996: fetch l_cvm_csr into l_major_version;
1997: close l_cvm_csr;
1998:
1999: -- Delete any attachments assiciated with this line
2000: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
2001: If (fnd_attachment_util_pkg.get_atchmt_exists (
2002: l_entity_name => 'OKC_K_LINES_B',
2003: l_pkey1 => p_clev_rec.id,
2004: l_pkey2 => l_major_version) = 'Y')
2017: End If;
2018: End If;
2019:
2020: -- Update minor version
2021: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
2022: x_return_status := Update_Minor_Version(l_chr_id);
2023: End If;
2024: exception
2025: when G_NO_UPDATE_ALLOWED_EXCEPTION then
2022: x_return_status := Update_Minor_Version(l_chr_id);
2023: End If;
2024: exception
2025: when G_NO_UPDATE_ALLOWED_EXCEPTION then
2026: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2027: p_msg_name => g_no_update_allowed,
2028: p_token1 => 'VALUE1',
2029: p_token1_value => 'Contract Lines');
2030:
2028: p_token1 => 'VALUE1',
2029: p_token1_value => 'Contract Lines');
2030:
2031: -- notify caller of an error
2032: x_return_status := OKC_API.G_RET_STS_ERROR;
2033: when OTHERS then
2034: -- store SQL error message on message stack
2035: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2036: p_msg_name => g_unexpected_error,
2031: -- notify caller of an error
2032: x_return_status := OKC_API.G_RET_STS_ERROR;
2033: when OTHERS then
2034: -- store SQL error message on message stack
2035: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2036: p_msg_name => g_unexpected_error,
2037: p_token1 => g_sqlcode_token,
2038: p_token1_value => sqlcode,
2039: p_token2 => g_sqlerrm_token,
2039: p_token2 => g_sqlerrm_token,
2040: p_token2_value => sqlerrm);
2041:
2042: -- notify caller of an UNEXPETED error
2043: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2044: END delete_contract_line;
2045:
2046: PROCEDURE delete_contract_line(
2047: p_api_version IN NUMBER,
2177: ---------------------------------------------------------------------------
2178: PROCEDURE Validate_Line_id(
2179: p_line_id IN NUMBER,
2180: x_return_status OUT NOCOPY VARCHAR2) IS
2181: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2182: l_Count NUMBER;
2183: CURSOR Cur_Line(P_Line_Id IN NUMBER) IS
2184: SELECT COUNT(*) FROM OKC_K_LINES_B
2185: WHERE id=P_Line_Id;
2183: CURSOR Cur_Line(P_Line_Id IN NUMBER) IS
2184: SELECT COUNT(*) FROM OKC_K_LINES_B
2185: WHERE id=P_Line_Id;
2186: BEGIN
2187: IF P_Line_id = OKC_API.G_MISS_NUM OR
2188: P_Line_Id IS NULL
2189: THEN
2190: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2191:
2186: BEGIN
2187: IF P_Line_id = OKC_API.G_MISS_NUM OR
2188: P_Line_Id IS NULL
2189: THEN
2190: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2191:
2192: l_return_status := OKC_API.G_RET_STS_ERROR;
2193: END IF;
2194:
2188: P_Line_Id IS NULL
2189: THEN
2190: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2191:
2192: l_return_status := OKC_API.G_RET_STS_ERROR;
2193: END IF;
2194:
2195: OPEN Cur_Line(P_LIne_Id);
2196: FETCH Cur_Line INTO l_Count;
2196: FETCH Cur_Line INTO l_Count;
2197: CLOSE Cur_Line;
2198: IF NOT l_Count = 1
2199: THEN
2200: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2201:
2202: l_return_status := OKC_API.G_RET_STS_ERROR;
2203: END IF;
2204: x_return_status := l_return_status;
2198: IF NOT l_Count = 1
2199: THEN
2200: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2201:
2202: l_return_status := OKC_API.G_RET_STS_ERROR;
2203: END IF;
2204: x_return_status := l_return_status;
2205: EXCEPTION
2206: WHEN OTHERS THEN
2204: x_return_status := l_return_status;
2205: EXCEPTION
2206: WHEN OTHERS THEN
2207: -- store SQL error message on message stack for caller
2208: OKC_API.set_message(G_APP_NAME,
2209: G_UNEXPECTED_ERROR,
2210: G_SQLCODE_TOKEN,
2211: SQLCODE,
2212: G_SQLERRM_TOKEN,
2211: SQLCODE,
2212: G_SQLERRM_TOKEN,
2213: SQLERRM);
2214: -- notify caller of an UNEXPECTED error
2215: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2216: END Validate_Line_id;
2217: BEGIN
2218: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
2219: Validate_Line_id(p_line_id,l_return_status);
2214: -- notify caller of an UNEXPECTED error
2215: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2216: END Validate_Line_id;
2217: BEGIN
2218: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
2219: Validate_Line_id(p_line_id,l_return_status);
2220: IF NOT l_Return_Status ='S'
2221: THEN RETURN;
2222: END IF;
2318: x_msg_count => l_msg_count,
2319: x_msg_data => l_msg_data,
2320: p_crjv_tbl => l_crjv_tbl_in);
2321:
2322: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
2323: then
2324: return;
2325: end if;
2326: END IF;
2333: x_msg_count => l_msg_count,
2334: x_msg_data => l_msg_data,
2335: p_ctcv_tbl => l_ctcv_tbl_in);
2336:
2337: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
2338: then
2339: return;
2340: end if;
2341: END IF;
2348: x_msg_count => l_msg_count,
2349: x_msg_data => l_msg_data,
2350: p_cplv_tbl => l_cplv_tbl_in);
2351:
2352: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
2353: then
2354: return;
2355: end if;
2356: END IF;
2375: x_msg_count => l_msg_count,
2376: x_msg_data => l_msg_data,
2377: p_rulv_tbl => l_rulv_tbl_in);
2378:
2379: If not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
2380: THEN
2381:
2382: IF l_msg_count > 0
2383: THEN
2402: x_msg_count => l_msg_count,
2403: x_msg_data => l_msg_data,
2404: p_rgpv_tbl => l_rgpv_tbl_in);
2405:
2406: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
2407: then
2408: return;
2409: end if;
2410: END IF;
2468: WHEN e_Error THEN
2469: -- notify caller of an error as UNEXPETED error
2470: x_msg_count :=l_msg_count;
2471: x_msg_data:=l_msg_data;
2472: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2473: (
2474: l_api_name,
2475: 'Delete_Contract_Line',
2476: 'OKC_API.G_RET_STS_ERROR',
2472: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2473: (
2474: l_api_name,
2475: 'Delete_Contract_Line',
2476: 'OKC_API.G_RET_STS_ERROR',
2477: l_msg_count,
2478: l_msg_data,
2479: '_PVT'
2480: );
2477: l_msg_count,
2478: l_msg_data,
2479: '_PVT'
2480: );
2481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2482: x_msg_count :=l_msg_count;
2483: x_msg_data:=l_msg_data;
2484: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2485: (
2480: );
2481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2482: x_msg_count :=l_msg_count;
2483: x_msg_data:=l_msg_data;
2484: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2485: (
2486: l_api_name,
2487: 'Delete_Contract_Line',
2488: 'OKC_API.G_RET_STS_ERROR',
2484: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2485: (
2486: l_api_name,
2487: 'Delete_Contract_Line',
2488: 'OKC_API.G_RET_STS_ERROR',
2489: l_msg_count,
2490: l_msg_data,
2491: '_PVT'
2492: );
2489: l_msg_count,
2490: l_msg_data,
2491: '_PVT'
2492: );
2493: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2494: x_msg_count :=l_msg_count;
2495: x_msg_data:=l_msg_data;
2496: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2497: (
2492: );
2493: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2494: x_msg_count :=l_msg_count;
2495: x_msg_data:=l_msg_data;
2496: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2497: (
2498: l_api_name,
2499: 'Delete_Contract_Line',
2500: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2496: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2497: (
2498: l_api_name,
2499: 'Delete_Contract_Line',
2500: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2501: l_msg_count,
2502: l_msg_data,
2503: '_PVT'
2504: );
2503: '_PVT'
2504: );
2505: WHEN OTHERS THEN
2506: x_msg_count :=l_msg_count;
2507: OKC_API.SET_MESSAGE(
2508: p_app_name => g_app_name,
2509: p_msg_name => g_unexpected_error,
2510: p_token1 => g_sqlcode_token,
2511: p_token1_value => sqlcode,
2511: p_token1_value => sqlcode,
2512: p_token2 => g_sqlerrm_token,
2513: p_token2_value => sqlerrm);
2514: -- notify caller of an error as UNEXPETED error
2515: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2516:
2517: END delete_contract_line;
2518:
2519: PROCEDURE force_delete_contract_line(
2605: l_cplv_tbl_in okc_contract_party_pub.cplv_tbl_type;
2606: l_crjv_tbl_in okc_k_rel_objs_pub.crjv_tbl_type;
2607: l_api_version CONSTANT NUMBER := 1.0;
2608: l_init_msg_list CONSTANT VARCHAR2(1) := 'T';
2609: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2610: l_msg_count NUMBER;
2611: l_msg_data VARCHAR2(2000):=null;
2612: l_msg_index_out Number;
2613: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Contract_Line';
2628: ---------------------------------------------------------------------------
2629: PROCEDURE Validate_Line_id(
2630: p_line_id IN NUMBER,
2631: x_return_status OUT NOCOPY VARCHAR2) IS
2632: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2633: l_Count NUMBER;
2634: CURSOR Cur_Line(P_Line_Id IN NUMBER) IS
2635: SELECT COUNT(*) FROM OKC_K_LINES_B
2636: WHERE id=P_Line_Id;
2638:
2639: IF (l_debug = 'Y') THEN
2640: okc_debug.log('100: Validate_Line_id starts', 2);
2641: END IF;
2642: IF P_Line_id = OKC_API.G_MISS_NUM OR
2643: P_Line_Id IS NULL
2644: THEN
2645: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2646:
2641: END IF;
2642: IF P_Line_id = OKC_API.G_MISS_NUM OR
2643: P_Line_Id IS NULL
2644: THEN
2645: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2646:
2647: l_return_status := OKC_API.G_RET_STS_ERROR;
2648: END IF;
2649:
2643: P_Line_Id IS NULL
2644: THEN
2645: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2646:
2647: l_return_status := OKC_API.G_RET_STS_ERROR;
2648: END IF;
2649:
2650: IF (l_debug = 'Y') THEN
2651: okc_debug.log('200: l_return_status = ' || l_return_status, 2);
2655: FETCH Cur_Line INTO l_Count;
2656: CLOSE Cur_Line;
2657: IF NOT l_Count = 1
2658: THEN
2659: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2660:
2661: l_return_status := OKC_API.G_RET_STS_ERROR;
2662: END IF;
2663: x_return_status := l_return_status;
2657: IF NOT l_Count = 1
2658: THEN
2659: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'P_Line_Id');
2660:
2661: l_return_status := OKC_API.G_RET_STS_ERROR;
2662: END IF;
2663: x_return_status := l_return_status;
2664: IF (l_debug = 'Y') THEN
2665: okc_debug.log('300: validate_line_id ends', 2);
2666: END IF;
2667: EXCEPTION
2668: WHEN OTHERS THEN
2669: -- store SQL error message on message stack for caller
2670: OKC_API.set_message(G_APP_NAME,
2671: G_UNEXPECTED_ERROR,
2672: G_SQLCODE_TOKEN,
2673: SQLCODE,
2674: G_SQLERRM_TOKEN,
2673: SQLCODE,
2674: G_SQLERRM_TOKEN,
2675: SQLERRM);
2676: -- notify caller of an UNEXPECTED error
2677: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2678: IF (l_debug = 'Y') THEN
2679: okc_debug.log('300: WHEN OTHERS EXCEPTION', 2);
2680: END IF;
2681: END Validate_Line_id;
2756: x_msg_count => x_msg_count,
2757: x_msg_data => x_msg_data,
2758: p_ctiv_tbl => l_ctiv_tbl);
2759:
2760: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2761: IF (l_debug = 'Y') THEN
2762: okc_debug.log('200: x_return_status = ' || x_return_status, 2);
2763: END IF;
2764: -- stop delete process
2787: x_msg_count => x_msg_count,
2788: x_msg_data => x_msg_data,
2789: p_rilv_tbl => l_rilv_tbl);
2790:
2791: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2792: IF (l_debug = 'Y') THEN
2793: okc_debug.log('300: x_return_status = ' || x_return_status, 2);
2794: END IF;
2795: -- stop delete process
2830: x_return_status => x_return_status,
2831: x_msg_count => x_msg_count,
2832: x_msg_data => x_msg_data,
2833: p_tve_id => l_col_vals(i).col_value);
2834: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2835: IF (l_debug = 'Y') THEN
2836: okc_debug.log('700: x_return_status = ' || x_return_status, 2);
2837: END IF;
2838: -- stop delete process
2867: WHEN G_EXCEPTION_CANNOT_DELETE THEN
2868:
2869:
2870: -- store SQL error message on message stack
2871: OKC_API.SET_MESSAGE(
2872: p_app_name => G_APP_NAME,
2873: p_msg_name => G_CANNOT_DELETE_MASTER);
2874: -- notify caller of an error
2875: x_return_status := OKC_API.G_RET_STS_ERROR;
2871: OKC_API.SET_MESSAGE(
2872: p_app_name => G_APP_NAME,
2873: p_msg_name => G_CANNOT_DELETE_MASTER);
2874: -- notify caller of an error
2875: x_return_status := OKC_API.G_RET_STS_ERROR;
2876:
2877: */
2878: WHEN OTHERS THEN
2879: -- store SQL error message on message stack
2876:
2877: */
2878: WHEN OTHERS THEN
2879: -- store SQL error message on message stack
2880: OKC_API.SET_MESSAGE(
2881: p_app_name => G_APP_NAME,
2882: p_msg_name => G_UNEXPECTED_ERROR,
2883: p_token1 => G_SQLCODE_TOKEN,
2884: p_token1_value => SQLCODE,
2884: p_token1_value => SQLCODE,
2885: p_token2 => G_SQLERRM_TOKEN,
2886: p_token2_value => SQLERRM);
2887: -- notify caller of an error as UNEXPETED error
2888: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2889: -- verify that cursor was closed
2890: IF l_ctiv_csr%ISOPEN THEN
2891: CLOSE l_ctiv_csr;
2892: END IF;
2902: IF (l_debug = 'Y') THEN
2903: okc_debug.log('100: starting force delete', 2);
2904: okc_debug.log('200: cle_id=' || to_char(p_line_id),2);
2905: END IF;
2906: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
2907: Validate_Line_id(p_line_id,l_return_status);
2908: IF NOT l_Return_Status ='S'
2909: THEN
2910: x_return_status := l_return_status;
3018: IF (l_debug = 'Y') THEN
3019: okc_debug.log('500: l_return_status = ' || l_return_status, 2);
3020: END IF;
3021:
3022: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
3023: then
3024: x_return_status := l_return_status;
3025: return;
3026: end if;
3043: IF (l_debug = 'Y') THEN
3044: okc_debug.log('700: l_return_status = ' || l_return_status, 2);
3045: END IF;
3046:
3047: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
3048: then
3049: x_return_status := l_return_status;
3050: return;
3051: end if;
3067:
3068: IF (l_debug = 'Y') THEN
3069: okc_debug.log('900: l_return_status = ' || l_return_status, 2);
3070: END IF;
3071: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
3072: then
3073: x_return_status := l_return_status;
3074: return;
3075: end if;
3096: okc_debug.log('1050: l_return_status = ' || l_return_status, 2);
3097: okc_debug.log('1100: calling OKC_CONTRACT_PARTY_PUB.Delete_Contact', 2);
3098: END IF;
3099:
3100: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
3101: THEN
3102: /*
3103: IF l_msg_count > 0
3104: THEN
3138: IF (l_debug = 'Y') THEN
3139: okc_debug.log('1300: l_return_status = ' || l_return_status, 2);
3140: END IF;
3141:
3142: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
3143: then
3144: x_return_status := l_return_status;
3145: return;
3146: end if;
3198: okc_debug.log('1500: l_return_status = ' || l_return_status, 2);
3199: END IF;
3200:
3201: -- if the above process is success, delete all ancestrys
3202: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3203:
3204: IF (l_debug = 'Y') THEN
3205: okc_debug.log('1600: calling delete_ancestry', 2);
3206: END IF;
3217: IF (l_debug = 'Y') THEN
3218: okc_debug.log('1700: l_return_status = ' || l_return_status, 2);
3219: END IF;
3220:
3221: If (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
3222: x_return_status := l_return_status;
3223: exit;
3224: End If;
3225: END LOOP;
3253: END IF;
3254: -- notify caller of an error as UNEXPETED error
3255: x_msg_count :=l_msg_count;
3256: x_msg_data:=l_msg_data;
3257: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3258: (
3259: l_api_name,
3260: 'Delete_Contract_Line',
3261: 'OKC_API.G_RET_STS_ERROR',
3257: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3258: (
3259: l_api_name,
3260: 'Delete_Contract_Line',
3261: 'OKC_API.G_RET_STS_ERROR',
3262: l_msg_count,
3263: l_msg_data,
3264: '_PVT'
3265: );
3262: l_msg_count,
3263: l_msg_data,
3264: '_PVT'
3265: );
3266: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3267: IF (l_debug = 'Y') THEN
3268: okc_debug.log('1900: WHEN OKC_API.G_EXCEPTION_ERROR EXCEPTION', 2);
3269: END IF;
3270: x_msg_count :=l_msg_count;
3264: '_PVT'
3265: );
3266: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3267: IF (l_debug = 'Y') THEN
3268: okc_debug.log('1900: WHEN OKC_API.G_EXCEPTION_ERROR EXCEPTION', 2);
3269: END IF;
3270: x_msg_count :=l_msg_count;
3271: x_msg_data:=l_msg_data;
3272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3268: okc_debug.log('1900: WHEN OKC_API.G_EXCEPTION_ERROR EXCEPTION', 2);
3269: END IF;
3270: x_msg_count :=l_msg_count;
3271: x_msg_data:=l_msg_data;
3272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3273: (
3274: l_api_name,
3275: 'Delete_Contract_Line',
3276: 'OKC_API.G_RET_STS_ERROR',
3272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3273: (
3274: l_api_name,
3275: 'Delete_Contract_Line',
3276: 'OKC_API.G_RET_STS_ERROR',
3277: l_msg_count,
3278: l_msg_data,
3279: '_PVT'
3280: );
3277: l_msg_count,
3278: l_msg_data,
3279: '_PVT'
3280: );
3281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3282: IF (l_debug = 'Y') THEN
3283: okc_debug.log('2000: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR EXCEPTION', 2);
3284: END IF;
3285: x_msg_count :=l_msg_count;
3279: '_PVT'
3280: );
3281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3282: IF (l_debug = 'Y') THEN
3283: okc_debug.log('2000: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR EXCEPTION', 2);
3284: END IF;
3285: x_msg_count :=l_msg_count;
3286: x_msg_data:=l_msg_data;
3287: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3283: okc_debug.log('2000: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR EXCEPTION', 2);
3284: END IF;
3285: x_msg_count :=l_msg_count;
3286: x_msg_data:=l_msg_data;
3287: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3288: (
3289: l_api_name,
3290: 'Force_Delete_K_Line',
3291: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3287: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3288: (
3289: l_api_name,
3290: 'Force_Delete_K_Line',
3291: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3292: l_msg_count,
3293: l_msg_data,
3294: '_PVT'
3295: );
3297: IF (l_debug = 'Y') THEN
3298: okc_debug.log('2100: WHEN OTHERS EXCEPTION', 2);
3299: END IF;
3300: x_msg_count :=l_msg_count;
3301: OKC_API.SET_MESSAGE(
3302: p_app_name => g_app_name,
3303: p_msg_name => g_unexpected_error,
3304: p_token1 => g_sqlcode_token,
3305: p_token1_value => sqlcode,
3305: p_token1_value => sqlcode,
3306: p_token2 => g_sqlerrm_token,
3307: p_token2_value => sqlerrm);
3308: -- notify caller of an error as UNEXPETED error
3309: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3310:
3311: END force_delete_contract_line;
3312:
3313: PROCEDURE lock_contract_line(
3401: p_gvev_rec => p_gvev_rec,
3402: x_gvev_rec => x_gvev_rec);
3403:
3404: -- Update minor version
3405: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3406: x_return_status := Update_Minor_Version(x_gvev_rec.dnz_chr_id);
3407: End If;
3408: END create_governance;
3409:
3446: p_gvev_rec => p_gvev_rec,
3447: x_gvev_rec => x_gvev_rec);
3448:
3449: -- Update minor version
3450: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3451: x_return_status := Update_Minor_Version(x_gvev_rec.dnz_chr_id);
3452: End If;
3453: END update_governance;
3454:
3498: x_msg_data => x_msg_data,
3499: p_gvev_rec => p_gvev_rec);
3500:
3501: -- Update minor version
3502: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3503: x_return_status := Update_Minor_Version(l_chr_id);
3504: End If;
3505: END delete_governance;
3506:
3613: p_cpsv_rec => p_cpsv_rec,
3614: x_cpsv_rec => x_cpsv_rec);
3615:
3616: -- Update minor version
3617: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3618: If (p_cpsv_rec.chr_id is not null and
3619: p_cpsv_rec.chr_id <> OKC_API.G_MISS_NUM) Then
3620: x_return_status := Update_Minor_Version(p_cpsv_rec.chr_id);
3621: End If;
3615:
3616: -- Update minor version
3617: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3618: If (p_cpsv_rec.chr_id is not null and
3619: p_cpsv_rec.chr_id <> OKC_API.G_MISS_NUM) Then
3620: x_return_status := Update_Minor_Version(p_cpsv_rec.chr_id);
3621: End If;
3622: End If;
3623: END create_contract_process;
3668: p_cpsv_rec => p_cpsv_rec,
3669: x_cpsv_rec => x_cpsv_rec);
3670:
3671: -- Update minor version
3672: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3673: If (p_cpsv_rec.chr_id is not null and
3674: p_cpsv_rec.chr_id <> OKC_API.G_MISS_NUM) Then
3675: x_return_status := Update_Minor_Version(p_cpsv_rec.chr_id);
3676: End If;
3670:
3671: -- Update minor version
3672: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3673: If (p_cpsv_rec.chr_id is not null and
3674: p_cpsv_rec.chr_id <> OKC_API.G_MISS_NUM) Then
3675: x_return_status := Update_Minor_Version(p_cpsv_rec.chr_id);
3676: End If;
3677: End If;
3678: exception
3676: End If;
3677: End If;
3678: exception
3679: when G_NO_UPDATE_ALLOWED_EXCEPTION then
3680: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3681: p_msg_name => g_no_update_allowed,
3682: p_token1 => 'VALUE1',
3683: p_token1_value => 'Contract Processes');
3684:
3682: p_token1 => 'VALUE1',
3683: p_token1_value => 'Contract Processes');
3684:
3685: -- notify caller of an error
3686: x_return_status := OKC_API.G_RET_STS_ERROR;
3687: when OTHERS then
3688: -- store SQL error message on message stack
3689: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3690: p_msg_name => g_unexpected_error,
3685: -- notify caller of an error
3686: x_return_status := OKC_API.G_RET_STS_ERROR;
3687: when OTHERS then
3688: -- store SQL error message on message stack
3689: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3690: p_msg_name => g_unexpected_error,
3691: p_token1 => g_sqlcode_token,
3692: p_token1_value => sqlcode,
3693: p_token2 => g_sqlerrm_token,
3693: p_token2 => g_sqlerrm_token,
3694: p_token2_value => sqlerrm);
3695:
3696: -- notify caller of an UNEXPETED error
3697: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3698: END update_contract_process;
3699:
3700: PROCEDURE update_contract_process(
3701: p_api_version IN NUMBER,
3743: fetch l_cpsv_csr into l_chr_id;
3744: l_not_found := l_cpsv_csr%NOTFOUND;
3745: close l_cpsv_csr;
3746: If (l_not_found) Then
3747: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3748: -- store SQL error message on message stack
3749: OKC_API.SET_MESSAGE(
3750: p_app_name => g_app_name,
3751: p_msg_name => g_unexpected_error,
3745: close l_cpsv_csr;
3746: If (l_not_found) Then
3747: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3748: -- store SQL error message on message stack
3749: OKC_API.SET_MESSAGE(
3750: p_app_name => g_app_name,
3751: p_msg_name => g_unexpected_error,
3752: p_token1 => g_sqlcode_token,
3753: p_token1_value => sqlcode,
3763: x_msg_data => x_msg_data,
3764: p_cpsv_rec => p_cpsv_rec);
3765:
3766: -- Update minor version
3767: If (x_return_status = OKC_API.G_RET_STS_SUCCESS and
3768: l_chr_id is not null)
3769: Then
3770: x_return_status := Update_Minor_Version(l_chr_id);
3771: End If;
3770: x_return_status := Update_Minor_Version(l_chr_id);
3771: End If;
3772: exception
3773: when G_NO_UPDATE_ALLOWED_EXCEPTION then
3774: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3775: p_msg_name => g_no_update_allowed,
3776: p_token1 => 'VALUE1',
3777: p_token1_value => 'Contract Processes');
3778:
3776: p_token1 => 'VALUE1',
3777: p_token1_value => 'Contract Processes');
3778:
3779: -- notify caller of an error
3780: x_return_status := OKC_API.G_RET_STS_ERROR;
3781: when OTHERS then
3782: -- store SQL error message on message stack
3783: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3784: p_msg_name => g_unexpected_error,
3779: -- notify caller of an error
3780: x_return_status := OKC_API.G_RET_STS_ERROR;
3781: when OTHERS then
3782: -- store SQL error message on message stack
3783: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3784: p_msg_name => g_unexpected_error,
3785: p_token1 => g_sqlcode_token,
3786: p_token1_value => sqlcode,
3787: p_token2 => g_sqlerrm_token,
3787: p_token2 => g_sqlerrm_token,
3788: p_token2_value => sqlerrm);
3789:
3790: -- notify caller of an UNEXPETED error
3791: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3792: END delete_contract_process;
3793:
3794: PROCEDURE delete_contract_process(
3795: p_api_version IN NUMBER,
3900: p_cacv_rec => p_cacv_rec,
3901: x_cacv_rec => x_cacv_rec);
3902:
3903: -- Update minor version
3904: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3905: x_return_status := Update_Minor_Version(x_cacv_rec.chr_id);
3906: End If;
3907: END create_contract_access;
3908:
3945: p_cacv_rec => p_cacv_rec,
3946: x_cacv_rec => x_cacv_rec);
3947:
3948: -- Update minor version
3949: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3950: x_return_status := Update_Minor_Version(x_cacv_rec.chr_id);
3951: End If;
3952: END update_contract_access;
3953:
3991: l_not_found := l_cacv_csr%NOTFOUND;
3992: Close l_cacv_csr;
3993:
3994: If (l_not_found) Then
3995: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3996: -- store SQL error message on message stack
3997: OKC_API.SET_MESSAGE(
3998: p_app_name => g_app_name,
3999: p_msg_name => g_unexpected_error,
3993:
3994: If (l_not_found) Then
3995: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3996: -- store SQL error message on message stack
3997: OKC_API.SET_MESSAGE(
3998: p_app_name => g_app_name,
3999: p_msg_name => g_unexpected_error,
4000: p_token1 => g_sqlcode_token,
4001: p_token1_value => sqlcode,
4012: x_msg_data => x_msg_data,
4013: p_cacv_rec => p_cacv_rec);
4014:
4015: -- Update minor version
4016: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
4017: x_return_status := Update_Minor_Version(l_chr_id);
4018: End If;
4019: END delete_contract_access;
4020:
4156: AND cpsv.last_update_date = (SELECT MAX(last_update_date)
4157: FROM okc_k_processes
4158: WHERE chr_id = l_chr_id);
4159: BEGIN
4160: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4161: -- get id from header table
4162: If (p_contract_number_modifier is not null) Then
4163: Open l_chrv_csr;
4164: Fetch l_chrv_csr into l_chr_id;
4183: x_wf_process_name,
4184: x_package_name,
4185: x_procedure_name;
4186: If l_pdfv_csr%NOTFOUND Then
4187: x_return_status := OKC_API.G_RET_STS_ERROR;
4188: End If;
4189: Close l_pdfv_csr;
4190: Else
4191: x_usage := NULL;
4208: x_wf_process_name := NULL;
4209: x_package_name := NULL;
4210: x_procedure_name := NULL;
4211:
4212: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4213: -- p_msg_name => 'NO_CONTRACT_FOUND');
4214: -- x_return_status := OKC_API.G_RET_STS_ERROR;
4215: when OTHERS then
4216: -- store SQL error message on message stack
4210: x_procedure_name := NULL;
4211:
4212: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4213: -- p_msg_name => 'NO_CONTRACT_FOUND');
4214: -- x_return_status := OKC_API.G_RET_STS_ERROR;
4215: when OTHERS then
4216: -- store SQL error message on message stack
4217: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4218: p_msg_name => g_unexpected_error,
4213: -- p_msg_name => 'NO_CONTRACT_FOUND');
4214: -- x_return_status := OKC_API.G_RET_STS_ERROR;
4215: when OTHERS then
4216: -- store SQL error message on message stack
4217: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4218: p_msg_name => g_unexpected_error,
4219: p_token1 => g_sqlcode_token,
4220: p_token1_value => sqlcode,
4221: p_token2 => g_sqlerrm_token,
4221: p_token2 => g_sqlerrm_token,
4222: p_token2_value => sqlerrm);
4223:
4224: -- notify caller of an UNEXPETED error
4225: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4226: END Get_Active_Process;
4227:
4228: --
4229: -- function that checkes whether a contract is updateable or not
4227:
4228: --
4229: -- function that checkes whether a contract is updateable or not
4230: -- returns 'Y' if updateable, 'N' if not.
4231: -- returns OKC_API.G_RET_STS_ERROR or OKC_API.G_RET_STS_UNEXP_ERROR
4232: -- in case of error
4233: --
4234: FUNCTION Update_Allowed(p_chr_id IN NUMBER) RETURN VARCHAR2 Is
4235: l_sts_code OKC_ASSENTS.STS_CODE%TYPE;
4259: Close l_chrv_csr;
4260: Open l_astv_csr;
4261: Fetch l_astv_csr into l_return_value;
4262: If (l_return_value not in ('Y','N')) Then
4263: l_return_value := OKC_API.G_RET_STS_UNEXP_ERROR;
4264: End If;
4265: Close l_astv_csr;
4266: Else
4267: Close l_chrv_csr;
4269: return l_return_value;
4270: Exception
4271: when OTHERS then
4272: -- store SQL error message on message stack
4273: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4274: p_msg_name => g_unexpected_error,
4275: p_token1 => g_sqlcode_token,
4276: p_token1_value => sqlcode,
4277: p_token2 => g_sqlerrm_token,
4277: p_token2 => g_sqlerrm_token,
4278: p_token2_value => sqlerrm);
4279:
4280: -- notify caller of an UNEXPETED error
4281: l_return_value := OKC_API.G_RET_STS_UNEXP_ERROR;
4282: END Update_Allowed;
4283:
4284: --------------------------------------------------------------------
4285: -- Procedure to clear/relink renewal links
4300: clean_relink_flag VARCHAR2)
4301:
4302: IS
4303: l_api_name VARCHAR2(30) := 'LINE_RENEWAL_LINKS';
4304: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4305: l_active_yn VARCHAR2(1) := 'N';
4306: l_no_of_lines NUMBER;
4307: l_no_of_op_lines NUMBER;
4308:
4349: AND OBJECT_CHR_ID = p_object_chr_id)
4350: AND dnz_chr_id = p_object_chr_id;
4351:
4352: BEGIN
4353: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4354: l_return_status := OKC_API.START_ACTIVITY
4355: (l_api_name, p_init_msg_list, '_PVT', x_return_status);
4356:
4357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4350: AND dnz_chr_id = p_object_chr_id;
4351:
4352: BEGIN
4353: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4354: l_return_status := OKC_API.START_ACTIVITY
4355: (l_api_name, p_init_msg_list, '_PVT', x_return_status);
4356:
4357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4353: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4354: l_return_status := OKC_API.START_ACTIVITY
4355: (l_api_name, p_init_msg_list, '_PVT', x_return_status);
4356:
4357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4359: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4360: RAISE OKC_API.G_EXCEPTION_ERROR;
4361: END IF;
4354: l_return_status := OKC_API.START_ACTIVITY
4355: (l_api_name, p_init_msg_list, '_PVT', x_return_status);
4356:
4357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4359: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4360: RAISE OKC_API.G_EXCEPTION_ERROR;
4361: END IF;
4362:
4355: (l_api_name, p_init_msg_list, '_PVT', x_return_status);
4356:
4357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4359: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4360: RAISE OKC_API.G_EXCEPTION_ERROR;
4361: END IF;
4362:
4363: -- set flag to update
4356:
4357: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4358: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4359: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4360: RAISE OKC_API.G_EXCEPTION_ERROR;
4361: END IF;
4362:
4363: -- set flag to update
4364: IF (NVL(clean_relink_flag,'CLEAN') = 'RELINK') Then
4485: FOR ole_rec IN ole_csr
4486: LOOP
4487: x_return_status := update_minor_version(ole_rec.object_chr_id);
4488:
4489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4490: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4492: raise OKC_API.G_EXCEPTION_ERROR;
4493: END IF;
4486: LOOP
4487: x_return_status := update_minor_version(ole_rec.object_chr_id);
4488:
4489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4490: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4492: raise OKC_API.G_EXCEPTION_ERROR;
4493: END IF;
4494: END LOOP;
4487: x_return_status := update_minor_version(ole_rec.object_chr_id);
4488:
4489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4490: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4492: raise OKC_API.G_EXCEPTION_ERROR;
4493: END IF;
4494: END LOOP;
4495:
4488:
4489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4490: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4492: raise OKC_API.G_EXCEPTION_ERROR;
4493: END IF;
4494: END LOOP;
4495:
4496: --- Added for Bug# 2606251 --- to increment version for a renewed contract(when staus is changed)
4496: --- Added for Bug# 2606251 --- to increment version for a renewed contract(when staus is changed)
4497: OKC_CVM_PVT.g_trans_id := 'XX-XX';
4498: --- Added for Bug# 2606251 ---
4499:
4500: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4501: EXCEPTION
4502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4504: (
4498: --- Added for Bug# 2606251 ---
4499:
4500: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4501: EXCEPTION
4502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4504: (
4505: l_api_name,
4506: G_PKG_NAME,
4499:
4500: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4501: EXCEPTION
4502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4504: (
4505: l_api_name,
4506: G_PKG_NAME,
4507: 'OKC_API.G_RET_STS_ERROR',
4503: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4504: (
4505: l_api_name,
4506: G_PKG_NAME,
4507: 'OKC_API.G_RET_STS_ERROR',
4508: x_msg_count,
4509: x_msg_data,
4510: '_PVT'
4511: );
4508: x_msg_count,
4509: x_msg_data,
4510: '_PVT'
4511: );
4512: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4513: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4514: (
4515: l_api_name,
4516: G_PKG_NAME,
4509: x_msg_data,
4510: '_PVT'
4511: );
4512: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4513: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4514: (
4515: l_api_name,
4516: G_PKG_NAME,
4517: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4513: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4514: (
4515: l_api_name,
4516: G_PKG_NAME,
4517: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4518: x_msg_count,
4519: x_msg_data,
4520: '_PVT'
4521: );
4519: x_msg_data,
4520: '_PVT'
4521: );
4522: WHEN OTHERS THEN
4523: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4524: (
4525: l_api_name,
4526: G_PKG_NAME,
4527: 'OTHERS',
4559: FUNCTION Get_concat_line_no(
4560: p_cle_id IN NUMBER,
4561: x_return_status OUT NOCOPY Varchar2) RETURN VARCHAR2 IS
4562:
4563: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4564:
4565: CURSOR l_line_csr IS
4566: SELECT display_sequence from
4567: OKC_K_LINES_B
4656: x_return_status := l_return_status;
4657: End if;
4658: EXCEPTION
4659: WHEN OTHERS then
4660: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4661: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4662: p_msg_name => g_unexpected_error,
4663: p_token1 => g_sqlcode_token,
4664: p_token1_value => sqlcode,
4657: End if;
4658: EXCEPTION
4659: WHEN OTHERS then
4660: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4661: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4662: p_msg_name => g_unexpected_error,
4663: p_token1 => g_sqlcode_token,
4664: p_token1_value => sqlcode,
4665: p_token2 => g_sqlerrm_token,
4689:
4690:
4691: PROCEDURE UPDATE_CONTRACT_AMOUNT (
4692: p_api_version IN NUMBER,
4693: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4694: p_id IN NUMBER,
4695: p_from_ste_code IN VARCHAR2,
4696: p_to_ste_code IN VARCHAR2,
4697: p_cle_id IN NUMBER,
5231: is
5232:
5233: l_source_code VARCHAR2(30):= 'DUMMY';
5234: l_api_name VARCHAR2(30) := 'CLEAN_REN_LINKS';
5235: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5236: l_active_yn VARCHAR2(1) := 'N';
5237:
5238: l_object_cle_id NUMBER;
5239:
5251: (opl.subject_cle_id= olb.id )
5252: );
5253:
5254: BEGIN
5255: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5256:
5257: -- set flag to update
5258: IF (NVL(clean_relink_flag,'CLEAN') = 'RELINK') Then
5259: l_active_yn := 'Y';
5323: --Set minor version for updated contracts
5324: --
5325: x_return_status := update_minor_version(p_target_chr_id);
5326:
5327: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5328: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5329: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5330: raise OKC_API.G_EXCEPTION_ERROR;
5331: END IF;
5324: --
5325: x_return_status := update_minor_version(p_target_chr_id);
5326:
5327: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5328: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5329: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5330: raise OKC_API.G_EXCEPTION_ERROR;
5331: END IF;
5332:
5325: x_return_status := update_minor_version(p_target_chr_id);
5326:
5327: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5328: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5329: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5330: raise OKC_API.G_EXCEPTION_ERROR;
5331: END IF;
5332:
5333:
5326:
5327: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5328: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5329: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5330: raise OKC_API.G_EXCEPTION_ERROR;
5331: END IF;
5332:
5333:
5334: OKC_CVM_PVT.g_trans_id := 'XX-XX';
5333:
5334: OKC_CVM_PVT.g_trans_id := 'XX-XX';
5335:
5336: EXCEPTION
5337: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5338: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5339: (
5340: l_api_name,
5341: G_PKG_NAME,
5334: OKC_CVM_PVT.g_trans_id := 'XX-XX';
5335:
5336: EXCEPTION
5337: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5338: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5339: (
5340: l_api_name,
5341: G_PKG_NAME,
5342: 'OKC_API.G_RET_STS_ERROR',
5338: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5339: (
5340: l_api_name,
5341: G_PKG_NAME,
5342: 'OKC_API.G_RET_STS_ERROR',
5343: x_msg_count,
5344: x_msg_data,
5345: '_PVT'
5346: );
5343: x_msg_count,
5344: x_msg_data,
5345: '_PVT'
5346: );
5347: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5348: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5349: (
5350: l_api_name,
5351: G_PKG_NAME,
5344: x_msg_data,
5345: '_PVT'
5346: );
5347: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5348: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5349: (
5350: l_api_name,
5351: G_PKG_NAME,
5352: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5348: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5349: (
5350: l_api_name,
5351: G_PKG_NAME,
5352: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5353: x_msg_count,
5354: x_msg_data,
5355: '_PVT'
5356: );
5354: x_msg_data,
5355: '_PVT'
5356: );
5357: WHEN OTHERS THEN
5358: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5359: (
5360: l_api_name,
5361: G_PKG_NAME,
5362: 'OTHERS',