88:
89: get_ccr_rec get_ccr%rowtype;
90: l_khrv_tbl OKS_KHR_PVT.khrv_tbl_type;
91: x_khrv_tbl OKS_KHR_PVT.khrv_tbl_type;
92: l_error_tbl OKC_API.ERROR_TBL_TYPE;
93:
94: Begin
95: l_return_status := OKC_API.G_RET_STS_SUCCESS;
96:
91: x_khrv_tbl OKS_KHR_PVT.khrv_tbl_type;
92: l_error_tbl OKC_API.ERROR_TBL_TYPE;
93:
94: Begin
95: l_return_status := OKC_API.G_RET_STS_SUCCESS;
96:
97: For get_ccr_rec In get_ccr(p_chr_id)
98: Loop
99:
105: l_khrv_tbl(1).chr_id :=get_ccr_rec.chr_id;
106: l_khrv_tbl(1).CC_BANK_ACCT_ID :=NULL;
107: l_khrv_tbl(1).CC_AUTH_CODE :=NULL;
108: l_khrv_tbl(1).OBJECT_VERSION_NUMBER :=get_ccr_rec.OBJECT_VERSION_NUMBER;
109: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
110: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
111: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
112: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
113: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
106: l_khrv_tbl(1).CC_BANK_ACCT_ID :=NULL;
107: l_khrv_tbl(1).CC_AUTH_CODE :=NULL;
108: l_khrv_tbl(1).OBJECT_VERSION_NUMBER :=get_ccr_rec.OBJECT_VERSION_NUMBER;
109: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
110: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
111: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
112: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
113: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
114:
107: l_khrv_tbl(1).CC_AUTH_CODE :=NULL;
108: l_khrv_tbl(1).OBJECT_VERSION_NUMBER :=get_ccr_rec.OBJECT_VERSION_NUMBER;
109: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
110: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
111: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
112: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
113: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
114:
115: OKS_CONTRACT_HDR_PUB.update_header (
108: l_khrv_tbl(1).OBJECT_VERSION_NUMBER :=get_ccr_rec.OBJECT_VERSION_NUMBER;
109: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
110: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
111: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
112: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
113: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
114:
115: OKS_CONTRACT_HDR_PUB.update_header (
116: p_api_version => l_api_version,
109: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
110: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
111: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
112: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
113: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
114:
115: OKS_CONTRACT_HDR_PUB.update_header (
116: p_api_version => l_api_version,
117: p_init_msg_list => OKC_API.G_FALSE,
113: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
114:
115: OKS_CONTRACT_HDR_PUB.update_header (
116: p_api_version => l_api_version,
117: p_init_msg_list => OKC_API.G_FALSE,
118: x_return_status => l_return_status,
119: x_msg_count => l_msg_count,
120: x_msg_data => l_msg_data,
121: p_khrv_tbl => l_khrv_tbl,
123: p_validate_yn => 'N');
124:
125: END IF;
126:
127: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
128: RAISE G_EXCEPTION_HALT_VALIDATION;
129: END IF;
130:
131: End Loop; --For get_line_id_rec In get_line_id_csr
135: EXCEPTION
136: WHEN G_EXCEPTION_HALT_VALIDATION THEN
137: x_return_status := l_return_status;
138: WHEN Others THEN
139: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
140: OKC_API.set_message
141: (
142: G_APP_NAME,
143: G_UNEXPECTED_ERROR,
136: WHEN G_EXCEPTION_HALT_VALIDATION THEN
137: x_return_status := l_return_status;
138: WHEN Others THEN
139: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
140: OKC_API.set_message
141: (
142: G_APP_NAME,
143: G_UNEXPECTED_ERROR,
144: G_SQLCODE_TOKEN,
185:
186: get_ccr_rec get_ccr%rowtype;
187: l_klnv_tbl oks_kln_pvt.klnv_tbl_type;
188: x_klnv_tbl oks_kln_pvt.klnv_tbl_type;
189: l_error_tbl OKC_API.ERROR_TBL_TYPE;
190:
191: Begin
192: l_return_status := OKC_API.G_RET_STS_SUCCESS;
193:
188: x_klnv_tbl oks_kln_pvt.klnv_tbl_type;
189: l_error_tbl OKC_API.ERROR_TBL_TYPE;
190:
191: Begin
192: l_return_status := OKC_API.G_RET_STS_SUCCESS;
193:
194: For get_ccr_rec In get_ccr(p_chr_id,p_cle_id)
195: Loop
196: IF get_ccr_rec.cc_bank_acct_id is not null then
198: l_klnv_tbl(1).dnz_chr_id := get_ccr_rec.dnz_chr_id;
199: l_klnv_tbl(1).CC_BANK_ACCT_ID :=NULL;
200: l_klnv_tbl(1).CC_AUTH_CODE :=NULL;
201: l_klnv_tbl(1).object_version_number := get_ccr_rec.object_version_number;
202: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
203: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
204: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
205: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
206: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
199: l_klnv_tbl(1).CC_BANK_ACCT_ID :=NULL;
200: l_klnv_tbl(1).CC_AUTH_CODE :=NULL;
201: l_klnv_tbl(1).object_version_number := get_ccr_rec.object_version_number;
202: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
203: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
204: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
205: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
206: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
207:
200: l_klnv_tbl(1).CC_AUTH_CODE :=NULL;
201: l_klnv_tbl(1).object_version_number := get_ccr_rec.object_version_number;
202: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
203: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
204: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
205: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
206: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
207:
208: OKS_CONTRACT_LINE_PUB.update_line (
201: l_klnv_tbl(1).object_version_number := get_ccr_rec.object_version_number;
202: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
203: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
204: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
205: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
206: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
207:
208: OKS_CONTRACT_LINE_PUB.update_line (
209: p_api_version => l_api_version,
202: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
203: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
204: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
205: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
206: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
207:
208: OKS_CONTRACT_LINE_PUB.update_line (
209: p_api_version => l_api_version,
210: p_init_msg_list => OKC_API.G_FALSE,
206: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
207:
208: OKS_CONTRACT_LINE_PUB.update_line (
209: p_api_version => l_api_version,
210: p_init_msg_list => OKC_API.G_FALSE,
211: x_return_status => l_return_status,
212: x_msg_count => l_msg_count,
213: x_msg_data => l_msg_data,
214: p_klnv_tbl => l_klnv_tbl,
215: x_klnv_tbl => x_klnv_tbl,
216: p_validate_yn => 'N');
217: END IF;
218:
219: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
220: RAISE G_EXCEPTION_HALT_VALIDATION;
221: END IF;
222:
223: End Loop; --For get_line_id_rec In get_line_id_csr
227: EXCEPTION
228: WHEN G_EXCEPTION_HALT_VALIDATION THEN
229: x_return_status := l_return_status;
230: WHEN Others THEN
231: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
232: OKC_API.set_message
233: (
234: G_APP_NAME,
235: G_UNEXPECTED_ERROR,
228: WHEN G_EXCEPTION_HALT_VALIDATION THEN
229: x_return_status := l_return_status;
230: WHEN Others THEN
231: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
232: OKC_API.set_message
233: (
234: G_APP_NAME,
235: G_UNEXPECTED_ERROR,
236: G_SQLCODE_TOKEN,
321: -- End hkamdar R12
322:
323:
324: BEGIN
325: l_return_status := OKC_API.G_RET_STS_SUCCESS;
326: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
327: FND_LOG.string(FND_LOG.level_procedure
328: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.'||l_module_name||'.Begin'
329: ,'Entered OKS_SETUP_UTIL_PUB.copy_hdr_attr'
377:
378: --get header record and copy
379: FOR get_hdr_attr_rec IN get_hdr_attr_csr (p_chr_id)
380: LOOP
381: l_khrv_tbl(ctr).ID :=OKC_API.G_MISS_NUM;
382: l_khrv_tbl(ctr).CHR_ID :=p_new_chr_id;
383: l_khrv_tbl(ctr).ACCT_RULE_ID :=get_hdr_attr_rec.ACCT_RULE_ID;
384: l_khrv_tbl(ctr).PAYMENT_TYPE :=get_hdr_attr_rec.PAYMENT_TYPE;
385: l_khrv_tbl(ctr).CC_NO :=get_hdr_attr_rec.CC_NO;
484: l_khrv_tbl(ctr).SUMMARY_TRX_YN :=get_hdr_attr_rec.SUMMARY_TRX_YN;
485: l_khrv_tbl(ctr).SERVICE_PO_NUMBER :=get_hdr_attr_rec.SERVICE_PO_NUMBER;
486: l_khrv_tbl(ctr).SERVICE_PO_REQUIRED :=get_hdr_attr_rec.SERVICE_PO_REQUIRED;
487: l_khrv_tbl(ctr).BILLING_SCHEDULE_TYPE :=get_hdr_attr_rec.BILLING_SCHEDULE_TYPE;
488: l_khrv_tbl(ctr).OBJECT_VERSION_NUMBER :=OKC_API.G_MISS_NUM;
489: l_khrv_tbl(ctr).SECURITY_GROUP_ID :=get_hdr_attr_rec.SECURITY_GROUP_ID;
490: l_khrv_tbl(ctr).REQUEST_ID :=get_hdr_attr_rec.REQUEST_ID;
491: l_khrv_tbl(ctr).CREATED_BY :=OKC_API.G_MISS_NUM;
492: l_khrv_tbl(ctr).CREATION_DATE :=OKC_API.G_MISS_DATE;
487: l_khrv_tbl(ctr).BILLING_SCHEDULE_TYPE :=get_hdr_attr_rec.BILLING_SCHEDULE_TYPE;
488: l_khrv_tbl(ctr).OBJECT_VERSION_NUMBER :=OKC_API.G_MISS_NUM;
489: l_khrv_tbl(ctr).SECURITY_GROUP_ID :=get_hdr_attr_rec.SECURITY_GROUP_ID;
490: l_khrv_tbl(ctr).REQUEST_ID :=get_hdr_attr_rec.REQUEST_ID;
491: l_khrv_tbl(ctr).CREATED_BY :=OKC_API.G_MISS_NUM;
492: l_khrv_tbl(ctr).CREATION_DATE :=OKC_API.G_MISS_DATE;
493: l_khrv_tbl(ctr).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
494: l_khrv_tbl(ctr).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
495: l_khrv_tbl(ctr).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
488: l_khrv_tbl(ctr).OBJECT_VERSION_NUMBER :=OKC_API.G_MISS_NUM;
489: l_khrv_tbl(ctr).SECURITY_GROUP_ID :=get_hdr_attr_rec.SECURITY_GROUP_ID;
490: l_khrv_tbl(ctr).REQUEST_ID :=get_hdr_attr_rec.REQUEST_ID;
491: l_khrv_tbl(ctr).CREATED_BY :=OKC_API.G_MISS_NUM;
492: l_khrv_tbl(ctr).CREATION_DATE :=OKC_API.G_MISS_DATE;
493: l_khrv_tbl(ctr).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
494: l_khrv_tbl(ctr).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
495: l_khrv_tbl(ctr).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
496:
489: l_khrv_tbl(ctr).SECURITY_GROUP_ID :=get_hdr_attr_rec.SECURITY_GROUP_ID;
490: l_khrv_tbl(ctr).REQUEST_ID :=get_hdr_attr_rec.REQUEST_ID;
491: l_khrv_tbl(ctr).CREATED_BY :=OKC_API.G_MISS_NUM;
492: l_khrv_tbl(ctr).CREATION_DATE :=OKC_API.G_MISS_DATE;
493: l_khrv_tbl(ctr).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
494: l_khrv_tbl(ctr).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
495: l_khrv_tbl(ctr).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
496:
497: ----New columns added in R12-------
490: l_khrv_tbl(ctr).REQUEST_ID :=get_hdr_attr_rec.REQUEST_ID;
491: l_khrv_tbl(ctr).CREATED_BY :=OKC_API.G_MISS_NUM;
492: l_khrv_tbl(ctr).CREATION_DATE :=OKC_API.G_MISS_DATE;
493: l_khrv_tbl(ctr).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
494: l_khrv_tbl(ctr).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
495: l_khrv_tbl(ctr).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
496:
497: ----New columns added in R12-------
498: l_khrv_tbl(ctr).CC_NO:= get_hdr_attr_rec.CC_NO;
491: l_khrv_tbl(ctr).CREATED_BY :=OKC_API.G_MISS_NUM;
492: l_khrv_tbl(ctr).CREATION_DATE :=OKC_API.G_MISS_DATE;
493: l_khrv_tbl(ctr).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
494: l_khrv_tbl(ctr).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
495: l_khrv_tbl(ctr).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
496:
497: ----New columns added in R12-------
498: l_khrv_tbl(ctr).CC_NO:= get_hdr_attr_rec.CC_NO;
499: l_khrv_tbl(ctr).CC_EXPIRY_DATE:= get_hdr_attr_rec.CC_EXPIRY_DATE;
537: l_khrv_tbl(ctr).exempt_certificate_number := get_hdr_attr_rec.exempt_certificate_number;
538: l_khrv_tbl(ctr).exempt_reason_code := get_hdr_attr_rec.exempt_reason_code;
539:
540: IF (p_renew_ref_YN = 'Y') THEN --RENEW case
541: l_khrv_tbl(ctr).renewal_comment := OKC_API.G_MISS_CHAR;
542: ELSE
543: l_khrv_tbl(ctr).renewal_comment := get_hdr_attr_rec.renewal_comment;
544: END IF;
545:
563: END IF;
564:
565: OKS_CONTRACT_HDR_PUB.create_header (
566: p_api_version => l_api_version,
567: p_init_msg_list => OKC_API.G_FALSE,
568: x_return_status => l_return_status,
569: x_msg_count => l_msg_count,
570: x_msg_data => l_msg_data,
571: p_khrv_tbl => l_khrv_tbl,
581: END IF;
582:
583: END IF;
584:
585: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
586: RAISE G_EXCEPTION_HALT_VALIDATION;
587: END IF;
588:
589: x_return_status := l_return_status;
591: EXCEPTION
592: WHEN G_EXCEPTION_HALT_VALIDATION THEN
593: x_return_status := l_return_status;
594: WHEN Others THEN
595: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
596: OKC_API.set_message
597: (
598: G_APP_NAME,
599: G_UNEXPECTED_ERROR,
592: WHEN G_EXCEPTION_HALT_VALIDATION THEN
593: x_return_status := l_return_status;
594: WHEN Others THEN
595: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
596: OKC_API.set_message
597: (
598: G_APP_NAME,
599: G_UNEXPECTED_ERROR,
600: G_SQLCODE_TOKEN,
658: --- End added for price lock
659: l_date_terminated Date;
660:
661: BEGIN
662: l_return_status := OKC_API.G_RET_STS_SUCCESS;
663: l_klnv_tbl.DELETE;
664: x_klnv_tbl.DELETE;
665:
666: FOR get_lines_attr_rec IN get_lines_attr_csr (p_cle_id)
668: OPEN get_lines_details_csr(P_CLE_ID);
669: FETCH get_lines_details_csr INTO l_date_terminated, l_old_price_list_id;
670: CLOSE get_lines_details_csr;
671:
672: l_klnv_tbl(ctr).ID :=OKC_API.G_MISS_NUM;
673: l_klnv_tbl(ctr).CLE_ID :=p_new_cle_id;
674: l_klnv_tbl(ctr).DNZ_CHR_ID :=p_new_chr_id;
675: l_klnv_tbl(ctr).DISCOUNT_LIST :=get_lines_attr_rec.DISCOUNT_LIST ;
676: l_klnv_tbl(ctr).ACCT_RULE_ID :=get_lines_attr_rec.ACCT_RULE_ID;
707: x_return_status => l_return_status,
708: x_msg_count => l_msg_count,
709: x_msg_data => l_msg_data);
710:
711: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
712: RAISE G_EXCEPTION_HALT_VALIDATION;
713: END IF;
714: */
715: l_klnv_tbl(ctr).LOCKED_PRICE_LIST_ID:= l_locked_price_list_id;
835: p_validate_yn => 'N' );
836:
837: END IF; --IF l_rev_tbl.COUNT >0
838:
839: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
840: RAISE G_EXCEPTION_HALT_VALIDATION;
841: END IF;
842:
843: x_return_status := l_return_status;
845: EXCEPTION
846: WHEN G_EXCEPTION_HALT_VALIDATION THEN
847: x_return_status := l_return_status;
848: WHEN Others THEN
849: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
850: OKC_API.set_message
851: (
852: G_APP_NAME,
853: G_UNEXPECTED_ERROR,
846: WHEN G_EXCEPTION_HALT_VALIDATION THEN
847: x_return_status := l_return_status;
848: WHEN Others THEN
849: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
850: OKC_API.set_message
851: (
852: G_APP_NAME,
853: G_UNEXPECTED_ERROR,
854: G_SQLCODE_TOKEN,
878: x_msg_data OUT NOCOPY Varchar2
879: )
880: IS
881:
882: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
883: l_api_name CONSTANT VARCHAR2(30) := 'Update_Hdr_Amount';
884: l_api_version Number := 1.0;
885:
886: --Contract Header
896: l_hdr_amount Number;
897:
898: BEGIN
899:
900: l_return_status := OKC_API.START_ACTIVITY(l_api_name
901: ,p_init_msg_list
902: ,'_PUB'
903: ,x_return_status
904: );
901: ,p_init_msg_list
902: ,'_PUB'
903: ,x_return_status
904: );
905: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
908: RAISE OKC_API.G_EXCEPTION_ERROR;
909: END IF;
902: ,'_PUB'
903: ,x_return_status
904: );
905: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
908: RAISE OKC_API.G_EXCEPTION_ERROR;
909: END IF;
910:
903: ,x_return_status
904: );
905: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
908: RAISE OKC_API.G_EXCEPTION_ERROR;
909: END IF;
910:
911: Open l_line_csr;
904: );
905: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
908: RAISE OKC_API.G_EXCEPTION_ERROR;
909: END IF;
910:
911: Open l_line_csr;
912: Fetch l_line_csr into l_hdr_amount;
926: p_chrv_tbl => l_chrv_tbl_in,
927: x_chrv_tbl => l_chrv_tbl_out
928: );
929:
930: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
931: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
933: RAISE OKC_API.G_EXCEPTION_ERROR;
934: END IF;
927: x_chrv_tbl => l_chrv_tbl_out
928: );
929:
930: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
931: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
933: RAISE OKC_API.G_EXCEPTION_ERROR;
934: END IF;
935:
928: );
929:
930: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
931: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
933: RAISE OKC_API.G_EXCEPTION_ERROR;
934: END IF;
935:
936: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
929:
930: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
931: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
933: RAISE OKC_API.G_EXCEPTION_ERROR;
934: END IF;
935:
936: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
937:
932: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
933: RAISE OKC_API.G_EXCEPTION_ERROR;
934: END IF;
935:
936: OKC_API.END_ACTIVITY(x_msg_count,x_msg_data);
937:
938: x_return_status := l_return_status;
939:
940: EXCEPTION
937:
938: x_return_status := l_return_status;
939:
940: EXCEPTION
941: WHEN OKC_API.G_EXCEPTION_ERROR THEN
942: x_return_status := OKC_API.HANDLE_EXCEPTIONS
943: (l_api_name,
944: G_PKG_NAME,
945: 'OKC_API.G_RET_STS_ERROR',
938: x_return_status := l_return_status;
939:
940: EXCEPTION
941: WHEN OKC_API.G_EXCEPTION_ERROR THEN
942: x_return_status := OKC_API.HANDLE_EXCEPTIONS
943: (l_api_name,
944: G_PKG_NAME,
945: 'OKC_API.G_RET_STS_ERROR',
946: x_msg_count,
941: WHEN OKC_API.G_EXCEPTION_ERROR THEN
942: x_return_status := OKC_API.HANDLE_EXCEPTIONS
943: (l_api_name,
944: G_PKG_NAME,
945: 'OKC_API.G_RET_STS_ERROR',
946: x_msg_count,
947: x_msg_data,
948: '_PUB');
949: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
945: 'OKC_API.G_RET_STS_ERROR',
946: x_msg_count,
947: x_msg_data,
948: '_PUB');
949: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
951: (l_api_name,
952: G_PKG_NAME,
953: 'OKC_API.G_RET_STS_UNEXP_ERROR',
946: x_msg_count,
947: x_msg_data,
948: '_PUB');
949: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
951: (l_api_name,
952: G_PKG_NAME,
953: 'OKC_API.G_RET_STS_UNEXP_ERROR',
954: x_msg_count,
949: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
951: (l_api_name,
952: G_PKG_NAME,
953: 'OKC_API.G_RET_STS_UNEXP_ERROR',
954: x_msg_count,
955: x_msg_data,
956: '_PUB');
957: WHEN OTHERS THEN
954: x_msg_count,
955: x_msg_data,
956: '_PUB');
957: WHEN OTHERS THEN
958: x_return_status := OKC_API.HANDLE_EXCEPTIONS
959: (l_api_name,
960: G_PKG_NAME,
961: 'OTHERS',
962: x_msg_count,
994: l_sll_exist boolean := false;
995: l_slh_exist boolean := false;
996: l_strlvl_tbl OKS_SLL_PVT.sllv_tbl_type;
997: x_strlvl_tbl OKS_SLL_PVT.sllv_tbl_type;
998: l_error_tbl OKC_API.ERROR_TBL_TYPE;
999:
1000: CURSOR strlvl_csr (p_chr_id NUMBER) IS
1001: SELECT ID
1002: ,CHR_ID
1028: WHERE id = p_chr_id;
1029:
1030:
1031: Begin
1032: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1033: l_tbl_ctr := 0;
1034: Open hdr_csr(p_chr_id);
1035: Fetch hdr_csr into l_start_date;
1036: Close hdr_csr;
1040:
1041: For strlvl_rec in strlvl_csr (p_chr_id)
1042: Loop
1043: l_tbl_ctr := l_tbl_ctr + 1;
1044: l_strlvl_tbl(l_tbl_ctr).ID :=OKC_API.G_MISS_NUM;
1045: l_strlvl_tbl(l_tbl_ctr).CHR_ID :=p_new_chr_id;
1046: l_strlvl_tbl(l_tbl_ctr).CLE_ID :=NULL;
1047: l_strlvl_tbl(l_tbl_ctr).DNZ_CHR_ID :=p_new_chr_id;
1048: l_strlvl_tbl(l_tbl_ctr).SEQUENCE_NO :=strlvl_rec.SEQUENCE_NO;
1064: If l_strlvl_tbl.count > 0 Then
1065:
1066: oks_contract_sll_pub.create_sll (
1067: p_api_version => l_api_version,
1068: p_init_msg_list => OKC_API.G_FALSE,
1069: x_return_status => l_return_status,
1070: x_msg_count => l_msg_count,
1071: x_msg_data => l_msg_data,
1072: p_sllv_tbl => l_strlvl_tbl,
1074: p_validate_yn => 'N');
1075:
1076: x_return_status := l_return_status;
1077:
1078: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1079: RAISE G_EXCEPTION_HALT_VALIDATION;
1080: END IF;
1081:
1082:
1085: x_return_status => l_return_status,
1086: x_msg_count => l_msg_count,
1087: x_msg_data => l_msg_data);
1088:
1089: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1090: RAISE G_EXCEPTION_HALT_VALIDATION;
1091: END IF;
1092:
1093: x_return_status := l_return_status;
1101: x_return_status := l_return_status;
1102: Null;
1103:
1104: WHEN OTHERS THEN
1105: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1106: OKC_API.set_message
1107: (G_APP_NAME,
1108: G_UNEXPECTED_ERROR,
1109: G_SQLCODE_TOKEN,
1102: Null;
1103:
1104: WHEN OTHERS THEN
1105: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1106: OKC_API.set_message
1107: (G_APP_NAME,
1108: G_UNEXPECTED_ERROR,
1109: G_SQLCODE_TOKEN,
1110: SQLCODE,
1153: FROM oks_rev_distributions
1154: WHERE cle_id = cleId and chr_id = chrId;
1155:
1156: BEGIN
1157: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1158: l_rev_tbl.DELETE;
1159: --get revenue distribution record and copy
1160: FOR get_revenue_dist_rule_rec IN get_revenue_dist_rule_csr (p_cle_id)
1161: LOOP
1163: l_rev_tbl(ctr).cle_id := p_new_cle_id;
1164: l_rev_tbl(ctr).account_class := get_revenue_dist_rule_rec.account_class;
1165: l_rev_tbl(ctr).code_combination_id := get_revenue_dist_rule_rec.code_combination_id;
1166: l_rev_tbl(ctr).percent := get_revenue_dist_rule_rec.percent;
1167: l_rev_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1168: l_rev_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1169: l_rev_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1170: l_rev_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1171: l_rev_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1164: l_rev_tbl(ctr).account_class := get_revenue_dist_rule_rec.account_class;
1165: l_rev_tbl(ctr).code_combination_id := get_revenue_dist_rule_rec.code_combination_id;
1166: l_rev_tbl(ctr).percent := get_revenue_dist_rule_rec.percent;
1167: l_rev_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1168: l_rev_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1169: l_rev_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1170: l_rev_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1171: l_rev_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1172: l_rev_tbl(ctr).last_update_login := OKC_API.G_MISS_NUM;
1165: l_rev_tbl(ctr).code_combination_id := get_revenue_dist_rule_rec.code_combination_id;
1166: l_rev_tbl(ctr).percent := get_revenue_dist_rule_rec.percent;
1167: l_rev_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1168: l_rev_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1169: l_rev_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1170: l_rev_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1171: l_rev_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1172: l_rev_tbl(ctr).last_update_login := OKC_API.G_MISS_NUM;
1173:
1166: l_rev_tbl(ctr).percent := get_revenue_dist_rule_rec.percent;
1167: l_rev_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1168: l_rev_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1169: l_rev_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1170: l_rev_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1171: l_rev_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1172: l_rev_tbl(ctr).last_update_login := OKC_API.G_MISS_NUM;
1173:
1174: ctr := ctr+1;
1167: l_rev_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1168: l_rev_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1169: l_rev_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1170: l_rev_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1171: l_rev_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1172: l_rev_tbl(ctr).last_update_login := OKC_API.G_MISS_NUM;
1173:
1174: ctr := ctr+1;
1175: END LOOP;
1168: l_rev_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1169: l_rev_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1170: l_rev_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1171: l_rev_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1172: l_rev_tbl(ctr).last_update_login := OKC_API.G_MISS_NUM;
1173:
1174: ctr := ctr+1;
1175: END LOOP;
1176:
1205: x_rdsv_tbl => x_rev_tbl);
1206: End If;
1207: END IF; --IF l_rev_tbl.COUNT >0
1208:
1209: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1210: RAISE G_EXCEPTION_HALT_VALIDATION;
1211: END IF;
1212:
1213: x_return_status := l_return_status;
1215: EXCEPTION
1216: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1217: x_return_status := l_return_status;
1218: WHEN Others THEN
1219: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1220: OKC_API.set_message
1221: (
1222: G_APP_NAME,
1223: G_UNEXPECTED_ERROR,
1216: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1217: x_return_status := l_return_status;
1218: WHEN Others THEN
1219: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1220: OKC_API.set_message
1221: (
1222: G_APP_NAME,
1223: G_UNEXPECTED_ERROR,
1224: G_SQLCODE_TOKEN,
1264: WHERE chr_id = p_chr_id
1265: AND cle_id IS NULL;
1266:
1267: BEGIN
1268: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1269: l_scrv_tbl.DELETE;
1270: x_scrv_tbl.DELETE;
1271:
1272: --get sale credits record and copy
1271:
1272: --get sale credits record and copy
1273: FOR get_sales_credits_rec IN get_sales_credits_csr (p_chr_id)
1274: LOOP
1275: l_scrv_tbl(ctr).id := OKC_API.G_MISS_NUM;
1276: l_scrv_tbl(ctr).chr_id := p_new_chr_id;
1277: l_scrv_tbl(ctr).cle_id := OKC_API.G_MISS_NUM;
1278: l_scrv_tbl(ctr).percent := get_sales_credits_rec.percent;
1279: l_scrv_tbl(ctr).ctc_id := get_sales_credits_rec.ctc_id;
1273: FOR get_sales_credits_rec IN get_sales_credits_csr (p_chr_id)
1274: LOOP
1275: l_scrv_tbl(ctr).id := OKC_API.G_MISS_NUM;
1276: l_scrv_tbl(ctr).chr_id := p_new_chr_id;
1277: l_scrv_tbl(ctr).cle_id := OKC_API.G_MISS_NUM;
1278: l_scrv_tbl(ctr).percent := get_sales_credits_rec.percent;
1279: l_scrv_tbl(ctr).ctc_id := get_sales_credits_rec.ctc_id;
1280: l_scrv_tbl(ctr).sales_group_id := get_sales_credits_rec.sales_group_id;
1281: l_scrv_tbl(ctr).sales_credit_type_id1 := get_sales_credits_rec.sales_credit_type_id1;
1279: l_scrv_tbl(ctr).ctc_id := get_sales_credits_rec.ctc_id;
1280: l_scrv_tbl(ctr).sales_group_id := get_sales_credits_rec.sales_group_id;
1281: l_scrv_tbl(ctr).sales_credit_type_id1 := get_sales_credits_rec.sales_credit_type_id1;
1282: l_scrv_tbl(ctr).sales_credit_type_id2 := get_sales_credits_rec.sales_credit_type_id2;
1283: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1284: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1285: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1286: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1287: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1280: l_scrv_tbl(ctr).sales_group_id := get_sales_credits_rec.sales_group_id;
1281: l_scrv_tbl(ctr).sales_credit_type_id1 := get_sales_credits_rec.sales_credit_type_id1;
1282: l_scrv_tbl(ctr).sales_credit_type_id2 := get_sales_credits_rec.sales_credit_type_id2;
1283: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1284: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1285: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1286: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1287: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1288: ctr := ctr+1;
1281: l_scrv_tbl(ctr).sales_credit_type_id1 := get_sales_credits_rec.sales_credit_type_id1;
1282: l_scrv_tbl(ctr).sales_credit_type_id2 := get_sales_credits_rec.sales_credit_type_id2;
1283: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1284: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1285: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1286: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1287: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1288: ctr := ctr+1;
1289: END LOOP;
1282: l_scrv_tbl(ctr).sales_credit_type_id2 := get_sales_credits_rec.sales_credit_type_id2;
1283: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1284: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1285: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1286: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1287: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1288: ctr := ctr+1;
1289: END LOOP;
1290:
1283: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1284: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1285: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1286: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1287: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1288: ctr := ctr+1;
1289: END LOOP;
1290:
1291: IF l_scrv_tbl.COUNT >0
1299: x_scrv_tbl => x_scrv_tbl);
1300:
1301: END IF; --IF l_rev_tbl.COUNT >0
1302:
1303: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1304: RAISE G_EXCEPTION_HALT_VALIDATION;
1305: END IF;
1306:
1307: x_return_status := l_return_status;
1309: EXCEPTION
1310: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1311: x_return_status := l_return_status;
1312: WHEN Others THEN
1313: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1314: OKC_API.set_message
1315: (
1316: G_APP_NAME,
1317: G_UNEXPECTED_ERROR,
1310: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1311: x_return_status := l_return_status;
1312: WHEN Others THEN
1313: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1314: OKC_API.set_message
1315: (
1316: G_APP_NAME,
1317: G_UNEXPECTED_ERROR,
1318: G_SQLCODE_TOKEN,
1370: WHERE cle_id = p_new_cle_id;
1371: -------
1372:
1373: BEGIN
1374: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1375: l_scrv_tbl.DELETE;
1376: x_scrv_tbl.DELETE;
1377:
1378: --get sales credits record and copy
1381: -- Don't add sales credit to a line that already has one.
1382: Open sales_credit_exist_csr(p_new_cle_id);
1383: Fetch sales_credit_exist_csr into l_exist;
1384: If sales_credit_exist_csr%NOTFOUND Then
1385: l_scrv_tbl(ctr).id := OKC_API.G_MISS_NUM;
1386: l_scrv_tbl(ctr).chr_id := p_new_chr_id;
1387: l_scrv_tbl(ctr).cle_id := p_new_cle_id;
1388: l_scrv_tbl(ctr).percent := get_sales_credits_rec.percent;
1389: l_scrv_tbl(ctr).ctc_id := get_sales_credits_rec.ctc_id;
1389: l_scrv_tbl(ctr).ctc_id := get_sales_credits_rec.ctc_id;
1390: l_scrv_tbl(ctr).sales_group_id := get_sales_credits_rec.sales_group_id;
1391: l_scrv_tbl(ctr).sales_credit_type_id1 := get_sales_credits_rec.sales_credit_type_id1;
1392: l_scrv_tbl(ctr).sales_credit_type_id2 := get_sales_credits_rec.sales_credit_type_id2;
1393: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1394: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1395: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1396: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1397: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1390: l_scrv_tbl(ctr).sales_group_id := get_sales_credits_rec.sales_group_id;
1391: l_scrv_tbl(ctr).sales_credit_type_id1 := get_sales_credits_rec.sales_credit_type_id1;
1392: l_scrv_tbl(ctr).sales_credit_type_id2 := get_sales_credits_rec.sales_credit_type_id2;
1393: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1394: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1395: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1396: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1397: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1398: ctr := ctr+1;
1391: l_scrv_tbl(ctr).sales_credit_type_id1 := get_sales_credits_rec.sales_credit_type_id1;
1392: l_scrv_tbl(ctr).sales_credit_type_id2 := get_sales_credits_rec.sales_credit_type_id2;
1393: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1394: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1395: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1396: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1397: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1398: ctr := ctr+1;
1399: End If;
1392: l_scrv_tbl(ctr).sales_credit_type_id2 := get_sales_credits_rec.sales_credit_type_id2;
1393: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1394: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1395: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1396: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1397: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1398: ctr := ctr+1;
1399: End If;
1400: Close sales_credit_exist_csr;
1393: l_scrv_tbl(ctr).object_version_number := OKC_API.G_MISS_NUM;
1394: l_scrv_tbl(ctr).created_by := OKC_API.G_MISS_NUM;
1395: l_scrv_tbl(ctr).creation_date := OKC_API.G_MISS_DATE;
1396: l_scrv_tbl(ctr).last_updated_by := OKC_API.G_MISS_NUM;
1397: l_scrv_tbl(ctr).last_update_date := OKC_API.G_MISS_DATE;
1398: ctr := ctr+1;
1399: End If;
1400: Close sales_credit_exist_csr;
1401:
1413: x_scrv_tbl => x_scrv_tbl);
1414:
1415: END IF; --IF l_rev_tbl.COUNT >0
1416:
1417: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1418: RAISE G_EXCEPTION_HALT_VALIDATION;
1419: END IF;
1420:
1421: x_return_status := l_return_status;
1423: EXCEPTION
1424: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1425: x_return_status := l_return_status;
1426: WHEN Others THEN
1427: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1428: OKC_API.set_message
1429: (
1430: G_APP_NAME,
1431: G_UNEXPECTED_ERROR,
1424: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1425: x_return_status := l_return_status;
1426: WHEN Others THEN
1427: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1428: OKC_API.set_message
1429: (
1430: G_APP_NAME,
1431: G_UNEXPECTED_ERROR,
1432: G_SQLCODE_TOKEN,
1448: p_intent IN VARCHAR2 DEFAULT NULL,
1449: x_return_status OUT NOCOPY VARCHAR2) IS
1450:
1451: l_api_version NUMBER := 1.0;
1452: l_init_msg_list VARCHAR2(3) :=OKC_API.G_FALSE;
1453: l_return_status VARCHAR2(1) := 'S';
1454: l_msg_count NUMBER;
1455: l_msg_data VARCHAR2(2000);
1456: l_intent VARCHAR2(90);
1502: WHERE b.cle_id = a.id and a.lse_id = 9 and b.object1_id1 = oldItemInst
1503: AND a.dnz_chr_id = p_new_chr_id;
1504:
1505: Begin
1506: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1507: l_intent := p_intent; --'RENEW' or NULL
1508: -- Renewed contracts have a record in okc_operation_lines
1509: If p_intent is null then
1510: open got_renewed(p_new_chr_id);
1529: new_topline_rec.old_line_id,
1530: new_topline_rec.id,
1531: l_intent
1532: );
1533: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1534: RAISE G_EXCEPTION_HALT_VALIDATION;
1535: END IF;
1536: If l_intent = 'COPY' then
1537: Open get_old_chr_id;
1554: l_msg_count,
1555: l_msg_data,
1556: l_cimv_rec,
1557: x_cimv_rec);
1558: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1559: RAISE G_EXCEPTION_HALT_VALIDATION;
1560: end if;
1561: End Loop;
1562:
1578: new_topline_rec.old_line_id,
1579: new_topline_rec.id,
1580: l_intent
1581: );
1582: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1583: RAISE G_EXCEPTION_HALT_VALIDATION;
1584: END IF;
1585: If l_intent = 'COPY' then
1586: Open get_old_chr_id;
1603: l_msg_count,
1604: l_msg_data,
1605: l_cimv_rec,
1606: x_cimv_rec);
1607: if (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
1608: RAISE G_EXCEPTION_HALT_VALIDATION;
1609: end if;
1610: End Loop;
1611:
1620: EXCEPTION
1621: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1622: x_return_status := l_return_status;
1623: WHEN Others THEN
1624: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1625: OKC_API.set_message
1626: (
1627: G_APP_NAME,
1628: G_UNEXPECTED_ERROR,
1621: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1622: x_return_status := l_return_status;
1623: WHEN Others THEN
1624: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1625: OKC_API.set_message
1626: (
1627: G_APP_NAME,
1628: G_UNEXPECTED_ERROR,
1629: G_SQLCODE_TOKEN,
1660: WHERE okc.id=p_cle_id
1661: AND okc.id=oks.cle_id;
1662:
1663: l_tbl_ctr NUMBER;
1664: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
1665: l_msg_count Number;
1666: l_msg_data Varchar2(2000);
1667: l_api_version Number := 1;
1668: l_init_msg_list Varchar2(1) := 'F';
1743: IS
1744:
1745:
1746: l_tbl_ctr NUMBER;
1747: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
1748: l_msg_count Number;
1749: l_msg_data Varchar2(2000);
1750: l_api_version Number := 1;
1751: l_init_msg_list Varchar2(1) := 'F';
1809:
1810: OKS_RENEW_PVT.Debug_Log(p_program_name => 'OKSCOPY',
1811: p_perf_msg =>'Inside get_strlvls procedure ');
1812:
1813: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1814:
1815: l_tbl_ctr := 0;
1816: l_strlvl_tbl.delete;
1817: l_bil_sch_out_tbl.delete;
1842: FOR strlvl_rec IN strlvl_csr (l_old_cle_id)
1843: LOOP
1844: l_tbl_ctr := l_tbl_ctr + 1;
1845:
1846: l_strlvl_tbl(l_tbl_ctr).id :=OKC_API.G_MISS_NUM;
1847: l_strlvl_tbl(l_tbl_ctr).CHR_ID :=OKC_API.G_MISS_NUM;
1848: l_strlvl_tbl(l_tbl_ctr).CLE_ID :=p_cle_id;
1849: l_strlvl_tbl(l_tbl_ctr).DNZ_CHR_ID :=P_CHR_ID;
1850: l_strlvl_tbl(l_tbl_ctr).SEQUENCE_NO :=strlvl_rec.SEQUENCE_NO;
1843: LOOP
1844: l_tbl_ctr := l_tbl_ctr + 1;
1845:
1846: l_strlvl_tbl(l_tbl_ctr).id :=OKC_API.G_MISS_NUM;
1847: l_strlvl_tbl(l_tbl_ctr).CHR_ID :=OKC_API.G_MISS_NUM;
1848: l_strlvl_tbl(l_tbl_ctr).CLE_ID :=p_cle_id;
1849: l_strlvl_tbl(l_tbl_ctr).DNZ_CHR_ID :=P_CHR_ID;
1850: l_strlvl_tbl(l_tbl_ctr).SEQUENCE_NO :=strlvl_rec.SEQUENCE_NO;
1851: l_strlvl_tbl(l_tbl_ctr).UOM_CODE :=strlvl_rec.UOM_CODE;
1881: l_klnv_tbl(1).dnz_chr_id := get_ccr_rec.dnz_chr_id;
1882: l_klnv_tbl(1).CC_BANK_ACCT_ID :=NULL;
1883: l_klnv_tbl(1).CC_AUTH_CODE :=NULL;
1884: l_klnv_tbl(1).object_version_number := get_ccr_rec.object_version_number;
1885: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
1886: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
1887: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
1888: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
1889: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
1882: l_klnv_tbl(1).CC_BANK_ACCT_ID :=NULL;
1883: l_klnv_tbl(1).CC_AUTH_CODE :=NULL;
1884: l_klnv_tbl(1).object_version_number := get_ccr_rec.object_version_number;
1885: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
1886: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
1887: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
1888: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
1889: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
1890:
1883: l_klnv_tbl(1).CC_AUTH_CODE :=NULL;
1884: l_klnv_tbl(1).object_version_number := get_ccr_rec.object_version_number;
1885: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
1886: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
1887: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
1888: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
1889: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
1890:
1891: OKS_CONTRACT_LINE_PUB.update_line (
1884: l_klnv_tbl(1).object_version_number := get_ccr_rec.object_version_number;
1885: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
1886: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
1887: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
1888: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
1889: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
1890:
1891: OKS_CONTRACT_LINE_PUB.update_line (
1892: p_api_version => l_api_version,
1885: l_klnv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
1886: l_klnv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
1887: l_klnv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
1888: l_klnv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
1889: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
1890:
1891: OKS_CONTRACT_LINE_PUB.update_line (
1892: p_api_version => l_api_version,
1893: p_init_msg_list => OKC_API.G_FALSE,
1889: l_klnv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
1890:
1891: OKS_CONTRACT_LINE_PUB.update_line (
1892: p_api_version => l_api_version,
1893: p_init_msg_list => OKC_API.G_FALSE,
1894: x_return_status => l_return_status,
1895: x_msg_count => l_msg_count,
1896: x_msg_data => l_msg_data,
1897: p_klnv_tbl => l_klnv_tbl,
1983:
1984: l_invoice_rule_id := NULL;
1985: l_time_value :=NULL;
1986:
1987: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1988:
1989: FOR get_adv_arr_rec IN get_adv_arr_csr (p_cle_id)
1990: LOOP
1991: l_invoice_rule_id := get_adv_arr_rec.inv_rule_id;
2029: FETCH Subline_Billsch_type INTO l_subline_billsch_type;
2030: CLOSE Subline_Billsch_type;
2031:
2032: IF l_subline_billsch_type ='P' THEN
2033: l_return_status := OKC_API.G_RET_STS_SUCCESS;
2034: If p_duration_match = 'T' and p_bill_profile_flag is null Then
2035:
2036: get_strlvls
2037: (p_chr_id => p_chr_id,
2223: l_old_duration NUMBER := 0;
2224: l_old_time VARCHAR2(450) ;
2225: l_renew_duration NUMBER := 0;
2226: l_renew_time VARCHAR2(450) ;
2227: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2228:
2229: BEGIN
2230: x_flag := 'T';
2231: OPEN l_chr_renew_csr (p_new_chr_id);
2289: END IF;
2290: x_return_status := l_return_status;
2291: Exception
2292: WHEN Others THEN
2293: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2294: OKC_API.set_message(
2295: G_APP_NAME,
2296: G_UNEXPECTED_ERROR,
2297: G_SQLCODE_TOKEN,
2290: x_return_status := l_return_status;
2291: Exception
2292: WHEN Others THEN
2293: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2294: OKC_API.set_message(
2295: G_APP_NAME,
2296: G_UNEXPECTED_ERROR,
2297: G_SQLCODE_TOKEN,
2298: SQLCODE,
2354: --get_qto_rec get_qto%rowtype;
2355: get_cpl_rec get_cpl%rowtype;
2356: l_khrv_tbl oks_khr_pvt.khrv_tbl_type;
2357: x_khrv_tbl oks_khr_pvt.khrv_tbl_type;
2358: l_error_tbl okc_api.error_tbl_type;
2359: l_chrv_tbl_in okc_contract_pub.chrv_tbl_type;
2360: l_chrv_tbl_out okc_contract_pub.chrv_tbl_type;
2361: l_clev_rec_in okc_contract_pub.clev_rec_type;
2362: l_clev_rec_out okc_contract_pub.clev_rec_type;
2367: l_cpl_id NUMBER;
2368: l_contact_id NUMBER;
2369:
2370: Begin
2371: l_return_status := OKC_API.G_RET_STS_SUCCESS;
2372:
2373: l_chrv_tbl_in(1).id := p_chr_id;
2374: l_chrv_tbl_in(1).cust_acct_id := NULL;
2375: l_chrv_tbl_in(1).Bill_to_site_use_id := NULL;
2386: x_msg_data => l_msg_data,
2387: p_chrv_tbl => l_chrv_tbl_in,
2388: x_chrv_tbl => l_chrv_tbl_out
2389: );
2390: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
2393: RAISE OKC_API.G_EXCEPTION_ERROR;
2394: END IF;
2387: p_chrv_tbl => l_chrv_tbl_in,
2388: x_chrv_tbl => l_chrv_tbl_out
2389: );
2390: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
2393: RAISE OKC_API.G_EXCEPTION_ERROR;
2394: END IF;
2395:
2388: x_chrv_tbl => l_chrv_tbl_out
2389: );
2390: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
2393: RAISE OKC_API.G_EXCEPTION_ERROR;
2394: END IF;
2395:
2396:
2389: );
2390: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2392: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
2393: RAISE OKC_API.G_EXCEPTION_ERROR;
2394: END IF;
2395:
2396:
2397: For get_qto_rec In get_qto(p_chr_id)
2414: l_khrv_tbl(1).renewal_po_number :=NULL;
2415: l_khrv_tbl(1).renewal_po_required :=NULL;
2416: l_khrv_tbl(1).renewal_po_used :=NULL;
2417: l_khrv_tbl(1).OBJECT_VERSION_NUMBER :=get_qto_rec.OBJECT_VERSION_NUMBER;
2418: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
2419: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
2420: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
2421: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
2422: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
2415: l_khrv_tbl(1).renewal_po_required :=NULL;
2416: l_khrv_tbl(1).renewal_po_used :=NULL;
2417: l_khrv_tbl(1).OBJECT_VERSION_NUMBER :=get_qto_rec.OBJECT_VERSION_NUMBER;
2418: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
2419: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
2420: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
2421: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
2422: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
2423:
2416: l_khrv_tbl(1).renewal_po_used :=NULL;
2417: l_khrv_tbl(1).OBJECT_VERSION_NUMBER :=get_qto_rec.OBJECT_VERSION_NUMBER;
2418: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
2419: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
2420: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
2421: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
2422: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
2423:
2424: OKS_CONTRACT_HDR_PUB.update_header (
2417: l_khrv_tbl(1).OBJECT_VERSION_NUMBER :=get_qto_rec.OBJECT_VERSION_NUMBER;
2418: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
2419: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
2420: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
2421: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
2422: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
2423:
2424: OKS_CONTRACT_HDR_PUB.update_header (
2425: p_api_version => l_api_version,
2418: l_khrv_tbl(1).CREATED_BY :=OKC_API.G_MISS_NUM;
2419: l_khrv_tbl(1).CREATION_DATE :=OKC_API.G_MISS_DATE;
2420: l_khrv_tbl(1).LAST_UPDATED_BY :=OKC_API.G_MISS_NUM;
2421: l_khrv_tbl(1).LAST_UPDATE_DATE :=OKC_API.G_MISS_DATE;
2422: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
2423:
2424: OKS_CONTRACT_HDR_PUB.update_header (
2425: p_api_version => l_api_version,
2426: p_init_msg_list => OKC_API.G_FALSE,
2422: l_khrv_tbl(1).LAST_UPDATE_LOGIN :=OKC_API.G_MISS_NUM;
2423:
2424: OKS_CONTRACT_HDR_PUB.update_header (
2425: p_api_version => l_api_version,
2426: p_init_msg_list => OKC_API.G_FALSE,
2427: x_return_status => l_return_status,
2428: x_msg_count => l_msg_count,
2429: x_msg_data => l_msg_data,
2430: p_khrv_tbl => l_khrv_tbl,
2430: p_khrv_tbl => l_khrv_tbl,
2431: x_khrv_tbl => x_khrv_tbl,
2432: p_validate_yn => 'N');
2433:
2434: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
2437: RAISE OKC_API.G_EXCEPTION_ERROR;
2438: END IF;
2431: x_khrv_tbl => x_khrv_tbl,
2432: p_validate_yn => 'N');
2433:
2434: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
2437: RAISE OKC_API.G_EXCEPTION_ERROR;
2438: END IF;
2439:
2432: p_validate_yn => 'N');
2433:
2434: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
2437: RAISE OKC_API.G_EXCEPTION_ERROR;
2438: END IF;
2439:
2440: End Loop; --For get_qto
2433:
2434: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
2437: RAISE OKC_API.G_EXCEPTION_ERROR;
2438: END IF;
2439:
2440: End Loop; --For get_qto
2441:
2509: EXCEPTION
2510: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2511: x_return_status := l_return_status;
2512: WHEN Others THEN
2513: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2514: OKC_API.set_message
2515: (
2516: G_APP_NAME,
2517: G_UNEXPECTED_ERROR,
2510: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2511: x_return_status := l_return_status;
2512: WHEN Others THEN
2513: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2514: OKC_API.set_message
2515: (
2516: G_APP_NAME,
2517: G_UNEXPECTED_ERROR,
2518: G_SQLCODE_TOKEN,
2544: p_upd_line_flag VARCHAR2,
2545: p_bill_profile_flag IN VARCHAR2 DEFAULT NULL
2546: ) IS
2547:
2548: l_return_status VARCHAR2(1) :=OKC_API.G_RET_STS_SUCCESS;
2549: l_api_version CONSTANT NUMBER := 1.0;
2550: l_init_msg_list CONSTANT VARCHAR2(1):= 'F';
2551: l_msg_count NUMBER;
2552: l_msg_data VARCHAR2(2000):=null;
2748: OKS_RENEW_PVT.Debug_Log
2749: (p_program_name => 'OKSCOPY'
2750: ,p_perf_msg =>'OKSCOPY: start time= '||to_char(sysdate,'HH:MI:SS'));
2751: -- initialize return status
2752: l_return_status := OKC_API.G_RET_STS_SUCCESS;
2753:
2754: -- mk start
2755: -- The reason for this logic is that okscopy gets called twice for renew
2756: -- the first time, the new start date/end date of the contract header is
2801: l_return_status
2802: );
2803:
2804: IF l_return_status <> 'S' Then
2805: OKC_API.set_message
2806: (G_APP_NAME,
2807: G_UNEXPECTED_ERROR,
2808: G_SQLCODE_TOKEN,
2809: SQLCODE,
2824: x_period_start => l_new_period_start,
2825: x_price_uom => l_price_uom,
2826: x_return_status => l_return_status);
2827:
2828: If l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2829:
2830: RAISE G_EXCEPTION_HALT_VALIDATION;
2831:
2832: End If;
2842: x_period_start => l_old_period_type,
2843: x_price_uom => l_price_uom,
2844: x_return_status => l_return_status);
2845:
2846: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
2847:
2848: RAISE G_EXCEPTION_HALT_VALIDATION;
2849:
2850: End If;
2879: x_msg_data => l_msg_data,
2880: p_commit => 'F'
2881: );
2882: IF l_return_status <> 'S' Then
2883: OKC_API.set_message
2884: (G_APP_NAME,
2885: G_UNEXPECTED_ERROR,
2886: G_SQLCODE_TOKEN,
2887: SQLCODE,
2896: x_msg_count => l_msg_count,
2897: x_msg_data => l_msg_data,
2898: p_chr_id => p_chr_id);
2899: IF l_return_status <> 'S' Then
2900: OKC_API.set_message
2901: (G_APP_NAME,
2902: G_UNEXPECTED_ERROR,
2903: G_SQLCODE_TOKEN,
2904: SQLCODE,
2910: l_okc_hdr_tbl(1).id := p_chr_id;
2911: l_okc_hdr_tbl(1).sts_code := 'QA_HOLD';
2912: OKC_CONTRACT_PUB.update_contract_header(
2913: p_api_version => 1.0,
2914: p_init_msg_list => OKC_API.G_FALSE,
2915: x_return_status => l_return_status,
2916: x_msg_count => l_msg_count,
2917: x_msg_data => l_msg_data,
2918: p_restricted_update => 'N',
2919: p_chrv_tbl => l_okc_hdr_tbl,
2920: x_chrv_tbl => x_okc_hdr_tbl
2921: );
2922: IF l_return_status <> 'S' Then
2923: OKC_API.set_message
2924: (G_APP_NAME,
2925: G_UNEXPECTED_ERROR,
2926: G_SQLCODE_TOKEN,
2927: SQLCODE,
2940:
2941: --1. copy on header level
2942:
2943: IF (p_chr_id IS NOT NULL AND (p_cle_id IS NULL
2944: OR p_cle_id = OKC_API.G_MISS_NUM)) THEN
2945:
2946: For cur_pradj_rec in cur_pradj(p_chr_id)
2947: LOOP
2948: update okc_price_adjustments
2987: OKS_RENEW_PVT.Debug_Log
2988: (p_program_name => 'OKSCOPY'
2989: ,p_perf_msg =>'COPY_K_HDR_NOTES '||l_return_status);
2990:
2991: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2992: -- Empties the message stack and puts the error in the log file.
2993: Get_Error_Stack;
2994: -- We don't want an error in copy notes to stop everything.
2995: l_return_status := OKC_API.G_RET_STS_SUCCESS;
2991: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2992: -- Empties the message stack and puts the error in the log file.
2993: Get_Error_Stack;
2994: -- We don't want an error in copy notes to stop everything.
2995: l_return_status := OKC_API.G_RET_STS_SUCCESS;
2996: End If;
2997: End If;
2998:
2999:
3100: if not chk_coverage_exists( check_top_line_exist_rec.id) then
3101:
3102: OKS_COVERAGES_PVT.Copy_Coverage
3103: (p_api_version => 1.0 ,
3104: p_init_msg_list => OKC_API.G_FALSE ,
3105: x_return_status => l_return_status ,
3106: x_msg_count => l_msg_count ,
3107: x_msg_data => l_msg_data ,
3108: p_contract_line_id => check_top_line_exist_rec.id );
3110: OKS_RENEW_PVT.Debug_Log
3111: (p_program_name => 'OKSCOPY'
3112: ,p_perf_msg =>'Copy Coverage Status '||l_return_status);
3113:
3114: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3115: x_return_status := l_return_status;
3116: Raise G_EXCEPTION_HALT_VALIDATION;
3117: End If;
3118: END IF;
3227: IF (check_top_line_exist_rec.lse_id in (1,19) AND l_do_copy ) Then
3228:
3229: OKS_COVERAGES_PVT.Copy_Coverage
3230: (p_api_version => 1.0 ,
3231: p_init_msg_list => OKC_API.G_FALSE ,
3232: x_return_status => l_return_status ,
3233: x_msg_count => l_msg_count ,
3234: x_msg_data => l_msg_data ,
3235: p_contract_line_id => check_top_line_exist_rec.id );
3237: OKS_RENEW_PVT.Debug_Log
3238: (p_program_name => 'OKSCOPY'
3239: ,p_perf_msg =>'Copy Coverage Status '||l_return_status);
3240:
3241: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3242: x_return_status := l_return_status;
3243: Raise G_EXCEPTION_HALT_VALIDATION;
3244: End If;
3245:
3255: OKS_RENEW_PVT.Debug_Log
3256: (p_program_name => 'OKSCOPY'
3257: ,p_perf_msg =>'Copy subscr_inst Status '||l_return_status);
3258:
3259: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3260: x_return_status := l_return_status;
3261: Raise G_EXCEPTION_HALT_VALIDATION;
3262: End If;
3263:
3283:
3284: --2. copy on top line level
3285:
3286: ELSIF (p_chr_id IS NOT NULL AND p_cle_id IS NOT NULL
3287: AND p_cle_id <> OKC_API.G_MISS_NUM) THEN
3288:
3289: FOR cle_grp_rec IN cle_grp_csr (p_chr_id,p_cle_id)
3290: LOOP
3291: IF (l_return_status = 'S' AND p_upd_line_flag IS NULL) THEN
3364:
3365: OKS_RENEW_PVT.Debug_Log
3366: (p_program_name => 'OKSCOPY'
3367: ,p_perf_msg =>'Line Copy line_subscr_inst Status'||l_return_status);
3368: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3369: x_return_status := l_return_status;
3370: Raise G_EXCEPTION_HALT_VALIDATION;
3371: End If;
3372:
3376: If (cle_grp_rec.lse_id in (1,19) AND p_upd_line_flag IS NULL) Then
3377:
3378: OKS_COVERAGES_PVT.Copy_Coverage
3379: (p_api_version => 1.0 ,
3380: p_init_msg_list => OKC_API.G_FALSE ,
3381: x_return_status => l_return_status ,
3382: x_msg_count => l_msg_count ,
3383: x_msg_data => l_msg_data ,
3384: p_contract_line_id => cle_grp_rec.id );
3386: OKS_RENEW_PVT.Debug_Log
3387: (p_program_name => 'OKSCOPY'
3388: ,p_perf_msg =>'Copy Coverage Status'||l_return_status);
3389:
3390: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3391: x_return_status := l_return_status;
3392: Raise G_EXCEPTION_HALT_VALIDATION;
3393: End If;
3394: END IF;
3412:
3413: --3. if no parameter passed
3414:
3415: ELSIF (p_chr_id IS NULL AND p_cle_id IS NULL) THEN
3416: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3417: raise G_EXCEPTION_HALT_VALIDATION;
3418:
3419: END IF;-- IF (p_chr_id IS NOT NULL AND p_cle_id IS NULL)
3420:
3506: x_return_status => l_return_status,
3507: x_msg_count => l_msg_count,
3508: x_msg_data => l_msg_data);
3509:
3510: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
3511: OKS_RENEW_PVT.Debug_Log(p_program_name => 'OKSCOPY',
3512: p_perf_msg =>'QP failed.');
3513: RAISE G_EXCEPTION_HALT_VALIDATION;
3514: END IF;
3543: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3544: x_return_status := l_return_status;
3545:
3546: WHEN OTHERS THEN
3547: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3548: OKC_API.set_message
3549: (G_APP_NAME,
3550: G_UNEXPECTED_ERROR,
3551: G_SQLCODE_TOKEN,
3544: x_return_status := l_return_status;
3545:
3546: WHEN OTHERS THEN
3547: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3548: OKC_API.set_message
3549: (G_APP_NAME,
3550: G_UNEXPECTED_ERROR,
3551: G_SQLCODE_TOKEN,
3552: SQLCODE,
3578: p_cle_id IN NUMBER,
3579: x_return_status OUT NOCOPY VARCHAR2
3580: )
3581: IS
3582: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
3583: -- will select all covered levels for given cle_id
3584:
3585: CURSOR l_csr_okc_k_lines IS
3586: SELECT id
3594:
3595: yes_flag VARCHAR2(1);
3596:
3597: BEGIN
3598: l_return_status := OKC_API.G_RET_STS_SUCCESS;
3599: -- This code has been modified to add p_cle_id as input parameter
3600:
3601: l_line_seq_no := 0;
3602:
3635: x_return_status OUT NOCOPY VARCHAR2
3636: )
3637: IS
3638:
3639: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
3640:
3641: Cursor l_csr_header IS
3642: SELECT id from okc_k_headers_b
3643: WHERE scs_code in ('SERVICE','WARRANTY')
3678: yes_flag VARCHAR2(1);
3679:
3680: BEGIN
3681:
3682: l_return_status := OKC_API.G_RET_STS_SUCCESS;
3683: l_contract_count :=0;
3684:
3685:
3686: -- l_contract_count := l_contract_count + 1;
3901:
3902:
3903: EXCEPTION
3904: WHEN OTHERS THEN
3905: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3906: OKC_API.set_message
3907: (G_APP_NAME,
3908: G_UNEXPECTED_ERROR,
3909: G_SQLCODE_TOKEN,
3902:
3903: EXCEPTION
3904: WHEN OTHERS THEN
3905: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3906: OKC_API.set_message
3907: (G_APP_NAME,
3908: G_UNEXPECTED_ERROR,
3909: G_SQLCODE_TOKEN,
3910: SQLCODE,
4012:
4013:
4014: OKS_CONTRACT_HDR_PUB.update_header (
4015: p_api_version => l_api_version,
4016: p_init_msg_list => OKC_API.G_FALSE,
4017: x_return_status => l_return_status,
4018: x_msg_count => l_msg_count,
4019: x_msg_data => l_msg_data,
4020: p_khrv_tbl => l_khrv_tbl,
4023:
4024: End If; -- p_contact_id is not null
4025: EXCEPTION
4026: When Others Then
4027: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4028: OKC_API.set_message (G_APP_NAME,
4029: G_UNEXPECTED_ERROR,
4030: G_SQLCODE_TOKEN,
4031: SQLCODE,
4024: End If; -- p_contact_id is not null
4025: EXCEPTION
4026: When Others Then
4027: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4028: OKC_API.set_message (G_APP_NAME,
4029: G_UNEXPECTED_ERROR,
4030: G_SQLCODE_TOKEN,
4031: SQLCODE,
4032: G_SQLERRM_TOKEN,
4075: l_Commit Varchar2(3) ;
4076: l_Ctr_Grp_Rec CS_Counters_Pub.CtrGrp_Rec_Type;
4077: l_cascade_upd_to_instances Varchar2(1);
4078: BEGIN
4079: l_return_status := OKC_API.G_RET_STS_SUCCESS;
4080: FOR Cgp_Rec IN Cur_Cgp(P_KLine_Id)
4081: LOOP
4082: l_cgp_tbl(c_Cgp):=Cgp_Rec.counter_group_Id;
4083: c_Cgp:=c_Cgp+1;
4100: p_ctr_grp_rec =>l_ctr_grp_rec,
4101: p_cascade_upd_to_instances =>l_cascade_upd_to_instances,
4102: x_object_version_number => x_object_version_number
4103: );
4104: if l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4105: OKC_API.set_message(
4106: G_APP_NAME,
4107: G_UNEXPECTED_ERROR,
4108: G_SQLCODE_TOKEN,
4101: p_cascade_upd_to_instances =>l_cascade_upd_to_instances,
4102: x_object_version_number => x_object_version_number
4103: );
4104: if l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4105: OKC_API.set_message(
4106: G_APP_NAME,
4107: G_UNEXPECTED_ERROR,
4108: G_SQLCODE_TOKEN,
4109: SQLCODE,
4120: EXCEPTION
4121: When G_EXCEPTION_HALT_VALIDATION Then
4122: x_Return_Status:=l_Return_status;
4123: WHEN OTHERS THEN
4124: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4125: OKC_API.set_message
4126: (G_APP_NAME,
4127: G_UNEXPECTED_ERROR,
4128: G_SQLCODE_TOKEN,
4121: When G_EXCEPTION_HALT_VALIDATION Then
4122: x_Return_Status:=l_Return_status;
4123: WHEN OTHERS THEN
4124: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4125: OKC_API.set_message
4126: (G_APP_NAME,
4127: G_UNEXPECTED_ERROR,
4128: G_SQLCODE_TOKEN,
4129: SQLCODE,
4167: cursor get_oks_line(l_cle_id number) is
4168: select id from oks_k_lines_b where cle_id = l_cle_id;
4169:
4170: Begin
4171: l_return_status := OKC_API.G_RET_STS_SUCCESS;
4172:
4173: l_temp_tbl(l_temp_counter) := p_cle_id;
4174: l_temp_counter := l_temp_counter + 1;
4175:
4198: x_msg_count => l_msg_count,
4199: x_msg_data => l_msg_data,
4200: p_klnv_rec => l_klnv_rec);
4201:
4202: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4203: OKC_API.set_message(
4204: G_APP_NAME,
4205: G_UNEXPECTED_ERROR,
4206: G_SQLCODE_TOKEN,
4199: x_msg_data => l_msg_data,
4200: p_klnv_rec => l_klnv_rec);
4201:
4202: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4203: OKC_API.set_message(
4204: G_APP_NAME,
4205: G_UNEXPECTED_ERROR,
4206: G_SQLCODE_TOKEN,
4207: SQLCODE,
4220: EXCEPTION
4221: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4222: x_return_status := l_return_status;
4223: WHEN OTHERS THEN
4224: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4225: OKC_API.set_message
4226: (G_APP_NAME,
4227: G_UNEXPECTED_ERROR,
4228: G_SQLCODE_TOKEN,
4221: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4222: x_return_status := l_return_status;
4223: WHEN OTHERS THEN
4224: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4225: OKC_API.set_message
4226: (G_APP_NAME,
4227: G_UNEXPECTED_ERROR,
4228: G_SQLCODE_TOKEN,
4229: SQLCODE,
4233: End Delete_OKS_Line;
4234:
4235: PROCEDURE Delete_Contract (
4236: p_api_version IN NUMBER,
4237: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4238: p_chr_id IN NUMBER,
4239: x_return_status OUT NOCOPY VARCHAR2,
4240: x_msg_count OUT NOCOPY NUMBER,
4241: x_msg_data OUT NOCOPY VARCHAR2) IS
4281: TYPE line_Tbl_Type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
4282: l_Line_tbl line_tbl_Type;
4283: BEGIN
4284:
4285: l_return_status := OKC_API.G_RET_STS_SUCCESS;
4286:
4287: -- Input Validation
4288: IF p_chr_id IS NULL THEN
4289: OKC_API.set_message(
4285: l_return_status := OKC_API.G_RET_STS_SUCCESS;
4286:
4287: -- Input Validation
4288: IF p_chr_id IS NULL THEN
4289: OKC_API.set_message(
4290: G_APP_NAME,
4291: G_UNEXPECTED_ERROR,
4292: G_SQLCODE_TOKEN,
4293: SQLCODE,
4293: SQLCODE,
4294: G_SQLERRM_TOKEN,
4295: 'Header id passed to Delete_Contract is Null'
4296: );
4297: l_return_status := OKC_API.G_RET_STS_ERROR;
4298: RAISE G_EXCEPTION_HALT_VALIDATION;
4299: END IF;
4300: ---------- Get all lines -------------
4301: n:=1;
4315: Delete_OKS_Line(
4316: p_cle_id => topline_rec.id,
4317: x_return_status => l_return_status);
4318:
4319: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4320: OKC_API.set_message(
4321: G_APP_NAME,
4322: G_UNEXPECTED_ERROR,
4323: G_SQLCODE_TOKEN,
4316: p_cle_id => topline_rec.id,
4317: x_return_status => l_return_status);
4318:
4319: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4320: OKC_API.set_message(
4321: G_APP_NAME,
4322: G_UNEXPECTED_ERROR,
4323: G_SQLCODE_TOKEN,
4324: SQLCODE,
4339: x_return_status => l_return_status,
4340: x_msg_count => l_msg_count,
4341: x_msg_data => l_msg_data,
4342: P_Line_Id => topline_rec.id);
4343: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4344: OKC_API.set_message(
4345: G_APP_NAME,
4346: G_UNEXPECTED_ERROR,
4347: G_SQLCODE_TOKEN,
4340: x_msg_count => l_msg_count,
4341: x_msg_data => l_msg_data,
4342: P_Line_Id => topline_rec.id);
4343: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4344: OKC_API.set_message(
4345: G_APP_NAME,
4346: G_UNEXPECTED_ERROR,
4347: G_SQLCODE_TOKEN,
4348: SQLCODE,
4372: x_return_status => l_return_status,
4373: x_msg_count => l_msg_count,
4374: x_msg_data => l_msg_data,
4375: p_gvev_tbl => l_gvev_tbl_in);
4376: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4377: OKC_API.set_message(
4378: G_APP_NAME,
4379: G_UNEXPECTED_ERROR,
4380: G_SQLCODE_TOKEN,
4373: x_msg_count => l_msg_count,
4374: x_msg_data => l_msg_data,
4375: p_gvev_tbl => l_gvev_tbl_in);
4376: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4377: OKC_API.set_message(
4378: G_APP_NAME,
4379: G_UNEXPECTED_ERROR,
4380: G_SQLCODE_TOKEN,
4381: SQLCODE,
4395: l_Line_Id:=l_line_tbl(v_Index);
4396: Undo_Counters( P_KLine_Id => l_Line_Id,
4397: x_return_status => l_return_status,
4398: x_msg_data => l_msg_data);
4399: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4400: OKC_API.set_message(
4401: G_APP_NAME,
4402: G_UNEXPECTED_ERROR,
4403: G_SQLCODE_TOKEN,
4396: Undo_Counters( P_KLine_Id => l_Line_Id,
4397: x_return_status => l_return_status,
4398: x_msg_data => l_msg_data);
4399: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4400: OKC_API.set_message(
4401: G_APP_NAME,
4402: G_UNEXPECTED_ERROR,
4403: G_SQLCODE_TOKEN,
4404: SQLCODE,
4420: x_return_status => l_return_status,
4421: x_msg_count => l_msg_count,
4422: x_msg_data => l_msg_data,
4423: p_khrv_rec => l_khrv_rec);
4424: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4425: OKC_API.set_message(
4426: G_APP_NAME,
4427: G_UNEXPECTED_ERROR,
4428: G_SQLCODE_TOKEN,
4421: x_msg_count => l_msg_count,
4422: x_msg_data => l_msg_data,
4423: p_khrv_rec => l_khrv_rec);
4424: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4425: OKC_API.set_message(
4426: G_APP_NAME,
4427: G_UNEXPECTED_ERROR,
4428: G_SQLCODE_TOKEN,
4429: SQLCODE,
4439: x_return_status =>l_return_status,
4440: x_msg_count =>l_msg_count,
4441: x_msg_data =>l_msg_data,
4442: p_chr_id => p_chr_id);
4443: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4444: OKC_API.set_message(
4445: G_APP_NAME,
4446: G_UNEXPECTED_ERROR,
4447: G_SQLCODE_TOKEN,
4440: x_msg_count =>l_msg_count,
4441: x_msg_data =>l_msg_data,
4442: p_chr_id => p_chr_id);
4443: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4444: OKC_API.set_message(
4445: G_APP_NAME,
4446: G_UNEXPECTED_ERROR,
4447: G_SQLCODE_TOKEN,
4448: SQLCODE,
4460: x_return_status =>l_return_status,
4461: x_msg_count =>l_msg_count,
4462: x_msg_data =>l_msg_data,
4463: p_chrv_rec =>l_chrv_rec);
4464: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4465: OKC_API.set_message(
4466: G_APP_NAME,
4467: G_UNEXPECTED_ERROR,
4468: G_SQLCODE_TOKEN,
4461: x_msg_count =>l_msg_count,
4462: x_msg_data =>l_msg_data,
4463: p_chrv_rec =>l_chrv_rec);
4464: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4465: OKC_API.set_message(
4466: G_APP_NAME,
4467: G_UNEXPECTED_ERROR,
4468: G_SQLCODE_TOKEN,
4469: SQLCODE,
4479: EXCEPTION
4480: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4481: x_return_status:=l_return_status;
4482: WHEN OTHERS THEN
4483: OKC_API.set_message
4484: (G_APP_NAME,
4485: G_UNEXPECTED_ERROR,
4486: G_SQLCODE_TOKEN,
4487: SQLCODE,
4486: G_SQLCODE_TOKEN,
4487: SQLCODE,
4488: G_SQLERRM_TOKEN,
4489: SQLERRM);
4490: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4491:
4492: End Delete_Contract;
4493:
4494:
4493:
4494:
4495: PROCEDURE Delete_Contract_Line(
4496: p_api_version IN NUMBER,
4497: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4498: p_line_id IN NUMBER,
4499: x_return_status OUT NOCOPY VARCHAR2,
4500: x_msg_count OUT NOCOPY NUMBER,
4501: x_msg_data OUT NOCOPY VARCHAR2) IS
4524: v_Index number;
4525: l_clev_rec OKC_CLE_PVT.clev_rec_type;
4526:
4527: Begin
4528: l_return_status := OKC_API.G_RET_STS_SUCCESS;
4529:
4530: Open get_line_type(p_line_id);
4531: Fetch get_line_type into l_lse_id, l_parent_id;
4532: Close get_line_type;
4542: x_msg_count => l_msg_count,
4543: x_msg_data => l_msg_data,
4544: P_service_Line_Id => p_line_id);
4545:
4546: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4547: OKC_API.set_message(
4548: G_APP_NAME,
4549: G_UNEXPECTED_ERROR,
4550: G_SQLCODE_TOKEN,
4543: x_msg_data => l_msg_data,
4544: P_service_Line_Id => p_line_id);
4545:
4546: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4547: OKC_API.set_message(
4548: G_APP_NAME,
4549: G_UNEXPECTED_ERROR,
4550: G_SQLCODE_TOKEN,
4551: SQLCODE,
4565: OKS_BILL_SCH.Del_Rul_Elements(p_top_line_id => p_line_id,
4566: x_return_status => l_return_status,
4567: x_msg_count => l_msg_count,
4568: x_msg_data => l_msg_data);
4569: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4570: OKC_API.set_message(
4571: G_APP_NAME,
4572: G_UNEXPECTED_ERROR,
4573: G_SQLCODE_TOKEN,
4566: x_return_status => l_return_status,
4567: x_msg_count => l_msg_count,
4568: x_msg_data => l_msg_data);
4569: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4570: OKC_API.set_message(
4571: G_APP_NAME,
4572: G_UNEXPECTED_ERROR,
4573: G_SQLCODE_TOKEN,
4574: SQLCODE,
4584: x_return_status => l_return_status,
4585: x_msg_count => l_msg_count,
4586: x_msg_data => l_msg_data
4587: );
4588: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4589: OKC_API.set_message(
4590: G_APP_NAME,
4591: G_UNEXPECTED_ERROR,
4592: G_SQLCODE_TOKEN,
4585: x_msg_count => l_msg_count,
4586: x_msg_data => l_msg_data
4587: );
4588: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4589: OKC_API.set_message(
4590: G_APP_NAME,
4591: G_UNEXPECTED_ERROR,
4592: G_SQLCODE_TOKEN,
4593: SQLCODE,
4605: Delete_OKS_Line(
4606: p_cle_id => p_line_id,
4607: x_return_status => l_return_status);
4608:
4609: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4610: OKC_API.set_message(
4611: G_APP_NAME,
4612: G_UNEXPECTED_ERROR,
4613: G_SQLCODE_TOKEN,
4606: p_cle_id => p_line_id,
4607: x_return_status => l_return_status);
4608:
4609: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4610: OKC_API.set_message(
4611: G_APP_NAME,
4612: G_UNEXPECTED_ERROR,
4613: G_SQLCODE_TOKEN,
4614: SQLCODE,
4626: x_msg_count => l_msg_count,
4627: x_msg_data => l_msg_data,
4628: --p_clev_rec => l_clev_rec);
4629: p_line_id => p_line_id);
4630: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4631: OKC_API.set_message(
4632: G_APP_NAME,
4633: G_UNEXPECTED_ERROR,
4634: G_SQLCODE_TOKEN,
4627: x_msg_data => l_msg_data,
4628: --p_clev_rec => l_clev_rec);
4629: p_line_id => p_line_id);
4630: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
4631: OKC_API.set_message(
4632: G_APP_NAME,
4633: G_UNEXPECTED_ERROR,
4634: G_SQLCODE_TOKEN,
4635: SQLCODE,
4646: EXCEPTION
4647: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4648: x_return_status := l_return_status;
4649: WHEN OTHERS THEN
4650: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4651: OKC_API.set_message
4652: (G_APP_NAME,
4653: G_UNEXPECTED_ERROR,
4654: G_SQLCODE_TOKEN,
4647: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4648: x_return_status := l_return_status;
4649: WHEN OTHERS THEN
4650: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4651: OKC_API.set_message
4652: (G_APP_NAME,
4653: G_UNEXPECTED_ERROR,
4654: G_SQLCODE_TOKEN,
4655: SQLCODE,
4661: -- New procedure added to find if a contract thats going to be deleted
4662: -- has lines or covered levels that has been renewed on another contract
4663: PROCEDURE Delete_Transfer_Contract(
4664: p_api_version IN NUMBER,
4665: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4666: p_chr_id IN NUMBER,
4667: p_cle_id IN NUMBER DEFAULT NULL,
4668: p_intent IN VARCHAR2, -- new
4669: x_contract_number OUT NOCOPY VARCHAR2,
4774: END IF; -- IF nvl(p_intent, 'X') = 'T'
4775: END IF;
4776: EXCEPTION
4777: WHEN OTHERS THEN
4778: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4779: OKC_API.set_message
4780: (G_APP_NAME,
4781: G_UNEXPECTED_ERROR,
4782: G_SQLCODE_TOKEN,
4775: END IF;
4776: EXCEPTION
4777: WHEN OTHERS THEN
4778: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4779: OKC_API.set_message
4780: (G_APP_NAME,
4781: G_UNEXPECTED_ERROR,
4782: G_SQLCODE_TOKEN,
4783: SQLCODE,
5263: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_oks_entities', 'done');
5264: END IF;
5265: END IF;
5266:
5267: --call OKC API to delete all OKC lines and entities. This deletes all OKC entities and
5268: --the OKC sublines
5269: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5270: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_okc_entities', 'calling OKC_CONTRACT_PVT.delete_contract_line, p_line_id='||p_line_id);
5271: END IF;