[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';
152: p_parameters => l_parameter_list);
153:
154: EXCEPTION
155: WHEN OTHERS THEN
156: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: END raise_business_event;
159:
160: /*
153:
154: EXCEPTION
155: WHEN OTHERS THEN
156: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: END raise_business_event;
159:
160: /*
161: -- vthiruva, 08/19/2004
175: -- Start of comments
176: --
177: Procedure Inactivate_Streams
178: ( p_api_version IN NUMBER,
179: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
180: x_return_status OUT NOCOPY VARCHAR2,
181: x_msg_count OUT NOCOPY NUMBER,
182: x_msg_data OUT NOCOPY VARCHAR2,
183: p_cle_id IN NUMBER) is
200: l_stream_update_err EXCEPTION;
201:
202: Begin
203: -----
204: x_return_status := OKL_API.G_RET_STS_SUCCESS;
205: i := 0;
206: Open strms_csr(cleId => p_cle_id);
207: Loop
208: Fetch strms_csr into l_strms_rec;
222: x_msg_count => x_msg_count,
223: x_msg_data => x_msg_data,
224: p_stmv_tbl => l_stmv_tbl,
225: x_stmv_tbl => x_stmv_tbl);
226: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
227: raise l_stream_update_err;
228: END IF;
229: l_stmv_tbl.delete;
230: End If;
335: --Bug# 4091789 End
336: -------------
337:
338: Begin
339: x_return_status := OKL_API.G_RET_STS_SUCCESS;
340:
341: --check if contract is booked
342: Open Chr_sts_crs(p_cle_id => p_cle_id);
343: Fetch Chr_sts_crs into l_sts_code;
342: Open Chr_sts_crs(p_cle_id => p_cle_id);
343: Fetch Chr_sts_crs into l_sts_code;
344: Close Chr_sts_crs;
345: If l_sts_code = G_OKL_BOOKED_STS_CODE Then
346: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
347: p_msg_name => G_BOOKED_KLE_DELETE);
348: x_return_status := OKL_API.G_RET_STS_ERROR;
349: l_deletion_type := 'N';
350: Raise G_EXCEPTION_HALT_VALIDATION;
344: Close Chr_sts_crs;
345: If l_sts_code = G_OKL_BOOKED_STS_CODE Then
346: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
347: p_msg_name => G_BOOKED_KLE_DELETE);
348: x_return_status := OKL_API.G_RET_STS_ERROR;
349: l_deletion_type := 'N';
350: Raise G_EXCEPTION_HALT_VALIDATION;
351: End If;
352:
359: End If;
360: Close Ever_Booked_crs;
361:
362: If l_chr_ever_booked = 'Y' Then
363: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
364: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
365: x_return_status := OKL_API.G_RET_STS_ERROR;
366: l_deletion_type := 'N';
367: Raise G_EXCEPTION_HALT_VALIDATION;
361:
362: If l_chr_ever_booked = 'Y' Then
363: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
364: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
365: x_return_status := OKL_API.G_RET_STS_ERROR;
366: l_deletion_type := 'N';
367: Raise G_EXCEPTION_HALT_VALIDATION;
368: End If;
369:
376: End If;
377: Close Funding_Exists_crs;
378:
379: If l_funding_exists = 'Y' Then
380: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
381: p_msg_name => G_FUNDED_KLE_DELETE);
382: x_return_status := OKL_API.G_RET_STS_ERROR;
383: l_deletion_type := 'N';
384: Raise G_EXCEPTION_HALT_VALIDATION;
378:
379: If l_funding_exists = 'Y' Then
380: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
381: p_msg_name => G_FUNDED_KLE_DELETE);
382: x_return_status := OKL_API.G_RET_STS_ERROR;
383: l_deletion_type := 'N';
384: Raise G_EXCEPTION_HALT_VALIDATION;
385: End If;
386:
391: l_rbk_asst_rec := Null;
392: for l_rbk_asst_rec in l_rbk_asst_csr(p_cle_id => p_cle_id)
393: loop
394: If NVL(l_rbk_asst_rec.rbk_asst_flag,'N') = 'Y' then
395: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
396: p_msg_name => 'OKL_LA_REBOOK_LINE_DELETE',
397: p_token1 => 'ASSET_NUMBER',
398: p_token1_value => l_rbk_asst_rec.name);
399: x_return_status := OKL_API.G_RET_STS_ERROR;
395: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
396: p_msg_name => 'OKL_LA_REBOOK_LINE_DELETE',
397: p_token1 => 'ASSET_NUMBER',
398: p_token1_value => l_rbk_asst_rec.name);
399: x_return_status := OKL_API.G_RET_STS_ERROR;
400: l_deletion_type := 'N';
401: Raise G_EXCEPTION_HALT_VALIDATION;
402: End If;
403: End Loop;
426: -- no processing necessary; validation can continue with the next column
427: x_deletion_type := l_deletion_type;
428: when OTHERS then
429: -- store SQL error message on message stack for caller
430: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
431: p_msg_name => G_UNEXPECTED_ERROR,
432: p_token1 => g_sqlcode_token,
433: p_token1_value => sqlcode,
434: p_token2 => g_sqlerrm_token,
447: If streams_exist_crs%ISOPEN Then
448: Close streams_exist_crs;
449: End If;
450: x_deletion_type := 'N';
451: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
452: END kle_delete_allowed;
453:
454: -- Start of comments
455: --
567:
568:
569: Begin
570:
571: x_return_status := OKL_API.G_RET_STS_SUCCESS;
572: l_modfn_mode := 'N';
573: l_new_start_date := p_new_start_date;
574: l_new_end_date := p_new_end_date;
575:
583: Raise G_EXCEPTION_HALT_VALIDATION;
584: End If;
585: Close chk_lease_csr;
586:
587: If l_new_start_date is null or l_new_start_date = OKL_API.G_MISS_DATE Then
588: l_new_start_date := l_start_date;
589: End If;
590:
591: If l_new_end_date is null or l_new_end_date = OKL_API.G_MISS_DATE Then
587: If l_new_start_date is null or l_new_start_date = OKL_API.G_MISS_DATE Then
588: l_new_start_date := l_start_date;
589: End If;
590:
591: If l_new_end_date is null or l_new_end_date = OKL_API.G_MISS_DATE Then
592: l_new_end_date := l_end_date;
593: End If;
594:
595:
671: --bug# 2821383: For rebook copy contracts end data should be from original contract
672: If l_rbk_cpy <> 'Y' then
673: If trunc(l_new_end_date) < trunc(l_end_date)
674: or (p_new_term < l_term_duration) Then
675: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
676: p_msg_name => G_TERM_REDUCTION_NOT_ALLOWED
677: );
678: x_return_status := OKL_API.G_RET_STS_ERROR;
679: Raise G_EXCEPTION_HALT_VALIDATION;
674: or (p_new_term < l_term_duration) Then
675: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
676: p_msg_name => G_TERM_REDUCTION_NOT_ALLOWED
677: );
678: x_return_status := OKL_API.G_RET_STS_ERROR;
679: Raise G_EXCEPTION_HALT_VALIDATION;
680: End If;
681: End If; --bug # 2821383
682:
692: end if;
693: Close orig_date_csr;
694:
695: If trunc(l_new_start_date) < trunc(l_orig_start_date) Then
696: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
697: p_msg_name => G_RBK_NEW_START_DATE,
698: p_token1 => g_effective_from_token,
699: p_token1_value => to_char(l_orig_start_date,'DD-MON-YYYY')
700: );
697: p_msg_name => G_RBK_NEW_START_DATE,
698: p_token1 => g_effective_from_token,
699: p_token1_value => to_char(l_orig_start_date,'DD-MON-YYYY')
700: );
701: x_return_status := OKL_API.G_RET_STS_ERROR;
702: Raise G_EXCEPTION_HALT_VALIDATION;
703: End If;
704: --Bug#2821383 :check on term reduction for rbook copy contract should be with original end date
705: If trunc(l_new_end_date) < trunc(l_orig_end_date)
703: End If;
704: --Bug#2821383 :check on term reduction for rbook copy contract should be with original end date
705: If trunc(l_new_end_date) < trunc(l_orig_end_date)
706: or (p_new_term < l_orig_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_orig_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; --Bug# 2821383 End
713: End If;
714:
722: end if;
723: Close rbk_date_csr;
724:
725: If l_rbk_date < l_new_start_date then
726: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
727: p_msg_name => G_RBK_DATE_LESS, --new message needed
728: p_token1 => g_rebook_date_token,
729: p_token1_value => to_char(l_rbk_date,'DD-MON-YYYY')
730: );
727: p_msg_name => G_RBK_DATE_LESS, --new message needed
728: p_token1 => g_rebook_date_token,
729: p_token1_value => to_char(l_rbk_date,'DD-MON-YYYY')
730: );
731: x_return_status := OKL_API.G_RET_STS_ERROR;
732: Raise G_EXCEPTION_HALT_VALIDATION;
733: End If;
734: End If;
735:
733: End If;
734: End If;
735:
736: ElsIF (l_modfn_mode = 'P') Then
737: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
738: p_msg_name => G_PRODUCT_EFFECTIVITY
739: );
740: x_return_status := OKL_API.G_RET_STS_ERROR;
741: Raise G_EXCEPTION_HALT_VALIDATION;
736: ElsIF (l_modfn_mode = 'P') Then
737: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
738: p_msg_name => G_PRODUCT_EFFECTIVITY
739: );
740: x_return_status := OKL_API.G_RET_STS_ERROR;
741: Raise G_EXCEPTION_HALT_VALIDATION;
742: End If;
743:
744: x_modfn_mode := l_modfn_mode;
749: x_modfn_mode := l_modfn_mode;
750:
751: when OTHERS then
752: -- store SQL error message on message stack for caller
753: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
754: p_msg_name => G_UNEXPECTED_ERROR,
755: p_token1 => g_sqlcode_token,
756: p_token1_value => sqlcode,
757: p_token2 => g_sqlerrm_token,
770: IF pdt_dts_csr%ISOPEN Then
771: Close pdt_dts_csr;
772: End If;
773:
774: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
775: x_modfn_mode := 'N';
776: END term_modfn;
777:
778: -- Start of comments
797:
798: l_template_yn okc_k_headers_b.template_yn%TYPE;
799:
800: BEGIN
801: x_return_status := OKL_API.G_RET_STS_SUCCESS;
802: --check if contract template creation is allowed
803: IF p_chr_id is not null Then --it is an update
804: --get old value of template y/N flag
805: Open chk_template_csr(p_chr_id => p_chr_id);
811: Elsif p_chr_id is null Then
812: l_template_yn := 'N';
813: End If;
814:
815: --If p_template_yn is null OR p_template_yn = OKL_API.G_MISS_CHAR Then
816: -- l_template_yn := p_template_yn;
817: --End If;
818:
819: IF p_template_yn is Null OR p_template_yn = OKL_API.G_MISS_CHAR Then
815: --If p_template_yn is null OR p_template_yn = OKL_API.G_MISS_CHAR Then
816: -- l_template_yn := p_template_yn;
817: --End If;
818:
819: IF p_template_yn is Null OR p_template_yn = OKL_API.G_MISS_CHAR Then
820: Null;
821: Else
822: IF p_template_yn <> l_template_yn then
823: IF FND_PROFILE.VALUE('OKL_ALLOW_K_TEMPLATE_CREATE') = 'Y' Then
822: IF p_template_yn <> l_template_yn then
823: IF FND_PROFILE.VALUE('OKL_ALLOW_K_TEMPLATE_CREATE') = 'Y' Then
824: Null;
825: ElsIf FND_PROFILE.VALUE('OKL_ALLOW_K_TEMPLATE_CREATE') = 'N' Then
826: x_return_status := OKL_API.G_RET_STS_ERROR;
827: End If;
828: End If;
829: END IF;
830:
829: END IF;
830:
831: EXCEPTION
832: when OTHERS then
833: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
834: END template_create_allowed;
835:
836: -- Start of comments
837: -- Bug # 2522268
953: lx_adpv_rec OKL_TXD_ASSETS_PUB.adpv_rec_type;
954:
955:
956: Begin
957: x_return_status := OKL_API.G_RET_STS_SUCCESS;
958: l_cle_id := p_cle_id;
959: --dbms_output.put_line('outside Asset_Logical_Delete:'||to_char(l_cle_id));
960: l_fin_asst := 'N';
961: --find out if p_cle_id is financial asset line
1014: p_restricted_update => OKC_API.G_FALSE,
1015: p_clev_rec => l_clev_rec,
1016: x_clev_rec => lx_clev_rec);
1017:
1018: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1019: RAISE G_EXCEPTION_HALT_PROCESS;
1020: End If;
1021:
1022: --update asset number on txl
1035: x_msg_data => x_msg_data,
1036: p_tlpv_rec => l_tlpv_rec,
1037: x_tlpv_rec => lx_tlpv_rec);
1038: --dbms_output.put_line('after updating txl assets for asset number');
1039: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1040: RAISE G_EXCEPTION_HALT_PROCESS;
1041: End If;
1042: End IF;
1043: End Loop;
1060: x_msg_data => x_msg_data,
1061: p_adpv_rec => l_adpv_rec,
1062: x_adpv_rec => lx_adpv_rec);
1063:
1064: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1065: RAISE G_EXCEPTION_HALT_PROCESS;
1066: End If;
1067:
1068: End IF;
1121: End If;
1122: If c_asset_no%ISOPEN Then
1123: CLOSE c_asset_no;
1124: End If;
1125: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1126: END Asset_logical_Delete;
1127: --Bug # 2522268 End
1128:
1129: -- Start of comments
1178: l_clev_rec_out OKL_OKC_MIGRATION_PVT.clev_rec_type;
1179: l_deletion_type Varchar2(1);
1180:
1181: Begin
1182: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1183: l_cle_id := p_cle_id;
1184: l_deletion_type := p_deletion_type;
1185: --dbms_output.put_line('outside Link_asset_Delete:'||to_char(l_cle_id));
1186: l_fin_asst := 'N';
1211: x_msg_data => x_msg_data,
1212: p_clev_rec => l_clev_rec,
1213: x_clev_rec => l_clev_rec_out
1214: );
1215: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1216: RAISE G_EXCEPTION_HALT_PROCESS;
1217: End If;
1218:
1219: ElsIf l_deletion_type = 'P' Then
1227: x_msg_data => x_msg_data,
1228: p_line_id => l_lnk_cle_id
1229: );
1230:
1231: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1232: RAISE G_EXCEPTION_HALT_PROCESS;
1233: End If;
1234: End If;
1235: END LOOP;
1252: End If;
1253: If l_lnk_ast_csr%ISOPEN Then
1254: CLOSE l_lnk_ast_csr;
1255: End If;
1256: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1257: END Linked_Asset_Delete;
1258: --------------------------------------------------------------------------------
1259: --Start of comments
1260: -- Bug#2727161 : 11.5.9 Enhancment
1304: Procedure get_line_dates(p_clev_rec IN okl_okc_migration_pvt.clev_rec_type,
1305: x_return_status OUT NOCOPY Varchar2,
1306: x_clev_rec OUT NOCOPY okl_okc_migration_pvt.clev_rec_type) is
1307:
1308: l_return_status Varchar2(1) default OKL_API.G_RET_STS_SUCCESS;
1309: --cursor to get contract header dates
1310: cursor l_chr_csr (p_chr_id in number) is
1311: select chrb.start_date,
1312: chrb.end_date,
1361: --
1362:
1363: l_rbk_date okl_trx_contracts.DATE_TRANSACTION_OCCURRED%TYPE default Null;
1364: begin
1365: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1366: l_clev_rec := p_clev_rec;
1367:
1368: open l_chr_csr(p_chr_id => l_clev_rec.dnz_chr_id);
1369: fetch l_chr_csr into l_chr_start_date,
1397: close l_lse_csr;
1398: --If l_lty_code in ('SOLD_SERVICE','FEE','USAGE','LINK_FEE_ASSET','LINK_SERV_ASSET','LINK_USAGE_ASSET') then
1399: if l_lse_type = 'TLS' then
1400:
1401: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1402: If nvl(l_rbk_cpy,'N') = 'Y' AND nvl(l_rbk_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
1403: l_clev_rec.start_date := l_rbk_date;
1404: Else
1405: l_clev_rec.start_date := l_chr_start_date;
1398: --If l_lty_code in ('SOLD_SERVICE','FEE','USAGE','LINK_FEE_ASSET','LINK_SERV_ASSET','LINK_USAGE_ASSET') then
1399: if l_lse_type = 'TLS' then
1400:
1401: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1402: If nvl(l_rbk_cpy,'N') = 'Y' AND nvl(l_rbk_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
1403: l_clev_rec.start_date := l_rbk_date;
1404: Else
1405: l_clev_rec.start_date := l_chr_start_date;
1406: End If;
1404: Else
1405: l_clev_rec.start_date := l_chr_start_date;
1406: End If;
1407: End If;
1408: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1409: l_clev_rec.end_date := l_chr_end_date;
1410: End If;
1411: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1412: l_clev_rec.currency_code := l_chr_curr_code;
1407: End If;
1408: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1409: l_clev_rec.end_date := l_chr_end_date;
1410: End If;
1411: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1412: l_clev_rec.currency_code := l_chr_curr_code;
1413: End If;
1414: If nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1415: l_clev_rec.sts_code := l_chr_sts_code;
1410: End If;
1411: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1412: l_clev_rec.currency_code := l_chr_curr_code;
1413: End If;
1414: If nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1415: l_clev_rec.sts_code := l_chr_sts_code;
1416: End If;
1417:
1418: elsif l_lse_type = 'SLS' then
1421: l_cle_end_date,
1422: l_cle_curr_code,
1423: l_cle_sts_code;
1424: close l_cle_csr;
1425: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1426: l_clev_rec.start_date := l_cle_start_date;
1427: End If;
1428: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1429: l_clev_rec.end_date := l_cle_end_date;
1424: close l_cle_csr;
1425: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1426: l_clev_rec.start_date := l_cle_start_date;
1427: End If;
1428: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1429: l_clev_rec.end_date := l_cle_end_date;
1430: End If;
1431: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1432: l_clev_rec.currency_code := l_cle_curr_code;
1427: End If;
1428: If nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
1429: l_clev_rec.end_date := l_cle_end_date;
1430: End If;
1431: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1432: l_clev_rec.currency_code := l_cle_curr_code;
1433: End If;
1434: If nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1435: l_clev_rec.sts_code := l_cle_sts_code;
1430: End If;
1431: If nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1432: l_clev_rec.currency_code := l_cle_curr_code;
1433: End If;
1434: If nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
1435: l_clev_rec.sts_code := l_cle_sts_code;
1436: End If;
1437:
1438: end if;
1453: end if;
1454: if rbk_date_csr%ISOPEN then
1455: close rbk_date_csr;
1456: end if;
1457: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1458: end get_line_dates;
1459: --End Bug# 3143522 - Subsidies - extra enhancement to auto-populate line dates
1460: --------------------------------------------------------------------------------
1461: --Bug# 3124577 : Procedure Create_OKC_CURRENCY_RULE is removed for
1522:
1523: l_rbk_cpy Varchar2(1) default 'N';
1524:
1525: BEGIN
1526: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1527: l_chrv_rec := p_chrv_rec;
1528: l_khrv_rec := p_khrv_rec;
1529:
1530: --Check if contract is rebook copy
1541: Else
1542: If l_chrv_rec.currency_code <> l_orig_curr_code OR
1543: l_khrv_rec.currency_conversion_type <> l_orig_curr_conv_type OR
1544: l_khrv_rec.currency_conversion_rate <> l_orig_curr_conv_rate Then
1545: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1546: p_msg_name => G_REBOOK_CURRENCY_MODFN);
1547: x_return_status := OKL_API.G_RET_STS_ERROR;
1548: raise currency_validation_failed;
1549: Else
1543: l_khrv_rec.currency_conversion_type <> l_orig_curr_conv_type OR
1544: l_khrv_rec.currency_conversion_rate <> l_orig_curr_conv_rate Then
1545: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1546: p_msg_name => G_REBOOK_CURRENCY_MODFN);
1547: x_return_status := OKL_API.G_RET_STS_ERROR;
1548: raise currency_validation_failed;
1549: Else
1550: --do not allow change in currency conversion date
1551: l_khrv_rec.currency_conversion_date := l_orig_curr_conv_date;
1562: --dbms_output.put_line('Trans Curr Type: '|| p_khrv_rec.currency_conversion_type);
1563:
1564: IF (l_chrv_rec.currency_code IS NULL
1565: OR
1566: l_chrv_rec.currency_code = OKL_API.G_MISS_CHAR) THEN -- take functional currency
1567: l_chrv_rec.currency_code := l_func_currency;
1568: l_khrv_rec.currency_conversion_type := NULL;
1569: l_khrv_rec.currency_conversion_rate := NULL;
1570: l_khrv_rec.currency_conversion_date := NULL;
1826: l_rep_pdt_parameter_rec okl_setupproducts_pub.pdt_parameters_rec_type;
1827: --Bug# 3548044
1828:
1829: Begin
1830: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1831: l_pdt_id := p_pdt_id;
1832: l_pdt_date := p_chrv_rec.start_date;
1833: l_scs_code := p_chrv_rec.scs_code;
1834: l_pdtv_rec.id := l_pdt_id;
1843: If ger_orig_pdt_csr%NOTFOUND then
1844: null;
1845: Else
1846: If l_orig_pdt_id <> l_pdt_id Then
1847: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1848: p_msg_name => G_REBOOK_PRODUCT_MODFN);
1849: x_return_status := OKL_API.G_RET_STS_ERROR;
1850: raise l_error_condition;
1851: End If;
1845: Else
1846: If l_orig_pdt_id <> l_pdt_id Then
1847: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1848: p_msg_name => G_REBOOK_PRODUCT_MODFN);
1849: x_return_status := OKL_API.G_RET_STS_ERROR;
1850: raise l_error_condition;
1851: End If;
1852: End If;
1853: End If;
1862: p_product_date => l_pdt_date,
1863: p_pdt_parameter_rec => l_pdt_parameter_rec);
1864:
1865: --product param fetch returns errors
1866: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
1867: Open get_pdtname_csr(p_pdt_id);
1868: Fetch get_pdtname_csr into l_pdt_name;
1869: If get_pdtname_csr%notfound then
1870: null;
1875: p_app_name => G_APP_NAME,
1876: p_msg_name => G_PROD_PARAMS_NOT_FOUND,
1877: p_token1 => G_PROD_NAME_TOKEN ,
1878: p_token1_value => l_pdt_name);
1879: x_return_status := OKL_API.G_RET_STS_ERROR;
1880: raise l_error_condition;
1881: End If;
1882:
1883: --product subcalss is null
1881: End If;
1882:
1883: --product subcalss is null
1884: If l_pdt_parameter_rec.product_subclass is Null or
1885: l_pdt_parameter_rec.product_subclass = OKL_API.G_MISS_CHAR Then
1886: --message for missing product subclass
1887: Open get_pdtname_csr(p_pdt_id);
1888: Fetch get_pdtname_csr into l_pdt_name;
1889: If get_pdtname_csr%notfound then
1896: p_token1 => G_PROD_PARAM_TOKEN,
1897: p_token1_value => 'Product Subclass',
1898: p_token2 => G_PROD_NAME_TOKEN,
1899: p_token2_value => l_pdt_name);
1900: x_return_status := OKL_API.G_RET_STS_ERROR;
1901: RAISE l_error_condition;
1902: End If;
1903:
1904: --product tax owner is null
1902: End If;
1903:
1904: --product tax owner is null
1905: If l_pdt_parameter_rec.tax_owner is Null or
1906: l_pdt_parameter_rec.tax_owner = OKL_API.G_MISS_CHAR Then
1907: If l_scs_code in ('LEASE','QUOTE') then
1908: --message for missing product tax owner
1909: Open get_pdtname_csr(p_pdt_id);
1910: Fetch get_pdtname_csr into l_pdt_name;
1917: p_token1 => G_PROD_PARAM_TOKEN,
1918: p_token1_value => 'Tax Owner',
1919: p_token2 => G_PROD_NAME_TOKEN,
1920: p_token2_value => l_pdt_name);
1921: x_return_status := OKL_API.G_RET_STS_ERROR;
1922: RAISE l_error_condition;
1923: -- tax owner may not be a mandatory quality
1924: End If;
1925: End If;
1925: End If;
1926:
1927: --product deal type is null
1928: If l_pdt_parameter_rec.deal_type is Null or
1929: l_pdt_parameter_rec.deal_type = OKL_API.G_MISS_CHAR Then
1930: If l_scs_code in ('LEASE','QUOTE') then
1931: --message for missing product tax owner
1932: Open get_pdtname_csr(p_pdt_id);
1933: Fetch get_pdtname_csr into l_pdt_name;
1940: p_token1 => G_PROD_PARAM_TOKEN,
1941: p_token1_value => 'Book Classification',
1942: p_token2 => G_PROD_NAME_TOKEN,
1943: p_token2_value => l_pdt_name);
1944: x_return_status := OKL_API.G_RET_STS_ERROR;
1945: RAISE l_error_condition;
1946: -- tax owner may not be a mandatory quality
1947: End If;
1948: null; -- deal type may not be a mandatory pdt quality
1962: p_token1 => G_CONTRACT_SUBCLASS_TOKEN,
1963: p_token1_value => l_scs_code,
1964: p_token2 => G_PROD_SUBCALSS_TOKEN,
1965: p_token2_value => l_pdt_parameter_rec.product_subclass);
1966: x_return_status := OKL_API.G_RET_STS_ERROR;
1967: RAISE l_error_condition;
1968: ElsIf l_scs_code in ('INVESTOR') and
1969: l_pdt_parameter_rec.product_subclass <> 'INVESTOR' then
1970: --Product and contract subclassess do not match
1978: p_token1 => G_CONTRACT_SUBCLASS_TOKEN,
1979: p_token1_value => l_scs_code,
1980: p_token2 => G_PROD_SUBCALSS_TOKEN,
1981: p_token2_value => l_pdt_parameter_rec.product_subclass);
1982: x_return_status := OKL_API.G_RET_STS_ERROR;
1983: RAISE l_error_condition;
1984: End If;
1985:
1986: If l_scs_code in ('LEASE','QUOTE') Then
2010: x_msg_data => x_msg_data,
2011: p_rgpv_rec => l_latown_rgpv_rec,
2012: x_rgpv_rec => lx_latown_rgpv_rec);
2013:
2014: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
2015: raise l_error_condition;
2016: End If;
2017:
2018: l_town_rgp_id := lx_latown_rgpv_rec.id;
2044: x_msg_data => x_msg_data,
2045: p_rulv_rec => l_latown_rulv_rec,
2046: x_rulv_rec => lx_latown_rulv_rec);
2047:
2048: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
2049: raise l_error_condition;
2050: End If;
2051:
2052:
2065: x_msg_data => x_msg_data,
2066: p_rulv_rec => l_latown_rulv_rec,
2067: x_rulv_rec => lx_latown_rulv_rec);
2068:
2069: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) Then
2070: raise l_error_condition;
2071: End If;
2072: End If;
2073:
2086: null;
2087: End If;
2088: close l_curr_pdt_csr;
2089:
2090: If nvl(l_curr_pdt_rec.pdt_id, okl_api.g_miss_num) <> okl_api.g_miss_num AND
2091: l_curr_pdt_rec.pdt_id <> l_pdt_id AND
2092: l_curr_pdt_rec.scs_code = 'LEASE' AND
2093: nvl(l_curr_pdt_rec.orig_system_source_code,okl_api.g_miss_char) not in ('OKL_REBOOK','OKL_RELEASE') then
2094: l_release_asset_yn := 'N';
2089:
2090: If nvl(l_curr_pdt_rec.pdt_id, okl_api.g_miss_num) <> okl_api.g_miss_num AND
2091: l_curr_pdt_rec.pdt_id <> l_pdt_id AND
2092: l_curr_pdt_rec.scs_code = 'LEASE' AND
2093: nvl(l_curr_pdt_rec.orig_system_source_code,okl_api.g_miss_char) not in ('OKL_REBOOK','OKL_RELEASE') then
2094: l_release_asset_yn := 'N';
2095: Open l_release_asset_yn_csr(p_chr_id => p_chrv_rec.id);
2096: Fetch l_release_asset_yn_csr into l_release_Asset_yn;
2097: If l_release_asset_yn_csr%NOTFOUND then
2106: --Bug# 3621663 :
2107: l_Multi_GAAP_YN := 'N';
2108: If l_rbk_cpy = 'N' then
2109: --decide whether the reporting product needs multigaap asset book
2110: If nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2111: l_rep_pdtv_rec.id := l_pdt_parameter_rec.reporting_pdt_id;
2112: --okl_debug_pub.logmessage('AKP:0.l_rep_pdtv_rec.id = ' || l_rep_pdtv_rec.id);
2113: l_pdt_date := p_chrv_rec.start_date;
2114: --okl_debug_pub.logmessage('AKP:0.l_pdt_date = ' || l_pdt_date);
2122: p_pdtv_rec => l_rep_pdtv_rec,
2123: p_product_date => l_pdt_date,
2124: p_pdt_parameter_rec => l_rep_pdt_parameter_rec);
2125:
2126: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2127:
2128: -- 7610725
2129: /*If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2130: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2125:
2126: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2127:
2128: -- 7610725
2129: /*If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2130: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2131: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2132: l_Multi_GAAP_YN := 'Y';
2133: End If;
2126: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2127:
2128: -- 7610725
2129: /*If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2130: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2131: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2132: l_Multi_GAAP_YN := 'Y';
2133: End If;
2134:
2127:
2128: -- 7610725
2129: /*If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2130: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2131: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2132: l_Multi_GAAP_YN := 'Y';
2133: End If;
2134:
2135: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2131: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2132: l_Multi_GAAP_YN := 'Y';
2133: End If;
2134:
2135: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2136: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2137: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2138: l_Multi_GAAP_YN := 'Y';
2139: End If;
2132: l_Multi_GAAP_YN := 'Y';
2133: End If;
2134:
2135: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2136: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2137: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2138: l_Multi_GAAP_YN := 'Y';
2139: End If;
2140:
2133: End If;
2134:
2135: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2136: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2137: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2138: l_Multi_GAAP_YN := 'Y';
2139: End If;
2140:
2141: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2137: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSOR' Then
2138: l_Multi_GAAP_YN := 'Y';
2139: End If;
2140:
2141: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2142: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2143: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2144: l_Multi_GAAP_YN := 'Y';
2145: End If;
2138: l_Multi_GAAP_YN := 'Y';
2139: End If;
2140:
2141: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2142: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2143: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2144: l_Multi_GAAP_YN := 'Y';
2145: End If;
2146:
2139: End If;
2140:
2141: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) in ('LEASEDF','LEASEST') and
2142: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2143: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2144: l_Multi_GAAP_YN := 'Y';
2145: End If;
2146:
2147: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LOAN' and
2143: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2144: l_Multi_GAAP_YN := 'Y';
2145: End If;
2146:
2147: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LOAN' and
2148: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2149: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2150: l_Multi_GAAP_YN := 'Y';
2151: End If; */
2144: l_Multi_GAAP_YN := 'Y';
2145: End If;
2146:
2147: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LOAN' and
2148: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2149: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2150: l_Multi_GAAP_YN := 'Y';
2151: End If; */
2152:
2145: End If;
2146:
2147: If nvl(l_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LOAN' and
2148: nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR) = 'LEASEOP' and
2149: nvl(l_pdt_parameter_rec.tax_owner,OKL_API.G_MISS_CHAR) = 'LESSEE' Then
2150: l_Multi_GAAP_YN := 'Y';
2151: End If; */
2152:
2153: -- 7610725
2152:
2153: -- 7610725
2154: --okl_debug_pub.logmessage('AKP:1.l_rep_pdt_parameter_rec.id = ' || l_rep_pdt_parameter_rec.id);
2155: --okl_debug_pub.logmessage('AKP:2.l_rep_pdt_parameter_rec.deal_type = ' || l_rep_pdt_parameter_rec.deal_type);
2156: If (nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR)
2157: <> OKL_API.G_MISS_CHAR )
2158: Then
2159: l_Multi_GAAP_YN := 'Y';
2160: End If;
2153: -- 7610725
2154: --okl_debug_pub.logmessage('AKP:1.l_rep_pdt_parameter_rec.id = ' || l_rep_pdt_parameter_rec.id);
2155: --okl_debug_pub.logmessage('AKP:2.l_rep_pdt_parameter_rec.deal_type = ' || l_rep_pdt_parameter_rec.deal_type);
2156: If (nvl(l_rep_pdt_parameter_rec.deal_type,OKL_API.G_MISS_CHAR)
2157: <> OKL_API.G_MISS_CHAR )
2158: Then
2159: l_Multi_GAAP_YN := 'Y';
2160: End If;
2161:
2166: --Bug# 3621663
2167:
2168: --okl_debug_pub.logmessage('AKP:3.l_pdt_parameter_rec.reporting_pdt_id =' || l_pdt_parameter_rec.reporting_pdt_id);
2169: --okl_debug_pub.logmessage('AKP:4.l_Multi_GAAP_YN= ' || l_Multi_GAAP_YN);
2170: If (nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM)
2171: OR
2172: (nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
2173: and l_Multi_GAAP_YN = 'N') Then
2174: If l_rbk_cpy = 'N' then
2168: --okl_debug_pub.logmessage('AKP:3.l_pdt_parameter_rec.reporting_pdt_id =' || l_pdt_parameter_rec.reporting_pdt_id);
2169: --okl_debug_pub.logmessage('AKP:4.l_Multi_GAAP_YN= ' || l_Multi_GAAP_YN);
2170: If (nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM)
2171: OR
2172: (nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
2173: and l_Multi_GAAP_YN = 'N') Then
2174: If l_rbk_cpy = 'N' then
2175: l_curr_pdtv_rec.id := l_curr_pdt_rec.pdt_id;
2176: l_pdt_date := p_chrv_rec.start_date;
2183: p_pdtv_rec => l_curr_pdtv_rec,
2184: p_product_date => l_pdt_date,
2185: p_pdt_parameter_rec => l_curr_pdt_parameter_rec);
2186:
2187: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2188: --okl_debug_pub.logmessage('AKP:5.l_curr_pdt_parameter_rec.id = ' || l_curr_pdt_parameter_rec.id);
2189: If nvl(l_curr_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2190: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
2191: i := 0;
2185: p_pdt_parameter_rec => l_curr_pdt_parameter_rec);
2186:
2187: If x_return_status = OKL_API.G_RET_STS_SUCCESS then
2188: --okl_debug_pub.logmessage('AKP:5.l_curr_pdt_parameter_rec.id = ' || l_curr_pdt_parameter_rec.id);
2189: If nvl(l_curr_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2190: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
2191: i := 0;
2192: open l_txd_csr (p_book_type_code => l_rep_book_type,
2193: p_chr_id => p_chrv_rec.id);
2200: close l_txd_csr;
2201:
2202: If l_adpv_tbl.COUNT <> 0 then
2203: --Bug# 3631094
2204: OKL_API.set_message(p_app_name => G_APP_NAME,
2205: p_msg_name => 'OKL_LA_MULTIGAAP_ASSET_BOOK');
2206: x_return_status := OKL_API.G_RET_STS_ERROR;
2207: raise l_error_condition;
2208: End If;
2202: If l_adpv_tbl.COUNT <> 0 then
2203: --Bug# 3631094
2204: OKL_API.set_message(p_app_name => G_APP_NAME,
2205: p_msg_name => 'OKL_LA_MULTIGAAP_ASSET_BOOK');
2206: x_return_status := OKL_API.G_RET_STS_ERROR;
2207: raise l_error_condition;
2208: End If;
2209:
2210: End If; -- current reporting product is not null
2223:
2224: -----------------
2225: --Bug# 3180583
2226: -----------------
2227: If nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
2228: x_multigaap_yn := 'N';
2229: Elsif nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2230: x_multigaap_yn := 'Y';
2231: End If;
2225: --Bug# 3180583
2226: -----------------
2227: If nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
2228: x_multigaap_yn := 'N';
2229: Elsif nvl(l_pdt_parameter_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2230: x_multigaap_yn := 'Y';
2231: End If;
2232: -----------------
2233: --Bug# 3180583
2238: When l_error_condition Then
2239: Return;
2240:
2241: When Others Then
2242: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2243: End validate_product;
2244: --------------------------------------------------------------------------------
2245: -- Start of comments
2246: --
2279: l_pdtv_rec Okl_SetupProducts_Pub.pdtv_rec_type;
2280: l_pdt_parameter_rec Okl_setupproducts_pub.pdt_parameters_rec_type;
2281: l_exception_halt_process Exception;
2282:
2283: l_return_status Varchar2(1) default OKL_API.G_RET_STS_SUCCESS;
2284: l_msg_count Number;
2285: l_msg_data Varchar2(3000);
2286:
2287: begin
2284: l_msg_count Number;
2285: l_msg_data Varchar2(3000);
2286:
2287: begin
2288: l_return_status := OKL_API.G_RET_STS_SUCCESS;
2289: l_is_orig_pdt_old := 'N';
2290:
2291: Open get_pdt_csr (orig_chr_id => p_orig_chr_id);
2292: Fetch get_pdt_csr into l_pdt_id, l_start_date;
2298: If (l_pdt_id = p_pdt_id) Then
2299: l_pdtv_rec.id := l_pdt_id;
2300: l_no_data_found := TRUE;
2301: Okl_SetupProducts_Pub.GetPdt_Parameters (p_api_version => 1.0,
2302: p_init_msg_list => OKL_API.G_FALSE,
2303: x_return_status => l_return_status,
2304: x_msg_count => l_msg_count,
2305: x_msg_data => l_msg_data,
2306: x_no_data_found => l_no_data_found,
2308: p_product_date => l_start_date,
2309: p_pdt_parameter_rec => l_pdt_parameter_rec);
2310:
2311: --product param do not exist
2312: If l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2313: l_is_orig_pdt_old := 'Y';
2314: Raise l_exception_halt_process;
2315: End If;
2316:
2315: End If;
2316:
2317: --product subcalss is null
2318: If l_pdt_parameter_rec.product_subclass is Null or
2319: l_pdt_parameter_rec.product_subclass = OKL_API.G_MISS_CHAR Then
2320: l_is_orig_pdt_old := 'Y';
2321: Raise l_exception_halt_process;
2322: End If;
2323:
2322: End If;
2323:
2324: --product tax owner is null
2325: If l_pdt_parameter_rec.tax_owner is Null or
2326: l_pdt_parameter_rec.tax_owner = OKL_API.G_MISS_CHAR Then
2327: l_is_orig_pdt_old := 'Y';
2328: Raise l_exception_halt_process;
2329: End If;
2330:
2329: End If;
2330:
2331: --product deal type is null
2332: If l_pdt_parameter_rec.deal_type is Null or
2333: l_pdt_parameter_rec.deal_type = OKL_API.G_MISS_CHAR Then
2334: l_is_orig_pdt_old := 'Y';
2335: Raise l_exception_halt_process;
2336: End If;
2337: End If;
2373: l_khrv_rec khrv_rec_type;
2374:
2375: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
2376: l_api_version CONSTANT NUMBER := 1.0;
2377: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2378: --Bug # : 11.5.9 Enhancement - Multi Currency changes
2379:
2380: l_curr_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
2381: l_curr_khrv_rec khrv_rec_type;
2410: -- call START_ACTIVITY to create savepoint, check compatibility
2411: -- and initialize message list
2412:
2413:
2414: l_return_status := OKL_API.START_ACTIVITY(
2415: p_api_name => l_api_name,
2416: p_pkg_name => g_pkg_name,
2417: p_init_msg_list => p_init_msg_list,
2418: l_api_version => l_api_version,
2420: p_api_type => g_api_type,
2421: x_return_status => x_return_status);
2422:
2423: -- check if activity started successfully
2424: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2425: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2426: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2427: raise OKL_API.G_EXCEPTION_ERROR;
2428: End If;
2421: x_return_status => x_return_status);
2422:
2423: -- check if activity started successfully
2424: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2425: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2426: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2427: raise OKL_API.G_EXCEPTION_ERROR;
2428: End If;
2429:
2422:
2423: -- check if activity started successfully
2424: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2425: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2426: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2427: raise OKL_API.G_EXCEPTION_ERROR;
2428: End If;
2429:
2430: l_khrv_rec := p_khrv_rec;
2423: -- check if activity started successfully
2424: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2425: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2426: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2427: raise OKL_API.G_EXCEPTION_ERROR;
2428: End If;
2429:
2430: l_khrv_rec := p_khrv_rec;
2431: l_chrv_rec := p_chrv_rec;
2442: --dbms_output.put_line('Set org context');
2443:
2444: --Bug# 3486065
2445: l_authoring_org_profile_value := mo_global.get_current_org_id();
2446: If NVL(l_authoring_org_profile_value,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR Then
2447: open profile_option_csr(p_profile_option_name => 'ORG_ID');
2448: fetch profile_option_csr into l_authoring_org_profile_name;
2449: close profile_option_csr;
2450:
2447: open profile_option_csr(p_profile_option_name => 'ORG_ID');
2448: fetch profile_option_csr into l_authoring_org_profile_name;
2449: close profile_option_csr;
2450:
2451: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2452: p_msg_name => 'OKL_NO_SYSTEM_PROFILE',
2453: p_token1 => 'OKL_SYS_PROFILE_NAME',
2454: p_token1_value => l_authoring_org_profile_name);
2455: raise OKL_API.G_EXCEPTION_ERROR;
2451: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2452: p_msg_name => 'OKL_NO_SYSTEM_PROFILE',
2453: p_token1 => 'OKL_SYS_PROFILE_NAME',
2454: p_token1_value => l_authoring_org_profile_name);
2455: raise OKL_API.G_EXCEPTION_ERROR;
2456: End If;
2457:
2458: l_inventory_org_profile_value := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_ITEM_INV_ORG_ID);
2459:
2458: l_inventory_org_profile_value := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_ITEM_INV_ORG_ID);
2459:
2460: -- removed by dcshanmu to fix bug 5378114
2461:
2462: If NVL(l_inventory_org_profile_value,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR Then
2463: /*open profile_option_csr(p_profile_option_name => 'OKL_K_ITEMS_INVENTORY_ORG');
2464: fetch profile_option_csr into l_inventory_org_profile_name;
2465: close profile_option_csr;*/
2466:
2463: /*open profile_option_csr(p_profile_option_name => 'OKL_K_ITEMS_INVENTORY_ORG');
2464: fetch profile_option_csr into l_inventory_org_profile_name;
2465: close profile_option_csr;*/
2466:
2467: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2468: p_msg_name => 'OKL_NO_INVENTORY_ORG');
2469: raise OKL_API.G_EXCEPTION_ERROR;
2470: End If;
2471:
2465: close profile_option_csr;*/
2466:
2467: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2468: p_msg_name => 'OKL_NO_INVENTORY_ORG');
2469: raise OKL_API.G_EXCEPTION_ERROR;
2470: End If;
2471:
2472: OKL_CONTEXT.SET_OKC_ORG_CONTEXT(l_chrv_rec.authoring_org_id,l_chrv_rec.inv_organization_id);
2473:
2477: template_create_allowed(p_chr_id => null,
2478: p_template_yn => l_chrv_rec.template_yn,
2479: x_return_status => x_return_status);
2480:
2481: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2482: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2483: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2484: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2485: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2478: p_template_yn => l_chrv_rec.template_yn,
2479: x_return_status => x_return_status);
2480:
2481: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2482: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2483: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2484: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2485: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2486: raise OKL_API.G_EXCEPTION_ERROR;
2479: x_return_status => x_return_status);
2480:
2481: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2482: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2483: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2484: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2485: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2486: raise OKL_API.G_EXCEPTION_ERROR;
2487: End If;
2480:
2481: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2482: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2483: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2484: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2485: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2486: raise OKL_API.G_EXCEPTION_ERROR;
2487: End If;
2488:
2482: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2483: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2484: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2485: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
2486: raise OKL_API.G_EXCEPTION_ERROR;
2487: End If;
2488:
2489: ----------------------------------------------------------------------------
2490: --Bug# : 11.5.9 Enhancement Multi Currency
2498: p_khrv_rec => l_khrv_rec,
2499: x_chrv_rec => l_curr_chrv_rec,
2500: x_khrv_rec => l_curr_khrv_rec);
2501:
2502: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2503: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2505: raise OKL_API.G_EXCEPTION_ERROR;
2506: End If;
2499: x_chrv_rec => l_curr_chrv_rec,
2500: x_khrv_rec => l_curr_khrv_rec);
2501:
2502: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2503: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2505: raise OKL_API.G_EXCEPTION_ERROR;
2506: End If;
2507: l_chrv_rec := l_curr_chrv_rec;
2500: x_khrv_rec => l_curr_khrv_rec);
2501:
2502: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2503: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2505: raise OKL_API.G_EXCEPTION_ERROR;
2506: End If;
2507: l_chrv_rec := l_curr_chrv_rec;
2508: l_khrv_rec := l_curr_khrv_rec;
2501:
2502: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2503: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
2505: raise OKL_API.G_EXCEPTION_ERROR;
2506: End If;
2507: l_chrv_rec := l_curr_chrv_rec;
2508: l_khrv_rec := l_curr_khrv_rec;
2509: ----------------------------------------------------------------------------
2509: ----------------------------------------------------------------------------
2510: --Bug# : 11.5.9 Enhancement Multi Currency
2511: ----------------------------------------------------------------------------
2512: --Added by dpsingh
2513: IF (l_khrv_rec.legal_entity_id IS NOT NULL AND l_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) THEN
2514: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
2515: p_chrv_rec => l_chrv_rec,
2516: p_mode => 'CR');
2517: ELSE
2515: p_chrv_rec => l_chrv_rec,
2516: p_mode => 'CR');
2517: ELSE
2518: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
2519: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
2520: RAISE OKL_API.G_EXCEPTION_ERROR;
2521: END IF;
2522: END IF;
2523:
2516: p_mode => 'CR');
2517: ELSE
2518: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
2519: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
2520: RAISE OKL_API.G_EXCEPTION_ERROR;
2521: END IF;
2522: END IF;
2523:
2524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2520: RAISE OKL_API.G_EXCEPTION_ERROR;
2521: END IF;
2522: END IF;
2523:
2524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2521: END IF;
2522: END IF;
2523:
2524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: --Added by dpsingh end
2522: END IF;
2523:
2524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: --Added by dpsingh end
2530:
2523:
2524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: --Added by dpsingh end
2530:
2531: --dbms_output.put_line('Create contract header');
2544: x_chrv_rec => x_chrv_rec);
2545:
2546:
2547: -- check return status
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: raise OKL_API.G_EXCEPTION_ERROR;
2552: End If;
2545:
2546:
2547: -- check return status
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: raise OKL_API.G_EXCEPTION_ERROR;
2552: End If;
2553:
2546:
2547: -- check return status
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: raise OKL_API.G_EXCEPTION_ERROR;
2552: End If;
2553:
2554:
2547: -- check return status
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: raise OKL_API.G_EXCEPTION_ERROR;
2552: End If;
2553:
2554:
2555: /*Bug# 3124577 : Commented for 11.5.10 Rule Migration-------------------------------------------
2560: -----------------------------------------------------------Bug# 3124577 11.5.10: Rule Migration*/
2561: ----------------------------------------------------------------------------
2562: --Bug# : 11.5.9 Product validations
2563: ----------------------------------------------------------------------------
2564: If p_khrv_rec.pdt_id is null OR p_khrv_rec.pdt_id = OKL_API.G_MISS_NUM Then
2565: Null;
2566: Else
2567:
2568: --Begin (Bug# 2730633)
2568: --Begin (Bug# 2730633)
2569: --Fix for not to validate for copied contracts being copied from contracts
2570: --which have 11.5.8 products against them
2571: l_bypass_pdt_validation := 'N';
2572: If nvl(x_chrv_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR AND
2573: nvl(x_chrv_rec.orig_system_id1,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM Then
2574: l_bypass_pdt_validation := Is_Orig_Pdt_old(p_orig_chr_id => x_chrv_rec.orig_system_id1,
2575: p_pdt_id => p_khrv_rec.pdt_id);
2576: End If;
2569: --Fix for not to validate for copied contracts being copied from contracts
2570: --which have 11.5.8 products against them
2571: l_bypass_pdt_validation := 'N';
2572: If nvl(x_chrv_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR AND
2573: nvl(x_chrv_rec.orig_system_id1,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM Then
2574: l_bypass_pdt_validation := Is_Orig_Pdt_old(p_orig_chr_id => x_chrv_rec.orig_system_id1,
2575: p_pdt_id => p_khrv_rec.pdt_id);
2576: End If;
2577: --Fix for not to validate for copied contracts being copied from contracts
2591: --Bug# 3180583
2592: x_multigaap_yn => l_multigaap_yn);
2593:
2594: -- check return status
2595: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2596: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2597: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2598: raise OKL_API.G_EXCEPTION_ERROR;
2599: End If;
2592: x_multigaap_yn => l_multigaap_yn);
2593:
2594: -- check return status
2595: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2596: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2597: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2598: raise OKL_API.G_EXCEPTION_ERROR;
2599: End If;
2600:
2593:
2594: -- check return status
2595: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2596: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2597: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2598: raise OKL_API.G_EXCEPTION_ERROR;
2599: End If;
2600:
2601: If l_chrv_rec.scs_code in ('LEASE','QUOTE') Then
2594: -- check return status
2595: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2596: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2597: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2598: raise OKL_API.G_EXCEPTION_ERROR;
2599: End If;
2600:
2601: If l_chrv_rec.scs_code in ('LEASE','QUOTE') Then
2602: --Bug#2809358
2603: --If l_khrv_rec.deal_type <> l_pdt_deal_type Then
2604: If nvl(l_khrv_rec.deal_type,'DEALTYPE') <> l_pdt_deal_type Then
2605: --If l_pdt_deal_type is not null OR
2606: If l_pdt_deal_type is not null AND
2607: l_pdt_deal_type <> OKL_API.G_MISS_CHAR Then
2608: l_khrv_rec.deal_type := l_pdt_deal_type;
2609: End If;
2610: End If;
2611:
2609: End If;
2610: End If;
2611:
2612: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
2613: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
2614: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2615: p_msg_name => 'OKL_NULL_DEAL_TYPE');
2616: x_return_status := OKL_API.G_RET_STS_ERROR;
2617: raise OKL_API.G_EXCEPTION_ERROR;
2610: End If;
2611:
2612: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
2613: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
2614: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2615: p_msg_name => 'OKL_NULL_DEAL_TYPE');
2616: x_return_status := OKL_API.G_RET_STS_ERROR;
2617: raise OKL_API.G_EXCEPTION_ERROR;
2618: End If;
2612: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
2613: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
2614: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2615: p_msg_name => 'OKL_NULL_DEAL_TYPE');
2616: x_return_status := OKL_API.G_RET_STS_ERROR;
2617: raise OKL_API.G_EXCEPTION_ERROR;
2618: End If;
2619: --Bug# 3379294: End
2620:
2613: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
2614: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2615: p_msg_name => 'OKL_NULL_DEAL_TYPE');
2616: x_return_status := OKL_API.G_RET_STS_ERROR;
2617: raise OKL_API.G_EXCEPTION_ERROR;
2618: End If;
2619: --Bug# 3379294: End
2620:
2621: End If;
2627:
2628: --Bug# 2819869: Generate accrual and assignable hould be 'Y' by default
2629: If x_chrv_rec.scs_code = 'LEASE' Then
2630: If l_khrv_rec.generate_accrual_yn is NULL OR
2631: l_khrv_rec.generate_accrual_yn = OKL_API.G_MISS_CHAR then
2632: l_khrv_rec.generate_accrual_yn := 'Y';
2633: End IF;
2634: If l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN is NULL OR
2635: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKL_API.G_MISS_CHAR then
2631: l_khrv_rec.generate_accrual_yn = OKL_API.G_MISS_CHAR then
2632: l_khrv_rec.generate_accrual_yn := 'Y';
2633: End IF;
2634: If l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN is NULL OR
2635: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKL_API.G_MISS_CHAR then
2636: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN := 'N';
2637: End IF;
2638: If l_khrv_rec.assignable_yn is NULL OR
2639: l_khrv_rec.assignable_yn = OKL_API.G_MISS_CHAR then
2635: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN = OKL_API.G_MISS_CHAR then
2636: l_khrv_rec.GENERATE_ACCRUAL_OVERRIDE_YN := 'N';
2637: End IF;
2638: If l_khrv_rec.assignable_yn is NULL OR
2639: l_khrv_rec.assignable_yn = OKL_API.G_MISS_CHAR then
2640: l_khrv_rec.assignable_yn := 'Y';
2641: End IF;
2642: End If;
2643: --End Bug# 2819869 : Generate accrual and assignable should be 'Y' by default
2656: x_msg_data => x_msg_data,
2657: p_khrv_rec => l_khrv_rec,
2658: x_khrv_rec => x_khrv_rec);
2659:
2660: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2661: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2662: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2663: raise OKL_API.G_EXCEPTION_ERROR;
2664: End If;
2657: p_khrv_rec => l_khrv_rec,
2658: x_khrv_rec => x_khrv_rec);
2659:
2660: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2661: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2662: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2663: raise OKL_API.G_EXCEPTION_ERROR;
2664: End If;
2665:
2658: x_khrv_rec => x_khrv_rec);
2659:
2660: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2661: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2662: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2663: raise OKL_API.G_EXCEPTION_ERROR;
2664: End If;
2665:
2666: --dbms_output.put_line('I am through');
2659:
2660: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2661: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2662: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2663: raise OKL_API.G_EXCEPTION_ERROR;
2664: End If;
2665:
2666: --dbms_output.put_line('I am through');
2667:
2696: p_chr_id => l_khrv_rec.ID,
2697: x_rulv_tbl => x_rulv_tbl
2698: );
2699:
2700: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2701: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2702: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2703: raise OKL_API.G_EXCEPTION_ERROR;
2704: End If;
2697: x_rulv_tbl => x_rulv_tbl
2698: );
2699:
2700: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2701: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2702: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2703: raise OKL_API.G_EXCEPTION_ERROR;
2704: End If;
2705:
2698: );
2699:
2700: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2701: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2702: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2703: raise OKL_API.G_EXCEPTION_ERROR;
2704: End If;
2705:
2706: END IF;
2699:
2700: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2701: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2702: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2703: raise OKL_API.G_EXCEPTION_ERROR;
2704: End If;
2705:
2706: END IF;
2707:
2704: End If;
2705:
2706: END IF;
2707:
2708: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2709: x_msg_data => x_msg_data);
2710: EXCEPTION
2711: when OKL_API.G_EXCEPTION_ERROR then
2712: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2707:
2708: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2709: x_msg_data => x_msg_data);
2710: EXCEPTION
2711: when OKL_API.G_EXCEPTION_ERROR then
2712: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2713: p_api_name => l_api_name,
2714: p_pkg_name => g_pkg_name,
2715: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2708: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2709: x_msg_data => x_msg_data);
2710: EXCEPTION
2711: when OKL_API.G_EXCEPTION_ERROR then
2712: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2713: p_api_name => l_api_name,
2714: p_pkg_name => g_pkg_name,
2715: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2716: x_msg_count => x_msg_count,
2711: when OKL_API.G_EXCEPTION_ERROR then
2712: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2713: p_api_name => l_api_name,
2714: p_pkg_name => g_pkg_name,
2715: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2716: x_msg_count => x_msg_count,
2717: x_msg_data => x_msg_data,
2718: p_api_type => g_api_type);
2719:
2716: x_msg_count => x_msg_count,
2717: x_msg_data => x_msg_data,
2718: p_api_type => g_api_type);
2719:
2720: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2721: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2722: p_api_name => l_api_name,
2723: p_pkg_name => g_pkg_name,
2724: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2717: x_msg_data => x_msg_data,
2718: p_api_type => g_api_type);
2719:
2720: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2721: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2722: p_api_name => l_api_name,
2723: p_pkg_name => g_pkg_name,
2724: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2725: x_msg_count => x_msg_count,
2720: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2721: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2722: p_api_name => l_api_name,
2723: p_pkg_name => g_pkg_name,
2724: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2725: x_msg_count => x_msg_count,
2726: x_msg_data => x_msg_data,
2727: p_api_type => g_api_type);
2728:
2726: x_msg_data => x_msg_data,
2727: p_api_type => g_api_type);
2728:
2729: when OTHERS then
2730: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2731: p_api_name => l_api_name,
2732: p_pkg_name => g_pkg_name,
2733: p_exc_name => 'OTHERS',
2734: x_msg_count => x_msg_count,
2757: x_khrv_tbl OUT NOCOPY khrv_tbl_type) IS
2758:
2759: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
2760: l_api_version CONSTANT NUMBER := 1.0;
2761: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2762: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2763: i NUMBER;
2764: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
2765: BEGIN
2758:
2759: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
2760: l_api_version CONSTANT NUMBER := 1.0;
2761: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2762: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2763: i NUMBER;
2764: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
2765: BEGIN
2766: -- call START_ACTIVITY to create savepoint, check compatibility
2764: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
2765: BEGIN
2766: -- call START_ACTIVITY to create savepoint, check compatibility
2767: -- and initialize message list
2768: l_return_status := OKL_API.START_ACTIVITY(
2769: p_api_name => l_api_name,
2770: p_pkg_name => g_pkg_name,
2771: p_init_msg_list => p_init_msg_list,
2772: l_api_version => l_api_version,
2774: p_api_type => g_api_type,
2775: x_return_status => x_return_status);
2776:
2777: -- check if activity started successfully
2778: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2779: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2780: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2781: raise OKL_API.G_EXCEPTION_ERROR;
2782:
2775: x_return_status => x_return_status);
2776:
2777: -- check if activity started successfully
2778: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2779: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2780: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2781: raise OKL_API.G_EXCEPTION_ERROR;
2782:
2783: End If;
2776:
2777: -- check if activity started successfully
2778: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2779: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2780: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2781: raise OKL_API.G_EXCEPTION_ERROR;
2782:
2783: End If;
2784:
2777: -- check if activity started successfully
2778: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2779: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2780: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
2781: raise OKL_API.G_EXCEPTION_ERROR;
2782:
2783: End If;
2784:
2785: If (p_chrv_tbl.COUNT > 0) Then
2796: p_khrv_rec => l_khrv_tbl(i),
2797: x_chrv_rec => x_chrv_tbl(i),
2798: x_khrv_rec => x_khrv_tbl(i));
2799:
2800: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2801: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
2802: l_overall_status := x_return_status;
2803: End If;
2804: End If;
2797: x_chrv_rec => x_chrv_tbl(i),
2798: x_khrv_rec => x_khrv_tbl(i));
2799:
2800: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
2801: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
2802: l_overall_status := x_return_status;
2803: End If;
2804: End If;
2805:
2810: -- return overall status
2811: x_return_status := l_overall_status;
2812: End If;
2813:
2814: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2815: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2817: raise OKL_API.G_EXCEPTION_ERROR;
2818: End If;
2811: x_return_status := l_overall_status;
2812: End If;
2813:
2814: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2815: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2817: raise OKL_API.G_EXCEPTION_ERROR;
2818: End If;
2819:
2812: End If;
2813:
2814: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2815: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2817: raise OKL_API.G_EXCEPTION_ERROR;
2818: End If;
2819:
2820: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2813:
2814: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2815: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2817: raise OKL_API.G_EXCEPTION_ERROR;
2818: End If;
2819:
2820: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2821: x_msg_data => x_msg_data);
2816: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2817: raise OKL_API.G_EXCEPTION_ERROR;
2818: End If;
2819:
2820: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2821: x_msg_data => x_msg_data);
2822: EXCEPTION
2823: when OKL_API.G_EXCEPTION_ERROR then
2824: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2819:
2820: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2821: x_msg_data => x_msg_data);
2822: EXCEPTION
2823: when OKL_API.G_EXCEPTION_ERROR then
2824: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2825: p_api_name => l_api_name,
2826: p_pkg_name => g_pkg_name,
2827: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2820: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
2821: x_msg_data => x_msg_data);
2822: EXCEPTION
2823: when OKL_API.G_EXCEPTION_ERROR then
2824: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2825: p_api_name => l_api_name,
2826: p_pkg_name => g_pkg_name,
2827: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2828: x_msg_count => x_msg_count,
2823: when OKL_API.G_EXCEPTION_ERROR then
2824: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2825: p_api_name => l_api_name,
2826: p_pkg_name => g_pkg_name,
2827: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2828: x_msg_count => x_msg_count,
2829: x_msg_data => x_msg_data,
2830: p_api_type => g_api_type);
2831:
2828: x_msg_count => x_msg_count,
2829: x_msg_data => x_msg_data,
2830: p_api_type => g_api_type);
2831:
2832: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2833: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2834: p_api_name => l_api_name,
2835: p_pkg_name => g_pkg_name,
2836: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2829: x_msg_data => x_msg_data,
2830: p_api_type => g_api_type);
2831:
2832: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2833: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2834: p_api_name => l_api_name,
2835: p_pkg_name => g_pkg_name,
2836: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2837: x_msg_count => x_msg_count,
2832: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2833: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2834: p_api_name => l_api_name,
2835: p_pkg_name => g_pkg_name,
2836: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2837: x_msg_count => x_msg_count,
2838: x_msg_data => x_msg_data,
2839: p_api_type => g_api_type);
2840:
2838: x_msg_data => x_msg_data,
2839: p_api_type => g_api_type);
2840:
2841: when OTHERS then
2842: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2843: p_api_name => l_api_name,
2844: p_pkg_name => g_pkg_name,
2845: p_exc_name => 'OTHERS',
2846: x_msg_count => x_msg_count,
2881: l_khrv_rec khrv_rec_type;
2882:
2883: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
2884: l_api_version CONSTANT NUMBER := 1.0;
2885: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2886:
2887: cursor l_khrv_csr(l_id IN NUMBER) is
2888: select 'x'
2889: from OKL_K_HEADERS_V
3071: BEGIN
3072:
3073: -- call START_ACTIVITY to create savepoint, check compatibility
3074: -- and initialize message list
3075: l_return_status := OKL_API.START_ACTIVITY(
3076: p_api_name => l_api_name,
3077: p_pkg_name => g_pkg_name,
3078: p_init_msg_list => p_init_msg_list,
3079: l_api_version => l_api_version,
3081: p_api_type => g_api_type,
3082: x_return_status => x_return_status);
3083:
3084: -- check if activity started successfully
3085: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3087: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
3088: raise OKL_API.G_EXCEPTION_ERROR;
3089: End If;
3082: x_return_status => x_return_status);
3083:
3084: -- check if activity started successfully
3085: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3087: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
3088: raise OKL_API.G_EXCEPTION_ERROR;
3089: End If;
3090:
3083:
3084: -- check if activity started successfully
3085: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3087: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
3088: raise OKL_API.G_EXCEPTION_ERROR;
3089: End If;
3090:
3091: l_khrv_rec := p_khrv_rec;
3084: -- check if activity started successfully
3085: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3086: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3087: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
3088: raise OKL_API.G_EXCEPTION_ERROR;
3089: End If;
3090:
3091: l_khrv_rec := p_khrv_rec;
3092: l_chrv_rec := p_chrv_rec;
3122:
3123: -- Bug 7610725 start
3124: l_delete_flag := 'N';
3125: IF (l_khrv_rec.pdt_id IS NOT NULL AND
3126: l_khrv_rec.pdt_id <> OKL_API.G_MISS_NUM) THEN
3127: IF (NVL(l_orig_khr_rec.multi_gaap_yn,'N') = 'Y') THEN
3128: OPEN curr_pdt_csr(l_khrv_rec.pdt_id);
3129: FETCH curr_pdt_csr INTO l_curr_pdt_rec;
3130: CLOSE curr_pdt_csr;
3145: IF (l_delete_flag = 'Y') THEN
3146: -- Delete reporting asset tax book
3147: l_rep_book_type := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
3148: i := 0;
3149: If nvl(l_rep_book_type,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
3150: open l_txd_csr (p_book_type_code => l_rep_book_type,
3151: p_chr_id => l_chrv_rec.id);
3152: Loop
3153: fetch l_txd_csr into l_txd_rec;
3164: x_return_status => x_return_status,
3165: x_msg_count => x_msg_count,
3166: x_msg_data => x_msg_data,
3167: p_adpv_tbl => l_adpv_tbl);
3168: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3170: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3171: raise OKL_API.G_EXCEPTION_ERROR;
3172: End If;
3165: x_msg_count => x_msg_count,
3166: x_msg_data => x_msg_data,
3167: p_adpv_tbl => l_adpv_tbl);
3168: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3170: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3171: raise OKL_API.G_EXCEPTION_ERROR;
3172: End If;
3173: End If;
3166: x_msg_data => x_msg_data,
3167: p_adpv_tbl => l_adpv_tbl);
3168: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3170: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3171: raise OKL_API.G_EXCEPTION_ERROR;
3172: End If;
3173: End If;
3174: End If;
3167: p_adpv_tbl => l_adpv_tbl);
3168: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3170: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3171: raise OKL_API.G_EXCEPTION_ERROR;
3172: End If;
3173: End If;
3174: End If;
3175:
3176: END IF;
3177: -- Bug 7610725 end
3178:
3179: --
3180: If l_chrv_rec.start_date = OKL_API.G_MISS_DATE Then
3181: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3182: End If;
3183: --
3184:
3181: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3182: End If;
3183: --
3184:
3185: If l_khrv_rec.term_duration = OKL_API.G_MISS_NUM and
3186: l_orig_khr_rec.term_duration is not null Then
3187: l_khrv_rec.term_duration := l_orig_khr_rec.term_duration;
3188: End If;
3189: --
3188: End If;
3189: --
3190: --Bug Fix# 2860122 start.
3191: --SandO fix for end date
3192: IF (l_chrv_rec.end_date = OKL_API.G_MISS_DATE) Then
3193: IF (l_chrv_rec.start_date is NOT NULL and
3194: l_chrv_rec.start_date <> OKL_API.G_MISS_DATE) and
3195: (l_khrv_rec.term_duration is not NULL and
3196: l_khrv_rec.term_duration <> OKL_API.G_MISS_NUM) Then
3190: --Bug Fix# 2860122 start.
3191: --SandO fix for end date
3192: IF (l_chrv_rec.end_date = OKL_API.G_MISS_DATE) Then
3193: IF (l_chrv_rec.start_date is NOT NULL and
3194: l_chrv_rec.start_date <> OKL_API.G_MISS_DATE) and
3195: (l_khrv_rec.term_duration is not NULL and
3196: l_khrv_rec.term_duration <> OKL_API.G_MISS_NUM) Then
3197: --Added for bug 6007644
3198: l_chrv_rec.end_date := OKL_LLA_UTIL_PVT.calculate_end_date(p_start_date => l_chrv_rec.start_date,
3192: IF (l_chrv_rec.end_date = OKL_API.G_MISS_DATE) Then
3193: IF (l_chrv_rec.start_date is NOT NULL and
3194: l_chrv_rec.start_date <> OKL_API.G_MISS_DATE) and
3195: (l_khrv_rec.term_duration is not NULL and
3196: l_khrv_rec.term_duration <> OKL_API.G_MISS_NUM) Then
3197: --Added for bug 6007644
3198: l_chrv_rec.end_date := OKL_LLA_UTIL_PVT.calculate_end_date(p_start_date => l_chrv_rec.start_date,
3199: p_months => l_khrv_rec.term_duration);
3200: --end bug 6007644
3203: END IF;
3204: END IF;
3205: -- Bug Fix # 2860122 End.
3206: --
3207: If l_chrv_rec.currency_code = OKL_API.G_MISS_CHAR Then
3208: l_chrv_rec.currency_code := l_orig_chr_rec.currency_code;
3209: End If;
3210:
3211: --
3223: p_new_term => l_khrv_rec.term_duration,
3224: x_modfn_mode => l_modfn_mode);
3225:
3226: -- check return status
3227: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3228: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3229: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3230: raise OKL_API.G_EXCEPTION_ERROR;
3231: End If;
3224: x_modfn_mode => l_modfn_mode);
3225:
3226: -- check return status
3227: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3228: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3229: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3230: raise OKL_API.G_EXCEPTION_ERROR;
3231: End If;
3232:
3225:
3226: -- check return status
3227: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3228: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3229: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3230: raise OKL_API.G_EXCEPTION_ERROR;
3231: End If;
3232:
3233: ----------------------------------------------------------------------------
3226: -- check return status
3227: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3228: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3229: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3230: raise OKL_API.G_EXCEPTION_ERROR;
3231: End If;
3232:
3233: ----------------------------------------------------------------------------
3234: --call to check if template modification is allowed
3236: template_create_allowed(p_chr_id => l_chrv_rec.id,
3237: p_template_yn => l_chrv_rec.template_yn,
3238: x_return_status => x_return_status);
3239:
3240: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3241: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3242: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3244: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3237: p_template_yn => l_chrv_rec.template_yn,
3238: x_return_status => x_return_status);
3239:
3240: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3241: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3242: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3244: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3245: raise OKL_API.G_EXCEPTION_ERROR;
3238: x_return_status => x_return_status);
3239:
3240: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3241: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3242: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3244: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3245: raise OKL_API.G_EXCEPTION_ERROR;
3246: End If;
3239:
3240: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3241: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3242: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3244: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3245: raise OKL_API.G_EXCEPTION_ERROR;
3246: End If;
3247:
3241: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3242: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3244: p_msg_name => G_TEMPLATE_CREATE_NOT_ALLOWED);
3245: raise OKL_API.G_EXCEPTION_ERROR;
3246: End If;
3247:
3248: ----------------------------------------------------------------------------
3249: --Bug# : 11.5.9 Enhancement Multi Currency
3247:
3248: ----------------------------------------------------------------------------
3249: --Bug# : 11.5.9 Enhancement Multi Currency
3250: ----------------------------------------------------------------------------
3251: If (l_chrv_rec.currency_code = OKL_API.G_MISS_CHAR) Then
3252: l_chrv_rec.currency_code := l_orig_chr_rec.currency_code;
3253: End If;
3254:
3255: If (l_khrv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR) and
3251: If (l_chrv_rec.currency_code = OKL_API.G_MISS_CHAR) Then
3252: l_chrv_rec.currency_code := l_orig_chr_rec.currency_code;
3253: End If;
3254:
3255: If (l_khrv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR) and
3256: l_orig_khr_rec.currency_conversion_type is not null Then
3257: l_khrv_rec.currency_conversion_type := l_orig_khr_rec.currency_conversion_type;
3258: End If;
3259:
3256: l_orig_khr_rec.currency_conversion_type is not null Then
3257: l_khrv_rec.currency_conversion_type := l_orig_khr_rec.currency_conversion_type;
3258: End If;
3259:
3260: If (l_khrv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM) and
3261: l_orig_khr_rec.currency_conversion_rate is not null Then
3262: l_khrv_rec.currency_conversion_rate := l_orig_khr_rec.currency_conversion_rate;
3263: End If;
3264:
3261: l_orig_khr_rec.currency_conversion_rate is not null Then
3262: l_khrv_rec.currency_conversion_rate := l_orig_khr_rec.currency_conversion_rate;
3263: End If;
3264:
3265: If (l_khrv_rec.currency_conversion_date = OKL_API.G_MISS_DATE) and
3266: l_orig_khr_rec.currency_conversion_date is not null Then
3267: l_khrv_rec.currency_conversion_date := l_orig_khr_rec.currency_conversion_date;
3268: End If;
3269:
3266: l_orig_khr_rec.currency_conversion_date is not null Then
3267: l_khrv_rec.currency_conversion_date := l_orig_khr_rec.currency_conversion_date;
3268: End If;
3269:
3270: If (l_chrv_rec.start_date = OKL_API.G_MISS_DATE) Then
3271: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3272: End If;
3273:
3274: If (l_chrv_rec.scs_code = OKL_API.G_MISS_CHAR) Then
3270: If (l_chrv_rec.start_date = OKL_API.G_MISS_DATE) Then
3271: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3272: End If;
3273:
3274: If (l_chrv_rec.scs_code = OKL_API.G_MISS_CHAR) Then
3275: l_chrv_rec.scs_code := l_orig_chr_rec.scs_code;
3276: End If;
3277:
3278: --Bug# 3180583
3275: l_chrv_rec.scs_code := l_orig_chr_rec.scs_code;
3276: End If;
3277:
3278: --Bug# 3180583
3279: If (l_khrv_rec.multi_gaap_yn = OKL_API.G_MISS_CHAR) then
3280: l_khrv_rec.multi_gaap_yn := l_orig_khr_rec.multi_gaap_yn;
3281: End If;
3282:
3283: -- AKP:Check if start_date is changed default interest_start_date,
3292: x_msg_data => x_msg_data,
3293: p_chr_id => l_chrv_rec.id,
3294: p_new_start_date => l_chrv_rec.start_date);
3295: -- check return status
3296: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3297: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3298: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3299: raise OKL_API.G_EXCEPTION_ERROR;
3300: End If;
3293: p_chr_id => l_chrv_rec.id,
3294: p_new_start_date => l_chrv_rec.start_date);
3295: -- check return status
3296: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3297: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3298: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3299: raise OKL_API.G_EXCEPTION_ERROR;
3300: End If;
3301: END IF;
3294: p_new_start_date => l_chrv_rec.start_date);
3295: -- check return status
3296: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3297: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3298: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3299: raise OKL_API.G_EXCEPTION_ERROR;
3300: End If;
3301: END IF;
3302:
3295: -- check return status
3296: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3297: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3298: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3299: raise OKL_API.G_EXCEPTION_ERROR;
3300: End If;
3301: END IF;
3302:
3303: -- now go in to validate currency
3309: p_chrv_rec => l_chrv_rec,
3310: p_khrv_rec => l_khrv_rec,
3311: x_chrv_rec => l_curr_chrv_rec,
3312: x_khrv_rec => l_curr_khrv_rec);
3313: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3315: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3316: raise OKL_API.G_EXCEPTION_ERROR;
3317: End If;
3310: p_khrv_rec => l_khrv_rec,
3311: x_chrv_rec => l_curr_chrv_rec,
3312: x_khrv_rec => l_curr_khrv_rec);
3313: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3315: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3316: raise OKL_API.G_EXCEPTION_ERROR;
3317: End If;
3318:
3311: x_chrv_rec => l_curr_chrv_rec,
3312: x_khrv_rec => l_curr_khrv_rec);
3313: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3315: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3316: raise OKL_API.G_EXCEPTION_ERROR;
3317: End If;
3318:
3319: l_chrv_rec := l_curr_chrv_rec;
3312: x_khrv_rec => l_curr_khrv_rec);
3313: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3314: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3315: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
3316: raise OKL_API.G_EXCEPTION_ERROR;
3317: End If;
3318:
3319: l_chrv_rec := l_curr_chrv_rec;
3320: l_khrv_rec := l_curr_khrv_rec;
3326: --Bug# : 11.5.9 Enhancement Product Validations
3327: ----------------------------------------------------------------------------
3328: --For older contracts do not check for product validation unless product has changed
3329: --therefore commenting this code below :
3330: --If l_khrv_rec.pdt_id = OKL_API.G_MISS_NUM Then
3331: -- l_khrv_rec.pdt_id := l_orig_chr_rec.pdt_id;
3332: --End If;
3333:
3334: If (l_chrv_rec.start_date = OKL_API.G_MISS_DATE) Then
3330: --If l_khrv_rec.pdt_id = OKL_API.G_MISS_NUM Then
3331: -- l_khrv_rec.pdt_id := l_orig_chr_rec.pdt_id;
3332: --End If;
3333:
3334: If (l_chrv_rec.start_date = OKL_API.G_MISS_DATE) Then
3335: l_chrv_rec.start_date := l_orig_chr_rec.start_date;
3336: End If;
3337:
3338:
3338:
3339: --For older contracts do not check for product validation unless product has changed
3340: --therefore commenting adding the G_MISS clause in IF below :
3341:
3342: If (l_khrv_rec.pdt_id is null) OR (l_khrv_rec.pdt_id = OKL_API.G_MISS_NUM ) OR
3343: (l_khrv_rec.pdt_id = l_orig_khr_rec.pdt_id) then
3344: null;
3345: Else
3346: --Begin (Bug# 2730633)
3346: --Begin (Bug# 2730633)
3347: --Fix for not to validate for copied contracts being copied from contracts
3348: --which have 11.5.8 products against them
3349: l_bypass_pdt_validation := 'N';
3350: If nvl(l_orig_chr_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR AND
3351: nvl(l_orig_chr_rec.orig_system_id1,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM Then
3352: l_bypass_pdt_validation := Is_Orig_Pdt_old(p_orig_chr_id => l_orig_chr_rec.orig_system_id1,
3353: p_pdt_id => l_khrv_rec.pdt_id);
3354: End If;
3347: --Fix for not to validate for copied contracts being copied from contracts
3348: --which have 11.5.8 products against them
3349: l_bypass_pdt_validation := 'N';
3350: If nvl(l_orig_chr_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR AND
3351: nvl(l_orig_chr_rec.orig_system_id1,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM Then
3352: l_bypass_pdt_validation := Is_Orig_Pdt_old(p_orig_chr_id => l_orig_chr_rec.orig_system_id1,
3353: p_pdt_id => l_khrv_rec.pdt_id);
3354: End If;
3355: --Fix for not to validate for copied contracts being copied from contracts
3368: --Bug# 3180583
3369: x_multigaap_yn => l_multigaap_yn);
3370:
3371: -- check return status
3372: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3373: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3375: raise OKL_API.G_EXCEPTION_ERROR;
3376: End If;
3369: x_multigaap_yn => l_multigaap_yn);
3370:
3371: -- check return status
3372: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3373: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3375: raise OKL_API.G_EXCEPTION_ERROR;
3376: End If;
3377:
3370:
3371: -- check return status
3372: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3373: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3375: raise OKL_API.G_EXCEPTION_ERROR;
3376: End If;
3377:
3378: --for lease contracts deal type has to come from product
3371: -- check return status
3372: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3373: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3375: raise OKL_API.G_EXCEPTION_ERROR;
3376: End If;
3377:
3378: --for lease contracts deal type has to come from product
3379: If l_chrv_rec.scs_code in ('LEASE','QUOTE') Then
3381: --If l_khrv_rec.deal_type <> l_pdt_deal_type Then
3382: If nvl(l_khrv_rec.deal_type,'DEALTYPE') <> l_pdt_deal_type Then
3383: --If l_pdt_deal_type is not null OR
3384: If l_pdt_deal_type is not null AND
3385: l_pdt_deal_type <> OKL_API.G_MISS_CHAR Then
3386: l_khrv_rec.deal_type := l_pdt_deal_type;
3387: End If;
3388: End If;
3389:
3389:
3390: --------------
3391: --Bug# 3180583
3392: -------------
3393: If nvl(l_multigaap_yn,OKL_API.G_MISS_CHAR) = 'N' then
3394: If nvl(l_khrv_rec.multi_gaap_yn,OKL_API.G_MISS_CHAR) = 'Y' then
3395: l_khrv_rec.multi_gaap_yn := NULL;
3396: End If;
3397: ELSIf nvl(l_multigaap_yn,'N') = 'Y' then -- 7610725
3390: --------------
3391: --Bug# 3180583
3392: -------------
3393: If nvl(l_multigaap_yn,OKL_API.G_MISS_CHAR) = 'N' then
3394: If nvl(l_khrv_rec.multi_gaap_yn,OKL_API.G_MISS_CHAR) = 'Y' then
3395: l_khrv_rec.multi_gaap_yn := NULL;
3396: End If;
3397: ELSIf nvl(l_multigaap_yn,'N') = 'Y' then -- 7610725
3398: l_khrv_rec.multi_gaap_yn := 'Y';
3401: --Bug# 3180583
3402: -------------
3403:
3404: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
3405: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
3406: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3407: p_msg_name => 'OKL_NULL_DEAL_TYPE');
3408: x_return_status := OKL_API.G_RET_STS_ERROR;
3409: raise OKL_API.G_EXCEPTION_ERROR;
3402: -------------
3403:
3404: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
3405: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
3406: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3407: p_msg_name => 'OKL_NULL_DEAL_TYPE');
3408: x_return_status := OKL_API.G_RET_STS_ERROR;
3409: raise OKL_API.G_EXCEPTION_ERROR;
3410: End If;
3404: --Bug# 3379294 : check if deal type is still Null then raise error for lease and quote
3405: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
3406: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3407: p_msg_name => 'OKL_NULL_DEAL_TYPE');
3408: x_return_status := OKL_API.G_RET_STS_ERROR;
3409: raise OKL_API.G_EXCEPTION_ERROR;
3410: End If;
3411: --Bug# 3379294 : End
3412:
3405: If nvl(l_khrv_rec.deal_type,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
3406: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3407: p_msg_name => 'OKL_NULL_DEAL_TYPE');
3408: x_return_status := OKL_API.G_RET_STS_ERROR;
3409: raise OKL_API.G_EXCEPTION_ERROR;
3410: End If;
3411: --Bug# 3379294 : End
3412:
3413: End If;
3422: --rkuttiya commented out for bug 6595451
3423: --validation on null legal entity id not required for update contract
3424: /*IF (l_khrv_rec.legal_entity_id IS NULL ) THEN
3425: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
3426: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
3427: RAISE OKL_API.G_EXCEPTION_ERROR;
3428: END IF;*/
3429: IF( (l_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) AND (l_legal_entity_id <> l_khrv_rec.legal_entity_id)) THEN
3430: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
3423: --validation on null legal entity id not required for update contract
3424: /*IF (l_khrv_rec.legal_entity_id IS NULL ) THEN
3425: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
3426: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
3427: RAISE OKL_API.G_EXCEPTION_ERROR;
3428: END IF;*/
3429: IF( (l_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) AND (l_legal_entity_id <> l_khrv_rec.legal_entity_id)) THEN
3430: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
3431: p_chrv_rec => l_chrv_rec,
3425: IF l_chrv_rec.scs_code IN ('LEASE','LOAN','INVESTOR', 'MASTER_LEASE','PROGRAM') THEN
3426: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
3427: RAISE OKL_API.G_EXCEPTION_ERROR;
3428: END IF;*/
3429: IF( (l_khrv_rec.legal_entity_id <> Okl_Api.G_MISS_NUM) AND (l_legal_entity_id <> l_khrv_rec.legal_entity_id)) THEN
3430: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
3431: p_chrv_rec => l_chrv_rec,
3432: p_mode => 'UPD');
3433: l_upd_trx_assets := 1;
3430: OKL_LA_VALIDATION_UTIL_PVT.VALIDATE_LEGAL_ENTITY(x_return_status => x_return_status,
3431: p_chrv_rec => l_chrv_rec,
3432: p_mode => 'UPD');
3433: l_upd_trx_assets := 1;
3434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3437: RAISE OKL_API.G_EXCEPTION_ERROR;
3438: END IF;
3431: p_chrv_rec => l_chrv_rec,
3432: p_mode => 'UPD');
3433: l_upd_trx_assets := 1;
3434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3437: RAISE OKL_API.G_EXCEPTION_ERROR;
3438: END IF;
3439: END IF ;
3432: p_mode => 'UPD');
3433: l_upd_trx_assets := 1;
3434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3437: RAISE OKL_API.G_EXCEPTION_ERROR;
3438: END IF;
3439: END IF ;
3440: --Added by dpsingh end
3433: l_upd_trx_assets := 1;
3434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3437: RAISE OKL_API.G_EXCEPTION_ERROR;
3438: END IF;
3439: END IF ;
3440: --Added by dpsingh end
3441:
3456: p_chrv_rec => l_curr_chrv_rec,
3457: x_chrv_rec => x_chrv_rec);
3458:
3459: -- check return status
3460: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3462: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3463: RAISE OKL_API.G_EXCEPTION_ERROR;
3464: --Added by dpsingh for LE Uptake
3457: x_chrv_rec => x_chrv_rec);
3458:
3459: -- check return status
3460: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3462: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3463: RAISE OKL_API.G_EXCEPTION_ERROR;
3464: --Added by dpsingh for LE Uptake
3465: ELSIF x_return_status = OKL_API.G_RET_STS_SUCCESS AND l_upd_trx_assets = 1 THEN
3458:
3459: -- check return status
3460: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3462: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3463: RAISE OKL_API.G_EXCEPTION_ERROR;
3464: --Added by dpsingh for LE Uptake
3465: ELSIF x_return_status = OKL_API.G_RET_STS_SUCCESS AND l_upd_trx_assets = 1 THEN
3466: FOR get_con_line_ids_rec IN get_con_line_ids_csr(l_chrv_rec.id) LOOP
3459: -- check return status
3460: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3462: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3463: RAISE OKL_API.G_EXCEPTION_ERROR;
3464: --Added by dpsingh for LE Uptake
3465: ELSIF x_return_status = OKL_API.G_RET_STS_SUCCESS AND l_upd_trx_assets = 1 THEN
3466: FOR get_con_line_ids_rec IN get_con_line_ids_csr(l_chrv_rec.id) LOOP
3467: l_tasv_rec.id := get_con_line_ids_rec.tas_id;
3461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3462: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3463: RAISE OKL_API.G_EXCEPTION_ERROR;
3464: --Added by dpsingh for LE Uptake
3465: ELSIF x_return_status = OKL_API.G_RET_STS_SUCCESS AND l_upd_trx_assets = 1 THEN
3466: FOR get_con_line_ids_rec IN get_con_line_ids_csr(l_chrv_rec.id) LOOP
3467: l_tasv_rec.id := get_con_line_ids_rec.tas_id;
3468: l_tasv_rec.legal_entity_id := l_legal_entity_id;
3469: OKL_TRX_ASSETS_PVT.UPDATE_TRX_ASS_H_DEF(p_api_version ,
3473: x_msg_data ,
3474: l_tasv_rec ,
3475: x_tasv_rec) ;
3476:
3477: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3474: l_tasv_rec ,
3475: x_tasv_rec) ;
3476:
3477: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: END LOOP;
3475: x_tasv_rec) ;
3476:
3477: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: END LOOP;
3483: END IF;
3476:
3477: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3480: RAISE OKL_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: END LOOP;
3483: END IF;
3484: /*Bug# 3124577: 11.5.10 Rule Migration:-----------------------------------------------------------
3624: l_clev_rec.start_date := x_chrv_rec.start_date;
3625: elsif (l_cle_start_date > x_chrv_rec.start_date) AND
3626: (l_cle_start_date <= x_chrv_rec.end_date) then
3627: --get the dates from parent lines
3628: If nvl(l_parent_cle_start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
3629: null;
3630: Else
3631: If trunc(l_clev_rec.start_date) = trunc(l_parent_cle_start_date) then
3632: --do not change the line date (do not stamp header date on line)
3647: l_clev_rec.end_date := x_chrv_rec.end_date;
3648: ElsIf (l_cle_end_date < x_chrv_rec.end_date)
3649: and (l_cle_end_date >= x_chrv_rec.start_date) then
3650: --get the dates from parent lines
3651: If nvl(l_parent_cle_end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
3652: null;
3653: Else
3654: If trunc(l_clev_rec.end_date) = trunc(l_parent_cle_end_date) then
3655: --do not change the line date (do not stamp header date on line)
3790: If l_sub_csr%NOTFOUND then
3791: null;
3792: End If;
3793: close l_sub_csr;
3794: If nvl(l_max_subsidy_term,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
3795: l_clev_rec.end_date := x_chrv_rec.end_date;
3796: Elsif l_max_subsidy_term <= 0 then
3797: l_clev_rec.end_date := l_clev_rec.start_date;
3798: Elsif l_max_subsidy_term > 0 then
3817: p_clev_rec => l_clev_rec,
3818: x_clev_rec => lx_clev_rec);
3819:
3820: -- check return status
3821: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3822: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3823: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3824: raise OKL_API.G_EXCEPTION_ERROR;
3825: End If;
3818: x_clev_rec => lx_clev_rec);
3819:
3820: -- check return status
3821: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3822: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3823: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3824: raise OKL_API.G_EXCEPTION_ERROR;
3825: End If;
3826: End Loop;
3819:
3820: -- check return status
3821: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3822: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3823: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3824: raise OKL_API.G_EXCEPTION_ERROR;
3825: End If;
3826: End Loop;
3827: Close Cle_Csr;
3820: -- check return status
3821: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3822: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3823: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3824: raise OKL_API.G_EXCEPTION_ERROR;
3825: End If;
3826: End Loop;
3827: Close Cle_Csr;
3828: End Loop;
3845: x_msg_count => x_msg_count,
3846: x_msg_data => x_msg_data,
3847: p_chr_id => l_chrv_rec.id);
3848:
3849: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3850: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3851: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3852: raise OKL_API.G_EXCEPTION_ERROR;
3853: End If;
3846: x_msg_data => x_msg_data,
3847: p_chr_id => l_chrv_rec.id);
3848:
3849: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3850: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3851: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3852: raise OKL_API.G_EXCEPTION_ERROR;
3853: End If;
3854:
3847: p_chr_id => l_chrv_rec.id);
3848:
3849: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3850: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3851: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3852: raise OKL_API.G_EXCEPTION_ERROR;
3853: End If;
3854:
3855: END IF;
3848:
3849: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3850: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3851: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3852: raise OKL_API.G_EXCEPTION_ERROR;
3853: End If;
3854:
3855: END IF;
3856: -- Bug# 6438785
3885: p_khrv_rec => l_khrv_rec,
3886: x_khrv_rec => x_khrv_rec);
3887: end if;
3888:
3889: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3890: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3891: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3892: raise OKL_API.G_EXCEPTION_ERROR;
3893: End If;
3886: x_khrv_rec => x_khrv_rec);
3887: end if;
3888:
3889: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3890: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3891: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3892: raise OKL_API.G_EXCEPTION_ERROR;
3893: End If;
3894:
3887: end if;
3888:
3889: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3890: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3891: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3892: raise OKL_API.G_EXCEPTION_ERROR;
3893: End If;
3894:
3895: If p_edit_mode = 'Y' Then
3888:
3889: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3890: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3891: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3892: raise OKL_API.G_EXCEPTION_ERROR;
3893: End If;
3894:
3895: If p_edit_mode = 'Y' Then
3896: --Added for updating header status if required and cascading to lines
3893: End If;
3894:
3895: If p_edit_mode = 'Y' Then
3896: --Added for updating header status if required and cascading to lines
3897: If (x_khrv_rec.id is not null) OR (x_khrv_rec.id <> OKL_API.G_MISS_NUM) Then
3898: okl_contract_status_pub.cascade_lease_status_edit
3899: (p_api_version => p_api_version,
3900: p_init_msg_list => p_init_msg_list,
3901: x_return_status => x_return_status,
3902: x_msg_count => x_msg_count,
3903: x_msg_data => x_msg_data,
3904: p_chr_id => x_khrv_rec.id);
3905:
3906: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3908: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3909: raise OKL_API.G_EXCEPTION_ERROR;
3910: End If;
3903: x_msg_data => x_msg_data,
3904: p_chr_id => x_khrv_rec.id);
3905:
3906: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3908: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3909: raise OKL_API.G_EXCEPTION_ERROR;
3910: End If;
3911: End If;
3904: p_chr_id => x_khrv_rec.id);
3905:
3906: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3908: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3909: raise OKL_API.G_EXCEPTION_ERROR;
3910: End If;
3911: End If;
3912: End If;
3905:
3906: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3908: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3909: raise OKL_API.G_EXCEPTION_ERROR;
3910: End If;
3911: End If;
3912: End If;
3913:
3943: p_chr_id => l_khrv_rec.ID,
3944: x_rulv_tbl => x_rulv_tbl
3945: );
3946:
3947: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3948: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3949: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3950: raise OKL_API.G_EXCEPTION_ERROR;
3951: End If;
3944: x_rulv_tbl => x_rulv_tbl
3945: );
3946:
3947: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3948: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3949: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3950: raise OKL_API.G_EXCEPTION_ERROR;
3951: End If;
3952:
3945: );
3946:
3947: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3948: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3949: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3950: raise OKL_API.G_EXCEPTION_ERROR;
3951: End If;
3952:
3953: END IF;
3946:
3947: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
3948: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3949: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
3950: raise OKL_API.G_EXCEPTION_ERROR;
3951: End If;
3952:
3953: END IF;
3954:
3951: End If;
3952:
3953: END IF;
3954:
3955: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3956: x_msg_data => x_msg_data);
3957: EXCEPTION
3958: when OKL_API.G_EXCEPTION_ERROR then
3959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3954:
3955: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3956: x_msg_data => x_msg_data);
3957: EXCEPTION
3958: when OKL_API.G_EXCEPTION_ERROR then
3959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3960: p_api_name => l_api_name,
3961: p_pkg_name => g_pkg_name,
3962: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3955: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3956: x_msg_data => x_msg_data);
3957: EXCEPTION
3958: when OKL_API.G_EXCEPTION_ERROR then
3959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3960: p_api_name => l_api_name,
3961: p_pkg_name => g_pkg_name,
3962: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3963: x_msg_count => x_msg_count,
3958: when OKL_API.G_EXCEPTION_ERROR then
3959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3960: p_api_name => l_api_name,
3961: p_pkg_name => g_pkg_name,
3962: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3963: x_msg_count => x_msg_count,
3964: x_msg_data => x_msg_data,
3965: p_api_type => g_api_type);
3966: if l_khrv_csr%ISOPEN then
3966: if l_khrv_csr%ISOPEN then
3967: close l_khrv_csr;
3968: end if;
3969:
3970: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3971: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3972: p_api_name => l_api_name,
3973: p_pkg_name => g_pkg_name,
3974: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3967: close l_khrv_csr;
3968: end if;
3969:
3970: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3971: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3972: p_api_name => l_api_name,
3973: p_pkg_name => g_pkg_name,
3974: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3975: x_msg_count => x_msg_count,
3970: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3971: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3972: p_api_name => l_api_name,
3973: p_pkg_name => g_pkg_name,
3974: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3975: x_msg_count => x_msg_count,
3976: x_msg_data => x_msg_data,
3977: p_api_type => g_api_type);
3978: if l_khrv_csr%ISOPEN then
3979: close l_khrv_csr;
3980: end if;
3981:
3982: when OTHERS then
3983: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3984: p_api_name => l_api_name,
3985: p_pkg_name => g_pkg_name,
3986: p_exc_name => 'OTHERS',
3987: x_msg_count => x_msg_count,
4019: l_khrv_rec khrv_rec_type;
4020:
4021: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
4022: l_api_version CONSTANT NUMBER := 1.0;
4023: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4024:
4025:
4026: BEGIN
4027:
4026: BEGIN
4027:
4028: -- call START_ACTIVITY to create savepoint, check compatibility
4029: -- and initialize message list
4030: l_return_status := OKL_API.START_ACTIVITY(
4031: p_api_name => l_api_name,
4032: p_pkg_name => g_pkg_name,
4033: p_init_msg_list => p_init_msg_list,
4034: l_api_version => l_api_version,
4036: p_api_type => g_api_type,
4037: x_return_status => x_return_status);
4038:
4039: -- check if activity started successfully
4040: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4041: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4042: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4043: raise OKL_API.G_EXCEPTION_ERROR;
4044: End If;
4037: x_return_status => x_return_status);
4038:
4039: -- check if activity started successfully
4040: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4041: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4042: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4043: raise OKL_API.G_EXCEPTION_ERROR;
4044: End If;
4045:
4038:
4039: -- check if activity started successfully
4040: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4041: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4042: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4043: raise OKL_API.G_EXCEPTION_ERROR;
4044: End If;
4045:
4046: l_khrv_rec := p_khrv_rec;
4039: -- check if activity started successfully
4040: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4041: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4042: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4043: raise OKL_API.G_EXCEPTION_ERROR;
4044: End If;
4045:
4046: l_khrv_rec := p_khrv_rec;
4047: l_chrv_rec := p_chrv_rec;
4061: x_khrv_rec => x_khrv_rec
4062: );
4063:
4064: -- check return status
4065: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4066: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4068: raise OKL_API.G_EXCEPTION_ERROR;
4069: End If;
4062: );
4063:
4064: -- check return status
4065: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4066: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4068: raise OKL_API.G_EXCEPTION_ERROR;
4069: End If;
4070:
4063:
4064: -- check return status
4065: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4066: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4068: raise OKL_API.G_EXCEPTION_ERROR;
4069: End If;
4070:
4071:
4064: -- check return status
4065: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4066: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4067: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4068: raise OKL_API.G_EXCEPTION_ERROR;
4069: End If;
4070:
4071:
4072: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4068: raise OKL_API.G_EXCEPTION_ERROR;
4069: End If;
4070:
4071:
4072: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4073: x_msg_data => x_msg_data);
4074: EXCEPTION
4075: when OKL_API.G_EXCEPTION_ERROR then
4076: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4071:
4072: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4073: x_msg_data => x_msg_data);
4074: EXCEPTION
4075: when OKL_API.G_EXCEPTION_ERROR then
4076: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4077: p_api_name => l_api_name,
4078: p_pkg_name => g_pkg_name,
4079: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4072: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4073: x_msg_data => x_msg_data);
4074: EXCEPTION
4075: when OKL_API.G_EXCEPTION_ERROR then
4076: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4077: p_api_name => l_api_name,
4078: p_pkg_name => g_pkg_name,
4079: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4080: x_msg_count => x_msg_count,
4075: when OKL_API.G_EXCEPTION_ERROR then
4076: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4077: p_api_name => l_api_name,
4078: p_pkg_name => g_pkg_name,
4079: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4080: x_msg_count => x_msg_count,
4081: x_msg_data => x_msg_data,
4082: p_api_type => g_api_type);
4083:
4080: x_msg_count => x_msg_count,
4081: x_msg_data => x_msg_data,
4082: p_api_type => g_api_type);
4083:
4084: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4086: p_api_name => l_api_name,
4087: p_pkg_name => g_pkg_name,
4088: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4081: x_msg_data => x_msg_data,
4082: p_api_type => g_api_type);
4083:
4084: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4086: p_api_name => l_api_name,
4087: p_pkg_name => g_pkg_name,
4088: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4089: x_msg_count => x_msg_count,
4084: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4086: p_api_name => l_api_name,
4087: p_pkg_name => g_pkg_name,
4088: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4089: x_msg_count => x_msg_count,
4090: x_msg_data => x_msg_data,
4091: p_api_type => g_api_type);
4092:
4090: x_msg_data => x_msg_data,
4091: p_api_type => g_api_type);
4092:
4093: when OTHERS then
4094: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4095: p_api_name => l_api_name,
4096: p_pkg_name => g_pkg_name,
4097: p_exc_name => 'OTHERS',
4098: x_msg_count => x_msg_count,
4123: x_khrv_tbl OUT NOCOPY khrv_tbl_type) IS
4124:
4125: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
4126: l_api_version CONSTANT NUMBER := 1.0;
4127: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4128: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4129: i NUMBER;
4130: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
4131: BEGIN
4124:
4125: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
4126: l_api_version CONSTANT NUMBER := 1.0;
4127: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4128: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4129: i NUMBER;
4130: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
4131: BEGIN
4132: -- call START_ACTIVITY to create savepoint, check compatibility
4130: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
4131: BEGIN
4132: -- call START_ACTIVITY to create savepoint, check compatibility
4133: -- and initialize message list
4134: l_return_status := OKL_API.START_ACTIVITY(
4135: p_api_name => l_api_name,
4136: p_pkg_name => g_pkg_name,
4137: p_init_msg_list => p_init_msg_list,
4138: l_api_version => l_api_version,
4140: p_api_type => g_api_type,
4141: x_return_status => x_return_status);
4142:
4143: -- check if activity started successfully
4144: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4145: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4146: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4147: raise OKL_API.G_EXCEPTION_ERROR;
4148:
4141: x_return_status => x_return_status);
4142:
4143: -- check if activity started successfully
4144: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4145: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4146: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4147: raise OKL_API.G_EXCEPTION_ERROR;
4148:
4149: End If;
4142:
4143: -- check if activity started successfully
4144: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4145: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4146: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4147: raise OKL_API.G_EXCEPTION_ERROR;
4148:
4149: End If;
4150:
4143: -- check if activity started successfully
4144: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4145: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4146: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4147: raise OKL_API.G_EXCEPTION_ERROR;
4148:
4149: End If;
4150:
4151: If (p_chrv_tbl.COUNT > 0) Then
4163: p_khrv_rec => l_khrv_tbl(i),
4164: x_chrv_rec => x_chrv_tbl(i),
4165: x_khrv_rec => x_khrv_tbl(i));
4166:
4167: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
4168: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
4169: l_overall_status := x_return_status;
4170: End If;
4171: End If;
4164: x_chrv_rec => x_chrv_tbl(i),
4165: x_khrv_rec => x_khrv_tbl(i));
4166:
4167: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
4168: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
4169: l_overall_status := x_return_status;
4170: End If;
4171: End If;
4172:
4177: -- return overall status
4178: x_return_status := l_overall_status;
4179: End If;
4180:
4181: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4183: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4184: raise OKL_API.G_EXCEPTION_ERROR;
4185: End If;
4178: x_return_status := l_overall_status;
4179: End If;
4180:
4181: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4183: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4184: raise OKL_API.G_EXCEPTION_ERROR;
4185: End If;
4186:
4179: End If;
4180:
4181: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4183: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4184: raise OKL_API.G_EXCEPTION_ERROR;
4185: End If;
4186:
4187: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4180:
4181: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
4182: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4183: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4184: raise OKL_API.G_EXCEPTION_ERROR;
4185: End If;
4186:
4187: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4188: x_msg_data => x_msg_data);
4183: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
4184: raise OKL_API.G_EXCEPTION_ERROR;
4185: End If;
4186:
4187: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4188: x_msg_data => x_msg_data);
4189: EXCEPTION
4190: when OKL_API.G_EXCEPTION_ERROR then
4191: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4186:
4187: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4188: x_msg_data => x_msg_data);
4189: EXCEPTION
4190: when OKL_API.G_EXCEPTION_ERROR then
4191: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4192: p_api_name => l_api_name,
4193: p_pkg_name => g_pkg_name,
4194: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4187: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4188: x_msg_data => x_msg_data);
4189: EXCEPTION
4190: when OKL_API.G_EXCEPTION_ERROR then
4191: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4192: p_api_name => l_api_name,
4193: p_pkg_name => g_pkg_name,
4194: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4195: x_msg_count => x_msg_count,
4190: when OKL_API.G_EXCEPTION_ERROR then
4191: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4192: p_api_name => l_api_name,
4193: p_pkg_name => g_pkg_name,
4194: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4195: x_msg_count => x_msg_count,
4196: x_msg_data => x_msg_data,
4197: p_api_type => g_api_type);
4198:
4195: x_msg_count => x_msg_count,
4196: x_msg_data => x_msg_data,
4197: p_api_type => g_api_type);
4198:
4199: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4200: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4201: p_api_name => l_api_name,
4202: p_pkg_name => g_pkg_name,
4203: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4196: x_msg_data => x_msg_data,
4197: p_api_type => g_api_type);
4198:
4199: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4200: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4201: p_api_name => l_api_name,
4202: p_pkg_name => g_pkg_name,
4203: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4204: x_msg_count => x_msg_count,
4199: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4200: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4201: p_api_name => l_api_name,
4202: p_pkg_name => g_pkg_name,
4203: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4204: x_msg_count => x_msg_count,
4205: x_msg_data => x_msg_data,
4206: p_api_type => g_api_type);
4207:
4205: x_msg_data => x_msg_data,
4206: p_api_type => g_api_type);
4207:
4208: when OTHERS then
4209: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4210: p_api_name => l_api_name,
4211: p_pkg_name => g_pkg_name,
4212: p_exc_name => 'OTHERS',
4213: x_msg_count => x_msg_count,
4235:
4236: SUBTYPE chrv_rec_type IS OKL_OKC_MIGRATION_PVT.CHRV_REC_TYPE;
4237: SUBTYPE khrv_rec_type IS OKL_CONTRACT_PUB.KHRV_REC_TYPE;
4238: G_TLS_TYPE OKC_LINE_STYLES_V.LSE_TYPE%TYPE := 'TLS';
4239: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
4240: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
4241: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_OPEN_INTERFACE_PVT';
4242: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
4243: G_CANNOT_DELETE VARCHAR2(200) := 'OKC_CANNOT_DELETE';
4238: G_TLS_TYPE OKC_LINE_STYLES_V.LSE_TYPE%TYPE := 'TLS';
4239: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
4240: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
4241: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_OPEN_INTERFACE_PVT';
4242: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
4243: G_CANNOT_DELETE VARCHAR2(200) := 'OKC_CANNOT_DELETE';
4244: G_TABLE_NAME_TOKEN VARCHAR2(200) := 'TABLE_NAME';
4245: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACT_UNEXPECTED_ERROR';
4246: G_SQLCODE_TOKEN VARCHAR2(200) := 'SQLcode';
4603: END DELETE_RG_PARTY_ROLES;
4604:
4605:
4606: BEGIN
4607: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4608: -- Call start_activity to create savepoint, check compatibility
4609: -- and initialize message list
4610: x_return_status := OKL_API.START_ACTIVITY (
4611: l_api_name
4606: BEGIN
4607: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4608: -- Call start_activity to create savepoint, check compatibility
4609: -- and initialize message list
4610: x_return_status := OKL_API.START_ACTIVITY (
4611: l_api_name
4612: ,p_init_msg_list
4613: ,'_PVT'
4614: ,x_return_status);
4612: ,p_init_msg_list
4613: ,'_PVT'
4614: ,x_return_status);
4615: -- Check if activity started successfully
4616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4619: RAISE OKL_API.G_EXCEPTION_ERROR;
4620: END IF;
4613: ,'_PVT'
4614: ,x_return_status);
4615: -- Check if activity started successfully
4616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4619: RAISE OKL_API.G_EXCEPTION_ERROR;
4620: END IF;
4621: -- Get the Orig system id1
4614: ,x_return_status);
4615: -- Check if activity started successfully
4616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4619: RAISE OKL_API.G_EXCEPTION_ERROR;
4620: END IF;
4621: -- Get the Orig system id1
4622: OPEN get_sts_code(p_chr_id => p_contract_id);
4615: -- Check if activity started successfully
4616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4619: RAISE OKL_API.G_EXCEPTION_ERROR;
4620: END IF;
4621: -- Get the Orig system id1
4622: OPEN get_sts_code(p_chr_id => p_contract_id);
4623: FETCH get_sts_code INTO l_sts_code,
4624: l_orig_system_source_code,
4625: l_contract_number,
4626: l_authoring_org_id; --CDUBEY l_authoring_org_id added for MOAC
4627: IF get_sts_code%NOTFOUND THEN
4628: OKL_API.set_message(p_app_name => G_APP_NAME,
4629: p_msg_name => G_NO_MATCHING_RECORD,
4630: p_token1 => G_COL_NAME_TOKEN,
4631: p_token1_value => 'p_chr_id');
4632: x_return_status := OKL_API.G_RET_STS_ERROR;
4628: OKL_API.set_message(p_app_name => G_APP_NAME,
4629: p_msg_name => G_NO_MATCHING_RECORD,
4630: p_token1 => G_COL_NAME_TOKEN,
4631: p_token1_value => 'p_chr_id');
4632: x_return_status := OKL_API.G_RET_STS_ERROR;
4633: RAISE OKL_API.G_EXCEPTION_ERROR;
4634: END IF;
4635: CLOSE get_sts_code;
4636:
4629: p_msg_name => G_NO_MATCHING_RECORD,
4630: p_token1 => G_COL_NAME_TOKEN,
4631: p_token1_value => 'p_chr_id');
4632: x_return_status := OKL_API.G_RET_STS_ERROR;
4633: RAISE OKL_API.G_EXCEPTION_ERROR;
4634: END IF;
4635: CLOSE get_sts_code;
4636:
4637: -- Check rebook copy contract
4635: CLOSE get_sts_code;
4636:
4637: -- Check rebook copy contract
4638: if (nvl(l_orig_system_source_code, 'N') = 'OKL_REBOOK') then
4639: OKL_API.set_message(p_app_name => G_APP_NAME,
4640: p_msg_name => G_DELETE_CONT_RBK_ERROR,
4641: p_token1 => 'CONTRACT_NUMBER',
4642: p_token1_value => l_contract_number);
4643: x_return_status := OKL_API.G_RET_STS_ERROR;
4639: OKL_API.set_message(p_app_name => G_APP_NAME,
4640: p_msg_name => G_DELETE_CONT_RBK_ERROR,
4641: p_token1 => 'CONTRACT_NUMBER',
4642: p_token1_value => l_contract_number);
4643: x_return_status := OKL_API.G_RET_STS_ERROR;
4644: RAISE OKL_API.G_EXCEPTION_ERROR;
4645: end if;
4646:
4647: -- Check if funding txn exists
4640: p_msg_name => G_DELETE_CONT_RBK_ERROR,
4641: p_token1 => 'CONTRACT_NUMBER',
4642: p_token1_value => l_contract_number);
4643: x_return_status := OKL_API.G_RET_STS_ERROR;
4644: RAISE OKL_API.G_EXCEPTION_ERROR;
4645: end if;
4646:
4647: -- Check if funding txn exists
4648: l_funding_count := 0;
4656: and a.funding_type_code is not null
4657: and rownum < 2;
4658:
4659: if (l_funding_count > 0) then
4660: OKL_API.set_message(p_app_name => G_APP_NAME,
4661: p_msg_name => G_DELETE_CONT_FUND_ERROR,
4662: p_token1 => 'CONTRACT_NUMBER',
4663: p_token1_value => l_contract_number);
4664: x_return_status := OKL_API.G_RET_STS_ERROR;
4660: OKL_API.set_message(p_app_name => G_APP_NAME,
4661: p_msg_name => G_DELETE_CONT_FUND_ERROR,
4662: p_token1 => 'CONTRACT_NUMBER',
4663: p_token1_value => l_contract_number);
4664: x_return_status := OKL_API.G_RET_STS_ERROR;
4665: RAISE OKL_API.G_EXCEPTION_ERROR;
4666: end if;
4667:
4668: --check if contract was ever booked
4661: p_msg_name => G_DELETE_CONT_FUND_ERROR,
4662: p_token1 => 'CONTRACT_NUMBER',
4663: p_token1_value => l_contract_number);
4664: x_return_status := OKL_API.G_RET_STS_ERROR;
4665: RAISE OKL_API.G_EXCEPTION_ERROR;
4666: end if;
4667:
4668: --check if contract was ever booked
4669: l_chr_ever_booked := 'N';
4675: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4676: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_chr_ever_booked=' || l_chr_ever_booked);
4677: END IF;
4678: If nvl(l_chr_ever_booked, 'N') = 'Y' Then
4679: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4680: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
4681: x_return_status := OKL_API.G_RET_STS_ERROR;
4682: Raise OKL_API.G_EXCEPTION_ERROR;
4683: End If;
4677: END IF;
4678: If nvl(l_chr_ever_booked, 'N') = 'Y' Then
4679: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4680: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
4681: x_return_status := OKL_API.G_RET_STS_ERROR;
4682: Raise OKL_API.G_EXCEPTION_ERROR;
4683: End If;
4684:
4685: --check if contract has receivables invoices
4678: If nvl(l_chr_ever_booked, 'N') = 'Y' Then
4679: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4680: p_msg_name => G_PAST_BOOKED_KLE_DELETE);
4681: x_return_status := OKL_API.G_RET_STS_ERROR;
4682: Raise OKL_API.G_EXCEPTION_ERROR;
4683: End If;
4684:
4685: --check if contract has receivables invoices
4686: l_chr_invoices := 'N';
4692:
4693: Close check_receipts_csr;
4694:
4695: If nvl(l_chr_invoices, 'N') = 'Y' Then
4696: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4697: p_msg_name => G_DELETE_CONT_RCPT_ERROR,
4698: p_token1 => 'CONTRACT_NUMBER',
4699: p_token1_value => l_contract_number);
4700: x_return_status := OKL_API.G_RET_STS_ERROR;
4696: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4697: p_msg_name => G_DELETE_CONT_RCPT_ERROR,
4698: p_token1 => 'CONTRACT_NUMBER',
4699: p_token1_value => l_contract_number);
4700: x_return_status := OKL_API.G_RET_STS_ERROR;
4701: RAISE OKL_API.G_EXCEPTION_ERROR;
4702: End If;
4703:
4704: --debug_message('l_sts_code=' || l_sts_code);
4697: p_msg_name => G_DELETE_CONT_RCPT_ERROR,
4698: p_token1 => 'CONTRACT_NUMBER',
4699: p_token1_value => l_contract_number);
4700: x_return_status := OKL_API.G_RET_STS_ERROR;
4701: RAISE OKL_API.G_EXCEPTION_ERROR;
4702: End If;
4703:
4704: --debug_message('l_sts_code=' || l_sts_code);
4705: if l_sts_code not in ('NEW', 'INCOMPLETE', 'PASSED', 'COMPLETE', 'APPROVED', 'PENDING_APPROVAL') then
4702: End If;
4703:
4704: --debug_message('l_sts_code=' || l_sts_code);
4705: if l_sts_code not in ('NEW', 'INCOMPLETE', 'PASSED', 'COMPLETE', 'APPROVED', 'PENDING_APPROVAL') then
4706: OKL_API.set_message(p_app_name => G_APP_NAME,
4707: p_msg_name => G_DELETE_CONT_ERROR,
4708: p_token1 => 'CONTRACT_NUMBER',
4709: p_token1_value => l_contract_number,
4710: p_token2 => 'STATUS',
4708: p_token1 => 'CONTRACT_NUMBER',
4709: p_token1_value => l_contract_number,
4710: p_token2 => 'STATUS',
4711: p_token2_value => l_sts_code);
4712: x_return_status := OKL_API.G_RET_STS_ERROR;
4713: RAISE OKL_API.G_EXCEPTION_ERROR;
4714: end if;
4715:
4716: -- Deleting the Draft journal Entries
4709: p_token1_value => l_contract_number,
4710: p_token2 => 'STATUS',
4711: p_token2_value => l_sts_code);
4712: x_return_status := OKL_API.G_RET_STS_ERROR;
4713: RAISE OKL_API.G_EXCEPTION_ERROR;
4714: end if;
4715:
4716: -- Deleting the Draft journal Entries
4717: FOR r_get_source_id IN c_get_source_id(p_khr_id => p_contract_id) LOOP
4722: x_msg_count => x_msg_count,
4723: x_msg_data => x_msg_data,
4724: p_source_id => r_get_source_id.id,
4725: p_source_table => 'OKL_TXL_CNTRCT_LNS');
4726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4727: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4729: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4723: x_msg_data => x_msg_data,
4724: p_source_id => r_get_source_id.id,
4725: p_source_table => 'OKL_TXL_CNTRCT_LNS');
4726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4727: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4729: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4731: END LOOP;
4724: p_source_id => r_get_source_id.id,
4725: p_source_table => 'OKL_TXL_CNTRCT_LNS');
4726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4727: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4729: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4731: END LOOP;
4732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4725: p_source_table => 'OKL_TXL_CNTRCT_LNS');
4726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4727: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4729: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4731: END LOOP;
4732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4729: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4731: END LOOP;
4732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4735: RAISE OKL_API.G_EXCEPTION_ERROR;
4736: END IF;
4729: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4731: END LOOP;
4732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4735: RAISE OKL_API.G_EXCEPTION_ERROR;
4736: END IF;
4737: -- Deleting the transctions of the journal Entries
4730: END IF;
4731: END LOOP;
4732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4735: RAISE OKL_API.G_EXCEPTION_ERROR;
4736: END IF;
4737: -- Deleting the transctions of the journal Entries
4738: FOR r_get_je_trans IN c_get_je_trans(p_khr_id => p_contract_id) LOOP
4731: END LOOP;
4732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4735: RAISE OKL_API.G_EXCEPTION_ERROR;
4736: END IF;
4737: -- Deleting the transctions of the journal Entries
4738: FOR r_get_je_trans IN c_get_je_trans(p_khr_id => p_contract_id) LOOP
4739: r_tcnv_rec.id := r_get_je_trans.trx_id;
4743: x_return_status => x_return_status,
4744: x_msg_count => x_msg_count,
4745: x_msg_data => x_msg_data,
4746: p_tcnv_rec => r_tcnv_rec);
4747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4748: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4750: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4751: END IF;
4744: x_msg_count => x_msg_count,
4745: x_msg_data => x_msg_data,
4746: p_tcnv_rec => r_tcnv_rec);
4747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4748: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4750: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4751: END IF;
4752: END LOOP;
4745: x_msg_data => x_msg_data,
4746: p_tcnv_rec => r_tcnv_rec);
4747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4748: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4750: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4751: END IF;
4752: END LOOP;
4753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4746: p_tcnv_rec => r_tcnv_rec);
4747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4748: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4750: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4751: END IF;
4752: END LOOP;
4753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4750: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4751: END IF;
4752: END LOOP;
4753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4756: RAISE OKL_API.G_EXCEPTION_ERROR;
4757: END IF;
4750: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4751: END IF;
4752: END LOOP;
4753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4756: RAISE OKL_API.G_EXCEPTION_ERROR;
4757: END IF;
4758: -- Delete the streams for the contract
4751: END IF;
4752: END LOOP;
4753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4756: RAISE OKL_API.G_EXCEPTION_ERROR;
4757: END IF;
4758: -- Delete the streams for the contract
4759: FOR r_get_k_stream IN c_get_k_stream(p_khr_id => p_contract_id) LOOP
4752: END LOOP;
4753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4756: RAISE OKL_API.G_EXCEPTION_ERROR;
4757: END IF;
4758: -- Delete the streams for the contract
4759: FOR r_get_k_stream IN c_get_k_stream(p_khr_id => p_contract_id) LOOP
4760: l_stmv_rec.id := r_get_k_stream.stm_id;
4764: x_return_status => x_return_status,
4765: x_msg_count => x_msg_count,
4766: x_msg_data => x_msg_data,
4767: p_stmv_rec => l_stmv_rec);
4768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4769: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4770: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4771: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4772: END IF;
4765: x_msg_count => x_msg_count,
4766: x_msg_data => x_msg_data,
4767: p_stmv_rec => l_stmv_rec);
4768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4769: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4770: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4771: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4772: END IF;
4773: END LOOP;
4766: x_msg_data => x_msg_data,
4767: p_stmv_rec => l_stmv_rec);
4768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4769: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4770: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4771: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4772: END IF;
4773: END LOOP;
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4767: p_stmv_rec => l_stmv_rec);
4768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4769: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4770: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4771: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4772: END IF;
4773: END LOOP;
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4770: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4771: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4772: END IF;
4773: END LOOP;
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4777: RAISE OKL_API.G_EXCEPTION_ERROR;
4778: END IF;
4771: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4772: END IF;
4773: END LOOP;
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4777: RAISE OKL_API.G_EXCEPTION_ERROR;
4778: END IF;
4779: -- Delete the contract lines
4772: END IF;
4773: END LOOP;
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4777: RAISE OKL_API.G_EXCEPTION_ERROR;
4778: END IF;
4779: -- Delete the contract lines
4780: FOR r_get_k_top_line IN c_get_k_top_line(p_dnz_chr_id => p_contract_id) LOOP
4773: END LOOP;
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4777: RAISE OKL_API.G_EXCEPTION_ERROR;
4778: END IF;
4779: -- Delete the contract lines
4780: FOR r_get_k_top_line IN c_get_k_top_line(p_dnz_chr_id => p_contract_id) LOOP
4781: OKL_CONTRACT_PUB.delete_contract_line(
4784: x_return_status => x_return_status,
4785: x_msg_count => x_msg_count,
4786: x_msg_data => x_msg_data,
4787: p_line_id => r_get_k_top_line.top_line);
4788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4789: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4792: END IF;
4785: x_msg_count => x_msg_count,
4786: x_msg_data => x_msg_data,
4787: p_line_id => r_get_k_top_line.top_line);
4788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4789: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4792: END IF;
4793: END LOOP;
4786: x_msg_data => x_msg_data,
4787: p_line_id => r_get_k_top_line.top_line);
4788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4789: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4792: END IF;
4793: END LOOP;
4794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4787: p_line_id => r_get_k_top_line.top_line);
4788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4789: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4792: END IF;
4793: END LOOP;
4794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4792: END IF;
4793: END LOOP;
4794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4797: RAISE OKL_API.G_EXCEPTION_ERROR;
4798: END IF;
4791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4792: END IF;
4793: END LOOP;
4794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4797: RAISE OKL_API.G_EXCEPTION_ERROR;
4798: END IF;
4799:
4792: END IF;
4793: END LOOP;
4794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4797: RAISE OKL_API.G_EXCEPTION_ERROR;
4798: END IF;
4799:
4800: OKC_K_HISTORY_PUB.delete_all_rows(
4793: END LOOP;
4794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4797: RAISE OKL_API.G_EXCEPTION_ERROR;
4798: END IF;
4799:
4800: OKC_K_HISTORY_PUB.delete_all_rows(
4801: p_api_version => p_api_version,
4803: x_return_status => x_return_status,
4804: x_msg_count => x_msg_count,
4805: x_msg_data => x_msg_data,
4806: p_chr_id => p_contract_id);
4807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4810: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: END IF;
4804: x_msg_count => x_msg_count,
4805: x_msg_data => x_msg_data,
4806: p_chr_id => p_contract_id);
4807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4810: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: END IF;
4812:
4805: x_msg_data => x_msg_data,
4806: p_chr_id => p_contract_id);
4807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4810: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: END IF;
4812:
4813: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4806: p_chr_id => p_contract_id);
4807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4810: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: END IF;
4812:
4813: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4810: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: END IF;
4812:
4813: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4811: END IF;
4812:
4813: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4812:
4813: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4820: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4813: x_return_status := DELETE_GOVERNANCES(p_contract_id);
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4820: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4820: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4824: RAISE OKL_API.G_EXCEPTION_ERROR;
4825: END IF;
4818: END IF;
4819:
4820: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4824: RAISE OKL_API.G_EXCEPTION_ERROR;
4825: END IF;
4826:
4819:
4820: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4824: RAISE OKL_API.G_EXCEPTION_ERROR;
4825: END IF;
4826:
4827: x_return_status := DELETE_CONTACTS(p_contract_id);
4820: x_return_status := DELETE_RULE_GROUPS(p_contract_id);
4821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4824: RAISE OKL_API.G_EXCEPTION_ERROR;
4825: END IF;
4826:
4827: x_return_status := DELETE_CONTACTS(p_contract_id);
4828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4824: RAISE OKL_API.G_EXCEPTION_ERROR;
4825: END IF;
4826:
4827: x_return_status := DELETE_CONTACTS(p_contract_id);
4828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_ERROR;
4832: END IF;
4825: END IF;
4826:
4827: x_return_status := DELETE_CONTACTS(p_contract_id);
4828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_ERROR;
4832: END IF;
4833:
4826:
4827: x_return_status := DELETE_CONTACTS(p_contract_id);
4828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_ERROR;
4832: END IF;
4833:
4834: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4827: x_return_status := DELETE_CONTACTS(p_contract_id);
4828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_ERROR;
4832: END IF;
4833:
4834: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4835: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_ERROR;
4832: END IF;
4833:
4834: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4835: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4837: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4838: RAISE OKL_API.G_EXCEPTION_ERROR;
4839: END IF;
4832: END IF;
4833:
4834: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4835: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4837: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4838: RAISE OKL_API.G_EXCEPTION_ERROR;
4839: END IF;
4840:
4833:
4834: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4835: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4837: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4838: RAISE OKL_API.G_EXCEPTION_ERROR;
4839: END IF;
4840:
4841: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4834: x_return_status := DELETE_K_PARTY_ROLES(p_contract_id);
4835: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4836: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4837: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4838: RAISE OKL_API.G_EXCEPTION_ERROR;
4839: END IF;
4840:
4841: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4838: RAISE OKL_API.G_EXCEPTION_ERROR;
4839: END IF;
4840:
4841: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4845: RAISE OKL_API.G_EXCEPTION_ERROR;
4846: END IF;
4839: END IF;
4840:
4841: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4845: RAISE OKL_API.G_EXCEPTION_ERROR;
4846: END IF;
4847:
4840:
4841: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4845: RAISE OKL_API.G_EXCEPTION_ERROR;
4846: END IF;
4847:
4848: DELETE OKL_K_RATE_PARAMS
4841: x_return_status := DELETE_RG_PARTY_ROLES(p_contract_id);
4842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4845: RAISE OKL_API.G_EXCEPTION_ERROR;
4846: END IF;
4847:
4848: DELETE OKL_K_RATE_PARAMS
4849: WHERE KHR_ID = p_contract_id;
4863: x_msg_count => x_msg_count,
4864: x_msg_data => x_msg_data,
4865: p_chrv_rec => l_chrv_rec,
4866: p_khrv_rec => l_khrv_rec);
4867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4870: RAISE OKL_API.G_EXCEPTION_ERROR;
4871: END IF;
4864: x_msg_data => x_msg_data,
4865: p_chrv_rec => l_chrv_rec,
4866: p_khrv_rec => l_khrv_rec);
4867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4870: RAISE OKL_API.G_EXCEPTION_ERROR;
4871: END IF;
4872:
4865: p_chrv_rec => l_chrv_rec,
4866: p_khrv_rec => l_khrv_rec);
4867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4870: RAISE OKL_API.G_EXCEPTION_ERROR;
4871: END IF;
4872:
4873: OKL_API.END_ACTIVITY (x_msg_count,
4866: p_khrv_rec => l_khrv_rec);
4867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4870: RAISE OKL_API.G_EXCEPTION_ERROR;
4871: END IF;
4872:
4873: OKL_API.END_ACTIVITY (x_msg_count,
4874: x_msg_data );
4869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4870: RAISE OKL_API.G_EXCEPTION_ERROR;
4871: END IF;
4872:
4873: OKL_API.END_ACTIVITY (x_msg_count,
4874: x_msg_data );
4875: -- since we need to do this beacuse we need to delete to the contract
4876: --COMMIT;
4877: EXCEPTION
4874: x_msg_data );
4875: -- since we need to do this beacuse we need to delete to the contract
4876: --COMMIT;
4877: EXCEPTION
4878: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4879: IF c_get_k_top_line%ISOPEN THEN
4880: CLOSE c_get_k_top_line;
4881: END IF;
4882: IF get_sts_code%ISOPEN THEN
4891: END IF;
4892: IF c_get_source_id%ISOPEN THEN
4893: CLOSE c_get_source_id;
4894: END IF;
4895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4896: l_api_name,
4897: G_PKG_NAME,
4898: 'OKL_API.G_RET_STS_ERROR',
4899: x_msg_count,
4894: END IF;
4895: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4896: l_api_name,
4897: G_PKG_NAME,
4898: 'OKL_API.G_RET_STS_ERROR',
4899: x_msg_count,
4900: x_msg_data,
4901: '_PVT');
4902: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4898: 'OKL_API.G_RET_STS_ERROR',
4899: x_msg_count,
4900: x_msg_data,
4901: '_PVT');
4902: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4903: IF c_get_k_top_line%ISOPEN THEN
4904: CLOSE c_get_k_top_line;
4905: END IF;
4906: IF get_sts_code%ISOPEN THEN
4915: END IF;
4916: IF c_get_source_id%ISOPEN THEN
4917: CLOSE c_get_source_id;
4918: END IF;
4919: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4920: l_api_name,
4921: G_PKG_NAME,
4922: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4923: x_msg_count,
4918: END IF;
4919: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4920: l_api_name,
4921: G_PKG_NAME,
4922: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4923: x_msg_count,
4924: x_msg_data,
4925: '_PVT');
4926: WHEN OTHERS THEN
4939: END IF;
4940: IF c_get_source_id%ISOPEN THEN
4941: CLOSE c_get_source_id;
4942: END IF;
4943: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4944: l_api_name,
4945: G_PKG_NAME,
4946: 'OTHERS',
4947: x_msg_count,
4970: l_khrv_rec khrv_rec_type;
4971:
4972: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
4973: l_api_version CONSTANT NUMBER := 1.0;
4974: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4975: BEGIN
4976:
4977: -- call START_ACTIVITY to create savepoint, check compatibility
4978: -- and initialize message list
4975: BEGIN
4976:
4977: -- call START_ACTIVITY to create savepoint, check compatibility
4978: -- and initialize message list
4979: l_return_status := OKL_API.START_ACTIVITY(
4980: p_api_name => l_api_name,
4981: p_pkg_name => g_pkg_name,
4982: p_init_msg_list => p_init_msg_list,
4983: l_api_version => l_api_version,
4985: p_api_type => g_api_type,
4986: x_return_status => x_return_status);
4987:
4988: -- check if activity started successfully
4989: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4990: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4991: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4992: raise OKL_API.G_EXCEPTION_ERROR;
4993: End If;
4986: x_return_status => x_return_status);
4987:
4988: -- check if activity started successfully
4989: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4990: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4991: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4992: raise OKL_API.G_EXCEPTION_ERROR;
4993: End If;
4994:
4987:
4988: -- check if activity started successfully
4989: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4990: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4991: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4992: raise OKL_API.G_EXCEPTION_ERROR;
4993: End If;
4994:
4995: l_khrv_rec := p_khrv_rec;
4988: -- check if activity started successfully
4989: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4990: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4991: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
4992: raise OKL_API.G_EXCEPTION_ERROR;
4993: End If;
4994:
4995: l_khrv_rec := p_khrv_rec;
4996: l_chrv_rec := p_chrv_rec;
5013: x_msg_data => x_msg_data,
5014: p_chrv_rec => l_chrv_rec);
5015:
5016: -- check return status
5017: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5018: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5019: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5020: raise OKL_API.G_EXCEPTION_ERROR;
5021: End If;
5014: p_chrv_rec => l_chrv_rec);
5015:
5016: -- check return status
5017: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5018: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5019: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5020: raise OKL_API.G_EXCEPTION_ERROR;
5021: End If;
5022:
5015:
5016: -- check return status
5017: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5018: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5019: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5020: raise OKL_API.G_EXCEPTION_ERROR;
5021: End If;
5022:
5023: -- call procedure in complex API
5016: -- check return status
5017: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5018: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5019: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5020: raise OKL_API.G_EXCEPTION_ERROR;
5021: End If;
5022:
5023: -- call procedure in complex API
5024: OKL_KHR_PVT.Delete_Row(
5028: x_msg_count => x_msg_count,
5029: x_msg_data => x_msg_data,
5030: p_khrv_rec => p_khrv_rec);
5031:
5032: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5033: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5034: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5035: raise OKL_API.G_EXCEPTION_ERROR;
5036: End If;
5029: x_msg_data => x_msg_data,
5030: p_khrv_rec => p_khrv_rec);
5031:
5032: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5033: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5034: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5035: raise OKL_API.G_EXCEPTION_ERROR;
5036: End If;
5037:
5030: p_khrv_rec => p_khrv_rec);
5031:
5032: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5033: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5034: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5035: raise OKL_API.G_EXCEPTION_ERROR;
5036: End If;
5037:
5038: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5031:
5032: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5033: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5034: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5035: raise OKL_API.G_EXCEPTION_ERROR;
5036: End If;
5037:
5038: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5039: x_msg_data => x_msg_data);
5034: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5035: raise OKL_API.G_EXCEPTION_ERROR;
5036: End If;
5037:
5038: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5039: x_msg_data => x_msg_data);
5040: EXCEPTION
5041: when OKL_API.G_EXCEPTION_ERROR then
5042: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5037:
5038: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5039: x_msg_data => x_msg_data);
5040: EXCEPTION
5041: when OKL_API.G_EXCEPTION_ERROR then
5042: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5043: p_api_name => l_api_name,
5044: p_pkg_name => g_pkg_name,
5045: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5038: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5039: x_msg_data => x_msg_data);
5040: EXCEPTION
5041: when OKL_API.G_EXCEPTION_ERROR then
5042: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5043: p_api_name => l_api_name,
5044: p_pkg_name => g_pkg_name,
5045: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5046: x_msg_count => x_msg_count,
5041: when OKL_API.G_EXCEPTION_ERROR then
5042: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5043: p_api_name => l_api_name,
5044: p_pkg_name => g_pkg_name,
5045: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5046: x_msg_count => x_msg_count,
5047: x_msg_data => x_msg_data,
5048: p_api_type => g_api_type);
5049:
5046: x_msg_count => x_msg_count,
5047: x_msg_data => x_msg_data,
5048: p_api_type => g_api_type);
5049:
5050: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5051: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5052: p_api_name => l_api_name,
5053: p_pkg_name => g_pkg_name,
5054: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5047: x_msg_data => x_msg_data,
5048: p_api_type => g_api_type);
5049:
5050: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5051: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5052: p_api_name => l_api_name,
5053: p_pkg_name => g_pkg_name,
5054: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5055: x_msg_count => x_msg_count,
5050: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5051: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5052: p_api_name => l_api_name,
5053: p_pkg_name => g_pkg_name,
5054: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5055: x_msg_count => x_msg_count,
5056: x_msg_data => x_msg_data,
5057: p_api_type => g_api_type);
5058:
5056: x_msg_data => x_msg_data,
5057: p_api_type => g_api_type);
5058:
5059: when OTHERS then
5060: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5061: p_api_name => l_api_name,
5062: p_pkg_name => g_pkg_name,
5063: p_exc_name => 'OTHERS',
5064: x_msg_count => x_msg_count,
5085: p_khrv_tbl IN khrv_tbl_type) IS
5086:
5087: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
5088: l_api_version CONSTANT NUMBER := 1.0;
5089: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5090: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5091: i NUMBER;
5092: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5093: BEGIN
5086:
5087: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
5088: l_api_version CONSTANT NUMBER := 1.0;
5089: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5090: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5091: i NUMBER;
5092: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5093: BEGIN
5094: -- call START_ACTIVITY to create savepoint, check compatibility
5092: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5093: BEGIN
5094: -- call START_ACTIVITY to create savepoint, check compatibility
5095: -- and initialize message list
5096: l_return_status := OKL_API.START_ACTIVITY(
5097: p_api_name => l_api_name,
5098: p_pkg_name => g_pkg_name,
5099: p_init_msg_list => p_init_msg_list,
5100: l_api_version => l_api_version,
5102: p_api_type => g_api_type,
5103: x_return_status => x_return_status);
5104:
5105: -- check if activity started successfully
5106: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5107: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5108: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5109: raise OKL_API.G_EXCEPTION_ERROR;
5110:
5103: x_return_status => x_return_status);
5104:
5105: -- check if activity started successfully
5106: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5107: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5108: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5109: raise OKL_API.G_EXCEPTION_ERROR;
5110:
5111: End If;
5104:
5105: -- check if activity started successfully
5106: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5107: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5108: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5109: raise OKL_API.G_EXCEPTION_ERROR;
5110:
5111: End If;
5112:
5105: -- check if activity started successfully
5106: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5107: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5108: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5109: raise OKL_API.G_EXCEPTION_ERROR;
5110:
5111: End If;
5112:
5113: If (p_chrv_tbl.COUNT > 0) Then
5122: x_msg_data => x_msg_data,
5123: p_chrv_rec => p_chrv_tbl(i),
5124: p_khrv_rec => l_khrv_tbl(i));
5125:
5126: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5127: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5128: l_overall_status := x_return_status;
5129: End If;
5130: End If;
5123: p_chrv_rec => p_chrv_tbl(i),
5124: p_khrv_rec => l_khrv_tbl(i));
5125:
5126: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5127: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5128: l_overall_status := x_return_status;
5129: End If;
5130: End If;
5131:
5136: -- return overall status
5137: x_return_status := l_overall_status;
5138: End If;
5139:
5140: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5141: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5143: raise OKL_API.G_EXCEPTION_ERROR;
5144: End If;
5137: x_return_status := l_overall_status;
5138: End If;
5139:
5140: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5141: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5143: raise OKL_API.G_EXCEPTION_ERROR;
5144: End If;
5145:
5138: End If;
5139:
5140: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5141: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5143: raise OKL_API.G_EXCEPTION_ERROR;
5144: End If;
5145:
5146: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5139:
5140: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5141: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5143: raise OKL_API.G_EXCEPTION_ERROR;
5144: End If;
5145:
5146: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5147: x_msg_data => x_msg_data);
5142: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5143: raise OKL_API.G_EXCEPTION_ERROR;
5144: End If;
5145:
5146: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5147: x_msg_data => x_msg_data);
5148: EXCEPTION
5149: when OKL_API.G_EXCEPTION_ERROR then
5150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5145:
5146: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5147: x_msg_data => x_msg_data);
5148: EXCEPTION
5149: when OKL_API.G_EXCEPTION_ERROR then
5150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5151: p_api_name => l_api_name,
5152: p_pkg_name => g_pkg_name,
5153: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5146: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5147: x_msg_data => x_msg_data);
5148: EXCEPTION
5149: when OKL_API.G_EXCEPTION_ERROR then
5150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5151: p_api_name => l_api_name,
5152: p_pkg_name => g_pkg_name,
5153: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5154: x_msg_count => x_msg_count,
5149: when OKL_API.G_EXCEPTION_ERROR then
5150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5151: p_api_name => l_api_name,
5152: p_pkg_name => g_pkg_name,
5153: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5154: x_msg_count => x_msg_count,
5155: x_msg_data => x_msg_data,
5156: p_api_type => g_api_type);
5157:
5154: x_msg_count => x_msg_count,
5155: x_msg_data => x_msg_data,
5156: p_api_type => g_api_type);
5157:
5158: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5159: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5160: p_api_name => l_api_name,
5161: p_pkg_name => g_pkg_name,
5162: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5155: x_msg_data => x_msg_data,
5156: p_api_type => g_api_type);
5157:
5158: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5159: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5160: p_api_name => l_api_name,
5161: p_pkg_name => g_pkg_name,
5162: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5163: x_msg_count => x_msg_count,
5158: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5159: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5160: p_api_name => l_api_name,
5161: p_pkg_name => g_pkg_name,
5162: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5163: x_msg_count => x_msg_count,
5164: x_msg_data => x_msg_data,
5165: p_api_type => g_api_type);
5166:
5164: x_msg_data => x_msg_data,
5165: p_api_type => g_api_type);
5166:
5167: when OTHERS then
5168: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5169: p_api_name => l_api_name,
5170: p_pkg_name => g_pkg_name,
5171: p_exc_name => 'OTHERS',
5172: x_msg_count => x_msg_count,
5196: l_khrv_rec khrv_rec_type;
5197:
5198: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_HEADER';
5199: l_api_version CONSTANT NUMBER := 1.0;
5200: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5201: BEGIN
5202:
5203: -- call START_ACTIVITY to create savepoint, check compatibility
5204: -- and initialize message list
5201: BEGIN
5202:
5203: -- call START_ACTIVITY to create savepoint, check compatibility
5204: -- and initialize message list
5205: l_return_status := OKL_API.START_ACTIVITY(
5206: p_api_name => l_api_name,
5207: p_pkg_name => g_pkg_name,
5208: p_init_msg_list => p_init_msg_list,
5209: l_api_version => l_api_version,
5211: p_api_type => g_api_type,
5212: x_return_status => x_return_status);
5213:
5214: -- check if activity started successfully
5215: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5216: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5217: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5218: raise OKL_API.G_EXCEPTION_ERROR;
5219: End If;
5212: x_return_status => x_return_status);
5213:
5214: -- check if activity started successfully
5215: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5216: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5217: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5218: raise OKL_API.G_EXCEPTION_ERROR;
5219: End If;
5220:
5213:
5214: -- check if activity started successfully
5215: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5216: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5217: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5218: raise OKL_API.G_EXCEPTION_ERROR;
5219: End If;
5220:
5221: l_khrv_rec := p_khrv_rec;
5214: -- check if activity started successfully
5215: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5216: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5217: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5218: raise OKL_API.G_EXCEPTION_ERROR;
5219: End If;
5220:
5221: l_khrv_rec := p_khrv_rec;
5222: l_chrv_rec := p_chrv_rec;
5239: x_msg_data => x_msg_data,
5240: p_chrv_rec => l_chrv_rec);
5241:
5242: -- check return status
5243: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5244: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5245: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5246: raise OKL_API.G_EXCEPTION_ERROR;
5247: End If;
5240: p_chrv_rec => l_chrv_rec);
5241:
5242: -- check return status
5243: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5244: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5245: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5246: raise OKL_API.G_EXCEPTION_ERROR;
5247: End If;
5248:
5241:
5242: -- check return status
5243: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5244: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5245: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5246: raise OKL_API.G_EXCEPTION_ERROR;
5247: End If;
5248:
5249: -- call procedure in complex API
5242: -- check return status
5243: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5244: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5245: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5246: raise OKL_API.G_EXCEPTION_ERROR;
5247: End If;
5248:
5249: -- call procedure in complex API
5250: OKL_KHR_PVT.lock_Row(
5254: x_msg_count => x_msg_count,
5255: x_msg_data => x_msg_data,
5256: p_khrv_rec => p_khrv_rec);
5257:
5258: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5259: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5261: raise OKL_API.G_EXCEPTION_ERROR;
5262: End If;
5255: x_msg_data => x_msg_data,
5256: p_khrv_rec => p_khrv_rec);
5257:
5258: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5259: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5261: raise OKL_API.G_EXCEPTION_ERROR;
5262: End If;
5263:
5256: p_khrv_rec => p_khrv_rec);
5257:
5258: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5259: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5261: raise OKL_API.G_EXCEPTION_ERROR;
5262: End If;
5263:
5264: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5257:
5258: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5259: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5261: raise OKL_API.G_EXCEPTION_ERROR;
5262: End If;
5263:
5264: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5265: x_msg_data => x_msg_data);
5260: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5261: raise OKL_API.G_EXCEPTION_ERROR;
5262: End If;
5263:
5264: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5265: x_msg_data => x_msg_data);
5266: EXCEPTION
5267: when OKL_API.G_EXCEPTION_ERROR then
5268: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5263:
5264: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5265: x_msg_data => x_msg_data);
5266: EXCEPTION
5267: when OKL_API.G_EXCEPTION_ERROR then
5268: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5269: p_api_name => l_api_name,
5270: p_pkg_name => g_pkg_name,
5271: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5264: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5265: x_msg_data => x_msg_data);
5266: EXCEPTION
5267: when OKL_API.G_EXCEPTION_ERROR then
5268: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5269: p_api_name => l_api_name,
5270: p_pkg_name => g_pkg_name,
5271: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5272: x_msg_count => x_msg_count,
5267: when OKL_API.G_EXCEPTION_ERROR then
5268: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5269: p_api_name => l_api_name,
5270: p_pkg_name => g_pkg_name,
5271: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5272: x_msg_count => x_msg_count,
5273: x_msg_data => x_msg_data,
5274: p_api_type => g_api_type);
5275:
5272: x_msg_count => x_msg_count,
5273: x_msg_data => x_msg_data,
5274: p_api_type => g_api_type);
5275:
5276: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5277: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5278: p_api_name => l_api_name,
5279: p_pkg_name => g_pkg_name,
5280: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5273: x_msg_data => x_msg_data,
5274: p_api_type => g_api_type);
5275:
5276: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5277: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5278: p_api_name => l_api_name,
5279: p_pkg_name => g_pkg_name,
5280: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5281: x_msg_count => x_msg_count,
5276: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5277: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5278: p_api_name => l_api_name,
5279: p_pkg_name => g_pkg_name,
5280: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5281: x_msg_count => x_msg_count,
5282: x_msg_data => x_msg_data,
5283: p_api_type => g_api_type);
5284:
5282: x_msg_data => x_msg_data,
5283: p_api_type => g_api_type);
5284:
5285: when OTHERS then
5286: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5287: p_api_name => l_api_name,
5288: p_pkg_name => g_pkg_name,
5289: p_exc_name => 'OTHERS',
5290: x_msg_count => x_msg_count,
5311: p_khrv_tbl IN khrv_tbl_type) IS
5312:
5313: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_HEADER';
5314: l_api_version CONSTANT NUMBER := 1.0;
5315: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5316: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5317: i NUMBER;
5318: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5319: BEGIN
5312:
5313: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_HEADER';
5314: l_api_version CONSTANT NUMBER := 1.0;
5315: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5316: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5317: i NUMBER;
5318: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5319: BEGIN
5320: -- call START_ACTIVITY to create savepoint, check compatibility
5318: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5319: BEGIN
5320: -- call START_ACTIVITY to create savepoint, check compatibility
5321: -- and initialize message list
5322: l_return_status := OKL_API.START_ACTIVITY(
5323: p_api_name => l_api_name,
5324: p_pkg_name => g_pkg_name,
5325: p_init_msg_list => p_init_msg_list,
5326: l_api_version => l_api_version,
5328: p_api_type => g_api_type,
5329: x_return_status => x_return_status);
5330:
5331: -- check if activity started successfully
5332: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5334: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5335: raise OKL_API.G_EXCEPTION_ERROR;
5336:
5329: x_return_status => x_return_status);
5330:
5331: -- check if activity started successfully
5332: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5334: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5335: raise OKL_API.G_EXCEPTION_ERROR;
5336:
5337: End If;
5330:
5331: -- check if activity started successfully
5332: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5334: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5335: raise OKL_API.G_EXCEPTION_ERROR;
5336:
5337: End If;
5338:
5331: -- check if activity started successfully
5332: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5333: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5334: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5335: raise OKL_API.G_EXCEPTION_ERROR;
5336:
5337: End If;
5338:
5339: If (p_chrv_tbl.COUNT > 0) Then
5348: x_msg_data => x_msg_data,
5349: p_chrv_rec => p_chrv_tbl(i),
5350: p_khrv_rec => l_khrv_tbl(i));
5351:
5352: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5353: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5354: l_overall_status := x_return_status;
5355: End If;
5356: End If;
5349: p_chrv_rec => p_chrv_tbl(i),
5350: p_khrv_rec => l_khrv_tbl(i));
5351:
5352: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5353: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5354: l_overall_status := x_return_status;
5355: End If;
5356: End If;
5357:
5362: -- return overall status
5363: x_return_status := l_overall_status;
5364: End If;
5365:
5366: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5367: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5368: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5369: raise OKL_API.G_EXCEPTION_ERROR;
5370: End If;
5363: x_return_status := l_overall_status;
5364: End If;
5365:
5366: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5367: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5368: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5369: raise OKL_API.G_EXCEPTION_ERROR;
5370: End If;
5371:
5364: End If;
5365:
5366: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5367: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5368: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5369: raise OKL_API.G_EXCEPTION_ERROR;
5370: End If;
5371:
5372: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5365:
5366: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5367: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5368: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5369: raise OKL_API.G_EXCEPTION_ERROR;
5370: End If;
5371:
5372: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5373: x_msg_data => x_msg_data);
5368: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5369: raise OKL_API.G_EXCEPTION_ERROR;
5370: End If;
5371:
5372: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5373: x_msg_data => x_msg_data);
5374: EXCEPTION
5375: when OKL_API.G_EXCEPTION_ERROR then
5376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5371:
5372: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5373: x_msg_data => x_msg_data);
5374: EXCEPTION
5375: when OKL_API.G_EXCEPTION_ERROR then
5376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5377: p_api_name => l_api_name,
5378: p_pkg_name => g_pkg_name,
5379: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5372: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5373: x_msg_data => x_msg_data);
5374: EXCEPTION
5375: when OKL_API.G_EXCEPTION_ERROR then
5376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5377: p_api_name => l_api_name,
5378: p_pkg_name => g_pkg_name,
5379: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5380: x_msg_count => x_msg_count,
5375: when OKL_API.G_EXCEPTION_ERROR then
5376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5377: p_api_name => l_api_name,
5378: p_pkg_name => g_pkg_name,
5379: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5380: x_msg_count => x_msg_count,
5381: x_msg_data => x_msg_data,
5382: p_api_type => g_api_type);
5383:
5380: x_msg_count => x_msg_count,
5381: x_msg_data => x_msg_data,
5382: p_api_type => g_api_type);
5383:
5384: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5386: p_api_name => l_api_name,
5387: p_pkg_name => g_pkg_name,
5388: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5381: x_msg_data => x_msg_data,
5382: p_api_type => g_api_type);
5383:
5384: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5386: p_api_name => l_api_name,
5387: p_pkg_name => g_pkg_name,
5388: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5389: x_msg_count => x_msg_count,
5384: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5386: p_api_name => l_api_name,
5387: p_pkg_name => g_pkg_name,
5388: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5389: x_msg_count => x_msg_count,
5390: x_msg_data => x_msg_data,
5391: p_api_type => g_api_type);
5392:
5390: x_msg_data => x_msg_data,
5391: p_api_type => g_api_type);
5392:
5393: when OTHERS then
5394: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5395: p_api_name => l_api_name,
5396: p_pkg_name => g_pkg_name,
5397: p_exc_name => 'OTHERS',
5398: x_msg_count => x_msg_count,
5423: l_khrv_rec khrv_rec_type;
5424:
5425: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_HEADER';
5426: l_api_version CONSTANT NUMBER := 1.0;
5427: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5428: BEGIN
5429:
5430: --dbms_output.put_line('Start validation');
5431: -- call START_ACTIVITY to create savepoint, check compatibility
5429:
5430: --dbms_output.put_line('Start validation');
5431: -- call START_ACTIVITY to create savepoint, check compatibility
5432: -- and initialize message list
5433: l_return_status := OKL_API.START_ACTIVITY(
5434: p_api_name => l_api_name,
5435: p_pkg_name => g_pkg_name,
5436: p_init_msg_list => p_init_msg_list,
5437: l_api_version => l_api_version,
5439: p_api_type => g_api_type,
5440: x_return_status => x_return_status);
5441:
5442: -- check if activity started successfully
5443: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5444: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5445: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5446: raise OKL_API.G_EXCEPTION_ERROR;
5447: End If;
5440: x_return_status => x_return_status);
5441:
5442: -- check if activity started successfully
5443: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5444: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5445: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5446: raise OKL_API.G_EXCEPTION_ERROR;
5447: End If;
5448:
5441:
5442: -- check if activity started successfully
5443: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5444: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5445: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5446: raise OKL_API.G_EXCEPTION_ERROR;
5447: End If;
5448:
5449: --dbms_output.put_line('Started activity');
5442: -- check if activity started successfully
5443: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5444: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5445: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5446: raise OKL_API.G_EXCEPTION_ERROR;
5447: End If;
5448:
5449: --dbms_output.put_line('Started activity');
5450:
5469: x_msg_data => x_msg_data,
5470: p_chrv_rec => l_chrv_rec);
5471:
5472: -- check return status
5473: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5474: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5475: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5476: raise OKL_API.G_EXCEPTION_ERROR;
5477: End If;
5470: p_chrv_rec => l_chrv_rec);
5471:
5472: -- check return status
5473: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5474: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5475: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5476: raise OKL_API.G_EXCEPTION_ERROR;
5477: End If;
5478: --dbms_output.put_line('Got standard validation');
5471:
5472: -- check return status
5473: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5474: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5475: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5476: raise OKL_API.G_EXCEPTION_ERROR;
5477: End If;
5478: --dbms_output.put_line('Got standard validation');
5479:
5472: -- check return status
5473: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5474: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5475: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5476: raise OKL_API.G_EXCEPTION_ERROR;
5477: End If;
5478: --dbms_output.put_line('Got standard validation');
5479:
5480: -- pass OKC contract header id
5488: x_msg_count => x_msg_count,
5489: x_msg_data => x_msg_data,
5490: p_khrv_rec => l_khrv_rec);
5491:
5492: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5493: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5495: raise OKL_API.G_EXCEPTION_ERROR;
5496: End If;
5489: x_msg_data => x_msg_data,
5490: p_khrv_rec => l_khrv_rec);
5491:
5492: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5493: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5495: raise OKL_API.G_EXCEPTION_ERROR;
5496: End If;
5497: --dbms_output.put_line('Got shadow validation');
5490: p_khrv_rec => l_khrv_rec);
5491:
5492: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5493: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5495: raise OKL_API.G_EXCEPTION_ERROR;
5496: End If;
5497: --dbms_output.put_line('Got shadow validation');
5498:
5491:
5492: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5493: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5494: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5495: raise OKL_API.G_EXCEPTION_ERROR;
5496: End If;
5497: --dbms_output.put_line('Got shadow validation');
5498:
5499: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5495: raise OKL_API.G_EXCEPTION_ERROR;
5496: End If;
5497: --dbms_output.put_line('Got shadow validation');
5498:
5499: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5500: x_msg_data => x_msg_data);
5501: --dbms_output.put_line('Done');
5502: EXCEPTION
5503: when OKL_API.G_EXCEPTION_ERROR then
5499: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5500: x_msg_data => x_msg_data);
5501: --dbms_output.put_line('Done');
5502: EXCEPTION
5503: when OKL_API.G_EXCEPTION_ERROR then
5504: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5505: p_api_name => l_api_name,
5506: p_pkg_name => g_pkg_name,
5507: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5500: x_msg_data => x_msg_data);
5501: --dbms_output.put_line('Done');
5502: EXCEPTION
5503: when OKL_API.G_EXCEPTION_ERROR then
5504: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5505: p_api_name => l_api_name,
5506: p_pkg_name => g_pkg_name,
5507: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5508: x_msg_count => x_msg_count,
5503: when OKL_API.G_EXCEPTION_ERROR then
5504: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5505: p_api_name => l_api_name,
5506: p_pkg_name => g_pkg_name,
5507: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5508: x_msg_count => x_msg_count,
5509: x_msg_data => x_msg_data,
5510: p_api_type => g_api_type);
5511:
5508: x_msg_count => x_msg_count,
5509: x_msg_data => x_msg_data,
5510: p_api_type => g_api_type);
5511:
5512: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5513: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5514: p_api_name => l_api_name,
5515: p_pkg_name => g_pkg_name,
5516: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5509: x_msg_data => x_msg_data,
5510: p_api_type => g_api_type);
5511:
5512: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5513: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5514: p_api_name => l_api_name,
5515: p_pkg_name => g_pkg_name,
5516: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5517: x_msg_count => x_msg_count,
5512: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5513: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5514: p_api_name => l_api_name,
5515: p_pkg_name => g_pkg_name,
5516: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5517: x_msg_count => x_msg_count,
5518: x_msg_data => x_msg_data,
5519: p_api_type => g_api_type);
5520:
5518: x_msg_data => x_msg_data,
5519: p_api_type => g_api_type);
5520:
5521: when OTHERS then
5522: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5523: p_api_name => l_api_name,
5524: p_pkg_name => g_pkg_name,
5525: p_exc_name => 'OTHERS',
5526: x_msg_count => x_msg_count,
5547: p_khrv_tbl IN khrv_tbl_type) IS
5548:
5549: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_HEADER';
5550: l_api_version CONSTANT NUMBER := 1.0;
5551: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5552: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5553: i NUMBER;
5554: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5555: BEGIN
5548:
5549: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_HEADER';
5550: l_api_version CONSTANT NUMBER := 1.0;
5551: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5552: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5553: i NUMBER;
5554: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5555: BEGIN
5556: -- call START_ACTIVITY to create savepoint, check compatibility
5554: l_khrv_tbl khrv_tbl_type := p_khrv_tbl;
5555: BEGIN
5556: -- call START_ACTIVITY to create savepoint, check compatibility
5557: -- and initialize message list
5558: l_return_status := OKL_API.START_ACTIVITY(
5559: p_api_name => l_api_name,
5560: p_pkg_name => g_pkg_name,
5561: p_init_msg_list => p_init_msg_list,
5562: l_api_version => l_api_version,
5564: p_api_type => g_api_type,
5565: x_return_status => x_return_status);
5566:
5567: -- check if activity started successfully
5568: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5569: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5570: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5571: raise OKL_API.G_EXCEPTION_ERROR;
5572:
5565: x_return_status => x_return_status);
5566:
5567: -- check if activity started successfully
5568: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5569: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5570: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5571: raise OKL_API.G_EXCEPTION_ERROR;
5572:
5573: End If;
5566:
5567: -- check if activity started successfully
5568: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5569: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5570: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5571: raise OKL_API.G_EXCEPTION_ERROR;
5572:
5573: End If;
5574:
5567: -- check if activity started successfully
5568: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5569: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5570: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
5571: raise OKL_API.G_EXCEPTION_ERROR;
5572:
5573: End If;
5574:
5575: If (p_chrv_tbl.COUNT > 0) Then
5584: x_msg_data => x_msg_data,
5585: p_chrv_rec => p_chrv_tbl(i),
5586: p_khrv_rec => l_khrv_tbl(i));
5587:
5588: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5589: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5590: l_overall_status := x_return_status;
5591: End If;
5592: End If;
5585: p_chrv_rec => p_chrv_tbl(i),
5586: p_khrv_rec => l_khrv_tbl(i));
5587:
5588: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
5589: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
5590: l_overall_status := x_return_status;
5591: End If;
5592: End If;
5593:
5598: -- return overall status
5599: x_return_status := l_overall_status;
5600: End If;
5601:
5602: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5603: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5604: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5605: raise OKL_API.G_EXCEPTION_ERROR;
5606: End If;
5599: x_return_status := l_overall_status;
5600: End If;
5601:
5602: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5603: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5604: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5605: raise OKL_API.G_EXCEPTION_ERROR;
5606: End If;
5607:
5600: End If;
5601:
5602: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5603: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5604: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5605: raise OKL_API.G_EXCEPTION_ERROR;
5606: End If;
5607:
5608: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5601:
5602: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
5603: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5604: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5605: raise OKL_API.G_EXCEPTION_ERROR;
5606: End If;
5607:
5608: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5609: x_msg_data => x_msg_data);
5604: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
5605: raise OKL_API.G_EXCEPTION_ERROR;
5606: End If;
5607:
5608: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5609: x_msg_data => x_msg_data);
5610: EXCEPTION
5611: when OKL_API.G_EXCEPTION_ERROR then
5612: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5607:
5608: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5609: x_msg_data => x_msg_data);
5610: EXCEPTION
5611: when OKL_API.G_EXCEPTION_ERROR then
5612: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5613: p_api_name => l_api_name,
5614: p_pkg_name => g_pkg_name,
5615: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5608: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5609: x_msg_data => x_msg_data);
5610: EXCEPTION
5611: when OKL_API.G_EXCEPTION_ERROR then
5612: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5613: p_api_name => l_api_name,
5614: p_pkg_name => g_pkg_name,
5615: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5616: x_msg_count => x_msg_count,
5611: when OKL_API.G_EXCEPTION_ERROR then
5612: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5613: p_api_name => l_api_name,
5614: p_pkg_name => g_pkg_name,
5615: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5616: x_msg_count => x_msg_count,
5617: x_msg_data => x_msg_data,
5618: p_api_type => g_api_type);
5619:
5616: x_msg_count => x_msg_count,
5617: x_msg_data => x_msg_data,
5618: p_api_type => g_api_type);
5619:
5620: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5621: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5622: p_api_name => l_api_name,
5623: p_pkg_name => g_pkg_name,
5624: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5617: x_msg_data => x_msg_data,
5618: p_api_type => g_api_type);
5619:
5620: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5621: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5622: p_api_name => l_api_name,
5623: p_pkg_name => g_pkg_name,
5624: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5625: x_msg_count => x_msg_count,
5620: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5621: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5622: p_api_name => l_api_name,
5623: p_pkg_name => g_pkg_name,
5624: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5625: x_msg_count => x_msg_count,
5626: x_msg_data => x_msg_data,
5627: p_api_type => g_api_type);
5628:
5626: x_msg_data => x_msg_data,
5627: p_api_type => g_api_type);
5628:
5629: when OTHERS then
5630: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5631: p_api_name => l_api_name,
5632: p_pkg_name => g_pkg_name,
5633: p_exc_name => 'OTHERS',
5634: x_msg_count => x_msg_count,
5675: roundoff_error EXCEPTION;
5676:
5677: BEGIN
5678:
5679: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5680:
5681: -- Take original record values
5682: x_clev_rec := p_clev_rec;
5683: x_klev_rec := p_klev_rec;
5708: --dbms_output.put_line('Round off start '||l_currency_code);
5709: -- Round off all OKL Line Amounts
5710: IF (p_klev_rec.amount IS NOT NULL
5711: AND
5712: p_klev_rec.amount <> OKL_API.G_MISS_NUM) THEN
5713:
5714: l_conv_amount := NULL;
5715: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5716: p_amount => p_klev_rec.amount,
5721: END IF;
5722:
5723: IF (p_klev_rec.amount_stake IS NOT NULL
5724: AND
5725: p_klev_rec.amount_stake<> OKL_API.G_MISS_NUM) THEN
5726:
5727: l_conv_amount := NULL;
5728: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5729: p_amount => p_klev_rec.amount_stake,
5734: END IF;
5735:
5736: IF (p_klev_rec.appraisal_value IS NOT NULL
5737: AND
5738: p_klev_rec.appraisal_value <> OKL_API.G_MISS_NUM) THEN
5739:
5740: l_conv_amount := NULL;
5741: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5742: p_amount => p_klev_rec.appraisal_value,
5747: END IF;
5748:
5749: IF (p_klev_rec.capital_amount IS NOT NULL
5750: AND
5751: p_klev_rec.capital_amount <> OKL_API.G_MISS_NUM) THEN
5752:
5753: l_conv_amount := NULL;
5754: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5755: p_amount => p_klev_rec.capital_amount,
5760: END IF;
5761:
5762: IF (p_klev_rec.capital_reduction IS NOT NULL
5763: AND
5764: p_klev_rec.capital_reduction <> OKL_API.G_MISS_NUM) THEN
5765:
5766: l_conv_amount := NULL;
5767: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5768: p_amount => p_klev_rec.capital_reduction,
5773: END IF;
5774:
5775: IF (p_klev_rec.capitalized_interest IS NOT NULL
5776: AND
5777: p_klev_rec.capitalized_interest <> OKL_API.G_MISS_NUM) THEN
5778:
5779: l_conv_amount := NULL;
5780: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5781: p_amount => p_klev_rec.capitalized_interest,
5786: END IF;
5787:
5788: IF (p_klev_rec.coverage IS NOT NULL
5789: AND
5790: p_klev_rec.coverage <> OKL_API.G_MISS_NUM) THEN
5791:
5792: l_conv_amount := NULL;
5793: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5794: p_amount => p_klev_rec.coverage,
5799: END IF;
5800:
5801: IF (p_klev_rec.estimated_oec IS NOT NULL
5802: AND
5803: p_klev_rec.estimated_oec <> OKL_API.G_MISS_NUM) THEN
5804:
5805: l_conv_amount := NULL;
5806: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5807: p_amount => p_klev_rec.estimated_oec,
5812: END IF;
5813:
5814: IF (p_klev_rec.fee_charge IS NOT NULL
5815: AND
5816: p_klev_rec.fee_charge <> OKL_API.G_MISS_NUM) THEN
5817:
5818: l_conv_amount := NULL;
5819: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5820: p_amount => p_klev_rec.fee_charge,
5825: END IF;
5826:
5827: IF (p_klev_rec.floor_amount IS NOT NULL
5828: AND
5829: p_klev_rec.floor_amount <> OKL_API.G_MISS_NUM) THEN
5830:
5831: l_conv_amount := NULL;
5832: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5833: p_amount => p_klev_rec.floor_amount,
5838: END IF;
5839:
5840: IF (p_klev_rec.initial_direct_cost IS NOT NULL
5841: AND
5842: p_klev_rec.initial_direct_cost <> OKL_API.G_MISS_NUM) THEN
5843:
5844: l_conv_amount := NULL;
5845: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5846: p_amount => p_klev_rec.initial_direct_cost,
5851: END IF;
5852:
5853: IF (p_klev_rec.lao_amount IS NOT NULL
5854: AND
5855: p_klev_rec.lao_amount <> OKL_API.G_MISS_NUM) THEN
5856:
5857: l_conv_amount := NULL;
5858: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5859: p_amount => p_klev_rec.lao_amount,
5864: END IF;
5865:
5866: IF (p_klev_rec.lrv_amount IS NOT NULL
5867: AND
5868: p_klev_rec.lrv_amount <> OKL_API.G_MISS_NUM) THEN
5869:
5870: l_conv_amount := NULL;
5871: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5872: p_amount => p_klev_rec.lrv_amount,
5877: END IF;
5878:
5879: IF (p_klev_rec.net_rentable IS NOT NULL
5880: AND
5881: p_klev_rec.net_rentable <> OKL_API.G_MISS_NUM) THEN
5882:
5883: l_conv_amount := NULL;
5884: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5885: p_amount => p_klev_rec.net_rentable,
5890: END IF;
5891:
5892: IF (p_klev_rec.oec IS NOT NULL
5893: AND
5894: p_klev_rec.oec <> OKL_API.G_MISS_NUM) THEN
5895:
5896: l_conv_amount := NULL;
5897: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5898: p_amount => p_klev_rec.oec,
5904: END IF;
5905:
5906: IF (p_klev_rec.refinance_amount IS NOT NULL
5907: AND
5908: p_klev_rec.refinance_amount <> OKL_API.G_MISS_NUM) THEN
5909:
5910: l_conv_amount := NULL;
5911: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5912: p_amount => p_klev_rec.refinance_amount,
5917: END IF;
5918:
5919: IF (p_klev_rec.remarketed_amount IS NOT NULL
5920: AND
5921: p_klev_rec.remarketed_amount <> OKL_API.G_MISS_NUM) THEN
5922:
5923: l_conv_amount := NULL;
5924: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5925: p_amount => p_klev_rec.remarketed_amount,
5930: END IF;
5931:
5932: IF (p_klev_rec.repurchased_amount IS NOT NULL
5933: AND
5934: p_klev_rec.repurchased_amount <> OKL_API.G_MISS_NUM) THEN
5935:
5936: l_conv_amount := NULL;
5937: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5938: p_amount => p_klev_rec.repurchased_amount,
5943: END IF;
5944:
5945: IF (p_klev_rec.residual_grnty_amount IS NOT NULL
5946: AND
5947: p_klev_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM) THEN
5948:
5949: l_conv_amount := NULL;
5950: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5951: p_amount => p_klev_rec.residual_grnty_amount,
5956: END IF;
5957:
5958: IF (p_klev_rec.rvi_premium IS NOT NULL
5959: AND
5960: p_klev_rec.rvi_premium <> OKL_API.G_MISS_NUM) THEN
5961:
5962: l_conv_amount := NULL;
5963: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5964: p_amount => p_klev_rec.rvi_premium,
5969: END IF;
5970:
5971: IF (p_klev_rec.termination_purchase_amount IS NOT NULL
5972: AND
5973: p_klev_rec.termination_purchase_amount <> OKL_API.G_MISS_NUM) THEN
5974:
5975: l_conv_amount := NULL;
5976: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5977: p_amount => p_klev_rec.termination_purchase_amount,
5982: END IF;
5983:
5984: IF (p_klev_rec.tracked_residual IS NOT NULL
5985: AND
5986: p_klev_rec.tracked_residual <> OKL_API.G_MISS_NUM) THEN
5987:
5988: l_conv_amount := NULL;
5989: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5990: p_amount => p_klev_rec.tracked_residual,
5995: END IF;
5996:
5997: IF (p_klev_rec.tradein_amount IS NOT NULL
5998: AND
5999: p_klev_rec.tradein_amount <> OKL_API.G_MISS_NUM) THEN
6000:
6001: l_conv_amount := NULL;
6002: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6003: p_amount => p_klev_rec.tradein_amount,
6008: END IF;
6009:
6010: IF (p_klev_rec.vendor_advance_paid IS NOT NULL
6011: AND
6012: p_klev_rec.vendor_advance_paid <> OKL_API.G_MISS_NUM) THEN
6013:
6014: l_conv_amount := NULL;
6015: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6016: p_amount => p_klev_rec.vendor_advance_paid,
6021: END IF;
6022:
6023: IF (p_klev_rec.residual_value IS NOT NULL
6024: AND
6025: p_klev_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
6026:
6027: l_conv_amount := NULL;
6028: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6029: p_amount => p_klev_rec.residual_value,
6035:
6036: --Bug# 3143522 : 11.5.10 Subsidies
6037: IF (p_klev_rec.subsidy_override_amount IS NOT NULL
6038: AND
6039: p_klev_rec.subsidy_override_amount <> OKL_API.G_MISS_NUM) THEN
6040:
6041: l_conv_amount := NULL;
6042: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6043: p_amount => p_klev_rec.subsidy_override_amount,
6050:
6051:
6052: IF (p_clev_rec.price_negotiated IS NOT NULL
6053: AND
6054: p_clev_rec.price_negotiated <> OKL_API.G_MISS_NUM) THEN
6055:
6056: l_conv_amount := NULL;
6057: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6058: p_amount => p_clev_rec.price_negotiated,
6063: END IF;
6064:
6065: IF (p_clev_rec.price_negotiated_renewed IS NOT NULL
6066: AND
6067: p_clev_rec.price_negotiated_renewed <> OKL_API.G_MISS_NUM) THEN
6068:
6069: l_conv_amount := NULL;
6070: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6071: p_amount => p_clev_rec.price_negotiated_renewed,
6076: END IF;
6077:
6078: IF (p_clev_rec.price_unit IS NOT NULL
6079: AND
6080: p_clev_rec.price_unit <> OKL_API.G_MISS_NUM) THEN
6081:
6082: l_conv_amount := NULL;
6083: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6084: p_amount => p_clev_rec.price_unit,
6090: --dbms_output.put_line('Round off complete');
6091:
6092: EXCEPTION
6093: WHEN roundoff_error THEN
6094: x_return_status := OKL_API.G_RET_STS_ERROR;
6095: END roundoff_line_amount;
6096:
6097:
6098: -- -----------------------------------------------------------------------------
6132:
6133: l_lty_code okc_line_styles_b.lty_code%TYPE;
6134: l_parameter_list wf_parameter_list_t;
6135: l_event_name wf_events.name%TYPE := null;
6136: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
6137: /*
6138: -- vthiruva, 08/19/2004
6139: -- END, Code change to enable Business Event
6140: */
6145: lx_klev_rec klev_rec_type;
6146:
6147: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
6148: l_api_version CONSTANT NUMBER := 1.0;
6149: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6150:
6151: --Bug# 3143522
6152: l_dt_clev_rec okl_okc_migration_pvt.clev_rec_type;
6153: lx_dt_clev_rec okl_okc_migration_pvt.clev_rec_type;
6154: BEGIN
6155:
6156: -- call START_ACTIVITY to create savepoint, check compatibility
6157: -- and initialize message list
6158: l_return_status := OKL_API.START_ACTIVITY(
6159: p_api_name => l_api_name,
6160: p_pkg_name => g_pkg_name,
6161: p_init_msg_list => p_init_msg_list,
6162: l_api_version => l_api_version,
6164: p_api_type => g_api_type,
6165: x_return_status => x_return_status);
6166:
6167: -- check if activity started successfully
6168: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6171: raise OKL_API.G_EXCEPTION_ERROR;
6172: End If;
6165: x_return_status => x_return_status);
6166:
6167: -- check if activity started successfully
6168: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6171: raise OKL_API.G_EXCEPTION_ERROR;
6172: End If;
6173:
6166:
6167: -- check if activity started successfully
6168: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6171: raise OKL_API.G_EXCEPTION_ERROR;
6172: End If;
6173:
6174: l_klev_rec := p_klev_rec;
6167: -- check if activity started successfully
6168: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6169: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6171: raise OKL_API.G_EXCEPTION_ERROR;
6172: End If;
6173:
6174: l_klev_rec := p_klev_rec;
6175: l_clev_rec := p_clev_rec;
6187: x_klev_rec => lx_klev_rec
6188: );
6189:
6190: -- check return status
6191: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6192: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6193: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6194: raise OKL_API.G_EXCEPTION_ERROR;
6195: End If;
6188: );
6189:
6190: -- check return status
6191: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6192: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6193: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6194: raise OKL_API.G_EXCEPTION_ERROR;
6195: End If;
6196:
6189:
6190: -- check return status
6191: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6192: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6193: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6194: raise OKL_API.G_EXCEPTION_ERROR;
6195: End If;
6196:
6197: l_klev_rec := lx_klev_rec;
6190: -- check return status
6191: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6192: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6193: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6194: raise OKL_API.G_EXCEPTION_ERROR;
6195: End If;
6196:
6197: l_klev_rec := lx_klev_rec;
6198: l_clev_rec := lx_clev_rec;
6200: --Bug# 3143522:
6201: --
6202: -- call procedure to get default line dates for Fee and service lines
6203: --
6204: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6205: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6206: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6207: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6208:
6201: --
6202: -- call procedure to get default line dates for Fee and service lines
6203: --
6204: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6205: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6206: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6207: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6208:
6209: l_dt_clev_rec := l_clev_rec;
6202: -- call procedure to get default line dates for Fee and service lines
6203: --
6204: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6205: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6206: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6207: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6208:
6209: l_dt_clev_rec := l_clev_rec;
6210:
6203: --
6204: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6205: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6206: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6207: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6208:
6209: l_dt_clev_rec := l_clev_rec;
6210:
6211: get_line_dates(p_clev_rec => l_dt_clev_rec,
6212: x_return_status => x_return_status,
6213: x_clev_rec => lx_dt_clev_rec);
6214:
6215: -- check return status
6216: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6217: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6218: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6219: raise OKL_API.G_EXCEPTION_ERROR;
6220: End If;
6213: x_clev_rec => lx_dt_clev_rec);
6214:
6215: -- check return status
6216: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6217: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6218: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6219: raise OKL_API.G_EXCEPTION_ERROR;
6220: End If;
6221:
6214:
6215: -- check return status
6216: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6217: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6218: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6219: raise OKL_API.G_EXCEPTION_ERROR;
6220: End If;
6221:
6222: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6215: -- check return status
6216: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6217: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6218: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6219: raise OKL_API.G_EXCEPTION_ERROR;
6220: End If;
6221:
6222: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6223: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6218: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6219: raise OKL_API.G_EXCEPTION_ERROR;
6220: End If;
6221:
6222: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6223: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6224: End If;
6225: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6226: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6221:
6222: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6223: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6224: End If;
6225: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6226: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6227: End If;
6228: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6229: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6224: End If;
6225: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6226: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6227: End If;
6228: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6229: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6230: End If;
6231: If nvl(lx_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6232: l_clev_rec.sts_code := lx_dt_clev_rec.sts_code;
6227: End If;
6228: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6229: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6230: End If;
6231: If nvl(lx_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6232: l_clev_rec.sts_code := lx_dt_clev_rec.sts_code;
6233: End If;
6234: End If;
6235: --End Bug# 3143522
6246: p_clev_rec => l_clev_rec,
6247: x_clev_rec => x_clev_rec);
6248:
6249: -- check return status
6250: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6251: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6253: raise OKL_API.G_EXCEPTION_ERROR;
6254: End If;
6247: x_clev_rec => x_clev_rec);
6248:
6249: -- check return status
6250: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6251: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6253: raise OKL_API.G_EXCEPTION_ERROR;
6254: End If;
6255:
6248:
6249: -- check return status
6250: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6251: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6253: raise OKL_API.G_EXCEPTION_ERROR;
6254: End If;
6255:
6256: -- get id from OKC record
6249: -- check return status
6250: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6251: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6253: raise OKL_API.G_EXCEPTION_ERROR;
6254: End If;
6255:
6256: -- get id from OKC record
6257: l_klev_rec.ID := x_clev_rec.ID;
6265: x_msg_data => x_msg_data,
6266: p_klev_rec => l_klev_rec,
6267: x_klev_rec => x_klev_rec);
6268:
6269: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6270: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6271: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6272: raise OKL_API.G_EXCEPTION_ERROR;
6273: End If;
6266: p_klev_rec => l_klev_rec,
6267: x_klev_rec => x_klev_rec);
6268:
6269: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6270: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6271: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6272: raise OKL_API.G_EXCEPTION_ERROR;
6273: End If;
6274:
6267: x_klev_rec => x_klev_rec);
6268:
6269: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6270: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6271: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6272: raise OKL_API.G_EXCEPTION_ERROR;
6273: End If;
6274:
6275: If (x_clev_rec.dnz_chr_id is not null) AND (l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
6268:
6269: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6270: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6271: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6272: raise OKL_API.G_EXCEPTION_ERROR;
6273: End If;
6274:
6275: If (x_clev_rec.dnz_chr_id is not null) AND (l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
6276:
6271: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6272: raise OKL_API.G_EXCEPTION_ERROR;
6273: End If;
6274:
6275: If (x_clev_rec.dnz_chr_id is not null) AND (l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
6276:
6277: -- call to cascade lease contract statuses to INCOMPLETE
6278: okl_contract_status_pub.cascade_lease_status_edit
6279: (p_api_version => p_api_version,
6282: x_msg_count => x_msg_count,
6283: x_msg_data => x_msg_data,
6284: p_chr_id => x_clev_rec.dnz_chr_id);
6285:
6286: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6287: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6288: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6289: raise OKL_API.G_EXCEPTION_ERROR;
6290: End If;
6283: x_msg_data => x_msg_data,
6284: p_chr_id => x_clev_rec.dnz_chr_id);
6285:
6286: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6287: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6288: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6289: raise OKL_API.G_EXCEPTION_ERROR;
6290: End If;
6291:
6284: p_chr_id => x_clev_rec.dnz_chr_id);
6285:
6286: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6287: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6288: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6289: raise OKL_API.G_EXCEPTION_ERROR;
6290: End If;
6291:
6292: End If;
6285:
6286: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6287: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6288: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6289: raise OKL_API.G_EXCEPTION_ERROR;
6290: End If;
6291:
6292: End If;
6293:
6302:
6303: IF l_lty_code = 'FREE_FORM' THEN
6304: -- raise the business event for create credit limit, if line style code is FREE_FORM
6305: l_event_name := G_WF_EVT_CR_LMT_CREATED;
6306: l_raise_business_event := OKL_API.G_TRUE;
6307: -- create the parameter list to pass to raise_event
6308: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6309: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,x_clev_rec.id,l_parameter_list);
6310: ELSIF l_lty_code = 'FREE_FORM1' THEN
6309: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,x_clev_rec.id,l_parameter_list);
6310: ELSIF l_lty_code = 'FREE_FORM1' THEN
6311: -- raise business event only if the context contract is a lease contract
6312: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6313: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6314: -- raise the business event for create asset, if line style code is FREE_FORM1
6315: l_event_name := G_WF_EVT_ASSET_CREATED;
6316: -- create the parameter list to pass to raise_event
6317: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6319: END IF;
6320: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6321: -- raise business event only if the context contract is a lease contract
6322: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6323: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6324: -- raise the business event for create service, if line style code is SOLD_SERVICE
6325: l_event_name := G_WF_EVT_SERVICE_CREATED;
6326: -- create the parameter list to pass to raise_event
6327: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6332: --okl_contract_pvt
6333: ELSIF l_lty_code = 'FEE' THEN
6334: -- raise business event only if the context contract is a lease contract
6335: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6336: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6337: -- raise the business event for create fee, if line style code is FEE
6338: l_event_name := G_WF_EVT_FEE_CREATED;
6339: -- create the parameter list to pass to raise_event
6340: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6344:
6345: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event
6346: -- name is specified. the event should also be raised if this is a credit limit, in which case is_lease_contract
6347: -- does not hold good
6348: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
6349: raise_business_event(p_api_version => p_api_version,
6350: p_init_msg_list => p_init_msg_list,
6351: x_return_status => x_return_status,
6352: x_msg_count => x_msg_count,
6352: x_msg_count => x_msg_count,
6353: x_msg_data => x_msg_data,
6354: p_event_name => l_event_name,
6355: p_parameter_list => l_parameter_list);
6356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6359: RAISE OKL_API.G_EXCEPTION_ERROR;
6360: END IF;
6353: x_msg_data => x_msg_data,
6354: p_event_name => l_event_name,
6355: p_parameter_list => l_parameter_list);
6356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6359: RAISE OKL_API.G_EXCEPTION_ERROR;
6360: END IF;
6361: END IF;
6354: p_event_name => l_event_name,
6355: p_parameter_list => l_parameter_list);
6356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6359: RAISE OKL_API.G_EXCEPTION_ERROR;
6360: END IF;
6361: END IF;
6362:
6355: p_parameter_list => l_parameter_list);
6356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6359: RAISE OKL_API.G_EXCEPTION_ERROR;
6360: END IF;
6361: END IF;
6362:
6363: /*
6364: -- vthiruva, 08/19/2004
6365: -- END, Code change to enable Business Event
6366: */
6367:
6368: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6369: x_msg_data => x_msg_data);
6370: EXCEPTION
6371: when OKL_API.G_EXCEPTION_ERROR then
6372: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6367:
6368: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6369: x_msg_data => x_msg_data);
6370: EXCEPTION
6371: when OKL_API.G_EXCEPTION_ERROR then
6372: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6373: p_api_name => l_api_name,
6374: p_pkg_name => g_pkg_name,
6375: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6368: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6369: x_msg_data => x_msg_data);
6370: EXCEPTION
6371: when OKL_API.G_EXCEPTION_ERROR then
6372: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6373: p_api_name => l_api_name,
6374: p_pkg_name => g_pkg_name,
6375: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6376: x_msg_count => x_msg_count,
6371: when OKL_API.G_EXCEPTION_ERROR then
6372: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6373: p_api_name => l_api_name,
6374: p_pkg_name => g_pkg_name,
6375: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6376: x_msg_count => x_msg_count,
6377: x_msg_data => x_msg_data,
6378: p_api_type => g_api_type);
6379:
6376: x_msg_count => x_msg_count,
6377: x_msg_data => x_msg_data,
6378: p_api_type => g_api_type);
6379:
6380: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6381: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6382: p_api_name => l_api_name,
6383: p_pkg_name => g_pkg_name,
6384: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6377: x_msg_data => x_msg_data,
6378: p_api_type => g_api_type);
6379:
6380: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6381: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6382: p_api_name => l_api_name,
6383: p_pkg_name => g_pkg_name,
6384: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6385: x_msg_count => x_msg_count,
6380: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6381: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6382: p_api_name => l_api_name,
6383: p_pkg_name => g_pkg_name,
6384: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6385: x_msg_count => x_msg_count,
6386: x_msg_data => x_msg_data,
6387: p_api_type => g_api_type);
6388:
6386: x_msg_data => x_msg_data,
6387: p_api_type => g_api_type);
6388:
6389: when OTHERS then
6390: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6391: p_api_name => l_api_name,
6392: p_pkg_name => g_pkg_name,
6393: p_exc_name => 'OTHERS',
6394: x_msg_count => x_msg_count,
6417: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
6418:
6419: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
6420: l_api_version CONSTANT NUMBER := 1.0;
6421: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6422: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6423: i NUMBER;
6424: l_klev_tbl klev_tbl_type := p_klev_tbl;
6425: BEGIN
6418:
6419: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
6420: l_api_version CONSTANT NUMBER := 1.0;
6421: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6422: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6423: i NUMBER;
6424: l_klev_tbl klev_tbl_type := p_klev_tbl;
6425: BEGIN
6426: -- call START_ACTIVITY to create savepoint, check compatibility
6424: l_klev_tbl klev_tbl_type := p_klev_tbl;
6425: BEGIN
6426: -- call START_ACTIVITY to create savepoint, check compatibility
6427: -- and initialize message list
6428: l_return_status := OKL_API.START_ACTIVITY(
6429: p_api_name => l_api_name,
6430: p_pkg_name => g_pkg_name,
6431: p_init_msg_list => p_init_msg_list,
6432: l_api_version => l_api_version,
6434: p_api_type => g_api_type,
6435: x_return_status => x_return_status);
6436:
6437: -- check if activity started successfully
6438: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6439: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6440: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6441: raise OKL_API.G_EXCEPTION_ERROR;
6442:
6435: x_return_status => x_return_status);
6436:
6437: -- check if activity started successfully
6438: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6439: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6440: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6441: raise OKL_API.G_EXCEPTION_ERROR;
6442:
6443: End If;
6436:
6437: -- check if activity started successfully
6438: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6439: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6440: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6441: raise OKL_API.G_EXCEPTION_ERROR;
6442:
6443: End If;
6444:
6437: -- check if activity started successfully
6438: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6439: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6440: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6441: raise OKL_API.G_EXCEPTION_ERROR;
6442:
6443: End If;
6444:
6445: If (p_clev_tbl.COUNT > 0) Then
6456: p_klev_rec => l_klev_tbl(i),
6457: x_clev_rec => x_clev_tbl(i),
6458: x_klev_rec => x_klev_tbl(i));
6459:
6460: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
6461: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
6462: l_overall_status := x_return_status;
6463: End If;
6464: End If;
6457: x_clev_rec => x_clev_tbl(i),
6458: x_klev_rec => x_klev_tbl(i));
6459:
6460: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
6461: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
6462: l_overall_status := x_return_status;
6463: End If;
6464: End If;
6465:
6470: -- return overall status
6471: x_return_status := l_overall_status;
6472: End If;
6473:
6474: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6475: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6476: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6477: raise OKL_API.G_EXCEPTION_ERROR;
6478: End If;
6471: x_return_status := l_overall_status;
6472: End If;
6473:
6474: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6475: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6476: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6477: raise OKL_API.G_EXCEPTION_ERROR;
6478: End If;
6479:
6472: End If;
6473:
6474: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6475: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6476: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6477: raise OKL_API.G_EXCEPTION_ERROR;
6478: End If;
6479:
6480: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6473:
6474: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6475: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6476: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6477: raise OKL_API.G_EXCEPTION_ERROR;
6478: End If;
6479:
6480: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6481: x_msg_data => x_msg_data);
6476: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6477: raise OKL_API.G_EXCEPTION_ERROR;
6478: End If;
6479:
6480: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6481: x_msg_data => x_msg_data);
6482: EXCEPTION
6483: when OKL_API.G_EXCEPTION_ERROR then
6484: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6479:
6480: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6481: x_msg_data => x_msg_data);
6482: EXCEPTION
6483: when OKL_API.G_EXCEPTION_ERROR then
6484: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6485: p_api_name => l_api_name,
6486: p_pkg_name => g_pkg_name,
6487: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6480: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
6481: x_msg_data => x_msg_data);
6482: EXCEPTION
6483: when OKL_API.G_EXCEPTION_ERROR then
6484: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6485: p_api_name => l_api_name,
6486: p_pkg_name => g_pkg_name,
6487: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6488: x_msg_count => x_msg_count,
6483: when OKL_API.G_EXCEPTION_ERROR then
6484: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6485: p_api_name => l_api_name,
6486: p_pkg_name => g_pkg_name,
6487: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6488: x_msg_count => x_msg_count,
6489: x_msg_data => x_msg_data,
6490: p_api_type => g_api_type);
6491:
6488: x_msg_count => x_msg_count,
6489: x_msg_data => x_msg_data,
6490: p_api_type => g_api_type);
6491:
6492: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6493: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6494: p_api_name => l_api_name,
6495: p_pkg_name => g_pkg_name,
6496: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6489: x_msg_data => x_msg_data,
6490: p_api_type => g_api_type);
6491:
6492: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6493: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6494: p_api_name => l_api_name,
6495: p_pkg_name => g_pkg_name,
6496: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6497: x_msg_count => x_msg_count,
6492: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6493: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6494: p_api_name => l_api_name,
6495: p_pkg_name => g_pkg_name,
6496: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6497: x_msg_count => x_msg_count,
6498: x_msg_data => x_msg_data,
6499: p_api_type => g_api_type);
6500:
6498: x_msg_data => x_msg_data,
6499: p_api_type => g_api_type);
6500:
6501: when OTHERS then
6502: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6503: p_api_name => l_api_name,
6504: p_pkg_name => g_pkg_name,
6505: p_exc_name => 'OTHERS',
6506: x_msg_count => x_msg_count,
6541: lx_klev_rec klev_rec_type;
6542:
6543: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
6544: l_api_version CONSTANT NUMBER := 1.0;
6545: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6546:
6547: cursor l_klev_csr(l_id IN NUMBER) is
6548: select 'x'
6549: from OKL_K_LINES_V
6609:
6610: l_lty_code okc_line_styles_b.lty_code%TYPE;
6611: l_parameter_list wf_parameter_list_t;
6612: l_event_name wf_events.name%TYPE := null;
6613: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
6614: /*
6615: -- vthiruva, 08/19/2004
6616: -- END, Code change to enable Business Event
6617: */
6618: BEGIN
6619:
6620: -- call START_ACTIVITY to create savepoint, check compatibility
6621: -- and initialize message list
6622: l_return_status := OKL_API.START_ACTIVITY(
6623: p_api_name => l_api_name,
6624: p_pkg_name => g_pkg_name,
6625: p_init_msg_list => p_init_msg_list,
6626: l_api_version => l_api_version,
6628: p_api_type => g_api_type,
6629: x_return_status => x_return_status);
6630:
6631: -- check if activity started successfully
6632: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6633: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6634: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6635: raise OKL_API.G_EXCEPTION_ERROR;
6636: End If;
6629: x_return_status => x_return_status);
6630:
6631: -- check if activity started successfully
6632: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6633: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6634: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6635: raise OKL_API.G_EXCEPTION_ERROR;
6636: End If;
6637:
6630:
6631: -- check if activity started successfully
6632: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6633: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6634: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6635: raise OKL_API.G_EXCEPTION_ERROR;
6636: End If;
6637:
6638: l_klev_rec := p_klev_rec;
6631: -- check if activity started successfully
6632: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6633: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6634: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6635: raise OKL_API.G_EXCEPTION_ERROR;
6636: End If;
6637:
6638: l_klev_rec := p_klev_rec;
6639: l_clev_rec := p_clev_rec;
6651: x_klev_rec => lx_klev_rec
6652: );
6653:
6654: -- check return status
6655: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6657: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6658: raise OKL_API.G_EXCEPTION_ERROR;
6659: End If;
6652: );
6653:
6654: -- check return status
6655: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6657: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6658: raise OKL_API.G_EXCEPTION_ERROR;
6659: End If;
6660:
6653:
6654: -- check return status
6655: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6657: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6658: raise OKL_API.G_EXCEPTION_ERROR;
6659: End If;
6660:
6661: l_klev_rec := lx_klev_rec;
6654: -- check return status
6655: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6657: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6658: raise OKL_API.G_EXCEPTION_ERROR;
6659: End If;
6660:
6661: l_klev_rec := lx_klev_rec;
6662: l_clev_rec := lx_clev_rec;
6664: --Bug# 3143522
6665: --
6666: -- call procedure to get default line dates for Fee and service lines
6667: --
6668: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6669: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6670: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6671: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6672:
6665: --
6666: -- call procedure to get default line dates for Fee and service lines
6667: --
6668: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6669: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6670: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6671: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6672:
6673:
6666: -- call procedure to get default line dates for Fee and service lines
6667: --
6668: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6669: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6670: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6671: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6672:
6673:
6674: l_dt_clev_rec := l_clev_rec;
6667: --
6668: If nvl(l_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6669: nvl(l_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6670: nvl(l_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6671: nvl(l_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6672:
6673:
6674: l_dt_clev_rec := l_clev_rec;
6675:
6682: l_orig_currency_code,
6683: l_orig_sts_code;
6684: close l_orig_clev_csr;
6685:
6686: If nvl(l_dt_clev_rec.dnz_chr_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6687: l_dt_clev_rec.dnz_chr_id := l_orig_chr_id;
6688: End If;
6689: If nvl(l_dt_clev_rec.cle_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6690: l_dt_clev_rec.cle_id := l_orig_cle_id;
6685:
6686: If nvl(l_dt_clev_rec.dnz_chr_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6687: l_dt_clev_rec.dnz_chr_id := l_orig_chr_id;
6688: End If;
6689: If nvl(l_dt_clev_rec.cle_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6690: l_dt_clev_rec.cle_id := l_orig_cle_id;
6691: End If;
6692: If nvl(l_dt_clev_rec.lse_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6693: l_dt_clev_rec.lse_id := l_orig_lse_id;
6688: End If;
6689: If nvl(l_dt_clev_rec.cle_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6690: l_dt_clev_rec.cle_id := l_orig_cle_id;
6691: End If;
6692: If nvl(l_dt_clev_rec.lse_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6693: l_dt_clev_rec.lse_id := l_orig_lse_id;
6694: End If;
6695: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6696: l_dt_clev_rec.start_date := l_orig_start_date;
6691: End If;
6692: If nvl(l_dt_clev_rec.lse_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
6693: l_dt_clev_rec.lse_id := l_orig_lse_id;
6694: End If;
6695: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6696: l_dt_clev_rec.start_date := l_orig_start_date;
6697: End If;
6698: If nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6699: l_dt_clev_rec.end_date := l_orig_end_date;
6694: End If;
6695: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6696: l_dt_clev_rec.start_date := l_orig_start_date;
6697: End If;
6698: If nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6699: l_dt_clev_rec.end_date := l_orig_end_date;
6700: End If;
6701: If nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6702: l_dt_clev_rec.currency_code := l_orig_currency_code;
6697: End If;
6698: If nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE then
6699: l_dt_clev_rec.end_date := l_orig_end_date;
6700: End If;
6701: If nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6702: l_dt_clev_rec.currency_code := l_orig_currency_code;
6703: End If;
6704: If nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6705: l_dt_clev_rec.sts_code := l_orig_sts_code;
6700: End If;
6701: If nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6702: l_dt_clev_rec.currency_code := l_orig_currency_code;
6703: End If;
6704: If nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6705: l_dt_clev_rec.sts_code := l_orig_sts_code;
6706: End If;
6707:
6708: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6704: If nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6705: l_dt_clev_rec.sts_code := l_orig_sts_code;
6706: End If;
6707:
6708: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6709: nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6710: nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6711: nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6712:
6705: l_dt_clev_rec.sts_code := l_orig_sts_code;
6706: End If;
6707:
6708: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6709: nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6710: nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6711: nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6712:
6713: get_line_dates(p_clev_rec => l_dt_clev_rec,
6706: End If;
6707:
6708: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6709: nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6710: nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6711: nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6712:
6713: get_line_dates(p_clev_rec => l_dt_clev_rec,
6714: x_return_status => x_return_status,
6707:
6708: If nvl(l_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6709: nvl(l_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) = OKL_API.G_MISS_DATE or
6710: nvl(l_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR or
6711: nvl(l_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
6712:
6713: get_line_dates(p_clev_rec => l_dt_clev_rec,
6714: x_return_status => x_return_status,
6715: x_clev_rec => lx_dt_clev_rec);
6714: x_return_status => x_return_status,
6715: x_clev_rec => lx_dt_clev_rec);
6716:
6717: -- check return status
6718: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6719: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6720: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6721: raise OKL_API.G_EXCEPTION_ERROR;
6722: End If;
6715: x_clev_rec => lx_dt_clev_rec);
6716:
6717: -- check return status
6718: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6719: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6720: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6721: raise OKL_API.G_EXCEPTION_ERROR;
6722: End If;
6723:
6716:
6717: -- check return status
6718: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6719: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6720: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6721: raise OKL_API.G_EXCEPTION_ERROR;
6722: End If;
6723:
6724: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6717: -- check return status
6718: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6719: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6720: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6721: raise OKL_API.G_EXCEPTION_ERROR;
6722: End If;
6723:
6724: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6725: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6720: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6721: raise OKL_API.G_EXCEPTION_ERROR;
6722: End If;
6723:
6724: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6725: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6726: End If;
6727: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6728: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6723:
6724: If nvl(lx_dt_clev_rec.start_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6725: l_clev_rec.start_date := lx_dt_clev_rec.start_date;
6726: End If;
6727: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6728: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6729: End If;
6730: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6731: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6726: End If;
6727: If nvl(lx_dt_clev_rec.end_date,OKL_API.G_MISS_DATE) <> OKL_API.G_MISS_DATE then
6728: l_clev_rec.end_date := lx_dt_clev_rec.end_date;
6729: End If;
6730: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6731: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6732: End If;
6733: If nvl(lx_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6734: l_clev_rec.sts_code := lx_dt_clev_rec.sts_code;
6729: End If;
6730: If nvl(lx_dt_clev_rec.currency_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6731: l_clev_rec.currency_code := lx_dt_clev_rec.currency_code;
6732: End If;
6733: If nvl(lx_dt_clev_rec.sts_code,OKL_API.G_MISS_CHAR) <> OKL_API.G_MISS_CHAR then
6734: l_clev_rec.sts_code := lx_dt_clev_rec.sts_code;
6735: End If;
6736: End If;
6737: End If;
6749: p_clev_rec => l_clev_rec,
6750: x_clev_rec => x_clev_rec);
6751:
6752: -- check return status
6753: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6754: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6755: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6756: raise OKL_API.G_EXCEPTION_ERROR;
6757: End If;
6750: x_clev_rec => x_clev_rec);
6751:
6752: -- check return status
6753: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6754: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6755: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6756: raise OKL_API.G_EXCEPTION_ERROR;
6757: End If;
6758:
6751:
6752: -- check return status
6753: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6754: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6755: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6756: raise OKL_API.G_EXCEPTION_ERROR;
6757: End If;
6758:
6759: -- get id from OKC record
6752: -- check return status
6753: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6754: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6755: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6756: raise OKL_API.G_EXCEPTION_ERROR;
6757: End If;
6758:
6759: -- get id from OKC record
6760: l_klev_rec.ID := x_clev_rec.ID;
6786: p_klev_rec => l_klev_rec,
6787: x_klev_rec => x_klev_rec);
6788: end if;
6789:
6790: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6791: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6792: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6793: raise OKL_API.G_EXCEPTION_ERROR;
6794: End If;
6787: x_klev_rec => x_klev_rec);
6788: end if;
6789:
6790: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6791: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6792: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6793: raise OKL_API.G_EXCEPTION_ERROR;
6794: End If;
6795:
6788: end if;
6789:
6790: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6791: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6792: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6793: raise OKL_API.G_EXCEPTION_ERROR;
6794: End If;
6795:
6796: If p_edit_mode = 'Y' Then
6789:
6790: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6791: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6792: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6793: raise OKL_API.G_EXCEPTION_ERROR;
6794: End If;
6795:
6796: If p_edit_mode = 'Y' Then
6797: If (x_clev_rec.dnz_chr_id is NOT NULL) AND (x_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
6793: raise OKL_API.G_EXCEPTION_ERROR;
6794: End If;
6795:
6796: If p_edit_mode = 'Y' Then
6797: If (x_clev_rec.dnz_chr_id is NOT NULL) AND (x_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
6798: --cascade edit status on to lines
6799: okl_contract_status_pub.cascade_lease_status_edit
6800: (p_api_version => p_api_version,
6801: p_init_msg_list => p_init_msg_list,
6803: x_msg_count => x_msg_count,
6804: x_msg_data => x_msg_data,
6805: p_chr_id => x_clev_rec.dnz_chr_id);
6806:
6807: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6808: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6809: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6810: raise OKL_API.G_EXCEPTION_ERROR;
6811: End If;
6804: x_msg_data => x_msg_data,
6805: p_chr_id => x_clev_rec.dnz_chr_id);
6806:
6807: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6808: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6809: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6810: raise OKL_API.G_EXCEPTION_ERROR;
6811: End If;
6812: END IF;
6805: p_chr_id => x_clev_rec.dnz_chr_id);
6806:
6807: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6808: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6809: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6810: raise OKL_API.G_EXCEPTION_ERROR;
6811: End If;
6812: END IF;
6813: End If;
6806:
6807: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
6808: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6809: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
6810: raise OKL_API.G_EXCEPTION_ERROR;
6811: End If;
6812: END IF;
6813: End If;
6814:
6823:
6824: IF l_lty_code = 'FREE_FORM' THEN
6825: -- raise the business event for update credit limit if line style code is FREE_FORM
6826: l_event_name := G_WF_EVT_CR_LMT_UPDATED;
6827: l_raise_business_event := OKL_API.G_TRUE;
6828: --create the parameter list to pass to raise_event
6829: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6830: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
6831: ELSIF l_lty_code = 'FREE_FORM1' THEN
6830: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
6831: ELSIF l_lty_code = 'FREE_FORM1' THEN
6832: -- raise business event only if the context contract is a lease contract
6833: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6834: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6835: -- raise the business event for create asset, if line style code is FREE_FORM1
6836: l_event_name := G_WF_EVT_ASSET_UPDATED;
6837: --create the parameter list to pass to raise_event
6838: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6840: END IF;
6841: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6842: -- raise business event only if the context contract is a lease contract
6843: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6844: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6845: --raise the business event for create service, if line style code is SOLD_SERVICE
6846: l_event_name := G_WF_EVT_SERVICE_UPDATED;
6847: --create the parameter list to pass to raise_event
6848: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6866: --okl_contract_pvt
6867: ELSIF l_lty_code = 'FEE' THEN
6868: -- raise business event only if the context contract is a lease contract
6869: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6870: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6871: -- raise the business event for fee updated, if line style code is FEE
6872: l_event_name := G_WF_EVT_FEE_UPDATED;
6873: --create the parameter list to pass to raise_event
6874: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6878:
6879: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event
6880: -- name is specified. the event should also be raised if this is a credit limit, in which case is_lease_contract
6881: -- does not hold good
6882: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
6883: raise_business_event(p_api_version => p_api_version,
6884: p_init_msg_list => p_init_msg_list,
6885: x_return_status => x_return_status,
6886: x_msg_count => x_msg_count,
6886: x_msg_count => x_msg_count,
6887: x_msg_data => x_msg_data,
6888: p_event_name => l_event_name,
6889: p_parameter_list => l_parameter_list);
6890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6893: RAISE OKL_API.G_EXCEPTION_ERROR;
6894: END IF;
6887: x_msg_data => x_msg_data,
6888: p_event_name => l_event_name,
6889: p_parameter_list => l_parameter_list);
6890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6893: RAISE OKL_API.G_EXCEPTION_ERROR;
6894: END IF;
6895: END IF;
6888: p_event_name => l_event_name,
6889: p_parameter_list => l_parameter_list);
6890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6893: RAISE OKL_API.G_EXCEPTION_ERROR;
6894: END IF;
6895: END IF;
6896:
6889: p_parameter_list => l_parameter_list);
6890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6893: RAISE OKL_API.G_EXCEPTION_ERROR;
6894: END IF;
6895: END IF;
6896:
6897: /*
6898: -- vthiruva, 08/19/2004
6899: -- END, Code change to enable Business Event
6900: */
6901:
6902: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6903: x_msg_data => x_msg_data);
6904: EXCEPTION
6905: when OKL_API.G_EXCEPTION_ERROR then
6906: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6901:
6902: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6903: x_msg_data => x_msg_data);
6904: EXCEPTION
6905: when OKL_API.G_EXCEPTION_ERROR then
6906: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6907: p_api_name => l_api_name,
6908: p_pkg_name => g_pkg_name,
6909: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6902: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6903: x_msg_data => x_msg_data);
6904: EXCEPTION
6905: when OKL_API.G_EXCEPTION_ERROR then
6906: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6907: p_api_name => l_api_name,
6908: p_pkg_name => g_pkg_name,
6909: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6910: x_msg_count => x_msg_count,
6905: when OKL_API.G_EXCEPTION_ERROR then
6906: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6907: p_api_name => l_api_name,
6908: p_pkg_name => g_pkg_name,
6909: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6910: x_msg_count => x_msg_count,
6911: x_msg_data => x_msg_data,
6912: p_api_type => g_api_type);
6913: if l_klev_csr%ISOPEN then
6913: if l_klev_csr%ISOPEN then
6914: close l_klev_csr;
6915: end if;
6916:
6917: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6918: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6919: p_api_name => l_api_name,
6920: p_pkg_name => g_pkg_name,
6921: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6914: close l_klev_csr;
6915: end if;
6916:
6917: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6918: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6919: p_api_name => l_api_name,
6920: p_pkg_name => g_pkg_name,
6921: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6922: x_msg_count => x_msg_count,
6917: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6918: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6919: p_api_name => l_api_name,
6920: p_pkg_name => g_pkg_name,
6921: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6922: x_msg_count => x_msg_count,
6923: x_msg_data => x_msg_data,
6924: p_api_type => g_api_type);
6925: if l_klev_csr%ISOPEN then
6926: close l_klev_csr;
6927: end if;
6928:
6929: when OTHERS then
6930: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6931: p_api_name => l_api_name,
6932: p_pkg_name => g_pkg_name,
6933: p_exc_name => 'OTHERS',
6934: x_msg_count => x_msg_count,
6965: l_klev_rec klev_rec_type;
6966:
6967: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
6968: l_api_version CONSTANT NUMBER := 1.0;
6969: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6970:
6971: BEGIN
6972:
6973: -- call START_ACTIVITY to create savepoint, check compatibility
6971: BEGIN
6972:
6973: -- call START_ACTIVITY to create savepoint, check compatibility
6974: -- and initialize message list
6975: l_return_status := OKL_API.START_ACTIVITY(
6976: p_api_name => l_api_name,
6977: p_pkg_name => g_pkg_name,
6978: p_init_msg_list => p_init_msg_list,
6979: l_api_version => l_api_version,
6981: p_api_type => g_api_type,
6982: x_return_status => x_return_status);
6983:
6984: -- check if activity started successfully
6985: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6986: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6987: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6988: raise OKL_API.G_EXCEPTION_ERROR;
6989: End If;
6982: x_return_status => x_return_status);
6983:
6984: -- check if activity started successfully
6985: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6986: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6987: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6988: raise OKL_API.G_EXCEPTION_ERROR;
6989: End If;
6990:
6983:
6984: -- check if activity started successfully
6985: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6986: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6987: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6988: raise OKL_API.G_EXCEPTION_ERROR;
6989: End If;
6990:
6991: l_klev_rec := p_klev_rec;
6984: -- check if activity started successfully
6985: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6986: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6987: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
6988: raise OKL_API.G_EXCEPTION_ERROR;
6989: End If;
6990:
6991: l_klev_rec := p_klev_rec;
6992: l_clev_rec := p_clev_rec;
7006: x_clev_rec => x_clev_rec,
7007: x_klev_rec => x_klev_rec);
7008:
7009: -- check return status
7010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7013: raise OKL_API.G_EXCEPTION_ERROR;
7014: End If;
7007: x_klev_rec => x_klev_rec);
7008:
7009: -- check return status
7010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7013: raise OKL_API.G_EXCEPTION_ERROR;
7014: End If;
7015:
7008:
7009: -- check return status
7010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7013: raise OKL_API.G_EXCEPTION_ERROR;
7014: End If;
7015:
7016: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7009: -- check return status
7010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7013: raise OKL_API.G_EXCEPTION_ERROR;
7014: End If;
7015:
7016: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7017: x_msg_data => x_msg_data);
7012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7013: raise OKL_API.G_EXCEPTION_ERROR;
7014: End If;
7015:
7016: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7017: x_msg_data => x_msg_data);
7018: EXCEPTION
7019: when OKL_API.G_EXCEPTION_ERROR then
7020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7015:
7016: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7017: x_msg_data => x_msg_data);
7018: EXCEPTION
7019: when OKL_API.G_EXCEPTION_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_ERROR',
7016: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7017: x_msg_data => x_msg_data);
7018: EXCEPTION
7019: when OKL_API.G_EXCEPTION_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_ERROR',
7024: x_msg_count => x_msg_count,
7019: when OKL_API.G_EXCEPTION_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_ERROR',
7024: x_msg_count => x_msg_count,
7025: x_msg_data => x_msg_data,
7026: p_api_type => g_api_type);
7027:
7024: x_msg_count => x_msg_count,
7025: x_msg_data => x_msg_data,
7026: p_api_type => g_api_type);
7027:
7028: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7029: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7030: p_api_name => l_api_name,
7031: p_pkg_name => g_pkg_name,
7032: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7025: x_msg_data => x_msg_data,
7026: p_api_type => g_api_type);
7027:
7028: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7029: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7030: p_api_name => l_api_name,
7031: p_pkg_name => g_pkg_name,
7032: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7033: x_msg_count => x_msg_count,
7028: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7029: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7030: p_api_name => l_api_name,
7031: p_pkg_name => g_pkg_name,
7032: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7033: x_msg_count => x_msg_count,
7034: x_msg_data => x_msg_data,
7035: p_api_type => g_api_type);
7036:
7034: x_msg_data => x_msg_data,
7035: p_api_type => g_api_type);
7036:
7037: when OTHERS then
7038: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7039: p_api_name => l_api_name,
7040: p_pkg_name => g_pkg_name,
7041: p_exc_name => 'OTHERS',
7042: x_msg_count => x_msg_count,
7073: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
7074:
7075: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
7076: l_api_version CONSTANT NUMBER := 1.0;
7077: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7078: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7079: i NUMBER;
7080: l_klev_tbl klev_tbl_type := p_klev_tbl;
7081: BEGIN
7074:
7075: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
7076: l_api_version CONSTANT NUMBER := 1.0;
7077: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7078: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7079: i NUMBER;
7080: l_klev_tbl klev_tbl_type := p_klev_tbl;
7081: BEGIN
7082: -- call START_ACTIVITY to create savepoint, check compatibility
7080: l_klev_tbl klev_tbl_type := p_klev_tbl;
7081: BEGIN
7082: -- call START_ACTIVITY to create savepoint, check compatibility
7083: -- and initialize message list
7084: l_return_status := OKL_API.START_ACTIVITY(
7085: p_api_name => l_api_name,
7086: p_pkg_name => g_pkg_name,
7087: p_init_msg_list => p_init_msg_list,
7088: l_api_version => l_api_version,
7090: p_api_type => g_api_type,
7091: x_return_status => x_return_status);
7092:
7093: -- check if activity started successfully
7094: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7095: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7096: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7097: raise OKL_API.G_EXCEPTION_ERROR;
7098:
7091: x_return_status => x_return_status);
7092:
7093: -- check if activity started successfully
7094: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7095: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7096: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7097: raise OKL_API.G_EXCEPTION_ERROR;
7098:
7099: End If;
7092:
7093: -- check if activity started successfully
7094: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7095: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7096: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7097: raise OKL_API.G_EXCEPTION_ERROR;
7098:
7099: End If;
7100:
7093: -- check if activity started successfully
7094: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7095: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7096: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7097: raise OKL_API.G_EXCEPTION_ERROR;
7098:
7099: End If;
7100:
7101: If (p_clev_tbl.COUNT > 0) Then
7113: p_edit_mode => p_edit_mode,
7114: x_clev_rec => x_clev_tbl(i),
7115: x_klev_rec => x_klev_tbl(i));
7116:
7117: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
7118: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
7119: l_overall_status := x_return_status;
7120: End If;
7121: End If;
7114: x_clev_rec => x_clev_tbl(i),
7115: x_klev_rec => x_klev_tbl(i));
7116:
7117: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
7118: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
7119: l_overall_status := x_return_status;
7120: End If;
7121: End If;
7122:
7127: -- return overall status
7128: x_return_status := l_overall_status;
7129: End If;
7130:
7131: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7132: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7134: raise OKL_API.G_EXCEPTION_ERROR;
7135: End If;
7128: x_return_status := l_overall_status;
7129: End If;
7130:
7131: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7132: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7134: raise OKL_API.G_EXCEPTION_ERROR;
7135: End If;
7136:
7129: End If;
7130:
7131: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7132: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7134: raise OKL_API.G_EXCEPTION_ERROR;
7135: End If;
7136:
7137: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7130:
7131: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7132: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7134: raise OKL_API.G_EXCEPTION_ERROR;
7135: End If;
7136:
7137: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7138: x_msg_data => x_msg_data);
7133: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7134: raise OKL_API.G_EXCEPTION_ERROR;
7135: End If;
7136:
7137: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7138: x_msg_data => x_msg_data);
7139: EXCEPTION
7140: when OKL_API.G_EXCEPTION_ERROR then
7141: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7136:
7137: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7138: x_msg_data => x_msg_data);
7139: EXCEPTION
7140: when OKL_API.G_EXCEPTION_ERROR then
7141: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7142: p_api_name => l_api_name,
7143: p_pkg_name => g_pkg_name,
7144: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7137: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7138: x_msg_data => x_msg_data);
7139: EXCEPTION
7140: when OKL_API.G_EXCEPTION_ERROR then
7141: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7142: p_api_name => l_api_name,
7143: p_pkg_name => g_pkg_name,
7144: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7145: x_msg_count => x_msg_count,
7140: when OKL_API.G_EXCEPTION_ERROR then
7141: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7142: p_api_name => l_api_name,
7143: p_pkg_name => g_pkg_name,
7144: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7145: x_msg_count => x_msg_count,
7146: x_msg_data => x_msg_data,
7147: p_api_type => g_api_type);
7148:
7145: x_msg_count => x_msg_count,
7146: x_msg_data => x_msg_data,
7147: p_api_type => g_api_type);
7148:
7149: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7151: p_api_name => l_api_name,
7152: p_pkg_name => g_pkg_name,
7153: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7146: x_msg_data => x_msg_data,
7147: p_api_type => g_api_type);
7148:
7149: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7151: p_api_name => l_api_name,
7152: p_pkg_name => g_pkg_name,
7153: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7154: x_msg_count => x_msg_count,
7149: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7151: p_api_name => l_api_name,
7152: p_pkg_name => g_pkg_name,
7153: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7154: x_msg_count => x_msg_count,
7155: x_msg_data => x_msg_data,
7156: p_api_type => g_api_type);
7157:
7155: x_msg_data => x_msg_data,
7156: p_api_type => g_api_type);
7157:
7158: when OTHERS then
7159: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7160: p_api_name => l_api_name,
7161: p_pkg_name => g_pkg_name,
7162: p_exc_name => 'OTHERS',
7163: x_msg_count => x_msg_count,
7190: x_klev_tbl OUT NOCOPY klev_tbl_type) IS
7191:
7192: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
7193: l_api_version CONSTANT NUMBER := 1.0;
7194: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7195: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7196: i NUMBER;
7197: l_klev_tbl klev_tbl_type := p_klev_tbl;
7198: BEGIN
7191:
7192: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
7193: l_api_version CONSTANT NUMBER := 1.0;
7194: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7195: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7196: i NUMBER;
7197: l_klev_tbl klev_tbl_type := p_klev_tbl;
7198: BEGIN
7199: -- call START_ACTIVITY to create savepoint, check compatibility
7197: l_klev_tbl klev_tbl_type := p_klev_tbl;
7198: BEGIN
7199: -- call START_ACTIVITY to create savepoint, check compatibility
7200: -- and initialize message list
7201: l_return_status := OKL_API.START_ACTIVITY(
7202: p_api_name => l_api_name,
7203: p_pkg_name => g_pkg_name,
7204: p_init_msg_list => p_init_msg_list,
7205: l_api_version => l_api_version,
7207: p_api_type => g_api_type,
7208: x_return_status => x_return_status);
7209:
7210: -- check if activity started successfully
7211: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7212: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7213: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7214: raise OKL_API.G_EXCEPTION_ERROR;
7215:
7208: x_return_status => x_return_status);
7209:
7210: -- check if activity started successfully
7211: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7212: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7213: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7214: raise OKL_API.G_EXCEPTION_ERROR;
7215:
7216: End If;
7209:
7210: -- check if activity started successfully
7211: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7212: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7213: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7214: raise OKL_API.G_EXCEPTION_ERROR;
7215:
7216: End If;
7217:
7210: -- check if activity started successfully
7211: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7212: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7213: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7214: raise OKL_API.G_EXCEPTION_ERROR;
7215:
7216: End If;
7217:
7218: If (p_clev_tbl.COUNT > 0) Then
7228: p_edit_mode => 'Y',
7229: x_clev_tbl => x_clev_tbl,
7230: x_klev_tbl => x_klev_tbl);
7231:
7232: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7233: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7234: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7235: raise OKL_API.G_EXCEPTION_ERROR;
7236: End If;
7229: x_clev_tbl => x_clev_tbl,
7230: x_klev_tbl => x_klev_tbl);
7231:
7232: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7233: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7234: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7235: raise OKL_API.G_EXCEPTION_ERROR;
7236: End If;
7237:
7230: x_klev_tbl => x_klev_tbl);
7231:
7232: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7233: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7234: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7235: raise OKL_API.G_EXCEPTION_ERROR;
7236: End If;
7237:
7238: End If;
7231:
7232: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7233: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7234: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7235: raise OKL_API.G_EXCEPTION_ERROR;
7236: End If;
7237:
7238: End If;
7239:
7237:
7238: End If;
7239:
7240:
7241: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7242: x_msg_data => x_msg_data);
7243: EXCEPTION
7244: when OKL_API.G_EXCEPTION_ERROR then
7245: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7240:
7241: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7242: x_msg_data => x_msg_data);
7243: EXCEPTION
7244: when OKL_API.G_EXCEPTION_ERROR then
7245: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7246: p_api_name => l_api_name,
7247: p_pkg_name => g_pkg_name,
7248: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7241: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
7242: x_msg_data => x_msg_data);
7243: EXCEPTION
7244: when OKL_API.G_EXCEPTION_ERROR then
7245: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7246: p_api_name => l_api_name,
7247: p_pkg_name => g_pkg_name,
7248: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7249: x_msg_count => x_msg_count,
7244: when OKL_API.G_EXCEPTION_ERROR then
7245: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7246: p_api_name => l_api_name,
7247: p_pkg_name => g_pkg_name,
7248: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7249: x_msg_count => x_msg_count,
7250: x_msg_data => x_msg_data,
7251: p_api_type => g_api_type);
7252:
7249: x_msg_count => x_msg_count,
7250: x_msg_data => x_msg_data,
7251: p_api_type => g_api_type);
7252:
7253: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7254: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7255: p_api_name => l_api_name,
7256: p_pkg_name => g_pkg_name,
7257: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7250: x_msg_data => x_msg_data,
7251: p_api_type => g_api_type);
7252:
7253: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7254: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7255: p_api_name => l_api_name,
7256: p_pkg_name => g_pkg_name,
7257: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7258: x_msg_count => x_msg_count,
7253: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7254: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7255: p_api_name => l_api_name,
7256: p_pkg_name => g_pkg_name,
7257: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7258: x_msg_count => x_msg_count,
7259: x_msg_data => x_msg_data,
7260: p_api_type => g_api_type);
7261:
7259: x_msg_data => x_msg_data,
7260: p_api_type => g_api_type);
7261:
7262: when OTHERS then
7263: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7264: p_api_name => l_api_name,
7265: p_pkg_name => g_pkg_name,
7266: p_exc_name => 'OTHERS',
7267: x_msg_count => x_msg_count,
7297: l_deletion_type Varchar2(1);
7298:
7299: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
7300: l_api_version CONSTANT NUMBER := 1.0;
7301: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7302:
7303: --cursor to find out chr id required to flip status at edit point
7304: CURSOR chr_id_crs (p_cle_id IN NUMBER) is
7305: SELECT DNZ_CHR_ID
7405: AND lse.id = lns.lse_id;
7406:
7407: l_lty_code okc_line_styles_b.lty_code%TYPE;
7408: l_parameter_list wf_parameter_list_t;
7409: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
7410: l_business_event_name WF_EVENTS.NAME%TYPE;
7411: /*
7412: -- vthiruva, 08/19/2004
7413: -- END, Code change to enable Business Event
7416: BEGIN
7417:
7418: -- call START_ACTIVITY to create savepoint, check compatibility
7419: -- and initialize message list
7420: l_return_status := OKL_API.START_ACTIVITY(
7421: p_api_name => l_api_name,
7422: p_pkg_name => g_pkg_name,
7423: p_init_msg_list => p_init_msg_list,
7424: l_api_version => l_api_version,
7426: p_api_type => g_api_type,
7427: x_return_status => x_return_status);
7428:
7429: -- check if activity started successfully
7430: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7431: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7432: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7433: raise OKL_API.G_EXCEPTION_ERROR;
7434: End If;
7427: x_return_status => x_return_status);
7428:
7429: -- check if activity started successfully
7430: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7431: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7432: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7433: raise OKL_API.G_EXCEPTION_ERROR;
7434: End If;
7435:
7428:
7429: -- check if activity started successfully
7430: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7431: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7432: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7433: raise OKL_API.G_EXCEPTION_ERROR;
7434: End If;
7435:
7436: l_klev_rec := p_klev_rec;
7429: -- check if activity started successfully
7430: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7431: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7432: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7433: raise OKL_API.G_EXCEPTION_ERROR;
7434: End If;
7435:
7436: l_klev_rec := p_klev_rec;
7437: l_clev_rec := p_clev_rec;
7440: kle_delete_allowed(p_cle_id => l_klev_rec.id,
7441: x_deletion_type => l_deletion_type,
7442: x_return_status => x_return_status);
7443:
7444: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7446: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7447: raise OKL_API.G_EXCEPTION_ERROR;
7448: End If;
7441: x_deletion_type => l_deletion_type,
7442: x_return_status => x_return_status);
7443:
7444: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7446: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7447: raise OKL_API.G_EXCEPTION_ERROR;
7448: End If;
7449:
7442: x_return_status => x_return_status);
7443:
7444: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7446: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7447: raise OKL_API.G_EXCEPTION_ERROR;
7448: End If;
7449:
7450: OPEN lty_code_csr(l_clev_rec.id);
7443:
7444: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7446: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7447: raise OKL_API.G_EXCEPTION_ERROR;
7448: End If;
7449:
7450: OPEN lty_code_csr(l_clev_rec.id);
7451: FETCH lty_code_csr into l_lty_code;
7468: x_clev_rec => l_clev_rec_out,
7469: x_klev_rec => l_klev_rec_out
7470: );
7471:
7472: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7473: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7474: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7475: raise OKL_API.G_EXCEPTION_ERROR;
7476: End If;
7469: x_klev_rec => l_klev_rec_out
7470: );
7471:
7472: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7473: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7474: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7475: raise OKL_API.G_EXCEPTION_ERROR;
7476: End If;
7477:
7470: );
7471:
7472: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7473: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7474: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7475: raise OKL_API.G_EXCEPTION_ERROR;
7476: End If;
7477:
7478: --Bug # 2522268 Begin
7471:
7472: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7473: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7474: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7475: raise OKL_API.G_EXCEPTION_ERROR;
7476: End If;
7477:
7478: --Bug # 2522268 Begin
7479: --do logical deletion of asset number so
7485: x_msg_data => x_msg_data,
7486: p_cle_id => l_clev_rec_out.id,
7487: p_asset_number => l_clev_rec_out.name);
7488:
7489: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7491: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7492: raise OKL_API.G_EXCEPTION_ERROR;
7493: End If;
7486: p_cle_id => l_clev_rec_out.id,
7487: p_asset_number => l_clev_rec_out.name);
7488:
7489: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7491: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7492: raise OKL_API.G_EXCEPTION_ERROR;
7493: End If;
7494:
7487: p_asset_number => l_clev_rec_out.name);
7488:
7489: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7491: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7492: raise OKL_API.G_EXCEPTION_ERROR;
7493: End If;
7494:
7495: --do logical deletion of linked assets
7488:
7489: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7490: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7491: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7492: raise OKL_API.G_EXCEPTION_ERROR;
7493: End If;
7494:
7495: --do logical deletion of linked assets
7496: Linked_Asset_Delete(p_api_version => p_api_version,
7500: x_msg_data => x_msg_data,
7501: p_cle_id => l_clev_rec_out.id,
7502: p_deletion_type => l_deletion_type);
7503:
7504: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7505: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7506: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7507: raise OKL_API.G_EXCEPTION_ERROR;
7508: End If;
7501: p_cle_id => l_clev_rec_out.id,
7502: p_deletion_type => l_deletion_type);
7503:
7504: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7505: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7506: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7507: raise OKL_API.G_EXCEPTION_ERROR;
7508: End If;
7509: --Bug # 2522268 End
7502: p_deletion_type => l_deletion_type);
7503:
7504: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7505: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7506: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7507: raise OKL_API.G_EXCEPTION_ERROR;
7508: End If;
7509: --Bug # 2522268 End
7510:
7503:
7504: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7505: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7506: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7507: raise OKL_API.G_EXCEPTION_ERROR;
7508: End If;
7509: --Bug # 2522268 End
7510:
7511: --Bug # 2937980
7516: x_msg_count => x_msg_count,
7517: x_msg_data => x_msg_data,
7518: p_cle_id => l_clev_rec.id);
7519:
7520: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7521: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7522: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7523: raise OKL_API.G_EXCEPTION_ERROR;
7524: End If;
7517: x_msg_data => x_msg_data,
7518: p_cle_id => l_clev_rec.id);
7519:
7520: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7521: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7522: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7523: raise OKL_API.G_EXCEPTION_ERROR;
7524: End If;
7525: --Bug # 2937980
7518: p_cle_id => l_clev_rec.id);
7519:
7520: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7521: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7522: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7523: raise OKL_API.G_EXCEPTION_ERROR;
7524: End If;
7525: --Bug # 2937980
7526:
7519:
7520: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7521: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7522: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
7523: raise OKL_API.G_EXCEPTION_ERROR;
7524: End If;
7525: --Bug # 2937980
7526:
7527: 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
7523: raise OKL_API.G_EXCEPTION_ERROR;
7524: End If;
7525: --Bug # 2937980
7526:
7527: 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
7528: --call to cascade the status to Incomplete
7529: okl_contract_status_pub.cascade_lease_status_edit
7530: (p_api_version => p_api_version,
7531: p_init_msg_list => p_init_msg_list,
7533: x_msg_count => x_msg_count,
7534: x_msg_data => x_msg_data,
7535: p_chr_id => l_clev_rec_out.dnz_chr_id);
7536:
7537: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7538: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7539: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7540: raise OKL_API.G_EXCEPTION_ERROR;
7541: End If;
7534: x_msg_data => x_msg_data,
7535: p_chr_id => l_clev_rec_out.dnz_chr_id);
7536:
7537: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7538: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7539: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7540: raise OKL_API.G_EXCEPTION_ERROR;
7541: End If;
7542:
7535: p_chr_id => l_clev_rec_out.dnz_chr_id);
7536:
7537: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7538: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7539: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7540: raise OKL_API.G_EXCEPTION_ERROR;
7541: End If;
7542:
7543: End If;
7536:
7537: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7538: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7539: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7540: raise OKL_API.G_EXCEPTION_ERROR;
7541: End If;
7542:
7543: End If;
7544:
7548:
7549: --call to cascade the status to Incomplete
7550: --this has to be done first as l_clev_rec.dnz_chr_id will be null
7551: -- once the line has been deleted.
7552: If (l_clev_rec.dnz_chr_id is NULL) or (l_clev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) Then
7553: Open chr_id_crs(p_cle_id => l_clev_rec.cle_id);
7554: Fetch chr_id_crs into l_dnz_chr_id;
7555: If chr_id_crs%NOTFOUND Then
7556: null;
7559: Else
7560: l_dnz_chr_id := l_clev_rec.dnz_chr_id;
7561: End If;
7562:
7563: If (l_dnz_chr_id is not null) AND (l_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
7564:
7565: okl_contract_status_pub.cascade_lease_status_edit
7566: (p_api_version => p_api_version,
7567: p_init_msg_list => p_init_msg_list,
7569: x_msg_count => x_msg_count,
7570: x_msg_data => x_msg_data,
7571: p_chr_id => l_dnz_chr_id);
7572:
7573: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7574: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7575: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7576: raise OKL_API.G_EXCEPTION_ERROR;
7577: End If;
7570: x_msg_data => x_msg_data,
7571: p_chr_id => l_dnz_chr_id);
7572:
7573: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7574: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7575: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7576: raise OKL_API.G_EXCEPTION_ERROR;
7577: End If;
7578:
7571: p_chr_id => l_dnz_chr_id);
7572:
7573: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7574: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7575: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7576: raise OKL_API.G_EXCEPTION_ERROR;
7577: End If;
7578:
7579: End If;
7572:
7573: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7574: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7575: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7576: raise OKL_API.G_EXCEPTION_ERROR;
7577: End If;
7578:
7579: End If;
7580:
7587: x_msg_data => x_msg_data,
7588: p_cle_id => l_clev_rec.id,
7589: p_deletion_type => l_deletion_type);
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.id,
7589: p_deletion_type => l_deletion_type);
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: --Bug # 2522268 End
7589: p_deletion_type => l_deletion_type);
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: --Bug # 2522268 End
7597:
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: --Bug # 2522268 End
7597:
7598: --Bug# 3143522
7615: x_msg_count => x_msg_count,
7616: x_msg_data => x_msg_data,
7617: p_ppydv_tbl => l_ppydv_tbl);
7618:
7619: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7620: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7621: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7622: raise OKL_API.G_EXCEPTION_ERROR;
7623: End If;
7616: x_msg_data => x_msg_data,
7617: p_ppydv_tbl => l_ppydv_tbl);
7618:
7619: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7620: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7621: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7622: raise OKL_API.G_EXCEPTION_ERROR;
7623: End If;
7624:
7617: p_ppydv_tbl => l_ppydv_tbl);
7618:
7619: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7620: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7621: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7622: raise OKL_API.G_EXCEPTION_ERROR;
7623: End If;
7624:
7625: l_ppydv_tbl.DELETE;
7618:
7619: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7620: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7621: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7622: raise OKL_API.G_EXCEPTION_ERROR;
7623: End If;
7624:
7625: l_ppydv_tbl.DELETE;
7626:
7646: x_msg_count => x_msg_count,
7647: x_msg_data => x_msg_data,
7648: p_pphv_tbl => l_pphv_tbl );
7649:
7650: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7652: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7653: raise OKL_API.G_EXCEPTION_ERROR;
7654: End If;
7647: x_msg_data => x_msg_data,
7648: p_pphv_tbl => l_pphv_tbl );
7649:
7650: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7652: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7653: raise OKL_API.G_EXCEPTION_ERROR;
7654: End If;
7655:
7648: p_pphv_tbl => l_pphv_tbl );
7649:
7650: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7652: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7653: raise OKL_API.G_EXCEPTION_ERROR;
7654: End If;
7655:
7656: l_pphv_tbl.DELETE;
7649:
7650: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7652: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7653: raise OKL_API.G_EXCEPTION_ERROR;
7654: End If;
7655:
7656: l_pphv_tbl.DELETE;
7657:
7676: x_msg_count => x_msg_count,
7677: x_msg_data => x_msg_data,
7678: p_kplv_tbl => l_kplv_tbl);
7679:
7680: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7681: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7682: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7683: raise OKL_API.G_EXCEPTION_ERROR;
7684: End If;
7677: x_msg_data => x_msg_data,
7678: p_kplv_tbl => l_kplv_tbl);
7679:
7680: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7681: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7682: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7683: raise OKL_API.G_EXCEPTION_ERROR;
7684: End If;
7685:
7678: p_kplv_tbl => l_kplv_tbl);
7679:
7680: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7681: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7682: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7683: raise OKL_API.G_EXCEPTION_ERROR;
7684: End If;
7685:
7686: l_kplv_tbl.DELETE;
7679:
7680: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7681: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7682: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7683: raise OKL_API.G_EXCEPTION_ERROR;
7684: End If;
7685:
7686: l_kplv_tbl.DELETE;
7687: End If;
7705:
7706: --taken care of in another api with p_delete_cascade_yn flag
7707:
7708: -- check return status
7709: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7710: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7711: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7712: raise OKL_API.G_EXCEPTION_ERROR;
7713: End If;
7706: --taken care of in another api with p_delete_cascade_yn flag
7707:
7708: -- check return status
7709: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7710: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7711: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7712: raise OKL_API.G_EXCEPTION_ERROR;
7713: End If;
7714:
7707:
7708: -- check return status
7709: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7710: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7711: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7712: raise OKL_API.G_EXCEPTION_ERROR;
7713: End If;
7714:
7715: -- get id from OKC record
7708: -- check return status
7709: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7710: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7711: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7712: raise OKL_API.G_EXCEPTION_ERROR;
7713: End If;
7714:
7715: -- get id from OKC record
7716: l_klev_rec.ID := l_clev_rec.ID;
7737: x_msg_count => x_msg_count,
7738: x_msg_data => x_msg_data,
7739: p_adpv_rec => l_adpv_rec);
7740: -- check return status
7741: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7742: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7743: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7744: raise OKL_API.G_EXCEPTION_ERROR;
7745: End If;
7738: x_msg_data => x_msg_data,
7739: p_adpv_rec => l_adpv_rec);
7740: -- check return status
7741: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7742: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7743: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7744: raise OKL_API.G_EXCEPTION_ERROR;
7745: End If;
7746: End If;
7739: p_adpv_rec => l_adpv_rec);
7740: -- check return status
7741: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7742: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7743: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7744: raise OKL_API.G_EXCEPTION_ERROR;
7745: End If;
7746: End If;
7747: Close l_get_txd_crs;
7740: -- check return status
7741: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7742: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7743: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7744: raise OKL_API.G_EXCEPTION_ERROR;
7745: End If;
7746: End If;
7747: Close l_get_txd_crs;
7748: --delete txl record
7754: x_msg_count => x_msg_count,
7755: x_msg_data => x_msg_data,
7756: p_tlpv_rec => l_tlpv_rec);
7757: -- check return status
7758: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7759: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7760: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7761: raise OKL_API.G_EXCEPTION_ERROR;
7762: End If;
7755: x_msg_data => x_msg_data,
7756: p_tlpv_rec => l_tlpv_rec);
7757: -- check return status
7758: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7759: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7760: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7761: raise OKL_API.G_EXCEPTION_ERROR;
7762: End If;
7763:
7756: p_tlpv_rec => l_tlpv_rec);
7757: -- check return status
7758: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7759: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7760: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7761: raise OKL_API.G_EXCEPTION_ERROR;
7762: End If;
7763:
7764: --delete tas_record
7757: -- check return status
7758: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7759: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7760: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7761: raise OKL_API.G_EXCEPTION_ERROR;
7762: End If;
7763:
7764: --delete tas_record
7765: l_thpv_rec.id := l_tas_id;
7770: x_msg_count => x_msg_count,
7771: x_msg_data => x_msg_data,
7772: p_thpv_rec => l_thpv_rec);
7773: -- check return status
7774: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7775: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7776: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7777: raise OKL_API.G_EXCEPTION_ERROR;
7778: End If;
7771: x_msg_data => x_msg_data,
7772: p_thpv_rec => l_thpv_rec);
7773: -- check return status
7774: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7775: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7776: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7777: raise OKL_API.G_EXCEPTION_ERROR;
7778: End If;
7779: End If;
7772: p_thpv_rec => l_thpv_rec);
7773: -- check return status
7774: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7775: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7776: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7777: raise OKL_API.G_EXCEPTION_ERROR;
7778: End If;
7779: End If;
7780: Close l_get_txl_crs;
7773: -- check return status
7774: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7775: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7776: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7777: raise OKL_API.G_EXCEPTION_ERROR;
7778: End If;
7779: End If;
7780: Close l_get_txl_crs;
7781:
7794: x_msg_count => x_msg_count,
7795: x_msg_data => x_msg_data,
7796: p_iipv_rec => l_iipv_rec);
7797: -- check return status
7798: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7799: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7800: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7801: raise OKL_API.G_EXCEPTION_ERROR;
7802: End If;
7795: x_msg_data => x_msg_data,
7796: p_iipv_rec => l_iipv_rec);
7797: -- check return status
7798: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7799: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7800: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7801: raise OKL_API.G_EXCEPTION_ERROR;
7802: End If;
7803:
7796: p_iipv_rec => l_iipv_rec);
7797: -- check return status
7798: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7799: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7800: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7801: raise OKL_API.G_EXCEPTION_ERROR;
7802: End If;
7803:
7804: --delete tas_record
7797: -- check return status
7798: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7799: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7800: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7801: raise OKL_API.G_EXCEPTION_ERROR;
7802: End If;
7803:
7804: --delete tas_record
7805: l_iti_thpv_rec.id := l_iti_tas_id;
7810: x_msg_count => x_msg_count,
7811: x_msg_data => x_msg_data,
7812: p_thpv_rec => l_iti_thpv_rec);
7813: -- check return status
7814: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7815: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7816: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7817: raise OKL_API.G_EXCEPTION_ERROR;
7818: End If;
7811: x_msg_data => x_msg_data,
7812: p_thpv_rec => l_iti_thpv_rec);
7813: -- check return status
7814: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7815: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7816: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7817: raise OKL_API.G_EXCEPTION_ERROR;
7818: End If;
7819: End If;
7812: p_thpv_rec => l_iti_thpv_rec);
7813: -- check return status
7814: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7815: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7816: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7817: raise OKL_API.G_EXCEPTION_ERROR;
7818: End If;
7819: End If;
7820: Close l_get_iti_csr;
7813: -- check return status
7814: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7815: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7816: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7817: raise OKL_API.G_EXCEPTION_ERROR;
7818: End If;
7819: End If;
7820: Close l_get_iti_csr;
7821:
7841: x_msg_count => x_msg_count,
7842: x_msg_data => x_msg_data,
7843: p_sidv_tbl => l_sidv_tbl);
7844:
7845: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7846: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7847: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7848: raise OKL_API.G_EXCEPTION_ERROR;
7849: End If;
7842: x_msg_data => x_msg_data,
7843: p_sidv_tbl => l_sidv_tbl);
7844:
7845: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7846: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7847: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7848: raise OKL_API.G_EXCEPTION_ERROR;
7849: End If;
7850:
7843: p_sidv_tbl => l_sidv_tbl);
7844:
7845: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7846: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7847: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7848: raise OKL_API.G_EXCEPTION_ERROR;
7849: End If;
7850:
7851: l_sidv_tbl.DELETE;
7844:
7845: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7846: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7847: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7848: raise OKL_API.G_EXCEPTION_ERROR;
7849: End If;
7850:
7851: l_sidv_tbl.DELETE;
7852:
7862: x_msg_count => x_msg_count,
7863: x_msg_data => x_msg_data,
7864: p_klev_rec => l_klev_rec);
7865:
7866: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7868: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7869: raise OKL_API.G_EXCEPTION_ERROR;
7870: End If;
7863: x_msg_data => x_msg_data,
7864: p_klev_rec => l_klev_rec);
7865:
7866: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7868: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7869: raise OKL_API.G_EXCEPTION_ERROR;
7870: End If;
7871: End If;
7864: p_klev_rec => l_klev_rec);
7865:
7866: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7868: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7869: raise OKL_API.G_EXCEPTION_ERROR;
7870: End If;
7871: End If;
7872:
7865:
7866: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
7867: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7868: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
7869: raise OKL_API.G_EXCEPTION_ERROR;
7870: End If;
7871: End If;
7872:
7873: -- sjalasut, added code to handle business event when credit limit is deleted
7874: -- raise the business event for delete credit limit only if line style code is FREE_FORM.
7875: -- keep the following condition and the raise business event api separate for
7876: -- extensibility
7877: IF(l_lty_code = 'FREE_FORM')THEN
7878: l_raise_business_event := OKL_API.G_TRUE;
7879: --create the parameter list to pass to raise_event
7880: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_dnz_chr_id,l_parameter_list);
7881: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
7882: l_business_event_name := G_WF_EVT_CR_LMT_REMOVED;
7881: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
7882: l_business_event_name := G_WF_EVT_CR_LMT_REMOVED;
7883: END IF;
7884:
7885: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN
7886: raise_business_event(p_api_version => p_api_version,
7887: p_init_msg_list => p_init_msg_list,
7888: x_return_status => x_return_status,
7889: x_msg_count => x_msg_count,
7889: x_msg_count => x_msg_count,
7890: x_msg_data => x_msg_data,
7891: p_event_name => l_business_event_name,
7892: p_parameter_list => l_parameter_list);
7893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7896: RAISE OKL_API.G_EXCEPTION_ERROR;
7897: END IF;
7890: x_msg_data => x_msg_data,
7891: p_event_name => l_business_event_name,
7892: p_parameter_list => l_parameter_list);
7893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7896: RAISE OKL_API.G_EXCEPTION_ERROR;
7897: END IF;
7898: END IF;
7891: p_event_name => l_business_event_name,
7892: p_parameter_list => l_parameter_list);
7893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7896: RAISE OKL_API.G_EXCEPTION_ERROR;
7897: END IF;
7898: END IF;
7899:
7892: p_parameter_list => l_parameter_list);
7893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7896: RAISE OKL_API.G_EXCEPTION_ERROR;
7897: END IF;
7898: END IF;
7899:
7900: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7896: RAISE OKL_API.G_EXCEPTION_ERROR;
7897: END IF;
7898: END IF;
7899:
7900: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7901: x_msg_data => x_msg_data);
7902: EXCEPTION
7903: when OKL_API.G_EXCEPTION_ERROR then
7904: If l_get_txl_crs%ISOPEN Then
7899:
7900: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7901: x_msg_data => x_msg_data);
7902: EXCEPTION
7903: when OKL_API.G_EXCEPTION_ERROR then
7904: If l_get_txl_crs%ISOPEN Then
7905: Close l_get_txl_crs;
7906: End If;
7907: If l_get_txd_crs%ISOPEN Then
7918: End If;
7919: If l_get_pyd_csr%ISOPEN Then
7920: Close l_get_pyd_csr;
7921: End If;
7922: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7923: p_api_name => l_api_name,
7924: p_pkg_name => g_pkg_name,
7925: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7926: x_msg_count => x_msg_count,
7921: End If;
7922: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7923: p_api_name => l_api_name,
7924: p_pkg_name => g_pkg_name,
7925: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7926: x_msg_count => x_msg_count,
7927: x_msg_data => x_msg_data,
7928: p_api_type => g_api_type);
7929:
7926: x_msg_count => x_msg_count,
7927: x_msg_data => x_msg_data,
7928: p_api_type => g_api_type);
7929:
7930: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7931: If l_get_txl_crs%ISOPEN Then
7932: Close l_get_txl_crs;
7933: End If;
7934: If l_get_txd_crs%ISOPEN Then
7946: If l_get_pyd_csr%ISOPEN Then
7947: Close l_get_pyd_csr;
7948: End If;
7949:
7950: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7951: p_api_name => l_api_name,
7952: p_pkg_name => g_pkg_name,
7953: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7954: x_msg_count => x_msg_count,
7949:
7950: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7951: p_api_name => l_api_name,
7952: p_pkg_name => g_pkg_name,
7953: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7954: x_msg_count => x_msg_count,
7955: x_msg_data => x_msg_data,
7956: p_api_type => g_api_type);
7957:
7974: If l_get_pyd_csr%ISOPEN Then
7975: Close l_get_pyd_csr;
7976: End If;
7977:
7978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7979: p_api_name => l_api_name,
7980: p_pkg_name => g_pkg_name,
7981: p_exc_name => 'OTHERS',
7982: x_msg_count => x_msg_count,
8003: p_klev_tbl IN klev_tbl_type) IS
8004:
8005: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
8006: l_api_version CONSTANT NUMBER := 1.0;
8007: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8008: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8009: i NUMBER;
8010: l_klev_tbl klev_tbl_type := p_klev_tbl;
8011: BEGIN
8004:
8005: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
8006: l_api_version CONSTANT NUMBER := 1.0;
8007: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8008: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8009: i NUMBER;
8010: l_klev_tbl klev_tbl_type := p_klev_tbl;
8011: BEGIN
8012: -- call START_ACTIVITY to create savepoint, check compatibility
8010: l_klev_tbl klev_tbl_type := p_klev_tbl;
8011: BEGIN
8012: -- call START_ACTIVITY to create savepoint, check compatibility
8013: -- and initialize message list
8014: l_return_status := OKL_API.START_ACTIVITY(
8015: p_api_name => l_api_name,
8016: p_pkg_name => g_pkg_name,
8017: p_init_msg_list => p_init_msg_list,
8018: l_api_version => l_api_version,
8020: p_api_type => g_api_type,
8021: x_return_status => x_return_status);
8022:
8023: -- check if activity started successfully
8024: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8025: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8026: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8027: raise OKL_API.G_EXCEPTION_ERROR;
8028: End If;
8021: x_return_status => x_return_status);
8022:
8023: -- check if activity started successfully
8024: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8025: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8026: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8027: raise OKL_API.G_EXCEPTION_ERROR;
8028: End If;
8029:
8022:
8023: -- check if activity started successfully
8024: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8025: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8026: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8027: raise OKL_API.G_EXCEPTION_ERROR;
8028: End If;
8029:
8030: If (p_clev_tbl.COUNT > 0) Then
8023: -- check if activity started successfully
8024: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8025: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8026: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8027: raise OKL_API.G_EXCEPTION_ERROR;
8028: End If;
8029:
8030: If (p_clev_tbl.COUNT > 0) Then
8031: i := p_clev_tbl.FIRST;
8039: x_msg_data => x_msg_data,
8040: p_clev_rec => p_clev_tbl(i),
8041: p_klev_rec => l_klev_tbl(i));
8042:
8043: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
8044: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
8045: l_overall_status := x_return_status;
8046: End If;
8047: End If;
8040: p_clev_rec => p_clev_tbl(i),
8041: p_klev_rec => l_klev_tbl(i));
8042:
8043: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
8044: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
8045: l_overall_status := x_return_status;
8046: End If;
8047: End If;
8048:
8053: -- return overall status
8054: x_return_status := l_overall_status;
8055: End If;
8056:
8057: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8059: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8060: raise OKL_API.G_EXCEPTION_ERROR;
8061: End If;
8054: x_return_status := l_overall_status;
8055: End If;
8056:
8057: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8059: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8060: raise OKL_API.G_EXCEPTION_ERROR;
8061: End If;
8062:
8055: End If;
8056:
8057: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8059: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8060: raise OKL_API.G_EXCEPTION_ERROR;
8061: End If;
8062:
8063: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8056:
8057: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8059: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8060: raise OKL_API.G_EXCEPTION_ERROR;
8061: End If;
8062:
8063: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8064: x_msg_data => x_msg_data);
8059: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8060: raise OKL_API.G_EXCEPTION_ERROR;
8061: End If;
8062:
8063: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8064: x_msg_data => x_msg_data);
8065: EXCEPTION
8066: when OKL_API.G_EXCEPTION_ERROR then
8067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8062:
8063: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8064: x_msg_data => x_msg_data);
8065: EXCEPTION
8066: when OKL_API.G_EXCEPTION_ERROR then
8067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8068: p_api_name => l_api_name,
8069: p_pkg_name => g_pkg_name,
8070: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8063: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8064: x_msg_data => x_msg_data);
8065: EXCEPTION
8066: when OKL_API.G_EXCEPTION_ERROR then
8067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8068: p_api_name => l_api_name,
8069: p_pkg_name => g_pkg_name,
8070: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8071: x_msg_count => x_msg_count,
8066: when OKL_API.G_EXCEPTION_ERROR then
8067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8068: p_api_name => l_api_name,
8069: p_pkg_name => g_pkg_name,
8070: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8071: x_msg_count => x_msg_count,
8072: x_msg_data => x_msg_data,
8073: p_api_type => g_api_type);
8074:
8071: x_msg_count => x_msg_count,
8072: x_msg_data => x_msg_data,
8073: p_api_type => g_api_type);
8074:
8075: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8076: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8077: p_api_name => l_api_name,
8078: p_pkg_name => g_pkg_name,
8079: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8072: x_msg_data => x_msg_data,
8073: p_api_type => g_api_type);
8074:
8075: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8076: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8077: p_api_name => l_api_name,
8078: p_pkg_name => g_pkg_name,
8079: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8080: x_msg_count => x_msg_count,
8075: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8076: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8077: p_api_name => l_api_name,
8078: p_pkg_name => g_pkg_name,
8079: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8080: x_msg_count => x_msg_count,
8081: x_msg_data => x_msg_data,
8082: p_api_type => g_api_type);
8083:
8081: x_msg_data => x_msg_data,
8082: p_api_type => g_api_type);
8083:
8084: when OTHERS then
8085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8086: p_api_name => l_api_name,
8087: p_pkg_name => g_pkg_name,
8088: p_exc_name => 'OTHERS',
8089: x_msg_count => x_msg_count,
8264: AND lse.id = lns.lse_id;
8265:
8266: l_lty_code okc_line_styles_b.lty_code%TYPE;
8267: l_parameter_list wf_parameter_list_t;
8268: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
8269: l_business_event_name WF_EVENTS.NAME%TYPE;
8270: /*
8271: -- vthiruva, 08/19/2004
8272: -- END, Code change to enable Business Event
8275: -- validates line id
8276: PROCEDURE Validate_Line_id(
8277: p_line_id IN NUMBER,
8278: x_return_status OUT NOCOPY VARCHAR2) IS
8279: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8280: l_count NUMBER;
8281: CURSOR l_cur_line_csr(p_line_id IN NUMBER) IS
8282: SELECT COUNT(id) FROM OKC_K_LINES_B
8283: WHERE id = p_line_id;
8281: CURSOR l_cur_line_csr(p_line_id IN NUMBER) IS
8282: SELECT COUNT(id) FROM OKC_K_LINES_B
8283: WHERE id = p_line_id;
8284: BEGIN
8285: IF p_line_id = OKL_API.G_MISS_NUM OR p_line_id IS NULL
8286: THEN
8287: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8288:
8289: l_return_status := OKL_API.G_RET_STS_ERROR;
8283: WHERE id = p_line_id;
8284: BEGIN
8285: IF p_line_id = OKL_API.G_MISS_NUM OR p_line_id IS NULL
8286: THEN
8287: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8288:
8289: l_return_status := OKL_API.G_RET_STS_ERROR;
8290: END IF;
8291:
8285: IF p_line_id = OKL_API.G_MISS_NUM OR p_line_id IS NULL
8286: THEN
8287: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8288:
8289: l_return_status := OKL_API.G_RET_STS_ERROR;
8290: END IF;
8291:
8292: OPEN l_cur_line_csr(p_line_id);
8293: FETCH l_cur_line_csr INTO l_Count;
8292: OPEN l_cur_line_csr(p_line_id);
8293: FETCH l_cur_line_csr INTO l_Count;
8294: CLOSE l_cur_line_csr;
8295: IF NOT l_Count = 1 THEN
8296: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8297:
8298: l_return_status := OKL_API.G_RET_STS_ERROR;
8299: END IF;
8300: x_return_status := l_return_status;
8294: CLOSE l_cur_line_csr;
8295: IF NOT l_Count = 1 THEN
8296: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'p_line_id');
8297:
8298: l_return_status := OKL_API.G_RET_STS_ERROR;
8299: END IF;
8300: x_return_status := l_return_status;
8301: EXCEPTION
8302: WHEN OTHERS THEN
8301: EXCEPTION
8302: WHEN OTHERS THEN
8303: -- store SQL error message on message stack for caller
8304:
8305: OKL_API.set_message(G_APP_NAME,
8306: G_UNEXPECTED_ERROR,
8307: G_SQLCODE_TOKEN,
8308: SQLCODE,
8309: G_SQLERRM_TOKEN,
8308: SQLCODE,
8309: G_SQLERRM_TOKEN,
8310: SQLERRM);
8311: -- notify caller of an UNEXPECTED error
8312: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8313: END Validate_Line_id;
8314:
8315: BEGIN
8316: x_return_status:=OKL_API.G_RET_STS_SUCCESS;
8312: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8313: END Validate_Line_id;
8314:
8315: BEGIN
8316: x_return_status:=OKL_API.G_RET_STS_SUCCESS;
8317:
8318: -- call START_ACTIVITY to create savepoint, check compatibility
8319: -- and initialize message list
8320: l_return_status := OKL_API.START_ACTIVITY(
8316: x_return_status:=OKL_API.G_RET_STS_SUCCESS;
8317:
8318: -- call START_ACTIVITY to create savepoint, check compatibility
8319: -- and initialize message list
8320: l_return_status := OKL_API.START_ACTIVITY(
8321: p_api_name => l_api_name,
8322: p_pkg_name => g_pkg_name,
8323: p_init_msg_list => p_init_msg_list,
8324: l_api_version => l_api_version,
8326: p_api_type => g_api_type,
8327: x_return_status => x_return_status);
8328:
8329: -- check if activity started successfully
8330: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8331: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8332: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8333: raise OKL_API.G_EXCEPTION_ERROR;
8334: End If;
8327: x_return_status => x_return_status);
8328:
8329: -- check if activity started successfully
8330: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8331: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8332: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8333: raise OKL_API.G_EXCEPTION_ERROR;
8334: End If;
8335:
8328:
8329: -- check if activity started successfully
8330: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8331: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8332: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8333: raise OKL_API.G_EXCEPTION_ERROR;
8334: End If;
8335:
8336: Validate_Line_id(p_line_id,l_return_status);
8329: -- check if activity started successfully
8330: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8331: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8332: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8333: raise OKL_API.G_EXCEPTION_ERROR;
8334: End If;
8335:
8336: Validate_Line_id(p_line_id,l_return_status);
8337: -- check if activity started successfully
8334: End If;
8335:
8336: Validate_Line_id(p_line_id,l_return_status);
8337: -- check if activity started successfully
8338: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8340: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8341: raise OKL_API.G_EXCEPTION_ERROR;
8342: End If;
8335:
8336: Validate_Line_id(p_line_id,l_return_status);
8337: -- check if activity started successfully
8338: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8340: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8341: raise OKL_API.G_EXCEPTION_ERROR;
8342: End If;
8343:
8336: Validate_Line_id(p_line_id,l_return_status);
8337: -- check if activity started successfully
8338: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8340: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8341: raise OKL_API.G_EXCEPTION_ERROR;
8342: End If;
8343:
8344:
8337: -- check if activity started successfully
8338: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8340: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8341: raise OKL_API.G_EXCEPTION_ERROR;
8342: End If;
8343:
8344:
8345: -- now we need to store all numbers of sublines to the current line
8388: kle_delete_allowed(p_cle_id => l_klev_tbl_in(i).id,
8389: x_deletion_type => l_deletion_type,
8390: x_return_status => x_return_status);
8391:
8392: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8393: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8394: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8395: raise OKL_API.G_EXCEPTION_ERROR;
8396: End If;
8389: x_deletion_type => l_deletion_type,
8390: x_return_status => x_return_status);
8391:
8392: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8393: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8394: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8395: raise OKL_API.G_EXCEPTION_ERROR;
8396: End If;
8397: --dbms_output.put_line('l_deletion_type'||l_deletion_type);
8390: x_return_status => x_return_status);
8391:
8392: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8393: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8394: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8395: raise OKL_API.G_EXCEPTION_ERROR;
8396: End If;
8397: --dbms_output.put_line('l_deletion_type'||l_deletion_type);
8398: If (l_deletion_type in ('L','N')) Then --logical delete or not allowed
8391:
8392: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8393: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8394: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8395: raise OKL_API.G_EXCEPTION_ERROR;
8396: End If;
8397: --dbms_output.put_line('l_deletion_type'||l_deletion_type);
8398: If (l_deletion_type in ('L','N')) Then --logical delete or not allowed
8399: Exit;
8422: );
8423: --dbms_output.put_line('sts_code :'||l_clev_rec_out.sts_code);
8424: --dbms_output.put_line('line:'||to_char(l_clev_rec_out.id));
8425:
8426: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8427: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8428: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
8429: raise OKL_API.G_EXCEPTION_ERROR;
8430: End If;
8423: --dbms_output.put_line('sts_code :'||l_clev_rec_out.sts_code);
8424: --dbms_output.put_line('line:'||to_char(l_clev_rec_out.id));
8425:
8426: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8427: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8428: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
8429: raise OKL_API.G_EXCEPTION_ERROR;
8430: End If;
8431:
8424: --dbms_output.put_line('line:'||to_char(l_clev_rec_out.id));
8425:
8426: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8427: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8428: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
8429: raise OKL_API.G_EXCEPTION_ERROR;
8430: End If;
8431:
8432: --Bug # 2522268 Begin
8425:
8426: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8427: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8428: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
8429: raise OKL_API.G_EXCEPTION_ERROR;
8430: End If;
8431:
8432: --Bug # 2522268 Begin
8433: --do logical deletion of asset number so
8440: x_msg_data => x_msg_data,
8441: p_cle_id => l_clev_rec_out.id,
8442: p_asset_number => l_clev_rec_out.name);
8443:
8444: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8446: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8447: raise OKL_API.G_EXCEPTION_ERROR;
8448: End If;
8441: p_cle_id => l_clev_rec_out.id,
8442: p_asset_number => l_clev_rec_out.name);
8443:
8444: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8446: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8447: raise OKL_API.G_EXCEPTION_ERROR;
8448: End If;
8449:
8442: p_asset_number => l_clev_rec_out.name);
8443:
8444: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8446: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8447: raise OKL_API.G_EXCEPTION_ERROR;
8448: End If;
8449:
8450: --do logical deletion of linked assets
8443:
8444: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8446: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8447: raise OKL_API.G_EXCEPTION_ERROR;
8448: End If;
8449:
8450: --do logical deletion of linked assets
8451: Linked_Asset_Delete(p_api_version => p_api_version,
8455: x_msg_data => x_msg_data,
8456: p_cle_id => l_clev_rec_out.id,
8457: p_deletion_type => l_deletion_type);
8458:
8459: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8460: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8461: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8462: raise OKL_API.G_EXCEPTION_ERROR;
8463: End If;
8456: p_cle_id => l_clev_rec_out.id,
8457: p_deletion_type => l_deletion_type);
8458:
8459: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8460: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8461: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8462: raise OKL_API.G_EXCEPTION_ERROR;
8463: End If;
8464: --Bug # 2522268 End
8457: p_deletion_type => l_deletion_type);
8458:
8459: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8460: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8461: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8462: raise OKL_API.G_EXCEPTION_ERROR;
8463: End If;
8464: --Bug # 2522268 End
8465:
8458:
8459: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8460: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8461: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8462: raise OKL_API.G_EXCEPTION_ERROR;
8463: End If;
8464: --Bug # 2522268 End
8465:
8466: --Bug # 2937980
8471: x_msg_count => x_msg_count,
8472: x_msg_data => x_msg_data,
8473: p_cle_id => l_clev_rec.id);
8474:
8475: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8476: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8477: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8478: raise OKL_API.G_EXCEPTION_ERROR;
8479: End If;
8472: x_msg_data => x_msg_data,
8473: p_cle_id => l_clev_rec.id);
8474:
8475: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8476: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8477: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8478: raise OKL_API.G_EXCEPTION_ERROR;
8479: End If;
8480: --Bug # 2937980
8473: p_cle_id => l_clev_rec.id);
8474:
8475: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8476: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8477: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8478: raise OKL_API.G_EXCEPTION_ERROR;
8479: End If;
8480: --Bug # 2937980
8481:
8474:
8475: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8476: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8477: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8478: raise OKL_API.G_EXCEPTION_ERROR;
8479: End If;
8480: --Bug # 2937980
8481:
8482: 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
8478: raise OKL_API.G_EXCEPTION_ERROR;
8479: End If;
8480: --Bug # 2937980
8481:
8482: 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
8483: --call API to cascade 'INCOMPLETE' status for lease contracts
8484: okl_contract_status_pub.cascade_lease_status_edit
8485: (p_api_version => p_api_version,
8486: p_init_msg_list => p_init_msg_list,
8488: x_msg_count => x_msg_count,
8489: x_msg_data => x_msg_data,
8490: p_chr_id => l_clev_rec_out.dnz_chr_id);
8491:
8492: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8493: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8494: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8495: raise OKL_API.G_EXCEPTION_ERROR;
8496: End If;
8489: x_msg_data => x_msg_data,
8490: p_chr_id => l_clev_rec_out.dnz_chr_id);
8491:
8492: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8493: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8494: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8495: raise OKL_API.G_EXCEPTION_ERROR;
8496: End If;
8497:
8490: p_chr_id => l_clev_rec_out.dnz_chr_id);
8491:
8492: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8493: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8494: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8495: raise OKL_API.G_EXCEPTION_ERROR;
8496: End If;
8497:
8498: End If;
8491:
8492: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8493: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8494: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8495: raise OKL_API.G_EXCEPTION_ERROR;
8496: End If;
8497:
8498: End If;
8499: END LOOP;
8520: null;
8521: End If;
8522: Close chr_id_crs;
8523:
8524: If (l_dnz_chr_id is not null) AND (l_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
8525:
8526: okl_contract_status_pub.cascade_lease_status_edit
8527: (p_api_version => p_api_version,
8528: p_init_msg_list => p_init_msg_list,
8530: x_msg_count => x_msg_count,
8531: x_msg_data => x_msg_data,
8532: p_chr_id => l_dnz_chr_id);
8533:
8534: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8535: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8536: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8537: raise OKL_API.G_EXCEPTION_ERROR;
8538: End If;
8531: x_msg_data => x_msg_data,
8532: p_chr_id => l_dnz_chr_id);
8533:
8534: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8535: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8536: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8537: raise OKL_API.G_EXCEPTION_ERROR;
8538: End If;
8539:
8532: p_chr_id => l_dnz_chr_id);
8533:
8534: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8535: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8536: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8537: raise OKL_API.G_EXCEPTION_ERROR;
8538: End If;
8539:
8540: End If;
8533:
8534: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8535: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8536: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8537: raise OKL_API.G_EXCEPTION_ERROR;
8538: End If;
8539:
8540: End If;
8541:
8549: x_msg_data => x_msg_data,
8550: p_cle_id => p_line_id,
8551: p_deletion_type => l_deletion_type);
8552:
8553: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8554: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8555: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8556: raise OKL_API.G_EXCEPTION_ERROR;
8557: End If;
8550: p_cle_id => p_line_id,
8551: p_deletion_type => l_deletion_type);
8552:
8553: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8554: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8555: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8556: raise OKL_API.G_EXCEPTION_ERROR;
8557: End If;
8558: --Bug # 2522268 end
8551: p_deletion_type => l_deletion_type);
8552:
8553: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8554: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8555: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8556: raise OKL_API.G_EXCEPTION_ERROR;
8557: End If;
8558: --Bug # 2522268 end
8559:
8552:
8553: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8554: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8555: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8556: raise OKL_API.G_EXCEPTION_ERROR;
8557: End If;
8558: --Bug # 2522268 end
8559:
8560: --Bug# 3143522
8582: x_msg_count => x_msg_count,
8583: x_msg_data => x_msg_data,
8584: p_ppydv_tbl => l_ppydv_tbl);
8585:
8586: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8588: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8589: raise OKL_API.G_EXCEPTION_ERROR;
8590: End If;
8583: x_msg_data => x_msg_data,
8584: p_ppydv_tbl => l_ppydv_tbl);
8585:
8586: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8588: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8589: raise OKL_API.G_EXCEPTION_ERROR;
8590: End If;
8591:
8584: p_ppydv_tbl => l_ppydv_tbl);
8585:
8586: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8588: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8589: raise OKL_API.G_EXCEPTION_ERROR;
8590: End If;
8591:
8592: l_ppydv_tbl.DELETE;
8585:
8586: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8587: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8588: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8589: raise OKL_API.G_EXCEPTION_ERROR;
8590: End If;
8591:
8592: l_ppydv_tbl.DELETE;
8593:
8614: x_msg_count => x_msg_count,
8615: x_msg_data => x_msg_data,
8616: p_pphv_tbl => l_pphv_tbl );
8617:
8618: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8619: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8620: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8621: raise OKL_API.G_EXCEPTION_ERROR;
8622: End If;
8615: x_msg_data => x_msg_data,
8616: p_pphv_tbl => l_pphv_tbl );
8617:
8618: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8619: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8620: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8621: raise OKL_API.G_EXCEPTION_ERROR;
8622: End If;
8623:
8616: p_pphv_tbl => l_pphv_tbl );
8617:
8618: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8619: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8620: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8621: raise OKL_API.G_EXCEPTION_ERROR;
8622: End If;
8623:
8624: l_pphv_tbl.DELETE;
8617:
8618: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8619: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8620: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8621: raise OKL_API.G_EXCEPTION_ERROR;
8622: End If;
8623:
8624: l_pphv_tbl.DELETE;
8625:
8647: x_msg_count => x_msg_count,
8648: x_msg_data => x_msg_data,
8649: p_kplv_tbl => l_kplv_tbl);
8650:
8651: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8652: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8653: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8654: raise OKL_API.G_EXCEPTION_ERROR;
8655: End If;
8648: x_msg_data => x_msg_data,
8649: p_kplv_tbl => l_kplv_tbl);
8650:
8651: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8652: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8653: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8654: raise OKL_API.G_EXCEPTION_ERROR;
8655: End If;
8656:
8649: p_kplv_tbl => l_kplv_tbl);
8650:
8651: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8652: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8653: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8654: raise OKL_API.G_EXCEPTION_ERROR;
8655: End If;
8656:
8657: l_kplv_tbl.DELETE;
8650:
8651: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8652: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8653: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8654: raise OKL_API.G_EXCEPTION_ERROR;
8655: End If;
8656:
8657: l_kplv_tbl.DELETE;
8658: End If;
8666: x_msg_count => x_msg_count,
8667: x_msg_data => x_msg_data,
8668: p_line_id => p_line_id);
8669:
8670: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8671: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8672: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8673: raise OKL_API.G_EXCEPTION_ERROR;
8674: End If;
8667: x_msg_data => x_msg_data,
8668: p_line_id => p_line_id);
8669:
8670: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8671: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8672: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8673: raise OKL_API.G_EXCEPTION_ERROR;
8674: End If;
8675:
8668: p_line_id => p_line_id);
8669:
8670: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8671: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8672: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8673: raise OKL_API.G_EXCEPTION_ERROR;
8674: End If;
8675:
8676: -- delete transactions hanging fo the lines
8669:
8670: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8671: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8672: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8673: raise OKL_API.G_EXCEPTION_ERROR;
8674: End If;
8675:
8676: -- delete transactions hanging fo the lines
8677: for i in l_klev_tbl_in.FIRST..l_klev_tbl_in.LAST
8699: x_msg_count => x_msg_count,
8700: x_msg_data => x_msg_data,
8701: p_adpv_rec => l_adpv_rec);
8702: -- check return status
8703: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8704: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8705: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8706: raise OKL_API.G_EXCEPTION_ERROR;
8707: End If;
8700: x_msg_data => x_msg_data,
8701: p_adpv_rec => l_adpv_rec);
8702: -- check return status
8703: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8704: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8705: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8706: raise OKL_API.G_EXCEPTION_ERROR;
8707: End If;
8708: End If;
8701: p_adpv_rec => l_adpv_rec);
8702: -- check return status
8703: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8704: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8705: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8706: raise OKL_API.G_EXCEPTION_ERROR;
8707: End If;
8708: End If;
8709: Close l_get_txd_crs;
8702: -- check return status
8703: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8704: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8705: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8706: raise OKL_API.G_EXCEPTION_ERROR;
8707: End If;
8708: End If;
8709: Close l_get_txd_crs;
8710: --delete txl record
8716: x_msg_count => x_msg_count,
8717: x_msg_data => x_msg_data,
8718: p_tlpv_rec => l_tlpv_rec);
8719: -- check return status
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_tlpv_rec => l_tlpv_rec);
8719: -- check return status
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_tlpv_rec => l_tlpv_rec);
8719: -- check return status
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: --delete tas_record
8719: -- check return status
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: --delete tas_record
8727: l_thpv_rec.id := l_tas_id;
8732: x_msg_count => x_msg_count,
8733: x_msg_data => x_msg_data,
8734: p_thpv_rec => l_thpv_rec);
8735: -- check return status
8736: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8737: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8738: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8739: raise OKL_API.G_EXCEPTION_ERROR;
8740: End If;
8733: x_msg_data => x_msg_data,
8734: p_thpv_rec => l_thpv_rec);
8735: -- check return status
8736: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8737: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8738: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8739: raise OKL_API.G_EXCEPTION_ERROR;
8740: End If;
8741: End If;
8734: p_thpv_rec => l_thpv_rec);
8735: -- check return status
8736: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8737: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8738: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8739: raise OKL_API.G_EXCEPTION_ERROR;
8740: End If;
8741: End If;
8742: Close l_get_txl_crs;
8735: -- check return status
8736: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8737: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8738: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8739: raise OKL_API.G_EXCEPTION_ERROR;
8740: End If;
8741: End If;
8742: Close l_get_txl_crs;
8743:
8759: x_msg_count => x_msg_count,
8760: x_msg_data => x_msg_data,
8761: p_iipv_rec => l_iipv_rec);
8762: -- check return status
8763: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8764: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8765: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8766: raise OKL_API.G_EXCEPTION_ERROR;
8767: End If;
8760: x_msg_data => x_msg_data,
8761: p_iipv_rec => l_iipv_rec);
8762: -- check return status
8763: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8764: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8765: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8766: raise OKL_API.G_EXCEPTION_ERROR;
8767: End If;
8768:
8761: p_iipv_rec => l_iipv_rec);
8762: -- check return status
8763: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8764: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8765: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8766: raise OKL_API.G_EXCEPTION_ERROR;
8767: End If;
8768:
8769: --delete tas_record
8762: -- check return status
8763: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8764: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8765: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8766: raise OKL_API.G_EXCEPTION_ERROR;
8767: End If;
8768:
8769: --delete tas_record
8770: l_iti_thpv_rec.id := l_iti_tas_id;
8775: x_msg_count => x_msg_count,
8776: x_msg_data => x_msg_data,
8777: p_thpv_rec => l_iti_thpv_rec);
8778: -- check return status
8779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8782: raise OKL_API.G_EXCEPTION_ERROR;
8783: End If;
8776: x_msg_data => x_msg_data,
8777: p_thpv_rec => l_iti_thpv_rec);
8778: -- check return status
8779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8782: raise OKL_API.G_EXCEPTION_ERROR;
8783: End If;
8784:
8777: p_thpv_rec => l_iti_thpv_rec);
8778: -- check return status
8779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8782: raise OKL_API.G_EXCEPTION_ERROR;
8783: End If;
8784:
8785: End If;
8778: -- check return status
8779: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8780: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8781: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8782: raise OKL_API.G_EXCEPTION_ERROR;
8783: End If;
8784:
8785: End If;
8786: Close l_get_iti_csr;
8808: x_msg_count => x_msg_count,
8809: x_msg_data => x_msg_data,
8810: p_sidv_tbl => l_sidv_tbl);
8811:
8812: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8813: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8814: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8815: raise OKL_API.G_EXCEPTION_ERROR;
8816: End If;
8809: x_msg_data => x_msg_data,
8810: p_sidv_tbl => l_sidv_tbl);
8811:
8812: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8813: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8814: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8815: raise OKL_API.G_EXCEPTION_ERROR;
8816: End If;
8817:
8810: p_sidv_tbl => l_sidv_tbl);
8811:
8812: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8813: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8814: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8815: raise OKL_API.G_EXCEPTION_ERROR;
8816: End If;
8817:
8818: l_sidv_tbl.DELETE;
8811:
8812: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8813: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8814: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8815: raise OKL_API.G_EXCEPTION_ERROR;
8816: End If;
8817:
8818: l_sidv_tbl.DELETE;
8819:
8830: x_msg_count => x_msg_count,
8831: x_msg_data => x_msg_data,
8832: p_klev_tbl => l_klev_tbl_in);
8833:
8834: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8835: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8836: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8837: raise OKL_API.G_EXCEPTION_ERROR;
8838: End If;
8831: x_msg_data => x_msg_data,
8832: p_klev_tbl => l_klev_tbl_in);
8833:
8834: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8835: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8836: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8837: raise OKL_API.G_EXCEPTION_ERROR;
8838: End If;
8839:
8832: p_klev_tbl => l_klev_tbl_in);
8833:
8834: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8835: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8836: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8837: raise OKL_API.G_EXCEPTION_ERROR;
8838: End If;
8839:
8840: Elsif l_deletion_type = 'N' Then-- not allowed will not come here as this situation will raise error
8833:
8834: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
8835: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8836: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
8837: raise OKL_API.G_EXCEPTION_ERROR;
8838: End If;
8839:
8840: Elsif l_deletion_type = 'N' Then-- not allowed will not come here as this situation will raise error
8841: Null;
8848: -- raise business event for delete of asset line
8849: IF(l_lty_code = 'FREE_FORM1')THEN
8850: -- raise business event only if the context contract is a lease contract
8851: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_dnz_chr_id);
8852: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
8853: -- raise the business event for create asset, if line style code is FREE_FORM1
8854: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_dnz_chr_id,l_parameter_list);
8855: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_line_id,l_parameter_list);
8856: l_business_event_name := G_WF_EVT_ASSET_REMOVED;
8856: l_business_event_name := G_WF_EVT_ASSET_REMOVED;
8857: END IF;
8858: END IF;
8859:
8860: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN
8861: raise_business_event(p_api_version => p_api_version,
8862: p_init_msg_list => p_init_msg_list,
8863: x_return_status => x_return_status,
8864: x_msg_count => x_msg_count,
8864: x_msg_count => x_msg_count,
8865: x_msg_data => x_msg_data,
8866: p_event_name => l_business_event_name,
8867: p_parameter_list => l_parameter_list);
8868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_ERROR;
8872: END IF;
8865: x_msg_data => x_msg_data,
8866: p_event_name => l_business_event_name,
8867: p_parameter_list => l_parameter_list);
8868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_ERROR;
8872: END IF;
8873: END IF;
8866: p_event_name => l_business_event_name,
8867: p_parameter_list => l_parameter_list);
8868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_ERROR;
8872: END IF;
8873: END IF;
8874: /*
8867: p_parameter_list => l_parameter_list);
8868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8871: RAISE OKL_API.G_EXCEPTION_ERROR;
8872: END IF;
8873: END IF;
8874: /*
8875: -- vthiruva, 08/19/2004
8875: -- vthiruva, 08/19/2004
8876: -- END, Code change to enable Business Event
8877: */
8878:
8879: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8880: x_msg_data => x_msg_data);
8881:
8882: EXCEPTION
8883: when OKL_API.G_EXCEPTION_ERROR then
8879: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
8880: x_msg_data => x_msg_data);
8881:
8882: EXCEPTION
8883: when OKL_API.G_EXCEPTION_ERROR then
8884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8885: p_api_name => l_api_name,
8886: p_pkg_name => g_pkg_name,
8887: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8880: x_msg_data => x_msg_data);
8881:
8882: EXCEPTION
8883: when OKL_API.G_EXCEPTION_ERROR then
8884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8885: p_api_name => l_api_name,
8886: p_pkg_name => g_pkg_name,
8887: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8888: x_msg_count => x_msg_count,
8883: when OKL_API.G_EXCEPTION_ERROR then
8884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8885: p_api_name => l_api_name,
8886: p_pkg_name => g_pkg_name,
8887: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8888: x_msg_count => x_msg_count,
8889: x_msg_data => x_msg_data,
8890: p_api_type => g_api_type);
8891:
8888: x_msg_count => x_msg_count,
8889: x_msg_data => x_msg_data,
8890: p_api_type => g_api_type);
8891:
8892: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8893: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8894: p_api_name => l_api_name,
8895: p_pkg_name => g_pkg_name,
8896: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8889: x_msg_data => x_msg_data,
8890: p_api_type => g_api_type);
8891:
8892: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8893: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8894: p_api_name => l_api_name,
8895: p_pkg_name => g_pkg_name,
8896: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8897: x_msg_count => x_msg_count,
8892: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8893: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8894: p_api_name => l_api_name,
8895: p_pkg_name => g_pkg_name,
8896: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8897: x_msg_count => x_msg_count,
8898: x_msg_data => x_msg_data,
8899: p_api_type => g_api_type);
8900:
8898: x_msg_data => x_msg_data,
8899: p_api_type => g_api_type);
8900:
8901: when OTHERS then
8902: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8903: p_api_name => l_api_name,
8904: p_pkg_name => g_pkg_name,
8905: p_exc_name => 'OTHERS',
8906: x_msg_count => x_msg_count,
8905: p_exc_name => 'OTHERS',
8906: x_msg_count => x_msg_count,
8907: x_msg_data => x_msg_data,
8908: p_api_type => g_api_type);
8909: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8910:
8911: END delete_contract_line;
8912:
8913: -- Start of comments
8935: l_klev_rec_out klev_rec_type;
8936:
8937: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
8938: l_api_version CONSTANT NUMBER := 1.0;
8939: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8940: BEGIN
8941:
8942: -- call START_ACTIVITY to create savepoint, check compatibility
8943: -- and initialize message list
8940: BEGIN
8941:
8942: -- call START_ACTIVITY to create savepoint, check compatibility
8943: -- and initialize message list
8944: l_return_status := OKL_API.START_ACTIVITY(
8945: p_api_name => l_api_name,
8946: p_pkg_name => g_pkg_name,
8947: p_init_msg_list => p_init_msg_list,
8948: l_api_version => l_api_version,
8950: p_api_type => g_api_type,
8951: x_return_status => x_return_status);
8952:
8953: -- check if activity started successfully
8954: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8955: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8956: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8957: raise OKL_API.G_EXCEPTION_ERROR;
8958: End If;
8951: x_return_status => x_return_status);
8952:
8953: -- check if activity started successfully
8954: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8955: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8956: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8957: raise OKL_API.G_EXCEPTION_ERROR;
8958: End If;
8959:
8952:
8953: -- check if activity started successfully
8954: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8955: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8956: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8957: raise OKL_API.G_EXCEPTION_ERROR;
8958: End If;
8959:
8960: l_klev_rec := p_klev_rec;
8953: -- check if activity started successfully
8954: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8955: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8956: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8957: raise OKL_API.G_EXCEPTION_ERROR;
8958: End If;
8959:
8960: l_klev_rec := p_klev_rec;
8961: l_clev_rec := p_clev_rec;
8968: x_msg_count => x_msg_count,
8969: x_msg_data => x_msg_data,
8970: p_line_id => l_klev_rec.id);
8971:
8972: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8973: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8974: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8975: raise OKL_API.G_EXCEPTION_ERROR;
8976: End If;
8969: x_msg_data => x_msg_data,
8970: p_line_id => l_klev_rec.id);
8971:
8972: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8973: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8974: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8975: raise OKL_API.G_EXCEPTION_ERROR;
8976: End If;
8977:
8970: p_line_id => l_klev_rec.id);
8971:
8972: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8973: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8974: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8975: raise OKL_API.G_EXCEPTION_ERROR;
8976: End If;
8977:
8978: ElsIf p_delete_cascade_yn = 'N' Then
8971:
8972: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8973: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8974: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8975: raise OKL_API.G_EXCEPTION_ERROR;
8976: End If;
8977:
8978: ElsIf p_delete_cascade_yn = 'N' Then
8979: delete_contract_line(p_api_version => p_api_version,
8983: x_msg_data => x_msg_data,
8984: p_clev_rec => l_clev_rec,
8985: p_klev_rec => p_klev_rec);
8986:
8987: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8988: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8989: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8990: raise OKL_API.G_EXCEPTION_ERROR;
8991: End If;
8984: p_clev_rec => l_clev_rec,
8985: p_klev_rec => p_klev_rec);
8986:
8987: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8988: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8989: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8990: raise OKL_API.G_EXCEPTION_ERROR;
8991: End If;
8992: End If;
8985: p_klev_rec => p_klev_rec);
8986:
8987: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8988: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8989: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8990: raise OKL_API.G_EXCEPTION_ERROR;
8991: End If;
8992: End If;
8993:
8986:
8987: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8988: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8989: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
8990: raise OKL_API.G_EXCEPTION_ERROR;
8991: End If;
8992: End If;
8993:
8994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8990: raise OKL_API.G_EXCEPTION_ERROR;
8991: End If;
8992: End If;
8993:
8994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8995: x_msg_data => x_msg_data);
8996: EXCEPTION
8997: when OKL_API.G_EXCEPTION_ERROR then
8998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8993:
8994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8995: x_msg_data => x_msg_data);
8996: EXCEPTION
8997: when OKL_API.G_EXCEPTION_ERROR then
8998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8999: p_api_name => l_api_name,
9000: p_pkg_name => g_pkg_name,
9001: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8995: x_msg_data => x_msg_data);
8996: EXCEPTION
8997: when OKL_API.G_EXCEPTION_ERROR then
8998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8999: p_api_name => l_api_name,
9000: p_pkg_name => g_pkg_name,
9001: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9002: x_msg_count => x_msg_count,
8997: when OKL_API.G_EXCEPTION_ERROR then
8998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8999: p_api_name => l_api_name,
9000: p_pkg_name => g_pkg_name,
9001: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9002: x_msg_count => x_msg_count,
9003: x_msg_data => x_msg_data,
9004: p_api_type => g_api_type);
9005:
9002: x_msg_count => x_msg_count,
9003: x_msg_data => x_msg_data,
9004: p_api_type => g_api_type);
9005:
9006: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9007: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9008: p_api_name => l_api_name,
9009: p_pkg_name => g_pkg_name,
9010: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9003: x_msg_data => x_msg_data,
9004: p_api_type => g_api_type);
9005:
9006: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9007: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9008: p_api_name => l_api_name,
9009: p_pkg_name => g_pkg_name,
9010: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9011: x_msg_count => x_msg_count,
9006: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9007: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9008: p_api_name => l_api_name,
9009: p_pkg_name => g_pkg_name,
9010: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9011: x_msg_count => x_msg_count,
9012: x_msg_data => x_msg_data,
9013: p_api_type => g_api_type);
9014:
9012: x_msg_data => x_msg_data,
9013: p_api_type => g_api_type);
9014:
9015: when OTHERS then
9016: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9017: p_api_name => l_api_name,
9018: p_pkg_name => g_pkg_name,
9019: p_exc_name => 'OTHERS',
9020: x_msg_count => x_msg_count,
9042: p_delete_cascade_yn IN varchar2) IS
9043:
9044: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
9045: l_api_version CONSTANT NUMBER := 1.0;
9046: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9047: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9048: i NUMBER;
9049: l_klev_tbl klev_tbl_type := p_klev_tbl;
9050: BEGIN
9043:
9044: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
9045: l_api_version CONSTANT NUMBER := 1.0;
9046: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9047: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9048: i NUMBER;
9049: l_klev_tbl klev_tbl_type := p_klev_tbl;
9050: BEGIN
9051: -- call START_ACTIVITY to create savepoint, check compatibility
9049: l_klev_tbl klev_tbl_type := p_klev_tbl;
9050: BEGIN
9051: -- call START_ACTIVITY to create savepoint, check compatibility
9052: -- and initialize message list
9053: l_return_status := OKL_API.START_ACTIVITY(
9054: p_api_name => l_api_name,
9055: p_pkg_name => g_pkg_name,
9056: p_init_msg_list => p_init_msg_list,
9057: l_api_version => l_api_version,
9059: p_api_type => g_api_type,
9060: x_return_status => x_return_status);
9061:
9062: -- check if activity started successfully
9063: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9064: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9065: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9066: raise OKL_API.G_EXCEPTION_ERROR;
9067: End If;
9060: x_return_status => x_return_status);
9061:
9062: -- check if activity started successfully
9063: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9064: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9065: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9066: raise OKL_API.G_EXCEPTION_ERROR;
9067: End If;
9068:
9061:
9062: -- check if activity started successfully
9063: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9064: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9065: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9066: raise OKL_API.G_EXCEPTION_ERROR;
9067: End If;
9068:
9069: If (p_clev_tbl.COUNT > 0) Then
9062: -- check if activity started successfully
9063: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9064: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9065: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9066: raise OKL_API.G_EXCEPTION_ERROR;
9067: End If;
9068:
9069: If (p_clev_tbl.COUNT > 0) Then
9070: i := p_clev_tbl.FIRST;
9079: p_clev_rec => p_clev_tbl(i),
9080: p_klev_rec => l_klev_tbl(i),
9081: p_delete_cascade_yn => p_delete_cascade_yn);
9082:
9083: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9084: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9085: l_overall_status := x_return_status;
9086: End If;
9087: End If;
9080: p_klev_rec => l_klev_tbl(i),
9081: p_delete_cascade_yn => p_delete_cascade_yn);
9082:
9083: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9084: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9085: l_overall_status := x_return_status;
9086: End If;
9087: End If;
9088:
9093: -- return overall status
9094: x_return_status := l_overall_status;
9095: End If;
9096:
9097: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9098: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9099: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9100: raise OKL_API.G_EXCEPTION_ERROR;
9101: End If;
9094: x_return_status := l_overall_status;
9095: End If;
9096:
9097: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9098: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9099: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9100: raise OKL_API.G_EXCEPTION_ERROR;
9101: End If;
9102:
9095: End If;
9096:
9097: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9098: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9099: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9100: raise OKL_API.G_EXCEPTION_ERROR;
9101: End If;
9102:
9103: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9096:
9097: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9098: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9099: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9100: raise OKL_API.G_EXCEPTION_ERROR;
9101: End If;
9102:
9103: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9104: x_msg_data => x_msg_data);
9099: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9100: raise OKL_API.G_EXCEPTION_ERROR;
9101: End If;
9102:
9103: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9104: x_msg_data => x_msg_data);
9105: EXCEPTION
9106: when OKL_API.G_EXCEPTION_ERROR then
9107: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9102:
9103: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9104: x_msg_data => x_msg_data);
9105: EXCEPTION
9106: when OKL_API.G_EXCEPTION_ERROR then
9107: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9108: p_api_name => l_api_name,
9109: p_pkg_name => g_pkg_name,
9110: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9103: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9104: x_msg_data => x_msg_data);
9105: EXCEPTION
9106: when OKL_API.G_EXCEPTION_ERROR then
9107: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9108: p_api_name => l_api_name,
9109: p_pkg_name => g_pkg_name,
9110: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9111: x_msg_count => x_msg_count,
9106: when OKL_API.G_EXCEPTION_ERROR then
9107: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9108: p_api_name => l_api_name,
9109: p_pkg_name => g_pkg_name,
9110: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9111: x_msg_count => x_msg_count,
9112: x_msg_data => x_msg_data,
9113: p_api_type => g_api_type);
9114:
9111: x_msg_count => x_msg_count,
9112: x_msg_data => x_msg_data,
9113: p_api_type => g_api_type);
9114:
9115: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9116: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9117: p_api_name => l_api_name,
9118: p_pkg_name => g_pkg_name,
9119: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9112: x_msg_data => x_msg_data,
9113: p_api_type => g_api_type);
9114:
9115: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9116: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9117: p_api_name => l_api_name,
9118: p_pkg_name => g_pkg_name,
9119: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9120: x_msg_count => x_msg_count,
9115: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9116: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9117: p_api_name => l_api_name,
9118: p_pkg_name => g_pkg_name,
9119: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9120: x_msg_count => x_msg_count,
9121: x_msg_data => x_msg_data,
9122: p_api_type => g_api_type);
9123:
9121: x_msg_data => x_msg_data,
9122: p_api_type => g_api_type);
9123:
9124: when OTHERS then
9125: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9126: p_api_name => l_api_name,
9127: p_pkg_name => g_pkg_name,
9128: p_exc_name => 'OTHERS',
9129: x_msg_count => x_msg_count,
9153: l_klev_rec klev_rec_type;
9154:
9155: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_LINE';
9156: l_api_version CONSTANT NUMBER := 1.0;
9157: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9158: BEGIN
9159:
9160: -- call START_ACTIVITY to create savepoint, check compatibility
9161: -- and initialize message list
9158: BEGIN
9159:
9160: -- call START_ACTIVITY to create savepoint, check compatibility
9161: -- and initialize message list
9162: l_return_status := OKL_API.START_ACTIVITY(
9163: p_api_name => l_api_name,
9164: p_pkg_name => g_pkg_name,
9165: p_init_msg_list => p_init_msg_list,
9166: l_api_version => l_api_version,
9168: p_api_type => g_api_type,
9169: x_return_status => x_return_status);
9170:
9171: -- check if activity started successfully
9172: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9173: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9174: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9175: raise OKL_API.G_EXCEPTION_ERROR;
9176: End If;
9169: x_return_status => x_return_status);
9170:
9171: -- check if activity started successfully
9172: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9173: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9174: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9175: raise OKL_API.G_EXCEPTION_ERROR;
9176: End If;
9177:
9170:
9171: -- check if activity started successfully
9172: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9173: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9174: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9175: raise OKL_API.G_EXCEPTION_ERROR;
9176: End If;
9177:
9178: l_klev_rec := p_klev_rec;
9171: -- check if activity started successfully
9172: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9173: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9174: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9175: raise OKL_API.G_EXCEPTION_ERROR;
9176: End If;
9177:
9178: l_klev_rec := p_klev_rec;
9179: l_clev_rec := p_clev_rec;
9189: x_msg_data => x_msg_data,
9190: p_clev_rec => l_clev_rec);
9191:
9192: -- check return status
9193: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9195: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9196: raise OKL_API.G_EXCEPTION_ERROR;
9197: End If;
9190: p_clev_rec => l_clev_rec);
9191:
9192: -- check return status
9193: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9195: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9196: raise OKL_API.G_EXCEPTION_ERROR;
9197: End If;
9198:
9191:
9192: -- check return status
9193: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9195: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9196: raise OKL_API.G_EXCEPTION_ERROR;
9197: End If;
9198:
9199: -- get id from OKC record
9192: -- check return status
9193: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9194: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9195: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9196: raise OKL_API.G_EXCEPTION_ERROR;
9197: End If;
9198:
9199: -- get id from OKC record
9200: l_klev_rec.ID := l_clev_rec.ID;
9207: x_msg_count => x_msg_count,
9208: x_msg_data => x_msg_data,
9209: p_klev_rec => l_klev_rec);
9210:
9211: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9212: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9213: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9214: raise OKL_API.G_EXCEPTION_ERROR;
9215: End If;
9208: x_msg_data => x_msg_data,
9209: p_klev_rec => l_klev_rec);
9210:
9211: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9212: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9213: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9214: raise OKL_API.G_EXCEPTION_ERROR;
9215: End If;
9216:
9209: p_klev_rec => l_klev_rec);
9210:
9211: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9212: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9213: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9214: raise OKL_API.G_EXCEPTION_ERROR;
9215: End If;
9216:
9217: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9210:
9211: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9212: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9213: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9214: raise OKL_API.G_EXCEPTION_ERROR;
9215: End If;
9216:
9217: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9218: x_msg_data => x_msg_data);
9213: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9214: raise OKL_API.G_EXCEPTION_ERROR;
9215: End If;
9216:
9217: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9218: x_msg_data => x_msg_data);
9219: EXCEPTION
9220: when OKL_API.G_EXCEPTION_ERROR then
9221: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9216:
9217: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9218: x_msg_data => x_msg_data);
9219: EXCEPTION
9220: when OKL_API.G_EXCEPTION_ERROR then
9221: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9222: p_api_name => l_api_name,
9223: p_pkg_name => g_pkg_name,
9224: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9217: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9218: x_msg_data => x_msg_data);
9219: EXCEPTION
9220: when OKL_API.G_EXCEPTION_ERROR then
9221: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9222: p_api_name => l_api_name,
9223: p_pkg_name => g_pkg_name,
9224: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9225: x_msg_count => x_msg_count,
9220: when OKL_API.G_EXCEPTION_ERROR then
9221: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9222: p_api_name => l_api_name,
9223: p_pkg_name => g_pkg_name,
9224: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9225: x_msg_count => x_msg_count,
9226: x_msg_data => x_msg_data,
9227: p_api_type => g_api_type);
9228:
9225: x_msg_count => x_msg_count,
9226: x_msg_data => x_msg_data,
9227: p_api_type => g_api_type);
9228:
9229: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9230: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9231: p_api_name => l_api_name,
9232: p_pkg_name => g_pkg_name,
9233: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9226: x_msg_data => x_msg_data,
9227: p_api_type => g_api_type);
9228:
9229: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9230: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9231: p_api_name => l_api_name,
9232: p_pkg_name => g_pkg_name,
9233: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9234: x_msg_count => x_msg_count,
9229: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9230: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9231: p_api_name => l_api_name,
9232: p_pkg_name => g_pkg_name,
9233: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9234: x_msg_count => x_msg_count,
9235: x_msg_data => x_msg_data,
9236: p_api_type => g_api_type);
9237:
9235: x_msg_data => x_msg_data,
9236: p_api_type => g_api_type);
9237:
9238: when OTHERS then
9239: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9240: p_api_name => l_api_name,
9241: p_pkg_name => g_pkg_name,
9242: p_exc_name => 'OTHERS',
9243: x_msg_count => x_msg_count,
9264: p_klev_tbl IN klev_tbl_type) IS
9265:
9266: l_api_name CONSTANT VARCHAR2(30) := 'lock_CONTRACT_LINE';
9267: l_api_version CONSTANT NUMBER := 1.0;
9268: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9269: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9270: i NUMBER;
9271: l_klev_tbl klev_tbl_type := p_klev_tbl;
9272: BEGIN
9265:
9266: l_api_name CONSTANT VARCHAR2(30) := 'lock_CONTRACT_LINE';
9267: l_api_version CONSTANT NUMBER := 1.0;
9268: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9269: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9270: i NUMBER;
9271: l_klev_tbl klev_tbl_type := p_klev_tbl;
9272: BEGIN
9273: -- call START_ACTIVITY to create savepoint, check compatibility
9271: l_klev_tbl klev_tbl_type := p_klev_tbl;
9272: BEGIN
9273: -- call START_ACTIVITY to create savepoint, check compatibility
9274: -- and initialize message list
9275: l_return_status := OKL_API.START_ACTIVITY(
9276: p_api_name => l_api_name,
9277: p_pkg_name => g_pkg_name,
9278: p_init_msg_list => p_init_msg_list,
9279: l_api_version => l_api_version,
9281: p_api_type => g_api_type,
9282: x_return_status => x_return_status);
9283:
9284: -- check if activity started successfully
9285: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9287: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9288: raise OKL_API.G_EXCEPTION_ERROR;
9289: End If;
9282: x_return_status => x_return_status);
9283:
9284: -- check if activity started successfully
9285: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9287: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9288: raise OKL_API.G_EXCEPTION_ERROR;
9289: End If;
9290:
9283:
9284: -- check if activity started successfully
9285: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9287: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9288: raise OKL_API.G_EXCEPTION_ERROR;
9289: End If;
9290:
9291: If (p_clev_tbl.COUNT > 0) Then
9284: -- check if activity started successfully
9285: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9286: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9287: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9288: raise OKL_API.G_EXCEPTION_ERROR;
9289: End If;
9290:
9291: If (p_clev_tbl.COUNT > 0) Then
9292: i := p_clev_tbl.FIRST;
9300: x_msg_data => x_msg_data,
9301: p_clev_rec => p_clev_tbl(i),
9302: p_klev_rec => l_klev_tbl(i));
9303:
9304: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9305: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9306: l_overall_status := x_return_status;
9307: End If;
9308: End If;
9301: p_clev_rec => p_clev_tbl(i),
9302: p_klev_rec => l_klev_tbl(i));
9303:
9304: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9305: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9306: l_overall_status := x_return_status;
9307: End If;
9308: End If;
9309:
9314: -- return overall status
9315: x_return_status := l_overall_status;
9316: End If;
9317:
9318: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9319: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9321: raise OKL_API.G_EXCEPTION_ERROR;
9322: End If;
9315: x_return_status := l_overall_status;
9316: End If;
9317:
9318: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9319: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9321: raise OKL_API.G_EXCEPTION_ERROR;
9322: End If;
9323:
9316: End If;
9317:
9318: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9319: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9321: raise OKL_API.G_EXCEPTION_ERROR;
9322: End If;
9323:
9324: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9317:
9318: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9319: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9321: raise OKL_API.G_EXCEPTION_ERROR;
9322: End If;
9323:
9324: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9325: x_msg_data => x_msg_data);
9320: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9321: raise OKL_API.G_EXCEPTION_ERROR;
9322: End If;
9323:
9324: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9325: x_msg_data => x_msg_data);
9326: EXCEPTION
9327: when OKL_API.G_EXCEPTION_ERROR then
9328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9323:
9324: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9325: x_msg_data => x_msg_data);
9326: EXCEPTION
9327: when OKL_API.G_EXCEPTION_ERROR then
9328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9329: p_api_name => l_api_name,
9330: p_pkg_name => g_pkg_name,
9331: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9324: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9325: x_msg_data => x_msg_data);
9326: EXCEPTION
9327: when OKL_API.G_EXCEPTION_ERROR then
9328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9329: p_api_name => l_api_name,
9330: p_pkg_name => g_pkg_name,
9331: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9332: x_msg_count => x_msg_count,
9327: when OKL_API.G_EXCEPTION_ERROR then
9328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9329: p_api_name => l_api_name,
9330: p_pkg_name => g_pkg_name,
9331: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9332: x_msg_count => x_msg_count,
9333: x_msg_data => x_msg_data,
9334: p_api_type => g_api_type);
9335:
9332: x_msg_count => x_msg_count,
9333: x_msg_data => x_msg_data,
9334: p_api_type => g_api_type);
9335:
9336: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9337: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9338: p_api_name => l_api_name,
9339: p_pkg_name => g_pkg_name,
9340: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9333: x_msg_data => x_msg_data,
9334: p_api_type => g_api_type);
9335:
9336: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9337: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9338: p_api_name => l_api_name,
9339: p_pkg_name => g_pkg_name,
9340: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9341: x_msg_count => x_msg_count,
9336: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9337: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9338: p_api_name => l_api_name,
9339: p_pkg_name => g_pkg_name,
9340: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9341: x_msg_count => x_msg_count,
9342: x_msg_data => x_msg_data,
9343: p_api_type => g_api_type);
9344:
9342: x_msg_data => x_msg_data,
9343: p_api_type => g_api_type);
9344:
9345: when OTHERS then
9346: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9347: p_api_name => l_api_name,
9348: p_pkg_name => g_pkg_name,
9349: p_exc_name => 'OTHERS',
9350: x_msg_count => x_msg_count,
9375: l_klev_rec klev_rec_type;
9376:
9377: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_LINE';
9378: l_api_version CONSTANT NUMBER := 1.0;
9379: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9380: BEGIN
9381:
9382: -- call START_ACTIVITY to create savepoint, check compatibility
9383: -- and initialize message list
9380: BEGIN
9381:
9382: -- call START_ACTIVITY to create savepoint, check compatibility
9383: -- and initialize message list
9384: l_return_status := OKL_API.START_ACTIVITY(
9385: p_api_name => l_api_name,
9386: p_pkg_name => g_pkg_name,
9387: p_init_msg_list => p_init_msg_list,
9388: l_api_version => l_api_version,
9390: p_api_type => g_api_type,
9391: x_return_status => x_return_status);
9392:
9393: -- check if activity started successfully
9394: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9395: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9396: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9397: raise OKL_API.G_EXCEPTION_ERROR;
9398: End If;
9391: x_return_status => x_return_status);
9392:
9393: -- check if activity started successfully
9394: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9395: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9396: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9397: raise OKL_API.G_EXCEPTION_ERROR;
9398: End If;
9399:
9392:
9393: -- check if activity started successfully
9394: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9395: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9396: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9397: raise OKL_API.G_EXCEPTION_ERROR;
9398: End If;
9399:
9400: l_klev_rec := p_klev_rec;
9393: -- check if activity started successfully
9394: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9395: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9396: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9397: raise OKL_API.G_EXCEPTION_ERROR;
9398: End If;
9399:
9400: l_klev_rec := p_klev_rec;
9401: l_clev_rec := p_clev_rec;
9411: x_msg_data => x_msg_data,
9412: p_clev_rec => l_clev_rec);
9413:
9414: -- check return status
9415: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9416: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9417: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9418: raise OKL_API.G_EXCEPTION_ERROR;
9419: End If;
9412: p_clev_rec => l_clev_rec);
9413:
9414: -- check return status
9415: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9416: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9417: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9418: raise OKL_API.G_EXCEPTION_ERROR;
9419: End If;
9420:
9413:
9414: -- check return status
9415: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9416: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9417: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9418: raise OKL_API.G_EXCEPTION_ERROR;
9419: End If;
9420:
9421: -- get id from OKC record
9414: -- check return status
9415: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9416: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9417: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9418: raise OKL_API.G_EXCEPTION_ERROR;
9419: End If;
9420:
9421: -- get id from OKC record
9422: l_klev_rec.ID := l_clev_rec.ID;
9429: x_msg_count => x_msg_count,
9430: x_msg_data => x_msg_data,
9431: p_klev_rec => l_klev_rec);
9432:
9433: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9434: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9435: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9436: raise OKL_API.G_EXCEPTION_ERROR;
9437: End If;
9430: x_msg_data => x_msg_data,
9431: p_klev_rec => l_klev_rec);
9432:
9433: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9434: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9435: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9436: raise OKL_API.G_EXCEPTION_ERROR;
9437: End If;
9438:
9431: p_klev_rec => l_klev_rec);
9432:
9433: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9434: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9435: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9436: raise OKL_API.G_EXCEPTION_ERROR;
9437: End If;
9438:
9439: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9432:
9433: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9434: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9435: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9436: raise OKL_API.G_EXCEPTION_ERROR;
9437: End If;
9438:
9439: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9440: x_msg_data => x_msg_data);
9435: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9436: raise OKL_API.G_EXCEPTION_ERROR;
9437: End If;
9438:
9439: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9440: x_msg_data => x_msg_data);
9441: EXCEPTION
9442: when OKL_API.G_EXCEPTION_ERROR then
9443: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9438:
9439: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9440: x_msg_data => x_msg_data);
9441: EXCEPTION
9442: when OKL_API.G_EXCEPTION_ERROR then
9443: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9444: p_api_name => l_api_name,
9445: p_pkg_name => g_pkg_name,
9446: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9439: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9440: x_msg_data => x_msg_data);
9441: EXCEPTION
9442: when OKL_API.G_EXCEPTION_ERROR then
9443: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9444: p_api_name => l_api_name,
9445: p_pkg_name => g_pkg_name,
9446: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9447: x_msg_count => x_msg_count,
9442: when OKL_API.G_EXCEPTION_ERROR then
9443: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9444: p_api_name => l_api_name,
9445: p_pkg_name => g_pkg_name,
9446: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9447: x_msg_count => x_msg_count,
9448: x_msg_data => x_msg_data,
9449: p_api_type => g_api_type);
9450:
9447: x_msg_count => x_msg_count,
9448: x_msg_data => x_msg_data,
9449: p_api_type => g_api_type);
9450:
9451: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9452: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9453: p_api_name => l_api_name,
9454: p_pkg_name => g_pkg_name,
9455: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9448: x_msg_data => x_msg_data,
9449: p_api_type => g_api_type);
9450:
9451: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9452: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9453: p_api_name => l_api_name,
9454: p_pkg_name => g_pkg_name,
9455: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9456: x_msg_count => x_msg_count,
9451: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9452: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9453: p_api_name => l_api_name,
9454: p_pkg_name => g_pkg_name,
9455: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9456: x_msg_count => x_msg_count,
9457: x_msg_data => x_msg_data,
9458: p_api_type => g_api_type);
9459:
9457: x_msg_data => x_msg_data,
9458: p_api_type => g_api_type);
9459:
9460: when OTHERS then
9461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9462: p_api_name => l_api_name,
9463: p_pkg_name => g_pkg_name,
9464: p_exc_name => 'OTHERS',
9465: x_msg_count => x_msg_count,
9486: p_klev_tbl IN klev_tbl_type) IS
9487:
9488: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_LINE';
9489: l_api_version CONSTANT NUMBER := 1.0;
9490: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9491: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9492: i NUMBER;
9493: l_klev_tbl klev_tbl_type := p_klev_tbl;
9494: BEGIN
9487:
9488: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_LINE';
9489: l_api_version CONSTANT NUMBER := 1.0;
9490: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9491: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9492: i NUMBER;
9493: l_klev_tbl klev_tbl_type := p_klev_tbl;
9494: BEGIN
9495: -- call START_ACTIVITY to create savepoint, check compatibility
9493: l_klev_tbl klev_tbl_type := p_klev_tbl;
9494: BEGIN
9495: -- call START_ACTIVITY to create savepoint, check compatibility
9496: -- and initialize message list
9497: l_return_status := OKL_API.START_ACTIVITY(
9498: p_api_name => l_api_name,
9499: p_pkg_name => g_pkg_name,
9500: p_init_msg_list => p_init_msg_list,
9501: l_api_version => l_api_version,
9503: p_api_type => g_api_type,
9504: x_return_status => x_return_status);
9505:
9506: -- check if activity started successfully
9507: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9508: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9509: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9510: raise OKL_API.G_EXCEPTION_ERROR;
9511: End If;
9504: x_return_status => x_return_status);
9505:
9506: -- check if activity started successfully
9507: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9508: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9509: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9510: raise OKL_API.G_EXCEPTION_ERROR;
9511: End If;
9512:
9505:
9506: -- check if activity started successfully
9507: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9508: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9509: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9510: raise OKL_API.G_EXCEPTION_ERROR;
9511: End If;
9512:
9513: If (p_clev_tbl.COUNT > 0) Then
9506: -- check if activity started successfully
9507: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9508: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9509: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9510: raise OKL_API.G_EXCEPTION_ERROR;
9511: End If;
9512:
9513: If (p_clev_tbl.COUNT > 0) Then
9514: i := p_clev_tbl.FIRST;
9522: x_msg_data => x_msg_data,
9523: p_clev_rec => p_clev_tbl(i),
9524: p_klev_rec => l_klev_tbl(i));
9525:
9526: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9527: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9528: l_overall_status := x_return_status;
9529: End If;
9530: End If;
9523: p_clev_rec => p_clev_tbl(i),
9524: p_klev_rec => l_klev_tbl(i));
9525:
9526: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9527: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9528: l_overall_status := x_return_status;
9529: End If;
9530: End If;
9531:
9536: -- return overall status
9537: x_return_status := l_overall_status;
9538: End If;
9539:
9540: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9543: raise OKL_API.G_EXCEPTION_ERROR;
9544: End If;
9537: x_return_status := l_overall_status;
9538: End If;
9539:
9540: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9543: raise OKL_API.G_EXCEPTION_ERROR;
9544: End If;
9545:
9538: End If;
9539:
9540: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9543: raise OKL_API.G_EXCEPTION_ERROR;
9544: End If;
9545:
9546: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9539:
9540: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9541: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9543: raise OKL_API.G_EXCEPTION_ERROR;
9544: End If;
9545:
9546: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9547: x_msg_data => x_msg_data);
9542: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9543: raise OKL_API.G_EXCEPTION_ERROR;
9544: End If;
9545:
9546: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9547: x_msg_data => x_msg_data);
9548: EXCEPTION
9549: when OKL_API.G_EXCEPTION_ERROR then
9550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9545:
9546: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9547: x_msg_data => x_msg_data);
9548: EXCEPTION
9549: when OKL_API.G_EXCEPTION_ERROR then
9550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9551: p_api_name => l_api_name,
9552: p_pkg_name => g_pkg_name,
9553: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9546: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9547: x_msg_data => x_msg_data);
9548: EXCEPTION
9549: when OKL_API.G_EXCEPTION_ERROR then
9550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9551: p_api_name => l_api_name,
9552: p_pkg_name => g_pkg_name,
9553: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9554: x_msg_count => x_msg_count,
9549: when OKL_API.G_EXCEPTION_ERROR then
9550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9551: p_api_name => l_api_name,
9552: p_pkg_name => g_pkg_name,
9553: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9554: x_msg_count => x_msg_count,
9555: x_msg_data => x_msg_data,
9556: p_api_type => g_api_type);
9557:
9554: x_msg_count => x_msg_count,
9555: x_msg_data => x_msg_data,
9556: p_api_type => g_api_type);
9557:
9558: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9559: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9560: p_api_name => l_api_name,
9561: p_pkg_name => g_pkg_name,
9562: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9555: x_msg_data => x_msg_data,
9556: p_api_type => g_api_type);
9557:
9558: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9559: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9560: p_api_name => l_api_name,
9561: p_pkg_name => g_pkg_name,
9562: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9563: x_msg_count => x_msg_count,
9558: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9559: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9560: p_api_name => l_api_name,
9561: p_pkg_name => g_pkg_name,
9562: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9563: x_msg_count => x_msg_count,
9564: x_msg_data => x_msg_data,
9565: p_api_type => g_api_type);
9566:
9564: x_msg_data => x_msg_data,
9565: p_api_type => g_api_type);
9566:
9567: when OTHERS then
9568: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9569: p_api_name => l_api_name,
9570: p_pkg_name => g_pkg_name,
9571: p_exc_name => 'OTHERS',
9572: x_msg_count => x_msg_count,
9589: l_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
9590:
9591: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_GOVERNANCE';
9592: l_api_version CONSTANT NUMBER := 1.0;
9593: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9594: BEGIN
9595:
9596: -- call START_ACTIVITY to create savepoint, check compatibility
9597: -- and initialize message list
9597: -- and initialize message list
9598:
9599: --dbms_output.put_line('Start it');
9600:
9601: l_return_status := OKL_API.START_ACTIVITY(
9602: p_api_name => l_api_name,
9603: p_pkg_name => g_pkg_name,
9604: p_init_msg_list => p_init_msg_list,
9605: l_api_version => l_api_version,
9607: p_api_type => g_api_type,
9608: x_return_status => x_return_status);
9609:
9610: -- check if activity started successfully
9611: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9612: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9613: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9614: raise OKL_API.G_EXCEPTION_ERROR;
9615: End If;
9608: x_return_status => x_return_status);
9609:
9610: -- check if activity started successfully
9611: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9612: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9613: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9614: raise OKL_API.G_EXCEPTION_ERROR;
9615: End If;
9616:
9609:
9610: -- check if activity started successfully
9611: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9612: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9613: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9614: raise OKL_API.G_EXCEPTION_ERROR;
9615: End If;
9616:
9617: l_gvev_rec := p_gvev_rec;
9610: -- check if activity started successfully
9611: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9612: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9613: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9614: raise OKL_API.G_EXCEPTION_ERROR;
9615: End If;
9616:
9617: l_gvev_rec := p_gvev_rec;
9618: --
9637: p_gvev_rec => l_gvev_rec,
9638: x_gvev_rec => x_gvev_rec);
9639:
9640: -- check return status
9641: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9642: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9644: raise OKL_API.G_EXCEPTION_ERROR;
9645: End If;
9638: x_gvev_rec => x_gvev_rec);
9639:
9640: -- check return status
9641: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9642: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9644: raise OKL_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9639:
9640: -- check return status
9641: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9642: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9644: raise OKL_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9647: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9640: -- check return status
9641: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9642: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9644: raise OKL_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9647: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9648: --call API to cascade 'INCOMPLETE' status for lease contracts
9643: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9644: raise OKL_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9647: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9648: --call API to cascade 'INCOMPLETE' status for lease contracts
9649: okl_contract_status_pub.cascade_lease_status_edit
9650: (p_api_version => p_api_version,
9651: p_init_msg_list => p_init_msg_list,
9653: x_msg_count => x_msg_count,
9654: x_msg_data => x_msg_data,
9655: p_chr_id => x_gvev_rec.dnz_chr_id);
9656:
9657: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9659: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9660: raise OKL_API.G_EXCEPTION_ERROR;
9661: End If;
9654: x_msg_data => x_msg_data,
9655: p_chr_id => x_gvev_rec.dnz_chr_id);
9656:
9657: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9659: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9660: raise OKL_API.G_EXCEPTION_ERROR;
9661: End If;
9662: End If;
9655: p_chr_id => x_gvev_rec.dnz_chr_id);
9656:
9657: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9659: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9660: raise OKL_API.G_EXCEPTION_ERROR;
9661: End If;
9662: End If;
9663:
9656:
9657: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9659: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9660: raise OKL_API.G_EXCEPTION_ERROR;
9661: End If;
9662: End If;
9663:
9664: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9660: raise OKL_API.G_EXCEPTION_ERROR;
9661: End If;
9662: End If;
9663:
9664: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9665: x_msg_data => x_msg_data);
9666: EXCEPTION
9667: when OKL_API.G_EXCEPTION_ERROR then
9668: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9663:
9664: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9665: x_msg_data => x_msg_data);
9666: EXCEPTION
9667: when OKL_API.G_EXCEPTION_ERROR then
9668: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9669: p_api_name => l_api_name,
9670: p_pkg_name => g_pkg_name,
9671: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9664: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9665: x_msg_data => x_msg_data);
9666: EXCEPTION
9667: when OKL_API.G_EXCEPTION_ERROR then
9668: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9669: p_api_name => l_api_name,
9670: p_pkg_name => g_pkg_name,
9671: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9672: x_msg_count => x_msg_count,
9667: when OKL_API.G_EXCEPTION_ERROR then
9668: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9669: p_api_name => l_api_name,
9670: p_pkg_name => g_pkg_name,
9671: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9672: x_msg_count => x_msg_count,
9673: x_msg_data => x_msg_data,
9674: p_api_type => g_api_type);
9675:
9672: x_msg_count => x_msg_count,
9673: x_msg_data => x_msg_data,
9674: p_api_type => g_api_type);
9675:
9676: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9677: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9678: p_api_name => l_api_name,
9679: p_pkg_name => g_pkg_name,
9680: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9673: x_msg_data => x_msg_data,
9674: p_api_type => g_api_type);
9675:
9676: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9677: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9678: p_api_name => l_api_name,
9679: p_pkg_name => g_pkg_name,
9680: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9681: x_msg_count => x_msg_count,
9676: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9677: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9678: p_api_name => l_api_name,
9679: p_pkg_name => g_pkg_name,
9680: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9681: x_msg_count => x_msg_count,
9682: x_msg_data => x_msg_data,
9683: p_api_type => g_api_type);
9684:
9682: x_msg_data => x_msg_data,
9683: p_api_type => g_api_type);
9684:
9685: when OTHERS then
9686: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9687: p_api_name => l_api_name,
9688: p_pkg_name => g_pkg_name,
9689: p_exc_name => 'OTHERS',
9690: x_msg_count => x_msg_count,
9711: x_gvev_tbl OUT NOCOPY okl_okc_migration_pvt.gvev_tbl_type) IS
9712:
9713: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_GOVERNANCE';
9714: l_api_version CONSTANT NUMBER := 1.0;
9715: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9716: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9717: i NUMBER;
9718: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
9719: BEGIN
9712:
9713: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_GOVERNANCE';
9714: l_api_version CONSTANT NUMBER := 1.0;
9715: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9716: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9717: i NUMBER;
9718: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
9719: BEGIN
9720: -- call START_ACTIVITY to create savepoint, check compatibility
9718: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
9719: BEGIN
9720: -- call START_ACTIVITY to create savepoint, check compatibility
9721: -- and initialize message list
9722: l_return_status := OKL_API.START_ACTIVITY(
9723: p_api_name => l_api_name,
9724: p_pkg_name => g_pkg_name,
9725: p_init_msg_list => p_init_msg_list,
9726: l_api_version => l_api_version,
9728: p_api_type => g_api_type,
9729: x_return_status => x_return_status);
9730:
9731: -- check if activity started successfully
9732: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9733: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9734: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9735: raise OKL_API.G_EXCEPTION_ERROR;
9736:
9729: x_return_status => x_return_status);
9730:
9731: -- check if activity started successfully
9732: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9733: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9734: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9735: raise OKL_API.G_EXCEPTION_ERROR;
9736:
9737: End If;
9730:
9731: -- check if activity started successfully
9732: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9733: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9734: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9735: raise OKL_API.G_EXCEPTION_ERROR;
9736:
9737: End If;
9738:
9731: -- check if activity started successfully
9732: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9733: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9734: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9735: raise OKL_API.G_EXCEPTION_ERROR;
9736:
9737: End If;
9738:
9739: If (p_gvev_tbl.COUNT > 0) Then
9748: x_msg_data => x_msg_data,
9749: p_gvev_rec => p_gvev_tbl(i),
9750: x_gvev_rec => x_gvev_tbl(i));
9751:
9752: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9753: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9754: l_overall_status := x_return_status;
9755: End If;
9756: End If;
9749: p_gvev_rec => p_gvev_tbl(i),
9750: x_gvev_rec => x_gvev_tbl(i));
9751:
9752: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9753: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9754: l_overall_status := x_return_status;
9755: End If;
9756: End If;
9757:
9762: -- return overall status
9763: x_return_status := l_overall_status;
9764: End If;
9765:
9766: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9767: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9768: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9769: raise OKL_API.G_EXCEPTION_ERROR;
9770: End If;
9763: x_return_status := l_overall_status;
9764: End If;
9765:
9766: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9767: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9768: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9769: raise OKL_API.G_EXCEPTION_ERROR;
9770: End If;
9771:
9764: End If;
9765:
9766: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9767: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9768: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9769: raise OKL_API.G_EXCEPTION_ERROR;
9770: End If;
9771:
9772: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9765:
9766: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9767: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9768: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9769: raise OKL_API.G_EXCEPTION_ERROR;
9770: End If;
9771:
9772: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9773: x_msg_data => x_msg_data);
9768: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9769: raise OKL_API.G_EXCEPTION_ERROR;
9770: End If;
9771:
9772: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9773: x_msg_data => x_msg_data);
9774: EXCEPTION
9775: when OKL_API.G_EXCEPTION_ERROR then
9776: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9771:
9772: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9773: x_msg_data => x_msg_data);
9774: EXCEPTION
9775: when OKL_API.G_EXCEPTION_ERROR then
9776: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9777: p_api_name => l_api_name,
9778: p_pkg_name => g_pkg_name,
9779: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9772: OKL_API.END_ACTIVITY( x_msg_count => x_msg_count,
9773: x_msg_data => x_msg_data);
9774: EXCEPTION
9775: when OKL_API.G_EXCEPTION_ERROR then
9776: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9777: p_api_name => l_api_name,
9778: p_pkg_name => g_pkg_name,
9779: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9780: x_msg_count => x_msg_count,
9775: when OKL_API.G_EXCEPTION_ERROR then
9776: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9777: p_api_name => l_api_name,
9778: p_pkg_name => g_pkg_name,
9779: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9780: x_msg_count => x_msg_count,
9781: x_msg_data => x_msg_data,
9782: p_api_type => g_api_type);
9783:
9780: x_msg_count => x_msg_count,
9781: x_msg_data => x_msg_data,
9782: p_api_type => g_api_type);
9783:
9784: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9786: p_api_name => l_api_name,
9787: p_pkg_name => g_pkg_name,
9788: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9781: x_msg_data => x_msg_data,
9782: p_api_type => g_api_type);
9783:
9784: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9786: p_api_name => l_api_name,
9787: p_pkg_name => g_pkg_name,
9788: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9789: x_msg_count => x_msg_count,
9784: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9786: p_api_name => l_api_name,
9787: p_pkg_name => g_pkg_name,
9788: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9789: x_msg_count => x_msg_count,
9790: x_msg_data => x_msg_data,
9791: p_api_type => g_api_type);
9792:
9790: x_msg_data => x_msg_data,
9791: p_api_type => g_api_type);
9792:
9793: when OTHERS then
9794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9795: p_api_name => l_api_name,
9796: p_pkg_name => g_pkg_name,
9797: p_exc_name => 'OTHERS',
9798: x_msg_count => x_msg_count,
9821: l_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
9822:
9823: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
9824: l_api_version CONSTANT NUMBER := 1.0;
9825: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9826:
9827: BEGIN
9828:
9829: -- call START_ACTIVITY to create savepoint, check compatibility
9827: BEGIN
9828:
9829: -- call START_ACTIVITY to create savepoint, check compatibility
9830: -- and initialize message list
9831: l_return_status := OKL_API.START_ACTIVITY(
9832: p_api_name => l_api_name,
9833: p_pkg_name => g_pkg_name,
9834: p_init_msg_list => p_init_msg_list,
9835: l_api_version => l_api_version,
9837: p_api_type => g_api_type,
9838: x_return_status => x_return_status);
9839:
9840: -- check if activity started successfully
9841: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9842: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9843: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9844: raise OKL_API.G_EXCEPTION_ERROR;
9845: End If;
9838: x_return_status => x_return_status);
9839:
9840: -- check if activity started successfully
9841: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9842: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9843: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9844: raise OKL_API.G_EXCEPTION_ERROR;
9845: End If;
9846:
9839:
9840: -- check if activity started successfully
9841: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9842: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9843: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9844: raise OKL_API.G_EXCEPTION_ERROR;
9845: End If;
9846:
9847: l_gvev_rec := p_gvev_rec;
9840: -- check if activity started successfully
9841: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9842: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9843: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9844: raise OKL_API.G_EXCEPTION_ERROR;
9845: End If;
9846:
9847: l_gvev_rec := p_gvev_rec;
9848:
9865: p_gvev_rec => l_gvev_rec,
9866: x_gvev_rec => x_gvev_rec);
9867:
9868: -- check return status
9869: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9870: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9871: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9872: raise OKL_API.G_EXCEPTION_ERROR;
9873: End If;
9866: x_gvev_rec => x_gvev_rec);
9867:
9868: -- check return status
9869: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9870: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9871: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9872: raise OKL_API.G_EXCEPTION_ERROR;
9873: End If;
9874:
9867:
9868: -- check return status
9869: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9870: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9871: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9872: raise OKL_API.G_EXCEPTION_ERROR;
9873: End If;
9874:
9875: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9868: -- check return status
9869: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9870: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9871: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9872: raise OKL_API.G_EXCEPTION_ERROR;
9873: End If;
9874:
9875: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9876: --call API to cascade 'INCOMPLETE' status for lease contracts
9871: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9872: raise OKL_API.G_EXCEPTION_ERROR;
9873: End If;
9874:
9875: If (x_gvev_rec.dnz_chr_id is not null) AND (x_gvev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) Then
9876: --call API to cascade 'INCOMPLETE' status for lease contracts
9877: okl_contract_status_pub.cascade_lease_status_edit
9878: (p_api_version => p_api_version,
9879: p_init_msg_list => p_init_msg_list,
9881: x_msg_count => x_msg_count,
9882: x_msg_data => x_msg_data,
9883: p_chr_id => x_gvev_rec.dnz_chr_id);
9884:
9885: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9886: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9888: raise OKL_API.G_EXCEPTION_ERROR;
9889: End If;
9882: x_msg_data => x_msg_data,
9883: p_chr_id => x_gvev_rec.dnz_chr_id);
9884:
9885: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9886: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9888: raise OKL_API.G_EXCEPTION_ERROR;
9889: End If;
9890: End If;
9883: p_chr_id => x_gvev_rec.dnz_chr_id);
9884:
9885: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9886: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9888: raise OKL_API.G_EXCEPTION_ERROR;
9889: End If;
9890: End If;
9891:
9884:
9885: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9886: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
9888: raise OKL_API.G_EXCEPTION_ERROR;
9889: End If;
9890: End If;
9891:
9892: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9888: raise OKL_API.G_EXCEPTION_ERROR;
9889: End If;
9890: End If;
9891:
9892: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9893: x_msg_data => x_msg_data);
9894: EXCEPTION
9895: when OKL_API.G_EXCEPTION_ERROR then
9896: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9891:
9892: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9893: x_msg_data => x_msg_data);
9894: EXCEPTION
9895: when OKL_API.G_EXCEPTION_ERROR 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 => 'OKL_API.G_RET_STS_ERROR',
9892: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9893: x_msg_data => x_msg_data);
9894: EXCEPTION
9895: when OKL_API.G_EXCEPTION_ERROR 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 => 'OKL_API.G_RET_STS_ERROR',
9900: x_msg_count => x_msg_count,
9895: when OKL_API.G_EXCEPTION_ERROR 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 => 'OKL_API.G_RET_STS_ERROR',
9900: x_msg_count => x_msg_count,
9901: x_msg_data => x_msg_data,
9902: p_api_type => g_api_type);
9903:
9900: x_msg_count => x_msg_count,
9901: x_msg_data => x_msg_data,
9902: p_api_type => g_api_type);
9903:
9904: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9905: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9906: p_api_name => l_api_name,
9907: p_pkg_name => g_pkg_name,
9908: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9901: x_msg_data => x_msg_data,
9902: p_api_type => g_api_type);
9903:
9904: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9905: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9906: p_api_name => l_api_name,
9907: p_pkg_name => g_pkg_name,
9908: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9909: x_msg_count => x_msg_count,
9904: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9905: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9906: p_api_name => l_api_name,
9907: p_pkg_name => g_pkg_name,
9908: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9909: x_msg_count => x_msg_count,
9910: x_msg_data => x_msg_data,
9911: p_api_type => g_api_type);
9912:
9912:
9913:
9914:
9915: when OTHERS then
9916: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9917: p_api_name => l_api_name,
9918: p_pkg_name => g_pkg_name,
9919: p_exc_name => 'OTHERS',
9920: x_msg_count => x_msg_count,
9943: x_gvev_tbl OUT NOCOPY okl_okc_migration_pvt.gvev_tbl_type) IS
9944:
9945: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
9946: l_api_version CONSTANT NUMBER := 1.0;
9947: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9948: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9949: i NUMBER;
9950: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
9951: BEGIN
9944:
9945: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
9946: l_api_version CONSTANT NUMBER := 1.0;
9947: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9948: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9949: i NUMBER;
9950: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
9951: BEGIN
9952: -- call START_ACTIVITY to create savepoint, check compatibility
9950: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
9951: BEGIN
9952: -- call START_ACTIVITY to create savepoint, check compatibility
9953: -- and initialize message list
9954: l_return_status := OKL_API.START_ACTIVITY(
9955: p_api_name => l_api_name,
9956: p_pkg_name => g_pkg_name,
9957: p_init_msg_list => p_init_msg_list,
9958: l_api_version => l_api_version,
9960: p_api_type => g_api_type,
9961: x_return_status => x_return_status);
9962:
9963: -- check if activity started successfully
9964: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9965: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9966: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9967: raise OKL_API.G_EXCEPTION_ERROR;
9968:
9961: x_return_status => x_return_status);
9962:
9963: -- check if activity started successfully
9964: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9965: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9966: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9967: raise OKL_API.G_EXCEPTION_ERROR;
9968:
9969: End If;
9962:
9963: -- check if activity started successfully
9964: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9965: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9966: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9967: raise OKL_API.G_EXCEPTION_ERROR;
9968:
9969: End If;
9970:
9963: -- check if activity started successfully
9964: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9965: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9966: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
9967: raise OKL_API.G_EXCEPTION_ERROR;
9968:
9969: End If;
9970:
9971: If (p_gvev_tbl.COUNT > 0) Then
9980: x_msg_data => x_msg_data,
9981: p_gvev_rec => p_gvev_tbl(i),
9982: x_gvev_rec => x_gvev_tbl(i));
9983:
9984: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9985: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9986: l_overall_status := x_return_status;
9987: End If;
9988: End If;
9981: p_gvev_rec => p_gvev_tbl(i),
9982: x_gvev_rec => x_gvev_tbl(i));
9983:
9984: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
9985: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
9986: l_overall_status := x_return_status;
9987: End If;
9988: End If;
9989:
9994: -- return overall status
9995: x_return_status := l_overall_status;
9996: End If;
9997:
9998: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9999: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10000: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10001: raise OKL_API.G_EXCEPTION_ERROR;
10002: End If;
9995: x_return_status := l_overall_status;
9996: End If;
9997:
9998: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9999: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10000: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10001: raise OKL_API.G_EXCEPTION_ERROR;
10002: End If;
10003:
9996: End If;
9997:
9998: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9999: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10000: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10001: raise OKL_API.G_EXCEPTION_ERROR;
10002: End If;
10003:
10004: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9997:
9998: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
9999: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10000: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10001: raise OKL_API.G_EXCEPTION_ERROR;
10002: End If;
10003:
10004: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10005: x_msg_data => x_msg_data);
10000: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10001: raise OKL_API.G_EXCEPTION_ERROR;
10002: End If;
10003:
10004: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10005: x_msg_data => x_msg_data);
10006: EXCEPTION
10007: when OKL_API.G_EXCEPTION_ERROR then
10008: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10003:
10004: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10005: x_msg_data => x_msg_data);
10006: EXCEPTION
10007: when OKL_API.G_EXCEPTION_ERROR then
10008: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10009: p_api_name => l_api_name,
10010: p_pkg_name => g_pkg_name,
10011: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10004: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10005: x_msg_data => x_msg_data);
10006: EXCEPTION
10007: when OKL_API.G_EXCEPTION_ERROR then
10008: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10009: p_api_name => l_api_name,
10010: p_pkg_name => g_pkg_name,
10011: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10012: x_msg_count => x_msg_count,
10007: when OKL_API.G_EXCEPTION_ERROR then
10008: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10009: p_api_name => l_api_name,
10010: p_pkg_name => g_pkg_name,
10011: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10012: x_msg_count => x_msg_count,
10013: x_msg_data => x_msg_data,
10014: p_api_type => g_api_type);
10015:
10012: x_msg_count => x_msg_count,
10013: x_msg_data => x_msg_data,
10014: p_api_type => g_api_type);
10015:
10016: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10017: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10018: p_api_name => l_api_name,
10019: p_pkg_name => g_pkg_name,
10020: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10013: x_msg_data => x_msg_data,
10014: p_api_type => g_api_type);
10015:
10016: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10017: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10018: p_api_name => l_api_name,
10019: p_pkg_name => g_pkg_name,
10020: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10021: x_msg_count => x_msg_count,
10016: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10017: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10018: p_api_name => l_api_name,
10019: p_pkg_name => g_pkg_name,
10020: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10021: x_msg_count => x_msg_count,
10022: x_msg_data => x_msg_data,
10023: p_api_type => g_api_type);
10024:
10022: x_msg_data => x_msg_data,
10023: p_api_type => g_api_type);
10024:
10025: when OTHERS then
10026: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10027: p_api_name => l_api_name,
10028: p_pkg_name => g_pkg_name,
10029: p_exc_name => 'OTHERS',
10030: x_msg_count => x_msg_count,
10052: l_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
10053:
10054: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
10055: l_api_version CONSTANT NUMBER := 1.0;
10056: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10057:
10058: --cursor to find out chr id required to flip status at edit point
10059: CURSOR chr_id_crs (p_gve_id IN NUMBER) is
10060: SELECT DNZ_CHR_ID
10065: BEGIN
10066:
10067: -- call START_ACTIVITY to create savepoint, check compatibility
10068: -- and initialize message list
10069: l_return_status := OKL_API.START_ACTIVITY(
10070: p_api_name => l_api_name,
10071: p_pkg_name => g_pkg_name,
10072: p_init_msg_list => p_init_msg_list,
10073: l_api_version => l_api_version,
10075: p_api_type => g_api_type,
10076: x_return_status => x_return_status);
10077:
10078: -- check if activity started successfully
10079: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10080: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10081: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10082: raise OKL_API.G_EXCEPTION_ERROR;
10083: End If;
10076: x_return_status => x_return_status);
10077:
10078: -- check if activity started successfully
10079: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10080: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10081: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10082: raise OKL_API.G_EXCEPTION_ERROR;
10083: End If;
10084:
10077:
10078: -- check if activity started successfully
10079: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10080: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10081: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10082: raise OKL_API.G_EXCEPTION_ERROR;
10083: End If;
10084:
10085: l_gvev_rec := p_gvev_rec;
10078: -- check if activity started successfully
10079: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10080: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10081: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10082: raise OKL_API.G_EXCEPTION_ERROR;
10083: End If;
10084:
10085: l_gvev_rec := p_gvev_rec;
10086:
10088: -- set okc context before API call
10089: -- msamoyle: check whether we need to call this method here or in PUB or in processing
10090:
10091: --OKL_CONTEXT.SET_OKC_ORG_CONTEXT(l_chrv_rec.authoring_org_id,l_chrv_rec.inv_organization_id);
10092: If (l_gvev_rec.dnz_chr_id is null) OR (l_gvev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) Then
10093: Open chr_id_crs(p_gve_id => l_gvev_rec.id);
10094: FETCH chr_id_crs into l_dnz_chr_id;
10095: If chr_id_crs%NOTFOUND THEN
10096: NULL;
10099: Else
10100: l_dnz_chr_id := l_gvev_rec.dnz_chr_id;
10101: End If;
10102:
10103: If (l_dnz_chr_id is not null) And (l_dnz_chr_id <> OKL_API.G_MISS_NUM) Then
10104: --call API to cascade 'INCOMPLETE' status for lease contracts
10105: okl_contract_status_pub.cascade_lease_status_edit
10106: (p_api_version => p_api_version,
10107: p_init_msg_list => p_init_msg_list,
10109: x_msg_count => x_msg_count,
10110: x_msg_data => x_msg_data,
10111: p_chr_id => l_dnz_chr_id);
10112:
10113: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10114: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10115: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10116: raise OKL_API.G_EXCEPTION_ERROR;
10117: End If;
10110: x_msg_data => x_msg_data,
10111: p_chr_id => l_dnz_chr_id);
10112:
10113: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10114: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10115: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10116: raise OKL_API.G_EXCEPTION_ERROR;
10117: End If;
10118: End If;
10111: p_chr_id => l_dnz_chr_id);
10112:
10113: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10114: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10115: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10116: raise OKL_API.G_EXCEPTION_ERROR;
10117: End If;
10118: End If;
10119: --
10112:
10113: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10114: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10115: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10116: raise OKL_API.G_EXCEPTION_ERROR;
10117: End If;
10118: End If;
10119: --
10120: -- call procedure in complex API
10127: x_msg_data => x_msg_data,
10128: p_gvev_rec => l_gvev_rec);
10129:
10130: -- check return status
10131: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10132: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10133: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10134: raise OKL_API.G_EXCEPTION_ERROR;
10135: End If;
10128: p_gvev_rec => l_gvev_rec);
10129:
10130: -- check return status
10131: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10132: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10133: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10134: raise OKL_API.G_EXCEPTION_ERROR;
10135: End If;
10136:
10129:
10130: -- check return status
10131: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10132: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10133: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10134: raise OKL_API.G_EXCEPTION_ERROR;
10135: End If;
10136:
10137:
10130: -- check return status
10131: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10132: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10133: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10134: raise OKL_API.G_EXCEPTION_ERROR;
10135: End If;
10136:
10137:
10138: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10134: raise OKL_API.G_EXCEPTION_ERROR;
10135: End If;
10136:
10137:
10138: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10139: x_msg_data => x_msg_data);
10140: EXCEPTION
10141: when OKL_API.G_EXCEPTION_ERROR then
10142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10137:
10138: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10139: x_msg_data => x_msg_data);
10140: EXCEPTION
10141: when OKL_API.G_EXCEPTION_ERROR then
10142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10143: p_api_name => l_api_name,
10144: p_pkg_name => g_pkg_name,
10145: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10138: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10139: x_msg_data => x_msg_data);
10140: EXCEPTION
10141: when OKL_API.G_EXCEPTION_ERROR then
10142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10143: p_api_name => l_api_name,
10144: p_pkg_name => g_pkg_name,
10145: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10146: x_msg_count => x_msg_count,
10141: when OKL_API.G_EXCEPTION_ERROR then
10142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10143: p_api_name => l_api_name,
10144: p_pkg_name => g_pkg_name,
10145: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10146: x_msg_count => x_msg_count,
10147: x_msg_data => x_msg_data,
10148: p_api_type => g_api_type);
10149:
10146: x_msg_count => x_msg_count,
10147: x_msg_data => x_msg_data,
10148: p_api_type => g_api_type);
10149:
10150: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10152: p_api_name => l_api_name,
10153: p_pkg_name => g_pkg_name,
10154: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10147: x_msg_data => x_msg_data,
10148: p_api_type => g_api_type);
10149:
10150: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10152: p_api_name => l_api_name,
10153: p_pkg_name => g_pkg_name,
10154: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10155: x_msg_count => x_msg_count,
10150: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10152: p_api_name => l_api_name,
10153: p_pkg_name => g_pkg_name,
10154: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10155: x_msg_count => x_msg_count,
10156: x_msg_data => x_msg_data,
10157: p_api_type => g_api_type);
10158:
10156: x_msg_data => x_msg_data,
10157: p_api_type => g_api_type);
10158:
10159: when OTHERS then
10160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10161: p_api_name => l_api_name,
10162: p_pkg_name => g_pkg_name,
10163: p_exc_name => 'OTHERS',
10164: x_msg_count => x_msg_count,
10184: p_gvev_tbl IN okl_okc_migration_pvt.gvev_tbl_type) IS
10185:
10186: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
10187: l_api_version CONSTANT NUMBER := 1.0;
10188: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10189: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10190: i NUMBER;
10191: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10192: BEGIN
10185:
10186: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
10187: l_api_version CONSTANT NUMBER := 1.0;
10188: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10189: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10190: i NUMBER;
10191: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10192: BEGIN
10193: -- call START_ACTIVITY to create savepoint, check compatibility
10191: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10192: BEGIN
10193: -- call START_ACTIVITY to create savepoint, check compatibility
10194: -- and initialize message list
10195: l_return_status := OKL_API.START_ACTIVITY(
10196: p_api_name => l_api_name,
10197: p_pkg_name => g_pkg_name,
10198: p_init_msg_list => p_init_msg_list,
10199: l_api_version => l_api_version,
10201: p_api_type => g_api_type,
10202: x_return_status => x_return_status);
10203:
10204: -- check if activity started successfully
10205: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10207: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10208: raise OKL_API.G_EXCEPTION_ERROR;
10209:
10202: x_return_status => x_return_status);
10203:
10204: -- check if activity started successfully
10205: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10207: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10208: raise OKL_API.G_EXCEPTION_ERROR;
10209:
10210: End If;
10203:
10204: -- check if activity started successfully
10205: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10207: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10208: raise OKL_API.G_EXCEPTION_ERROR;
10209:
10210: End If;
10211:
10204: -- check if activity started successfully
10205: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10207: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10208: raise OKL_API.G_EXCEPTION_ERROR;
10209:
10210: End If;
10211:
10212: If (p_gvev_tbl.COUNT > 0) Then
10220: x_msg_count => x_msg_count,
10221: x_msg_data => x_msg_data,
10222: p_gvev_rec => p_gvev_tbl(i));
10223:
10224: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10225: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10226: l_overall_status := x_return_status;
10227: End If;
10228: End If;
10221: x_msg_data => x_msg_data,
10222: p_gvev_rec => p_gvev_tbl(i));
10223:
10224: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10225: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10226: l_overall_status := x_return_status;
10227: End If;
10228: End If;
10229:
10234: -- return overall status
10235: x_return_status := l_overall_status;
10236: End If;
10237:
10238: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10239: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10240: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10241: raise OKL_API.G_EXCEPTION_ERROR;
10242: End If;
10235: x_return_status := l_overall_status;
10236: End If;
10237:
10238: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10239: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10240: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10241: raise OKL_API.G_EXCEPTION_ERROR;
10242: End If;
10243:
10236: End If;
10237:
10238: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10239: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10240: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10241: raise OKL_API.G_EXCEPTION_ERROR;
10242: End If;
10243:
10244: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10237:
10238: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10239: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10240: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10241: raise OKL_API.G_EXCEPTION_ERROR;
10242: End If;
10243:
10244: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10245: x_msg_data => x_msg_data);
10240: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10241: raise OKL_API.G_EXCEPTION_ERROR;
10242: End If;
10243:
10244: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10245: x_msg_data => x_msg_data);
10246: EXCEPTION
10247: when OKL_API.G_EXCEPTION_ERROR then
10248: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10243:
10244: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10245: x_msg_data => x_msg_data);
10246: EXCEPTION
10247: when OKL_API.G_EXCEPTION_ERROR then
10248: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10249: p_api_name => l_api_name,
10250: p_pkg_name => g_pkg_name,
10251: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10244: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10245: x_msg_data => x_msg_data);
10246: EXCEPTION
10247: when OKL_API.G_EXCEPTION_ERROR then
10248: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10249: p_api_name => l_api_name,
10250: p_pkg_name => g_pkg_name,
10251: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10252: x_msg_count => x_msg_count,
10247: when OKL_API.G_EXCEPTION_ERROR then
10248: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10249: p_api_name => l_api_name,
10250: p_pkg_name => g_pkg_name,
10251: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10252: x_msg_count => x_msg_count,
10253: x_msg_data => x_msg_data,
10254: p_api_type => g_api_type);
10255:
10252: x_msg_count => x_msg_count,
10253: x_msg_data => x_msg_data,
10254: p_api_type => g_api_type);
10255:
10256: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10257: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10258: p_api_name => l_api_name,
10259: p_pkg_name => g_pkg_name,
10260: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10253: x_msg_data => x_msg_data,
10254: p_api_type => g_api_type);
10255:
10256: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10257: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10258: p_api_name => l_api_name,
10259: p_pkg_name => g_pkg_name,
10260: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10261: x_msg_count => x_msg_count,
10256: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10257: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10258: p_api_name => l_api_name,
10259: p_pkg_name => g_pkg_name,
10260: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10261: x_msg_count => x_msg_count,
10262: x_msg_data => x_msg_data,
10263: p_api_type => g_api_type);
10264:
10262: x_msg_data => x_msg_data,
10263: p_api_type => g_api_type);
10264:
10265: when OTHERS then
10266: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10267: p_api_name => l_api_name,
10268: p_pkg_name => g_pkg_name,
10269: p_exc_name => 'OTHERS',
10270: x_msg_count => x_msg_count,
10292: l_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
10293:
10294: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_GOVERNANCE';
10295: l_api_version CONSTANT NUMBER := 1.0;
10296: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10297: BEGIN
10298:
10299: -- call START_ACTIVITY to create savepoint, check compatibility
10300: -- and initialize message list
10297: BEGIN
10298:
10299: -- call START_ACTIVITY to create savepoint, check compatibility
10300: -- and initialize message list
10301: l_return_status := OKL_API.START_ACTIVITY(
10302: p_api_name => l_api_name,
10303: p_pkg_name => g_pkg_name,
10304: p_init_msg_list => p_init_msg_list,
10305: l_api_version => l_api_version,
10307: p_api_type => g_api_type,
10308: x_return_status => x_return_status);
10309:
10310: -- check if activity started successfully
10311: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10312: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10313: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10314: raise OKL_API.G_EXCEPTION_ERROR;
10315: End If;
10308: x_return_status => x_return_status);
10309:
10310: -- check if activity started successfully
10311: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10312: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10313: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10314: raise OKL_API.G_EXCEPTION_ERROR;
10315: End If;
10316:
10309:
10310: -- check if activity started successfully
10311: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10312: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10313: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10314: raise OKL_API.G_EXCEPTION_ERROR;
10315: End If;
10316:
10317: l_gvev_rec := p_gvev_rec;
10310: -- check if activity started successfully
10311: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10312: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10313: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10314: raise OKL_API.G_EXCEPTION_ERROR;
10315: End If;
10316:
10317: l_gvev_rec := p_gvev_rec;
10318:
10334: x_msg_data => x_msg_data,
10335: p_gvev_rec => l_gvev_rec);
10336:
10337: -- check return status
10338: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10340: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10341: raise OKL_API.G_EXCEPTION_ERROR;
10342: End If;
10335: p_gvev_rec => l_gvev_rec);
10336:
10337: -- check return status
10338: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10340: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10341: raise OKL_API.G_EXCEPTION_ERROR;
10342: End If;
10343:
10336:
10337: -- check return status
10338: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10340: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10341: raise OKL_API.G_EXCEPTION_ERROR;
10342: End If;
10343:
10344: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10337: -- check return status
10338: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10340: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10341: raise OKL_API.G_EXCEPTION_ERROR;
10342: End If;
10343:
10344: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10345: x_msg_data => x_msg_data);
10340: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10341: raise OKL_API.G_EXCEPTION_ERROR;
10342: End If;
10343:
10344: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10345: x_msg_data => x_msg_data);
10346: EXCEPTION
10347: when OKL_API.G_EXCEPTION_ERROR then
10348: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10343:
10344: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10345: x_msg_data => x_msg_data);
10346: EXCEPTION
10347: when OKL_API.G_EXCEPTION_ERROR then
10348: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10349: p_api_name => l_api_name,
10350: p_pkg_name => g_pkg_name,
10351: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10344: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10345: x_msg_data => x_msg_data);
10346: EXCEPTION
10347: when OKL_API.G_EXCEPTION_ERROR then
10348: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10349: p_api_name => l_api_name,
10350: p_pkg_name => g_pkg_name,
10351: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10352: x_msg_count => x_msg_count,
10347: when OKL_API.G_EXCEPTION_ERROR then
10348: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10349: p_api_name => l_api_name,
10350: p_pkg_name => g_pkg_name,
10351: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10352: x_msg_count => x_msg_count,
10353: x_msg_data => x_msg_data,
10354: p_api_type => g_api_type);
10355:
10352: x_msg_count => x_msg_count,
10353: x_msg_data => x_msg_data,
10354: p_api_type => g_api_type);
10355:
10356: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10357: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10358: p_api_name => l_api_name,
10359: p_pkg_name => g_pkg_name,
10360: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10353: x_msg_data => x_msg_data,
10354: p_api_type => g_api_type);
10355:
10356: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10357: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10358: p_api_name => l_api_name,
10359: p_pkg_name => g_pkg_name,
10360: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10361: x_msg_count => x_msg_count,
10356: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10357: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10358: p_api_name => l_api_name,
10359: p_pkg_name => g_pkg_name,
10360: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10361: x_msg_count => x_msg_count,
10362: x_msg_data => x_msg_data,
10363: p_api_type => g_api_type);
10364:
10362: x_msg_data => x_msg_data,
10363: p_api_type => g_api_type);
10364:
10365: when OTHERS then
10366: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10367: p_api_name => l_api_name,
10368: p_pkg_name => g_pkg_name,
10369: p_exc_name => 'OTHERS',
10370: x_msg_count => x_msg_count,
10390: p_gvev_tbl IN okl_okc_migration_pvt.gvev_tbl_type) IS
10391:
10392: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_GOVERNANCE';
10393: l_api_version CONSTANT NUMBER := 1.0;
10394: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10395: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10396: i NUMBER;
10397: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10398: BEGIN
10391:
10392: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_GOVERNANCE';
10393: l_api_version CONSTANT NUMBER := 1.0;
10394: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10395: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10396: i NUMBER;
10397: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10398: BEGIN
10399: -- call START_ACTIVITY to create savepoint, check compatibility
10397: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10398: BEGIN
10399: -- call START_ACTIVITY to create savepoint, check compatibility
10400: -- and initialize message list
10401: l_return_status := OKL_API.START_ACTIVITY(
10402: p_api_name => l_api_name,
10403: p_pkg_name => g_pkg_name,
10404: p_init_msg_list => p_init_msg_list,
10405: l_api_version => l_api_version,
10407: p_api_type => g_api_type,
10408: x_return_status => x_return_status);
10409:
10410: -- check if activity started successfully
10411: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10412: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10413: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10414: raise OKL_API.G_EXCEPTION_ERROR;
10415:
10408: x_return_status => x_return_status);
10409:
10410: -- check if activity started successfully
10411: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10412: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10413: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10414: raise OKL_API.G_EXCEPTION_ERROR;
10415:
10416: End If;
10409:
10410: -- check if activity started successfully
10411: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10412: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10413: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10414: raise OKL_API.G_EXCEPTION_ERROR;
10415:
10416: End If;
10417:
10410: -- check if activity started successfully
10411: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10412: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10413: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10414: raise OKL_API.G_EXCEPTION_ERROR;
10415:
10416: End If;
10417:
10418: If (p_gvev_tbl.COUNT > 0) Then
10426: x_msg_count => x_msg_count,
10427: x_msg_data => x_msg_data,
10428: p_gvev_rec => p_gvev_tbl(i));
10429:
10430: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10431: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10432: l_overall_status := x_return_status;
10433: End If;
10434: End If;
10427: x_msg_data => x_msg_data,
10428: p_gvev_rec => p_gvev_tbl(i));
10429:
10430: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10431: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10432: l_overall_status := x_return_status;
10433: End If;
10434: End If;
10435:
10440: -- return overall status
10441: x_return_status := l_overall_status;
10442: End If;
10443:
10444: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10446: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10447: raise OKL_API.G_EXCEPTION_ERROR;
10448: End If;
10441: x_return_status := l_overall_status;
10442: End If;
10443:
10444: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10446: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10447: raise OKL_API.G_EXCEPTION_ERROR;
10448: End If;
10449:
10442: End If;
10443:
10444: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10446: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10447: raise OKL_API.G_EXCEPTION_ERROR;
10448: End If;
10449:
10450: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10443:
10444: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10445: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10446: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10447: raise OKL_API.G_EXCEPTION_ERROR;
10448: End If;
10449:
10450: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10451: x_msg_data => x_msg_data);
10446: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10447: raise OKL_API.G_EXCEPTION_ERROR;
10448: End If;
10449:
10450: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10451: x_msg_data => x_msg_data);
10452: EXCEPTION
10453: when OKL_API.G_EXCEPTION_ERROR then
10454: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10449:
10450: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10451: x_msg_data => x_msg_data);
10452: EXCEPTION
10453: when OKL_API.G_EXCEPTION_ERROR then
10454: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10455: p_api_name => l_api_name,
10456: p_pkg_name => g_pkg_name,
10457: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10450: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10451: x_msg_data => x_msg_data);
10452: EXCEPTION
10453: when OKL_API.G_EXCEPTION_ERROR then
10454: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10455: p_api_name => l_api_name,
10456: p_pkg_name => g_pkg_name,
10457: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10458: x_msg_count => x_msg_count,
10453: when OKL_API.G_EXCEPTION_ERROR then
10454: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10455: p_api_name => l_api_name,
10456: p_pkg_name => g_pkg_name,
10457: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10458: x_msg_count => x_msg_count,
10459: x_msg_data => x_msg_data,
10460: p_api_type => g_api_type);
10461:
10458: x_msg_count => x_msg_count,
10459: x_msg_data => x_msg_data,
10460: p_api_type => g_api_type);
10461:
10462: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10463: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10464: p_api_name => l_api_name,
10465: p_pkg_name => g_pkg_name,
10466: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10459: x_msg_data => x_msg_data,
10460: p_api_type => g_api_type);
10461:
10462: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10463: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10464: p_api_name => l_api_name,
10465: p_pkg_name => g_pkg_name,
10466: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10467: x_msg_count => x_msg_count,
10462: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10463: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10464: p_api_name => l_api_name,
10465: p_pkg_name => g_pkg_name,
10466: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10467: x_msg_count => x_msg_count,
10468: x_msg_data => x_msg_data,
10469: p_api_type => g_api_type);
10470:
10468: x_msg_data => x_msg_data,
10469: p_api_type => g_api_type);
10470:
10471: when OTHERS then
10472: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10473: p_api_name => l_api_name,
10474: p_pkg_name => g_pkg_name,
10475: p_exc_name => 'OTHERS',
10476: x_msg_count => x_msg_count,
10500:
10501:
10502: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_GOVERNANCE';
10503: l_api_version CONSTANT NUMBER := 1.0;
10504: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10505: BEGIN
10506:
10507: --dbms_output.put_line('Start validation');
10508: -- call START_ACTIVITY to create savepoint, check compatibility
10506:
10507: --dbms_output.put_line('Start validation');
10508: -- call START_ACTIVITY to create savepoint, check compatibility
10509: -- and initialize message list
10510: l_return_status := OKL_API.START_ACTIVITY(
10511: p_api_name => l_api_name,
10512: p_pkg_name => g_pkg_name,
10513: p_init_msg_list => p_init_msg_list,
10514: l_api_version => l_api_version,
10516: p_api_type => g_api_type,
10517: x_return_status => x_return_status);
10518:
10519: -- check if activity started successfully
10520: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10521: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10522: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10523: raise OKL_API.G_EXCEPTION_ERROR;
10524: End If;
10517: x_return_status => x_return_status);
10518:
10519: -- check if activity started successfully
10520: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10521: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10522: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10523: raise OKL_API.G_EXCEPTION_ERROR;
10524: End If;
10525:
10518:
10519: -- check if activity started successfully
10520: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10521: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10522: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10523: raise OKL_API.G_EXCEPTION_ERROR;
10524: End If;
10525:
10526: --dbms_output.put_line('Started activity');
10519: -- check if activity started successfully
10520: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10521: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10522: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10523: raise OKL_API.G_EXCEPTION_ERROR;
10524: End If;
10525:
10526: --dbms_output.put_line('Started activity');
10527:
10545: x_msg_data => x_msg_data,
10546: p_gvev_rec => l_gvev_rec);
10547:
10548: -- check return status
10549: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10550: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10551: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10552: raise OKL_API.G_EXCEPTION_ERROR;
10553: End If;
10546: p_gvev_rec => l_gvev_rec);
10547:
10548: -- check return status
10549: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10550: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10551: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10552: raise OKL_API.G_EXCEPTION_ERROR;
10553: End If;
10554: --dbms_output.put_line('Got standard validation');
10547:
10548: -- check return status
10549: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10550: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10551: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10552: raise OKL_API.G_EXCEPTION_ERROR;
10553: End If;
10554: --dbms_output.put_line('Got standard validation');
10555:
10548: -- check return status
10549: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10550: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10551: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10552: raise OKL_API.G_EXCEPTION_ERROR;
10553: End If;
10554: --dbms_output.put_line('Got standard validation');
10555:
10556: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10552: raise OKL_API.G_EXCEPTION_ERROR;
10553: End If;
10554: --dbms_output.put_line('Got standard validation');
10555:
10556: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10557: x_msg_data => x_msg_data);
10558: --dbms_output.put_line('Done');
10559: EXCEPTION
10560: when OKL_API.G_EXCEPTION_ERROR then
10556: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10557: x_msg_data => x_msg_data);
10558: --dbms_output.put_line('Done');
10559: EXCEPTION
10560: when OKL_API.G_EXCEPTION_ERROR then
10561: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10562: p_api_name => l_api_name,
10563: p_pkg_name => g_pkg_name,
10564: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10557: x_msg_data => x_msg_data);
10558: --dbms_output.put_line('Done');
10559: EXCEPTION
10560: when OKL_API.G_EXCEPTION_ERROR then
10561: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10562: p_api_name => l_api_name,
10563: p_pkg_name => g_pkg_name,
10564: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10565: x_msg_count => x_msg_count,
10560: when OKL_API.G_EXCEPTION_ERROR then
10561: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10562: p_api_name => l_api_name,
10563: p_pkg_name => g_pkg_name,
10564: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10565: x_msg_count => x_msg_count,
10566: x_msg_data => x_msg_data,
10567: p_api_type => g_api_type);
10568:
10565: x_msg_count => x_msg_count,
10566: x_msg_data => x_msg_data,
10567: p_api_type => g_api_type);
10568:
10569: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10570: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10571: p_api_name => l_api_name,
10572: p_pkg_name => g_pkg_name,
10573: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10566: x_msg_data => x_msg_data,
10567: p_api_type => g_api_type);
10568:
10569: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10570: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10571: p_api_name => l_api_name,
10572: p_pkg_name => g_pkg_name,
10573: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10574: x_msg_count => x_msg_count,
10569: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10570: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10571: p_api_name => l_api_name,
10572: p_pkg_name => g_pkg_name,
10573: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10574: x_msg_count => x_msg_count,
10575: x_msg_data => x_msg_data,
10576: p_api_type => g_api_type);
10577:
10575: x_msg_data => x_msg_data,
10576: p_api_type => g_api_type);
10577:
10578: when OTHERS then
10579: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10580: p_api_name => l_api_name,
10581: p_pkg_name => g_pkg_name,
10582: p_exc_name => 'OTHERS',
10583: x_msg_count => x_msg_count,
10603: p_gvev_tbl IN okl_okc_migration_pvt.gvev_tbl_type) IS
10604:
10605: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_HEADER';
10606: l_api_version CONSTANT NUMBER := 1.0;
10607: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10608: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10609: i NUMBER;
10610: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10611: BEGIN
10604:
10605: l_api_name CONSTANT VARCHAR2(30) := 'validate_CONTRACT_HEADER';
10606: l_api_version CONSTANT NUMBER := 1.0;
10607: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10608: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10609: i NUMBER;
10610: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10611: BEGIN
10612: -- call START_ACTIVITY to create savepoint, check compatibility
10610: l_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type := p_gvev_tbl;
10611: BEGIN
10612: -- call START_ACTIVITY to create savepoint, check compatibility
10613: -- and initialize message list
10614: l_return_status := OKL_API.START_ACTIVITY(
10615: p_api_name => l_api_name,
10616: p_pkg_name => g_pkg_name,
10617: p_init_msg_list => p_init_msg_list,
10618: l_api_version => l_api_version,
10620: p_api_type => g_api_type,
10621: x_return_status => x_return_status);
10622:
10623: -- check if activity started successfully
10624: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10625: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10626: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10627: raise OKL_API.G_EXCEPTION_ERROR;
10628:
10621: x_return_status => x_return_status);
10622:
10623: -- check if activity started successfully
10624: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10625: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10626: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10627: raise OKL_API.G_EXCEPTION_ERROR;
10628:
10629: End If;
10622:
10623: -- check if activity started successfully
10624: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10625: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10626: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10627: raise OKL_API.G_EXCEPTION_ERROR;
10628:
10629: End If;
10630:
10623: -- check if activity started successfully
10624: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10625: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10626: Elsif (l_return_status = OKL_API.G_RET_STS_ERROR) then
10627: raise OKL_API.G_EXCEPTION_ERROR;
10628:
10629: End If;
10630:
10631: If (p_gvev_tbl.COUNT > 0) Then
10639: x_msg_count => x_msg_count,
10640: x_msg_data => x_msg_data,
10641: p_gvev_rec => p_gvev_tbl(i));
10642:
10643: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10644: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10645: l_overall_status := x_return_status;
10646: End If;
10647: End If;
10640: x_msg_data => x_msg_data,
10641: p_gvev_rec => p_gvev_tbl(i));
10642:
10643: If x_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10644: If l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR Then
10645: l_overall_status := x_return_status;
10646: End If;
10647: End If;
10648:
10653: -- return overall status
10654: x_return_status := l_overall_status;
10655: End If;
10656:
10657: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10659: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10660: raise OKL_API.G_EXCEPTION_ERROR;
10661: End If;
10654: x_return_status := l_overall_status;
10655: End If;
10656:
10657: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10659: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10660: raise OKL_API.G_EXCEPTION_ERROR;
10661: End If;
10662:
10655: End If;
10656:
10657: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10659: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10660: raise OKL_API.G_EXCEPTION_ERROR;
10661: End If;
10662:
10663: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10656:
10657: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
10658: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10659: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10660: raise OKL_API.G_EXCEPTION_ERROR;
10661: End If;
10662:
10663: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10664: x_msg_data => x_msg_data);
10659: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
10660: raise OKL_API.G_EXCEPTION_ERROR;
10661: End If;
10662:
10663: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10664: x_msg_data => x_msg_data);
10665: EXCEPTION
10666: when OKL_API.G_EXCEPTION_ERROR then
10667: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10662:
10663: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10664: x_msg_data => x_msg_data);
10665: EXCEPTION
10666: when OKL_API.G_EXCEPTION_ERROR then
10667: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10668: p_api_name => l_api_name,
10669: p_pkg_name => g_pkg_name,
10670: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10663: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10664: x_msg_data => x_msg_data);
10665: EXCEPTION
10666: when OKL_API.G_EXCEPTION_ERROR then
10667: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10668: p_api_name => l_api_name,
10669: p_pkg_name => g_pkg_name,
10670: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10671: x_msg_count => x_msg_count,
10666: when OKL_API.G_EXCEPTION_ERROR then
10667: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10668: p_api_name => l_api_name,
10669: p_pkg_name => g_pkg_name,
10670: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10671: x_msg_count => x_msg_count,
10672: x_msg_data => x_msg_data,
10673: p_api_type => g_api_type);
10674:
10671: x_msg_count => x_msg_count,
10672: x_msg_data => x_msg_data,
10673: p_api_type => g_api_type);
10674:
10675: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10677: p_api_name => l_api_name,
10678: p_pkg_name => g_pkg_name,
10679: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10672: x_msg_data => x_msg_data,
10673: p_api_type => g_api_type);
10674:
10675: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10677: p_api_name => l_api_name,
10678: p_pkg_name => g_pkg_name,
10679: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10680: x_msg_count => x_msg_count,
10675: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10677: p_api_name => l_api_name,
10678: p_pkg_name => g_pkg_name,
10679: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10680: x_msg_count => x_msg_count,
10681: x_msg_data => x_msg_data,
10682: p_api_type => g_api_type);
10683:
10681: x_msg_data => x_msg_data,
10682: p_api_type => g_api_type);
10683:
10684: when OTHERS then
10685: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10686: p_api_name => l_api_name,
10687: p_pkg_name => g_pkg_name,
10688: p_exc_name => 'OTHERS',
10689: x_msg_count => x_msg_count,
10716: x_hdr_tbl OUT NOCOPY hdr_tbl_type) IS
10717:
10718: l_api_name CONSTANT VARCHAR2(30) := 'GET_CONTRACT_HEADER_INFO';
10719: l_api_version CONSTANT NUMBER := 1;
10720: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10721:
10722: Cursor status_csr( chrId NUMBER ) IS
10723: select a.ste_code,
10724: a.code,
10848: AND chr.scs_code in ('LEASE','LOAN');
10849:
10850: l_syndicate_flag VARCHAR2(1) := 'N';
10851: l_api_version NUMBER;
10852: l_return_status VARCHAR2(1) := Okl_API.G_RET_STS_SUCCESS;
10853: l_msg_count NUMBER;
10854: l_msg_data VARCHAR2(2000);
10855:
10856: BEGIN
10863:
10864: RETURN l_return_status;
10865: EXCEPTION
10866: WHEN OTHERS THEN
10867: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
10868: ,p_msg_name => G_UNEXPECTED_ERROR
10869: ,p_token1 => G_SQLCODE_TOKEN
10870: ,p_token1_value => SQLCODE
10871: ,p_token2 => G_SQLERRM_TOKEN
10869: ,p_token1 => G_SQLCODE_TOKEN
10870: ,p_token1_value => SQLCODE
10871: ,p_token2 => G_SQLERRM_TOKEN
10872: ,p_token2_value => SQLERRM);
10873: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
10874: RETURN(l_return_status);
10875:
10876: END get_syndicate_flag;
10877:
10884: x_party_name OUT NOCOPY VARCHAR2)
10885: RETURN VARCHAR2
10886: IS
10887: l_api_version NUMBER := 1.0;
10888: l_init_msg_list VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
10889: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10890: l_msg_count NUMBER;
10891: l_msg_data VARCHAR2(2000);
10892: l_party_tab OKL_JTOT_EXTRACT.party_tab_type;
10885: RETURN VARCHAR2
10886: IS
10887: l_api_version NUMBER := 1.0;
10888: l_init_msg_list VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
10889: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10890: l_msg_count NUMBER;
10891: l_msg_data VARCHAR2(2000);
10892: l_party_tab OKL_JTOT_EXTRACT.party_tab_type;
10893: BEGIN
10907: 'S',
10908: l_party_tab
10909: );
10910:
10911: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
10912: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
10913: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
10914: RAISE okl_api.G_EXCEPTION_ERROR;
10915: END IF;
10908: l_party_tab
10909: );
10910:
10911: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
10912: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
10913: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
10914: RAISE okl_api.G_EXCEPTION_ERROR;
10915: END IF;
10916:
10909: );
10910:
10911: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
10912: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
10913: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
10914: RAISE okl_api.G_EXCEPTION_ERROR;
10915: END IF;
10916:
10917: IF l_party_tab.FIRST IS NOT NULL
10910:
10911: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
10912: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
10913: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
10914: RAISE okl_api.G_EXCEPTION_ERROR;
10915: END IF;
10916:
10917: IF l_party_tab.FIRST IS NOT NULL
10918: THEN --fetch from table only if some data is retrieved
10927: END IF;
10928:
10929: RETURN l_return_status;
10930: EXCEPTION
10931: when OKL_API.G_EXCEPTION_ERROR then
10932: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
10933: p_api_name => l_api_name,
10934: p_pkg_name => g_pkg_name,
10935: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10928:
10929: RETURN l_return_status;
10930: EXCEPTION
10931: when OKL_API.G_EXCEPTION_ERROR then
10932: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
10933: p_api_name => l_api_name,
10934: p_pkg_name => g_pkg_name,
10935: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10936: x_msg_count => x_msg_count,
10931: when OKL_API.G_EXCEPTION_ERROR then
10932: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
10933: p_api_name => l_api_name,
10934: p_pkg_name => g_pkg_name,
10935: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10936: x_msg_count => x_msg_count,
10937: x_msg_data => x_msg_data,
10938: p_api_type => g_api_type);
10939:
10936: x_msg_count => x_msg_count,
10937: x_msg_data => x_msg_data,
10938: p_api_type => g_api_type);
10939:
10940: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10941: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
10942: p_api_name => l_api_name,
10943: p_pkg_name => g_pkg_name,
10944: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10937: x_msg_data => x_msg_data,
10938: p_api_type => g_api_type);
10939:
10940: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10941: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
10942: p_api_name => l_api_name,
10943: p_pkg_name => g_pkg_name,
10944: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10945: x_msg_count => x_msg_count,
10940: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10941: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
10942: p_api_name => l_api_name,
10943: p_pkg_name => g_pkg_name,
10944: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10945: x_msg_count => x_msg_count,
10946: x_msg_data => x_msg_data,
10947: p_api_type => g_api_type);
10948:
10946: x_msg_data => x_msg_data,
10947: p_api_type => g_api_type);
10948:
10949: when OTHERS then
10950: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
10951: p_api_name => l_api_name,
10952: p_pkg_name => g_pkg_name,
10953: p_exc_name => 'OTHERS',
10954: x_msg_count => x_msg_count,
10964:
10965: OPEN status_csr( p_chr_id );
10966: FETCH status_csr INTO status_rec;
10967: if (status_csr%NOTFOUND ) Then
10968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10969: End If;
10970: CLOSE status_csr;
10971:
10972: l_scs_code := status_rec.scs_code;
10985:
10986: OPEN chr_csr( p_chr_id );
10987: FETCH chr_csr INTO chr_rec;
10988: if (chr_csr%NOTFOUND ) Then
10989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10990: End If;
10991: CLOSE chr_csr;
10992:
10993: OPEN prog_num_csr( p_chr_id );
11019: --for bug# 2471750 :special treatment for QUOTE
11020: If l_scs_code <> 'QUOTE' Then
11021: --Bug# 2857899
11022: If l_template_yn <> 'Y' Then
11023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11024: Elsif l_template_yn = 'Y' Then
11025: x_hdr_tbl(12) := Null;
11026: x_hdr_tbl(13) := Null;
11027: x_hdr_tbl(14) := Null;
11028:
11029: x_hdr_tbl(15) := l_currency_code;
11030:
11031: l_return_status := get_party(p_chr_id,'LESSEE', l_lessee);
11032: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) Then
11033: x_hdr_tbl(16) := l_lessee;
11034: ELSE
11035: x_hdr_tbl(16) := '';
11036: END IF;
11044:
11045: x_hdr_tbl(15) := l_currency_code;
11046:
11047: l_return_status := get_party(p_chr_id,'LESSEE', l_lessee);
11048: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) Then
11049: x_hdr_tbl(16) := l_lessee;
11050: ELSE
11051: x_hdr_tbl(16) := '';
11052: END IF;
11077: -- p_chr_id,
11078: -- rule_rec.object1_id1 );
11079: -- FETCH cust_csr INTO cust_rec;
11080: -- if (cust_csr%NOTFOUND ) Then
11081: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11082: -- End If;
11083: -- CLOSE cust_csr;
11084:
11085: -- x_hdr_tbl(15) := cust_rec.currency_code;
11109:
11110: --l_return_status := okl_contract_info_pvt.get_private_label(p_chr_id, l_priv);
11111: --l_return_status := get_private_label(p_chr_id, l_priv);
11112: l_return_status := get_party(p_chr_id,'PRIVATE_LABEL', l_priv);
11113: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) Then
11114: x_hdr_tbl(20) := l_priv;
11115: ELSE
11116: x_hdr_tbl(20) := '';
11117: END IF;
11125: Else
11126: x_hdr_tbl(1) := 'GET_FROM_REQUEST';
11127: End if;
11128:
11129: l_return_status := OKL_API.G_RET_STS_SUCCESS;
11130:
11131: Exception
11132: when OKL_API.G_EXCEPTION_ERROR then
11133: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11128:
11129: l_return_status := OKL_API.G_RET_STS_SUCCESS;
11130:
11131: Exception
11132: when OKL_API.G_EXCEPTION_ERROR then
11133: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11134: p_api_name => l_api_name,
11135: p_pkg_name => g_pkg_name,
11136: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11129: l_return_status := OKL_API.G_RET_STS_SUCCESS;
11130:
11131: Exception
11132: when OKL_API.G_EXCEPTION_ERROR then
11133: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11134: p_api_name => l_api_name,
11135: p_pkg_name => g_pkg_name,
11136: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11137: x_msg_count => x_msg_count,
11132: when OKL_API.G_EXCEPTION_ERROR then
11133: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11134: p_api_name => l_api_name,
11135: p_pkg_name => g_pkg_name,
11136: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11137: x_msg_count => x_msg_count,
11138: x_msg_data => x_msg_data,
11139: p_api_type => g_api_type);
11140:
11137: x_msg_count => x_msg_count,
11138: x_msg_data => x_msg_data,
11139: p_api_type => g_api_type);
11140:
11141: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
11142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11143: p_api_name => l_api_name,
11144: p_pkg_name => g_pkg_name,
11145: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11138: x_msg_data => x_msg_data,
11139: p_api_type => g_api_type);
11140:
11141: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
11142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11143: p_api_name => l_api_name,
11144: p_pkg_name => g_pkg_name,
11145: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11146: x_msg_count => x_msg_count,
11141: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
11142: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11143: p_api_name => l_api_name,
11144: p_pkg_name => g_pkg_name,
11145: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11146: x_msg_count => x_msg_count,
11147: x_msg_data => x_msg_data,
11148: p_api_type => g_api_type);
11149:
11147: x_msg_data => x_msg_data,
11148: p_api_type => g_api_type);
11149:
11150: when OTHERS then
11151: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11152: p_api_name => l_api_name,
11153: p_pkg_name => g_pkg_name,
11154: p_exc_name => 'OTHERS',
11155: x_msg_count => x_msg_count,