[Home] [Help]
12: G_OKL_CANCELLED_STS_CODE CONSTANT VARCHAR2(30) := 'ABANDONED';
13:
14:
15:
16: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
17: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
19: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
20: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
13:
14:
15:
16: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
17: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
19: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
20: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
21: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
16: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
17: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
19: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
20: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
21: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
22: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
23: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
24: --------------------------------------------------------------------------------
17: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
19: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
20: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
21: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
22: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
23: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
24: --------------------------------------------------------------------------------
25: --GLOBAL Message constants added for okl line delete checks
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
19: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
20: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
21: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
22: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
23: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
24: --------------------------------------------------------------------------------
25: --GLOBAL Message constants added for okl line delete checks
26: --------------------------------------------------------------------------------
19: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
20: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
21: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
22: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
23: G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
24: --------------------------------------------------------------------------------
25: --GLOBAL Message constants added for okl line delete checks
26: --------------------------------------------------------------------------------
27: G_BOOKED_KLE_DELETE CONSTANT VARCHAR2(200) := 'OKL_LLA_BOOKED_KLE_DELETE';
165: p_parameters => l_parameter_list);
166:
167: EXCEPTION
168: WHEN OTHERS THEN
169: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: END raise_business_event;
172:
173: /*
166:
167: EXCEPTION
168: WHEN OTHERS THEN
169: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
171: END raise_business_event;
172:
173: /*
174: -- vthiruva, 08/19/2004
188: -- Start of comments
189: --
190: Procedure Inactivate_Streams
191: ( p_api_version IN NUMBER,
192: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
193: x_return_status OUT NOCOPY VARCHAR2,
194: x_msg_count OUT NOCOPY NUMBER,
195: x_msg_data OUT NOCOPY VARCHAR2,
196: p_cle_id IN NUMBER) is
213: l_stream_update_err EXCEPTION;
214:
215: Begin
216: -----
217: x_return_status := OKL_API.G_RET_STS_SUCCESS;
218: i := 0;
219: Open strms_csr(cleId => p_cle_id);
220: Loop
221: Fetch strms_csr into l_strms_rec;
235: x_msg_count => x_msg_count,
236: x_msg_data => x_msg_data,
237: p_stmv_tbl => l_stmv_tbl,
238: x_stmv_tbl => x_stmv_tbl);
239: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
240: raise l_stream_update_err;
241: END IF;
242: l_stmv_tbl.delete;
243: End If;
348: --Bug# 4091789 End
349: -------------
350:
351: Begin
352: x_return_status := OKL_API.G_RET_STS_SUCCESS;
353:
354: --check if contract is booked
355: Open Chr_sts_crs(p_cle_id => p_cle_id);
356: Fetch Chr_sts_crs into l_sts_code;
355: Open Chr_sts_crs(p_cle_id => p_cle_id);
356: Fetch Chr_sts_crs into l_sts_code;
357: Close Chr_sts_crs;
358: If l_sts_code = G_OKL_BOOKED_STS_CODE Then
359: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
360: p_msg_name => G_BOOKED_KLE_DELETE);
361: x_return_status := OKL_API.G_RET_STS_ERROR;
362: l_deletion_type := 'N';
363: Raise G_EXCEPTION_HALT_VALIDATION;
357: Close Chr_sts_crs;
358: If l_sts_code = G_OKL_BOOKED_STS_CODE Then
359: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
360: p_msg_name => G_BOOKED_KLE_DELETE);
361: x_return_status := OKL_API.G_RET_STS_ERROR;
362: l_deletion_type := 'N';
363: Raise G_EXCEPTION_HALT_VALIDATION;
364: End If;
365:
372: End If;
373: Close Ever_Booked_crs;
374:
375: If l_chr_ever_booked = 'Y' Then
376: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
377: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
378: x_return_status := OKL_API.G_RET_STS_ERROR;
379: l_deletion_type := 'N';
380: Raise G_EXCEPTION_HALT_VALIDATION;
374:
375: If l_chr_ever_booked = 'Y' Then
376: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
377: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
378: x_return_status := OKL_API.G_RET_STS_ERROR;
379: l_deletion_type := 'N';
380: Raise G_EXCEPTION_HALT_VALIDATION;
381: End If;
382:
389: End If;
390: Close Funding_Exists_crs;
391:
392: If l_funding_exists = 'Y' Then
393: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
394: p_msg_name => G_FUNDED_KLE_DELETE);
395: x_return_status := OKL_API.G_RET_STS_ERROR;
396: l_deletion_type := 'N';
397: Raise G_EXCEPTION_HALT_VALIDATION;
391:
392: If l_funding_exists = 'Y' Then
393: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
394: p_msg_name => G_FUNDED_KLE_DELETE);
395: x_return_status := OKL_API.G_RET_STS_ERROR;
396: l_deletion_type := 'N';
397: Raise G_EXCEPTION_HALT_VALIDATION;
398: End If;
399:
404: l_rbk_asst_rec := Null;
405: for l_rbk_asst_rec in l_rbk_asst_csr(p_cle_id => p_cle_id)
406: loop
407: If NVL(l_rbk_asst_rec.rbk_asst_flag,'N') = 'Y' then
408: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
409: p_msg_name => 'OKL_LA_REBOOK_LINE_DELETE',
410: p_token1 => 'ASSET_NUMBER',
411: p_token1_value => l_rbk_asst_rec.name);
412: x_return_status := OKL_API.G_RET_STS_ERROR;
408: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
409: p_msg_name => 'OKL_LA_REBOOK_LINE_DELETE',
410: p_token1 => 'ASSET_NUMBER',
411: p_token1_value => l_rbk_asst_rec.name);
412: x_return_status := OKL_API.G_RET_STS_ERROR;
413: l_deletion_type := 'N';
414: Raise G_EXCEPTION_HALT_VALIDATION;
415: End If;
416: End Loop;
439: -- no processing necessary; validation can continue with the next column
440: x_deletion_type := l_deletion_type;
441: when OTHERS then
442: -- store SQL error message on message stack for caller
443: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
444: p_msg_name => G_UNEXPECTED_ERROR,
445: p_token1 => g_sqlcode_token,
446: p_token1_value => sqlcode,
447: p_token2 => g_sqlerrm_token,
460: If streams_exist_crs%ISOPEN Then
461: Close streams_exist_crs;
462: End If;
463: x_deletion_type := 'N';
464: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
465: END kle_delete_allowed;
466:
467: -- Start of comments
468: --
588:
589:
590: Begin
591:
592: x_return_status := OKL_API.G_RET_STS_SUCCESS;
593: l_modfn_mode := 'N';
594: l_new_start_date := p_new_start_date;
595: l_new_end_date := p_new_end_date;
596:
604: Raise G_EXCEPTION_HALT_VALIDATION;
605: End If;
606: Close chk_lease_csr;
607:
608: If l_new_start_date is null or l_new_start_date = OKL_API.G_MISS_DATE Then
609: l_new_start_date := l_start_date;
610: End If;
611:
612: If l_new_end_date is null or l_new_end_date = OKL_API.G_MISS_DATE Then
608: If l_new_start_date is null or l_new_start_date = OKL_API.G_MISS_DATE Then
609: l_new_start_date := l_start_date;
610: End If;
611:
612: If l_new_end_date is null or l_new_end_date = OKL_API.G_MISS_DATE Then
613: l_new_end_date := l_end_date;
614: End If;
615:
616:
654:
655: --if not restricted then check if the change will satisfy pdt start end dates
656: If l_modfn_mode <> 'R' Then
657:
658: IF (p_new_pdt_id = OKL_API.G_MISS_NUM OR p_new_pdt_id IS NULL) THEN -- Bug# 9115610 - Added new condition
659: Open pdt_dts_csr(p_chr_id => p_chr_id);
660: Fetch pdt_dts_csr into l_pdt_from_date,
661: l_pdt_to_date;
662: If pdt_dts_csr%NOTFOUND Then
703: --bug# 2821383: For rebook copy contracts end data should be from original contract
704: If l_rbk_cpy <> 'Y' then
705: If trunc(l_new_end_date) < trunc(l_end_date)
706: or (p_new_term < l_term_duration) Then
707: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
708: p_msg_name => G_TERM_REDUCTION_NOT_ALLOWED
709: );
710: x_return_status := OKL_API.G_RET_STS_ERROR;
711: Raise G_EXCEPTION_HALT_VALIDATION;
706: or (p_new_term < l_term_duration) Then
707: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
708: p_msg_name => G_TERM_REDUCTION_NOT_ALLOWED
709: );
710: x_return_status := OKL_API.G_RET_STS_ERROR;
711: Raise G_EXCEPTION_HALT_VALIDATION;
712: End If;
713: End If; --bug # 2821383
714:
724: end if;
725: Close orig_date_csr;
726:
727: If trunc(l_new_start_date) < trunc(l_orig_start_date) Then
728: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
729: p_msg_name => G_RBK_NEW_START_DATE,
730: p_token1 => g_effective_from_token,
731: p_token1_value => to_char(l_orig_start_date,'DD-MON-YYYY')
732: );
729: p_msg_name => G_RBK_NEW_START_DATE,
730: p_token1 => g_effective_from_token,
731: p_token1_value => to_char(l_orig_start_date,'DD-MON-YYYY')
732: );
733: x_return_status := OKL_API.G_RET_STS_ERROR;
734: Raise G_EXCEPTION_HALT_VALIDATION;
735: End If;
736: --Bug#2821383 :check on term reduction for rbook copy contract should be with original end date
737: If trunc(l_new_end_date) < trunc(l_orig_end_date)
735: End If;
736: --Bug#2821383 :check on term reduction for rbook copy contract should be with original end date
737: If trunc(l_new_end_date) < trunc(l_orig_end_date)
738: or (p_new_term < l_orig_term_duration) Then
739: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
740: p_msg_name => G_TERM_REDUCTION_NOT_ALLOWED
741: );
742: x_return_status := OKL_API.G_RET_STS_ERROR;
743: Raise G_EXCEPTION_HALT_VALIDATION;
738: or (p_new_term < l_orig_term_duration) Then
739: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
740: p_msg_name => G_TERM_REDUCTION_NOT_ALLOWED
741: );
742: x_return_status := OKL_API.G_RET_STS_ERROR;
743: Raise G_EXCEPTION_HALT_VALIDATION;
744: End If; --Bug# 2821383 End
745: End If;
746:
754: end if;
755: Close rbk_date_csr;
756:
757: If l_rbk_date < l_new_start_date then
758: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
759: p_msg_name => G_RBK_DATE_LESS, --new message needed
760: p_token1 => g_rebook_date_token,
761: p_token1_value => to_char(l_rbk_date,'DD-MON-YYYY')
762: );
759: p_msg_name => G_RBK_DATE_LESS, --new message needed
760: p_token1 => g_rebook_date_token,
761: p_token1_value => to_char(l_rbk_date,'DD-MON-YYYY')
762: );
763: x_return_status := OKL_API.G_RET_STS_ERROR;
764: Raise G_EXCEPTION_HALT_VALIDATION;
765: End If;
766: End If;
767:
765: End If;
766: End If;
767:
768: ElsIF (l_modfn_mode = 'P') Then
769: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
770: p_msg_name => G_PRODUCT_EFFECTIVITY
771: );
772: x_return_status := OKL_API.G_RET_STS_ERROR;
773: Raise G_EXCEPTION_HALT_VALIDATION;
768: ElsIF (l_modfn_mode = 'P') Then
769: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
770: p_msg_name => G_PRODUCT_EFFECTIVITY
771: );
772: x_return_status := OKL_API.G_RET_STS_ERROR;
773: Raise G_EXCEPTION_HALT_VALIDATION;
774: End If;
775:
776: x_modfn_mode := l_modfn_mode;
781: x_modfn_mode := l_modfn_mode;
782:
783: when OTHERS then
784: -- store SQL error message on message stack for caller
785: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
786: p_msg_name => G_UNEXPECTED_ERROR,
787: p_token1 => g_sqlcode_token,
788: p_token1_value => sqlcode,
789: p_token2 => g_sqlerrm_token,
802: IF pdt_dts_csr%ISOPEN Then
803: Close pdt_dts_csr;
804: End If;
805:
806: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
807: x_modfn_mode := 'N';
808: END term_modfn;
809:
810: -- Start of comments
829:
830: l_template_yn okc_k_headers_b.template_yn%TYPE;
831:
832: BEGIN
833: x_return_status := OKL_API.G_RET_STS_SUCCESS;
834: --check if contract template creation is allowed
835: IF p_chr_id is not null Then --it is an update
836: --get old value of template y/N flag
837: Open chk_template_csr(p_chr_id => p_chr_id);
843: Elsif p_chr_id is null Then
844: l_template_yn := 'N';
845: End If;
846:
847: --If p_template_yn is null OR p_template_yn = OKL_API.G_MISS_CHAR Then
848: -- l_template_yn := p_template_yn;
849: --End If;
850:
851: IF p_template_yn is Null OR p_template_yn = OKL_API.G_MISS_CHAR Then
847: --If p_template_yn is null OR p_template_yn = OKL_API.G_MISS_CHAR Then
848: -- l_template_yn := p_template_yn;
849: --End If;
850:
851: IF p_template_yn is Null OR p_template_yn = OKL_API.G_MISS_CHAR Then
852: Null;
853: Else
854: IF p_template_yn <> l_template_yn then
855: IF FND_PROFILE.VALUE('OKL_ALLOW_K_TEMPLATE_CREATE') = 'Y' Then
854: IF p_template_yn <> l_template_yn then
855: IF FND_PROFILE.VALUE('OKL_ALLOW_K_TEMPLATE_CREATE') = 'Y' Then
856: Null;
857: ElsIf FND_PROFILE.VALUE('OKL_ALLOW_K_TEMPLATE_CREATE') = 'N' Then
858: x_return_status := OKL_API.G_RET_STS_ERROR;
859: End If;
860: End If;
861: END IF;
862:
861: END IF;
862:
863: EXCEPTION
864: when OTHERS then
865: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
866: END template_create_allowed;
867:
868: -- Start of comments
869: -- Bug # 2522268
985: lx_adpv_rec OKL_TXD_ASSETS_PUB.adpv_rec_type;
986:
987:
988: Begin
989: x_return_status := OKL_API.G_RET_STS_SUCCESS;
990: l_cle_id := p_cle_id;
991: --dbms_output.put_line('outside Asset_Logical_Delete:'||to_char(l_cle_id));
992: l_fin_asst := 'N';
993: --find out if p_cle_id is financial asset line
1046: p_restricted_update => OKC_API.G_FALSE,
1047: p_clev_rec => l_clev_rec,
1048: x_clev_rec => lx_clev_rec);
1049:
1050: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1051: RAISE G_EXCEPTION_HALT_PROCESS;
1052: End If;
1053:
1054: --update asset number on txl
1067: x_msg_data => x_msg_data,
1068: p_tlpv_rec => l_tlpv_rec,
1069: x_tlpv_rec => lx_tlpv_rec);
1070: --dbms_output.put_line('after updating txl assets for asset number');
1071: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1072: RAISE G_EXCEPTION_HALT_PROCESS;
1073: End If;
1074: End IF;
1075: End Loop;
1092: x_msg_data => x_msg_data,
1093: p_adpv_rec => l_adpv_rec,
1094: x_adpv_rec => lx_adpv_rec);
1095:
1096: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1097: RAISE G_EXCEPTION_HALT_PROCESS;
1098: End If;
1099:
1100: End IF;
1153: End If;
1154: If c_asset_no%ISOPEN Then
1155: CLOSE c_asset_no;
1156: End If;
1157: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1158: END Asset_logical_Delete;
1159: --Bug # 2522268 End
1160:
1161: -- Start of comments
1210: l_clev_rec_out OKL_OKC_MIGRATION_PVT.clev_rec_type;
1211: l_deletion_type Varchar2(1);
1212:
1213: Begin
1214: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1215: l_cle_id := p_cle_id;
1216: l_deletion_type := p_deletion_type;
1217: --dbms_output.put_line('outside Link_asset_Delete:'||to_char(l_cle_id));
1218: l_fin_asst := 'N';
1243: x_msg_data => x_msg_data,
1244: p_clev_rec => l_clev_rec,
1245: x_clev_rec => l_clev_rec_out
1246: );
1247: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1248: RAISE G_EXCEPTION_HALT_PROCESS;
1249: End If;
1250:
1251: ElsIf l_deletion_type = 'P' Then
1259: x_msg_data => x_msg_data,
1260: p_line_id => l_lnk_cle_id
1261: );
1262:
1263: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1264: RAISE G_EXCEPTION_HALT_PROCESS;
1265: End If;
1266: End If;
1267: END LOOP;
1284: End If;
1285: If l_lnk_ast_csr%ISOPEN Then
1286: CLOSE l_lnk_ast_csr;
1287: End If;
1288: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1289: END Linked_Asset_Delete;
1290: --------------------------------------------------------------------------------
1291: --Start of comments
1292: -- Bug#2727161 : 11.5.9 Enhancment
1336: Procedure get_line_dates(p_clev_rec IN okl_okc_migration_pvt.clev_rec_type,
1337: x_return_status OUT NOCOPY Varchar2,
1338: x_clev_rec OUT NOCOPY okl_okc_migration_pvt.clev_rec_type) is
1339:
1340: l_return_status Varchar2(1) default OKL_API.G_RET_STS_SUCCESS;
1341: --cursor to get contract header dates
1342: cursor l_chr_csr (p_chr_id in number) is
1343: select chrb.start_date,
1344: chrb.end_date,
1393: --
1394:
1395: l_rbk_date okl_trx_contracts.DATE_TRANSACTION_OCCURRED%TYPE default Null;
1396: begin
1397: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1398: l_clev_rec := p_clev_rec;
1399:
1400: open l_chr_csr(p_chr_id => l_clev_rec.dnz_chr_id);
1401: fetch l_chr_csr into l_chr_start_date,
1429: close l_lse_csr;
1430: --If l_lty_code in ('SOLD_SERVICE','FEE','USAGE','LINK_FEE_ASSET','LINK_SERV_ASSET','LINK_USAGE_ASSET') then
1431: if l_lse_type = 'TLS' then
1432:
1433: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1434: If nvl(l_rbk_cpy,'N') = 'Y' AND nvl(l_rbk_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
1435: l_clev_rec.start_date := l_rbk_date;
1436: Else
1437: l_clev_rec.start_date := l_chr_start_date;
1430: --If l_lty_code in ('SOLD_SERVICE','FEE','USAGE','LINK_FEE_ASSET','LINK_SERV_ASSET','LINK_USAGE_ASSET') then
1431: if l_lse_type = 'TLS' then
1432:
1433: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1434: If nvl(l_rbk_cpy,'N') = 'Y' AND nvl(l_rbk_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
1435: l_clev_rec.start_date := l_rbk_date;
1436: Else
1437: l_clev_rec.start_date := l_chr_start_date;
1438: End If;
1436: Else
1437: l_clev_rec.start_date := l_chr_start_date;
1438: End If;
1439: End If;
1440: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1441: l_clev_rec.end_date := l_chr_end_date;
1442: End If;
1443: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1444: l_clev_rec.currency_code := l_chr_curr_code;
1439: End If;
1440: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1441: l_clev_rec.end_date := l_chr_end_date;
1442: End If;
1443: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1444: l_clev_rec.currency_code := l_chr_curr_code;
1445: End If;
1446: If nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1447: l_clev_rec.sts_code := l_chr_sts_code;
1442: End If;
1443: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1444: l_clev_rec.currency_code := l_chr_curr_code;
1445: End If;
1446: If nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1447: l_clev_rec.sts_code := l_chr_sts_code;
1448: End If;
1449:
1450: elsif l_lse_type = 'SLS' then
1453: l_cle_end_date,
1454: l_cle_curr_code,
1455: l_cle_sts_code;
1456: close l_cle_csr;
1457: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1458: l_clev_rec.start_date := l_cle_start_date;
1459: End If;
1460: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1461: l_clev_rec.end_date := l_cle_end_date;
1456: close l_cle_csr;
1457: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1458: l_clev_rec.start_date := l_cle_start_date;
1459: End If;
1460: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1461: l_clev_rec.end_date := l_cle_end_date;
1462: End If;
1463: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1464: l_clev_rec.currency_code := l_cle_curr_code;
1459: End If;
1460: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1461: l_clev_rec.end_date := l_cle_end_date;
1462: End If;
1463: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1464: l_clev_rec.currency_code := l_cle_curr_code;
1465: End If;
1466: If nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1467: l_clev_rec.sts_code := l_cle_sts_code;
1462: End If;
1463: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1464: l_clev_rec.currency_code := l_cle_curr_code;
1465: End If;
1466: If nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1467: l_clev_rec.sts_code := l_cle_sts_code;
1468: End If;
1469:
1470: end if;
1485: end if;
1486: if rbk_date_csr%ISOPEN then
1487: close rbk_date_csr;
1488: end if;
1489: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1490: end get_line_dates;
1491: --End Bug# 3143522 - Subsidies - extra enhancement to auto-populate line dates
1492: --------------------------------------------------------------------------------
1493: --Bug# 3124577 : Procedure Create_OKC_CURRENCY_RULE is removed for
1554:
1555: l_rbk_cpy Varchar2(1) default 'N';
1556:
1557: BEGIN
1558: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1559: l_chrv_rec := p_chrv_rec;
1560: l_khrv_rec := p_khrv_rec;
1561:
1562: --Check if contract is rebook copy
1573: Else
1574: If l_chrv_rec.currency_code <> l_orig_curr_code OR
1575: l_khrv_rec.currency_conversion_type <> l_orig_curr_conv_type OR
1576: l_khrv_rec.currency_conversion_rate <> l_orig_curr_conv_rate Then
1577: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1578: p_msg_name => G_REBOOK_CURRENCY_MODFN);
1579: x_return_status := OKL_API.G_RET_STS_ERROR;
1580: raise currency_validation_failed;
1581: Else
1575: l_khrv_rec.currency_conversion_type <> l_orig_curr_conv_type OR
1576: l_khrv_rec.currency_conversion_rate <> l_orig_curr_conv_rate Then
1577: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1578: p_msg_name => G_REBOOK_CURRENCY_MODFN);
1579: x_return_status := OKL_API.G_RET_STS_ERROR;
1580: raise currency_validation_failed;
1581: Else
1582: --do not allow change in currency conversion date
1583: l_khrv_rec.currency_conversion_date := l_orig_curr_conv_date;
1594: --dbms_output.put_line('Trans Curr Type: '|| p_khrv_rec.currency_conversion_type);
1595:
1596: IF (l_chrv_rec.currency_code IS NULL
1597: OR
1598: l_chrv_rec.currency_code = OKL_API.G_MISS_CHAR) THEN -- take functional currency
1599: l_chrv_rec.currency_code := l_func_currency;
1600: l_khrv_rec.currency_conversion_type := NULL;
1601: l_khrv_rec.currency_conversion_rate := NULL;
1602: l_khrv_rec.currency_conversion_date := NULL;
1885: l_rep_pdt_parameter_rec okl_setupproducts_pub.pdt_parameters_rec_type;
1886: --Bug# 3548044
1887:
1888: Begin
1889: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1890: l_pdt_id := p_pdt_id;
1891: l_pdt_date := p_chrv_rec.start_date;
1892: l_scs_code := p_chrv_rec.scs_code;
1893: l_pdtv_rec.id := l_pdt_id;
1902: If ger_orig_pdt_csr%NOTFOUND then
1903: null;
1904: Else
1905: If l_orig_pdt_id <> l_pdt_id Then
1906: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1907: p_msg_name => G_REBOOK_PRODUCT_MODFN);
1908: x_return_status := OKL_API.G_RET_STS_ERROR;
1909: raise l_error_condition;
1910: End If;
1904: Else
1905: If l_orig_pdt_id <> l_pdt_id Then
1906: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1907: p_msg_name => G_REBOOK_PRODUCT_MODFN);
1908: x_return_status := OKL_API.G_RET_STS_ERROR;
1909: raise l_error_condition;
1910: End If;
1911: End If;
1912: End If;
1921: p_product_date => l_pdt_date,
1922: p_pdt_parameter_rec => l_pdt_parameter_rec);
1923:
1924: --product param fetch returns errors
1925: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1926: Open get_pdtname_csr(p_pdt_id);
1927: Fetch get_pdtname_csr into l_pdt_name;
1928: If get_pdtname_csr%notfound then
1929: null;
1934: p_app_name => G_APP_NAME,
1935: p_msg_name => G_PROD_PARAMS_NOT_FOUND,
1936: p_token1 => G_PROD_NAME_TOKEN ,
1937: p_token1_value => l_pdt_name);
1938: x_return_status := OKL_API.G_RET_STS_ERROR;
1939: raise l_error_condition;
1940: End If;
1941:
1942: --product subcalss is null
1940: End If;
1941:
1942: --product subcalss is null
1943: If l_pdt_parameter_rec.product_subclass is Null or
1944: l_pdt_parameter_rec.product_subclass = OKL_API.G_MISS_CHAR Then
1945: --message for missing product subclass
1946: Open get_pdtname_csr(p_pdt_id);
1947: Fetch get_pdtname_csr into l_pdt_name;
1948: If get_pdtname_csr%notfound then
1955: p_token1 => G_PROD_PARAM_TOKEN,
1956: p_token1_value => 'Product Subclass',
1957: p_token2 => G_PROD_NAME_TOKEN,
1958: p_token2_value => l_pdt_name);
1959: x_return_status := OKL_API.G_RET_STS_ERROR;
1960: RAISE l_error_condition;
1961: End If;
1962:
1963: --product tax owner is null
1961: End If;
1962:
1963: --product tax owner is null
1964: If l_pdt_parameter_rec.tax_owner is Null or
1965: l_pdt_parameter_rec.tax_owner = OKL_API.G_MISS_CHAR Then
1966: If l_scs_code in ('LEASE','QUOTE') then
1967: --message for missing product tax owner
1968: Open get_pdtname_csr(p_pdt_id);
1969: Fetch get_pdtname_csr into l_pdt_name;
1976: p_token1 => G_PROD_PARAM_TOKEN,
1977: p_token1_value => 'Tax Owner',
1978: p_token2 => G_PROD_NAME_TOKEN,
1979: p_token2_value => l_pdt_name);
1980: x_return_status := OKL_API.G_RET_STS_ERROR;
1981: RAISE l_error_condition;
1982: -- tax owner may not be a mandatory quality
1983: End If;
1984: End If;
1984: End If;
1985:
1986: --product deal type is null
1987: If l_pdt_parameter_rec.deal_type is Null or
1988: l_pdt_parameter_rec.deal_type = OKL_API.G_MISS_CHAR Then
1989: If l_scs_code in ('LEASE','QUOTE') then
1990: --message for missing product tax owner
1991: Open get_pdtname_csr(p_pdt_id);
1992: Fetch get_pdtname_csr into l_pdt_name;
1999: p_token1 => G_PROD_PARAM_TOKEN,
2000: p_token1_value => 'Book Classification',
2001: p_token2 => G_PROD_NAME_TOKEN,
2002: p_token2_value => l_pdt_name);
2003: x_return_status := OKL_API.G_RET_STS_ERROR;
2004: RAISE l_error_condition;
2005: -- tax owner may not be a mandatory quality
2006: End If;
2007: null; -- deal type may not be a mandatory pdt quality
2021: p_token1 => G_CONTRACT_SUBCLASS_TOKEN,
2022: p_token1_value => l_scs_code,
2023: p_token2 => G_PROD_SUBCALSS_TOKEN,
2024: p_token2_value => l_pdt_parameter_rec.product_subclass);
2025: x_return_status := OKL_API.G_RET_STS_ERROR;
2026: RAISE l_error_condition;
2027: ElsIf l_scs_code in ('INVESTOR') and
2028: l_pdt_parameter_rec.product_subclass <> 'INVESTOR' then
2029: --Product and contract subclassess do not match
2037: p_token1 => G_CONTRACT_SUBCLASS_TOKEN,
2038: p_token1_value => l_scs_code,
2039: p_token2 => G_PROD_SUBCALSS_TOKEN,
2040: p_token2_value => l_pdt_parameter_rec.product_subclass);
2041: x_return_status := OKL_API.G_RET_STS_ERROR;
2042: RAISE l_error_condition;
2043: End If;
2044:
2045: If l_scs_code in ('LEASE','QUOTE') Then
2069: x_msg_data => x_msg_data,
2070: p_rgpv_rec => l_latown_rgpv_rec,
2071: x_rgpv_rec => lx_latown_rgpv_rec);
2072:
2073: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
2074: raise l_error_condition;
2075: End If;
2076:
2077: l_town_rgp_id := lx_latown_rgpv_rec.id;
2103: x_msg_data => x_msg_data,
2104: p_rulv_rec => l_latown_rulv_rec,
2105: x_rulv_rec => lx_latown_rulv_rec);
2106:
2107: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
2108: raise l_error_condition;
2109: End If;
2110:
2111:
2124: x_msg_data => x_msg_data,
2125: p_rulv_rec => l_latown_rulv_rec,
2126: x_rulv_rec => lx_latown_rulv_rec);
2127:
2128: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
2129: raise l_error_condition;
2130: End If;
2131: End If;
2132:
2145: null;
2146: End If;
2147: close l_curr_pdt_csr;
2148:
2149: If nvl(l_curr_pdt_rec.pdt_id, okl_api.g_miss_num) <> okl_api.g_miss_num AND
2150: l_curr_pdt_rec.pdt_id <> l_pdt_id AND
2151: l_curr_pdt_rec.scs_code = 'LEASE' AND
2152: nvl(l_curr_pdt_rec.orig_system_source_code,okl_api.g_miss_char) not in ('OKL_REBOOK','OKL_RELEASE') then
2153: l_release_asset_yn := 'N';
2148:
2149: If nvl(l_curr_pdt_rec.pdt_id, okl_api.g_miss_num) <> okl_api.g_miss_num AND
2150: l_curr_pdt_rec.pdt_id <> l_pdt_id AND
2151: l_curr_pdt_rec.scs_code = 'LEASE' AND
2152: nvl(l_curr_pdt_rec.orig_system_source_code,okl_api.g_miss_char) not in ('OKL_REBOOK','OKL_RELEASE') then
2153: l_release_asset_yn := 'N';
2154: Open l_release_asset_yn_csr(p_chr_id => p_chrv_rec.id);
2155: Fetch l_release_asset_yn_csr into l_release_Asset_yn;
2156: If l_release_asset_yn_csr%NOTFOUND then
2171: --Bug# 3621663 :
2172: l_Multi_GAAP_YN := 'N';
2173: If l_rbk_cpy = 'N' then
2174: --decide whether the reporting product needs multigaap asset book
2175: If nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2176: l_rep_pdtv_rec.id := l_pdt_parameter_rec.reporting_pdt_id;
2177: --okl_debug_pub.logmessage('AKP:0.l_rep_pdtv_rec.id = ' || l_rep_pdtv_rec.id);
2178: l_pdt_date := p_chrv_rec.start_date;
2179: --okl_debug_pub.logmessage('AKP:0.l_pdt_date = ' || l_pdt_date);
2187: p_pdtv_rec => l_rep_pdtv_rec,
2188: p_product_date => l_pdt_date,
2189: p_pdt_parameter_rec => l_rep_pdt_parameter_rec);
2190:
2191: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2192:
2193: -- 7610725
2194: /*If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2195: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2190:
2191: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2192:
2193: -- 7610725
2194: /*If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2195: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2196: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2197: l_Multi_GAAP_YN := 'Y';
2198: End If;
2191: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2192:
2193: -- 7610725
2194: /*If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2195: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2196: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2197: l_Multi_GAAP_YN := 'Y';
2198: End If;
2199:
2192:
2193: -- 7610725
2194: /*If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2195: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2196: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2197: l_Multi_GAAP_YN := 'Y';
2198: End If;
2199:
2200: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2196: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2197: l_Multi_GAAP_YN := 'Y';
2198: End If;
2199:
2200: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2201: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2202: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2203: l_Multi_GAAP_YN := 'Y';
2204: End If;
2197: l_Multi_GAAP_YN := 'Y';
2198: End If;
2199:
2200: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2201: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2202: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2203: l_Multi_GAAP_YN := 'Y';
2204: End If;
2205:
2198: End If;
2199:
2200: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2201: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2202: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2203: l_Multi_GAAP_YN := 'Y';
2204: End If;
2205:
2206: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2202: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2203: l_Multi_GAAP_YN := 'Y';
2204: End If;
2205:
2206: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2207: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2208: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2209: l_Multi_GAAP_YN := 'Y';
2210: End If;
2203: l_Multi_GAAP_YN := 'Y';
2204: End If;
2205:
2206: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2207: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2208: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2209: l_Multi_GAAP_YN := 'Y';
2210: End If;
2211:
2204: End If;
2205:
2206: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2207: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2208: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2209: l_Multi_GAAP_YN := 'Y';
2210: End If;
2211:
2212: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LOAN' and
2208: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2209: l_Multi_GAAP_YN := 'Y';
2210: End If;
2211:
2212: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LOAN' and
2213: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2214: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2215: l_Multi_GAAP_YN := 'Y';
2216: End If; */
2209: l_Multi_GAAP_YN := 'Y';
2210: End If;
2211:
2212: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LOAN' and
2213: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2214: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2215: l_Multi_GAAP_YN := 'Y';
2216: End If; */
2217:
2210: End If;
2211:
2212: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LOAN' and
2213: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2214: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2215: l_Multi_GAAP_YN := 'Y';
2216: End If; */
2217:
2218: -- 7610725
2217:
2218: -- 7610725
2219: --okl_debug_pub.logmessage('AKP:1.l_rep_pdt_parameter_rec.id = ' || l_rep_pdt_parameter_rec.id);
2220: --okl_debug_pub.logmessage('AKP:2.l_rep_pdt_parameter_rec.deal_type = ' || l_rep_pdt_parameter_rec.deal_type);
2221: If (nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR)
2222: <> OKL_API.G_MISS_CHAR )
2223: Then
2224: l_Multi_GAAP_YN := 'Y';
2225: End If;
2218: -- 7610725
2219: --okl_debug_pub.logmessage('AKP:1.l_rep_pdt_parameter_rec.id = ' || l_rep_pdt_parameter_rec.id);
2220: --okl_debug_pub.logmessage('AKP:2.l_rep_pdt_parameter_rec.deal_type = ' || l_rep_pdt_parameter_rec.deal_type);
2221: If (nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR)
2222: <> OKL_API.G_MISS_CHAR )
2223: Then
2224: l_Multi_GAAP_YN := 'Y';
2225: End If;
2226:
2231: --Bug# 3621663
2232:
2233: --okl_debug_pub.logmessage('AKP:3.l_pdt_parameter_rec.reporting_pdt_id =' || l_pdt_parameter_rec.reporting_pdt_id);
2234: --okl_debug_pub.logmessage('AKP:4.l_Multi_GAAP_YN= ' || l_Multi_GAAP_YN);
2235: If (nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM)
2236: OR
2237: (nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
2238: and l_Multi_GAAP_YN = 'N') Then
2239: If l_rbk_cpy = 'N' then
2233: --okl_debug_pub.logmessage('AKP:3.l_pdt_parameter_rec.reporting_pdt_id =' || l_pdt_parameter_rec.reporting_pdt_id);
2234: --okl_debug_pub.logmessage('AKP:4.l_Multi_GAAP_YN= ' || l_Multi_GAAP_YN);
2235: If (nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM)
2236: OR
2237: (nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
2238: and l_Multi_GAAP_YN = 'N') Then
2239: If l_rbk_cpy = 'N' then
2240: l_curr_pdtv_rec.id := l_curr_pdt_rec.pdt_id;
2241: l_pdt_date := p_chrv_rec.start_date;
2248: p_pdtv_rec => l_curr_pdtv_rec,
2249: p_product_date => l_pdt_date,
2250: p_pdt_parameter_rec => l_curr_pdt_parameter_rec);
2251:
2252: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2253: --okl_debug_pub.logmessage('AKP:5.l_curr_pdt_parameter_rec.id = ' || l_curr_pdt_parameter_rec.id);
2254: If nvl(l_curr_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2255: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
2256: i := 0;
2250: p_pdt_parameter_rec => l_curr_pdt_parameter_rec);
2251:
2252: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2253: --okl_debug_pub.logmessage('AKP:5.l_curr_pdt_parameter_rec.id = ' || l_curr_pdt_parameter_rec.id);
2254: If nvl(l_curr_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2255: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
2256: i := 0;
2257: open l_txd_csr (p_book_type_code => l_rep_book_type,
2258: p_chr_id => p_chrv_rec.id);
2265: close l_txd_csr;
2266:
2267: If l_adpv_tbl.COUNT <> 0 then
2268: --Bug# 3631094
2269: OKL_API.set_message(p_app_name => G_APP_NAME,
2270: p_msg_name => 'OKL_LA_MULTIGAAP_ASSET_BOOK');
2271: x_return_status := OKL_API.G_RET_STS_ERROR;
2272: raise l_error_condition;
2273: End If;
2267: If l_adpv_tbl.COUNT <> 0 then
2268: --Bug# 3631094
2269: OKL_API.set_message(p_app_name => G_APP_NAME,
2270: p_msg_name => 'OKL_LA_MULTIGAAP_ASSET_BOOK');
2271: x_return_status := OKL_API.G_RET_STS_ERROR;
2272: raise l_error_condition;
2273: End If;
2274:
2275: End If; -- current reporting product is not null
2290:
2291: -----------------
2292: --Bug# 3180583
2293: -----------------
2294: If nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
2295: x_multigaap_yn := 'N';
2296: Elsif nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2297: x_multigaap_yn := 'Y';
2298: End If;
2292: --Bug# 3180583
2293: -----------------
2294: If nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
2295: x_multigaap_yn := 'N';
2296: Elsif nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2297: x_multigaap_yn := 'Y';
2298: End If;
2299: -----------------
2300: --Bug# 3180583
2305: When l_error_condition Then
2306: Return;
2307:
2308: When Others Then
2309: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2310: End validate_product;
2311: --------------------------------------------------------------------------------
2312: -- Start of comments
2313: --
2346: l_pdtv_rec Okl_SetupProducts_Pub.pdtv_rec_type;
2347: l_pdt_parameter_rec Okl_setupproducts_pub.pdt_parameters_rec_type;
2348: l_exception_halt_process Exception;
2349:
2350: l_return_status Varchar2(1) default OKL_API.G_RET_STS_SUCCESS;
2351: l_msg_count Number;
2352: l_msg_data Varchar2(3000);
2353:
2354: begin
2351: l_msg_count Number;
2352: l_msg_data Varchar2(3000);
2353:
2354: begin
2355: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2356: l_is_orig_pdt_old := 'N';
2357:
2358: Open get_pdt_csr (orig_chr_id => p_orig_chr_id);
2359: Fetch get_pdt_csr into l_pdt_id, l_start_date;
2365: If (l_pdt_id = p_pdt_id) Then
2366: l_pdtv_rec.id := l_pdt_id;
2367: l_no_data_found := TRUE;
2368: Okl_SetupProducts_Pub.GetPdt_Parameters (p_api_version => 1.0,
2369: p_init_msg_list => OKL_API.G_FALSE,
2370: x_return_status => l_return_status,
2371: x_msg_count => l_msg_count,
2372: x_msg_data => l_msg_data,
2373: x_no_data_found => l_no_data_found,
2375: p_product_date => l_start_date,
2376: p_pdt_parameter_rec => l_pdt_parameter_rec);
2377:
2378: --product param do not exist
2379: If l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2380: l_is_orig_pdt_old := 'Y';
2381: Raise l_exception_halt_process;
2382: End If;
2383:
2382: End If;
2383:
2384: --product subcalss is null
2385: If l_pdt_parameter_rec.product_subclass is Null or
2386: l_pdt_parameter_rec.product_subclass = OKL_API.G_MISS_CHAR Then
2387: l_is_orig_pdt_old := 'Y';
2388: Raise l_exception_halt_process;
2389: End If;
2390:
2389: End If;
2390:
2391: --product tax owner is null
2392: If l_pdt_parameter_rec.tax_owner is Null or
2393: l_pdt_parameter_rec.tax_owner = OKL_API.G_MISS_CHAR Then
2394: l_is_orig_pdt_old := 'Y';
2395: Raise l_exception_halt_process;
2396: End If;
2397:
2396: End If;
2397:
2398: --product deal type is null
2399: If l_pdt_parameter_rec.deal_type is Null or
2400: l_pdt_parameter_rec.deal_type = OKL_API.G_MISS_CHAR Then
2401: l_is_orig_pdt_old := 'Y';
2402: Raise l_exception_halt_process;
2403: End If;
2404: End If;
2440: l_khrv_rec khrv_rec_type;
2441:
2442: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
2443: l_api_version CONSTANT NUMBER := 1.0;
2444: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2445: --Bug # : 11.5.9 Enhancement - Multi Currency changes
2446:
2447: l_curr_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
2448: l_curr_khrv_rec khrv_rec_type;
2477: -- call START_ACTIVITY to create savepoint, check compatibility
2478: -- and initialize message list
2479:
2480:
2481: l_return_status := OKL_API.START_ACTIVITY(
2482: p_api_name => l_api_name,
2483: p_pkg_name => g_pkg_name,
2484: p_init_msg_list => p_init_msg_list,
2485: l_api_version => l_api_version,
2487: p_api_type => g_api_type,
2488: x_return_status => x_return_status);
2489:
2490: -- check if activity started successfully
2491: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2492: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2493: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2494: raise OKL_API.G_EXCEPTION_ERROR;
2495: End If;
2488: x_return_status => x_return_status);
2489:
2490: -- check if activity started successfully
2491: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2492: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2493: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2494: raise OKL_API.G_EXCEPTION_ERROR;
2495: End If;
2496:
2489:
2490: -- check if activity started successfully
2491: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2492: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2493: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2494: raise OKL_API.G_EXCEPTION_ERROR;
2495: End If;
2496:
2497: l_khrv_rec := p_khrv_rec;
2490: -- check if activity started successfully
2491: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2492: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2493: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2494: raise OKL_API.G_EXCEPTION_ERROR;
2495: End If;
2496:
2497: l_khrv_rec := p_khrv_rec;
2498: l_chrv_rec := p_chrv_rec;
2509: --dbms_output.put_line('Set org context');
2510:
2511: --Bug# 3486065
2512: l_authoring_org_profile_value := mo_global.get_current_org_id();
2513: If NVL(l_authoring_org_profile_value,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR Then
2514: open profile_option_csr(p_profile_option_name => 'ORG_ID');
2515: fetch profile_option_csr into l_authoring_org_profile_name;
2516: close profile_option_csr;
2517:
2514: open profile_option_csr(p_profile_option_name => 'ORG_ID');
2515: fetch profile_option_csr into l_authoring_org_profile_name;
2516: close profile_option_csr;
2517:
2518: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2519: p_msg_name => 'OKL_NO_SYSTEM_PROFILE',
2520: p_token1 => 'OKL_SYS_PROFILE_NAME',
2521: p_token1_value => l_authoring_org_profile_name);
2522: raise OKL_API.G_EXCEPTION_ERROR;
2518: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2519: p_msg_name => 'OKL_NO_SYSTEM_PROFILE',
2520: p_token1 => 'OKL_SYS_PROFILE_NAME',
2521: p_token1_value => l_authoring_org_profile_name);
2522: raise OKL_API.G_EXCEPTION_ERROR;
2523: End If;
2524:
2525: l_inventory_org_profile_value := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_ITEM_INV_ORG_ID);
2526:
2525: l_inventory_org_profile_value := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_ITEM_INV_ORG_ID);
2526:
2527: -- removed by dcshanmu to fix bug 5378114
2528:
2529: If NVL(l_inventory_org_profile_value,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR Then
2530: /*open profile_option_csr(p_profile_option_name => 'OKL_K_ITEMS_INVENTORY_ORG');
2531: fetch profile_option_csr into l_inventory_org_profile_name;
2532: close profile_option_csr;*/
2533:
2530: /*open profile_option_csr(p_profile_option_name => 'OKL_K_ITEMS_INVENTORY_ORG');
2531: fetch profile_option_csr into l_inventory_org_profile_name;
2532: close profile_option_csr;*/
2533:
2534: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2535: p_msg_name => 'OKL_NO_INVENTORY_ORG');
2536: raise OKL_API.G_EXCEPTION_ERROR;
2537: End If;
2538:
2532: close profile_option_csr;*/
2533:
2534: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2535: p_msg_name => 'OKL_NO_INVENTORY_ORG');
2536: raise OKL_API.G_EXCEPTION_ERROR;
2537: End If;
2538:
2539: OKL_CONTEXT.SET_OKC_ORG_CONTEXT(l_chrv_rec.authoring_org_id,l_chrv_rec.inv_organization_id);
2540:
2544: template_create_allowed(p_chr_id => null,
2545: p_template_yn => l_chrv_rec.template_yn,
2546: x_return_status => x_return_status);
2547:
2548: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2549: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2550: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2551: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2552: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2545: p_template_yn => l_chrv_rec.template_yn,
2546: x_return_status => x_return_status);
2547:
2548: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2549: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2550: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2551: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2552: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2553: raise OKL_API.G_EXCEPTION_ERROR;
2546: x_return_status => x_return_status);
2547:
2548: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2549: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2550: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2551: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2552: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2553: raise OKL_API.G_EXCEPTION_ERROR;
2554: End If;
2547:
2548: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2549: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2550: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2551: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2552: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2553: raise OKL_API.G_EXCEPTION_ERROR;
2554: End If;
2555:
2549: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2550: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2551: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2552: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2553: raise OKL_API.G_EXCEPTION_ERROR;
2554: End If;
2555:
2556: ----------------------------------------------------------------------------
2557: --Bug# : 11.5.9 Enhancement Multi Currency
2565: p_khrv_rec => l_khrv_rec,
2566: x_chrv_rec => l_curr_chrv_rec,
2567: x_khrv_rec => l_curr_khrv_rec);
2568:
2569: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2570: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2572: raise OKL_API.G_EXCEPTION_ERROR;
2573: End If;
2566: x_chrv_rec => l_curr_chrv_rec,
2567: x_khrv_rec => l_curr_khrv_rec);
2568:
2569: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2570: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2572: raise OKL_API.G_EXCEPTION_ERROR;
2573: End If;
2574: l_chrv_rec := l_curr_chrv_rec;
2567: x_khrv_rec => l_curr_khrv_rec);
2568:
2569: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2570: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2572: raise OKL_API.G_EXCEPTION_ERROR;
2573: End If;
2574: l_chrv_rec := l_curr_chrv_rec;
2575: l_khrv_rec := l_curr_khrv_rec;
2568:
2569: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2570: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2571: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2572: raise OKL_API.G_EXCEPTION_ERROR;
2573: End If;
2574: l_chrv_rec := l_curr_chrv_rec;
2575: l_khrv_rec := l_curr_khrv_rec;
2576: ----------------------------------------------------------------------------
2576: ----------------------------------------------------------------------------
2577: --Bug# : 11.5.9 Enhancement Multi Currency
2578: ----------------------------------------------------------------------------
2579: --Added by dpsingh
2580: IF (l_khrv_rec.legal_entity_id IS NOT NULL AND l_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
2581: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
2582: p_chrv_rec => l_chrv_rec,
2583: p_mode => 'CR');
2584: ELSE
2582: p_chrv_rec => l_chrv_rec,
2583: p_mode => 'CR');
2584: ELSE
2585: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
2586: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: END IF;
2590:
2583: p_mode => 'CR');
2584: ELSE
2585: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
2586: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: END IF;
2590:
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: END IF;
2590:
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2588: END IF;
2589: END IF;
2590:
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2596: --Added by dpsingh end
2589: END IF;
2590:
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2596: --Added by dpsingh end
2597:
2590:
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2596: --Added by dpsingh end
2597:
2598: --dbms_output.put_line('Create contract header');
2611: x_chrv_rec => x_chrv_rec);
2612:
2613:
2614: -- check return status
2615: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2616: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2617: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2618: raise OKL_API.G_EXCEPTION_ERROR;
2619: End If;
2612:
2613:
2614: -- check return status
2615: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2616: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2617: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2618: raise OKL_API.G_EXCEPTION_ERROR;
2619: End If;
2620:
2613:
2614: -- check return status
2615: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2616: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2617: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2618: raise OKL_API.G_EXCEPTION_ERROR;
2619: End If;
2620:
2621:
2614: -- check return status
2615: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2616: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2617: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2618: raise OKL_API.G_EXCEPTION_ERROR;
2619: End If;
2620:
2621:
2622: /*Bug# 3124577 : Commented for 11.5.10 Rule Migration-------------------------------------------
2627: -----------------------------------------------------------Bug# 3124577 11.5.10: Rule Migration*/
2628: ----------------------------------------------------------------------------
2629: --Bug# : 11.5.9 Product validations
2630: ----------------------------------------------------------------------------
2631: If p_khrv_rec.pdt_id is null OR p_khrv_rec.pdt_id = OKL_API.G_MISS_NUM Then
2632: Null;
2633: Else
2634:
2635: --Begin (Bug# 2730633)
2635: --Begin (Bug# 2730633)
2636: --Fix for not to validate for copied contracts being copied from contracts
2637: --which have 11.5.8 products against them
2638: l_bypass_pdt_validation := 'N';
2639: If nvl(x_chrv_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR AND
2640: nvl(x_chrv_rec.orig_system_id1,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM Then
2641: l_bypass_pdt_validation := Is_Orig_Pdt_old(p_orig_chr_id => x_chrv_rec.orig_system_id1,
2642: p_pdt_id => p_khrv_rec.pdt_id);
2643: End If;
2636: --Fix for not to validate for copied contracts being copied from contracts
2637: --which have 11.5.8 products against them
2638: l_bypass_pdt_validation := 'N';
2639: If nvl(x_chrv_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR AND
2640: nvl(x_chrv_rec.orig_system_id1,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM Then
2641: l_bypass_pdt_validation := Is_Orig_Pdt_old(p_orig_chr_id => x_chrv_rec.orig_system_id1,
2642: p_pdt_id => p_khrv_rec.pdt_id);
2643: End If;
2644: --Fix for not to validate for copied contracts being copied from contracts
2658: --Bug# 3180583
2659: x_multigaap_yn => l_multigaap_yn);
2660:
2661: -- check return status
2662: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2663: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2664: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2665: raise OKL_API.G_EXCEPTION_ERROR;
2666: End If;
2659: x_multigaap_yn => l_multigaap_yn);
2660:
2661: -- check return status
2662: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2663: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2664: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2665: raise OKL_API.G_EXCEPTION_ERROR;
2666: End If;
2667:
2660:
2661: -- check return status
2662: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2663: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2664: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2665: raise OKL_API.G_EXCEPTION_ERROR;
2666: End If;
2667:
2668: -- assign the multi-gaap flag returned to the record structure
2661: -- check return status
2662: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2663: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2664: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2665: raise OKL_API.G_EXCEPTION_ERROR;
2666: End If;
2667:
2668: -- assign the multi-gaap flag returned to the record structure
2669: -- bug: 15911570 .. start
2678: --If l_khrv_rec.deal_type <> l_pdt_deal_type Then
2679: If nvl(l_khrv_rec.deal_type,'DEALTYPE') <> l_pdt_deal_type Then
2680: --If l_pdt_deal_type is not null OR
2681: If l_pdt_deal_type is not null AND
2682: l_pdt_deal_type <> OKL_API.G_MISS_CHAR Then
2683: l_khrv_rec.deal_type := l_pdt_deal_type;
2684: End If;
2685: End If;
2686:
2684: End If;
2685: End If;
2686:
2687: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
2688: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
2689: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2690: p_msg_name => 'OKL_NULL_DEAL_TYPE');
2691: x_return_status := OKL_API.G_RET_STS_ERROR;
2692: raise OKL_API.G_EXCEPTION_ERROR;
2685: End If;
2686:
2687: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
2688: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
2689: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2690: p_msg_name => 'OKL_NULL_DEAL_TYPE');
2691: x_return_status := OKL_API.G_RET_STS_ERROR;
2692: raise OKL_API.G_EXCEPTION_ERROR;
2693: End If;
2687: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
2688: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
2689: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2690: p_msg_name => 'OKL_NULL_DEAL_TYPE');
2691: x_return_status := OKL_API.G_RET_STS_ERROR;
2692: raise OKL_API.G_EXCEPTION_ERROR;
2693: End If;
2694: --Bug# 3379294: End
2695:
2688: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
2689: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2690: p_msg_name => 'OKL_NULL_DEAL_TYPE');
2691: x_return_status := OKL_API.G_RET_STS_ERROR;
2692: raise OKL_API.G_EXCEPTION_ERROR;
2693: End If;
2694: --Bug# 3379294: End
2695:
2696: End If;
2702:
2703: --Bug# 2819869: Generate accrual and assignable hould be 'Y' by default
2704: If x_chrv_rec.scs_code = 'LEASE' Then
2705: If l_khrv_rec.generate_accrual_yn is NULL OR
2706: l_khrv_rec.generate_accrual_yn = OKL_API.G_MISS_CHAR then
2707: l_khrv_rec.generate_accrual_yn := 'Y';
2708: End IF;
2709: If l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN is NULL OR
2710: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKL_API.G_MISS_CHAR then
2706: l_khrv_rec.generate_accrual_yn = OKL_API.G_MISS_CHAR then
2707: l_khrv_rec.generate_accrual_yn := 'Y';
2708: End IF;
2709: If l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN is NULL OR
2710: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKL_API.G_MISS_CHAR then
2711: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN := 'N';
2712: End IF;
2713: If l_khrv_rec.assignable_yn is NULL OR
2714: l_khrv_rec.assignable_yn = OKL_API.G_MISS_CHAR then
2710: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKL_API.G_MISS_CHAR then
2711: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN := 'N';
2712: End IF;
2713: If l_khrv_rec.assignable_yn is NULL OR
2714: l_khrv_rec.assignable_yn = OKL_API.G_MISS_CHAR then
2715: l_khrv_rec.assignable_yn := 'Y';
2716: End IF;
2717: End If;
2718: --End Bug# 2819869 : Generate accrual and assignable should be 'Y' by default
2731: x_msg_data => x_msg_data,
2732: p_khrv_rec => l_khrv_rec,
2733: x_khrv_rec => x_khrv_rec);
2734:
2735: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2737: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2738: raise OKL_API.G_EXCEPTION_ERROR;
2739: End If;
2732: p_khrv_rec => l_khrv_rec,
2733: x_khrv_rec => x_khrv_rec);
2734:
2735: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2737: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2738: raise OKL_API.G_EXCEPTION_ERROR;
2739: End If;
2740:
2733: x_khrv_rec => x_khrv_rec);
2734:
2735: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2737: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2738: raise OKL_API.G_EXCEPTION_ERROR;
2739: End If;
2740:
2741: --dbms_output.put_line('I am through');
2734:
2735: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2737: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2738: raise OKL_API.G_EXCEPTION_ERROR;
2739: End If;
2740:
2741: --dbms_output.put_line('I am through');
2742:
2775: p_chr_id => l_khrv_rec.ID,
2776: x_rulv_tbl => x_rulv_tbl
2777: );
2778:
2779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2782: raise OKL_API.G_EXCEPTION_ERROR;
2783: End If;
2776: x_rulv_tbl => x_rulv_tbl
2777: );
2778:
2779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2782: raise OKL_API.G_EXCEPTION_ERROR;
2783: End If;
2784:
2777: );
2778:
2779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2782: raise OKL_API.G_EXCEPTION_ERROR;
2783: End If;
2784:
2785: END IF;
2778:
2779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2782: raise OKL_API.G_EXCEPTION_ERROR;
2783: End If;
2784:
2785: END IF;
2786:
2783: End If;
2784:
2785: END IF;
2786:
2787: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2788: x_msg_data => x_msg_data);
2789: EXCEPTION
2790: when OKL_API.G_EXCEPTION_ERROR then
2791: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2786:
2787: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2788: x_msg_data => x_msg_data);
2789: EXCEPTION
2790: when OKL_API.G_EXCEPTION_ERROR then
2791: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2792: p_api_name => l_api_name,
2793: p_pkg_name => g_pkg_name,
2794: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2787: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2788: x_msg_data => x_msg_data);
2789: EXCEPTION
2790: when OKL_API.G_EXCEPTION_ERROR then
2791: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2792: p_api_name => l_api_name,
2793: p_pkg_name => g_pkg_name,
2794: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2795: x_msg_count => x_msg_count,
2790: when OKL_API.G_EXCEPTION_ERROR then
2791: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2792: p_api_name => l_api_name,
2793: p_pkg_name => g_pkg_name,
2794: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2795: x_msg_count => x_msg_count,
2796: x_msg_data => x_msg_data,
2797: p_api_type => g_api_type);
2798:
2795: x_msg_count => x_msg_count,
2796: x_msg_data => x_msg_data,
2797: p_api_type => g_api_type);
2798:
2799: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2800: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2801: p_api_name => l_api_name,
2802: p_pkg_name => g_pkg_name,
2803: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2796: x_msg_data => x_msg_data,
2797: p_api_type => g_api_type);
2798:
2799: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2800: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2801: p_api_name => l_api_name,
2802: p_pkg_name => g_pkg_name,
2803: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2804: x_msg_count => x_msg_count,
2799: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2800: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2801: p_api_name => l_api_name,
2802: p_pkg_name => g_pkg_name,
2803: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2804: x_msg_count => x_msg_count,
2805: x_msg_data => x_msg_data,
2806: p_api_type => g_api_type);
2807:
2805: x_msg_data => x_msg_data,
2806: p_api_type => g_api_type);
2807:
2808: when OTHERS then
2809: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2810: p_api_name => l_api_name,
2811: p_pkg_name => g_pkg_name,
2812: p_exc_name => 'OTHERS',
2813: x_msg_count => x_msg_count,
2836: x_khrv_tbl OUT NOCOPY khrv_tbl_type) IS
2837:
2838: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
2839: l_api_version CONSTANT NUMBER := 1.0;
2840: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2841: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2842: i NUMBER;
2843: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
2844: BEGIN
2837:
2838: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
2839: l_api_version CONSTANT NUMBER := 1.0;
2840: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2841: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2842: i NUMBER;
2843: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
2844: BEGIN
2845: -- call START_ACTIVITY to create savepoint, check compatibility
2843: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
2844: BEGIN
2845: -- call START_ACTIVITY to create savepoint, check compatibility
2846: -- and initialize message list
2847: l_return_status := OKL_API.START_ACTIVITY(
2848: p_api_name => l_api_name,
2849: p_pkg_name => g_pkg_name,
2850: p_init_msg_list => p_init_msg_list,
2851: l_api_version => l_api_version,
2853: p_api_type => g_api_type,
2854: x_return_status => x_return_status);
2855:
2856: -- check if activity started successfully
2857: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2858: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2860: raise OKL_API.G_EXCEPTION_ERROR;
2861:
2854: x_return_status => x_return_status);
2855:
2856: -- check if activity started successfully
2857: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2858: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2860: raise OKL_API.G_EXCEPTION_ERROR;
2861:
2862: End If;
2855:
2856: -- check if activity started successfully
2857: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2858: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2860: raise OKL_API.G_EXCEPTION_ERROR;
2861:
2862: End If;
2863:
2856: -- check if activity started successfully
2857: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2858: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2860: raise OKL_API.G_EXCEPTION_ERROR;
2861:
2862: End If;
2863:
2864: If (p_chrv_tbl.COUNT > 0) Then
2875: p_khrv_rec => l_khrv_tbl(i),
2876: x_chrv_rec => x_chrv_tbl(i),
2877: x_khrv_rec => x_khrv_tbl(i));
2878:
2879: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2880: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
2881: l_overall_status := x_return_status;
2882: End If;
2883: End If;
2876: x_chrv_rec => x_chrv_tbl(i),
2877: x_khrv_rec => x_khrv_tbl(i));
2878:
2879: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2880: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
2881: l_overall_status := x_return_status;
2882: End If;
2883: End If;
2884:
2889: -- return overall status
2890: x_return_status := l_overall_status;
2891: End If;
2892:
2893: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2894: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2895: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2896: raise OKL_API.G_EXCEPTION_ERROR;
2897: End If;
2890: x_return_status := l_overall_status;
2891: End If;
2892:
2893: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2894: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2895: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2896: raise OKL_API.G_EXCEPTION_ERROR;
2897: End If;
2898:
2891: End If;
2892:
2893: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2894: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2895: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2896: raise OKL_API.G_EXCEPTION_ERROR;
2897: End If;
2898:
2899: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2892:
2893: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2894: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2895: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2896: raise OKL_API.G_EXCEPTION_ERROR;
2897: End If;
2898:
2899: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2900: x_msg_data => x_msg_data);
2895: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2896: raise OKL_API.G_EXCEPTION_ERROR;
2897: End If;
2898:
2899: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2900: x_msg_data => x_msg_data);
2901: EXCEPTION
2902: when OKL_API.G_EXCEPTION_ERROR then
2903: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2898:
2899: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2900: x_msg_data => x_msg_data);
2901: EXCEPTION
2902: when OKL_API.G_EXCEPTION_ERROR then
2903: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2904: p_api_name => l_api_name,
2905: p_pkg_name => g_pkg_name,
2906: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2899: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2900: x_msg_data => x_msg_data);
2901: EXCEPTION
2902: when OKL_API.G_EXCEPTION_ERROR then
2903: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2904: p_api_name => l_api_name,
2905: p_pkg_name => g_pkg_name,
2906: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2907: x_msg_count => x_msg_count,
2902: when OKL_API.G_EXCEPTION_ERROR then
2903: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2904: p_api_name => l_api_name,
2905: p_pkg_name => g_pkg_name,
2906: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2907: x_msg_count => x_msg_count,
2908: x_msg_data => x_msg_data,
2909: p_api_type => g_api_type);
2910:
2907: x_msg_count => x_msg_count,
2908: x_msg_data => x_msg_data,
2909: p_api_type => g_api_type);
2910:
2911: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2912: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2913: p_api_name => l_api_name,
2914: p_pkg_name => g_pkg_name,
2915: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2908: x_msg_data => x_msg_data,
2909: p_api_type => g_api_type);
2910:
2911: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2912: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2913: p_api_name => l_api_name,
2914: p_pkg_name => g_pkg_name,
2915: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2916: x_msg_count => x_msg_count,
2911: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2912: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2913: p_api_name => l_api_name,
2914: p_pkg_name => g_pkg_name,
2915: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2916: x_msg_count => x_msg_count,
2917: x_msg_data => x_msg_data,
2918: p_api_type => g_api_type);
2919:
2917: x_msg_data => x_msg_data,
2918: p_api_type => g_api_type);
2919:
2920: when OTHERS then
2921: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2922: p_api_name => l_api_name,
2923: p_pkg_name => g_pkg_name,
2924: p_exc_name => 'OTHERS',
2925: x_msg_count => x_msg_count,
2960: l_khrv_rec khrv_rec_type;
2961:
2962: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
2963: l_api_version CONSTANT NUMBER := 1.0;
2964: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2965:
2966: cursor l_khrv_csr(l_id IN NUMBER) is
2967: select 'x'
2968: from OKL_K_HEADERS_V
3150: BEGIN
3151:
3152: -- call START_ACTIVITY to create savepoint, check compatibility
3153: -- and initialize message list
3154: l_return_status := OKL_API.START_ACTIVITY(
3155: p_api_name => l_api_name,
3156: p_pkg_name => g_pkg_name,
3157: p_init_msg_list => p_init_msg_list,
3158: l_api_version => l_api_version,
3160: p_api_type => g_api_type,
3161: x_return_status => x_return_status);
3162:
3163: -- check if activity started successfully
3164: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3165: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
3167: raise OKL_API.G_EXCEPTION_ERROR;
3168: End If;
3161: x_return_status => x_return_status);
3162:
3163: -- check if activity started successfully
3164: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3165: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
3167: raise OKL_API.G_EXCEPTION_ERROR;
3168: End If;
3169:
3162:
3163: -- check if activity started successfully
3164: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3165: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
3167: raise OKL_API.G_EXCEPTION_ERROR;
3168: End If;
3169:
3170: l_khrv_rec := p_khrv_rec;
3163: -- check if activity started successfully
3164: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3165: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
3167: raise OKL_API.G_EXCEPTION_ERROR;
3168: End If;
3169:
3170: l_khrv_rec := p_khrv_rec;
3171: l_chrv_rec := p_chrv_rec;
3201:
3202: -- Bug 7610725 start
3203: l_delete_flag := 'N';
3204: IF (l_khrv_rec.pdt_id IS NOT NULL AND
3205: l_khrv_rec.pdt_id <> OKL_API.G_MISS_NUM) THEN
3206: IF (NVL(l_orig_khr_rec.multi_gaap_yn,'N') = 'Y') THEN
3207: OPEN curr_pdt_csr(l_khrv_rec.pdt_id);
3208: FETCH curr_pdt_csr INTO l_curr_pdt_rec;
3209: CLOSE curr_pdt_csr;
3224: IF (l_delete_flag = 'Y') THEN
3225: -- Delete reporting asset tax book
3226: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
3227: i := 0;
3228: If nvl(l_rep_book_type,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
3229: open l_txd_csr (p_book_type_code => l_rep_book_type,
3230: p_chr_id => l_chrv_rec.id);
3231: Loop
3232: fetch l_txd_csr into l_txd_rec;
3243: x_return_status => x_return_status,
3244: x_msg_count => x_msg_count,
3245: x_msg_data => x_msg_data,
3246: p_adpv_tbl => l_adpv_tbl);
3247: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3248: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3249: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3250: raise OKL_API.G_EXCEPTION_ERROR;
3251: End If;
3244: x_msg_count => x_msg_count,
3245: x_msg_data => x_msg_data,
3246: p_adpv_tbl => l_adpv_tbl);
3247: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3248: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3249: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3250: raise OKL_API.G_EXCEPTION_ERROR;
3251: End If;
3252: End If;
3245: x_msg_data => x_msg_data,
3246: p_adpv_tbl => l_adpv_tbl);
3247: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3248: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3249: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3250: raise OKL_API.G_EXCEPTION_ERROR;
3251: End If;
3252: End If;
3253: End If;
3246: p_adpv_tbl => l_adpv_tbl);
3247: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3248: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3249: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3250: raise OKL_API.G_EXCEPTION_ERROR;
3251: End If;
3252: End If;
3253: End If;
3254:
3255: END IF;
3256: -- Bug 7610725 end
3257:
3258: --
3259: If l_chrv_rec.start_date = OKL_API.G_MISS_DATE Then
3260: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3261: End If;
3262: --
3263:
3260: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3261: End If;
3262: --
3263:
3264: If l_khrv_rec.term_duration = OKL_API.G_MISS_NUM and
3265: l_orig_khr_rec.term_duration is not null Then
3266: l_khrv_rec.term_duration := l_orig_khr_rec.term_duration;
3267: End If;
3268: --
3267: End If;
3268: --
3269: --Bug Fix# 2860122 start.
3270: --SandO fix for end date
3271: IF (l_chrv_rec.end_date = OKL_API.G_MISS_DATE) Then
3272: IF (l_chrv_rec.start_date is NOT NULL and
3273: l_chrv_rec.start_date <> OKL_API.G_MISS_DATE) and
3274: (l_khrv_rec.term_duration is not NULL and
3275: l_khrv_rec.term_duration <> OKL_API.G_MISS_NUM) Then
3269: --Bug Fix# 2860122 start.
3270: --SandO fix for end date
3271: IF (l_chrv_rec.end_date = OKL_API.G_MISS_DATE) Then
3272: IF (l_chrv_rec.start_date is NOT NULL and
3273: l_chrv_rec.start_date <> OKL_API.G_MISS_DATE) and
3274: (l_khrv_rec.term_duration is not NULL and
3275: l_khrv_rec.term_duration <> OKL_API.G_MISS_NUM) Then
3276: --Added for bug 6007644
3277: l_chrv_rec.end_date := OKL_LLA_UTIL_PVT.calculate_end_date(p_start_date => l_chrv_rec.start_date,
3271: IF (l_chrv_rec.end_date = OKL_API.G_MISS_DATE) Then
3272: IF (l_chrv_rec.start_date is NOT NULL and
3273: l_chrv_rec.start_date <> OKL_API.G_MISS_DATE) and
3274: (l_khrv_rec.term_duration is not NULL and
3275: l_khrv_rec.term_duration <> OKL_API.G_MISS_NUM) Then
3276: --Added for bug 6007644
3277: l_chrv_rec.end_date := OKL_LLA_UTIL_PVT.calculate_end_date(p_start_date => l_chrv_rec.start_date,
3278: p_months => l_khrv_rec.term_duration);
3279: --end bug 6007644
3282: END IF;
3283: END IF;
3284: -- Bug Fix # 2860122 End.
3285: --
3286: If l_chrv_rec.currency_code = OKL_API.G_MISS_CHAR Then
3287: l_chrv_rec.currency_code := l_orig_chr_rec.currency_code;
3288: End If;
3289:
3290: --
3303: p_new_pdt_id => l_khrv_rec.pdt_id, -- Bug# 9115610
3304: x_modfn_mode => l_modfn_mode);
3305:
3306: -- check return status
3307: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3310: raise OKL_API.G_EXCEPTION_ERROR;
3311: End If;
3304: x_modfn_mode => l_modfn_mode);
3305:
3306: -- check return status
3307: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3310: raise OKL_API.G_EXCEPTION_ERROR;
3311: End If;
3312:
3305:
3306: -- check return status
3307: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3310: raise OKL_API.G_EXCEPTION_ERROR;
3311: End If;
3312:
3313: ----------------------------------------------------------------------------
3306: -- check return status
3307: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3310: raise OKL_API.G_EXCEPTION_ERROR;
3311: End If;
3312:
3313: ----------------------------------------------------------------------------
3314: --call to check if template modification is allowed
3316: template_create_allowed(p_chr_id => l_chrv_rec.id,
3317: p_template_yn => l_chrv_rec.template_yn,
3318: x_return_status => x_return_status);
3319:
3320: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3321: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3322: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3323: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3324: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3317: p_template_yn => l_chrv_rec.template_yn,
3318: x_return_status => x_return_status);
3319:
3320: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3321: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3322: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3323: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3324: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3325: raise OKL_API.G_EXCEPTION_ERROR;
3318: x_return_status => x_return_status);
3319:
3320: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3321: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3322: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3323: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3324: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3325: raise OKL_API.G_EXCEPTION_ERROR;
3326: End If;
3319:
3320: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3321: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3322: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3323: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3324: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3325: raise OKL_API.G_EXCEPTION_ERROR;
3326: End If;
3327:
3321: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3322: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3323: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3324: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3325: raise OKL_API.G_EXCEPTION_ERROR;
3326: End If;
3327:
3328: ----------------------------------------------------------------------------
3329: --Bug# : 11.5.9 Enhancement Multi Currency
3327:
3328: ----------------------------------------------------------------------------
3329: --Bug# : 11.5.9 Enhancement Multi Currency
3330: ----------------------------------------------------------------------------
3331: If (l_chrv_rec.currency_code = OKL_API.G_MISS_CHAR) Then
3332: l_chrv_rec.currency_code := l_orig_chr_rec.currency_code;
3333: End If;
3334:
3335: If (l_khrv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR) and
3331: If (l_chrv_rec.currency_code = OKL_API.G_MISS_CHAR) Then
3332: l_chrv_rec.currency_code := l_orig_chr_rec.currency_code;
3333: End If;
3334:
3335: If (l_khrv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR) and
3336: l_orig_khr_rec.currency_conversion_type is not null Then
3337: l_khrv_rec.currency_conversion_type := l_orig_khr_rec.currency_conversion_type;
3338: End If;
3339:
3336: l_orig_khr_rec.currency_conversion_type is not null Then
3337: l_khrv_rec.currency_conversion_type := l_orig_khr_rec.currency_conversion_type;
3338: End If;
3339:
3340: If (l_khrv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM) and
3341: l_orig_khr_rec.currency_conversion_rate is not null Then
3342: l_khrv_rec.currency_conversion_rate := l_orig_khr_rec.currency_conversion_rate;
3343: End If;
3344:
3341: l_orig_khr_rec.currency_conversion_rate is not null Then
3342: l_khrv_rec.currency_conversion_rate := l_orig_khr_rec.currency_conversion_rate;
3343: End If;
3344:
3345: If (l_khrv_rec.currency_conversion_date = OKL_API.G_MISS_DATE) and
3346: l_orig_khr_rec.currency_conversion_date is not null Then
3347: l_khrv_rec.currency_conversion_date := l_orig_khr_rec.currency_conversion_date;
3348: End If;
3349:
3346: l_orig_khr_rec.currency_conversion_date is not null Then
3347: l_khrv_rec.currency_conversion_date := l_orig_khr_rec.currency_conversion_date;
3348: End If;
3349:
3350: If (l_chrv_rec.start_date = OKL_API.G_MISS_DATE) Then
3351: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3352: End If;
3353:
3354: If (l_chrv_rec.scs_code = OKL_API.G_MISS_CHAR) Then
3350: If (l_chrv_rec.start_date = OKL_API.G_MISS_DATE) Then
3351: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3352: End If;
3353:
3354: If (l_chrv_rec.scs_code = OKL_API.G_MISS_CHAR) Then
3355: l_chrv_rec.scs_code := l_orig_chr_rec.scs_code;
3356: End If;
3357:
3358: --Bug# 3180583
3355: l_chrv_rec.scs_code := l_orig_chr_rec.scs_code;
3356: End If;
3357:
3358: --Bug# 3180583
3359: If (l_khrv_rec.multi_gaap_yn = OKL_API.G_MISS_CHAR) then
3360: l_khrv_rec.multi_gaap_yn := l_orig_khr_rec.multi_gaap_yn;
3361: End If;
3362:
3363: -- AKP:Check if start_date is changed default interest_start_date,
3372: x_msg_data => x_msg_data,
3373: p_chr_id => l_chrv_rec.id,
3374: p_new_start_date => l_chrv_rec.start_date);
3375: -- check return status
3376: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3377: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3378: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3379: raise OKL_API.G_EXCEPTION_ERROR;
3380: End If;
3373: p_chr_id => l_chrv_rec.id,
3374: p_new_start_date => l_chrv_rec.start_date);
3375: -- check return status
3376: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3377: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3378: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3379: raise OKL_API.G_EXCEPTION_ERROR;
3380: End If;
3381: END IF;
3374: p_new_start_date => l_chrv_rec.start_date);
3375: -- check return status
3376: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3377: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3378: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3379: raise OKL_API.G_EXCEPTION_ERROR;
3380: End If;
3381: END IF;
3382:
3375: -- check return status
3376: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3377: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3378: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3379: raise OKL_API.G_EXCEPTION_ERROR;
3380: End If;
3381: END IF;
3382:
3383: -- now go in to validate currency
3389: p_chrv_rec => l_chrv_rec,
3390: p_khrv_rec => l_khrv_rec,
3391: x_chrv_rec => l_curr_chrv_rec,
3392: x_khrv_rec => l_curr_khrv_rec);
3393: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3394: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3395: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3396: raise OKL_API.G_EXCEPTION_ERROR;
3397: End If;
3390: p_khrv_rec => l_khrv_rec,
3391: x_chrv_rec => l_curr_chrv_rec,
3392: x_khrv_rec => l_curr_khrv_rec);
3393: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3394: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3395: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3396: raise OKL_API.G_EXCEPTION_ERROR;
3397: End If;
3398:
3391: x_chrv_rec => l_curr_chrv_rec,
3392: x_khrv_rec => l_curr_khrv_rec);
3393: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3394: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3395: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3396: raise OKL_API.G_EXCEPTION_ERROR;
3397: End If;
3398:
3399: l_chrv_rec := l_curr_chrv_rec;
3392: x_khrv_rec => l_curr_khrv_rec);
3393: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3394: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3395: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3396: raise OKL_API.G_EXCEPTION_ERROR;
3397: End If;
3398:
3399: l_chrv_rec := l_curr_chrv_rec;
3400: l_khrv_rec := l_curr_khrv_rec;
3406: --Bug# : 11.5.9 Enhancement Product Validations
3407: ----------------------------------------------------------------------------
3408: --For older contracts do not check for product validation unless product has changed
3409: --therefore commenting this code below :
3410: --If l_khrv_rec.pdt_id = OKL_API.G_MISS_NUM Then
3411: -- l_khrv_rec.pdt_id := l_orig_chr_rec.pdt_id;
3412: --End If;
3413:
3414: If (l_chrv_rec.start_date = OKL_API.G_MISS_DATE) Then
3410: --If l_khrv_rec.pdt_id = OKL_API.G_MISS_NUM Then
3411: -- l_khrv_rec.pdt_id := l_orig_chr_rec.pdt_id;
3412: --End If;
3413:
3414: If (l_chrv_rec.start_date = OKL_API.G_MISS_DATE) Then
3415: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3416: End If;
3417:
3418:
3418:
3419: --For older contracts do not check for product validation unless product has changed
3420: --therefore commenting adding the G_MISS clause in IF below :
3421:
3422: If (l_khrv_rec.pdt_id is null) OR (l_khrv_rec.pdt_id = OKL_API.G_MISS_NUM ) OR
3423: (l_khrv_rec.pdt_id = l_orig_khr_rec.pdt_id) then
3424: null;
3425: Else
3426: --Begin (Bug# 2730633)
3426: --Begin (Bug# 2730633)
3427: --Fix for not to validate for copied contracts being copied from contracts
3428: --which have 11.5.8 products against them
3429: l_bypass_pdt_validation := 'N';
3430: If nvl(l_orig_chr_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR AND
3431: nvl(l_orig_chr_rec.orig_system_id1,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM Then
3432: l_bypass_pdt_validation := Is_Orig_Pdt_old(p_orig_chr_id => l_orig_chr_rec.orig_system_id1,
3433: p_pdt_id => l_khrv_rec.pdt_id);
3434: End If;
3427: --Fix for not to validate for copied contracts being copied from contracts
3428: --which have 11.5.8 products against them
3429: l_bypass_pdt_validation := 'N';
3430: If nvl(l_orig_chr_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR AND
3431: nvl(l_orig_chr_rec.orig_system_id1,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM Then
3432: l_bypass_pdt_validation := Is_Orig_Pdt_old(p_orig_chr_id => l_orig_chr_rec.orig_system_id1,
3433: p_pdt_id => l_khrv_rec.pdt_id);
3434: End If;
3435: --Fix for not to validate for copied contracts being copied from contracts
3448: --Bug# 3180583
3449: x_multigaap_yn => l_multigaap_yn);
3450:
3451: -- check return status
3452: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3453: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3454: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3455: raise OKL_API.G_EXCEPTION_ERROR;
3456: End If;
3449: x_multigaap_yn => l_multigaap_yn);
3450:
3451: -- check return status
3452: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3453: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3454: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3455: raise OKL_API.G_EXCEPTION_ERROR;
3456: End If;
3457:
3450:
3451: -- check return status
3452: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3453: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3454: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3455: raise OKL_API.G_EXCEPTION_ERROR;
3456: End If;
3457:
3458: --for lease contracts deal type has to come from product
3451: -- check return status
3452: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3453: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3454: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3455: raise OKL_API.G_EXCEPTION_ERROR;
3456: End If;
3457:
3458: --for lease contracts deal type has to come from product
3459: If l_chrv_rec.scs_code in ('LEASE','QUOTE') Then
3461: --If l_khrv_rec.deal_type <> l_pdt_deal_type Then
3462: If nvl(l_khrv_rec.deal_type,'DEALTYPE') <> l_pdt_deal_type Then
3463: --If l_pdt_deal_type is not null OR
3464: If l_pdt_deal_type is not null AND
3465: l_pdt_deal_type <> OKL_API.G_MISS_CHAR Then
3466: l_khrv_rec.deal_type := l_pdt_deal_type;
3467: End If;
3468: End If;
3469:
3469:
3470: --------------
3471: --Bug# 3180583
3472: -------------
3473: If nvl(l_multigaap_yn,OKL_API.G_MISS_CHAR) = 'N' then
3474: If nvl(l_khrv_rec.multi_gaap_yn,OKL_API.G_MISS_CHAR) = 'Y' then
3475: l_khrv_rec.multi_gaap_yn := NULL;
3476: End If;
3477: ELSIf nvl(l_multigaap_yn,'N') = 'Y' then -- 7610725
3470: --------------
3471: --Bug# 3180583
3472: -------------
3473: If nvl(l_multigaap_yn,OKL_API.G_MISS_CHAR) = 'N' then
3474: If nvl(l_khrv_rec.multi_gaap_yn,OKL_API.G_MISS_CHAR) = 'Y' then
3475: l_khrv_rec.multi_gaap_yn := NULL;
3476: End If;
3477: ELSIf nvl(l_multigaap_yn,'N') = 'Y' then -- 7610725
3478: l_khrv_rec.multi_gaap_yn := 'Y';
3481: --Bug# 3180583
3482: -------------
3483:
3484: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
3485: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
3486: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3487: p_msg_name => 'OKL_NULL_DEAL_TYPE');
3488: x_return_status := OKL_API.G_RET_STS_ERROR;
3489: raise OKL_API.G_EXCEPTION_ERROR;
3482: -------------
3483:
3484: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
3485: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
3486: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3487: p_msg_name => 'OKL_NULL_DEAL_TYPE');
3488: x_return_status := OKL_API.G_RET_STS_ERROR;
3489: raise OKL_API.G_EXCEPTION_ERROR;
3490: End If;
3484: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
3485: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
3486: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3487: p_msg_name => 'OKL_NULL_DEAL_TYPE');
3488: x_return_status := OKL_API.G_RET_STS_ERROR;
3489: raise OKL_API.G_EXCEPTION_ERROR;
3490: End If;
3491: --Bug# 3379294 : End
3492:
3485: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
3486: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3487: p_msg_name => 'OKL_NULL_DEAL_TYPE');
3488: x_return_status := OKL_API.G_RET_STS_ERROR;
3489: raise OKL_API.G_EXCEPTION_ERROR;
3490: End If;
3491: --Bug# 3379294 : End
3492:
3493: End If;
3502: --rkuttiya commented out for bug 6595451
3503: --validation on null legal entity id not required for update contract
3504: /*IF (l_khrv_rec.legal_entity_id IS NULL ) THEN
3505: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
3506: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
3507: RAISE OKL_API.G_EXCEPTION_ERROR;
3508: END IF;*/
3509: IF( (l_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) AND (l_legal_entity_id <> l_khrv_rec.legal_entity_id)) THEN
3510: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
3503: --validation on null legal entity id not required for update contract
3504: /*IF (l_khrv_rec.legal_entity_id IS NULL ) THEN
3505: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
3506: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
3507: RAISE OKL_API.G_EXCEPTION_ERROR;
3508: END IF;*/
3509: IF( (l_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) AND (l_legal_entity_id <> l_khrv_rec.legal_entity_id)) THEN
3510: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
3511: p_chrv_rec => l_chrv_rec,
3505: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
3506: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
3507: RAISE OKL_API.G_EXCEPTION_ERROR;
3508: END IF;*/
3509: IF( (l_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) AND (l_legal_entity_id <> l_khrv_rec.legal_entity_id)) THEN
3510: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
3511: p_chrv_rec => l_chrv_rec,
3512: p_mode => 'UPD');
3513: l_upd_trx_assets := 1;
3510: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
3511: p_chrv_rec => l_chrv_rec,
3512: p_mode => 'UPD');
3513: l_upd_trx_assets := 1;
3514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3517: RAISE OKL_API.G_EXCEPTION_ERROR;
3518: END IF;
3511: p_chrv_rec => l_chrv_rec,
3512: p_mode => 'UPD');
3513: l_upd_trx_assets := 1;
3514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3517: RAISE OKL_API.G_EXCEPTION_ERROR;
3518: END IF;
3519: END IF ;
3512: p_mode => 'UPD');
3513: l_upd_trx_assets := 1;
3514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3517: RAISE OKL_API.G_EXCEPTION_ERROR;
3518: END IF;
3519: END IF ;
3520: --Added by dpsingh end
3513: l_upd_trx_assets := 1;
3514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3517: RAISE OKL_API.G_EXCEPTION_ERROR;
3518: END IF;
3519: END IF ;
3520: --Added by dpsingh end
3521:
3536: p_chrv_rec => l_curr_chrv_rec,
3537: x_chrv_rec => x_chrv_rec);
3538:
3539: -- check return status
3540: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3542: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3543: RAISE OKL_API.G_EXCEPTION_ERROR;
3544: --Added by dpsingh for LE Uptake
3537: x_chrv_rec => x_chrv_rec);
3538:
3539: -- check return status
3540: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3542: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3543: RAISE OKL_API.G_EXCEPTION_ERROR;
3544: --Added by dpsingh for LE Uptake
3545: ELSIF x_return_status = OKL_API.G_RET_STS_SUCCESS AND l_upd_trx_assets = 1 THEN
3538:
3539: -- check return status
3540: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3542: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3543: RAISE OKL_API.G_EXCEPTION_ERROR;
3544: --Added by dpsingh for LE Uptake
3545: ELSIF x_return_status = OKL_API.G_RET_STS_SUCCESS AND l_upd_trx_assets = 1 THEN
3546: FOR get_con_line_ids_rec IN get_con_line_ids_csr(l_chrv_rec.id) LOOP
3539: -- check return status
3540: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3542: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3543: RAISE OKL_API.G_EXCEPTION_ERROR;
3544: --Added by dpsingh for LE Uptake
3545: ELSIF x_return_status = OKL_API.G_RET_STS_SUCCESS AND l_upd_trx_assets = 1 THEN
3546: FOR get_con_line_ids_rec IN get_con_line_ids_csr(l_chrv_rec.id) LOOP
3547: l_tasv_rec.id := get_con_line_ids_rec.tas_id;
3541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3542: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3543: RAISE OKL_API.G_EXCEPTION_ERROR;
3544: --Added by dpsingh for LE Uptake
3545: ELSIF x_return_status = OKL_API.G_RET_STS_SUCCESS AND l_upd_trx_assets = 1 THEN
3546: FOR get_con_line_ids_rec IN get_con_line_ids_csr(l_chrv_rec.id) LOOP
3547: l_tasv_rec.id := get_con_line_ids_rec.tas_id;
3548: l_tasv_rec.legal_entity_id := l_legal_entity_id;
3549: OKL_TRX_ASSETS_PVT.UPDATE_TRX_ASS_H_DEF(p_api_version ,
3553: x_msg_data ,
3554: l_tasv_rec ,
3555: x_tasv_rec) ;
3556:
3557: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3559: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3560: RAISE OKL_API.G_EXCEPTION_ERROR;
3561: END IF;
3554: l_tasv_rec ,
3555: x_tasv_rec) ;
3556:
3557: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3559: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3560: RAISE OKL_API.G_EXCEPTION_ERROR;
3561: END IF;
3562: END LOOP;
3555: x_tasv_rec) ;
3556:
3557: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3559: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3560: RAISE OKL_API.G_EXCEPTION_ERROR;
3561: END IF;
3562: END LOOP;
3563: END IF;
3556:
3557: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3559: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3560: RAISE OKL_API.G_EXCEPTION_ERROR;
3561: END IF;
3562: END LOOP;
3563: END IF;
3564: /*Bug# 3124577: 11.5.10 Rule Migration:-----------------------------------------------------------
3704: l_clev_rec.start_date := x_chrv_rec.start_date;
3705: elsif (l_cle_start_date > x_chrv_rec.start_date) AND
3706: (l_cle_start_date <= x_chrv_rec.end_date) then
3707: --get the dates from parent lines
3708: If nvl(l_parent_cle_start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
3709: null;
3710: Else
3711: If trunc(l_clev_rec.start_date) = trunc(l_parent_cle_start_date) then
3712: --do not change the line date (do not stamp header date on line)
3727: l_clev_rec.end_date := x_chrv_rec.end_date;
3728: ElsIf (l_cle_end_date < x_chrv_rec.end_date)
3729: and (l_cle_end_date >= x_chrv_rec.start_date) then
3730: --get the dates from parent lines
3731: If nvl(l_parent_cle_end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
3732: null;
3733: Else
3734: If trunc(l_clev_rec.end_date) = trunc(l_parent_cle_end_date) then
3735: --do not change the line date (do not stamp header date on line)
3870: If l_sub_csr%NOTFOUND then
3871: null;
3872: End If;
3873: close l_sub_csr;
3874: If nvl(l_max_subsidy_term,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
3875: l_clev_rec.end_date := x_chrv_rec.end_date;
3876: Elsif l_max_subsidy_term <= 0 then
3877: l_clev_rec.end_date := l_clev_rec.start_date;
3878: Elsif l_max_subsidy_term > 0 then
3897: p_clev_rec => l_clev_rec,
3898: x_clev_rec => lx_clev_rec);
3899:
3900: -- check return status
3901: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3902: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3903: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3904: raise OKL_API.G_EXCEPTION_ERROR;
3905: End If;
3898: x_clev_rec => lx_clev_rec);
3899:
3900: -- check return status
3901: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3902: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3903: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3904: raise OKL_API.G_EXCEPTION_ERROR;
3905: End If;
3906: End Loop;
3899:
3900: -- check return status
3901: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3902: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3903: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3904: raise OKL_API.G_EXCEPTION_ERROR;
3905: End If;
3906: End Loop;
3907: Close Cle_Csr;
3900: -- check return status
3901: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3902: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3903: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3904: raise OKL_API.G_EXCEPTION_ERROR;
3905: End If;
3906: End Loop;
3907: Close Cle_Csr;
3908: End Loop;
3930: x_msg_count => x_msg_count,
3931: x_msg_data => x_msg_data,
3932: p_chr_id => l_chrv_rec.id);
3933:
3934: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3935: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3937: raise OKL_API.G_EXCEPTION_ERROR;
3938: End If;
3931: x_msg_data => x_msg_data,
3932: p_chr_id => l_chrv_rec.id);
3933:
3934: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3935: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3937: raise OKL_API.G_EXCEPTION_ERROR;
3938: End If;
3939:
3932: p_chr_id => l_chrv_rec.id);
3933:
3934: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3935: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3937: raise OKL_API.G_EXCEPTION_ERROR;
3938: End If;
3939:
3940: END IF;
3933:
3934: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3935: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3936: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3937: raise OKL_API.G_EXCEPTION_ERROR;
3938: End If;
3939:
3940: END IF;
3941: -- Bug# 6438785
3970: p_khrv_rec => l_khrv_rec,
3971: x_khrv_rec => x_khrv_rec);
3972: end if;
3973:
3974: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3975: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3977: raise OKL_API.G_EXCEPTION_ERROR;
3978: End If;
3971: x_khrv_rec => x_khrv_rec);
3972: end if;
3973:
3974: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3975: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3977: raise OKL_API.G_EXCEPTION_ERROR;
3978: End If;
3979:
3972: end if;
3973:
3974: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3975: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3977: raise OKL_API.G_EXCEPTION_ERROR;
3978: End If;
3979:
3980: If p_edit_mode = 'Y' Then
3973:
3974: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3975: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3977: raise OKL_API.G_EXCEPTION_ERROR;
3978: End If;
3979:
3980: If p_edit_mode = 'Y' Then
3981: --Added for updating header status if required and cascading to lines
3978: End If;
3979:
3980: If p_edit_mode = 'Y' Then
3981: --Added for updating header status if required and cascading to lines
3982: If (x_khrv_rec.id is not null) OR (x_khrv_rec.id <> OKL_API.G_MISS_NUM) Then
3983: okl_contract_status_pub.cascade_lease_status_edit
3984: (p_api_version => p_api_version,
3985: p_init_msg_list => p_init_msg_list,
3986: x_return_status => x_return_status,
3987: x_msg_count => x_msg_count,
3988: x_msg_data => x_msg_data,
3989: p_chr_id => x_khrv_rec.id);
3990:
3991: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3992: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3994: raise OKL_API.G_EXCEPTION_ERROR;
3995: End If;
3988: x_msg_data => x_msg_data,
3989: p_chr_id => x_khrv_rec.id);
3990:
3991: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3992: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3994: raise OKL_API.G_EXCEPTION_ERROR;
3995: End If;
3996: End If;
3989: p_chr_id => x_khrv_rec.id);
3990:
3991: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3992: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3994: raise OKL_API.G_EXCEPTION_ERROR;
3995: End If;
3996: End If;
3997: End If;
3990:
3991: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3992: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3994: raise OKL_API.G_EXCEPTION_ERROR;
3995: End If;
3996: End If;
3997: End If;
3998:
4028: p_chr_id => l_khrv_rec.ID,
4029: x_rulv_tbl => x_rulv_tbl
4030: );
4031:
4032: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4033: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4034: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4035: raise OKL_API.G_EXCEPTION_ERROR;
4036: End If;
4029: x_rulv_tbl => x_rulv_tbl
4030: );
4031:
4032: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4033: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4034: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4035: raise OKL_API.G_EXCEPTION_ERROR;
4036: End If;
4037:
4030: );
4031:
4032: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4033: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4034: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4035: raise OKL_API.G_EXCEPTION_ERROR;
4036: End If;
4037:
4038: END IF;
4031:
4032: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4033: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4034: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4035: raise OKL_API.G_EXCEPTION_ERROR;
4036: End If;
4037:
4038: END IF;
4039:
4036: End If;
4037:
4038: END IF;
4039:
4040: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4041: x_msg_data => x_msg_data);
4042: EXCEPTION
4043: when OKL_API.G_EXCEPTION_ERROR then
4044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4039:
4040: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4041: x_msg_data => x_msg_data);
4042: EXCEPTION
4043: when OKL_API.G_EXCEPTION_ERROR then
4044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4045: p_api_name => l_api_name,
4046: p_pkg_name => g_pkg_name,
4047: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4040: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4041: x_msg_data => x_msg_data);
4042: EXCEPTION
4043: when OKL_API.G_EXCEPTION_ERROR then
4044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4045: p_api_name => l_api_name,
4046: p_pkg_name => g_pkg_name,
4047: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4048: x_msg_count => x_msg_count,
4043: when OKL_API.G_EXCEPTION_ERROR then
4044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4045: p_api_name => l_api_name,
4046: p_pkg_name => g_pkg_name,
4047: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4048: x_msg_count => x_msg_count,
4049: x_msg_data => x_msg_data,
4050: p_api_type => g_api_type);
4051: if l_khrv_csr%ISOPEN then
4051: if l_khrv_csr%ISOPEN then
4052: close l_khrv_csr;
4053: end if;
4054:
4055: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4056: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4057: p_api_name => l_api_name,
4058: p_pkg_name => g_pkg_name,
4059: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4052: close l_khrv_csr;
4053: end if;
4054:
4055: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4056: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4057: p_api_name => l_api_name,
4058: p_pkg_name => g_pkg_name,
4059: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4060: x_msg_count => x_msg_count,
4055: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4056: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4057: p_api_name => l_api_name,
4058: p_pkg_name => g_pkg_name,
4059: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4060: x_msg_count => x_msg_count,
4061: x_msg_data => x_msg_data,
4062: p_api_type => g_api_type);
4063: if l_khrv_csr%ISOPEN then
4064: close l_khrv_csr;
4065: end if;
4066:
4067: when OTHERS then
4068: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4069: p_api_name => l_api_name,
4070: p_pkg_name => g_pkg_name,
4071: p_exc_name => 'OTHERS',
4072: x_msg_count => x_msg_count,
4104: l_khrv_rec khrv_rec_type;
4105:
4106: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
4107: l_api_version CONSTANT NUMBER := 1.0;
4108: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4109:
4110:
4111: BEGIN
4112:
4111: BEGIN
4112:
4113: -- call START_ACTIVITY to create savepoint, check compatibility
4114: -- and initialize message list
4115: l_return_status := OKL_API.START_ACTIVITY(
4116: p_api_name => l_api_name,
4117: p_pkg_name => g_pkg_name,
4118: p_init_msg_list => p_init_msg_list,
4119: l_api_version => l_api_version,
4121: p_api_type => g_api_type,
4122: x_return_status => x_return_status);
4123:
4124: -- check if activity started successfully
4125: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4126: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4128: raise OKL_API.G_EXCEPTION_ERROR;
4129: End If;
4122: x_return_status => x_return_status);
4123:
4124: -- check if activity started successfully
4125: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4126: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4128: raise OKL_API.G_EXCEPTION_ERROR;
4129: End If;
4130:
4123:
4124: -- check if activity started successfully
4125: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4126: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4128: raise OKL_API.G_EXCEPTION_ERROR;
4129: End If;
4130:
4131: l_khrv_rec := p_khrv_rec;
4124: -- check if activity started successfully
4125: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4126: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4128: raise OKL_API.G_EXCEPTION_ERROR;
4129: End If;
4130:
4131: l_khrv_rec := p_khrv_rec;
4132: l_chrv_rec := p_chrv_rec;
4146: x_khrv_rec => x_khrv_rec
4147: );
4148:
4149: -- check return status
4150: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4151: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4153: raise OKL_API.G_EXCEPTION_ERROR;
4154: End If;
4147: );
4148:
4149: -- check return status
4150: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4151: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4153: raise OKL_API.G_EXCEPTION_ERROR;
4154: End If;
4155:
4148:
4149: -- check return status
4150: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4151: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4153: raise OKL_API.G_EXCEPTION_ERROR;
4154: End If;
4155:
4156:
4149: -- check return status
4150: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4151: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4153: raise OKL_API.G_EXCEPTION_ERROR;
4154: End If;
4155:
4156:
4157: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4153: raise OKL_API.G_EXCEPTION_ERROR;
4154: End If;
4155:
4156:
4157: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4158: x_msg_data => x_msg_data);
4159: EXCEPTION
4160: when OKL_API.G_EXCEPTION_ERROR then
4161: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4156:
4157: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4158: x_msg_data => x_msg_data);
4159: EXCEPTION
4160: when OKL_API.G_EXCEPTION_ERROR then
4161: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4162: p_api_name => l_api_name,
4163: p_pkg_name => g_pkg_name,
4164: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4157: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4158: x_msg_data => x_msg_data);
4159: EXCEPTION
4160: when OKL_API.G_EXCEPTION_ERROR then
4161: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4162: p_api_name => l_api_name,
4163: p_pkg_name => g_pkg_name,
4164: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4165: x_msg_count => x_msg_count,
4160: when OKL_API.G_EXCEPTION_ERROR then
4161: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4162: p_api_name => l_api_name,
4163: p_pkg_name => g_pkg_name,
4164: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4165: x_msg_count => x_msg_count,
4166: x_msg_data => x_msg_data,
4167: p_api_type => g_api_type);
4168:
4165: x_msg_count => x_msg_count,
4166: x_msg_data => x_msg_data,
4167: p_api_type => g_api_type);
4168:
4169: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4171: p_api_name => l_api_name,
4172: p_pkg_name => g_pkg_name,
4173: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4166: x_msg_data => x_msg_data,
4167: p_api_type => g_api_type);
4168:
4169: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4171: p_api_name => l_api_name,
4172: p_pkg_name => g_pkg_name,
4173: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4174: x_msg_count => x_msg_count,
4169: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4171: p_api_name => l_api_name,
4172: p_pkg_name => g_pkg_name,
4173: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4174: x_msg_count => x_msg_count,
4175: x_msg_data => x_msg_data,
4176: p_api_type => g_api_type);
4177:
4175: x_msg_data => x_msg_data,
4176: p_api_type => g_api_type);
4177:
4178: when OTHERS then
4179: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4180: p_api_name => l_api_name,
4181: p_pkg_name => g_pkg_name,
4182: p_exc_name => 'OTHERS',
4183: x_msg_count => x_msg_count,
4208: x_khrv_tbl OUT NOCOPY khrv_tbl_type) IS
4209:
4210: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
4211: l_api_version CONSTANT NUMBER := 1.0;
4212: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4213: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4214: i NUMBER;
4215: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
4216: BEGIN
4209:
4210: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
4211: l_api_version CONSTANT NUMBER := 1.0;
4212: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4213: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4214: i NUMBER;
4215: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
4216: BEGIN
4217: -- call START_ACTIVITY to create savepoint, check compatibility
4215: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
4216: BEGIN
4217: -- call START_ACTIVITY to create savepoint, check compatibility
4218: -- and initialize message list
4219: l_return_status := OKL_API.START_ACTIVITY(
4220: p_api_name => l_api_name,
4221: p_pkg_name => g_pkg_name,
4222: p_init_msg_list => p_init_msg_list,
4223: l_api_version => l_api_version,
4225: p_api_type => g_api_type,
4226: x_return_status => x_return_status);
4227:
4228: -- check if activity started successfully
4229: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4230: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4231: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4232: raise OKL_API.G_EXCEPTION_ERROR;
4233:
4226: x_return_status => x_return_status);
4227:
4228: -- check if activity started successfully
4229: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4230: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4231: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4232: raise OKL_API.G_EXCEPTION_ERROR;
4233:
4234: End If;
4227:
4228: -- check if activity started successfully
4229: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4230: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4231: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4232: raise OKL_API.G_EXCEPTION_ERROR;
4233:
4234: End If;
4235:
4228: -- check if activity started successfully
4229: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4230: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4231: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4232: raise OKL_API.G_EXCEPTION_ERROR;
4233:
4234: End If;
4235:
4236: If (p_chrv_tbl.COUNT > 0) Then
4248: p_khrv_rec => l_khrv_tbl(i),
4249: x_chrv_rec => x_chrv_tbl(i),
4250: x_khrv_rec => x_khrv_tbl(i));
4251:
4252: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
4253: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
4254: l_overall_status := x_return_status;
4255: End If;
4256: End If;
4249: x_chrv_rec => x_chrv_tbl(i),
4250: x_khrv_rec => x_khrv_tbl(i));
4251:
4252: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
4253: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
4254: l_overall_status := x_return_status;
4255: End If;
4256: End If;
4257:
4262: -- return overall status
4263: x_return_status := l_overall_status;
4264: End If;
4265:
4266: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4267: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4268: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4269: raise OKL_API.G_EXCEPTION_ERROR;
4270: End If;
4263: x_return_status := l_overall_status;
4264: End If;
4265:
4266: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4267: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4268: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4269: raise OKL_API.G_EXCEPTION_ERROR;
4270: End If;
4271:
4264: End If;
4265:
4266: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4267: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4268: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4269: raise OKL_API.G_EXCEPTION_ERROR;
4270: End If;
4271:
4272: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4265:
4266: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4267: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4268: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4269: raise OKL_API.G_EXCEPTION_ERROR;
4270: End If;
4271:
4272: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4273: x_msg_data => x_msg_data);
4268: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4269: raise OKL_API.G_EXCEPTION_ERROR;
4270: End If;
4271:
4272: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4273: x_msg_data => x_msg_data);
4274: EXCEPTION
4275: when OKL_API.G_EXCEPTION_ERROR then
4276: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4271:
4272: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4273: x_msg_data => x_msg_data);
4274: EXCEPTION
4275: when OKL_API.G_EXCEPTION_ERROR then
4276: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4277: p_api_name => l_api_name,
4278: p_pkg_name => g_pkg_name,
4279: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4272: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4273: x_msg_data => x_msg_data);
4274: EXCEPTION
4275: when OKL_API.G_EXCEPTION_ERROR then
4276: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4277: p_api_name => l_api_name,
4278: p_pkg_name => g_pkg_name,
4279: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4280: x_msg_count => x_msg_count,
4275: when OKL_API.G_EXCEPTION_ERROR then
4276: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4277: p_api_name => l_api_name,
4278: p_pkg_name => g_pkg_name,
4279: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4280: x_msg_count => x_msg_count,
4281: x_msg_data => x_msg_data,
4282: p_api_type => g_api_type);
4283:
4280: x_msg_count => x_msg_count,
4281: x_msg_data => x_msg_data,
4282: p_api_type => g_api_type);
4283:
4284: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4286: p_api_name => l_api_name,
4287: p_pkg_name => g_pkg_name,
4288: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4281: x_msg_data => x_msg_data,
4282: p_api_type => g_api_type);
4283:
4284: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4286: p_api_name => l_api_name,
4287: p_pkg_name => g_pkg_name,
4288: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4289: x_msg_count => x_msg_count,
4284: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4286: p_api_name => l_api_name,
4287: p_pkg_name => g_pkg_name,
4288: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4289: x_msg_count => x_msg_count,
4290: x_msg_data => x_msg_data,
4291: p_api_type => g_api_type);
4292:
4290: x_msg_data => x_msg_data,
4291: p_api_type => g_api_type);
4292:
4293: when OTHERS then
4294: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4295: p_api_name => l_api_name,
4296: p_pkg_name => g_pkg_name,
4297: p_exc_name => 'OTHERS',
4298: x_msg_count => x_msg_count,
4320:
4321: SUBTYPE chrv_rec_type IS OKL_OKC_MIGRATION_PVT.CHRV_REC_TYPE;
4322: SUBTYPE khrv_rec_type IS OKL_CONTRACT_PUB.KHRV_REC_TYPE;
4323: G_TLS_TYPE OKC_LINE_STYLES_V.LSE_TYPE%TYPE := 'TLS';
4324: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
4325: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
4326: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_OPEN_INTERFACE_PVT';
4327: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
4328: G_CANNOT_DELETE VARCHAR2(200) := 'OKC_CANNOT_DELETE';
4323: G_TLS_TYPE OKC_LINE_STYLES_V.LSE_TYPE%TYPE := 'TLS';
4324: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
4325: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
4326: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_OPEN_INTERFACE_PVT';
4327: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
4328: G_CANNOT_DELETE VARCHAR2(200) := 'OKC_CANNOT_DELETE';
4329: G_TABLE_NAME_TOKEN VARCHAR2(200) := 'TABLE_NAME';
4330: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACT_UNEXPECTED_ERROR';
4331: G_SQLCODE_TOKEN VARCHAR2(200) := 'SQLcode';
4688: END DELETE_RG_PARTY_ROLES;
4689:
4690:
4691: BEGIN
4692: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4693: -- Call start_activity to create savepoint, check compatibility
4694: -- and initialize message list
4695: x_return_status := OKL_API.START_ACTIVITY (
4696: l_api_name
4691: BEGIN
4692: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4693: -- Call start_activity to create savepoint, check compatibility
4694: -- and initialize message list
4695: x_return_status := OKL_API.START_ACTIVITY (
4696: l_api_name
4697: ,p_init_msg_list
4698: ,'_PVT'
4699: ,x_return_status);
4697: ,p_init_msg_list
4698: ,'_PVT'
4699: ,x_return_status);
4700: -- Check if activity started successfully
4701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4698: ,'_PVT'
4699: ,x_return_status);
4700: -- Check if activity started successfully
4701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4706: -- Get the Orig system id1
4699: ,x_return_status);
4700: -- Check if activity started successfully
4701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4706: -- Get the Orig system id1
4707: OPEN get_sts_code(p_chr_id => p_contract_id);
4700: -- Check if activity started successfully
4701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4706: -- Get the Orig system id1
4707: OPEN get_sts_code(p_chr_id => p_contract_id);
4708: FETCH get_sts_code INTO l_sts_code,
4709: l_orig_system_source_code,
4710: l_contract_number,
4711: l_authoring_org_id; --CDUBEY l_authoring_org_id added for MOAC
4712: IF get_sts_code%NOTFOUND THEN
4713: OKL_API.set_message(p_app_name => G_APP_NAME,
4714: p_msg_name => G_NO_MATCHING_RECORD,
4715: p_token1 => G_COL_NAME_TOKEN,
4716: p_token1_value => 'p_chr_id');
4717: x_return_status := OKL_API.G_RET_STS_ERROR;
4713: OKL_API.set_message(p_app_name => G_APP_NAME,
4714: p_msg_name => G_NO_MATCHING_RECORD,
4715: p_token1 => G_COL_NAME_TOKEN,
4716: p_token1_value => 'p_chr_id');
4717: x_return_status := OKL_API.G_RET_STS_ERROR;
4718: RAISE OKL_API.G_EXCEPTION_ERROR;
4719: END IF;
4720: CLOSE get_sts_code;
4721:
4714: p_msg_name => G_NO_MATCHING_RECORD,
4715: p_token1 => G_COL_NAME_TOKEN,
4716: p_token1_value => 'p_chr_id');
4717: x_return_status := OKL_API.G_RET_STS_ERROR;
4718: RAISE OKL_API.G_EXCEPTION_ERROR;
4719: END IF;
4720: CLOSE get_sts_code;
4721:
4722: -- Check rebook copy contract
4720: CLOSE get_sts_code;
4721:
4722: -- Check rebook copy contract
4723: if (nvl(l_orig_system_source_code, 'N') = 'OKL_REBOOK') then
4724: OKL_API.set_message(p_app_name => G_APP_NAME,
4725: p_msg_name => G_DELETE_CONT_RBK_ERROR,
4726: p_token1 => 'CONTRACT_NUMBER',
4727: p_token1_value => l_contract_number);
4728: x_return_status := OKL_API.G_RET_STS_ERROR;
4724: OKL_API.set_message(p_app_name => G_APP_NAME,
4725: p_msg_name => G_DELETE_CONT_RBK_ERROR,
4726: p_token1 => 'CONTRACT_NUMBER',
4727: p_token1_value => l_contract_number);
4728: x_return_status := OKL_API.G_RET_STS_ERROR;
4729: RAISE OKL_API.G_EXCEPTION_ERROR;
4730: end if;
4731:
4732: -- Check if funding txn exists
4725: p_msg_name => G_DELETE_CONT_RBK_ERROR,
4726: p_token1 => 'CONTRACT_NUMBER',
4727: p_token1_value => l_contract_number);
4728: x_return_status := OKL_API.G_RET_STS_ERROR;
4729: RAISE OKL_API.G_EXCEPTION_ERROR;
4730: end if;
4731:
4732: -- Check if funding txn exists
4733: l_funding_count := 0;
4741: and a.funding_type_code is not null
4742: and rownum < 2;
4743:
4744: if (l_funding_count > 0) then
4745: OKL_API.set_message(p_app_name => G_APP_NAME,
4746: p_msg_name => G_DELETE_CONT_FUND_ERROR,
4747: p_token1 => 'CONTRACT_NUMBER',
4748: p_token1_value => l_contract_number);
4749: x_return_status := OKL_API.G_RET_STS_ERROR;
4745: OKL_API.set_message(p_app_name => G_APP_NAME,
4746: p_msg_name => G_DELETE_CONT_FUND_ERROR,
4747: p_token1 => 'CONTRACT_NUMBER',
4748: p_token1_value => l_contract_number);
4749: x_return_status := OKL_API.G_RET_STS_ERROR;
4750: RAISE OKL_API.G_EXCEPTION_ERROR;
4751: end if;
4752:
4753: --check if contract was ever booked
4746: p_msg_name => G_DELETE_CONT_FUND_ERROR,
4747: p_token1 => 'CONTRACT_NUMBER',
4748: p_token1_value => l_contract_number);
4749: x_return_status := OKL_API.G_RET_STS_ERROR;
4750: RAISE OKL_API.G_EXCEPTION_ERROR;
4751: end if;
4752:
4753: --check if contract was ever booked
4754: l_chr_ever_booked := 'N';
4760: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4761: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_chr_ever_booked=' || l_chr_ever_booked);
4762: END IF;
4763: If nvl(l_chr_ever_booked, 'N') = 'Y' Then
4764: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4765: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
4766: x_return_status := OKL_API.G_RET_STS_ERROR;
4767: Raise OKL_API.G_EXCEPTION_ERROR;
4768: End If;
4762: END IF;
4763: If nvl(l_chr_ever_booked, 'N') = 'Y' Then
4764: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4765: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
4766: x_return_status := OKL_API.G_RET_STS_ERROR;
4767: Raise OKL_API.G_EXCEPTION_ERROR;
4768: End If;
4769:
4770: --check if contract has receivables invoices
4763: If nvl(l_chr_ever_booked, 'N') = 'Y' Then
4764: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4765: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
4766: x_return_status := OKL_API.G_RET_STS_ERROR;
4767: Raise OKL_API.G_EXCEPTION_ERROR;
4768: End If;
4769:
4770: --check if contract has receivables invoices
4771: l_chr_invoices := 'N';
4777:
4778: Close check_receipts_csr;
4779:
4780: If nvl(l_chr_invoices, 'N') = 'Y' Then
4781: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4782: p_msg_name => G_DELETE_CONT_RCPT_ERROR,
4783: p_token1 => 'CONTRACT_NUMBER',
4784: p_token1_value => l_contract_number);
4785: x_return_status := OKL_API.G_RET_STS_ERROR;
4781: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4782: p_msg_name => G_DELETE_CONT_RCPT_ERROR,
4783: p_token1 => 'CONTRACT_NUMBER',
4784: p_token1_value => l_contract_number);
4785: x_return_status := OKL_API.G_RET_STS_ERROR;
4786: RAISE OKL_API.G_EXCEPTION_ERROR;
4787: End If;
4788:
4789: --debug_message('l_sts_code=' || l_sts_code);
4782: p_msg_name => G_DELETE_CONT_RCPT_ERROR,
4783: p_token1 => 'CONTRACT_NUMBER',
4784: p_token1_value => l_contract_number);
4785: x_return_status := OKL_API.G_RET_STS_ERROR;
4786: RAISE OKL_API.G_EXCEPTION_ERROR;
4787: End If;
4788:
4789: --debug_message('l_sts_code=' || l_sts_code);
4790: if l_sts_code not in ('NEW', 'INCOMPLETE', 'PASSED', 'COMPLETE', 'APPROVED', 'PENDING_APPROVAL') then
4787: End If;
4788:
4789: --debug_message('l_sts_code=' || l_sts_code);
4790: if l_sts_code not in ('NEW', 'INCOMPLETE', 'PASSED', 'COMPLETE', 'APPROVED', 'PENDING_APPROVAL') then
4791: OKL_API.set_message(p_app_name => G_APP_NAME,
4792: p_msg_name => G_DELETE_CONT_ERROR,
4793: p_token1 => 'CONTRACT_NUMBER',
4794: p_token1_value => l_contract_number,
4795: p_token2 => 'STATUS',
4793: p_token1 => 'CONTRACT_NUMBER',
4794: p_token1_value => l_contract_number,
4795: p_token2 => 'STATUS',
4796: p_token2_value => l_sts_code);
4797: x_return_status := OKL_API.G_RET_STS_ERROR;
4798: RAISE OKL_API.G_EXCEPTION_ERROR;
4799: end if;
4800:
4801: -- Deleting the Draft journal Entries
4794: p_token1_value => l_contract_number,
4795: p_token2 => 'STATUS',
4796: p_token2_value => l_sts_code);
4797: x_return_status := OKL_API.G_RET_STS_ERROR;
4798: RAISE OKL_API.G_EXCEPTION_ERROR;
4799: end if;
4800:
4801: -- Deleting the Draft journal Entries
4802: FOR r_get_source_id IN c_get_source_id(p_khr_id => p_contract_id) LOOP
4807: x_msg_count => x_msg_count,
4808: x_msg_data => x_msg_data,
4809: p_source_id => r_get_source_id.id,
4810: p_source_table => 'OKL_TXL_CNTRCT_LNS');
4811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4812: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4814: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4815: END IF;
4808: x_msg_data => x_msg_data,
4809: p_source_id => r_get_source_id.id,
4810: p_source_table => 'OKL_TXL_CNTRCT_LNS');
4811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4812: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4814: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4815: END IF;
4816: END LOOP;
4809: p_source_id => r_get_source_id.id,
4810: p_source_table => 'OKL_TXL_CNTRCT_LNS');
4811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4812: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4814: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4815: END IF;
4816: END LOOP;
4817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4810: p_source_table => 'OKL_TXL_CNTRCT_LNS');
4811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4812: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4814: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4815: END IF;
4816: END LOOP;
4817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4814: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4815: END IF;
4816: END LOOP;
4817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4820: RAISE OKL_API.G_EXCEPTION_ERROR;
4821: END IF;
4814: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4815: END IF;
4816: END LOOP;
4817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4820: RAISE OKL_API.G_EXCEPTION_ERROR;
4821: END IF;
4822: -- Deleting the transctions of the journal Entries
4815: END IF;
4816: END LOOP;
4817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4820: RAISE OKL_API.G_EXCEPTION_ERROR;
4821: END IF;
4822: -- Deleting the transctions of the journal Entries
4823: FOR r_get_je_trans IN c_get_je_trans(p_khr_id => p_contract_id) LOOP
4816: END LOOP;
4817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4820: RAISE OKL_API.G_EXCEPTION_ERROR;
4821: END IF;
4822: -- Deleting the transctions of the journal Entries
4823: FOR r_get_je_trans IN c_get_je_trans(p_khr_id => p_contract_id) LOOP
4824: r_tcnv_rec.id := r_get_je_trans.trx_id;
4828: x_return_status => x_return_status,
4829: x_msg_count => x_msg_count,
4830: x_msg_data => x_msg_data,
4831: p_tcnv_rec => r_tcnv_rec);
4832: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4833: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4834: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4835: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4836: END IF;
4829: x_msg_count => x_msg_count,
4830: x_msg_data => x_msg_data,
4831: p_tcnv_rec => r_tcnv_rec);
4832: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4833: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4834: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4835: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4836: END IF;
4837: END LOOP;
4830: x_msg_data => x_msg_data,
4831: p_tcnv_rec => r_tcnv_rec);
4832: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4833: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4834: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4835: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4836: END IF;
4837: END LOOP;
4838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4831: p_tcnv_rec => r_tcnv_rec);
4832: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4833: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4834: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4835: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4836: END IF;
4837: END LOOP;
4838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4834: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4835: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4836: END IF;
4837: END LOOP;
4838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4841: RAISE OKL_API.G_EXCEPTION_ERROR;
4842: END IF;
4835: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4836: END IF;
4837: END LOOP;
4838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4841: RAISE OKL_API.G_EXCEPTION_ERROR;
4842: END IF;
4843: -- Delete the streams for the contract
4836: END IF;
4837: END LOOP;
4838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4841: RAISE OKL_API.G_EXCEPTION_ERROR;
4842: END IF;
4843: -- Delete the streams for the contract
4844: FOR r_get_k_stream IN c_get_k_stream(p_khr_id => p_contract_id) LOOP
4837: END LOOP;
4838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4841: RAISE OKL_API.G_EXCEPTION_ERROR;
4842: END IF;
4843: -- Delete the streams for the contract
4844: FOR r_get_k_stream IN c_get_k_stream(p_khr_id => p_contract_id) LOOP
4845: l_stmv_rec.id := r_get_k_stream.stm_id;
4849: x_return_status => x_return_status,
4850: x_msg_count => x_msg_count,
4851: x_msg_data => x_msg_data,
4852: p_stmv_rec => l_stmv_rec);
4853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4854: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4857: END IF;
4850: x_msg_count => x_msg_count,
4851: x_msg_data => x_msg_data,
4852: p_stmv_rec => l_stmv_rec);
4853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4854: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4857: END IF;
4858: END LOOP;
4851: x_msg_data => x_msg_data,
4852: p_stmv_rec => l_stmv_rec);
4853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4854: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4857: END IF;
4858: END LOOP;
4859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4852: p_stmv_rec => l_stmv_rec);
4853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4854: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4857: END IF;
4858: END LOOP;
4859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4857: END IF;
4858: END LOOP;
4859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4862: RAISE OKL_API.G_EXCEPTION_ERROR;
4863: END IF;
4856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4857: END IF;
4858: END LOOP;
4859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4862: RAISE OKL_API.G_EXCEPTION_ERROR;
4863: END IF;
4864: -- Delete the contract lines
4857: END IF;
4858: END LOOP;
4859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4862: RAISE OKL_API.G_EXCEPTION_ERROR;
4863: END IF;
4864: -- Delete the contract lines
4865: FOR r_get_k_top_line IN c_get_k_top_line(p_dnz_chr_id => p_contract_id) LOOP
4858: END LOOP;
4859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4862: RAISE OKL_API.G_EXCEPTION_ERROR;
4863: END IF;
4864: -- Delete the contract lines
4865: FOR r_get_k_top_line IN c_get_k_top_line(p_dnz_chr_id => p_contract_id) LOOP
4866: OKL_CONTRACT_PUB.delete_contract_line(
4869: x_return_status => x_return_status,
4870: x_msg_count => x_msg_count,
4871: x_msg_data => x_msg_data,
4872: p_line_id => r_get_k_top_line.top_line);
4873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4874: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4876: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4877: END IF;
4870: x_msg_count => x_msg_count,
4871: x_msg_data => x_msg_data,
4872: p_line_id => r_get_k_top_line.top_line);
4873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4874: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4876: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4877: END IF;
4878: END LOOP;
4871: x_msg_data => x_msg_data,
4872: p_line_id => r_get_k_top_line.top_line);
4873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4874: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4876: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4877: END IF;
4878: END LOOP;
4879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4872: p_line_id => r_get_k_top_line.top_line);
4873: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4874: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4876: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4877: END IF;
4878: END LOOP;
4879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4875: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4876: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4877: END IF;
4878: END LOOP;
4879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4882: RAISE OKL_API.G_EXCEPTION_ERROR;
4883: END IF;
4876: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4877: END IF;
4878: END LOOP;
4879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4882: RAISE OKL_API.G_EXCEPTION_ERROR;
4883: END IF;
4884:
4877: END IF;
4878: END LOOP;
4879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4882: RAISE OKL_API.G_EXCEPTION_ERROR;
4883: END IF;
4884:
4885: OKC_K_HISTORY_PUB.delete_all_rows(
4878: END LOOP;
4879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4882: RAISE OKL_API.G_EXCEPTION_ERROR;
4883: END IF;
4884:
4885: OKC_K_HISTORY_PUB.delete_all_rows(
4886: p_api_version => p_api_version,
4888: x_return_status => x_return_status,
4889: x_msg_count => x_msg_count,
4890: x_msg_data => x_msg_data,
4891: p_chr_id => p_contract_id);
4892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4895: RAISE OKL_API.G_EXCEPTION_ERROR;
4896: END IF;
4889: x_msg_count => x_msg_count,
4890: x_msg_data => x_msg_data,
4891: p_chr_id => p_contract_id);
4892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4895: RAISE OKL_API.G_EXCEPTION_ERROR;
4896: END IF;
4897:
4890: x_msg_data => x_msg_data,
4891: p_chr_id => p_contract_id);
4892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4895: RAISE OKL_API.G_EXCEPTION_ERROR;
4896: END IF;
4897:
4898: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4891: p_chr_id => p_contract_id);
4892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4895: RAISE OKL_API.G_EXCEPTION_ERROR;
4896: END IF;
4897:
4898: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4899: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4895: RAISE OKL_API.G_EXCEPTION_ERROR;
4896: END IF;
4897:
4898: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4899: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4902: RAISE OKL_API.G_EXCEPTION_ERROR;
4903: END IF;
4896: END IF;
4897:
4898: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4899: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4902: RAISE OKL_API.G_EXCEPTION_ERROR;
4903: END IF;
4904:
4897:
4898: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4899: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4902: RAISE OKL_API.G_EXCEPTION_ERROR;
4903: END IF;
4904:
4905: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4898: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4899: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4902: RAISE OKL_API.G_EXCEPTION_ERROR;
4903: END IF;
4904:
4905: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4902: RAISE OKL_API.G_EXCEPTION_ERROR;
4903: END IF;
4904:
4905: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4909: RAISE OKL_API.G_EXCEPTION_ERROR;
4910: END IF;
4903: END IF;
4904:
4905: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4909: RAISE OKL_API.G_EXCEPTION_ERROR;
4910: END IF;
4911:
4904:
4905: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4909: RAISE OKL_API.G_EXCEPTION_ERROR;
4910: END IF;
4911:
4912: x_return_status := DELETE_CONTACTS(p_contract_id);
4905: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4909: RAISE OKL_API.G_EXCEPTION_ERROR;
4910: END IF;
4911:
4912: x_return_status := DELETE_CONTACTS(p_contract_id);
4913: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4909: RAISE OKL_API.G_EXCEPTION_ERROR;
4910: END IF;
4911:
4912: x_return_status := DELETE_CONTACTS(p_contract_id);
4913: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4915: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_ERROR;
4917: END IF;
4910: END IF;
4911:
4912: x_return_status := DELETE_CONTACTS(p_contract_id);
4913: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4915: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_ERROR;
4917: END IF;
4918:
4911:
4912: x_return_status := DELETE_CONTACTS(p_contract_id);
4913: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4915: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_ERROR;
4917: END IF;
4918:
4919: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4912: x_return_status := DELETE_CONTACTS(p_contract_id);
4913: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4915: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_ERROR;
4917: END IF;
4918:
4919: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4916: RAISE OKL_API.G_EXCEPTION_ERROR;
4917: END IF;
4918:
4919: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4923: RAISE OKL_API.G_EXCEPTION_ERROR;
4924: END IF;
4917: END IF;
4918:
4919: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4923: RAISE OKL_API.G_EXCEPTION_ERROR;
4924: END IF;
4925:
4918:
4919: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4923: RAISE OKL_API.G_EXCEPTION_ERROR;
4924: END IF;
4925:
4926: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4919: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4923: RAISE OKL_API.G_EXCEPTION_ERROR;
4924: END IF;
4925:
4926: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4923: RAISE OKL_API.G_EXCEPTION_ERROR;
4924: END IF;
4925:
4926: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4930: RAISE OKL_API.G_EXCEPTION_ERROR;
4931: END IF;
4924: END IF;
4925:
4926: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4930: RAISE OKL_API.G_EXCEPTION_ERROR;
4931: END IF;
4932:
4925:
4926: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4930: RAISE OKL_API.G_EXCEPTION_ERROR;
4931: END IF;
4932:
4933: DELETE OKL_K_RATE_PARAMS
4926: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4930: RAISE OKL_API.G_EXCEPTION_ERROR;
4931: END IF;
4932:
4933: DELETE OKL_K_RATE_PARAMS
4934: WHERE KHR_ID = p_contract_id;
4948: x_msg_count => x_msg_count,
4949: x_msg_data => x_msg_data,
4950: p_chrv_rec => l_chrv_rec,
4951: p_khrv_rec => l_khrv_rec);
4952: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4955: RAISE OKL_API.G_EXCEPTION_ERROR;
4956: END IF;
4949: x_msg_data => x_msg_data,
4950: p_chrv_rec => l_chrv_rec,
4951: p_khrv_rec => l_khrv_rec);
4952: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4955: RAISE OKL_API.G_EXCEPTION_ERROR;
4956: END IF;
4957:
4950: p_chrv_rec => l_chrv_rec,
4951: p_khrv_rec => l_khrv_rec);
4952: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4955: RAISE OKL_API.G_EXCEPTION_ERROR;
4956: END IF;
4957:
4958: OKL_API.END_ACTIVITY (x_msg_count,
4951: p_khrv_rec => l_khrv_rec);
4952: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4955: RAISE OKL_API.G_EXCEPTION_ERROR;
4956: END IF;
4957:
4958: OKL_API.END_ACTIVITY (x_msg_count,
4959: x_msg_data );
4954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4955: RAISE OKL_API.G_EXCEPTION_ERROR;
4956: END IF;
4957:
4958: OKL_API.END_ACTIVITY (x_msg_count,
4959: x_msg_data );
4960: -- since we need to do this beacuse we need to delete to the contract
4961: --COMMIT;
4962: EXCEPTION
4959: x_msg_data );
4960: -- since we need to do this beacuse we need to delete to the contract
4961: --COMMIT;
4962: EXCEPTION
4963: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4964: IF c_get_k_top_line%ISOPEN THEN
4965: CLOSE c_get_k_top_line;
4966: END IF;
4967: IF get_sts_code%ISOPEN THEN
4976: END IF;
4977: IF c_get_source_id%ISOPEN THEN
4978: CLOSE c_get_source_id;
4979: END IF;
4980: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4981: l_api_name,
4982: G_PKG_NAME,
4983: 'OKL_API.G_RET_STS_ERROR',
4984: x_msg_count,
4979: END IF;
4980: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4981: l_api_name,
4982: G_PKG_NAME,
4983: 'OKL_API.G_RET_STS_ERROR',
4984: x_msg_count,
4985: x_msg_data,
4986: '_PVT');
4987: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4983: 'OKL_API.G_RET_STS_ERROR',
4984: x_msg_count,
4985: x_msg_data,
4986: '_PVT');
4987: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4988: IF c_get_k_top_line%ISOPEN THEN
4989: CLOSE c_get_k_top_line;
4990: END IF;
4991: IF get_sts_code%ISOPEN THEN
5000: END IF;
5001: IF c_get_source_id%ISOPEN THEN
5002: CLOSE c_get_source_id;
5003: END IF;
5004: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5005: l_api_name,
5006: G_PKG_NAME,
5007: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5008: x_msg_count,
5003: END IF;
5004: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5005: l_api_name,
5006: G_PKG_NAME,
5007: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5008: x_msg_count,
5009: x_msg_data,
5010: '_PVT');
5011: WHEN OTHERS THEN
5024: END IF;
5025: IF c_get_source_id%ISOPEN THEN
5026: CLOSE c_get_source_id;
5027: END IF;
5028: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5029: l_api_name,
5030: G_PKG_NAME,
5031: 'OTHERS',
5032: x_msg_count,
5055: l_khrv_rec khrv_rec_type;
5056:
5057: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
5058: l_api_version CONSTANT NUMBER := 1.0;
5059: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5060: BEGIN
5061:
5062: -- call START_ACTIVITY to create savepoint, check compatibility
5063: -- and initialize message list
5060: BEGIN
5061:
5062: -- call START_ACTIVITY to create savepoint, check compatibility
5063: -- and initialize message list
5064: l_return_status := OKL_API.START_ACTIVITY(
5065: p_api_name => l_api_name,
5066: p_pkg_name => g_pkg_name,
5067: p_init_msg_list => p_init_msg_list,
5068: l_api_version => l_api_version,
5070: p_api_type => g_api_type,
5071: x_return_status => x_return_status);
5072:
5073: -- check if activity started successfully
5074: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5075: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5076: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5077: raise OKL_API.G_EXCEPTION_ERROR;
5078: End If;
5071: x_return_status => x_return_status);
5072:
5073: -- check if activity started successfully
5074: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5075: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5076: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5077: raise OKL_API.G_EXCEPTION_ERROR;
5078: End If;
5079:
5072:
5073: -- check if activity started successfully
5074: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5075: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5076: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5077: raise OKL_API.G_EXCEPTION_ERROR;
5078: End If;
5079:
5080: l_khrv_rec := p_khrv_rec;
5073: -- check if activity started successfully
5074: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5075: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5076: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5077: raise OKL_API.G_EXCEPTION_ERROR;
5078: End If;
5079:
5080: l_khrv_rec := p_khrv_rec;
5081: l_chrv_rec := p_chrv_rec;
5098: x_msg_data => x_msg_data,
5099: p_chrv_rec => l_chrv_rec);
5100:
5101: -- check return status
5102: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5103: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5104: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5105: raise OKL_API.G_EXCEPTION_ERROR;
5106: End If;
5099: p_chrv_rec => l_chrv_rec);
5100:
5101: -- check return status
5102: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5103: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5104: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5105: raise OKL_API.G_EXCEPTION_ERROR;
5106: End If;
5107:
5100:
5101: -- check return status
5102: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5103: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5104: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5105: raise OKL_API.G_EXCEPTION_ERROR;
5106: End If;
5107:
5108: -- call procedure in complex API
5101: -- check return status
5102: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5103: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5104: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5105: raise OKL_API.G_EXCEPTION_ERROR;
5106: End If;
5107:
5108: -- call procedure in complex API
5109: OKL_KHR_PVT.Delete_Row(
5113: x_msg_count => x_msg_count,
5114: x_msg_data => x_msg_data,
5115: p_khrv_rec => p_khrv_rec);
5116:
5117: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5118: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5119: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5120: raise OKL_API.G_EXCEPTION_ERROR;
5121: End If;
5114: x_msg_data => x_msg_data,
5115: p_khrv_rec => p_khrv_rec);
5116:
5117: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5118: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5119: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5120: raise OKL_API.G_EXCEPTION_ERROR;
5121: End If;
5122:
5115: p_khrv_rec => p_khrv_rec);
5116:
5117: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5118: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5119: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5120: raise OKL_API.G_EXCEPTION_ERROR;
5121: End If;
5122:
5123: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5116:
5117: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5118: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5119: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5120: raise OKL_API.G_EXCEPTION_ERROR;
5121: End If;
5122:
5123: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5124: x_msg_data => x_msg_data);
5119: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5120: raise OKL_API.G_EXCEPTION_ERROR;
5121: End If;
5122:
5123: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5124: x_msg_data => x_msg_data);
5125: EXCEPTION
5126: when OKL_API.G_EXCEPTION_ERROR then
5127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5122:
5123: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5124: x_msg_data => x_msg_data);
5125: EXCEPTION
5126: when OKL_API.G_EXCEPTION_ERROR then
5127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5128: p_api_name => l_api_name,
5129: p_pkg_name => g_pkg_name,
5130: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5123: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5124: x_msg_data => x_msg_data);
5125: EXCEPTION
5126: when OKL_API.G_EXCEPTION_ERROR then
5127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5128: p_api_name => l_api_name,
5129: p_pkg_name => g_pkg_name,
5130: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5131: x_msg_count => x_msg_count,
5126: when OKL_API.G_EXCEPTION_ERROR then
5127: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5128: p_api_name => l_api_name,
5129: p_pkg_name => g_pkg_name,
5130: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5131: x_msg_count => x_msg_count,
5132: x_msg_data => x_msg_data,
5133: p_api_type => g_api_type);
5134:
5131: x_msg_count => x_msg_count,
5132: x_msg_data => x_msg_data,
5133: p_api_type => g_api_type);
5134:
5135: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5136: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5137: p_api_name => l_api_name,
5138: p_pkg_name => g_pkg_name,
5139: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5132: x_msg_data => x_msg_data,
5133: p_api_type => g_api_type);
5134:
5135: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5136: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5137: p_api_name => l_api_name,
5138: p_pkg_name => g_pkg_name,
5139: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5140: x_msg_count => x_msg_count,
5135: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5136: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5137: p_api_name => l_api_name,
5138: p_pkg_name => g_pkg_name,
5139: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5140: x_msg_count => x_msg_count,
5141: x_msg_data => x_msg_data,
5142: p_api_type => g_api_type);
5143:
5141: x_msg_data => x_msg_data,
5142: p_api_type => g_api_type);
5143:
5144: when OTHERS then
5145: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5146: p_api_name => l_api_name,
5147: p_pkg_name => g_pkg_name,
5148: p_exc_name => 'OTHERS',
5149: x_msg_count => x_msg_count,
5170: p_khrv_tbl IN khrv_tbl_type) IS
5171:
5172: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
5173: l_api_version CONSTANT NUMBER := 1.0;
5174: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5175: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5176: i NUMBER;
5177: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5178: BEGIN
5171:
5172: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
5173: l_api_version CONSTANT NUMBER := 1.0;
5174: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5175: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5176: i NUMBER;
5177: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5178: BEGIN
5179: -- call START_ACTIVITY to create savepoint, check compatibility
5177: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5178: BEGIN
5179: -- call START_ACTIVITY to create savepoint, check compatibility
5180: -- and initialize message list
5181: l_return_status := OKL_API.START_ACTIVITY(
5182: p_api_name => l_api_name,
5183: p_pkg_name => g_pkg_name,
5184: p_init_msg_list => p_init_msg_list,
5185: l_api_version => l_api_version,
5187: p_api_type => g_api_type,
5188: x_return_status => x_return_status);
5189:
5190: -- check if activity started successfully
5191: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5192: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5194: raise OKL_API.G_EXCEPTION_ERROR;
5195:
5188: x_return_status => x_return_status);
5189:
5190: -- check if activity started successfully
5191: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5192: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5194: raise OKL_API.G_EXCEPTION_ERROR;
5195:
5196: End If;
5189:
5190: -- check if activity started successfully
5191: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5192: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5194: raise OKL_API.G_EXCEPTION_ERROR;
5195:
5196: End If;
5197:
5190: -- check if activity started successfully
5191: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5192: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5193: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5194: raise OKL_API.G_EXCEPTION_ERROR;
5195:
5196: End If;
5197:
5198: If (p_chrv_tbl.COUNT > 0) Then
5207: x_msg_data => x_msg_data,
5208: p_chrv_rec => p_chrv_tbl(i),
5209: p_khrv_rec => l_khrv_tbl(i));
5210:
5211: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5212: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5213: l_overall_status := x_return_status;
5214: End If;
5215: End If;
5208: p_chrv_rec => p_chrv_tbl(i),
5209: p_khrv_rec => l_khrv_tbl(i));
5210:
5211: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5212: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5213: l_overall_status := x_return_status;
5214: End If;
5215: End If;
5216:
5221: -- return overall status
5222: x_return_status := l_overall_status;
5223: End If;
5224:
5225: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5226: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5227: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5228: raise OKL_API.G_EXCEPTION_ERROR;
5229: End If;
5222: x_return_status := l_overall_status;
5223: End If;
5224:
5225: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5226: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5227: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5228: raise OKL_API.G_EXCEPTION_ERROR;
5229: End If;
5230:
5223: End If;
5224:
5225: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5226: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5227: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5228: raise OKL_API.G_EXCEPTION_ERROR;
5229: End If;
5230:
5231: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5224:
5225: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5226: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5227: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5228: raise OKL_API.G_EXCEPTION_ERROR;
5229: End If;
5230:
5231: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5232: x_msg_data => x_msg_data);
5227: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5228: raise OKL_API.G_EXCEPTION_ERROR;
5229: End If;
5230:
5231: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5232: x_msg_data => x_msg_data);
5233: EXCEPTION
5234: when OKL_API.G_EXCEPTION_ERROR then
5235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5230:
5231: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5232: x_msg_data => x_msg_data);
5233: EXCEPTION
5234: when OKL_API.G_EXCEPTION_ERROR then
5235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5236: p_api_name => l_api_name,
5237: p_pkg_name => g_pkg_name,
5238: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5231: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5232: x_msg_data => x_msg_data);
5233: EXCEPTION
5234: when OKL_API.G_EXCEPTION_ERROR then
5235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5236: p_api_name => l_api_name,
5237: p_pkg_name => g_pkg_name,
5238: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5239: x_msg_count => x_msg_count,
5234: when OKL_API.G_EXCEPTION_ERROR then
5235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5236: p_api_name => l_api_name,
5237: p_pkg_name => g_pkg_name,
5238: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5239: x_msg_count => x_msg_count,
5240: x_msg_data => x_msg_data,
5241: p_api_type => g_api_type);
5242:
5239: x_msg_count => x_msg_count,
5240: x_msg_data => x_msg_data,
5241: p_api_type => g_api_type);
5242:
5243: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5245: p_api_name => l_api_name,
5246: p_pkg_name => g_pkg_name,
5247: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5240: x_msg_data => x_msg_data,
5241: p_api_type => g_api_type);
5242:
5243: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5245: p_api_name => l_api_name,
5246: p_pkg_name => g_pkg_name,
5247: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5248: x_msg_count => x_msg_count,
5243: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5245: p_api_name => l_api_name,
5246: p_pkg_name => g_pkg_name,
5247: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5248: x_msg_count => x_msg_count,
5249: x_msg_data => x_msg_data,
5250: p_api_type => g_api_type);
5251:
5249: x_msg_data => x_msg_data,
5250: p_api_type => g_api_type);
5251:
5252: when OTHERS then
5253: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5254: p_api_name => l_api_name,
5255: p_pkg_name => g_pkg_name,
5256: p_exc_name => 'OTHERS',
5257: x_msg_count => x_msg_count,
5281: l_khrv_rec khrv_rec_type;
5282:
5283: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_HEADER';
5284: l_api_version CONSTANT NUMBER := 1.0;
5285: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5286: BEGIN
5287:
5288: -- call START_ACTIVITY to create savepoint, check compatibility
5289: -- and initialize message list
5286: BEGIN
5287:
5288: -- call START_ACTIVITY to create savepoint, check compatibility
5289: -- and initialize message list
5290: l_return_status := OKL_API.START_ACTIVITY(
5291: p_api_name => l_api_name,
5292: p_pkg_name => g_pkg_name,
5293: p_init_msg_list => p_init_msg_list,
5294: l_api_version => l_api_version,
5296: p_api_type => g_api_type,
5297: x_return_status => x_return_status);
5298:
5299: -- check if activity started successfully
5300: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5301: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5302: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5303: raise OKL_API.G_EXCEPTION_ERROR;
5304: End If;
5297: x_return_status => x_return_status);
5298:
5299: -- check if activity started successfully
5300: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5301: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5302: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5303: raise OKL_API.G_EXCEPTION_ERROR;
5304: End If;
5305:
5298:
5299: -- check if activity started successfully
5300: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5301: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5302: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5303: raise OKL_API.G_EXCEPTION_ERROR;
5304: End If;
5305:
5306: l_khrv_rec := p_khrv_rec;
5299: -- check if activity started successfully
5300: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5301: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5302: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5303: raise OKL_API.G_EXCEPTION_ERROR;
5304: End If;
5305:
5306: l_khrv_rec := p_khrv_rec;
5307: l_chrv_rec := p_chrv_rec;
5324: x_msg_data => x_msg_data,
5325: p_chrv_rec => l_chrv_rec);
5326:
5327: -- check return status
5328: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5329: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5330: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5331: raise OKL_API.G_EXCEPTION_ERROR;
5332: End If;
5325: p_chrv_rec => l_chrv_rec);
5326:
5327: -- check return status
5328: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5329: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5330: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5331: raise OKL_API.G_EXCEPTION_ERROR;
5332: End If;
5333:
5326:
5327: -- check return status
5328: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5329: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5330: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5331: raise OKL_API.G_EXCEPTION_ERROR;
5332: End If;
5333:
5334: -- call procedure in complex API
5327: -- check return status
5328: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5329: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5330: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5331: raise OKL_API.G_EXCEPTION_ERROR;
5332: End If;
5333:
5334: -- call procedure in complex API
5335: OKL_KHR_PVT.lock_Row(
5339: x_msg_count => x_msg_count,
5340: x_msg_data => x_msg_data,
5341: p_khrv_rec => p_khrv_rec);
5342:
5343: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5344: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5345: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5346: raise OKL_API.G_EXCEPTION_ERROR;
5347: End If;
5340: x_msg_data => x_msg_data,
5341: p_khrv_rec => p_khrv_rec);
5342:
5343: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5344: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5345: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5346: raise OKL_API.G_EXCEPTION_ERROR;
5347: End If;
5348:
5341: p_khrv_rec => p_khrv_rec);
5342:
5343: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5344: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5345: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5346: raise OKL_API.G_EXCEPTION_ERROR;
5347: End If;
5348:
5349: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5342:
5343: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5344: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5345: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5346: raise OKL_API.G_EXCEPTION_ERROR;
5347: End If;
5348:
5349: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5350: x_msg_data => x_msg_data);
5345: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5346: raise OKL_API.G_EXCEPTION_ERROR;
5347: End If;
5348:
5349: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5350: x_msg_data => x_msg_data);
5351: EXCEPTION
5352: when OKL_API.G_EXCEPTION_ERROR then
5353: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5348:
5349: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5350: x_msg_data => x_msg_data);
5351: EXCEPTION
5352: when OKL_API.G_EXCEPTION_ERROR then
5353: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5354: p_api_name => l_api_name,
5355: p_pkg_name => g_pkg_name,
5356: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5349: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5350: x_msg_data => x_msg_data);
5351: EXCEPTION
5352: when OKL_API.G_EXCEPTION_ERROR then
5353: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5354: p_api_name => l_api_name,
5355: p_pkg_name => g_pkg_name,
5356: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5357: x_msg_count => x_msg_count,
5352: when OKL_API.G_EXCEPTION_ERROR then
5353: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5354: p_api_name => l_api_name,
5355: p_pkg_name => g_pkg_name,
5356: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5357: x_msg_count => x_msg_count,
5358: x_msg_data => x_msg_data,
5359: p_api_type => g_api_type);
5360:
5357: x_msg_count => x_msg_count,
5358: x_msg_data => x_msg_data,
5359: p_api_type => g_api_type);
5360:
5361: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5362: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5363: p_api_name => l_api_name,
5364: p_pkg_name => g_pkg_name,
5365: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5358: x_msg_data => x_msg_data,
5359: p_api_type => g_api_type);
5360:
5361: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5362: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5363: p_api_name => l_api_name,
5364: p_pkg_name => g_pkg_name,
5365: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5366: x_msg_count => x_msg_count,
5361: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5362: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5363: p_api_name => l_api_name,
5364: p_pkg_name => g_pkg_name,
5365: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5366: x_msg_count => x_msg_count,
5367: x_msg_data => x_msg_data,
5368: p_api_type => g_api_type);
5369:
5367: x_msg_data => x_msg_data,
5368: p_api_type => g_api_type);
5369:
5370: when OTHERS then
5371: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5372: p_api_name => l_api_name,
5373: p_pkg_name => g_pkg_name,
5374: p_exc_name => 'OTHERS',
5375: x_msg_count => x_msg_count,
5396: p_khrv_tbl IN khrv_tbl_type) IS
5397:
5398: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_HEADER';
5399: l_api_version CONSTANT NUMBER := 1.0;
5400: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5401: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5402: i NUMBER;
5403: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5404: BEGIN
5397:
5398: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_HEADER';
5399: l_api_version CONSTANT NUMBER := 1.0;
5400: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5401: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5402: i NUMBER;
5403: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5404: BEGIN
5405: -- call START_ACTIVITY to create savepoint, check compatibility
5403: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5404: BEGIN
5405: -- call START_ACTIVITY to create savepoint, check compatibility
5406: -- and initialize message list
5407: l_return_status := OKL_API.START_ACTIVITY(
5408: p_api_name => l_api_name,
5409: p_pkg_name => g_pkg_name,
5410: p_init_msg_list => p_init_msg_list,
5411: l_api_version => l_api_version,
5413: p_api_type => g_api_type,
5414: x_return_status => x_return_status);
5415:
5416: -- check if activity started successfully
5417: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5418: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5419: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5420: raise OKL_API.G_EXCEPTION_ERROR;
5421:
5414: x_return_status => x_return_status);
5415:
5416: -- check if activity started successfully
5417: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5418: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5419: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5420: raise OKL_API.G_EXCEPTION_ERROR;
5421:
5422: End If;
5415:
5416: -- check if activity started successfully
5417: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5418: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5419: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5420: raise OKL_API.G_EXCEPTION_ERROR;
5421:
5422: End If;
5423:
5416: -- check if activity started successfully
5417: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5418: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5419: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5420: raise OKL_API.G_EXCEPTION_ERROR;
5421:
5422: End If;
5423:
5424: If (p_chrv_tbl.COUNT > 0) Then
5433: x_msg_data => x_msg_data,
5434: p_chrv_rec => p_chrv_tbl(i),
5435: p_khrv_rec => l_khrv_tbl(i));
5436:
5437: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5438: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5439: l_overall_status := x_return_status;
5440: End If;
5441: End If;
5434: p_chrv_rec => p_chrv_tbl(i),
5435: p_khrv_rec => l_khrv_tbl(i));
5436:
5437: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5438: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5439: l_overall_status := x_return_status;
5440: End If;
5441: End If;
5442:
5447: -- return overall status
5448: x_return_status := l_overall_status;
5449: End If;
5450:
5451: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5452: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5454: raise OKL_API.G_EXCEPTION_ERROR;
5455: End If;
5448: x_return_status := l_overall_status;
5449: End If;
5450:
5451: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5452: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5454: raise OKL_API.G_EXCEPTION_ERROR;
5455: End If;
5456:
5449: End If;
5450:
5451: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5452: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5454: raise OKL_API.G_EXCEPTION_ERROR;
5455: End If;
5456:
5457: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5450:
5451: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5452: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5453: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5454: raise OKL_API.G_EXCEPTION_ERROR;
5455: End If;
5456:
5457: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5458: x_msg_data => x_msg_data);
5453: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5454: raise OKL_API.G_EXCEPTION_ERROR;
5455: End If;
5456:
5457: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5458: x_msg_data => x_msg_data);
5459: EXCEPTION
5460: when OKL_API.G_EXCEPTION_ERROR then
5461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5456:
5457: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5458: x_msg_data => x_msg_data);
5459: EXCEPTION
5460: when OKL_API.G_EXCEPTION_ERROR then
5461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5462: p_api_name => l_api_name,
5463: p_pkg_name => g_pkg_name,
5464: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5457: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5458: x_msg_data => x_msg_data);
5459: EXCEPTION
5460: when OKL_API.G_EXCEPTION_ERROR then
5461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5462: p_api_name => l_api_name,
5463: p_pkg_name => g_pkg_name,
5464: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5465: x_msg_count => x_msg_count,
5460: when OKL_API.G_EXCEPTION_ERROR then
5461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5462: p_api_name => l_api_name,
5463: p_pkg_name => g_pkg_name,
5464: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5465: x_msg_count => x_msg_count,
5466: x_msg_data => x_msg_data,
5467: p_api_type => g_api_type);
5468:
5465: x_msg_count => x_msg_count,
5466: x_msg_data => x_msg_data,
5467: p_api_type => g_api_type);
5468:
5469: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5471: p_api_name => l_api_name,
5472: p_pkg_name => g_pkg_name,
5473: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5466: x_msg_data => x_msg_data,
5467: p_api_type => g_api_type);
5468:
5469: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5471: p_api_name => l_api_name,
5472: p_pkg_name => g_pkg_name,
5473: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5474: x_msg_count => x_msg_count,
5469: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5471: p_api_name => l_api_name,
5472: p_pkg_name => g_pkg_name,
5473: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5474: x_msg_count => x_msg_count,
5475: x_msg_data => x_msg_data,
5476: p_api_type => g_api_type);
5477:
5475: x_msg_data => x_msg_data,
5476: p_api_type => g_api_type);
5477:
5478: when OTHERS then
5479: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5480: p_api_name => l_api_name,
5481: p_pkg_name => g_pkg_name,
5482: p_exc_name => 'OTHERS',
5483: x_msg_count => x_msg_count,
5508: l_khrv_rec khrv_rec_type;
5509:
5510: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_HEADER';
5511: l_api_version CONSTANT NUMBER := 1.0;
5512: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5513: BEGIN
5514:
5515: --dbms_output.put_line('Start validation');
5516: -- call START_ACTIVITY to create savepoint, check compatibility
5514:
5515: --dbms_output.put_line('Start validation');
5516: -- call START_ACTIVITY to create savepoint, check compatibility
5517: -- and initialize message list
5518: l_return_status := OKL_API.START_ACTIVITY(
5519: p_api_name => l_api_name,
5520: p_pkg_name => g_pkg_name,
5521: p_init_msg_list => p_init_msg_list,
5522: l_api_version => l_api_version,
5524: p_api_type => g_api_type,
5525: x_return_status => x_return_status);
5526:
5527: -- check if activity started successfully
5528: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5529: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5530: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5531: raise OKL_API.G_EXCEPTION_ERROR;
5532: End If;
5525: x_return_status => x_return_status);
5526:
5527: -- check if activity started successfully
5528: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5529: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5530: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5531: raise OKL_API.G_EXCEPTION_ERROR;
5532: End If;
5533:
5526:
5527: -- check if activity started successfully
5528: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5529: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5530: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5531: raise OKL_API.G_EXCEPTION_ERROR;
5532: End If;
5533:
5534: --dbms_output.put_line('Started activity');
5527: -- check if activity started successfully
5528: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5529: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5530: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5531: raise OKL_API.G_EXCEPTION_ERROR;
5532: End If;
5533:
5534: --dbms_output.put_line('Started activity');
5535:
5554: x_msg_data => x_msg_data,
5555: p_chrv_rec => l_chrv_rec);
5556:
5557: -- check return status
5558: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5559: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5560: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5561: raise OKL_API.G_EXCEPTION_ERROR;
5562: End If;
5555: p_chrv_rec => l_chrv_rec);
5556:
5557: -- check return status
5558: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5559: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5560: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5561: raise OKL_API.G_EXCEPTION_ERROR;
5562: End If;
5563: --dbms_output.put_line('Got standard validation');
5556:
5557: -- check return status
5558: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5559: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5560: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5561: raise OKL_API.G_EXCEPTION_ERROR;
5562: End If;
5563: --dbms_output.put_line('Got standard validation');
5564:
5557: -- check return status
5558: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5559: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5560: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5561: raise OKL_API.G_EXCEPTION_ERROR;
5562: End If;
5563: --dbms_output.put_line('Got standard validation');
5564:
5565: -- pass OKC contract header id
5573: x_msg_count => x_msg_count,
5574: x_msg_data => x_msg_data,
5575: p_khrv_rec => l_khrv_rec);
5576:
5577: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5578: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5579: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5580: raise OKL_API.G_EXCEPTION_ERROR;
5581: End If;
5574: x_msg_data => x_msg_data,
5575: p_khrv_rec => l_khrv_rec);
5576:
5577: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5578: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5579: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5580: raise OKL_API.G_EXCEPTION_ERROR;
5581: End If;
5582: --dbms_output.put_line('Got shadow validation');
5575: p_khrv_rec => l_khrv_rec);
5576:
5577: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5578: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5579: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5580: raise OKL_API.G_EXCEPTION_ERROR;
5581: End If;
5582: --dbms_output.put_line('Got shadow validation');
5583:
5576:
5577: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5578: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5579: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5580: raise OKL_API.G_EXCEPTION_ERROR;
5581: End If;
5582: --dbms_output.put_line('Got shadow validation');
5583:
5584: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5580: raise OKL_API.G_EXCEPTION_ERROR;
5581: End If;
5582: --dbms_output.put_line('Got shadow validation');
5583:
5584: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5585: x_msg_data => x_msg_data);
5586: --dbms_output.put_line('Done');
5587: EXCEPTION
5588: when OKL_API.G_EXCEPTION_ERROR then
5584: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5585: x_msg_data => x_msg_data);
5586: --dbms_output.put_line('Done');
5587: EXCEPTION
5588: when OKL_API.G_EXCEPTION_ERROR then
5589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5590: p_api_name => l_api_name,
5591: p_pkg_name => g_pkg_name,
5592: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5585: x_msg_data => x_msg_data);
5586: --dbms_output.put_line('Done');
5587: EXCEPTION
5588: when OKL_API.G_EXCEPTION_ERROR then
5589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5590: p_api_name => l_api_name,
5591: p_pkg_name => g_pkg_name,
5592: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5593: x_msg_count => x_msg_count,
5588: when OKL_API.G_EXCEPTION_ERROR then
5589: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5590: p_api_name => l_api_name,
5591: p_pkg_name => g_pkg_name,
5592: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5593: x_msg_count => x_msg_count,
5594: x_msg_data => x_msg_data,
5595: p_api_type => g_api_type);
5596:
5593: x_msg_count => x_msg_count,
5594: x_msg_data => x_msg_data,
5595: p_api_type => g_api_type);
5596:
5597: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5599: p_api_name => l_api_name,
5600: p_pkg_name => g_pkg_name,
5601: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5594: x_msg_data => x_msg_data,
5595: p_api_type => g_api_type);
5596:
5597: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5599: p_api_name => l_api_name,
5600: p_pkg_name => g_pkg_name,
5601: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5602: x_msg_count => x_msg_count,
5597: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5599: p_api_name => l_api_name,
5600: p_pkg_name => g_pkg_name,
5601: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5602: x_msg_count => x_msg_count,
5603: x_msg_data => x_msg_data,
5604: p_api_type => g_api_type);
5605:
5603: x_msg_data => x_msg_data,
5604: p_api_type => g_api_type);
5605:
5606: when OTHERS then
5607: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5608: p_api_name => l_api_name,
5609: p_pkg_name => g_pkg_name,
5610: p_exc_name => 'OTHERS',
5611: x_msg_count => x_msg_count,
5632: p_khrv_tbl IN khrv_tbl_type) IS
5633:
5634: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_HEADER';
5635: l_api_version CONSTANT NUMBER := 1.0;
5636: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5637: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5638: i NUMBER;
5639: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5640: BEGIN
5633:
5634: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_HEADER';
5635: l_api_version CONSTANT NUMBER := 1.0;
5636: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5637: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5638: i NUMBER;
5639: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5640: BEGIN
5641: -- call START_ACTIVITY to create savepoint, check compatibility
5639: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5640: BEGIN
5641: -- call START_ACTIVITY to create savepoint, check compatibility
5642: -- and initialize message list
5643: l_return_status := OKL_API.START_ACTIVITY(
5644: p_api_name => l_api_name,
5645: p_pkg_name => g_pkg_name,
5646: p_init_msg_list => p_init_msg_list,
5647: l_api_version => l_api_version,
5649: p_api_type => g_api_type,
5650: x_return_status => x_return_status);
5651:
5652: -- check if activity started successfully
5653: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5654: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5655: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5656: raise OKL_API.G_EXCEPTION_ERROR;
5657:
5650: x_return_status => x_return_status);
5651:
5652: -- check if activity started successfully
5653: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5654: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5655: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5656: raise OKL_API.G_EXCEPTION_ERROR;
5657:
5658: End If;
5651:
5652: -- check if activity started successfully
5653: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5654: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5655: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5656: raise OKL_API.G_EXCEPTION_ERROR;
5657:
5658: End If;
5659:
5652: -- check if activity started successfully
5653: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5654: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5655: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5656: raise OKL_API.G_EXCEPTION_ERROR;
5657:
5658: End If;
5659:
5660: If (p_chrv_tbl.COUNT > 0) Then
5669: x_msg_data => x_msg_data,
5670: p_chrv_rec => p_chrv_tbl(i),
5671: p_khrv_rec => l_khrv_tbl(i));
5672:
5673: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5674: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5675: l_overall_status := x_return_status;
5676: End If;
5677: End If;
5670: p_chrv_rec => p_chrv_tbl(i),
5671: p_khrv_rec => l_khrv_tbl(i));
5672:
5673: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5674: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5675: l_overall_status := x_return_status;
5676: End If;
5677: End If;
5678:
5683: -- return overall status
5684: x_return_status := l_overall_status;
5685: End If;
5686:
5687: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5688: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5689: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5690: raise OKL_API.G_EXCEPTION_ERROR;
5691: End If;
5684: x_return_status := l_overall_status;
5685: End If;
5686:
5687: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5688: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5689: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5690: raise OKL_API.G_EXCEPTION_ERROR;
5691: End If;
5692:
5685: End If;
5686:
5687: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5688: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5689: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5690: raise OKL_API.G_EXCEPTION_ERROR;
5691: End If;
5692:
5693: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5686:
5687: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5688: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5689: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5690: raise OKL_API.G_EXCEPTION_ERROR;
5691: End If;
5692:
5693: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5694: x_msg_data => x_msg_data);
5689: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5690: raise OKL_API.G_EXCEPTION_ERROR;
5691: End If;
5692:
5693: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5694: x_msg_data => x_msg_data);
5695: EXCEPTION
5696: when OKL_API.G_EXCEPTION_ERROR then
5697: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5692:
5693: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5694: x_msg_data => x_msg_data);
5695: EXCEPTION
5696: when OKL_API.G_EXCEPTION_ERROR then
5697: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5698: p_api_name => l_api_name,
5699: p_pkg_name => g_pkg_name,
5700: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5693: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5694: x_msg_data => x_msg_data);
5695: EXCEPTION
5696: when OKL_API.G_EXCEPTION_ERROR then
5697: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5698: p_api_name => l_api_name,
5699: p_pkg_name => g_pkg_name,
5700: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5701: x_msg_count => x_msg_count,
5696: when OKL_API.G_EXCEPTION_ERROR then
5697: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5698: p_api_name => l_api_name,
5699: p_pkg_name => g_pkg_name,
5700: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5701: x_msg_count => x_msg_count,
5702: x_msg_data => x_msg_data,
5703: p_api_type => g_api_type);
5704:
5701: x_msg_count => x_msg_count,
5702: x_msg_data => x_msg_data,
5703: p_api_type => g_api_type);
5704:
5705: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5706: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5707: p_api_name => l_api_name,
5708: p_pkg_name => g_pkg_name,
5709: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5702: x_msg_data => x_msg_data,
5703: p_api_type => g_api_type);
5704:
5705: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5706: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5707: p_api_name => l_api_name,
5708: p_pkg_name => g_pkg_name,
5709: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5710: x_msg_count => x_msg_count,
5705: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5706: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5707: p_api_name => l_api_name,
5708: p_pkg_name => g_pkg_name,
5709: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5710: x_msg_count => x_msg_count,
5711: x_msg_data => x_msg_data,
5712: p_api_type => g_api_type);
5713:
5711: x_msg_data => x_msg_data,
5712: p_api_type => g_api_type);
5713:
5714: when OTHERS then
5715: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5716: p_api_name => l_api_name,
5717: p_pkg_name => g_pkg_name,
5718: p_exc_name => 'OTHERS',
5719: x_msg_count => x_msg_count,
5760: roundoff_error EXCEPTION;
5761:
5762: BEGIN
5763:
5764: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5765:
5766: -- Take original record values
5767: x_clev_rec := p_clev_rec;
5768: x_klev_rec := p_klev_rec;
5793: --dbms_output.put_line('Round off start '||l_currency_code);
5794: -- Round off all OKL Line Amounts
5795: IF (p_klev_rec.amount IS NOT NULL
5796: AND
5797: p_klev_rec.amount <> OKL_API.G_MISS_NUM) THEN
5798:
5799: l_conv_amount := NULL;
5800: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5801: p_amount => p_klev_rec.amount,
5808: --Added by jjuneja for rounding of Origination_income
5809:
5810: IF (p_klev_rec.origination_income IS NOT NULL
5811: AND
5812: p_klev_rec.origination_income <> OKL_API.G_MISS_NUM) THEN
5813:
5814: l_conv_amount := NULL;
5815: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5816: p_amount => p_klev_rec.origination_income,
5823: --End of addition by jjuneja
5824:
5825: IF (p_klev_rec.amount_stake IS NOT NULL
5826: AND
5827: p_klev_rec.amount_stake<> OKL_API.G_MISS_NUM) THEN
5828:
5829: l_conv_amount := NULL;
5830: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5831: p_amount => p_klev_rec.amount_stake,
5836: END IF;
5837:
5838: IF (p_klev_rec.appraisal_value IS NOT NULL
5839: AND
5840: p_klev_rec.appraisal_value <> OKL_API.G_MISS_NUM) THEN
5841:
5842: l_conv_amount := NULL;
5843: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5844: p_amount => p_klev_rec.appraisal_value,
5849: END IF;
5850:
5851: IF (p_klev_rec.capital_amount IS NOT NULL
5852: AND
5853: p_klev_rec.capital_amount <> OKL_API.G_MISS_NUM) THEN
5854:
5855: l_conv_amount := NULL;
5856: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5857: p_amount => p_klev_rec.capital_amount,
5862: END IF;
5863:
5864: IF (p_klev_rec.capital_reduction IS NOT NULL
5865: AND
5866: p_klev_rec.capital_reduction <> OKL_API.G_MISS_NUM) THEN
5867:
5868: l_conv_amount := NULL;
5869: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5870: p_amount => p_klev_rec.capital_reduction,
5875: END IF;
5876:
5877: IF (p_klev_rec.capitalized_interest IS NOT NULL
5878: AND
5879: p_klev_rec.capitalized_interest <> OKL_API.G_MISS_NUM) THEN
5880:
5881: l_conv_amount := NULL;
5882: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5883: p_amount => p_klev_rec.capitalized_interest,
5888: END IF;
5889:
5890: IF (p_klev_rec.coverage IS NOT NULL
5891: AND
5892: p_klev_rec.coverage <> OKL_API.G_MISS_NUM) THEN
5893:
5894: l_conv_amount := NULL;
5895: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5896: p_amount => p_klev_rec.coverage,
5901: END IF;
5902:
5903: IF (p_klev_rec.estimated_oec IS NOT NULL
5904: AND
5905: p_klev_rec.estimated_oec <> OKL_API.G_MISS_NUM) THEN
5906:
5907: l_conv_amount := NULL;
5908: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5909: p_amount => p_klev_rec.estimated_oec,
5914: END IF;
5915:
5916: IF (p_klev_rec.fee_charge IS NOT NULL
5917: AND
5918: p_klev_rec.fee_charge <> OKL_API.G_MISS_NUM) THEN
5919:
5920: l_conv_amount := NULL;
5921: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5922: p_amount => p_klev_rec.fee_charge,
5927: END IF;
5928:
5929: IF (p_klev_rec.floor_amount IS NOT NULL
5930: AND
5931: p_klev_rec.floor_amount <> OKL_API.G_MISS_NUM) THEN
5932:
5933: l_conv_amount := NULL;
5934: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5935: p_amount => p_klev_rec.floor_amount,
5940: END IF;
5941:
5942: IF (p_klev_rec.initial_direct_cost IS NOT NULL
5943: AND
5944: p_klev_rec.initial_direct_cost <> OKL_API.G_MISS_NUM) THEN
5945:
5946: l_conv_amount := NULL;
5947: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5948: p_amount => p_klev_rec.initial_direct_cost,
5953: END IF;
5954:
5955: IF (p_klev_rec.lao_amount IS NOT NULL
5956: AND
5957: p_klev_rec.lao_amount <> OKL_API.G_MISS_NUM) THEN
5958:
5959: l_conv_amount := NULL;
5960: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5961: p_amount => p_klev_rec.lao_amount,
5966: END IF;
5967:
5968: IF (p_klev_rec.lrv_amount IS NOT NULL
5969: AND
5970: p_klev_rec.lrv_amount <> OKL_API.G_MISS_NUM) THEN
5971:
5972: l_conv_amount := NULL;
5973: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5974: p_amount => p_klev_rec.lrv_amount,
5979: END IF;
5980:
5981: IF (p_klev_rec.net_rentable IS NOT NULL
5982: AND
5983: p_klev_rec.net_rentable <> OKL_API.G_MISS_NUM) THEN
5984:
5985: l_conv_amount := NULL;
5986: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5987: p_amount => p_klev_rec.net_rentable,
5992: END IF;
5993:
5994: IF (p_klev_rec.oec IS NOT NULL
5995: AND
5996: p_klev_rec.oec <> OKL_API.G_MISS_NUM) THEN
5997:
5998: l_conv_amount := NULL;
5999: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6000: p_amount => p_klev_rec.oec,
6006: END IF;
6007:
6008: IF (p_klev_rec.refinance_amount IS NOT NULL
6009: AND
6010: p_klev_rec.refinance_amount <> OKL_API.G_MISS_NUM) THEN
6011:
6012: l_conv_amount := NULL;
6013: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6014: p_amount => p_klev_rec.refinance_amount,
6019: END IF;
6020:
6021: IF (p_klev_rec.remarketed_amount IS NOT NULL
6022: AND
6023: p_klev_rec.remarketed_amount <> OKL_API.G_MISS_NUM) THEN
6024:
6025: l_conv_amount := NULL;
6026: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6027: p_amount => p_klev_rec.remarketed_amount,
6032: END IF;
6033:
6034: IF (p_klev_rec.repurchased_amount IS NOT NULL
6035: AND
6036: p_klev_rec.repurchased_amount <> OKL_API.G_MISS_NUM) THEN
6037:
6038: l_conv_amount := NULL;
6039: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6040: p_amount => p_klev_rec.repurchased_amount,
6045: END IF;
6046:
6047: IF (p_klev_rec.residual_grnty_amount IS NOT NULL
6048: AND
6049: p_klev_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM) THEN
6050:
6051: l_conv_amount := NULL;
6052: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6053: p_amount => p_klev_rec.residual_grnty_amount,
6058: END IF;
6059:
6060: IF (p_klev_rec.rvi_premium IS NOT NULL
6061: AND
6062: p_klev_rec.rvi_premium <> OKL_API.G_MISS_NUM) THEN
6063:
6064: l_conv_amount := NULL;
6065: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6066: p_amount => p_klev_rec.rvi_premium,
6071: END IF;
6072:
6073: IF (p_klev_rec.termination_purchase_amount IS NOT NULL
6074: AND
6075: p_klev_rec.termination_purchase_amount <> OKL_API.G_MISS_NUM) THEN
6076:
6077: l_conv_amount := NULL;
6078: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6079: p_amount => p_klev_rec.termination_purchase_amount,
6084: END IF;
6085:
6086: IF (p_klev_rec.tracked_residual IS NOT NULL
6087: AND
6088: p_klev_rec.tracked_residual <> OKL_API.G_MISS_NUM) THEN
6089:
6090: l_conv_amount := NULL;
6091: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6092: p_amount => p_klev_rec.tracked_residual,
6097: END IF;
6098:
6099: IF (p_klev_rec.tradein_amount IS NOT NULL
6100: AND
6101: p_klev_rec.tradein_amount <> OKL_API.G_MISS_NUM) THEN
6102:
6103: l_conv_amount := NULL;
6104: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6105: p_amount => p_klev_rec.tradein_amount,
6110: END IF;
6111:
6112: IF (p_klev_rec.vendor_advance_paid IS NOT NULL
6113: AND
6114: p_klev_rec.vendor_advance_paid <> OKL_API.G_MISS_NUM) THEN
6115:
6116: l_conv_amount := NULL;
6117: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6118: p_amount => p_klev_rec.vendor_advance_paid,
6123: END IF;
6124:
6125: IF (p_klev_rec.residual_value IS NOT NULL
6126: AND
6127: p_klev_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
6128:
6129: l_conv_amount := NULL;
6130: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6131: p_amount => p_klev_rec.residual_value,
6137:
6138: --Bug# 3143522 : 11.5.10 Subsidies
6139: IF (p_klev_rec.subsidy_override_amount IS NOT NULL
6140: AND
6141: p_klev_rec.subsidy_override_amount <> OKL_API.G_MISS_NUM) THEN
6142:
6143: l_conv_amount := NULL;
6144: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6145: p_amount => p_klev_rec.subsidy_override_amount,
6152:
6153:
6154: IF (p_clev_rec.price_negotiated IS NOT NULL
6155: AND
6156: p_clev_rec.price_negotiated <> OKL_API.G_MISS_NUM) THEN
6157:
6158: l_conv_amount := NULL;
6159: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6160: p_amount => p_clev_rec.price_negotiated,
6165: END IF;
6166:
6167: IF (p_clev_rec.price_negotiated_renewed IS NOT NULL
6168: AND
6169: p_clev_rec.price_negotiated_renewed <> OKL_API.G_MISS_NUM) THEN
6170:
6171: l_conv_amount := NULL;
6172: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6173: p_amount => p_clev_rec.price_negotiated_renewed,
6178: END IF;
6179:
6180: IF (p_clev_rec.price_unit IS NOT NULL
6181: AND
6182: p_clev_rec.price_unit <> OKL_API.G_MISS_NUM) THEN
6183:
6184: l_conv_amount := NULL;
6185: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6186: p_amount => p_clev_rec.price_unit,
6192: --dbms_output.put_line('Round off complete');
6193:
6194: EXCEPTION
6195: WHEN roundoff_error THEN
6196: x_return_status := OKL_API.G_RET_STS_ERROR;
6197: END roundoff_line_amount;
6198:
6199:
6200: -- -----------------------------------------------------------------------------
6234:
6235: l_lty_code okc_line_styles_b.lty_code%TYPE;
6236: l_parameter_list wf_parameter_list_t;
6237: l_event_name wf_events.name%TYPE := null;
6238: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
6239: /*
6240: -- vthiruva, 08/19/2004
6241: -- END, Code change to enable Business Event
6242: */
6247: lx_klev_rec klev_rec_type;
6248:
6249: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
6250: l_api_version CONSTANT NUMBER := 1.0;
6251: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6252:
6253: --Bug# 3143522
6254: l_dt_clev_rec okl_okc_migration_pvt.clev_rec_type;
6255: lx_dt_clev_rec okl_okc_migration_pvt.clev_rec_type;
6256: BEGIN
6257:
6258: -- call START_ACTIVITY to create savepoint, check compatibility
6259: -- and initialize message list
6260: l_return_status := OKL_API.START_ACTIVITY(
6261: p_api_name => l_api_name,
6262: p_pkg_name => g_pkg_name,
6263: p_init_msg_list => p_init_msg_list,
6264: l_api_version => l_api_version,
6266: p_api_type => g_api_type,
6267: x_return_status => x_return_status);
6268:
6269: -- check if activity started successfully
6270: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6271: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6272: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6273: raise OKL_API.G_EXCEPTION_ERROR;
6274: End If;
6267: x_return_status => x_return_status);
6268:
6269: -- check if activity started successfully
6270: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6271: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6272: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6273: raise OKL_API.G_EXCEPTION_ERROR;
6274: End If;
6275:
6268:
6269: -- check if activity started successfully
6270: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6271: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6272: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6273: raise OKL_API.G_EXCEPTION_ERROR;
6274: End If;
6275:
6276: l_klev_rec := p_klev_rec;
6269: -- check if activity started successfully
6270: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6271: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6272: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6273: raise OKL_API.G_EXCEPTION_ERROR;
6274: End If;
6275:
6276: l_klev_rec := p_klev_rec;
6277: l_clev_rec := p_clev_rec;
6289: x_klev_rec => lx_klev_rec
6290: );
6291:
6292: -- check return status
6293: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6294: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6295: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6296: raise OKL_API.G_EXCEPTION_ERROR;
6297: End If;
6290: );
6291:
6292: -- check return status
6293: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6294: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6295: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6296: raise OKL_API.G_EXCEPTION_ERROR;
6297: End If;
6298:
6291:
6292: -- check return status
6293: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6294: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6295: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6296: raise OKL_API.G_EXCEPTION_ERROR;
6297: End If;
6298:
6299: l_klev_rec := lx_klev_rec;
6292: -- check return status
6293: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6294: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6295: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6296: raise OKL_API.G_EXCEPTION_ERROR;
6297: End If;
6298:
6299: l_klev_rec := lx_klev_rec;
6300: l_clev_rec := lx_clev_rec;
6302: --Bug# 3143522:
6303: --
6304: -- call procedure to get default line dates for Fee and service lines
6305: --
6306: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6307: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6308: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6309: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6310:
6303: --
6304: -- call procedure to get default line dates for Fee and service lines
6305: --
6306: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6307: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6308: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6309: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6310:
6311: l_dt_clev_rec := l_clev_rec;
6304: -- call procedure to get default line dates for Fee and service lines
6305: --
6306: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6307: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6308: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6309: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6310:
6311: l_dt_clev_rec := l_clev_rec;
6312:
6305: --
6306: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6307: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6308: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6309: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6310:
6311: l_dt_clev_rec := l_clev_rec;
6312:
6313: get_line_dates(p_clev_rec => l_dt_clev_rec,
6314: x_return_status => x_return_status,
6315: x_clev_rec => lx_dt_clev_rec);
6316:
6317: -- check return status
6318: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6319: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6321: raise OKL_API.G_EXCEPTION_ERROR;
6322: End If;
6315: x_clev_rec => lx_dt_clev_rec);
6316:
6317: -- check return status
6318: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6319: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6321: raise OKL_API.G_EXCEPTION_ERROR;
6322: End If;
6323:
6316:
6317: -- check return status
6318: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6319: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6321: raise OKL_API.G_EXCEPTION_ERROR;
6322: End If;
6323:
6324: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6317: -- check return status
6318: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6319: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6321: raise OKL_API.G_EXCEPTION_ERROR;
6322: End If;
6323:
6324: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6325: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6321: raise OKL_API.G_EXCEPTION_ERROR;
6322: End If;
6323:
6324: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6325: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6326: End If;
6327: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6328: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6323:
6324: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6325: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6326: End If;
6327: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6328: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6329: End If;
6330: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6331: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6326: End If;
6327: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6328: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6329: End If;
6330: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6331: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6332: End If;
6333: If nvl(lx_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6334: l_clev_rec.sts_code := lx_dt_clev_rec.sts_code;
6329: End If;
6330: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6331: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6332: End If;
6333: If nvl(lx_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6334: l_clev_rec.sts_code := lx_dt_clev_rec.sts_code;
6335: End If;
6336: End If;
6337: --End Bug# 3143522
6348: p_clev_rec => l_clev_rec,
6349: x_clev_rec => x_clev_rec);
6350:
6351: -- check return status
6352: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6353: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6354: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6355: raise OKL_API.G_EXCEPTION_ERROR;
6356: End If;
6349: x_clev_rec => x_clev_rec);
6350:
6351: -- check return status
6352: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6353: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6354: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6355: raise OKL_API.G_EXCEPTION_ERROR;
6356: End If;
6357:
6350:
6351: -- check return status
6352: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6353: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6354: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6355: raise OKL_API.G_EXCEPTION_ERROR;
6356: End If;
6357:
6358: -- get id from OKC record
6351: -- check return status
6352: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6353: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6354: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6355: raise OKL_API.G_EXCEPTION_ERROR;
6356: End If;
6357:
6358: -- get id from OKC record
6359: l_klev_rec.ID := x_clev_rec.ID;
6367: x_msg_data => x_msg_data,
6368: p_klev_rec => l_klev_rec,
6369: x_klev_rec => x_klev_rec);
6370:
6371: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6372: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6373: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6374: raise OKL_API.G_EXCEPTION_ERROR;
6375: End If;
6368: p_klev_rec => l_klev_rec,
6369: x_klev_rec => x_klev_rec);
6370:
6371: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6372: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6373: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6374: raise OKL_API.G_EXCEPTION_ERROR;
6375: End If;
6376:
6369: x_klev_rec => x_klev_rec);
6370:
6371: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6372: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6373: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6374: raise OKL_API.G_EXCEPTION_ERROR;
6375: End If;
6376:
6377: If (x_clev_rec.dnz_chr_id is not null) AND (l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
6370:
6371: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6372: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6373: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6374: raise OKL_API.G_EXCEPTION_ERROR;
6375: End If;
6376:
6377: If (x_clev_rec.dnz_chr_id is not null) AND (l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
6378:
6373: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6374: raise OKL_API.G_EXCEPTION_ERROR;
6375: End If;
6376:
6377: If (x_clev_rec.dnz_chr_id is not null) AND (l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
6378:
6379: -- call to cascade lease contract statuses to INCOMPLETE
6380: okl_contract_status_pub.cascade_lease_status_edit
6381: (p_api_version => p_api_version,
6384: x_msg_count => x_msg_count,
6385: x_msg_data => x_msg_data,
6386: p_chr_id => x_clev_rec.dnz_chr_id);
6387:
6388: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6389: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6390: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6391: raise OKL_API.G_EXCEPTION_ERROR;
6392: End If;
6385: x_msg_data => x_msg_data,
6386: p_chr_id => x_clev_rec.dnz_chr_id);
6387:
6388: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6389: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6390: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6391: raise OKL_API.G_EXCEPTION_ERROR;
6392: End If;
6393:
6386: p_chr_id => x_clev_rec.dnz_chr_id);
6387:
6388: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6389: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6390: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6391: raise OKL_API.G_EXCEPTION_ERROR;
6392: End If;
6393:
6394: End If;
6387:
6388: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6389: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6390: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6391: raise OKL_API.G_EXCEPTION_ERROR;
6392: End If;
6393:
6394: End If;
6395:
6404:
6405: IF l_lty_code = 'FREE_FORM' THEN
6406: -- raise the business event for create credit limit, if line style code is FREE_FORM
6407: l_event_name := G_WF_EVT_CR_LMT_CREATED;
6408: l_raise_business_event := OKL_API.G_TRUE;
6409: -- create the parameter list to pass to raise_event
6410: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6411: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,x_clev_rec.id,l_parameter_list);
6412: ELSIF l_lty_code = 'FREE_FORM1' THEN
6411: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,x_clev_rec.id,l_parameter_list);
6412: ELSIF l_lty_code = 'FREE_FORM1' THEN
6413: -- raise business event only if the context contract is a lease contract
6414: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6415: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6416: -- raise the business event for create asset, if line style code is FREE_FORM1
6417: l_event_name := G_WF_EVT_ASSET_CREATED;
6418: -- create the parameter list to pass to raise_event
6419: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6421: END IF;
6422: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6423: -- raise business event only if the context contract is a lease contract
6424: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6425: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6426: -- raise the business event for create service, if line style code is SOLD_SERVICE
6427: l_event_name := G_WF_EVT_SERVICE_CREATED;
6428: -- create the parameter list to pass to raise_event
6429: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6434: --okl_contract_pvt
6435: ELSIF l_lty_code = 'FEE' THEN
6436: -- raise business event only if the context contract is a lease contract
6437: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6438: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6439: -- raise the business event for create fee, if line style code is FEE
6440: l_event_name := G_WF_EVT_FEE_CREATED;
6441: -- create the parameter list to pass to raise_event
6442: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6446:
6447: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event
6448: -- name is specified. the event should also be raised if this is a credit limit, in which case is_lease_contract
6449: -- does not hold good
6450: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
6451: raise_business_event(p_api_version => p_api_version,
6452: p_init_msg_list => p_init_msg_list,
6453: x_return_status => x_return_status,
6454: x_msg_count => x_msg_count,
6454: x_msg_count => x_msg_count,
6455: x_msg_data => x_msg_data,
6456: p_event_name => l_event_name,
6457: p_parameter_list => l_parameter_list);
6458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6461: RAISE OKL_API.G_EXCEPTION_ERROR;
6462: END IF;
6455: x_msg_data => x_msg_data,
6456: p_event_name => l_event_name,
6457: p_parameter_list => l_parameter_list);
6458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6461: RAISE OKL_API.G_EXCEPTION_ERROR;
6462: END IF;
6463: END IF;
6456: p_event_name => l_event_name,
6457: p_parameter_list => l_parameter_list);
6458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6461: RAISE OKL_API.G_EXCEPTION_ERROR;
6462: END IF;
6463: END IF;
6464:
6457: p_parameter_list => l_parameter_list);
6458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6461: RAISE OKL_API.G_EXCEPTION_ERROR;
6462: END IF;
6463: END IF;
6464:
6465: /*
6466: -- vthiruva, 08/19/2004
6467: -- END, Code change to enable Business Event
6468: */
6469:
6470: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6471: x_msg_data => x_msg_data);
6472: EXCEPTION
6473: when OKL_API.G_EXCEPTION_ERROR then
6474: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6469:
6470: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6471: x_msg_data => x_msg_data);
6472: EXCEPTION
6473: when OKL_API.G_EXCEPTION_ERROR then
6474: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6475: p_api_name => l_api_name,
6476: p_pkg_name => g_pkg_name,
6477: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6470: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6471: x_msg_data => x_msg_data);
6472: EXCEPTION
6473: when OKL_API.G_EXCEPTION_ERROR then
6474: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6475: p_api_name => l_api_name,
6476: p_pkg_name => g_pkg_name,
6477: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6478: x_msg_count => x_msg_count,
6473: when OKL_API.G_EXCEPTION_ERROR then
6474: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6475: p_api_name => l_api_name,
6476: p_pkg_name => g_pkg_name,
6477: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6478: x_msg_count => x_msg_count,
6479: x_msg_data => x_msg_data,
6480: p_api_type => g_api_type);
6481:
6478: x_msg_count => x_msg_count,
6479: x_msg_data => x_msg_data,
6480: p_api_type => g_api_type);
6481:
6482: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6483: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6484: p_api_name => l_api_name,
6485: p_pkg_name => g_pkg_name,
6486: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6479: x_msg_data => x_msg_data,
6480: p_api_type => g_api_type);
6481:
6482: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6483: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6484: p_api_name => l_api_name,
6485: p_pkg_name => g_pkg_name,
6486: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6487: x_msg_count => x_msg_count,
6482: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6483: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6484: p_api_name => l_api_name,
6485: p_pkg_name => g_pkg_name,
6486: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6487: x_msg_count => x_msg_count,
6488: x_msg_data => x_msg_data,
6489: p_api_type => g_api_type);
6490:
6488: x_msg_data => x_msg_data,
6489: p_api_type => g_api_type);
6490:
6491: when OTHERS then
6492: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6493: p_api_name => l_api_name,
6494: p_pkg_name => g_pkg_name,
6495: p_exc_name => 'OTHERS',
6496: x_msg_count => x_msg_count,
6519: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
6520:
6521: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
6522: l_api_version CONSTANT NUMBER := 1.0;
6523: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6524: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6525: i NUMBER;
6526: l_klev_tbl klev_tbl_type := p_klev_tbl;
6527: BEGIN
6520:
6521: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
6522: l_api_version CONSTANT NUMBER := 1.0;
6523: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6524: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6525: i NUMBER;
6526: l_klev_tbl klev_tbl_type := p_klev_tbl;
6527: BEGIN
6528: -- call START_ACTIVITY to create savepoint, check compatibility
6526: l_klev_tbl klev_tbl_type := p_klev_tbl;
6527: BEGIN
6528: -- call START_ACTIVITY to create savepoint, check compatibility
6529: -- and initialize message list
6530: l_return_status := OKL_API.START_ACTIVITY(
6531: p_api_name => l_api_name,
6532: p_pkg_name => g_pkg_name,
6533: p_init_msg_list => p_init_msg_list,
6534: l_api_version => l_api_version,
6536: p_api_type => g_api_type,
6537: x_return_status => x_return_status);
6538:
6539: -- check if activity started successfully
6540: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6542: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6543: raise OKL_API.G_EXCEPTION_ERROR;
6544:
6537: x_return_status => x_return_status);
6538:
6539: -- check if activity started successfully
6540: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6542: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6543: raise OKL_API.G_EXCEPTION_ERROR;
6544:
6545: End If;
6538:
6539: -- check if activity started successfully
6540: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6542: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6543: raise OKL_API.G_EXCEPTION_ERROR;
6544:
6545: End If;
6546:
6539: -- check if activity started successfully
6540: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6542: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6543: raise OKL_API.G_EXCEPTION_ERROR;
6544:
6545: End If;
6546:
6547: If (p_clev_tbl.COUNT > 0) Then
6558: p_klev_rec => l_klev_tbl(i),
6559: x_clev_rec => x_clev_tbl(i),
6560: x_klev_rec => x_klev_tbl(i));
6561:
6562: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
6563: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
6564: l_overall_status := x_return_status;
6565: End If;
6566: End If;
6559: x_clev_rec => x_clev_tbl(i),
6560: x_klev_rec => x_klev_tbl(i));
6561:
6562: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
6563: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
6564: l_overall_status := x_return_status;
6565: End If;
6566: End If;
6567:
6572: -- return overall status
6573: x_return_status := l_overall_status;
6574: End If;
6575:
6576: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6577: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6578: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6579: raise OKL_API.G_EXCEPTION_ERROR;
6580: End If;
6573: x_return_status := l_overall_status;
6574: End If;
6575:
6576: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6577: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6578: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6579: raise OKL_API.G_EXCEPTION_ERROR;
6580: End If;
6581:
6574: End If;
6575:
6576: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6577: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6578: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6579: raise OKL_API.G_EXCEPTION_ERROR;
6580: End If;
6581:
6582: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6575:
6576: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6577: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6578: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6579: raise OKL_API.G_EXCEPTION_ERROR;
6580: End If;
6581:
6582: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6583: x_msg_data => x_msg_data);
6578: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6579: raise OKL_API.G_EXCEPTION_ERROR;
6580: End If;
6581:
6582: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6583: x_msg_data => x_msg_data);
6584: EXCEPTION
6585: when OKL_API.G_EXCEPTION_ERROR then
6586: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6581:
6582: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6583: x_msg_data => x_msg_data);
6584: EXCEPTION
6585: when OKL_API.G_EXCEPTION_ERROR then
6586: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6587: p_api_name => l_api_name,
6588: p_pkg_name => g_pkg_name,
6589: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6582: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6583: x_msg_data => x_msg_data);
6584: EXCEPTION
6585: when OKL_API.G_EXCEPTION_ERROR then
6586: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6587: p_api_name => l_api_name,
6588: p_pkg_name => g_pkg_name,
6589: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6590: x_msg_count => x_msg_count,
6585: when OKL_API.G_EXCEPTION_ERROR then
6586: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6587: p_api_name => l_api_name,
6588: p_pkg_name => g_pkg_name,
6589: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6590: x_msg_count => x_msg_count,
6591: x_msg_data => x_msg_data,
6592: p_api_type => g_api_type);
6593:
6590: x_msg_count => x_msg_count,
6591: x_msg_data => x_msg_data,
6592: p_api_type => g_api_type);
6593:
6594: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6595: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6596: p_api_name => l_api_name,
6597: p_pkg_name => g_pkg_name,
6598: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6591: x_msg_data => x_msg_data,
6592: p_api_type => g_api_type);
6593:
6594: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6595: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6596: p_api_name => l_api_name,
6597: p_pkg_name => g_pkg_name,
6598: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6599: x_msg_count => x_msg_count,
6594: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6595: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6596: p_api_name => l_api_name,
6597: p_pkg_name => g_pkg_name,
6598: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6599: x_msg_count => x_msg_count,
6600: x_msg_data => x_msg_data,
6601: p_api_type => g_api_type);
6602:
6600: x_msg_data => x_msg_data,
6601: p_api_type => g_api_type);
6602:
6603: when OTHERS then
6604: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6605: p_api_name => l_api_name,
6606: p_pkg_name => g_pkg_name,
6607: p_exc_name => 'OTHERS',
6608: x_msg_count => x_msg_count,
6643: lx_klev_rec klev_rec_type;
6644:
6645: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
6646: l_api_version CONSTANT NUMBER := 1.0;
6647: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6648:
6649: cursor l_klev_csr(l_id IN NUMBER) is
6650: select 'x'
6651: from OKL_K_LINES_V
6711:
6712: l_lty_code okc_line_styles_b.lty_code%TYPE;
6713: l_parameter_list wf_parameter_list_t;
6714: l_event_name wf_events.name%TYPE := null;
6715: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
6716: /*
6717: -- vthiruva, 08/19/2004
6718: -- END, Code change to enable Business Event
6719: */
6720: BEGIN
6721:
6722: -- call START_ACTIVITY to create savepoint, check compatibility
6723: -- and initialize message list
6724: l_return_status := OKL_API.START_ACTIVITY(
6725: p_api_name => l_api_name,
6726: p_pkg_name => g_pkg_name,
6727: p_init_msg_list => p_init_msg_list,
6728: l_api_version => l_api_version,
6730: p_api_type => g_api_type,
6731: x_return_status => x_return_status);
6732:
6733: -- check if activity started successfully
6734: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6735: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6736: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6737: raise OKL_API.G_EXCEPTION_ERROR;
6738: End If;
6731: x_return_status => x_return_status);
6732:
6733: -- check if activity started successfully
6734: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6735: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6736: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6737: raise OKL_API.G_EXCEPTION_ERROR;
6738: End If;
6739:
6732:
6733: -- check if activity started successfully
6734: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6735: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6736: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6737: raise OKL_API.G_EXCEPTION_ERROR;
6738: End If;
6739:
6740: l_klev_rec := p_klev_rec;
6733: -- check if activity started successfully
6734: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6735: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6736: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6737: raise OKL_API.G_EXCEPTION_ERROR;
6738: End If;
6739:
6740: l_klev_rec := p_klev_rec;
6741: l_clev_rec := p_clev_rec;
6753: x_klev_rec => lx_klev_rec
6754: );
6755:
6756: -- check return status
6757: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6758: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6759: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6760: raise OKL_API.G_EXCEPTION_ERROR;
6761: End If;
6754: );
6755:
6756: -- check return status
6757: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6758: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6759: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6760: raise OKL_API.G_EXCEPTION_ERROR;
6761: End If;
6762:
6755:
6756: -- check return status
6757: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6758: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6759: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6760: raise OKL_API.G_EXCEPTION_ERROR;
6761: End If;
6762:
6763: l_klev_rec := lx_klev_rec;
6756: -- check return status
6757: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6758: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6759: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6760: raise OKL_API.G_EXCEPTION_ERROR;
6761: End If;
6762:
6763: l_klev_rec := lx_klev_rec;
6764: l_clev_rec := lx_clev_rec;
6766: --Bug# 3143522
6767: --
6768: -- call procedure to get default line dates for Fee and service lines
6769: --
6770: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6771: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6772: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6773: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6774:
6767: --
6768: -- call procedure to get default line dates for Fee and service lines
6769: --
6770: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6771: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6772: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6773: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6774:
6775:
6768: -- call procedure to get default line dates for Fee and service lines
6769: --
6770: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6771: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6772: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6773: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6774:
6775:
6776: l_dt_clev_rec := l_clev_rec;
6769: --
6770: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6771: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6772: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6773: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6774:
6775:
6776: l_dt_clev_rec := l_clev_rec;
6777:
6784: l_orig_currency_code,
6785: l_orig_sts_code;
6786: close l_orig_clev_csr;
6787:
6788: If nvl(l_dt_clev_rec.dnz_chr_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6789: l_dt_clev_rec.dnz_chr_id := l_orig_chr_id;
6790: End If;
6791: If nvl(l_dt_clev_rec.cle_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6792: l_dt_clev_rec.cle_id := l_orig_cle_id;
6787:
6788: If nvl(l_dt_clev_rec.dnz_chr_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6789: l_dt_clev_rec.dnz_chr_id := l_orig_chr_id;
6790: End If;
6791: If nvl(l_dt_clev_rec.cle_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6792: l_dt_clev_rec.cle_id := l_orig_cle_id;
6793: End If;
6794: If nvl(l_dt_clev_rec.lse_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6795: l_dt_clev_rec.lse_id := l_orig_lse_id;
6790: End If;
6791: If nvl(l_dt_clev_rec.cle_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6792: l_dt_clev_rec.cle_id := l_orig_cle_id;
6793: End If;
6794: If nvl(l_dt_clev_rec.lse_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6795: l_dt_clev_rec.lse_id := l_orig_lse_id;
6796: End If;
6797: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6798: l_dt_clev_rec.start_date := l_orig_start_date;
6793: End If;
6794: If nvl(l_dt_clev_rec.lse_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6795: l_dt_clev_rec.lse_id := l_orig_lse_id;
6796: End If;
6797: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6798: l_dt_clev_rec.start_date := l_orig_start_date;
6799: End If;
6800: If nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6801: l_dt_clev_rec.end_date := l_orig_end_date;
6796: End If;
6797: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6798: l_dt_clev_rec.start_date := l_orig_start_date;
6799: End If;
6800: If nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6801: l_dt_clev_rec.end_date := l_orig_end_date;
6802: End If;
6803: If nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6804: l_dt_clev_rec.currency_code := l_orig_currency_code;
6799: End If;
6800: If nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6801: l_dt_clev_rec.end_date := l_orig_end_date;
6802: End If;
6803: If nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6804: l_dt_clev_rec.currency_code := l_orig_currency_code;
6805: End If;
6806: If nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6807: l_dt_clev_rec.sts_code := l_orig_sts_code;
6802: End If;
6803: If nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6804: l_dt_clev_rec.currency_code := l_orig_currency_code;
6805: End If;
6806: If nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6807: l_dt_clev_rec.sts_code := l_orig_sts_code;
6808: End If;
6809:
6810: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6806: If nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6807: l_dt_clev_rec.sts_code := l_orig_sts_code;
6808: End If;
6809:
6810: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6811: nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6812: nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6813: nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6814:
6807: l_dt_clev_rec.sts_code := l_orig_sts_code;
6808: End If;
6809:
6810: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6811: nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6812: nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6813: nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6814:
6815: get_line_dates(p_clev_rec => l_dt_clev_rec,
6808: End If;
6809:
6810: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6811: nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6812: nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6813: nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6814:
6815: get_line_dates(p_clev_rec => l_dt_clev_rec,
6816: x_return_status => x_return_status,
6809:
6810: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6811: nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6812: nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6813: nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6814:
6815: get_line_dates(p_clev_rec => l_dt_clev_rec,
6816: x_return_status => x_return_status,
6817: x_clev_rec => lx_dt_clev_rec);
6816: x_return_status => x_return_status,
6817: x_clev_rec => lx_dt_clev_rec);
6818:
6819: -- check return status
6820: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6821: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6822: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6823: raise OKL_API.G_EXCEPTION_ERROR;
6824: End If;
6817: x_clev_rec => lx_dt_clev_rec);
6818:
6819: -- check return status
6820: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6821: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6822: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6823: raise OKL_API.G_EXCEPTION_ERROR;
6824: End If;
6825:
6818:
6819: -- check return status
6820: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6821: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6822: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6823: raise OKL_API.G_EXCEPTION_ERROR;
6824: End If;
6825:
6826: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6819: -- check return status
6820: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6821: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6822: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6823: raise OKL_API.G_EXCEPTION_ERROR;
6824: End If;
6825:
6826: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6827: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6822: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6823: raise OKL_API.G_EXCEPTION_ERROR;
6824: End If;
6825:
6826: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6827: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6828: End If;
6829: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6830: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6825:
6826: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6827: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6828: End If;
6829: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6830: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6831: End If;
6832: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6833: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6828: End If;
6829: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6830: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6831: End If;
6832: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6833: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6834: End If;
6835: If nvl(lx_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6836: l_clev_rec.sts_code := lx_dt_clev_rec.sts_code;
6831: End If;
6832: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6833: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6834: End If;
6835: If nvl(lx_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6836: l_clev_rec.sts_code := lx_dt_clev_rec.sts_code;
6837: End If;
6838: End If;
6839: End If;
6851: p_clev_rec => l_clev_rec,
6852: x_clev_rec => x_clev_rec);
6853:
6854: -- check return status
6855: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6856: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6857: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6858: raise OKL_API.G_EXCEPTION_ERROR;
6859: End If;
6852: x_clev_rec => x_clev_rec);
6853:
6854: -- check return status
6855: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6856: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6857: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6858: raise OKL_API.G_EXCEPTION_ERROR;
6859: End If;
6860:
6853:
6854: -- check return status
6855: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6856: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6857: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6858: raise OKL_API.G_EXCEPTION_ERROR;
6859: End If;
6860:
6861: -- get id from OKC record
6854: -- check return status
6855: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6856: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6857: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6858: raise OKL_API.G_EXCEPTION_ERROR;
6859: End If;
6860:
6861: -- get id from OKC record
6862: l_klev_rec.ID := x_clev_rec.ID;
6888: p_klev_rec => l_klev_rec,
6889: x_klev_rec => x_klev_rec);
6890: end if;
6891:
6892: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6893: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6894: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6895: raise OKL_API.G_EXCEPTION_ERROR;
6896: End If;
6889: x_klev_rec => x_klev_rec);
6890: end if;
6891:
6892: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6893: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6894: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6895: raise OKL_API.G_EXCEPTION_ERROR;
6896: End If;
6897:
6890: end if;
6891:
6892: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6893: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6894: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6895: raise OKL_API.G_EXCEPTION_ERROR;
6896: End If;
6897:
6898: If p_edit_mode = 'Y' Then
6891:
6892: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6893: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6894: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6895: raise OKL_API.G_EXCEPTION_ERROR;
6896: End If;
6897:
6898: If p_edit_mode = 'Y' Then
6899: If (x_clev_rec.dnz_chr_id is NOT NULL) AND (x_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
6895: raise OKL_API.G_EXCEPTION_ERROR;
6896: End If;
6897:
6898: If p_edit_mode = 'Y' Then
6899: If (x_clev_rec.dnz_chr_id is NOT NULL) AND (x_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
6900: --cascade edit status on to lines
6901: okl_contract_status_pub.cascade_lease_status_edit
6902: (p_api_version => p_api_version,
6903: p_init_msg_list => p_init_msg_list,
6905: x_msg_count => x_msg_count,
6906: x_msg_data => x_msg_data,
6907: p_chr_id => x_clev_rec.dnz_chr_id);
6908:
6909: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6910: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6911: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6912: raise OKL_API.G_EXCEPTION_ERROR;
6913: End If;
6906: x_msg_data => x_msg_data,
6907: p_chr_id => x_clev_rec.dnz_chr_id);
6908:
6909: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6910: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6911: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6912: raise OKL_API.G_EXCEPTION_ERROR;
6913: End If;
6914: END IF;
6907: p_chr_id => x_clev_rec.dnz_chr_id);
6908:
6909: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6910: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6911: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6912: raise OKL_API.G_EXCEPTION_ERROR;
6913: End If;
6914: END IF;
6915: End If;
6908:
6909: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6910: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6911: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6912: raise OKL_API.G_EXCEPTION_ERROR;
6913: End If;
6914: END IF;
6915: End If;
6916:
6925:
6926: IF l_lty_code = 'FREE_FORM' THEN
6927: -- raise the business event for update credit limit if line style code is FREE_FORM
6928: l_event_name := G_WF_EVT_CR_LMT_UPDATED;
6929: l_raise_business_event := OKL_API.G_TRUE;
6930: --create the parameter list to pass to raise_event
6931: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6932: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
6933: ELSIF l_lty_code = 'FREE_FORM1' THEN
6932: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
6933: ELSIF l_lty_code = 'FREE_FORM1' THEN
6934: -- raise business event only if the context contract is a lease contract
6935: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6936: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6937: -- raise the business event for create asset, if line style code is FREE_FORM1
6938: l_event_name := G_WF_EVT_ASSET_UPDATED;
6939: --create the parameter list to pass to raise_event
6940: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6942: END IF;
6943: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6944: -- raise business event only if the context contract is a lease contract
6945: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6946: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6947: --raise the business event for create service, if line style code is SOLD_SERVICE
6948: l_event_name := G_WF_EVT_SERVICE_UPDATED;
6949: --create the parameter list to pass to raise_event
6950: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6968: --okl_contract_pvt
6969: ELSIF l_lty_code = 'FEE' THEN
6970: -- raise business event only if the context contract is a lease contract
6971: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6972: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6973: -- raise the business event for fee updated, if line style code is FEE
6974: l_event_name := G_WF_EVT_FEE_UPDATED;
6975: --create the parameter list to pass to raise_event
6976: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6980:
6981: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event
6982: -- name is specified. the event should also be raised if this is a credit limit, in which case is_lease_contract
6983: -- does not hold good
6984: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
6985: raise_business_event(p_api_version => p_api_version,
6986: p_init_msg_list => p_init_msg_list,
6987: x_return_status => x_return_status,
6988: x_msg_count => x_msg_count,
6988: x_msg_count => x_msg_count,
6989: x_msg_data => x_msg_data,
6990: p_event_name => l_event_name,
6991: p_parameter_list => l_parameter_list);
6992: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6993: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6995: RAISE OKL_API.G_EXCEPTION_ERROR;
6996: END IF;
6989: x_msg_data => x_msg_data,
6990: p_event_name => l_event_name,
6991: p_parameter_list => l_parameter_list);
6992: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6993: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6995: RAISE OKL_API.G_EXCEPTION_ERROR;
6996: END IF;
6997: END IF;
6990: p_event_name => l_event_name,
6991: p_parameter_list => l_parameter_list);
6992: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6993: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6995: RAISE OKL_API.G_EXCEPTION_ERROR;
6996: END IF;
6997: END IF;
6998:
6991: p_parameter_list => l_parameter_list);
6992: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6993: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6995: RAISE OKL_API.G_EXCEPTION_ERROR;
6996: END IF;
6997: END IF;
6998:
6999: /*
7000: -- vthiruva, 08/19/2004
7001: -- END, Code change to enable Business Event
7002: */
7003:
7004: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7005: x_msg_data => x_msg_data);
7006: EXCEPTION
7007: when OKL_API.G_EXCEPTION_ERROR then
7008: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7003:
7004: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7005: x_msg_data => x_msg_data);
7006: EXCEPTION
7007: when OKL_API.G_EXCEPTION_ERROR then
7008: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7009: p_api_name => l_api_name,
7010: p_pkg_name => g_pkg_name,
7011: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7004: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7005: x_msg_data => x_msg_data);
7006: EXCEPTION
7007: when OKL_API.G_EXCEPTION_ERROR then
7008: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7009: p_api_name => l_api_name,
7010: p_pkg_name => g_pkg_name,
7011: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7012: x_msg_count => x_msg_count,
7007: when OKL_API.G_EXCEPTION_ERROR then
7008: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7009: p_api_name => l_api_name,
7010: p_pkg_name => g_pkg_name,
7011: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7012: x_msg_count => x_msg_count,
7013: x_msg_data => x_msg_data,
7014: p_api_type => g_api_type);
7015: if l_klev_csr%ISOPEN then
7015: if l_klev_csr%ISOPEN then
7016: close l_klev_csr;
7017: end if;
7018:
7019: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7021: p_api_name => l_api_name,
7022: p_pkg_name => g_pkg_name,
7023: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7016: close l_klev_csr;
7017: end if;
7018:
7019: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7021: p_api_name => l_api_name,
7022: p_pkg_name => g_pkg_name,
7023: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7024: x_msg_count => x_msg_count,
7019: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7021: p_api_name => l_api_name,
7022: p_pkg_name => g_pkg_name,
7023: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7024: x_msg_count => x_msg_count,
7025: x_msg_data => x_msg_data,
7026: p_api_type => g_api_type);
7027: if l_klev_csr%ISOPEN then
7028: close l_klev_csr;
7029: end if;
7030:
7031: when OTHERS then
7032: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7033: p_api_name => l_api_name,
7034: p_pkg_name => g_pkg_name,
7035: p_exc_name => 'OTHERS',
7036: x_msg_count => x_msg_count,
7067: l_klev_rec klev_rec_type;
7068:
7069: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
7070: l_api_version CONSTANT NUMBER := 1.0;
7071: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7072:
7073: BEGIN
7074:
7075: -- call START_ACTIVITY to create savepoint, check compatibility
7073: BEGIN
7074:
7075: -- call START_ACTIVITY to create savepoint, check compatibility
7076: -- and initialize message list
7077: l_return_status := OKL_API.START_ACTIVITY(
7078: p_api_name => l_api_name,
7079: p_pkg_name => g_pkg_name,
7080: p_init_msg_list => p_init_msg_list,
7081: l_api_version => l_api_version,
7083: p_api_type => g_api_type,
7084: x_return_status => x_return_status);
7085:
7086: -- check if activity started successfully
7087: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7088: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7089: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7090: raise OKL_API.G_EXCEPTION_ERROR;
7091: End If;
7084: x_return_status => x_return_status);
7085:
7086: -- check if activity started successfully
7087: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7088: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7089: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7090: raise OKL_API.G_EXCEPTION_ERROR;
7091: End If;
7092:
7085:
7086: -- check if activity started successfully
7087: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7088: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7089: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7090: raise OKL_API.G_EXCEPTION_ERROR;
7091: End If;
7092:
7093: l_klev_rec := p_klev_rec;
7086: -- check if activity started successfully
7087: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7088: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7089: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7090: raise OKL_API.G_EXCEPTION_ERROR;
7091: End If;
7092:
7093: l_klev_rec := p_klev_rec;
7094: l_clev_rec := p_clev_rec;
7108: x_clev_rec => x_clev_rec,
7109: x_klev_rec => x_klev_rec);
7110:
7111: -- check return status
7112: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7113: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7114: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7115: raise OKL_API.G_EXCEPTION_ERROR;
7116: End If;
7109: x_klev_rec => x_klev_rec);
7110:
7111: -- check return status
7112: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7113: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7114: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7115: raise OKL_API.G_EXCEPTION_ERROR;
7116: End If;
7117:
7110:
7111: -- check return status
7112: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7113: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7114: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7115: raise OKL_API.G_EXCEPTION_ERROR;
7116: End If;
7117:
7118: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7111: -- check return status
7112: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7113: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7114: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7115: raise OKL_API.G_EXCEPTION_ERROR;
7116: End If;
7117:
7118: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7119: x_msg_data => x_msg_data);
7114: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7115: raise OKL_API.G_EXCEPTION_ERROR;
7116: End If;
7117:
7118: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7119: x_msg_data => x_msg_data);
7120: EXCEPTION
7121: when OKL_API.G_EXCEPTION_ERROR then
7122: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7117:
7118: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7119: x_msg_data => x_msg_data);
7120: EXCEPTION
7121: when OKL_API.G_EXCEPTION_ERROR then
7122: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7123: p_api_name => l_api_name,
7124: p_pkg_name => g_pkg_name,
7125: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7118: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7119: x_msg_data => x_msg_data);
7120: EXCEPTION
7121: when OKL_API.G_EXCEPTION_ERROR then
7122: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7123: p_api_name => l_api_name,
7124: p_pkg_name => g_pkg_name,
7125: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7126: x_msg_count => x_msg_count,
7121: when OKL_API.G_EXCEPTION_ERROR then
7122: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7123: p_api_name => l_api_name,
7124: p_pkg_name => g_pkg_name,
7125: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7126: x_msg_count => x_msg_count,
7127: x_msg_data => x_msg_data,
7128: p_api_type => g_api_type);
7129:
7126: x_msg_count => x_msg_count,
7127: x_msg_data => x_msg_data,
7128: p_api_type => g_api_type);
7129:
7130: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7131: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7132: p_api_name => l_api_name,
7133: p_pkg_name => g_pkg_name,
7134: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7127: x_msg_data => x_msg_data,
7128: p_api_type => g_api_type);
7129:
7130: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7131: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7132: p_api_name => l_api_name,
7133: p_pkg_name => g_pkg_name,
7134: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7135: x_msg_count => x_msg_count,
7130: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7131: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7132: p_api_name => l_api_name,
7133: p_pkg_name => g_pkg_name,
7134: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7135: x_msg_count => x_msg_count,
7136: x_msg_data => x_msg_data,
7137: p_api_type => g_api_type);
7138:
7136: x_msg_data => x_msg_data,
7137: p_api_type => g_api_type);
7138:
7139: when OTHERS then
7140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7141: p_api_name => l_api_name,
7142: p_pkg_name => g_pkg_name,
7143: p_exc_name => 'OTHERS',
7144: x_msg_count => x_msg_count,
7175: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
7176:
7177: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
7178: l_api_version CONSTANT NUMBER := 1.0;
7179: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7180: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7181: i NUMBER;
7182: l_klev_tbl klev_tbl_type := p_klev_tbl;
7183: BEGIN
7176:
7177: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
7178: l_api_version CONSTANT NUMBER := 1.0;
7179: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7180: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7181: i NUMBER;
7182: l_klev_tbl klev_tbl_type := p_klev_tbl;
7183: BEGIN
7184: -- call START_ACTIVITY to create savepoint, check compatibility
7182: l_klev_tbl klev_tbl_type := p_klev_tbl;
7183: BEGIN
7184: -- call START_ACTIVITY to create savepoint, check compatibility
7185: -- and initialize message list
7186: l_return_status := OKL_API.START_ACTIVITY(
7187: p_api_name => l_api_name,
7188: p_pkg_name => g_pkg_name,
7189: p_init_msg_list => p_init_msg_list,
7190: l_api_version => l_api_version,
7192: p_api_type => g_api_type,
7193: x_return_status => x_return_status);
7194:
7195: -- check if activity started successfully
7196: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7197: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7198: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7199: raise OKL_API.G_EXCEPTION_ERROR;
7200:
7193: x_return_status => x_return_status);
7194:
7195: -- check if activity started successfully
7196: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7197: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7198: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7199: raise OKL_API.G_EXCEPTION_ERROR;
7200:
7201: End If;
7194:
7195: -- check if activity started successfully
7196: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7197: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7198: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7199: raise OKL_API.G_EXCEPTION_ERROR;
7200:
7201: End If;
7202:
7195: -- check if activity started successfully
7196: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7197: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7198: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7199: raise OKL_API.G_EXCEPTION_ERROR;
7200:
7201: End If;
7202:
7203: If (p_clev_tbl.COUNT > 0) Then
7215: p_edit_mode => p_edit_mode,
7216: x_clev_rec => x_clev_tbl(i),
7217: x_klev_rec => x_klev_tbl(i));
7218:
7219: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
7220: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
7221: l_overall_status := x_return_status;
7222: End If;
7223: End If;
7216: x_clev_rec => x_clev_tbl(i),
7217: x_klev_rec => x_klev_tbl(i));
7218:
7219: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
7220: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
7221: l_overall_status := x_return_status;
7222: End If;
7223: End If;
7224:
7229: -- return overall status
7230: x_return_status := l_overall_status;
7231: End If;
7232:
7233: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7234: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7235: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7236: raise OKL_API.G_EXCEPTION_ERROR;
7237: End If;
7230: x_return_status := l_overall_status;
7231: End If;
7232:
7233: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7234: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7235: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7236: raise OKL_API.G_EXCEPTION_ERROR;
7237: End If;
7238:
7231: End If;
7232:
7233: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7234: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7235: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7236: raise OKL_API.G_EXCEPTION_ERROR;
7237: End If;
7238:
7239: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7232:
7233: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7234: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7235: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7236: raise OKL_API.G_EXCEPTION_ERROR;
7237: End If;
7238:
7239: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7240: x_msg_data => x_msg_data);
7235: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7236: raise OKL_API.G_EXCEPTION_ERROR;
7237: End If;
7238:
7239: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7240: x_msg_data => x_msg_data);
7241: EXCEPTION
7242: when OKL_API.G_EXCEPTION_ERROR then
7243: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7238:
7239: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7240: x_msg_data => x_msg_data);
7241: EXCEPTION
7242: when OKL_API.G_EXCEPTION_ERROR then
7243: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7244: p_api_name => l_api_name,
7245: p_pkg_name => g_pkg_name,
7246: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7239: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7240: x_msg_data => x_msg_data);
7241: EXCEPTION
7242: when OKL_API.G_EXCEPTION_ERROR then
7243: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7244: p_api_name => l_api_name,
7245: p_pkg_name => g_pkg_name,
7246: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7247: x_msg_count => x_msg_count,
7242: when OKL_API.G_EXCEPTION_ERROR then
7243: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7244: p_api_name => l_api_name,
7245: p_pkg_name => g_pkg_name,
7246: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7247: x_msg_count => x_msg_count,
7248: x_msg_data => x_msg_data,
7249: p_api_type => g_api_type);
7250:
7247: x_msg_count => x_msg_count,
7248: x_msg_data => x_msg_data,
7249: p_api_type => g_api_type);
7250:
7251: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7252: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7253: p_api_name => l_api_name,
7254: p_pkg_name => g_pkg_name,
7255: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7248: x_msg_data => x_msg_data,
7249: p_api_type => g_api_type);
7250:
7251: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7252: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7253: p_api_name => l_api_name,
7254: p_pkg_name => g_pkg_name,
7255: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7256: x_msg_count => x_msg_count,
7251: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7252: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7253: p_api_name => l_api_name,
7254: p_pkg_name => g_pkg_name,
7255: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7256: x_msg_count => x_msg_count,
7257: x_msg_data => x_msg_data,
7258: p_api_type => g_api_type);
7259:
7257: x_msg_data => x_msg_data,
7258: p_api_type => g_api_type);
7259:
7260: when OTHERS then
7261: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7262: p_api_name => l_api_name,
7263: p_pkg_name => g_pkg_name,
7264: p_exc_name => 'OTHERS',
7265: x_msg_count => x_msg_count,
7292: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
7293:
7294: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
7295: l_api_version CONSTANT NUMBER := 1.0;
7296: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7297: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7298: i NUMBER;
7299: l_klev_tbl klev_tbl_type := p_klev_tbl;
7300: BEGIN
7293:
7294: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
7295: l_api_version CONSTANT NUMBER := 1.0;
7296: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7297: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7298: i NUMBER;
7299: l_klev_tbl klev_tbl_type := p_klev_tbl;
7300: BEGIN
7301: -- call START_ACTIVITY to create savepoint, check compatibility
7299: l_klev_tbl klev_tbl_type := p_klev_tbl;
7300: BEGIN
7301: -- call START_ACTIVITY to create savepoint, check compatibility
7302: -- and initialize message list
7303: l_return_status := OKL_API.START_ACTIVITY(
7304: p_api_name => l_api_name,
7305: p_pkg_name => g_pkg_name,
7306: p_init_msg_list => p_init_msg_list,
7307: l_api_version => l_api_version,
7309: p_api_type => g_api_type,
7310: x_return_status => x_return_status);
7311:
7312: -- check if activity started successfully
7313: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7315: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7316: raise OKL_API.G_EXCEPTION_ERROR;
7317:
7310: x_return_status => x_return_status);
7311:
7312: -- check if activity started successfully
7313: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7315: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7316: raise OKL_API.G_EXCEPTION_ERROR;
7317:
7318: End If;
7311:
7312: -- check if activity started successfully
7313: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7315: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7316: raise OKL_API.G_EXCEPTION_ERROR;
7317:
7318: End If;
7319:
7312: -- check if activity started successfully
7313: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7315: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7316: raise OKL_API.G_EXCEPTION_ERROR;
7317:
7318: End If;
7319:
7320: If (p_clev_tbl.COUNT > 0) Then
7330: p_edit_mode => 'Y',
7331: x_clev_tbl => x_clev_tbl,
7332: x_klev_tbl => x_klev_tbl);
7333:
7334: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7335: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7336: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7337: raise OKL_API.G_EXCEPTION_ERROR;
7338: End If;
7331: x_clev_tbl => x_clev_tbl,
7332: x_klev_tbl => x_klev_tbl);
7333:
7334: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7335: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7336: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7337: raise OKL_API.G_EXCEPTION_ERROR;
7338: End If;
7339:
7332: x_klev_tbl => x_klev_tbl);
7333:
7334: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7335: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7336: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7337: raise OKL_API.G_EXCEPTION_ERROR;
7338: End If;
7339:
7340: End If;
7333:
7334: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7335: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7336: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7337: raise OKL_API.G_EXCEPTION_ERROR;
7338: End If;
7339:
7340: End If;
7341:
7339:
7340: End If;
7341:
7342:
7343: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7344: x_msg_data => x_msg_data);
7345: EXCEPTION
7346: when OKL_API.G_EXCEPTION_ERROR then
7347: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7342:
7343: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7344: x_msg_data => x_msg_data);
7345: EXCEPTION
7346: when OKL_API.G_EXCEPTION_ERROR then
7347: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7348: p_api_name => l_api_name,
7349: p_pkg_name => g_pkg_name,
7350: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7343: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7344: x_msg_data => x_msg_data);
7345: EXCEPTION
7346: when OKL_API.G_EXCEPTION_ERROR then
7347: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7348: p_api_name => l_api_name,
7349: p_pkg_name => g_pkg_name,
7350: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7351: x_msg_count => x_msg_count,
7346: when OKL_API.G_EXCEPTION_ERROR then
7347: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7348: p_api_name => l_api_name,
7349: p_pkg_name => g_pkg_name,
7350: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7351: x_msg_count => x_msg_count,
7352: x_msg_data => x_msg_data,
7353: p_api_type => g_api_type);
7354:
7351: x_msg_count => x_msg_count,
7352: x_msg_data => x_msg_data,
7353: p_api_type => g_api_type);
7354:
7355: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7356: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7357: p_api_name => l_api_name,
7358: p_pkg_name => g_pkg_name,
7359: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7352: x_msg_data => x_msg_data,
7353: p_api_type => g_api_type);
7354:
7355: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7356: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7357: p_api_name => l_api_name,
7358: p_pkg_name => g_pkg_name,
7359: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7360: x_msg_count => x_msg_count,
7355: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7356: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7357: p_api_name => l_api_name,
7358: p_pkg_name => g_pkg_name,
7359: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7360: x_msg_count => x_msg_count,
7361: x_msg_data => x_msg_data,
7362: p_api_type => g_api_type);
7363:
7361: x_msg_data => x_msg_data,
7362: p_api_type => g_api_type);
7363:
7364: when OTHERS then
7365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7366: p_api_name => l_api_name,
7367: p_pkg_name => g_pkg_name,
7368: p_exc_name => 'OTHERS',
7369: x_msg_count => x_msg_count,
7399: l_deletion_type Varchar2(1);
7400:
7401: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
7402: l_api_version CONSTANT NUMBER := 1.0;
7403: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7404:
7405: --cursor to find out chr id required to flip status at edit point
7406: CURSOR chr_id_crs (p_cle_id IN NUMBER) is
7407: SELECT DNZ_CHR_ID
7507: AND lse.id = lns.lse_id;
7508:
7509: l_lty_code okc_line_styles_b.lty_code%TYPE;
7510: l_parameter_list wf_parameter_list_t;
7511: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
7512: l_business_event_name WF_EVENTS.NAME%TYPE;
7513: /*
7514: -- vthiruva, 08/19/2004
7515: -- END, Code change to enable Business Event
7518: BEGIN
7519:
7520: -- call START_ACTIVITY to create savepoint, check compatibility
7521: -- and initialize message list
7522: l_return_status := OKL_API.START_ACTIVITY(
7523: p_api_name => l_api_name,
7524: p_pkg_name => g_pkg_name,
7525: p_init_msg_list => p_init_msg_list,
7526: l_api_version => l_api_version,
7528: p_api_type => g_api_type,
7529: x_return_status => x_return_status);
7530:
7531: -- check if activity started successfully
7532: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7533: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7534: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7535: raise OKL_API.G_EXCEPTION_ERROR;
7536: End If;
7529: x_return_status => x_return_status);
7530:
7531: -- check if activity started successfully
7532: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7533: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7534: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7535: raise OKL_API.G_EXCEPTION_ERROR;
7536: End If;
7537:
7530:
7531: -- check if activity started successfully
7532: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7533: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7534: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7535: raise OKL_API.G_EXCEPTION_ERROR;
7536: End If;
7537:
7538: l_klev_rec := p_klev_rec;
7531: -- check if activity started successfully
7532: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7533: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7534: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7535: raise OKL_API.G_EXCEPTION_ERROR;
7536: End If;
7537:
7538: l_klev_rec := p_klev_rec;
7539: l_clev_rec := p_clev_rec;
7542: kle_delete_allowed(p_cle_id => l_klev_rec.id,
7543: x_deletion_type => l_deletion_type,
7544: x_return_status => x_return_status);
7545:
7546: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7548: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7549: raise OKL_API.G_EXCEPTION_ERROR;
7550: End If;
7543: x_deletion_type => l_deletion_type,
7544: x_return_status => x_return_status);
7545:
7546: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7548: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7549: raise OKL_API.G_EXCEPTION_ERROR;
7550: End If;
7551:
7544: x_return_status => x_return_status);
7545:
7546: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7548: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7549: raise OKL_API.G_EXCEPTION_ERROR;
7550: End If;
7551:
7552: OPEN lty_code_csr(l_clev_rec.id);
7545:
7546: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7548: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7549: raise OKL_API.G_EXCEPTION_ERROR;
7550: End If;
7551:
7552: OPEN lty_code_csr(l_clev_rec.id);
7553: FETCH lty_code_csr into l_lty_code;
7570: x_clev_rec => l_clev_rec_out,
7571: x_klev_rec => l_klev_rec_out
7572: );
7573:
7574: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7575: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7576: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7577: raise OKL_API.G_EXCEPTION_ERROR;
7578: End If;
7571: x_klev_rec => l_klev_rec_out
7572: );
7573:
7574: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7575: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7576: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7577: raise OKL_API.G_EXCEPTION_ERROR;
7578: End If;
7579:
7572: );
7573:
7574: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7575: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7576: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7577: raise OKL_API.G_EXCEPTION_ERROR;
7578: End If;
7579:
7580: --Bug # 2522268 Begin
7573:
7574: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7575: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7576: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7577: raise OKL_API.G_EXCEPTION_ERROR;
7578: End If;
7579:
7580: --Bug # 2522268 Begin
7581: --do logical deletion of asset number so
7587: x_msg_data => x_msg_data,
7588: p_cle_id => l_clev_rec_out.id,
7589: p_asset_number => l_clev_rec_out.name);
7590:
7591: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7592: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7593: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7594: raise OKL_API.G_EXCEPTION_ERROR;
7595: End If;
7588: p_cle_id => l_clev_rec_out.id,
7589: p_asset_number => l_clev_rec_out.name);
7590:
7591: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7592: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7593: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7594: raise OKL_API.G_EXCEPTION_ERROR;
7595: End If;
7596:
7589: p_asset_number => l_clev_rec_out.name);
7590:
7591: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7592: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7593: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7594: raise OKL_API.G_EXCEPTION_ERROR;
7595: End If;
7596:
7597: --do logical deletion of linked assets
7590:
7591: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7592: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7593: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7594: raise OKL_API.G_EXCEPTION_ERROR;
7595: End If;
7596:
7597: --do logical deletion of linked assets
7598: Linked_Asset_Delete(p_api_version => p_api_version,
7602: x_msg_data => x_msg_data,
7603: p_cle_id => l_clev_rec_out.id,
7604: p_deletion_type => l_deletion_type);
7605:
7606: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7607: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7608: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7609: raise OKL_API.G_EXCEPTION_ERROR;
7610: End If;
7603: p_cle_id => l_clev_rec_out.id,
7604: p_deletion_type => l_deletion_type);
7605:
7606: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7607: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7608: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7609: raise OKL_API.G_EXCEPTION_ERROR;
7610: End If;
7611: --Bug # 2522268 End
7604: p_deletion_type => l_deletion_type);
7605:
7606: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7607: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7608: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7609: raise OKL_API.G_EXCEPTION_ERROR;
7610: End If;
7611: --Bug # 2522268 End
7612:
7605:
7606: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7607: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7608: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7609: raise OKL_API.G_EXCEPTION_ERROR;
7610: End If;
7611: --Bug # 2522268 End
7612:
7613: --Bug # 2937980
7618: x_msg_count => x_msg_count,
7619: x_msg_data => x_msg_data,
7620: p_cle_id => l_clev_rec.id);
7621:
7622: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7625: raise OKL_API.G_EXCEPTION_ERROR;
7626: End If;
7619: x_msg_data => x_msg_data,
7620: p_cle_id => l_clev_rec.id);
7621:
7622: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7625: raise OKL_API.G_EXCEPTION_ERROR;
7626: End If;
7627: --Bug # 2937980
7620: p_cle_id => l_clev_rec.id);
7621:
7622: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7625: raise OKL_API.G_EXCEPTION_ERROR;
7626: End If;
7627: --Bug # 2937980
7628:
7621:
7622: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7625: raise OKL_API.G_EXCEPTION_ERROR;
7626: End If;
7627: --Bug # 2937980
7628:
7629: If (l_clev_rec_out.dnz_chr_id is not null) AND (l_clev_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
7625: raise OKL_API.G_EXCEPTION_ERROR;
7626: End If;
7627: --Bug # 2937980
7628:
7629: If (l_clev_rec_out.dnz_chr_id is not null) AND (l_clev_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
7630: --call to cascade the status to Incomplete
7631: okl_contract_status_pub.cascade_lease_status_edit
7632: (p_api_version => p_api_version,
7633: p_init_msg_list => p_init_msg_list,
7635: x_msg_count => x_msg_count,
7636: x_msg_data => x_msg_data,
7637: p_chr_id => l_clev_rec_out.dnz_chr_id);
7638:
7639: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7640: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7641: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7642: raise OKL_API.G_EXCEPTION_ERROR;
7643: End If;
7636: x_msg_data => x_msg_data,
7637: p_chr_id => l_clev_rec_out.dnz_chr_id);
7638:
7639: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7640: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7641: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7642: raise OKL_API.G_EXCEPTION_ERROR;
7643: End If;
7644:
7637: p_chr_id => l_clev_rec_out.dnz_chr_id);
7638:
7639: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7640: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7641: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7642: raise OKL_API.G_EXCEPTION_ERROR;
7643: End If;
7644:
7645: End If;
7638:
7639: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7640: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7641: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7642: raise OKL_API.G_EXCEPTION_ERROR;
7643: End If;
7644:
7645: End If;
7646:
7650:
7651: --call to cascade the status to Incomplete
7652: --this has to be done first as l_clev_rec.dnz_chr_id will be null
7653: -- once the line has been deleted.
7654: If (l_clev_rec.dnz_chr_id is NULL) or (l_clev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) Then
7655: Open chr_id_crs(p_cle_id => l_clev_rec.cle_id);
7656: Fetch chr_id_crs into l_dnz_chr_id;
7657: If chr_id_crs%NOTFOUND Then
7658: null;
7661: Else
7662: l_dnz_chr_id := l_clev_rec.dnz_chr_id;
7663: End If;
7664:
7665: If (l_dnz_chr_id is not null) AND (l_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
7666:
7667: okl_contract_status_pub.cascade_lease_status_edit
7668: (p_api_version => p_api_version,
7669: p_init_msg_list => p_init_msg_list,
7671: x_msg_count => x_msg_count,
7672: x_msg_data => x_msg_data,
7673: p_chr_id => l_dnz_chr_id);
7674:
7675: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7676: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7677: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7678: raise OKL_API.G_EXCEPTION_ERROR;
7679: End If;
7672: x_msg_data => x_msg_data,
7673: p_chr_id => l_dnz_chr_id);
7674:
7675: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7676: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7677: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7678: raise OKL_API.G_EXCEPTION_ERROR;
7679: End If;
7680:
7673: p_chr_id => l_dnz_chr_id);
7674:
7675: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7676: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7677: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7678: raise OKL_API.G_EXCEPTION_ERROR;
7679: End If;
7680:
7681: End If;
7674:
7675: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7676: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7677: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7678: raise OKL_API.G_EXCEPTION_ERROR;
7679: End If;
7680:
7681: End If;
7682:
7689: x_msg_data => x_msg_data,
7690: p_cle_id => l_clev_rec.id,
7691: p_deletion_type => l_deletion_type);
7692:
7693: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7694: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7695: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7696: raise OKL_API.G_EXCEPTION_ERROR;
7697: End If;
7690: p_cle_id => l_clev_rec.id,
7691: p_deletion_type => l_deletion_type);
7692:
7693: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7694: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7695: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7696: raise OKL_API.G_EXCEPTION_ERROR;
7697: End If;
7698: --Bug # 2522268 End
7691: p_deletion_type => l_deletion_type);
7692:
7693: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7694: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7695: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7696: raise OKL_API.G_EXCEPTION_ERROR;
7697: End If;
7698: --Bug # 2522268 End
7699:
7692:
7693: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7694: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7695: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7696: raise OKL_API.G_EXCEPTION_ERROR;
7697: End If;
7698: --Bug # 2522268 End
7699:
7700: --Bug# 3143522
7717: x_msg_count => x_msg_count,
7718: x_msg_data => x_msg_data,
7719: p_ppydv_tbl => l_ppydv_tbl);
7720:
7721: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7722: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7723: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7724: raise OKL_API.G_EXCEPTION_ERROR;
7725: End If;
7718: x_msg_data => x_msg_data,
7719: p_ppydv_tbl => l_ppydv_tbl);
7720:
7721: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7722: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7723: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7724: raise OKL_API.G_EXCEPTION_ERROR;
7725: End If;
7726:
7719: p_ppydv_tbl => l_ppydv_tbl);
7720:
7721: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7722: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7723: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7724: raise OKL_API.G_EXCEPTION_ERROR;
7725: End If;
7726:
7727: l_ppydv_tbl.DELETE;
7720:
7721: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7722: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7723: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7724: raise OKL_API.G_EXCEPTION_ERROR;
7725: End If;
7726:
7727: l_ppydv_tbl.DELETE;
7728:
7748: x_msg_count => x_msg_count,
7749: x_msg_data => x_msg_data,
7750: p_pphv_tbl => l_pphv_tbl );
7751:
7752: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7753: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7754: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7755: raise OKL_API.G_EXCEPTION_ERROR;
7756: End If;
7749: x_msg_data => x_msg_data,
7750: p_pphv_tbl => l_pphv_tbl );
7751:
7752: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7753: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7754: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7755: raise OKL_API.G_EXCEPTION_ERROR;
7756: End If;
7757:
7750: p_pphv_tbl => l_pphv_tbl );
7751:
7752: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7753: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7754: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7755: raise OKL_API.G_EXCEPTION_ERROR;
7756: End If;
7757:
7758: l_pphv_tbl.DELETE;
7751:
7752: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7753: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7754: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7755: raise OKL_API.G_EXCEPTION_ERROR;
7756: End If;
7757:
7758: l_pphv_tbl.DELETE;
7759:
7778: x_msg_count => x_msg_count,
7779: x_msg_data => x_msg_data,
7780: p_kplv_tbl => l_kplv_tbl);
7781:
7782: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7783: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7785: raise OKL_API.G_EXCEPTION_ERROR;
7786: End If;
7779: x_msg_data => x_msg_data,
7780: p_kplv_tbl => l_kplv_tbl);
7781:
7782: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7783: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7785: raise OKL_API.G_EXCEPTION_ERROR;
7786: End If;
7787:
7780: p_kplv_tbl => l_kplv_tbl);
7781:
7782: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7783: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7785: raise OKL_API.G_EXCEPTION_ERROR;
7786: End If;
7787:
7788: l_kplv_tbl.DELETE;
7781:
7782: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7783: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7785: raise OKL_API.G_EXCEPTION_ERROR;
7786: End If;
7787:
7788: l_kplv_tbl.DELETE;
7789: End If;
7807:
7808: --taken care of in another api with p_delete_cascade_yn flag
7809:
7810: -- check return status
7811: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7812: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7813: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7814: raise OKL_API.G_EXCEPTION_ERROR;
7815: End If;
7808: --taken care of in another api with p_delete_cascade_yn flag
7809:
7810: -- check return status
7811: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7812: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7813: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7814: raise OKL_API.G_EXCEPTION_ERROR;
7815: End If;
7816:
7809:
7810: -- check return status
7811: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7812: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7813: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7814: raise OKL_API.G_EXCEPTION_ERROR;
7815: End If;
7816:
7817: -- get id from OKC record
7810: -- check return status
7811: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7812: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7813: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7814: raise OKL_API.G_EXCEPTION_ERROR;
7815: End If;
7816:
7817: -- get id from OKC record
7818: l_klev_rec.ID := l_clev_rec.ID;
7839: x_msg_count => x_msg_count,
7840: x_msg_data => x_msg_data,
7841: p_adpv_rec => l_adpv_rec);
7842: -- check return status
7843: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7844: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7846: raise OKL_API.G_EXCEPTION_ERROR;
7847: End If;
7840: x_msg_data => x_msg_data,
7841: p_adpv_rec => l_adpv_rec);
7842: -- check return status
7843: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7844: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7846: raise OKL_API.G_EXCEPTION_ERROR;
7847: End If;
7848: End If;
7841: p_adpv_rec => l_adpv_rec);
7842: -- check return status
7843: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7844: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7846: raise OKL_API.G_EXCEPTION_ERROR;
7847: End If;
7848: End If;
7849: Close l_get_txd_crs;
7842: -- check return status
7843: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7844: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7846: raise OKL_API.G_EXCEPTION_ERROR;
7847: End If;
7848: End If;
7849: Close l_get_txd_crs;
7850: --delete txl record
7856: x_msg_count => x_msg_count,
7857: x_msg_data => x_msg_data,
7858: p_tlpv_rec => l_tlpv_rec);
7859: -- check return status
7860: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7861: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7862: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7863: raise OKL_API.G_EXCEPTION_ERROR;
7864: End If;
7857: x_msg_data => x_msg_data,
7858: p_tlpv_rec => l_tlpv_rec);
7859: -- check return status
7860: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7861: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7862: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7863: raise OKL_API.G_EXCEPTION_ERROR;
7864: End If;
7865:
7858: p_tlpv_rec => l_tlpv_rec);
7859: -- check return status
7860: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7861: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7862: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7863: raise OKL_API.G_EXCEPTION_ERROR;
7864: End If;
7865:
7866: --delete tas_record
7859: -- check return status
7860: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7861: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7862: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7863: raise OKL_API.G_EXCEPTION_ERROR;
7864: End If;
7865:
7866: --delete tas_record
7867: l_thpv_rec.id := l_tas_id;
7872: x_msg_count => x_msg_count,
7873: x_msg_data => x_msg_data,
7874: p_thpv_rec => l_thpv_rec);
7875: -- check return status
7876: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7877: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7878: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7879: raise OKL_API.G_EXCEPTION_ERROR;
7880: End If;
7873: x_msg_data => x_msg_data,
7874: p_thpv_rec => l_thpv_rec);
7875: -- check return status
7876: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7877: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7878: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7879: raise OKL_API.G_EXCEPTION_ERROR;
7880: End If;
7881: End If;
7874: p_thpv_rec => l_thpv_rec);
7875: -- check return status
7876: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7877: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7878: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7879: raise OKL_API.G_EXCEPTION_ERROR;
7880: End If;
7881: End If;
7882: Close l_get_txl_crs;
7875: -- check return status
7876: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7877: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7878: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7879: raise OKL_API.G_EXCEPTION_ERROR;
7880: End If;
7881: End If;
7882: Close l_get_txl_crs;
7883:
7896: x_msg_count => x_msg_count,
7897: x_msg_data => x_msg_data,
7898: p_iipv_rec => l_iipv_rec);
7899: -- check return status
7900: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7901: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7902: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7903: raise OKL_API.G_EXCEPTION_ERROR;
7904: End If;
7897: x_msg_data => x_msg_data,
7898: p_iipv_rec => l_iipv_rec);
7899: -- check return status
7900: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7901: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7902: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7903: raise OKL_API.G_EXCEPTION_ERROR;
7904: End If;
7905:
7898: p_iipv_rec => l_iipv_rec);
7899: -- check return status
7900: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7901: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7902: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7903: raise OKL_API.G_EXCEPTION_ERROR;
7904: End If;
7905:
7906: --delete tas_record
7899: -- check return status
7900: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7901: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7902: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7903: raise OKL_API.G_EXCEPTION_ERROR;
7904: End If;
7905:
7906: --delete tas_record
7907: l_iti_thpv_rec.id := l_iti_tas_id;
7912: x_msg_count => x_msg_count,
7913: x_msg_data => x_msg_data,
7914: p_thpv_rec => l_iti_thpv_rec);
7915: -- check return status
7916: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7917: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7918: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7919: raise OKL_API.G_EXCEPTION_ERROR;
7920: End If;
7913: x_msg_data => x_msg_data,
7914: p_thpv_rec => l_iti_thpv_rec);
7915: -- check return status
7916: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7917: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7918: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7919: raise OKL_API.G_EXCEPTION_ERROR;
7920: End If;
7921: End If;
7914: p_thpv_rec => l_iti_thpv_rec);
7915: -- check return status
7916: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7917: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7918: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7919: raise OKL_API.G_EXCEPTION_ERROR;
7920: End If;
7921: End If;
7922: Close l_get_iti_csr;
7915: -- check return status
7916: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7917: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7918: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7919: raise OKL_API.G_EXCEPTION_ERROR;
7920: End If;
7921: End If;
7922: Close l_get_iti_csr;
7923:
7943: x_msg_count => x_msg_count,
7944: x_msg_data => x_msg_data,
7945: p_sidv_tbl => l_sidv_tbl);
7946:
7947: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7948: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7949: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7950: raise OKL_API.G_EXCEPTION_ERROR;
7951: End If;
7944: x_msg_data => x_msg_data,
7945: p_sidv_tbl => l_sidv_tbl);
7946:
7947: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7948: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7949: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7950: raise OKL_API.G_EXCEPTION_ERROR;
7951: End If;
7952:
7945: p_sidv_tbl => l_sidv_tbl);
7946:
7947: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7948: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7949: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7950: raise OKL_API.G_EXCEPTION_ERROR;
7951: End If;
7952:
7953: l_sidv_tbl.DELETE;
7946:
7947: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7948: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7949: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7950: raise OKL_API.G_EXCEPTION_ERROR;
7951: End If;
7952:
7953: l_sidv_tbl.DELETE;
7954:
7964: x_msg_count => x_msg_count,
7965: x_msg_data => x_msg_data,
7966: p_klev_rec => l_klev_rec);
7967:
7968: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7969: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7970: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7971: raise OKL_API.G_EXCEPTION_ERROR;
7972: End If;
7965: x_msg_data => x_msg_data,
7966: p_klev_rec => l_klev_rec);
7967:
7968: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7969: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7970: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7971: raise OKL_API.G_EXCEPTION_ERROR;
7972: End If;
7973: End If;
7966: p_klev_rec => l_klev_rec);
7967:
7968: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7969: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7970: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7971: raise OKL_API.G_EXCEPTION_ERROR;
7972: End If;
7973: End If;
7974:
7967:
7968: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7969: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7970: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7971: raise OKL_API.G_EXCEPTION_ERROR;
7972: End If;
7973: End If;
7974:
7975: -- sjalasut, added code to handle business event when credit limit is deleted
7976: -- raise the business event for delete credit limit only if line style code is FREE_FORM.
7977: -- keep the following condition and the raise business event api separate for
7978: -- extensibility
7979: IF(l_lty_code = 'FREE_FORM')THEN
7980: l_raise_business_event := OKL_API.G_TRUE;
7981: --create the parameter list to pass to raise_event
7982: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_dnz_chr_id,l_parameter_list);
7983: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
7984: l_business_event_name := G_WF_EVT_CR_LMT_REMOVED;
7983: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
7984: l_business_event_name := G_WF_EVT_CR_LMT_REMOVED;
7985: END IF;
7986:
7987: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN
7988: raise_business_event(p_api_version => p_api_version,
7989: p_init_msg_list => p_init_msg_list,
7990: x_return_status => x_return_status,
7991: x_msg_count => x_msg_count,
7991: x_msg_count => x_msg_count,
7992: x_msg_data => x_msg_data,
7993: p_event_name => l_business_event_name,
7994: p_parameter_list => l_parameter_list);
7995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7998: RAISE OKL_API.G_EXCEPTION_ERROR;
7999: END IF;
7992: x_msg_data => x_msg_data,
7993: p_event_name => l_business_event_name,
7994: p_parameter_list => l_parameter_list);
7995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7998: RAISE OKL_API.G_EXCEPTION_ERROR;
7999: END IF;
8000: END IF;
7993: p_event_name => l_business_event_name,
7994: p_parameter_list => l_parameter_list);
7995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7998: RAISE OKL_API.G_EXCEPTION_ERROR;
7999: END IF;
8000: END IF;
8001:
7994: p_parameter_list => l_parameter_list);
7995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7998: RAISE OKL_API.G_EXCEPTION_ERROR;
7999: END IF;
8000: END IF;
8001:
8002: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7998: RAISE OKL_API.G_EXCEPTION_ERROR;
7999: END IF;
8000: END IF;
8001:
8002: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8003: x_msg_data => x_msg_data);
8004: EXCEPTION
8005: when OKL_API.G_EXCEPTION_ERROR then
8006: If l_get_txl_crs%ISOPEN Then
8001:
8002: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8003: x_msg_data => x_msg_data);
8004: EXCEPTION
8005: when OKL_API.G_EXCEPTION_ERROR then
8006: If l_get_txl_crs%ISOPEN Then
8007: Close l_get_txl_crs;
8008: End If;
8009: If l_get_txd_crs%ISOPEN Then
8020: End If;
8021: If l_get_pyd_csr%ISOPEN Then
8022: Close l_get_pyd_csr;
8023: End If;
8024: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8025: p_api_name => l_api_name,
8026: p_pkg_name => g_pkg_name,
8027: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8028: x_msg_count => x_msg_count,
8023: End If;
8024: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8025: p_api_name => l_api_name,
8026: p_pkg_name => g_pkg_name,
8027: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8028: x_msg_count => x_msg_count,
8029: x_msg_data => x_msg_data,
8030: p_api_type => g_api_type);
8031:
8028: x_msg_count => x_msg_count,
8029: x_msg_data => x_msg_data,
8030: p_api_type => g_api_type);
8031:
8032: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8033: If l_get_txl_crs%ISOPEN Then
8034: Close l_get_txl_crs;
8035: End If;
8036: If l_get_txd_crs%ISOPEN Then
8048: If l_get_pyd_csr%ISOPEN Then
8049: Close l_get_pyd_csr;
8050: End If;
8051:
8052: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8053: p_api_name => l_api_name,
8054: p_pkg_name => g_pkg_name,
8055: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8056: x_msg_count => x_msg_count,
8051:
8052: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8053: p_api_name => l_api_name,
8054: p_pkg_name => g_pkg_name,
8055: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8056: x_msg_count => x_msg_count,
8057: x_msg_data => x_msg_data,
8058: p_api_type => g_api_type);
8059:
8076: If l_get_pyd_csr%ISOPEN Then
8077: Close l_get_pyd_csr;
8078: End If;
8079:
8080: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8081: p_api_name => l_api_name,
8082: p_pkg_name => g_pkg_name,
8083: p_exc_name => 'OTHERS',
8084: x_msg_count => x_msg_count,
8105: p_klev_tbl IN klev_tbl_type) IS
8106:
8107: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
8108: l_api_version CONSTANT NUMBER := 1.0;
8109: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8110: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8111: i NUMBER;
8112: l_klev_tbl klev_tbl_type := p_klev_tbl;
8113: BEGIN
8106:
8107: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
8108: l_api_version CONSTANT NUMBER := 1.0;
8109: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8110: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8111: i NUMBER;
8112: l_klev_tbl klev_tbl_type := p_klev_tbl;
8113: BEGIN
8114: -- call START_ACTIVITY to create savepoint, check compatibility
8112: l_klev_tbl klev_tbl_type := p_klev_tbl;
8113: BEGIN
8114: -- call START_ACTIVITY to create savepoint, check compatibility
8115: -- and initialize message list
8116: l_return_status := OKL_API.START_ACTIVITY(
8117: p_api_name => l_api_name,
8118: p_pkg_name => g_pkg_name,
8119: p_init_msg_list => p_init_msg_list,
8120: l_api_version => l_api_version,
8122: p_api_type => g_api_type,
8123: x_return_status => x_return_status);
8124:
8125: -- check if activity started successfully
8126: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8127: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8128: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8129: raise OKL_API.G_EXCEPTION_ERROR;
8130: End If;
8123: x_return_status => x_return_status);
8124:
8125: -- check if activity started successfully
8126: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8127: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8128: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8129: raise OKL_API.G_EXCEPTION_ERROR;
8130: End If;
8131:
8124:
8125: -- check if activity started successfully
8126: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8127: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8128: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8129: raise OKL_API.G_EXCEPTION_ERROR;
8130: End If;
8131:
8132: If (p_clev_tbl.COUNT > 0) Then
8125: -- check if activity started successfully
8126: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8127: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8128: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8129: raise OKL_API.G_EXCEPTION_ERROR;
8130: End If;
8131:
8132: If (p_clev_tbl.COUNT > 0) Then
8133: i := p_clev_tbl.FIRST;
8141: x_msg_data => x_msg_data,
8142: p_clev_rec => p_clev_tbl(i),
8143: p_klev_rec => l_klev_tbl(i));
8144:
8145: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
8146: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
8147: l_overall_status := x_return_status;
8148: End If;
8149: End If;
8142: p_clev_rec => p_clev_tbl(i),
8143: p_klev_rec => l_klev_tbl(i));
8144:
8145: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
8146: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
8147: l_overall_status := x_return_status;
8148: End If;
8149: End If;
8150:
8155: -- return overall status
8156: x_return_status := l_overall_status;
8157: End If;
8158:
8159: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8160: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8161: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8162: raise OKL_API.G_EXCEPTION_ERROR;
8163: End If;
8156: x_return_status := l_overall_status;
8157: End If;
8158:
8159: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8160: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8161: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8162: raise OKL_API.G_EXCEPTION_ERROR;
8163: End If;
8164:
8157: End If;
8158:
8159: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8160: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8161: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8162: raise OKL_API.G_EXCEPTION_ERROR;
8163: End If;
8164:
8165: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8158:
8159: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8160: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8161: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8162: raise OKL_API.G_EXCEPTION_ERROR;
8163: End If;
8164:
8165: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8166: x_msg_data => x_msg_data);
8161: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8162: raise OKL_API.G_EXCEPTION_ERROR;
8163: End If;
8164:
8165: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8166: x_msg_data => x_msg_data);
8167: EXCEPTION
8168: when OKL_API.G_EXCEPTION_ERROR then
8169: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8164:
8165: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8166: x_msg_data => x_msg_data);
8167: EXCEPTION
8168: when OKL_API.G_EXCEPTION_ERROR then
8169: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8170: p_api_name => l_api_name,
8171: p_pkg_name => g_pkg_name,
8172: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8165: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8166: x_msg_data => x_msg_data);
8167: EXCEPTION
8168: when OKL_API.G_EXCEPTION_ERROR then
8169: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8170: p_api_name => l_api_name,
8171: p_pkg_name => g_pkg_name,
8172: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8173: x_msg_count => x_msg_count,
8168: when OKL_API.G_EXCEPTION_ERROR then
8169: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8170: p_api_name => l_api_name,
8171: p_pkg_name => g_pkg_name,
8172: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8173: x_msg_count => x_msg_count,
8174: x_msg_data => x_msg_data,
8175: p_api_type => g_api_type);
8176:
8173: x_msg_count => x_msg_count,
8174: x_msg_data => x_msg_data,
8175: p_api_type => g_api_type);
8176:
8177: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8178: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8179: p_api_name => l_api_name,
8180: p_pkg_name => g_pkg_name,
8181: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8174: x_msg_data => x_msg_data,
8175: p_api_type => g_api_type);
8176:
8177: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8178: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8179: p_api_name => l_api_name,
8180: p_pkg_name => g_pkg_name,
8181: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8182: x_msg_count => x_msg_count,
8177: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8178: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8179: p_api_name => l_api_name,
8180: p_pkg_name => g_pkg_name,
8181: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8182: x_msg_count => x_msg_count,
8183: x_msg_data => x_msg_data,
8184: p_api_type => g_api_type);
8185:
8183: x_msg_data => x_msg_data,
8184: p_api_type => g_api_type);
8185:
8186: when OTHERS then
8187: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8188: p_api_name => l_api_name,
8189: p_pkg_name => g_pkg_name,
8190: p_exc_name => 'OTHERS',
8191: x_msg_count => x_msg_count,
8366: AND lse.id = lns.lse_id;
8367:
8368: l_lty_code okc_line_styles_b.lty_code%TYPE;
8369: l_parameter_list wf_parameter_list_t;
8370: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
8371: l_business_event_name WF_EVENTS.NAME%TYPE;
8372: /*
8373: -- vthiruva, 08/19/2004
8374: -- END, Code change to enable Business Event
8377: -- validates line id
8378: PROCEDURE Validate_Line_id(
8379: p_line_id IN NUMBER,
8380: x_return_status OUT NOCOPY VARCHAR2) IS
8381: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8382: l_count NUMBER;
8383: CURSOR l_cur_line_csr(p_line_id IN NUMBER) IS
8384: SELECT COUNT(id) FROM OKC_K_LINES_B
8385: WHERE id = p_line_id;
8383: CURSOR l_cur_line_csr(p_line_id IN NUMBER) IS
8384: SELECT COUNT(id) FROM OKC_K_LINES_B
8385: WHERE id = p_line_id;
8386: BEGIN
8387: IF p_line_id = OKL_API.G_MISS_NUM OR p_line_id IS NULL
8388: THEN
8389: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8390:
8391: l_return_status := OKL_API.G_RET_STS_ERROR;
8385: WHERE id = p_line_id;
8386: BEGIN
8387: IF p_line_id = OKL_API.G_MISS_NUM OR p_line_id IS NULL
8388: THEN
8389: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8390:
8391: l_return_status := OKL_API.G_RET_STS_ERROR;
8392: END IF;
8393:
8387: IF p_line_id = OKL_API.G_MISS_NUM OR p_line_id IS NULL
8388: THEN
8389: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8390:
8391: l_return_status := OKL_API.G_RET_STS_ERROR;
8392: END IF;
8393:
8394: OPEN l_cur_line_csr(p_line_id);
8395: FETCH l_cur_line_csr INTO l_Count;
8394: OPEN l_cur_line_csr(p_line_id);
8395: FETCH l_cur_line_csr INTO l_Count;
8396: CLOSE l_cur_line_csr;
8397: IF NOT l_Count = 1 THEN
8398: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8399:
8400: l_return_status := OKL_API.G_RET_STS_ERROR;
8401: END IF;
8402: x_return_status := l_return_status;
8396: CLOSE l_cur_line_csr;
8397: IF NOT l_Count = 1 THEN
8398: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8399:
8400: l_return_status := OKL_API.G_RET_STS_ERROR;
8401: END IF;
8402: x_return_status := l_return_status;
8403: EXCEPTION
8404: WHEN OTHERS THEN
8403: EXCEPTION
8404: WHEN OTHERS THEN
8405: -- store SQL error message on message stack for caller
8406:
8407: OKL_API.set_message(G_APP_NAME,
8408: G_UNEXPECTED_ERROR,
8409: G_SQLCODE_TOKEN,
8410: SQLCODE,
8411: G_SQLERRM_TOKEN,
8410: SQLCODE,
8411: G_SQLERRM_TOKEN,
8412: SQLERRM);
8413: -- notify caller of an UNEXPECTED error
8414: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8415: END Validate_Line_id;
8416:
8417: BEGIN
8418: x_return_status:=OKL_API.G_RET_STS_SUCCESS;
8414: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8415: END Validate_Line_id;
8416:
8417: BEGIN
8418: x_return_status:=OKL_API.G_RET_STS_SUCCESS;
8419:
8420: -- call START_ACTIVITY to create savepoint, check compatibility
8421: -- and initialize message list
8422: l_return_status := OKL_API.START_ACTIVITY(
8418: x_return_status:=OKL_API.G_RET_STS_SUCCESS;
8419:
8420: -- call START_ACTIVITY to create savepoint, check compatibility
8421: -- and initialize message list
8422: l_return_status := OKL_API.START_ACTIVITY(
8423: p_api_name => l_api_name,
8424: p_pkg_name => g_pkg_name,
8425: p_init_msg_list => p_init_msg_list,
8426: l_api_version => l_api_version,
8428: p_api_type => g_api_type,
8429: x_return_status => x_return_status);
8430:
8431: -- check if activity started successfully
8432: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8433: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8434: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8435: raise OKL_API.G_EXCEPTION_ERROR;
8436: End If;
8429: x_return_status => x_return_status);
8430:
8431: -- check if activity started successfully
8432: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8433: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8434: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8435: raise OKL_API.G_EXCEPTION_ERROR;
8436: End If;
8437:
8430:
8431: -- check if activity started successfully
8432: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8433: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8434: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8435: raise OKL_API.G_EXCEPTION_ERROR;
8436: End If;
8437:
8438: Validate_Line_id(p_line_id,l_return_status);
8431: -- check if activity started successfully
8432: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8433: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8434: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8435: raise OKL_API.G_EXCEPTION_ERROR;
8436: End If;
8437:
8438: Validate_Line_id(p_line_id,l_return_status);
8439: -- check if activity started successfully
8436: End If;
8437:
8438: Validate_Line_id(p_line_id,l_return_status);
8439: -- check if activity started successfully
8440: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8441: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8442: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8443: raise OKL_API.G_EXCEPTION_ERROR;
8444: End If;
8437:
8438: Validate_Line_id(p_line_id,l_return_status);
8439: -- check if activity started successfully
8440: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8441: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8442: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8443: raise OKL_API.G_EXCEPTION_ERROR;
8444: End If;
8445:
8438: Validate_Line_id(p_line_id,l_return_status);
8439: -- check if activity started successfully
8440: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8441: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8442: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8443: raise OKL_API.G_EXCEPTION_ERROR;
8444: End If;
8445:
8446:
8439: -- check if activity started successfully
8440: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8441: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8442: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8443: raise OKL_API.G_EXCEPTION_ERROR;
8444: End If;
8445:
8446:
8447: -- now we need to store all numbers of sublines to the current line
8490: kle_delete_allowed(p_cle_id => l_klev_tbl_in(i).id,
8491: x_deletion_type => l_deletion_type,
8492: x_return_status => x_return_status);
8493:
8494: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8495: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8496: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8497: raise OKL_API.G_EXCEPTION_ERROR;
8498: End If;
8491: x_deletion_type => l_deletion_type,
8492: x_return_status => x_return_status);
8493:
8494: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8495: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8496: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8497: raise OKL_API.G_EXCEPTION_ERROR;
8498: End If;
8499: --dbms_output.put_line('l_deletion_type'||l_deletion_type);
8492: x_return_status => x_return_status);
8493:
8494: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8495: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8496: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8497: raise OKL_API.G_EXCEPTION_ERROR;
8498: End If;
8499: --dbms_output.put_line('l_deletion_type'||l_deletion_type);
8500: If (l_deletion_type in ('L','N')) Then --logical delete or not allowed
8493:
8494: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8495: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8496: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8497: raise OKL_API.G_EXCEPTION_ERROR;
8498: End If;
8499: --dbms_output.put_line('l_deletion_type'||l_deletion_type);
8500: If (l_deletion_type in ('L','N')) Then --logical delete or not allowed
8501: Exit;
8524: );
8525: --dbms_output.put_line('sts_code :'||l_clev_rec_out.sts_code);
8526: --dbms_output.put_line('line:'||to_char(l_clev_rec_out.id));
8527:
8528: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8529: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8530: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
8531: raise OKL_API.G_EXCEPTION_ERROR;
8532: End If;
8525: --dbms_output.put_line('sts_code :'||l_clev_rec_out.sts_code);
8526: --dbms_output.put_line('line:'||to_char(l_clev_rec_out.id));
8527:
8528: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8529: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8530: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
8531: raise OKL_API.G_EXCEPTION_ERROR;
8532: End If;
8533:
8526: --dbms_output.put_line('line:'||to_char(l_clev_rec_out.id));
8527:
8528: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8529: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8530: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
8531: raise OKL_API.G_EXCEPTION_ERROR;
8532: End If;
8533:
8534: --Bug # 2522268 Begin
8527:
8528: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8529: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8530: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
8531: raise OKL_API.G_EXCEPTION_ERROR;
8532: End If;
8533:
8534: --Bug # 2522268 Begin
8535: --do logical deletion of asset number so
8542: x_msg_data => x_msg_data,
8543: p_cle_id => l_clev_rec_out.id,
8544: p_asset_number => l_clev_rec_out.name);
8545:
8546: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8548: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8549: raise OKL_API.G_EXCEPTION_ERROR;
8550: End If;
8543: p_cle_id => l_clev_rec_out.id,
8544: p_asset_number => l_clev_rec_out.name);
8545:
8546: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8548: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8549: raise OKL_API.G_EXCEPTION_ERROR;
8550: End If;
8551:
8544: p_asset_number => l_clev_rec_out.name);
8545:
8546: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8548: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8549: raise OKL_API.G_EXCEPTION_ERROR;
8550: End If;
8551:
8552: --do logical deletion of linked assets
8545:
8546: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8548: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8549: raise OKL_API.G_EXCEPTION_ERROR;
8550: End If;
8551:
8552: --do logical deletion of linked assets
8553: Linked_Asset_Delete(p_api_version => p_api_version,
8557: x_msg_data => x_msg_data,
8558: p_cle_id => l_clev_rec_out.id,
8559: p_deletion_type => l_deletion_type);
8560:
8561: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8562: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8563: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8564: raise OKL_API.G_EXCEPTION_ERROR;
8565: End If;
8558: p_cle_id => l_clev_rec_out.id,
8559: p_deletion_type => l_deletion_type);
8560:
8561: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8562: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8563: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8564: raise OKL_API.G_EXCEPTION_ERROR;
8565: End If;
8566: --Bug # 2522268 End
8559: p_deletion_type => l_deletion_type);
8560:
8561: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8562: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8563: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8564: raise OKL_API.G_EXCEPTION_ERROR;
8565: End If;
8566: --Bug # 2522268 End
8567:
8560:
8561: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8562: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8563: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8564: raise OKL_API.G_EXCEPTION_ERROR;
8565: End If;
8566: --Bug # 2522268 End
8567:
8568: --Bug # 2937980
8573: x_msg_count => x_msg_count,
8574: x_msg_data => x_msg_data,
8575: p_cle_id => l_clev_rec.id);
8576:
8577: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8578: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8579: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8580: raise OKL_API.G_EXCEPTION_ERROR;
8581: End If;
8574: x_msg_data => x_msg_data,
8575: p_cle_id => l_clev_rec.id);
8576:
8577: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8578: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8579: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8580: raise OKL_API.G_EXCEPTION_ERROR;
8581: End If;
8582: --Bug # 2937980
8575: p_cle_id => l_clev_rec.id);
8576:
8577: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8578: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8579: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8580: raise OKL_API.G_EXCEPTION_ERROR;
8581: End If;
8582: --Bug # 2937980
8583:
8576:
8577: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8578: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8579: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8580: raise OKL_API.G_EXCEPTION_ERROR;
8581: End If;
8582: --Bug # 2937980
8583:
8584: If (l_clev_rec_out.dnz_chr_id is not null) AND (l_clev_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
8580: raise OKL_API.G_EXCEPTION_ERROR;
8581: End If;
8582: --Bug # 2937980
8583:
8584: If (l_clev_rec_out.dnz_chr_id is not null) AND (l_clev_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
8585: --call API to cascade 'INCOMPLETE' status for lease contracts
8586: okl_contract_status_pub.cascade_lease_status_edit
8587: (p_api_version => p_api_version,
8588: p_init_msg_list => p_init_msg_list,
8590: x_msg_count => x_msg_count,
8591: x_msg_data => x_msg_data,
8592: p_chr_id => l_clev_rec_out.dnz_chr_id);
8593:
8594: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8595: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8596: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8597: raise OKL_API.G_EXCEPTION_ERROR;
8598: End If;
8591: x_msg_data => x_msg_data,
8592: p_chr_id => l_clev_rec_out.dnz_chr_id);
8593:
8594: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8595: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8596: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8597: raise OKL_API.G_EXCEPTION_ERROR;
8598: End If;
8599:
8592: p_chr_id => l_clev_rec_out.dnz_chr_id);
8593:
8594: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8595: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8596: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8597: raise OKL_API.G_EXCEPTION_ERROR;
8598: End If;
8599:
8600: End If;
8593:
8594: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8595: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8596: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8597: raise OKL_API.G_EXCEPTION_ERROR;
8598: End If;
8599:
8600: End If;
8601: END LOOP;
8622: null;
8623: End If;
8624: Close chr_id_crs;
8625:
8626: If (l_dnz_chr_id is not null) AND (l_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
8627:
8628: okl_contract_status_pub.cascade_lease_status_edit
8629: (p_api_version => p_api_version,
8630: p_init_msg_list => p_init_msg_list,
8632: x_msg_count => x_msg_count,
8633: x_msg_data => x_msg_data,
8634: p_chr_id => l_dnz_chr_id);
8635:
8636: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8637: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8638: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8639: raise OKL_API.G_EXCEPTION_ERROR;
8640: End If;
8633: x_msg_data => x_msg_data,
8634: p_chr_id => l_dnz_chr_id);
8635:
8636: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8637: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8638: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8639: raise OKL_API.G_EXCEPTION_ERROR;
8640: End If;
8641:
8634: p_chr_id => l_dnz_chr_id);
8635:
8636: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8637: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8638: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8639: raise OKL_API.G_EXCEPTION_ERROR;
8640: End If;
8641:
8642: End If;
8635:
8636: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8637: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8638: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8639: raise OKL_API.G_EXCEPTION_ERROR;
8640: End If;
8641:
8642: End If;
8643:
8651: x_msg_data => x_msg_data,
8652: p_cle_id => p_line_id,
8653: p_deletion_type => l_deletion_type);
8654:
8655: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8657: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8658: raise OKL_API.G_EXCEPTION_ERROR;
8659: End If;
8652: p_cle_id => p_line_id,
8653: p_deletion_type => l_deletion_type);
8654:
8655: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8657: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8658: raise OKL_API.G_EXCEPTION_ERROR;
8659: End If;
8660: --Bug # 2522268 end
8653: p_deletion_type => l_deletion_type);
8654:
8655: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8657: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8658: raise OKL_API.G_EXCEPTION_ERROR;
8659: End If;
8660: --Bug # 2522268 end
8661:
8654:
8655: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8657: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8658: raise OKL_API.G_EXCEPTION_ERROR;
8659: End If;
8660: --Bug # 2522268 end
8661:
8662: --Bug# 3143522
8684: x_msg_count => x_msg_count,
8685: x_msg_data => x_msg_data,
8686: p_ppydv_tbl => l_ppydv_tbl);
8687:
8688: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8689: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8690: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8691: raise OKL_API.G_EXCEPTION_ERROR;
8692: End If;
8685: x_msg_data => x_msg_data,
8686: p_ppydv_tbl => l_ppydv_tbl);
8687:
8688: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8689: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8690: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8691: raise OKL_API.G_EXCEPTION_ERROR;
8692: End If;
8693:
8686: p_ppydv_tbl => l_ppydv_tbl);
8687:
8688: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8689: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8690: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8691: raise OKL_API.G_EXCEPTION_ERROR;
8692: End If;
8693:
8694: l_ppydv_tbl.DELETE;
8687:
8688: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8689: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8690: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8691: raise OKL_API.G_EXCEPTION_ERROR;
8692: End If;
8693:
8694: l_ppydv_tbl.DELETE;
8695:
8716: x_msg_count => x_msg_count,
8717: x_msg_data => x_msg_data,
8718: p_pphv_tbl => l_pphv_tbl );
8719:
8720: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8721: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8722: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8723: raise OKL_API.G_EXCEPTION_ERROR;
8724: End If;
8717: x_msg_data => x_msg_data,
8718: p_pphv_tbl => l_pphv_tbl );
8719:
8720: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8721: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8722: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8723: raise OKL_API.G_EXCEPTION_ERROR;
8724: End If;
8725:
8718: p_pphv_tbl => l_pphv_tbl );
8719:
8720: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8721: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8722: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8723: raise OKL_API.G_EXCEPTION_ERROR;
8724: End If;
8725:
8726: l_pphv_tbl.DELETE;
8719:
8720: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8721: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8722: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8723: raise OKL_API.G_EXCEPTION_ERROR;
8724: End If;
8725:
8726: l_pphv_tbl.DELETE;
8727:
8749: x_msg_count => x_msg_count,
8750: x_msg_data => x_msg_data,
8751: p_kplv_tbl => l_kplv_tbl);
8752:
8753: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8754: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8755: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8756: raise OKL_API.G_EXCEPTION_ERROR;
8757: End If;
8750: x_msg_data => x_msg_data,
8751: p_kplv_tbl => l_kplv_tbl);
8752:
8753: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8754: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8755: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8756: raise OKL_API.G_EXCEPTION_ERROR;
8757: End If;
8758:
8751: p_kplv_tbl => l_kplv_tbl);
8752:
8753: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8754: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8755: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8756: raise OKL_API.G_EXCEPTION_ERROR;
8757: End If;
8758:
8759: l_kplv_tbl.DELETE;
8752:
8753: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8754: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8755: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8756: raise OKL_API.G_EXCEPTION_ERROR;
8757: End If;
8758:
8759: l_kplv_tbl.DELETE;
8760: End If;
8768: x_msg_count => x_msg_count,
8769: x_msg_data => x_msg_data,
8770: p_line_id => p_line_id);
8771:
8772: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8773: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8774: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8775: raise OKL_API.G_EXCEPTION_ERROR;
8776: End If;
8769: x_msg_data => x_msg_data,
8770: p_line_id => p_line_id);
8771:
8772: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8773: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8774: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8775: raise OKL_API.G_EXCEPTION_ERROR;
8776: End If;
8777:
8770: p_line_id => p_line_id);
8771:
8772: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8773: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8774: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8775: raise OKL_API.G_EXCEPTION_ERROR;
8776: End If;
8777:
8778: -- delete transactions hanging fo the lines
8771:
8772: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8773: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8774: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8775: raise OKL_API.G_EXCEPTION_ERROR;
8776: End If;
8777:
8778: -- delete transactions hanging fo the lines
8779: for i in l_klev_tbl_in.FIRST..l_klev_tbl_in.LAST
8801: x_msg_count => x_msg_count,
8802: x_msg_data => x_msg_data,
8803: p_adpv_rec => l_adpv_rec);
8804: -- check return status
8805: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8806: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8807: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8808: raise OKL_API.G_EXCEPTION_ERROR;
8809: End If;
8802: x_msg_data => x_msg_data,
8803: p_adpv_rec => l_adpv_rec);
8804: -- check return status
8805: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8806: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8807: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8808: raise OKL_API.G_EXCEPTION_ERROR;
8809: End If;
8810: End If;
8803: p_adpv_rec => l_adpv_rec);
8804: -- check return status
8805: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8806: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8807: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8808: raise OKL_API.G_EXCEPTION_ERROR;
8809: End If;
8810: End If;
8811: Close l_get_txd_crs;
8804: -- check return status
8805: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8806: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8807: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8808: raise OKL_API.G_EXCEPTION_ERROR;
8809: End If;
8810: End If;
8811: Close l_get_txd_crs;
8812: --delete txl record
8818: x_msg_count => x_msg_count,
8819: x_msg_data => x_msg_data,
8820: p_tlpv_rec => l_tlpv_rec);
8821: -- check return status
8822: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8823: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8824: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8825: raise OKL_API.G_EXCEPTION_ERROR;
8826: End If;
8819: x_msg_data => x_msg_data,
8820: p_tlpv_rec => l_tlpv_rec);
8821: -- check return status
8822: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8823: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8824: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8825: raise OKL_API.G_EXCEPTION_ERROR;
8826: End If;
8827:
8820: p_tlpv_rec => l_tlpv_rec);
8821: -- check return status
8822: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8823: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8824: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8825: raise OKL_API.G_EXCEPTION_ERROR;
8826: End If;
8827:
8828: --delete tas_record
8821: -- check return status
8822: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8823: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8824: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8825: raise OKL_API.G_EXCEPTION_ERROR;
8826: End If;
8827:
8828: --delete tas_record
8829: l_thpv_rec.id := l_tas_id;
8834: x_msg_count => x_msg_count,
8835: x_msg_data => x_msg_data,
8836: p_thpv_rec => l_thpv_rec);
8837: -- check return status
8838: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8839: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8840: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8841: raise OKL_API.G_EXCEPTION_ERROR;
8842: End If;
8835: x_msg_data => x_msg_data,
8836: p_thpv_rec => l_thpv_rec);
8837: -- check return status
8838: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8839: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8840: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8841: raise OKL_API.G_EXCEPTION_ERROR;
8842: End If;
8843: End If;
8836: p_thpv_rec => l_thpv_rec);
8837: -- check return status
8838: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8839: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8840: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8841: raise OKL_API.G_EXCEPTION_ERROR;
8842: End If;
8843: End If;
8844: Close l_get_txl_crs;
8837: -- check return status
8838: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8839: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8840: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8841: raise OKL_API.G_EXCEPTION_ERROR;
8842: End If;
8843: End If;
8844: Close l_get_txl_crs;
8845:
8861: x_msg_count => x_msg_count,
8862: x_msg_data => x_msg_data,
8863: p_iipv_rec => l_iipv_rec);
8864: -- check return status
8865: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8866: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8867: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8868: raise OKL_API.G_EXCEPTION_ERROR;
8869: End If;
8862: x_msg_data => x_msg_data,
8863: p_iipv_rec => l_iipv_rec);
8864: -- check return status
8865: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8866: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8867: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8868: raise OKL_API.G_EXCEPTION_ERROR;
8869: End If;
8870:
8863: p_iipv_rec => l_iipv_rec);
8864: -- check return status
8865: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8866: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8867: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8868: raise OKL_API.G_EXCEPTION_ERROR;
8869: End If;
8870:
8871: --delete tas_record
8864: -- check return status
8865: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8866: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8867: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8868: raise OKL_API.G_EXCEPTION_ERROR;
8869: End If;
8870:
8871: --delete tas_record
8872: l_iti_thpv_rec.id := l_iti_tas_id;
8877: x_msg_count => x_msg_count,
8878: x_msg_data => x_msg_data,
8879: p_thpv_rec => l_iti_thpv_rec);
8880: -- check return status
8881: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8882: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8883: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8884: raise OKL_API.G_EXCEPTION_ERROR;
8885: End If;
8878: x_msg_data => x_msg_data,
8879: p_thpv_rec => l_iti_thpv_rec);
8880: -- check return status
8881: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8882: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8883: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8884: raise OKL_API.G_EXCEPTION_ERROR;
8885: End If;
8886:
8879: p_thpv_rec => l_iti_thpv_rec);
8880: -- check return status
8881: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8882: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8883: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8884: raise OKL_API.G_EXCEPTION_ERROR;
8885: End If;
8886:
8887: End If;
8880: -- check return status
8881: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8882: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8883: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8884: raise OKL_API.G_EXCEPTION_ERROR;
8885: End If;
8886:
8887: End If;
8888: Close l_get_iti_csr;
8910: x_msg_count => x_msg_count,
8911: x_msg_data => x_msg_data,
8912: p_sidv_tbl => l_sidv_tbl);
8913:
8914: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8915: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8916: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8917: raise OKL_API.G_EXCEPTION_ERROR;
8918: End If;
8911: x_msg_data => x_msg_data,
8912: p_sidv_tbl => l_sidv_tbl);
8913:
8914: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8915: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8916: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8917: raise OKL_API.G_EXCEPTION_ERROR;
8918: End If;
8919:
8912: p_sidv_tbl => l_sidv_tbl);
8913:
8914: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8915: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8916: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8917: raise OKL_API.G_EXCEPTION_ERROR;
8918: End If;
8919:
8920: l_sidv_tbl.DELETE;
8913:
8914: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8915: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8916: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8917: raise OKL_API.G_EXCEPTION_ERROR;
8918: End If;
8919:
8920: l_sidv_tbl.DELETE;
8921:
8932: x_msg_count => x_msg_count,
8933: x_msg_data => x_msg_data,
8934: p_klev_tbl => l_klev_tbl_in);
8935:
8936: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8937: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8938: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8939: raise OKL_API.G_EXCEPTION_ERROR;
8940: End If;
8933: x_msg_data => x_msg_data,
8934: p_klev_tbl => l_klev_tbl_in);
8935:
8936: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8937: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8938: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8939: raise OKL_API.G_EXCEPTION_ERROR;
8940: End If;
8941:
8934: p_klev_tbl => l_klev_tbl_in);
8935:
8936: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8937: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8938: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8939: raise OKL_API.G_EXCEPTION_ERROR;
8940: End If;
8941:
8942: Elsif l_deletion_type = 'N' Then-- not allowed will not come here as this situation will raise error
8935:
8936: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8937: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8938: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8939: raise OKL_API.G_EXCEPTION_ERROR;
8940: End If;
8941:
8942: Elsif l_deletion_type = 'N' Then-- not allowed will not come here as this situation will raise error
8943: Null;
8950: -- raise business event for delete of asset line
8951: IF(l_lty_code = 'FREE_FORM1')THEN
8952: -- raise business event only if the context contract is a lease contract
8953: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_dnz_chr_id);
8954: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
8955: -- raise the business event for create asset, if line style code is FREE_FORM1
8956: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_dnz_chr_id,l_parameter_list);
8957: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_line_id,l_parameter_list);
8958: l_business_event_name := G_WF_EVT_ASSET_REMOVED;
8958: l_business_event_name := G_WF_EVT_ASSET_REMOVED;
8959: END IF;
8960: END IF;
8961:
8962: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN
8963: raise_business_event(p_api_version => p_api_version,
8964: p_init_msg_list => p_init_msg_list,
8965: x_return_status => x_return_status,
8966: x_msg_count => x_msg_count,
8966: x_msg_count => x_msg_count,
8967: x_msg_data => x_msg_data,
8968: p_event_name => l_business_event_name,
8969: p_parameter_list => l_parameter_list);
8970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8973: RAISE OKL_API.G_EXCEPTION_ERROR;
8974: END IF;
8967: x_msg_data => x_msg_data,
8968: p_event_name => l_business_event_name,
8969: p_parameter_list => l_parameter_list);
8970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8973: RAISE OKL_API.G_EXCEPTION_ERROR;
8974: END IF;
8975: END IF;
8968: p_event_name => l_business_event_name,
8969: p_parameter_list => l_parameter_list);
8970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8973: RAISE OKL_API.G_EXCEPTION_ERROR;
8974: END IF;
8975: END IF;
8976: /*
8969: p_parameter_list => l_parameter_list);
8970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8973: RAISE OKL_API.G_EXCEPTION_ERROR;
8974: END IF;
8975: END IF;
8976: /*
8977: -- vthiruva, 08/19/2004
8977: -- vthiruva, 08/19/2004
8978: -- END, Code change to enable Business Event
8979: */
8980:
8981: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8982: x_msg_data => x_msg_data);
8983:
8984: EXCEPTION
8985: when OKL_API.G_EXCEPTION_ERROR then
8981: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8982: x_msg_data => x_msg_data);
8983:
8984: EXCEPTION
8985: when OKL_API.G_EXCEPTION_ERROR then
8986: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8987: p_api_name => l_api_name,
8988: p_pkg_name => g_pkg_name,
8989: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8982: x_msg_data => x_msg_data);
8983:
8984: EXCEPTION
8985: when OKL_API.G_EXCEPTION_ERROR then
8986: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8987: p_api_name => l_api_name,
8988: p_pkg_name => g_pkg_name,
8989: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8990: x_msg_count => x_msg_count,
8985: when OKL_API.G_EXCEPTION_ERROR then
8986: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8987: p_api_name => l_api_name,
8988: p_pkg_name => g_pkg_name,
8989: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8990: x_msg_count => x_msg_count,
8991: x_msg_data => x_msg_data,
8992: p_api_type => g_api_type);
8993:
8990: x_msg_count => x_msg_count,
8991: x_msg_data => x_msg_data,
8992: p_api_type => g_api_type);
8993:
8994: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8995: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8996: p_api_name => l_api_name,
8997: p_pkg_name => g_pkg_name,
8998: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8991: x_msg_data => x_msg_data,
8992: p_api_type => g_api_type);
8993:
8994: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8995: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8996: p_api_name => l_api_name,
8997: p_pkg_name => g_pkg_name,
8998: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8999: x_msg_count => x_msg_count,
8994: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8995: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8996: p_api_name => l_api_name,
8997: p_pkg_name => g_pkg_name,
8998: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8999: x_msg_count => x_msg_count,
9000: x_msg_data => x_msg_data,
9001: p_api_type => g_api_type);
9002:
9000: x_msg_data => x_msg_data,
9001: p_api_type => g_api_type);
9002:
9003: when OTHERS then
9004: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9005: p_api_name => l_api_name,
9006: p_pkg_name => g_pkg_name,
9007: p_exc_name => 'OTHERS',
9008: x_msg_count => x_msg_count,
9007: p_exc_name => 'OTHERS',
9008: x_msg_count => x_msg_count,
9009: x_msg_data => x_msg_data,
9010: p_api_type => g_api_type);
9011: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9012:
9013: END delete_contract_line;
9014:
9015: -- Start of comments
9037: l_klev_rec_out klev_rec_type;
9038:
9039: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
9040: l_api_version CONSTANT NUMBER := 1.0;
9041: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9042: BEGIN
9043:
9044: -- call START_ACTIVITY to create savepoint, check compatibility
9045: -- and initialize message list
9042: BEGIN
9043:
9044: -- call START_ACTIVITY to create savepoint, check compatibility
9045: -- and initialize message list
9046: l_return_status := OKL_API.START_ACTIVITY(
9047: p_api_name => l_api_name,
9048: p_pkg_name => g_pkg_name,
9049: p_init_msg_list => p_init_msg_list,
9050: l_api_version => l_api_version,
9052: p_api_type => g_api_type,
9053: x_return_status => x_return_status);
9054:
9055: -- check if activity started successfully
9056: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9057: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9058: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9059: raise OKL_API.G_EXCEPTION_ERROR;
9060: End If;
9053: x_return_status => x_return_status);
9054:
9055: -- check if activity started successfully
9056: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9057: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9058: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9059: raise OKL_API.G_EXCEPTION_ERROR;
9060: End If;
9061:
9054:
9055: -- check if activity started successfully
9056: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9057: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9058: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9059: raise OKL_API.G_EXCEPTION_ERROR;
9060: End If;
9061:
9062: l_klev_rec := p_klev_rec;
9055: -- check if activity started successfully
9056: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9057: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9058: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9059: raise OKL_API.G_EXCEPTION_ERROR;
9060: End If;
9061:
9062: l_klev_rec := p_klev_rec;
9063: l_clev_rec := p_clev_rec;
9070: x_msg_count => x_msg_count,
9071: x_msg_data => x_msg_data,
9072: p_line_id => l_klev_rec.id);
9073:
9074: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9075: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9076: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9077: raise OKL_API.G_EXCEPTION_ERROR;
9078: End If;
9071: x_msg_data => x_msg_data,
9072: p_line_id => l_klev_rec.id);
9073:
9074: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9075: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9076: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9077: raise OKL_API.G_EXCEPTION_ERROR;
9078: End If;
9079:
9072: p_line_id => l_klev_rec.id);
9073:
9074: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9075: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9076: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9077: raise OKL_API.G_EXCEPTION_ERROR;
9078: End If;
9079:
9080: ElsIf p_delete_cascade_yn = 'N' Then
9073:
9074: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9075: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9076: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9077: raise OKL_API.G_EXCEPTION_ERROR;
9078: End If;
9079:
9080: ElsIf p_delete_cascade_yn = 'N' Then
9081: delete_contract_line(p_api_version => p_api_version,
9085: x_msg_data => x_msg_data,
9086: p_clev_rec => l_clev_rec,
9087: p_klev_rec => p_klev_rec);
9088:
9089: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9090: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9091: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9092: raise OKL_API.G_EXCEPTION_ERROR;
9093: End If;
9086: p_clev_rec => l_clev_rec,
9087: p_klev_rec => p_klev_rec);
9088:
9089: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9090: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9091: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9092: raise OKL_API.G_EXCEPTION_ERROR;
9093: End If;
9094: End If;
9087: p_klev_rec => p_klev_rec);
9088:
9089: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9090: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9091: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9092: raise OKL_API.G_EXCEPTION_ERROR;
9093: End If;
9094: End If;
9095:
9088:
9089: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9090: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9091: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9092: raise OKL_API.G_EXCEPTION_ERROR;
9093: End If;
9094: End If;
9095:
9096: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9092: raise OKL_API.G_EXCEPTION_ERROR;
9093: End If;
9094: End If;
9095:
9096: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9097: x_msg_data => x_msg_data);
9098: EXCEPTION
9099: when OKL_API.G_EXCEPTION_ERROR then
9100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9095:
9096: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9097: x_msg_data => x_msg_data);
9098: EXCEPTION
9099: when OKL_API.G_EXCEPTION_ERROR then
9100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9101: p_api_name => l_api_name,
9102: p_pkg_name => g_pkg_name,
9103: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9096: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9097: x_msg_data => x_msg_data);
9098: EXCEPTION
9099: when OKL_API.G_EXCEPTION_ERROR then
9100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9101: p_api_name => l_api_name,
9102: p_pkg_name => g_pkg_name,
9103: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9104: x_msg_count => x_msg_count,
9099: when OKL_API.G_EXCEPTION_ERROR then
9100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9101: p_api_name => l_api_name,
9102: p_pkg_name => g_pkg_name,
9103: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9104: x_msg_count => x_msg_count,
9105: x_msg_data => x_msg_data,
9106: p_api_type => g_api_type);
9107:
9104: x_msg_count => x_msg_count,
9105: x_msg_data => x_msg_data,
9106: p_api_type => g_api_type);
9107:
9108: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9109: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9110: p_api_name => l_api_name,
9111: p_pkg_name => g_pkg_name,
9112: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9105: x_msg_data => x_msg_data,
9106: p_api_type => g_api_type);
9107:
9108: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9109: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9110: p_api_name => l_api_name,
9111: p_pkg_name => g_pkg_name,
9112: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9113: x_msg_count => x_msg_count,
9108: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9109: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9110: p_api_name => l_api_name,
9111: p_pkg_name => g_pkg_name,
9112: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9113: x_msg_count => x_msg_count,
9114: x_msg_data => x_msg_data,
9115: p_api_type => g_api_type);
9116:
9114: x_msg_data => x_msg_data,
9115: p_api_type => g_api_type);
9116:
9117: when OTHERS then
9118: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9119: p_api_name => l_api_name,
9120: p_pkg_name => g_pkg_name,
9121: p_exc_name => 'OTHERS',
9122: x_msg_count => x_msg_count,
9144: p_delete_cascade_yn IN varchar2) IS
9145:
9146: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
9147: l_api_version CONSTANT NUMBER := 1.0;
9148: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9149: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9150: i NUMBER;
9151: l_klev_tbl klev_tbl_type := p_klev_tbl;
9152: BEGIN
9145:
9146: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
9147: l_api_version CONSTANT NUMBER := 1.0;
9148: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9149: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9150: i NUMBER;
9151: l_klev_tbl klev_tbl_type := p_klev_tbl;
9152: BEGIN
9153: -- call START_ACTIVITY to create savepoint, check compatibility
9151: l_klev_tbl klev_tbl_type := p_klev_tbl;
9152: BEGIN
9153: -- call START_ACTIVITY to create savepoint, check compatibility
9154: -- and initialize message list
9155: l_return_status := OKL_API.START_ACTIVITY(
9156: p_api_name => l_api_name,
9157: p_pkg_name => g_pkg_name,
9158: p_init_msg_list => p_init_msg_list,
9159: l_api_version => l_api_version,
9161: p_api_type => g_api_type,
9162: x_return_status => x_return_status);
9163:
9164: -- check if activity started successfully
9165: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9166: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9167: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9168: raise OKL_API.G_EXCEPTION_ERROR;
9169: End If;
9162: x_return_status => x_return_status);
9163:
9164: -- check if activity started successfully
9165: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9166: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9167: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9168: raise OKL_API.G_EXCEPTION_ERROR;
9169: End If;
9170:
9163:
9164: -- check if activity started successfully
9165: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9166: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9167: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9168: raise OKL_API.G_EXCEPTION_ERROR;
9169: End If;
9170:
9171: If (p_clev_tbl.COUNT > 0) Then
9164: -- check if activity started successfully
9165: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9166: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9167: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9168: raise OKL_API.G_EXCEPTION_ERROR;
9169: End If;
9170:
9171: If (p_clev_tbl.COUNT > 0) Then
9172: i := p_clev_tbl.FIRST;
9181: p_clev_rec => p_clev_tbl(i),
9182: p_klev_rec => l_klev_tbl(i),
9183: p_delete_cascade_yn => p_delete_cascade_yn);
9184:
9185: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9186: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9187: l_overall_status := x_return_status;
9188: End If;
9189: End If;
9182: p_klev_rec => l_klev_tbl(i),
9183: p_delete_cascade_yn => p_delete_cascade_yn);
9184:
9185: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9186: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9187: l_overall_status := x_return_status;
9188: End If;
9189: End If;
9190:
9195: -- return overall status
9196: x_return_status := l_overall_status;
9197: End If;
9198:
9199: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9200: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9201: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9202: raise OKL_API.G_EXCEPTION_ERROR;
9203: End If;
9196: x_return_status := l_overall_status;
9197: End If;
9198:
9199: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9200: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9201: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9202: raise OKL_API.G_EXCEPTION_ERROR;
9203: End If;
9204:
9197: End If;
9198:
9199: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9200: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9201: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9202: raise OKL_API.G_EXCEPTION_ERROR;
9203: End If;
9204:
9205: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9198:
9199: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9200: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9201: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9202: raise OKL_API.G_EXCEPTION_ERROR;
9203: End If;
9204:
9205: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9206: x_msg_data => x_msg_data);
9201: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9202: raise OKL_API.G_EXCEPTION_ERROR;
9203: End If;
9204:
9205: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9206: x_msg_data => x_msg_data);
9207: EXCEPTION
9208: when OKL_API.G_EXCEPTION_ERROR then
9209: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9204:
9205: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9206: x_msg_data => x_msg_data);
9207: EXCEPTION
9208: when OKL_API.G_EXCEPTION_ERROR then
9209: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9210: p_api_name => l_api_name,
9211: p_pkg_name => g_pkg_name,
9212: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9205: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9206: x_msg_data => x_msg_data);
9207: EXCEPTION
9208: when OKL_API.G_EXCEPTION_ERROR then
9209: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9210: p_api_name => l_api_name,
9211: p_pkg_name => g_pkg_name,
9212: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9213: x_msg_count => x_msg_count,
9208: when OKL_API.G_EXCEPTION_ERROR then
9209: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9210: p_api_name => l_api_name,
9211: p_pkg_name => g_pkg_name,
9212: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9213: x_msg_count => x_msg_count,
9214: x_msg_data => x_msg_data,
9215: p_api_type => g_api_type);
9216:
9213: x_msg_count => x_msg_count,
9214: x_msg_data => x_msg_data,
9215: p_api_type => g_api_type);
9216:
9217: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9219: p_api_name => l_api_name,
9220: p_pkg_name => g_pkg_name,
9221: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9214: x_msg_data => x_msg_data,
9215: p_api_type => g_api_type);
9216:
9217: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9219: p_api_name => l_api_name,
9220: p_pkg_name => g_pkg_name,
9221: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9222: x_msg_count => x_msg_count,
9217: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9219: p_api_name => l_api_name,
9220: p_pkg_name => g_pkg_name,
9221: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9222: x_msg_count => x_msg_count,
9223: x_msg_data => x_msg_data,
9224: p_api_type => g_api_type);
9225:
9223: x_msg_data => x_msg_data,
9224: p_api_type => g_api_type);
9225:
9226: when OTHERS then
9227: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9228: p_api_name => l_api_name,
9229: p_pkg_name => g_pkg_name,
9230: p_exc_name => 'OTHERS',
9231: x_msg_count => x_msg_count,
9255: l_klev_rec klev_rec_type;
9256:
9257: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_LINE';
9258: l_api_version CONSTANT NUMBER := 1.0;
9259: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9260: BEGIN
9261:
9262: -- call START_ACTIVITY to create savepoint, check compatibility
9263: -- and initialize message list
9260: BEGIN
9261:
9262: -- call START_ACTIVITY to create savepoint, check compatibility
9263: -- and initialize message list
9264: l_return_status := OKL_API.START_ACTIVITY(
9265: p_api_name => l_api_name,
9266: p_pkg_name => g_pkg_name,
9267: p_init_msg_list => p_init_msg_list,
9268: l_api_version => l_api_version,
9270: p_api_type => g_api_type,
9271: x_return_status => x_return_status);
9272:
9273: -- check if activity started successfully
9274: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9275: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9276: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9277: raise OKL_API.G_EXCEPTION_ERROR;
9278: End If;
9271: x_return_status => x_return_status);
9272:
9273: -- check if activity started successfully
9274: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9275: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9276: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9277: raise OKL_API.G_EXCEPTION_ERROR;
9278: End If;
9279:
9272:
9273: -- check if activity started successfully
9274: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9275: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9276: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9277: raise OKL_API.G_EXCEPTION_ERROR;
9278: End If;
9279:
9280: l_klev_rec := p_klev_rec;
9273: -- check if activity started successfully
9274: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9275: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9276: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9277: raise OKL_API.G_EXCEPTION_ERROR;
9278: End If;
9279:
9280: l_klev_rec := p_klev_rec;
9281: l_clev_rec := p_clev_rec;
9291: x_msg_data => x_msg_data,
9292: p_clev_rec => l_clev_rec);
9293:
9294: -- check return status
9295: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9296: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9297: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9298: raise OKL_API.G_EXCEPTION_ERROR;
9299: End If;
9292: p_clev_rec => l_clev_rec);
9293:
9294: -- check return status
9295: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9296: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9297: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9298: raise OKL_API.G_EXCEPTION_ERROR;
9299: End If;
9300:
9293:
9294: -- check return status
9295: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9296: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9297: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9298: raise OKL_API.G_EXCEPTION_ERROR;
9299: End If;
9300:
9301: -- get id from OKC record
9294: -- check return status
9295: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9296: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9297: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9298: raise OKL_API.G_EXCEPTION_ERROR;
9299: End If;
9300:
9301: -- get id from OKC record
9302: l_klev_rec.ID := l_clev_rec.ID;
9309: x_msg_count => x_msg_count,
9310: x_msg_data => x_msg_data,
9311: p_klev_rec => l_klev_rec);
9312:
9313: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9315: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9316: raise OKL_API.G_EXCEPTION_ERROR;
9317: End If;
9310: x_msg_data => x_msg_data,
9311: p_klev_rec => l_klev_rec);
9312:
9313: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9315: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9316: raise OKL_API.G_EXCEPTION_ERROR;
9317: End If;
9318:
9311: p_klev_rec => l_klev_rec);
9312:
9313: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9315: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9316: raise OKL_API.G_EXCEPTION_ERROR;
9317: End If;
9318:
9319: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9312:
9313: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9315: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9316: raise OKL_API.G_EXCEPTION_ERROR;
9317: End If;
9318:
9319: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9320: x_msg_data => x_msg_data);
9315: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9316: raise OKL_API.G_EXCEPTION_ERROR;
9317: End If;
9318:
9319: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9320: x_msg_data => x_msg_data);
9321: EXCEPTION
9322: when OKL_API.G_EXCEPTION_ERROR then
9323: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9318:
9319: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9320: x_msg_data => x_msg_data);
9321: EXCEPTION
9322: when OKL_API.G_EXCEPTION_ERROR then
9323: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9324: p_api_name => l_api_name,
9325: p_pkg_name => g_pkg_name,
9326: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9319: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9320: x_msg_data => x_msg_data);
9321: EXCEPTION
9322: when OKL_API.G_EXCEPTION_ERROR then
9323: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9324: p_api_name => l_api_name,
9325: p_pkg_name => g_pkg_name,
9326: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9327: x_msg_count => x_msg_count,
9322: when OKL_API.G_EXCEPTION_ERROR then
9323: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9324: p_api_name => l_api_name,
9325: p_pkg_name => g_pkg_name,
9326: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9327: x_msg_count => x_msg_count,
9328: x_msg_data => x_msg_data,
9329: p_api_type => g_api_type);
9330:
9327: x_msg_count => x_msg_count,
9328: x_msg_data => x_msg_data,
9329: p_api_type => g_api_type);
9330:
9331: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9332: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9333: p_api_name => l_api_name,
9334: p_pkg_name => g_pkg_name,
9335: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9328: x_msg_data => x_msg_data,
9329: p_api_type => g_api_type);
9330:
9331: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9332: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9333: p_api_name => l_api_name,
9334: p_pkg_name => g_pkg_name,
9335: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9336: x_msg_count => x_msg_count,
9331: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9332: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9333: p_api_name => l_api_name,
9334: p_pkg_name => g_pkg_name,
9335: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9336: x_msg_count => x_msg_count,
9337: x_msg_data => x_msg_data,
9338: p_api_type => g_api_type);
9339:
9337: x_msg_data => x_msg_data,
9338: p_api_type => g_api_type);
9339:
9340: when OTHERS then
9341: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9342: p_api_name => l_api_name,
9343: p_pkg_name => g_pkg_name,
9344: p_exc_name => 'OTHERS',
9345: x_msg_count => x_msg_count,
9366: p_klev_tbl IN klev_tbl_type) IS
9367:
9368: l_api_name CONSTANT VARCHAR2(30) := 'lock_CONTRACT_LINE';
9369: l_api_version CONSTANT NUMBER := 1.0;
9370: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9371: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9372: i NUMBER;
9373: l_klev_tbl klev_tbl_type := p_klev_tbl;
9374: BEGIN
9367:
9368: l_api_name CONSTANT VARCHAR2(30) := 'lock_CONTRACT_LINE';
9369: l_api_version CONSTANT NUMBER := 1.0;
9370: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9371: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9372: i NUMBER;
9373: l_klev_tbl klev_tbl_type := p_klev_tbl;
9374: BEGIN
9375: -- call START_ACTIVITY to create savepoint, check compatibility
9373: l_klev_tbl klev_tbl_type := p_klev_tbl;
9374: BEGIN
9375: -- call START_ACTIVITY to create savepoint, check compatibility
9376: -- and initialize message list
9377: l_return_status := OKL_API.START_ACTIVITY(
9378: p_api_name => l_api_name,
9379: p_pkg_name => g_pkg_name,
9380: p_init_msg_list => p_init_msg_list,
9381: l_api_version => l_api_version,
9383: p_api_type => g_api_type,
9384: x_return_status => x_return_status);
9385:
9386: -- check if activity started successfully
9387: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9388: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9389: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9390: raise OKL_API.G_EXCEPTION_ERROR;
9391: End If;
9384: x_return_status => x_return_status);
9385:
9386: -- check if activity started successfully
9387: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9388: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9389: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9390: raise OKL_API.G_EXCEPTION_ERROR;
9391: End If;
9392:
9385:
9386: -- check if activity started successfully
9387: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9388: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9389: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9390: raise OKL_API.G_EXCEPTION_ERROR;
9391: End If;
9392:
9393: If (p_clev_tbl.COUNT > 0) Then
9386: -- check if activity started successfully
9387: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9388: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9389: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9390: raise OKL_API.G_EXCEPTION_ERROR;
9391: End If;
9392:
9393: If (p_clev_tbl.COUNT > 0) Then
9394: i := p_clev_tbl.FIRST;
9402: x_msg_data => x_msg_data,
9403: p_clev_rec => p_clev_tbl(i),
9404: p_klev_rec => l_klev_tbl(i));
9405:
9406: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9407: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9408: l_overall_status := x_return_status;
9409: End If;
9410: End If;
9403: p_clev_rec => p_clev_tbl(i),
9404: p_klev_rec => l_klev_tbl(i));
9405:
9406: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9407: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9408: l_overall_status := x_return_status;
9409: End If;
9410: End If;
9411:
9416: -- return overall status
9417: x_return_status := l_overall_status;
9418: End If;
9419:
9420: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9421: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9422: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9423: raise OKL_API.G_EXCEPTION_ERROR;
9424: End If;
9417: x_return_status := l_overall_status;
9418: End If;
9419:
9420: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9421: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9422: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9423: raise OKL_API.G_EXCEPTION_ERROR;
9424: End If;
9425:
9418: End If;
9419:
9420: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9421: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9422: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9423: raise OKL_API.G_EXCEPTION_ERROR;
9424: End If;
9425:
9426: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9419:
9420: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9421: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9422: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9423: raise OKL_API.G_EXCEPTION_ERROR;
9424: End If;
9425:
9426: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9427: x_msg_data => x_msg_data);
9422: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9423: raise OKL_API.G_EXCEPTION_ERROR;
9424: End If;
9425:
9426: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9427: x_msg_data => x_msg_data);
9428: EXCEPTION
9429: when OKL_API.G_EXCEPTION_ERROR then
9430: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9425:
9426: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9427: x_msg_data => x_msg_data);
9428: EXCEPTION
9429: when OKL_API.G_EXCEPTION_ERROR then
9430: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9431: p_api_name => l_api_name,
9432: p_pkg_name => g_pkg_name,
9433: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9426: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9427: x_msg_data => x_msg_data);
9428: EXCEPTION
9429: when OKL_API.G_EXCEPTION_ERROR then
9430: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9431: p_api_name => l_api_name,
9432: p_pkg_name => g_pkg_name,
9433: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9434: x_msg_count => x_msg_count,
9429: when OKL_API.G_EXCEPTION_ERROR then
9430: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9431: p_api_name => l_api_name,
9432: p_pkg_name => g_pkg_name,
9433: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9434: x_msg_count => x_msg_count,
9435: x_msg_data => x_msg_data,
9436: p_api_type => g_api_type);
9437:
9434: x_msg_count => x_msg_count,
9435: x_msg_data => x_msg_data,
9436: p_api_type => g_api_type);
9437:
9438: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9439: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9440: p_api_name => l_api_name,
9441: p_pkg_name => g_pkg_name,
9442: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9435: x_msg_data => x_msg_data,
9436: p_api_type => g_api_type);
9437:
9438: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9439: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9440: p_api_name => l_api_name,
9441: p_pkg_name => g_pkg_name,
9442: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9443: x_msg_count => x_msg_count,
9438: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9439: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9440: p_api_name => l_api_name,
9441: p_pkg_name => g_pkg_name,
9442: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9443: x_msg_count => x_msg_count,
9444: x_msg_data => x_msg_data,
9445: p_api_type => g_api_type);
9446:
9444: x_msg_data => x_msg_data,
9445: p_api_type => g_api_type);
9446:
9447: when OTHERS then
9448: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9449: p_api_name => l_api_name,
9450: p_pkg_name => g_pkg_name,
9451: p_exc_name => 'OTHERS',
9452: x_msg_count => x_msg_count,
9477: l_klev_rec klev_rec_type;
9478:
9479: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_LINE';
9480: l_api_version CONSTANT NUMBER := 1.0;
9481: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9482: BEGIN
9483:
9484: -- call START_ACTIVITY to create savepoint, check compatibility
9485: -- and initialize message list
9482: BEGIN
9483:
9484: -- call START_ACTIVITY to create savepoint, check compatibility
9485: -- and initialize message list
9486: l_return_status := OKL_API.START_ACTIVITY(
9487: p_api_name => l_api_name,
9488: p_pkg_name => g_pkg_name,
9489: p_init_msg_list => p_init_msg_list,
9490: l_api_version => l_api_version,
9492: p_api_type => g_api_type,
9493: x_return_status => x_return_status);
9494:
9495: -- check if activity started successfully
9496: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9497: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9498: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9499: raise OKL_API.G_EXCEPTION_ERROR;
9500: End If;
9493: x_return_status => x_return_status);
9494:
9495: -- check if activity started successfully
9496: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9497: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9498: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9499: raise OKL_API.G_EXCEPTION_ERROR;
9500: End If;
9501:
9494:
9495: -- check if activity started successfully
9496: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9497: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9498: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9499: raise OKL_API.G_EXCEPTION_ERROR;
9500: End If;
9501:
9502: l_klev_rec := p_klev_rec;
9495: -- check if activity started successfully
9496: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9497: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9498: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9499: raise OKL_API.G_EXCEPTION_ERROR;
9500: End If;
9501:
9502: l_klev_rec := p_klev_rec;
9503: l_clev_rec := p_clev_rec;
9513: x_msg_data => x_msg_data,
9514: p_clev_rec => l_clev_rec);
9515:
9516: -- check return status
9517: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9518: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9519: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9520: raise OKL_API.G_EXCEPTION_ERROR;
9521: End If;
9514: p_clev_rec => l_clev_rec);
9515:
9516: -- check return status
9517: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9518: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9519: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9520: raise OKL_API.G_EXCEPTION_ERROR;
9521: End If;
9522:
9515:
9516: -- check return status
9517: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9518: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9519: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9520: raise OKL_API.G_EXCEPTION_ERROR;
9521: End If;
9522:
9523: -- get id from OKC record
9516: -- check return status
9517: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9518: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9519: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9520: raise OKL_API.G_EXCEPTION_ERROR;
9521: End If;
9522:
9523: -- get id from OKC record
9524: l_klev_rec.ID := l_clev_rec.ID;
9531: x_msg_count => x_msg_count,
9532: x_msg_data => x_msg_data,
9533: p_klev_rec => l_klev_rec);
9534:
9535: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9536: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9537: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9538: raise OKL_API.G_EXCEPTION_ERROR;
9539: End If;
9532: x_msg_data => x_msg_data,
9533: p_klev_rec => l_klev_rec);
9534:
9535: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9536: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9537: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9538: raise OKL_API.G_EXCEPTION_ERROR;
9539: End If;
9540:
9533: p_klev_rec => l_klev_rec);
9534:
9535: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9536: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9537: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9538: raise OKL_API.G_EXCEPTION_ERROR;
9539: End If;
9540:
9541: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9534:
9535: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9536: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9537: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9538: raise OKL_API.G_EXCEPTION_ERROR;
9539: End If;
9540:
9541: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9542: x_msg_data => x_msg_data);
9537: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9538: raise OKL_API.G_EXCEPTION_ERROR;
9539: End If;
9540:
9541: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9542: x_msg_data => x_msg_data);
9543: EXCEPTION
9544: when OKL_API.G_EXCEPTION_ERROR then
9545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9540:
9541: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9542: x_msg_data => x_msg_data);
9543: EXCEPTION
9544: when OKL_API.G_EXCEPTION_ERROR then
9545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9546: p_api_name => l_api_name,
9547: p_pkg_name => g_pkg_name,
9548: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9541: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9542: x_msg_data => x_msg_data);
9543: EXCEPTION
9544: when OKL_API.G_EXCEPTION_ERROR then
9545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9546: p_api_name => l_api_name,
9547: p_pkg_name => g_pkg_name,
9548: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9549: x_msg_count => x_msg_count,
9544: when OKL_API.G_EXCEPTION_ERROR then
9545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9546: p_api_name => l_api_name,
9547: p_pkg_name => g_pkg_name,
9548: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9549: x_msg_count => x_msg_count,
9550: x_msg_data => x_msg_data,
9551: p_api_type => g_api_type);
9552:
9549: x_msg_count => x_msg_count,
9550: x_msg_data => x_msg_data,
9551: p_api_type => g_api_type);
9552:
9553: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9554: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9555: p_api_name => l_api_name,
9556: p_pkg_name => g_pkg_name,
9557: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9550: x_msg_data => x_msg_data,
9551: p_api_type => g_api_type);
9552:
9553: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9554: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9555: p_api_name => l_api_name,
9556: p_pkg_name => g_pkg_name,
9557: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9558: x_msg_count => x_msg_count,
9553: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9554: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9555: p_api_name => l_api_name,
9556: p_pkg_name => g_pkg_name,
9557: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9558: x_msg_count => x_msg_count,
9559: x_msg_data => x_msg_data,
9560: p_api_type => g_api_type);
9561:
9559: x_msg_data => x_msg_data,
9560: p_api_type => g_api_type);
9561:
9562: when OTHERS then
9563: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9564: p_api_name => l_api_name,
9565: p_pkg_name => g_pkg_name,
9566: p_exc_name => 'OTHERS',
9567: x_msg_count => x_msg_count,
9588: p_klev_tbl IN klev_tbl_type) IS
9589:
9590: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_LINE';
9591: l_api_version CONSTANT NUMBER := 1.0;
9592: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9593: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9594: i NUMBER;
9595: l_klev_tbl klev_tbl_type := p_klev_tbl;
9596: BEGIN
9589:
9590: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_LINE';
9591: l_api_version CONSTANT NUMBER := 1.0;
9592: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9593: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9594: i NUMBER;
9595: l_klev_tbl klev_tbl_type := p_klev_tbl;
9596: BEGIN
9597: -- call START_ACTIVITY to create savepoint, check compatibility
9595: l_klev_tbl klev_tbl_type := p_klev_tbl;
9596: BEGIN
9597: -- call START_ACTIVITY to create savepoint, check compatibility
9598: -- and initialize message list
9599: l_return_status := OKL_API.START_ACTIVITY(
9600: p_api_name => l_api_name,
9601: p_pkg_name => g_pkg_name,
9602: p_init_msg_list => p_init_msg_list,
9603: l_api_version => l_api_version,
9605: p_api_type => g_api_type,
9606: x_return_status => x_return_status);
9607:
9608: -- check if activity started successfully
9609: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9610: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9611: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9612: raise OKL_API.G_EXCEPTION_ERROR;
9613: End If;
9606: x_return_status => x_return_status);
9607:
9608: -- check if activity started successfully
9609: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9610: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9611: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9612: raise OKL_API.G_EXCEPTION_ERROR;
9613: End If;
9614:
9607:
9608: -- check if activity started successfully
9609: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9610: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9611: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9612: raise OKL_API.G_EXCEPTION_ERROR;
9613: End If;
9614:
9615: If (p_clev_tbl.COUNT > 0) Then
9608: -- check if activity started successfully
9609: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9610: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9611: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9612: raise OKL_API.G_EXCEPTION_ERROR;
9613: End If;
9614:
9615: If (p_clev_tbl.COUNT > 0) Then
9616: i := p_clev_tbl.FIRST;
9624: x_msg_data => x_msg_data,
9625: p_clev_rec => p_clev_tbl(i),
9626: p_klev_rec => l_klev_tbl(i));
9627:
9628: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9629: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9630: l_overall_status := x_return_status;
9631: End If;
9632: End If;
9625: p_clev_rec => p_clev_tbl(i),
9626: p_klev_rec => l_klev_tbl(i));
9627:
9628: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9629: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9630: l_overall_status := x_return_status;
9631: End If;
9632: End If;
9633:
9638: -- return overall status
9639: x_return_status := l_overall_status;
9640: End If;
9641:
9642: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9643: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9644: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9645: raise OKL_API.G_EXCEPTION_ERROR;
9646: End If;
9639: x_return_status := l_overall_status;
9640: End If;
9641:
9642: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9643: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9644: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9645: raise OKL_API.G_EXCEPTION_ERROR;
9646: End If;
9647:
9640: End If;
9641:
9642: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9643: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9644: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9645: raise OKL_API.G_EXCEPTION_ERROR;
9646: End If;
9647:
9648: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9641:
9642: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9643: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9644: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9645: raise OKL_API.G_EXCEPTION_ERROR;
9646: End If;
9647:
9648: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9649: x_msg_data => x_msg_data);
9644: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9645: raise OKL_API.G_EXCEPTION_ERROR;
9646: End If;
9647:
9648: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9649: x_msg_data => x_msg_data);
9650: EXCEPTION
9651: when OKL_API.G_EXCEPTION_ERROR then
9652: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9647:
9648: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9649: x_msg_data => x_msg_data);
9650: EXCEPTION
9651: when OKL_API.G_EXCEPTION_ERROR then
9652: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9653: p_api_name => l_api_name,
9654: p_pkg_name => g_pkg_name,
9655: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9648: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9649: x_msg_data => x_msg_data);
9650: EXCEPTION
9651: when OKL_API.G_EXCEPTION_ERROR then
9652: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9653: p_api_name => l_api_name,
9654: p_pkg_name => g_pkg_name,
9655: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9656: x_msg_count => x_msg_count,
9651: when OKL_API.G_EXCEPTION_ERROR then
9652: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9653: p_api_name => l_api_name,
9654: p_pkg_name => g_pkg_name,
9655: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9656: x_msg_count => x_msg_count,
9657: x_msg_data => x_msg_data,
9658: p_api_type => g_api_type);
9659:
9656: x_msg_count => x_msg_count,
9657: x_msg_data => x_msg_data,
9658: p_api_type => g_api_type);
9659:
9660: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9661: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9662: p_api_name => l_api_name,
9663: p_pkg_name => g_pkg_name,
9664: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9657: x_msg_data => x_msg_data,
9658: p_api_type => g_api_type);
9659:
9660: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9661: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9662: p_api_name => l_api_name,
9663: p_pkg_name => g_pkg_name,
9664: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9665: x_msg_count => x_msg_count,
9660: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9661: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9662: p_api_name => l_api_name,
9663: p_pkg_name => g_pkg_name,
9664: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9665: x_msg_count => x_msg_count,
9666: x_msg_data => x_msg_data,
9667: p_api_type => g_api_type);
9668:
9666: x_msg_data => x_msg_data,
9667: p_api_type => g_api_type);
9668:
9669: when OTHERS then
9670: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9671: p_api_name => l_api_name,
9672: p_pkg_name => g_pkg_name,
9673: p_exc_name => 'OTHERS',
9674: x_msg_count => x_msg_count,
9691: l_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
9692:
9693: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_GOVERNANCE';
9694: l_api_version CONSTANT NUMBER := 1.0;
9695: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9696: BEGIN
9697:
9698: -- call START_ACTIVITY to create savepoint, check compatibility
9699: -- and initialize message list
9699: -- and initialize message list
9700:
9701: --dbms_output.put_line('Start it');
9702:
9703: l_return_status := OKL_API.START_ACTIVITY(
9704: p_api_name => l_api_name,
9705: p_pkg_name => g_pkg_name,
9706: p_init_msg_list => p_init_msg_list,
9707: l_api_version => l_api_version,
9709: p_api_type => g_api_type,
9710: x_return_status => x_return_status);
9711:
9712: -- check if activity started successfully
9713: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9714: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9715: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9716: raise OKL_API.G_EXCEPTION_ERROR;
9717: End If;
9710: x_return_status => x_return_status);
9711:
9712: -- check if activity started successfully
9713: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9714: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9715: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9716: raise OKL_API.G_EXCEPTION_ERROR;
9717: End If;
9718:
9711:
9712: -- check if activity started successfully
9713: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9714: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9715: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9716: raise OKL_API.G_EXCEPTION_ERROR;
9717: End If;
9718:
9719: l_gvev_rec := p_gvev_rec;
9712: -- check if activity started successfully
9713: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9714: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9715: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9716: raise OKL_API.G_EXCEPTION_ERROR;
9717: End If;
9718:
9719: l_gvev_rec := p_gvev_rec;
9720: --
9739: p_gvev_rec => l_gvev_rec,
9740: x_gvev_rec => x_gvev_rec);
9741:
9742: -- check return status
9743: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9744: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9745: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9746: raise OKL_API.G_EXCEPTION_ERROR;
9747: End If;
9740: x_gvev_rec => x_gvev_rec);
9741:
9742: -- check return status
9743: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9744: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9745: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9746: raise OKL_API.G_EXCEPTION_ERROR;
9747: End If;
9748:
9741:
9742: -- check return status
9743: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9744: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9745: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9746: raise OKL_API.G_EXCEPTION_ERROR;
9747: End If;
9748:
9749: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9742: -- check return status
9743: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9744: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9745: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9746: raise OKL_API.G_EXCEPTION_ERROR;
9747: End If;
9748:
9749: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9750: --call API to cascade 'INCOMPLETE' status for lease contracts
9745: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9746: raise OKL_API.G_EXCEPTION_ERROR;
9747: End If;
9748:
9749: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9750: --call API to cascade 'INCOMPLETE' status for lease contracts
9751: okl_contract_status_pub.cascade_lease_status_edit
9752: (p_api_version => p_api_version,
9753: p_init_msg_list => p_init_msg_list,
9755: x_msg_count => x_msg_count,
9756: x_msg_data => x_msg_data,
9757: p_chr_id => x_gvev_rec.dnz_chr_id);
9758:
9759: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9761: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9762: raise OKL_API.G_EXCEPTION_ERROR;
9763: End If;
9756: x_msg_data => x_msg_data,
9757: p_chr_id => x_gvev_rec.dnz_chr_id);
9758:
9759: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9761: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9762: raise OKL_API.G_EXCEPTION_ERROR;
9763: End If;
9764: End If;
9757: p_chr_id => x_gvev_rec.dnz_chr_id);
9758:
9759: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9761: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9762: raise OKL_API.G_EXCEPTION_ERROR;
9763: End If;
9764: End If;
9765:
9758:
9759: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9761: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9762: raise OKL_API.G_EXCEPTION_ERROR;
9763: End If;
9764: End If;
9765:
9766: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9762: raise OKL_API.G_EXCEPTION_ERROR;
9763: End If;
9764: End If;
9765:
9766: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9767: x_msg_data => x_msg_data);
9768: EXCEPTION
9769: when OKL_API.G_EXCEPTION_ERROR then
9770: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9765:
9766: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9767: x_msg_data => x_msg_data);
9768: EXCEPTION
9769: when OKL_API.G_EXCEPTION_ERROR then
9770: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9771: p_api_name => l_api_name,
9772: p_pkg_name => g_pkg_name,
9773: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9766: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9767: x_msg_data => x_msg_data);
9768: EXCEPTION
9769: when OKL_API.G_EXCEPTION_ERROR then
9770: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9771: p_api_name => l_api_name,
9772: p_pkg_name => g_pkg_name,
9773: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9774: x_msg_count => x_msg_count,
9769: when OKL_API.G_EXCEPTION_ERROR then
9770: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9771: p_api_name => l_api_name,
9772: p_pkg_name => g_pkg_name,
9773: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9774: x_msg_count => x_msg_count,
9775: x_msg_data => x_msg_data,
9776: p_api_type => g_api_type);
9777:
9774: x_msg_count => x_msg_count,
9775: x_msg_data => x_msg_data,
9776: p_api_type => g_api_type);
9777:
9778: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9779: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9780: p_api_name => l_api_name,
9781: p_pkg_name => g_pkg_name,
9782: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9775: x_msg_data => x_msg_data,
9776: p_api_type => g_api_type);
9777:
9778: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9779: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9780: p_api_name => l_api_name,
9781: p_pkg_name => g_pkg_name,
9782: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9783: x_msg_count => x_msg_count,
9778: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9779: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9780: p_api_name => l_api_name,
9781: p_pkg_name => g_pkg_name,
9782: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9783: x_msg_count => x_msg_count,
9784: x_msg_data => x_msg_data,
9785: p_api_type => g_api_type);
9786:
9784: x_msg_data => x_msg_data,
9785: p_api_type => g_api_type);
9786:
9787: when OTHERS then
9788: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9789: p_api_name => l_api_name,
9790: p_pkg_name => g_pkg_name,
9791: p_exc_name => 'OTHERS',
9792: x_msg_count => x_msg_count,
9813: x_gvev_tbl OUT NOCOPY okl_okc_migration_pvt.gvev_tbl_type) IS
9814:
9815: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_GOVERNANCE';
9816: l_api_version CONSTANT NUMBER := 1.0;
9817: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9818: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9819: i NUMBER;
9820: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
9821: BEGIN
9814:
9815: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_GOVERNANCE';
9816: l_api_version CONSTANT NUMBER := 1.0;
9817: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9818: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9819: i NUMBER;
9820: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
9821: BEGIN
9822: -- call START_ACTIVITY to create savepoint, check compatibility
9820: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
9821: BEGIN
9822: -- call START_ACTIVITY to create savepoint, check compatibility
9823: -- and initialize message list
9824: l_return_status := OKL_API.START_ACTIVITY(
9825: p_api_name => l_api_name,
9826: p_pkg_name => g_pkg_name,
9827: p_init_msg_list => p_init_msg_list,
9828: l_api_version => l_api_version,
9830: p_api_type => g_api_type,
9831: x_return_status => x_return_status);
9832:
9833: -- check if activity started successfully
9834: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9835: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9836: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9837: raise OKL_API.G_EXCEPTION_ERROR;
9838:
9831: x_return_status => x_return_status);
9832:
9833: -- check if activity started successfully
9834: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9835: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9836: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9837: raise OKL_API.G_EXCEPTION_ERROR;
9838:
9839: End If;
9832:
9833: -- check if activity started successfully
9834: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9835: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9836: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9837: raise OKL_API.G_EXCEPTION_ERROR;
9838:
9839: End If;
9840:
9833: -- check if activity started successfully
9834: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9835: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9836: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9837: raise OKL_API.G_EXCEPTION_ERROR;
9838:
9839: End If;
9840:
9841: If (p_gvev_tbl.COUNT > 0) Then
9850: x_msg_data => x_msg_data,
9851: p_gvev_rec => p_gvev_tbl(i),
9852: x_gvev_rec => x_gvev_tbl(i));
9853:
9854: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9855: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9856: l_overall_status := x_return_status;
9857: End If;
9858: End If;
9851: p_gvev_rec => p_gvev_tbl(i),
9852: x_gvev_rec => x_gvev_tbl(i));
9853:
9854: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9855: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9856: l_overall_status := x_return_status;
9857: End If;
9858: End If;
9859:
9864: -- return overall status
9865: x_return_status := l_overall_status;
9866: End If;
9867:
9868: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9869: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9870: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9871: raise OKL_API.G_EXCEPTION_ERROR;
9872: End If;
9865: x_return_status := l_overall_status;
9866: End If;
9867:
9868: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9869: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9870: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9871: raise OKL_API.G_EXCEPTION_ERROR;
9872: End If;
9873:
9866: End If;
9867:
9868: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9869: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9870: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9871: raise OKL_API.G_EXCEPTION_ERROR;
9872: End If;
9873:
9874: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9867:
9868: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9869: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9870: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9871: raise OKL_API.G_EXCEPTION_ERROR;
9872: End If;
9873:
9874: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9875: x_msg_data => x_msg_data);
9870: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9871: raise OKL_API.G_EXCEPTION_ERROR;
9872: End If;
9873:
9874: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9875: x_msg_data => x_msg_data);
9876: EXCEPTION
9877: when OKL_API.G_EXCEPTION_ERROR then
9878: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9873:
9874: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9875: x_msg_data => x_msg_data);
9876: EXCEPTION
9877: when OKL_API.G_EXCEPTION_ERROR then
9878: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9879: p_api_name => l_api_name,
9880: p_pkg_name => g_pkg_name,
9881: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9874: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9875: x_msg_data => x_msg_data);
9876: EXCEPTION
9877: when OKL_API.G_EXCEPTION_ERROR then
9878: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9879: p_api_name => l_api_name,
9880: p_pkg_name => g_pkg_name,
9881: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9882: x_msg_count => x_msg_count,
9877: when OKL_API.G_EXCEPTION_ERROR then
9878: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9879: p_api_name => l_api_name,
9880: p_pkg_name => g_pkg_name,
9881: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9882: x_msg_count => x_msg_count,
9883: x_msg_data => x_msg_data,
9884: p_api_type => g_api_type);
9885:
9882: x_msg_count => x_msg_count,
9883: x_msg_data => x_msg_data,
9884: p_api_type => g_api_type);
9885:
9886: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9887: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9888: p_api_name => l_api_name,
9889: p_pkg_name => g_pkg_name,
9890: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9883: x_msg_data => x_msg_data,
9884: p_api_type => g_api_type);
9885:
9886: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9887: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9888: p_api_name => l_api_name,
9889: p_pkg_name => g_pkg_name,
9890: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9891: x_msg_count => x_msg_count,
9886: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9887: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9888: p_api_name => l_api_name,
9889: p_pkg_name => g_pkg_name,
9890: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9891: x_msg_count => x_msg_count,
9892: x_msg_data => x_msg_data,
9893: p_api_type => g_api_type);
9894:
9892: x_msg_data => x_msg_data,
9893: p_api_type => g_api_type);
9894:
9895: when OTHERS then
9896: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9897: p_api_name => l_api_name,
9898: p_pkg_name => g_pkg_name,
9899: p_exc_name => 'OTHERS',
9900: x_msg_count => x_msg_count,
9923: l_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
9924:
9925: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
9926: l_api_version CONSTANT NUMBER := 1.0;
9927: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9928:
9929: BEGIN
9930:
9931: -- call START_ACTIVITY to create savepoint, check compatibility
9929: BEGIN
9930:
9931: -- call START_ACTIVITY to create savepoint, check compatibility
9932: -- and initialize message list
9933: l_return_status := OKL_API.START_ACTIVITY(
9934: p_api_name => l_api_name,
9935: p_pkg_name => g_pkg_name,
9936: p_init_msg_list => p_init_msg_list,
9937: l_api_version => l_api_version,
9939: p_api_type => g_api_type,
9940: x_return_status => x_return_status);
9941:
9942: -- check if activity started successfully
9943: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9944: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9945: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9946: raise OKL_API.G_EXCEPTION_ERROR;
9947: End If;
9940: x_return_status => x_return_status);
9941:
9942: -- check if activity started successfully
9943: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9944: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9945: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9946: raise OKL_API.G_EXCEPTION_ERROR;
9947: End If;
9948:
9941:
9942: -- check if activity started successfully
9943: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9944: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9945: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9946: raise OKL_API.G_EXCEPTION_ERROR;
9947: End If;
9948:
9949: l_gvev_rec := p_gvev_rec;
9942: -- check if activity started successfully
9943: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9944: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9945: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9946: raise OKL_API.G_EXCEPTION_ERROR;
9947: End If;
9948:
9949: l_gvev_rec := p_gvev_rec;
9950:
9967: p_gvev_rec => l_gvev_rec,
9968: x_gvev_rec => x_gvev_rec);
9969:
9970: -- check return status
9971: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9972: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9973: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9974: raise OKL_API.G_EXCEPTION_ERROR;
9975: End If;
9968: x_gvev_rec => x_gvev_rec);
9969:
9970: -- check return status
9971: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9972: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9973: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9974: raise OKL_API.G_EXCEPTION_ERROR;
9975: End If;
9976:
9969:
9970: -- check return status
9971: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9972: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9973: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9974: raise OKL_API.G_EXCEPTION_ERROR;
9975: End If;
9976:
9977: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9970: -- check return status
9971: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9972: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9973: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9974: raise OKL_API.G_EXCEPTION_ERROR;
9975: End If;
9976:
9977: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9978: --call API to cascade 'INCOMPLETE' status for lease contracts
9973: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9974: raise OKL_API.G_EXCEPTION_ERROR;
9975: End If;
9976:
9977: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9978: --call API to cascade 'INCOMPLETE' status for lease contracts
9979: okl_contract_status_pub.cascade_lease_status_edit
9980: (p_api_version => p_api_version,
9981: p_init_msg_list => p_init_msg_list,
9983: x_msg_count => x_msg_count,
9984: x_msg_data => x_msg_data,
9985: p_chr_id => x_gvev_rec.dnz_chr_id);
9986:
9987: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9988: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9989: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9990: raise OKL_API.G_EXCEPTION_ERROR;
9991: End If;
9984: x_msg_data => x_msg_data,
9985: p_chr_id => x_gvev_rec.dnz_chr_id);
9986:
9987: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9988: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9989: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9990: raise OKL_API.G_EXCEPTION_ERROR;
9991: End If;
9992: End If;
9985: p_chr_id => x_gvev_rec.dnz_chr_id);
9986:
9987: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9988: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9989: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9990: raise OKL_API.G_EXCEPTION_ERROR;
9991: End If;
9992: End If;
9993:
9986:
9987: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9988: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9989: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9990: raise OKL_API.G_EXCEPTION_ERROR;
9991: End If;
9992: End If;
9993:
9994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9990: raise OKL_API.G_EXCEPTION_ERROR;
9991: End If;
9992: End If;
9993:
9994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9995: x_msg_data => x_msg_data);
9996: EXCEPTION
9997: when OKL_API.G_EXCEPTION_ERROR then
9998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9993:
9994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9995: x_msg_data => x_msg_data);
9996: EXCEPTION
9997: when OKL_API.G_EXCEPTION_ERROR then
9998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9999: p_api_name => l_api_name,
10000: p_pkg_name => g_pkg_name,
10001: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9995: x_msg_data => x_msg_data);
9996: EXCEPTION
9997: when OKL_API.G_EXCEPTION_ERROR then
9998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9999: p_api_name => l_api_name,
10000: p_pkg_name => g_pkg_name,
10001: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10002: x_msg_count => x_msg_count,
9997: when OKL_API.G_EXCEPTION_ERROR then
9998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9999: p_api_name => l_api_name,
10000: p_pkg_name => g_pkg_name,
10001: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10002: x_msg_count => x_msg_count,
10003: x_msg_data => x_msg_data,
10004: p_api_type => g_api_type);
10005:
10002: x_msg_count => x_msg_count,
10003: x_msg_data => x_msg_data,
10004: p_api_type => g_api_type);
10005:
10006: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10007: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10008: p_api_name => l_api_name,
10009: p_pkg_name => g_pkg_name,
10010: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10003: x_msg_data => x_msg_data,
10004: p_api_type => g_api_type);
10005:
10006: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10007: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10008: p_api_name => l_api_name,
10009: p_pkg_name => g_pkg_name,
10010: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10011: x_msg_count => x_msg_count,
10006: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10007: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10008: p_api_name => l_api_name,
10009: p_pkg_name => g_pkg_name,
10010: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10011: x_msg_count => x_msg_count,
10012: x_msg_data => x_msg_data,
10013: p_api_type => g_api_type);
10014:
10014:
10015:
10016:
10017: when OTHERS then
10018: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10019: p_api_name => l_api_name,
10020: p_pkg_name => g_pkg_name,
10021: p_exc_name => 'OTHERS',
10022: x_msg_count => x_msg_count,
10045: x_gvev_tbl OUT NOCOPY okl_okc_migration_pvt.gvev_tbl_type) IS
10046:
10047: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
10048: l_api_version CONSTANT NUMBER := 1.0;
10049: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10050: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10051: i NUMBER;
10052: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10053: BEGIN
10046:
10047: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
10048: l_api_version CONSTANT NUMBER := 1.0;
10049: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10050: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10051: i NUMBER;
10052: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10053: BEGIN
10054: -- call START_ACTIVITY to create savepoint, check compatibility
10052: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10053: BEGIN
10054: -- call START_ACTIVITY to create savepoint, check compatibility
10055: -- and initialize message list
10056: l_return_status := OKL_API.START_ACTIVITY(
10057: p_api_name => l_api_name,
10058: p_pkg_name => g_pkg_name,
10059: p_init_msg_list => p_init_msg_list,
10060: l_api_version => l_api_version,
10062: p_api_type => g_api_type,
10063: x_return_status => x_return_status);
10064:
10065: -- check if activity started successfully
10066: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10067: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10068: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10069: raise OKL_API.G_EXCEPTION_ERROR;
10070:
10063: x_return_status => x_return_status);
10064:
10065: -- check if activity started successfully
10066: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10067: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10068: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10069: raise OKL_API.G_EXCEPTION_ERROR;
10070:
10071: End If;
10064:
10065: -- check if activity started successfully
10066: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10067: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10068: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10069: raise OKL_API.G_EXCEPTION_ERROR;
10070:
10071: End If;
10072:
10065: -- check if activity started successfully
10066: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10067: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10068: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10069: raise OKL_API.G_EXCEPTION_ERROR;
10070:
10071: End If;
10072:
10073: If (p_gvev_tbl.COUNT > 0) Then
10082: x_msg_data => x_msg_data,
10083: p_gvev_rec => p_gvev_tbl(i),
10084: x_gvev_rec => x_gvev_tbl(i));
10085:
10086: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10087: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10088: l_overall_status := x_return_status;
10089: End If;
10090: End If;
10083: p_gvev_rec => p_gvev_tbl(i),
10084: x_gvev_rec => x_gvev_tbl(i));
10085:
10086: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10087: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10088: l_overall_status := x_return_status;
10089: End If;
10090: End If;
10091:
10096: -- return overall status
10097: x_return_status := l_overall_status;
10098: End If;
10099:
10100: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10101: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10102: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10103: raise OKL_API.G_EXCEPTION_ERROR;
10104: End If;
10097: x_return_status := l_overall_status;
10098: End If;
10099:
10100: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10101: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10102: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10103: raise OKL_API.G_EXCEPTION_ERROR;
10104: End If;
10105:
10098: End If;
10099:
10100: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10101: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10102: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10103: raise OKL_API.G_EXCEPTION_ERROR;
10104: End If;
10105:
10106: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10099:
10100: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10101: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10102: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10103: raise OKL_API.G_EXCEPTION_ERROR;
10104: End If;
10105:
10106: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10107: x_msg_data => x_msg_data);
10102: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10103: raise OKL_API.G_EXCEPTION_ERROR;
10104: End If;
10105:
10106: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10107: x_msg_data => x_msg_data);
10108: EXCEPTION
10109: when OKL_API.G_EXCEPTION_ERROR then
10110: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10105:
10106: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10107: x_msg_data => x_msg_data);
10108: EXCEPTION
10109: when OKL_API.G_EXCEPTION_ERROR then
10110: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10111: p_api_name => l_api_name,
10112: p_pkg_name => g_pkg_name,
10113: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10106: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10107: x_msg_data => x_msg_data);
10108: EXCEPTION
10109: when OKL_API.G_EXCEPTION_ERROR then
10110: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10111: p_api_name => l_api_name,
10112: p_pkg_name => g_pkg_name,
10113: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10114: x_msg_count => x_msg_count,
10109: when OKL_API.G_EXCEPTION_ERROR then
10110: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10111: p_api_name => l_api_name,
10112: p_pkg_name => g_pkg_name,
10113: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10114: x_msg_count => x_msg_count,
10115: x_msg_data => x_msg_data,
10116: p_api_type => g_api_type);
10117:
10114: x_msg_count => x_msg_count,
10115: x_msg_data => x_msg_data,
10116: p_api_type => g_api_type);
10117:
10118: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10120: p_api_name => l_api_name,
10121: p_pkg_name => g_pkg_name,
10122: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10115: x_msg_data => x_msg_data,
10116: p_api_type => g_api_type);
10117:
10118: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10120: p_api_name => l_api_name,
10121: p_pkg_name => g_pkg_name,
10122: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10123: x_msg_count => x_msg_count,
10118: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10120: p_api_name => l_api_name,
10121: p_pkg_name => g_pkg_name,
10122: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10123: x_msg_count => x_msg_count,
10124: x_msg_data => x_msg_data,
10125: p_api_type => g_api_type);
10126:
10124: x_msg_data => x_msg_data,
10125: p_api_type => g_api_type);
10126:
10127: when OTHERS then
10128: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10129: p_api_name => l_api_name,
10130: p_pkg_name => g_pkg_name,
10131: p_exc_name => 'OTHERS',
10132: x_msg_count => x_msg_count,
10154: l_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
10155:
10156: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
10157: l_api_version CONSTANT NUMBER := 1.0;
10158: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10159:
10160: --cursor to find out chr id required to flip status at edit point
10161: CURSOR chr_id_crs (p_gve_id IN NUMBER) is
10162: SELECT DNZ_CHR_ID
10167: BEGIN
10168:
10169: -- call START_ACTIVITY to create savepoint, check compatibility
10170: -- and initialize message list
10171: l_return_status := OKL_API.START_ACTIVITY(
10172: p_api_name => l_api_name,
10173: p_pkg_name => g_pkg_name,
10174: p_init_msg_list => p_init_msg_list,
10175: l_api_version => l_api_version,
10177: p_api_type => g_api_type,
10178: x_return_status => x_return_status);
10179:
10180: -- check if activity started successfully
10181: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10183: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10184: raise OKL_API.G_EXCEPTION_ERROR;
10185: End If;
10178: x_return_status => x_return_status);
10179:
10180: -- check if activity started successfully
10181: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10183: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10184: raise OKL_API.G_EXCEPTION_ERROR;
10185: End If;
10186:
10179:
10180: -- check if activity started successfully
10181: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10183: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10184: raise OKL_API.G_EXCEPTION_ERROR;
10185: End If;
10186:
10187: l_gvev_rec := p_gvev_rec;
10180: -- check if activity started successfully
10181: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10183: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10184: raise OKL_API.G_EXCEPTION_ERROR;
10185: End If;
10186:
10187: l_gvev_rec := p_gvev_rec;
10188:
10190: -- set okc context before API call
10191: -- msamoyle: check whether we need to call this method here or in PUB or in processing
10192:
10193: --OKL_CONTEXT.SET_OKC_ORG_CONTEXT(l_chrv_rec.authoring_org_id,l_chrv_rec.inv_organization_id);
10194: If (l_gvev_rec.dnz_chr_id is null) OR (l_gvev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) Then
10195: Open chr_id_crs(p_gve_id => l_gvev_rec.id);
10196: FETCH chr_id_crs into l_dnz_chr_id;
10197: If chr_id_crs%NOTFOUND THEN
10198: NULL;
10201: Else
10202: l_dnz_chr_id := l_gvev_rec.dnz_chr_id;
10203: End If;
10204:
10205: If (l_dnz_chr_id is not null) And (l_dnz_chr_id <> OKL_API.G_MISS_NUM) Then
10206: --call API to cascade 'INCOMPLETE' status for lease contracts
10207: okl_contract_status_pub.cascade_lease_status_edit
10208: (p_api_version => p_api_version,
10209: p_init_msg_list => p_init_msg_list,
10211: x_msg_count => x_msg_count,
10212: x_msg_data => x_msg_data,
10213: p_chr_id => l_dnz_chr_id);
10214:
10215: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10216: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10217: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10218: raise OKL_API.G_EXCEPTION_ERROR;
10219: End If;
10212: x_msg_data => x_msg_data,
10213: p_chr_id => l_dnz_chr_id);
10214:
10215: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10216: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10217: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10218: raise OKL_API.G_EXCEPTION_ERROR;
10219: End If;
10220: End If;
10213: p_chr_id => l_dnz_chr_id);
10214:
10215: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10216: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10217: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10218: raise OKL_API.G_EXCEPTION_ERROR;
10219: End If;
10220: End If;
10221: --
10214:
10215: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10216: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10217: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10218: raise OKL_API.G_EXCEPTION_ERROR;
10219: End If;
10220: End If;
10221: --
10222: -- call procedure in complex API
10229: x_msg_data => x_msg_data,
10230: p_gvev_rec => l_gvev_rec);
10231:
10232: -- check return status
10233: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10234: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10235: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10236: raise OKL_API.G_EXCEPTION_ERROR;
10237: End If;
10230: p_gvev_rec => l_gvev_rec);
10231:
10232: -- check return status
10233: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10234: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10235: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10236: raise OKL_API.G_EXCEPTION_ERROR;
10237: End If;
10238:
10231:
10232: -- check return status
10233: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10234: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10235: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10236: raise OKL_API.G_EXCEPTION_ERROR;
10237: End If;
10238:
10239:
10232: -- check return status
10233: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10234: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10235: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10236: raise OKL_API.G_EXCEPTION_ERROR;
10237: End If;
10238:
10239:
10240: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10236: raise OKL_API.G_EXCEPTION_ERROR;
10237: End If;
10238:
10239:
10240: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10241: x_msg_data => x_msg_data);
10242: EXCEPTION
10243: when OKL_API.G_EXCEPTION_ERROR then
10244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10239:
10240: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10241: x_msg_data => x_msg_data);
10242: EXCEPTION
10243: when OKL_API.G_EXCEPTION_ERROR then
10244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10245: p_api_name => l_api_name,
10246: p_pkg_name => g_pkg_name,
10247: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10240: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10241: x_msg_data => x_msg_data);
10242: EXCEPTION
10243: when OKL_API.G_EXCEPTION_ERROR then
10244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10245: p_api_name => l_api_name,
10246: p_pkg_name => g_pkg_name,
10247: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10248: x_msg_count => x_msg_count,
10243: when OKL_API.G_EXCEPTION_ERROR then
10244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10245: p_api_name => l_api_name,
10246: p_pkg_name => g_pkg_name,
10247: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10248: x_msg_count => x_msg_count,
10249: x_msg_data => x_msg_data,
10250: p_api_type => g_api_type);
10251:
10248: x_msg_count => x_msg_count,
10249: x_msg_data => x_msg_data,
10250: p_api_type => g_api_type);
10251:
10252: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10253: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10254: p_api_name => l_api_name,
10255: p_pkg_name => g_pkg_name,
10256: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10249: x_msg_data => x_msg_data,
10250: p_api_type => g_api_type);
10251:
10252: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10253: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10254: p_api_name => l_api_name,
10255: p_pkg_name => g_pkg_name,
10256: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10257: x_msg_count => x_msg_count,
10252: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10253: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10254: p_api_name => l_api_name,
10255: p_pkg_name => g_pkg_name,
10256: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10257: x_msg_count => x_msg_count,
10258: x_msg_data => x_msg_data,
10259: p_api_type => g_api_type);
10260:
10258: x_msg_data => x_msg_data,
10259: p_api_type => g_api_type);
10260:
10261: when OTHERS then
10262: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10263: p_api_name => l_api_name,
10264: p_pkg_name => g_pkg_name,
10265: p_exc_name => 'OTHERS',
10266: x_msg_count => x_msg_count,
10286: p_gvev_tbl IN okl_okc_migration_pvt.gvev_tbl_type) IS
10287:
10288: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
10289: l_api_version CONSTANT NUMBER := 1.0;
10290: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10291: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10292: i NUMBER;
10293: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10294: BEGIN
10287:
10288: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
10289: l_api_version CONSTANT NUMBER := 1.0;
10290: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10291: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10292: i NUMBER;
10293: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10294: BEGIN
10295: -- call START_ACTIVITY to create savepoint, check compatibility
10293: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10294: BEGIN
10295: -- call START_ACTIVITY to create savepoint, check compatibility
10296: -- and initialize message list
10297: l_return_status := OKL_API.START_ACTIVITY(
10298: p_api_name => l_api_name,
10299: p_pkg_name => g_pkg_name,
10300: p_init_msg_list => p_init_msg_list,
10301: l_api_version => l_api_version,
10303: p_api_type => g_api_type,
10304: x_return_status => x_return_status);
10305:
10306: -- check if activity started successfully
10307: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10309: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10310: raise OKL_API.G_EXCEPTION_ERROR;
10311:
10304: x_return_status => x_return_status);
10305:
10306: -- check if activity started successfully
10307: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10309: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10310: raise OKL_API.G_EXCEPTION_ERROR;
10311:
10312: End If;
10305:
10306: -- check if activity started successfully
10307: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10309: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10310: raise OKL_API.G_EXCEPTION_ERROR;
10311:
10312: End If;
10313:
10306: -- check if activity started successfully
10307: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10309: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10310: raise OKL_API.G_EXCEPTION_ERROR;
10311:
10312: End If;
10313:
10314: If (p_gvev_tbl.COUNT > 0) Then
10322: x_msg_count => x_msg_count,
10323: x_msg_data => x_msg_data,
10324: p_gvev_rec => p_gvev_tbl(i));
10325:
10326: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10327: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10328: l_overall_status := x_return_status;
10329: End If;
10330: End If;
10323: x_msg_data => x_msg_data,
10324: p_gvev_rec => p_gvev_tbl(i));
10325:
10326: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10327: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10328: l_overall_status := x_return_status;
10329: End If;
10330: End If;
10331:
10336: -- return overall status
10337: x_return_status := l_overall_status;
10338: End If;
10339:
10340: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10342: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10343: raise OKL_API.G_EXCEPTION_ERROR;
10344: End If;
10337: x_return_status := l_overall_status;
10338: End If;
10339:
10340: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10342: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10343: raise OKL_API.G_EXCEPTION_ERROR;
10344: End If;
10345:
10338: End If;
10339:
10340: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10342: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10343: raise OKL_API.G_EXCEPTION_ERROR;
10344: End If;
10345:
10346: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10339:
10340: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10342: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10343: raise OKL_API.G_EXCEPTION_ERROR;
10344: End If;
10345:
10346: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10347: x_msg_data => x_msg_data);
10342: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10343: raise OKL_API.G_EXCEPTION_ERROR;
10344: End If;
10345:
10346: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10347: x_msg_data => x_msg_data);
10348: EXCEPTION
10349: when OKL_API.G_EXCEPTION_ERROR then
10350: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10345:
10346: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10347: x_msg_data => x_msg_data);
10348: EXCEPTION
10349: when OKL_API.G_EXCEPTION_ERROR then
10350: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10351: p_api_name => l_api_name,
10352: p_pkg_name => g_pkg_name,
10353: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10346: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10347: x_msg_data => x_msg_data);
10348: EXCEPTION
10349: when OKL_API.G_EXCEPTION_ERROR then
10350: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10351: p_api_name => l_api_name,
10352: p_pkg_name => g_pkg_name,
10353: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10354: x_msg_count => x_msg_count,
10349: when OKL_API.G_EXCEPTION_ERROR then
10350: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10351: p_api_name => l_api_name,
10352: p_pkg_name => g_pkg_name,
10353: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10354: x_msg_count => x_msg_count,
10355: x_msg_data => x_msg_data,
10356: p_api_type => g_api_type);
10357:
10354: x_msg_count => x_msg_count,
10355: x_msg_data => x_msg_data,
10356: p_api_type => g_api_type);
10357:
10358: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10359: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10360: p_api_name => l_api_name,
10361: p_pkg_name => g_pkg_name,
10362: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10355: x_msg_data => x_msg_data,
10356: p_api_type => g_api_type);
10357:
10358: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10359: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10360: p_api_name => l_api_name,
10361: p_pkg_name => g_pkg_name,
10362: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10363: x_msg_count => x_msg_count,
10358: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10359: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10360: p_api_name => l_api_name,
10361: p_pkg_name => g_pkg_name,
10362: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10363: x_msg_count => x_msg_count,
10364: x_msg_data => x_msg_data,
10365: p_api_type => g_api_type);
10366:
10364: x_msg_data => x_msg_data,
10365: p_api_type => g_api_type);
10366:
10367: when OTHERS then
10368: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10369: p_api_name => l_api_name,
10370: p_pkg_name => g_pkg_name,
10371: p_exc_name => 'OTHERS',
10372: x_msg_count => x_msg_count,
10394: l_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
10395:
10396: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_GOVERNANCE';
10397: l_api_version CONSTANT NUMBER := 1.0;
10398: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10399: BEGIN
10400:
10401: -- call START_ACTIVITY to create savepoint, check compatibility
10402: -- and initialize message list
10399: BEGIN
10400:
10401: -- call START_ACTIVITY to create savepoint, check compatibility
10402: -- and initialize message list
10403: l_return_status := OKL_API.START_ACTIVITY(
10404: p_api_name => l_api_name,
10405: p_pkg_name => g_pkg_name,
10406: p_init_msg_list => p_init_msg_list,
10407: l_api_version => l_api_version,
10409: p_api_type => g_api_type,
10410: x_return_status => x_return_status);
10411:
10412: -- check if activity started successfully
10413: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10414: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10415: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10416: raise OKL_API.G_EXCEPTION_ERROR;
10417: End If;
10410: x_return_status => x_return_status);
10411:
10412: -- check if activity started successfully
10413: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10414: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10415: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10416: raise OKL_API.G_EXCEPTION_ERROR;
10417: End If;
10418:
10411:
10412: -- check if activity started successfully
10413: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10414: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10415: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10416: raise OKL_API.G_EXCEPTION_ERROR;
10417: End If;
10418:
10419: l_gvev_rec := p_gvev_rec;
10412: -- check if activity started successfully
10413: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10414: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10415: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10416: raise OKL_API.G_EXCEPTION_ERROR;
10417: End If;
10418:
10419: l_gvev_rec := p_gvev_rec;
10420:
10436: x_msg_data => x_msg_data,
10437: p_gvev_rec => l_gvev_rec);
10438:
10439: -- check return status
10440: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10441: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10442: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10443: raise OKL_API.G_EXCEPTION_ERROR;
10444: End If;
10437: p_gvev_rec => l_gvev_rec);
10438:
10439: -- check return status
10440: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10441: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10442: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10443: raise OKL_API.G_EXCEPTION_ERROR;
10444: End If;
10445:
10438:
10439: -- check return status
10440: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10441: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10442: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10443: raise OKL_API.G_EXCEPTION_ERROR;
10444: End If;
10445:
10446: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10439: -- check return status
10440: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10441: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10442: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10443: raise OKL_API.G_EXCEPTION_ERROR;
10444: End If;
10445:
10446: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10447: x_msg_data => x_msg_data);
10442: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10443: raise OKL_API.G_EXCEPTION_ERROR;
10444: End If;
10445:
10446: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10447: x_msg_data => x_msg_data);
10448: EXCEPTION
10449: when OKL_API.G_EXCEPTION_ERROR then
10450: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10445:
10446: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10447: x_msg_data => x_msg_data);
10448: EXCEPTION
10449: when OKL_API.G_EXCEPTION_ERROR then
10450: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10451: p_api_name => l_api_name,
10452: p_pkg_name => g_pkg_name,
10453: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10446: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10447: x_msg_data => x_msg_data);
10448: EXCEPTION
10449: when OKL_API.G_EXCEPTION_ERROR then
10450: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10451: p_api_name => l_api_name,
10452: p_pkg_name => g_pkg_name,
10453: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10454: x_msg_count => x_msg_count,
10449: when OKL_API.G_EXCEPTION_ERROR then
10450: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10451: p_api_name => l_api_name,
10452: p_pkg_name => g_pkg_name,
10453: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10454: x_msg_count => x_msg_count,
10455: x_msg_data => x_msg_data,
10456: p_api_type => g_api_type);
10457:
10454: x_msg_count => x_msg_count,
10455: x_msg_data => x_msg_data,
10456: p_api_type => g_api_type);
10457:
10458: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10459: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10460: p_api_name => l_api_name,
10461: p_pkg_name => g_pkg_name,
10462: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10455: x_msg_data => x_msg_data,
10456: p_api_type => g_api_type);
10457:
10458: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10459: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10460: p_api_name => l_api_name,
10461: p_pkg_name => g_pkg_name,
10462: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10463: x_msg_count => x_msg_count,
10458: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10459: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10460: p_api_name => l_api_name,
10461: p_pkg_name => g_pkg_name,
10462: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10463: x_msg_count => x_msg_count,
10464: x_msg_data => x_msg_data,
10465: p_api_type => g_api_type);
10466:
10464: x_msg_data => x_msg_data,
10465: p_api_type => g_api_type);
10466:
10467: when OTHERS then
10468: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10469: p_api_name => l_api_name,
10470: p_pkg_name => g_pkg_name,
10471: p_exc_name => 'OTHERS',
10472: x_msg_count => x_msg_count,
10492: p_gvev_tbl IN okl_okc_migration_pvt.gvev_tbl_type) IS
10493:
10494: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_GOVERNANCE';
10495: l_api_version CONSTANT NUMBER := 1.0;
10496: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10497: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10498: i NUMBER;
10499: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10500: BEGIN
10493:
10494: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_GOVERNANCE';
10495: l_api_version CONSTANT NUMBER := 1.0;
10496: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10497: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10498: i NUMBER;
10499: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10500: BEGIN
10501: -- call START_ACTIVITY to create savepoint, check compatibility
10499: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10500: BEGIN
10501: -- call START_ACTIVITY to create savepoint, check compatibility
10502: -- and initialize message list
10503: l_return_status := OKL_API.START_ACTIVITY(
10504: p_api_name => l_api_name,
10505: p_pkg_name => g_pkg_name,
10506: p_init_msg_list => p_init_msg_list,
10507: l_api_version => l_api_version,
10509: p_api_type => g_api_type,
10510: x_return_status => x_return_status);
10511:
10512: -- check if activity started successfully
10513: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10514: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10515: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10516: raise OKL_API.G_EXCEPTION_ERROR;
10517:
10510: x_return_status => x_return_status);
10511:
10512: -- check if activity started successfully
10513: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10514: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10515: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10516: raise OKL_API.G_EXCEPTION_ERROR;
10517:
10518: End If;
10511:
10512: -- check if activity started successfully
10513: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10514: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10515: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10516: raise OKL_API.G_EXCEPTION_ERROR;
10517:
10518: End If;
10519:
10512: -- check if activity started successfully
10513: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10514: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10515: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10516: raise OKL_API.G_EXCEPTION_ERROR;
10517:
10518: End If;
10519:
10520: If (p_gvev_tbl.COUNT > 0) Then
10528: x_msg_count => x_msg_count,
10529: x_msg_data => x_msg_data,
10530: p_gvev_rec => p_gvev_tbl(i));
10531:
10532: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10533: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10534: l_overall_status := x_return_status;
10535: End If;
10536: End If;
10529: x_msg_data => x_msg_data,
10530: p_gvev_rec => p_gvev_tbl(i));
10531:
10532: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10533: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10534: l_overall_status := x_return_status;
10535: End If;
10536: End If;
10537:
10542: -- return overall status
10543: x_return_status := l_overall_status;
10544: End If;
10545:
10546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10549: raise OKL_API.G_EXCEPTION_ERROR;
10550: End If;
10543: x_return_status := l_overall_status;
10544: End If;
10545:
10546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10549: raise OKL_API.G_EXCEPTION_ERROR;
10550: End If;
10551:
10544: End If;
10545:
10546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10549: raise OKL_API.G_EXCEPTION_ERROR;
10550: End If;
10551:
10552: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10545:
10546: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10547: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10549: raise OKL_API.G_EXCEPTION_ERROR;
10550: End If;
10551:
10552: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10553: x_msg_data => x_msg_data);
10548: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10549: raise OKL_API.G_EXCEPTION_ERROR;
10550: End If;
10551:
10552: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10553: x_msg_data => x_msg_data);
10554: EXCEPTION
10555: when OKL_API.G_EXCEPTION_ERROR then
10556: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10551:
10552: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10553: x_msg_data => x_msg_data);
10554: EXCEPTION
10555: when OKL_API.G_EXCEPTION_ERROR then
10556: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10557: p_api_name => l_api_name,
10558: p_pkg_name => g_pkg_name,
10559: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10552: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10553: x_msg_data => x_msg_data);
10554: EXCEPTION
10555: when OKL_API.G_EXCEPTION_ERROR then
10556: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10557: p_api_name => l_api_name,
10558: p_pkg_name => g_pkg_name,
10559: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10560: x_msg_count => x_msg_count,
10555: when OKL_API.G_EXCEPTION_ERROR then
10556: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10557: p_api_name => l_api_name,
10558: p_pkg_name => g_pkg_name,
10559: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10560: x_msg_count => x_msg_count,
10561: x_msg_data => x_msg_data,
10562: p_api_type => g_api_type);
10563:
10560: x_msg_count => x_msg_count,
10561: x_msg_data => x_msg_data,
10562: p_api_type => g_api_type);
10563:
10564: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10565: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10566: p_api_name => l_api_name,
10567: p_pkg_name => g_pkg_name,
10568: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10561: x_msg_data => x_msg_data,
10562: p_api_type => g_api_type);
10563:
10564: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10565: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10566: p_api_name => l_api_name,
10567: p_pkg_name => g_pkg_name,
10568: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10569: x_msg_count => x_msg_count,
10564: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10565: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10566: p_api_name => l_api_name,
10567: p_pkg_name => g_pkg_name,
10568: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10569: x_msg_count => x_msg_count,
10570: x_msg_data => x_msg_data,
10571: p_api_type => g_api_type);
10572:
10570: x_msg_data => x_msg_data,
10571: p_api_type => g_api_type);
10572:
10573: when OTHERS then
10574: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10575: p_api_name => l_api_name,
10576: p_pkg_name => g_pkg_name,
10577: p_exc_name => 'OTHERS',
10578: x_msg_count => x_msg_count,
10602:
10603:
10604: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_GOVERNANCE';
10605: l_api_version CONSTANT NUMBER := 1.0;
10606: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10607: BEGIN
10608:
10609: --dbms_output.put_line('Start validation');
10610: -- call START_ACTIVITY to create savepoint, check compatibility
10608:
10609: --dbms_output.put_line('Start validation');
10610: -- call START_ACTIVITY to create savepoint, check compatibility
10611: -- and initialize message list
10612: l_return_status := OKL_API.START_ACTIVITY(
10613: p_api_name => l_api_name,
10614: p_pkg_name => g_pkg_name,
10615: p_init_msg_list => p_init_msg_list,
10616: l_api_version => l_api_version,
10618: p_api_type => g_api_type,
10619: x_return_status => x_return_status);
10620:
10621: -- check if activity started successfully
10622: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10624: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10625: raise OKL_API.G_EXCEPTION_ERROR;
10626: End If;
10619: x_return_status => x_return_status);
10620:
10621: -- check if activity started successfully
10622: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10624: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10625: raise OKL_API.G_EXCEPTION_ERROR;
10626: End If;
10627:
10620:
10621: -- check if activity started successfully
10622: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10624: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10625: raise OKL_API.G_EXCEPTION_ERROR;
10626: End If;
10627:
10628: --dbms_output.put_line('Started activity');
10621: -- check if activity started successfully
10622: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10623: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10624: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10625: raise OKL_API.G_EXCEPTION_ERROR;
10626: End If;
10627:
10628: --dbms_output.put_line('Started activity');
10629:
10647: x_msg_data => x_msg_data,
10648: p_gvev_rec => l_gvev_rec);
10649:
10650: -- check return status
10651: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10652: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10653: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10654: raise OKL_API.G_EXCEPTION_ERROR;
10655: End If;
10648: p_gvev_rec => l_gvev_rec);
10649:
10650: -- check return status
10651: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10652: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10653: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10654: raise OKL_API.G_EXCEPTION_ERROR;
10655: End If;
10656: --dbms_output.put_line('Got standard validation');
10649:
10650: -- check return status
10651: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10652: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10653: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10654: raise OKL_API.G_EXCEPTION_ERROR;
10655: End If;
10656: --dbms_output.put_line('Got standard validation');
10657:
10650: -- check return status
10651: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10652: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10653: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10654: raise OKL_API.G_EXCEPTION_ERROR;
10655: End If;
10656: --dbms_output.put_line('Got standard validation');
10657:
10658: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10654: raise OKL_API.G_EXCEPTION_ERROR;
10655: End If;
10656: --dbms_output.put_line('Got standard validation');
10657:
10658: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10659: x_msg_data => x_msg_data);
10660: --dbms_output.put_line('Done');
10661: EXCEPTION
10662: when OKL_API.G_EXCEPTION_ERROR then
10658: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10659: x_msg_data => x_msg_data);
10660: --dbms_output.put_line('Done');
10661: EXCEPTION
10662: when OKL_API.G_EXCEPTION_ERROR then
10663: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10664: p_api_name => l_api_name,
10665: p_pkg_name => g_pkg_name,
10666: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10659: x_msg_data => x_msg_data);
10660: --dbms_output.put_line('Done');
10661: EXCEPTION
10662: when OKL_API.G_EXCEPTION_ERROR then
10663: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10664: p_api_name => l_api_name,
10665: p_pkg_name => g_pkg_name,
10666: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10667: x_msg_count => x_msg_count,
10662: when OKL_API.G_EXCEPTION_ERROR then
10663: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10664: p_api_name => l_api_name,
10665: p_pkg_name => g_pkg_name,
10666: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10667: x_msg_count => x_msg_count,
10668: x_msg_data => x_msg_data,
10669: p_api_type => g_api_type);
10670:
10667: x_msg_count => x_msg_count,
10668: x_msg_data => x_msg_data,
10669: p_api_type => g_api_type);
10670:
10671: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10673: p_api_name => l_api_name,
10674: p_pkg_name => g_pkg_name,
10675: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10668: x_msg_data => x_msg_data,
10669: p_api_type => g_api_type);
10670:
10671: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10673: p_api_name => l_api_name,
10674: p_pkg_name => g_pkg_name,
10675: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10676: x_msg_count => x_msg_count,
10671: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10673: p_api_name => l_api_name,
10674: p_pkg_name => g_pkg_name,
10675: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10676: x_msg_count => x_msg_count,
10677: x_msg_data => x_msg_data,
10678: p_api_type => g_api_type);
10679:
10677: x_msg_data => x_msg_data,
10678: p_api_type => g_api_type);
10679:
10680: when OTHERS then
10681: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10682: p_api_name => l_api_name,
10683: p_pkg_name => g_pkg_name,
10684: p_exc_name => 'OTHERS',
10685: x_msg_count => x_msg_count,
10705: p_gvev_tbl IN okl_okc_migration_pvt.gvev_tbl_type) IS
10706:
10707: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_HEADER';
10708: l_api_version CONSTANT NUMBER := 1.0;
10709: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10710: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10711: i NUMBER;
10712: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10713: BEGIN
10706:
10707: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_HEADER';
10708: l_api_version CONSTANT NUMBER := 1.0;
10709: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10710: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10711: i NUMBER;
10712: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10713: BEGIN
10714: -- call START_ACTIVITY to create savepoint, check compatibility
10712: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10713: BEGIN
10714: -- call START_ACTIVITY to create savepoint, check compatibility
10715: -- and initialize message list
10716: l_return_status := OKL_API.START_ACTIVITY(
10717: p_api_name => l_api_name,
10718: p_pkg_name => g_pkg_name,
10719: p_init_msg_list => p_init_msg_list,
10720: l_api_version => l_api_version,
10722: p_api_type => g_api_type,
10723: x_return_status => x_return_status);
10724:
10725: -- check if activity started successfully
10726: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10727: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10728: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10729: raise OKL_API.G_EXCEPTION_ERROR;
10730:
10723: x_return_status => x_return_status);
10724:
10725: -- check if activity started successfully
10726: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10727: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10728: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10729: raise OKL_API.G_EXCEPTION_ERROR;
10730:
10731: End If;
10724:
10725: -- check if activity started successfully
10726: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10727: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10728: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10729: raise OKL_API.G_EXCEPTION_ERROR;
10730:
10731: End If;
10732:
10725: -- check if activity started successfully
10726: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10727: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10728: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10729: raise OKL_API.G_EXCEPTION_ERROR;
10730:
10731: End If;
10732:
10733: If (p_gvev_tbl.COUNT > 0) Then
10741: x_msg_count => x_msg_count,
10742: x_msg_data => x_msg_data,
10743: p_gvev_rec => p_gvev_tbl(i));
10744:
10745: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10746: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10747: l_overall_status := x_return_status;
10748: End If;
10749: End If;
10742: x_msg_data => x_msg_data,
10743: p_gvev_rec => p_gvev_tbl(i));
10744:
10745: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10746: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10747: l_overall_status := x_return_status;
10748: End If;
10749: End If;
10750:
10755: -- return overall status
10756: x_return_status := l_overall_status;
10757: End If;
10758:
10759: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10761: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10762: raise OKL_API.G_EXCEPTION_ERROR;
10763: End If;
10756: x_return_status := l_overall_status;
10757: End If;
10758:
10759: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10761: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10762: raise OKL_API.G_EXCEPTION_ERROR;
10763: End If;
10764:
10757: End If;
10758:
10759: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10761: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10762: raise OKL_API.G_EXCEPTION_ERROR;
10763: End If;
10764:
10765: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10758:
10759: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10760: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10761: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10762: raise OKL_API.G_EXCEPTION_ERROR;
10763: End If;
10764:
10765: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10766: x_msg_data => x_msg_data);
10761: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10762: raise OKL_API.G_EXCEPTION_ERROR;
10763: End If;
10764:
10765: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10766: x_msg_data => x_msg_data);
10767: EXCEPTION
10768: when OKL_API.G_EXCEPTION_ERROR then
10769: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10764:
10765: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10766: x_msg_data => x_msg_data);
10767: EXCEPTION
10768: when OKL_API.G_EXCEPTION_ERROR then
10769: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10770: p_api_name => l_api_name,
10771: p_pkg_name => g_pkg_name,
10772: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10765: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10766: x_msg_data => x_msg_data);
10767: EXCEPTION
10768: when OKL_API.G_EXCEPTION_ERROR then
10769: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10770: p_api_name => l_api_name,
10771: p_pkg_name => g_pkg_name,
10772: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10773: x_msg_count => x_msg_count,
10768: when OKL_API.G_EXCEPTION_ERROR then
10769: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10770: p_api_name => l_api_name,
10771: p_pkg_name => g_pkg_name,
10772: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10773: x_msg_count => x_msg_count,
10774: x_msg_data => x_msg_data,
10775: p_api_type => g_api_type);
10776:
10773: x_msg_count => x_msg_count,
10774: x_msg_data => x_msg_data,
10775: p_api_type => g_api_type);
10776:
10777: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10778: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10779: p_api_name => l_api_name,
10780: p_pkg_name => g_pkg_name,
10781: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10774: x_msg_data => x_msg_data,
10775: p_api_type => g_api_type);
10776:
10777: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10778: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10779: p_api_name => l_api_name,
10780: p_pkg_name => g_pkg_name,
10781: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10782: x_msg_count => x_msg_count,
10777: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10778: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10779: p_api_name => l_api_name,
10780: p_pkg_name => g_pkg_name,
10781: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10782: x_msg_count => x_msg_count,
10783: x_msg_data => x_msg_data,
10784: p_api_type => g_api_type);
10785:
10783: x_msg_data => x_msg_data,
10784: p_api_type => g_api_type);
10785:
10786: when OTHERS then
10787: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10788: p_api_name => l_api_name,
10789: p_pkg_name => g_pkg_name,
10790: p_exc_name => 'OTHERS',
10791: x_msg_count => x_msg_count,
10818: x_hdr_tbl OUT NOCOPY hdr_tbl_type) IS
10819:
10820: l_api_name CONSTANT VARCHAR2(30) := 'GET_CONTRACT_HEADER_INFO';
10821: l_api_version CONSTANT NUMBER := 1;
10822: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10823:
10824: Cursor status_csr( chrId NUMBER ) IS
10825: select a.ste_code,
10826: a.code,
10950: AND chr.scs_code in ('LEASE','LOAN');
10951:
10952: l_syndicate_flag VARCHAR2(1) := 'N';
10953: l_api_version NUMBER;
10954: l_return_status VARCHAR2(1) := Okl_API.G_RET_STS_SUCCESS;
10955: l_msg_count NUMBER;
10956: l_msg_data VARCHAR2(2000);
10957:
10958: BEGIN
10965:
10966: RETURN l_return_status;
10967: EXCEPTION
10968: WHEN OTHERS THEN
10969: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
10970: ,p_msg_name => G_UNEXPECTED_ERROR
10971: ,p_token1 => G_SQLCODE_TOKEN
10972: ,p_token1_value => SQLCODE
10973: ,p_token2 => G_SQLERRM_TOKEN
10971: ,p_token1 => G_SQLCODE_TOKEN
10972: ,p_token1_value => SQLCODE
10973: ,p_token2 => G_SQLERRM_TOKEN
10974: ,p_token2_value => SQLERRM);
10975: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10976: RETURN(l_return_status);
10977:
10978: END get_syndicate_flag;
10979:
10986: x_party_name OUT NOCOPY VARCHAR2)
10987: RETURN VARCHAR2
10988: IS
10989: l_api_version NUMBER := 1.0;
10990: l_init_msg_list VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
10991: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10992: l_msg_count NUMBER;
10993: l_msg_data VARCHAR2(2000);
10994: l_party_tab OKL_JTOT_EXTRACT.party_tab_type;
10987: RETURN VARCHAR2
10988: IS
10989: l_api_version NUMBER := 1.0;
10990: l_init_msg_list VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
10991: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10992: l_msg_count NUMBER;
10993: l_msg_data VARCHAR2(2000);
10994: l_party_tab OKL_JTOT_EXTRACT.party_tab_type;
10995: BEGIN
11009: 'S',
11010: l_party_tab
11011: );
11012:
11013: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
11014: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
11015: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
11016: RAISE okl_api.G_EXCEPTION_ERROR;
11017: END IF;
11010: l_party_tab
11011: );
11012:
11013: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
11014: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
11015: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
11016: RAISE okl_api.G_EXCEPTION_ERROR;
11017: END IF;
11018:
11011: );
11012:
11013: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
11014: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
11015: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
11016: RAISE okl_api.G_EXCEPTION_ERROR;
11017: END IF;
11018:
11019: IF l_party_tab.FIRST IS NOT NULL
11012:
11013: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
11014: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
11015: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
11016: RAISE okl_api.G_EXCEPTION_ERROR;
11017: END IF;
11018:
11019: IF l_party_tab.FIRST IS NOT NULL
11020: THEN --fetch from table only if some data is retrieved
11029: END IF;
11030:
11031: RETURN l_return_status;
11032: EXCEPTION
11033: when OKL_API.G_EXCEPTION_ERROR then
11034: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
11035: p_api_name => l_api_name,
11036: p_pkg_name => g_pkg_name,
11037: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11030:
11031: RETURN l_return_status;
11032: EXCEPTION
11033: when OKL_API.G_EXCEPTION_ERROR then
11034: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
11035: p_api_name => l_api_name,
11036: p_pkg_name => g_pkg_name,
11037: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11038: x_msg_count => x_msg_count,
11033: when OKL_API.G_EXCEPTION_ERROR then
11034: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
11035: p_api_name => l_api_name,
11036: p_pkg_name => g_pkg_name,
11037: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11038: x_msg_count => x_msg_count,
11039: x_msg_data => x_msg_data,
11040: p_api_type => g_api_type);
11041:
11038: x_msg_count => x_msg_count,
11039: x_msg_data => x_msg_data,
11040: p_api_type => g_api_type);
11041:
11042: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
11043: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
11044: p_api_name => l_api_name,
11045: p_pkg_name => g_pkg_name,
11046: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11039: x_msg_data => x_msg_data,
11040: p_api_type => g_api_type);
11041:
11042: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
11043: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
11044: p_api_name => l_api_name,
11045: p_pkg_name => g_pkg_name,
11046: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11047: x_msg_count => x_msg_count,
11042: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
11043: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
11044: p_api_name => l_api_name,
11045: p_pkg_name => g_pkg_name,
11046: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11047: x_msg_count => x_msg_count,
11048: x_msg_data => x_msg_data,
11049: p_api_type => g_api_type);
11050:
11048: x_msg_data => x_msg_data,
11049: p_api_type => g_api_type);
11050:
11051: when OTHERS then
11052: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
11053: p_api_name => l_api_name,
11054: p_pkg_name => g_pkg_name,
11055: p_exc_name => 'OTHERS',
11056: x_msg_count => x_msg_count,
11066:
11067: OPEN status_csr( p_chr_id );
11068: FETCH status_csr INTO status_rec;
11069: if (status_csr%NOTFOUND ) Then
11070: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11071: End If;
11072: CLOSE status_csr;
11073:
11074: l_scs_code := status_rec.scs_code;
11087:
11088: OPEN chr_csr( p_chr_id );
11089: FETCH chr_csr INTO chr_rec;
11090: if (chr_csr%NOTFOUND ) Then
11091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11092: End If;
11093: CLOSE chr_csr;
11094:
11095: OPEN prog_num_csr( p_chr_id );
11121: --for bug# 2471750 :special treatment for QUOTE
11122: If l_scs_code <> 'QUOTE' Then
11123: --Bug# 2857899
11124: If l_template_yn <> 'Y' Then
11125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11126: Elsif l_template_yn = 'Y' Then
11127: x_hdr_tbl(12) := Null;
11128: x_hdr_tbl(13) := Null;
11129: x_hdr_tbl(14) := Null;
11130:
11131: x_hdr_tbl(15) := l_currency_code;
11132:
11133: l_return_status := get_party(p_chr_id,'LESSEE', l_lessee);
11134: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) Then
11135: x_hdr_tbl(16) := l_lessee;
11136: ELSE
11137: x_hdr_tbl(16) := '';
11138: END IF;
11146:
11147: x_hdr_tbl(15) := l_currency_code;
11148:
11149: l_return_status := get_party(p_chr_id,'LESSEE', l_lessee);
11150: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) Then
11151: x_hdr_tbl(16) := l_lessee;
11152: ELSE
11153: x_hdr_tbl(16) := '';
11154: END IF;
11179: -- p_chr_id,
11180: -- rule_rec.object1_id1 );
11181: -- FETCH cust_csr INTO cust_rec;
11182: -- if (cust_csr%NOTFOUND ) Then
11183: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11184: -- End If;
11185: -- CLOSE cust_csr;
11186:
11187: -- x_hdr_tbl(15) := cust_rec.currency_code;
11211:
11212: --l_return_status := okl_contract_info_pvt.get_private_label(p_chr_id, l_priv);
11213: --l_return_status := get_private_label(p_chr_id, l_priv);
11214: l_return_status := get_party(p_chr_id,'PRIVATE_LABEL', l_priv);
11215: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) Then
11216: x_hdr_tbl(20) := l_priv;
11217: ELSE
11218: x_hdr_tbl(20) := '';
11219: END IF;
11227: Else
11228: x_hdr_tbl(1) := 'GET_FROM_REQUEST';
11229: End if;
11230:
11231: l_return_status := OKL_API.G_RET_STS_SUCCESS;
11232:
11233: Exception
11234: when OKL_API.G_EXCEPTION_ERROR then
11235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11230:
11231: l_return_status := OKL_API.G_RET_STS_SUCCESS;
11232:
11233: Exception
11234: when OKL_API.G_EXCEPTION_ERROR then
11235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11236: p_api_name => l_api_name,
11237: p_pkg_name => g_pkg_name,
11238: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11231: l_return_status := OKL_API.G_RET_STS_SUCCESS;
11232:
11233: Exception
11234: when OKL_API.G_EXCEPTION_ERROR then
11235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11236: p_api_name => l_api_name,
11237: p_pkg_name => g_pkg_name,
11238: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11239: x_msg_count => x_msg_count,
11234: when OKL_API.G_EXCEPTION_ERROR then
11235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11236: p_api_name => l_api_name,
11237: p_pkg_name => g_pkg_name,
11238: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11239: x_msg_count => x_msg_count,
11240: x_msg_data => x_msg_data,
11241: p_api_type => g_api_type);
11242:
11239: x_msg_count => x_msg_count,
11240: x_msg_data => x_msg_data,
11241: p_api_type => g_api_type);
11242:
11243: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
11244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11245: p_api_name => l_api_name,
11246: p_pkg_name => g_pkg_name,
11247: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11240: x_msg_data => x_msg_data,
11241: p_api_type => g_api_type);
11242:
11243: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
11244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11245: p_api_name => l_api_name,
11246: p_pkg_name => g_pkg_name,
11247: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11248: x_msg_count => x_msg_count,
11243: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
11244: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11245: p_api_name => l_api_name,
11246: p_pkg_name => g_pkg_name,
11247: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11248: x_msg_count => x_msg_count,
11249: x_msg_data => x_msg_data,
11250: p_api_type => g_api_type);
11251:
11249: x_msg_data => x_msg_data,
11250: p_api_type => g_api_type);
11251:
11252: when OTHERS then
11253: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11254: p_api_name => l_api_name,
11255: p_pkg_name => g_pkg_name,
11256: p_exc_name => 'OTHERS',
11257: x_msg_count => x_msg_count,