[Home] [Help]
244: --Modification History :
245: --20-Feb-2001 avsingh Created
246: ------------------------------------------------------------------------------
247: PROCEDURE update_trx_status(p_api_version IN NUMBER,
248: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
249: x_return_status OUT NOCOPY VARCHAR2,
250: x_msg_count OUT NOCOPY NUMBER,
251: x_msg_data OUT NOCOPY VARCHAR2,
252: p_tas_id IN NUMBER,
250: x_msg_count OUT NOCOPY NUMBER,
251: x_msg_data OUT NOCOPY VARCHAR2,
252: p_tas_id IN NUMBER,
253: p_tsu_code IN VARCHAR2) IS
254: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
255: l_api_name CONSTANT VARCHAR2(30) := 'update_trx_status';
256: l_api_version CONSTANT NUMBER := 1.0;
257:
258: l_thpv_rec OKL_TRX_ASSETS_PUB.thpv_rec_type;
265:
266: l_tsu_code OKL_TRX_ASSETS.TSU_CODE%TYPE;
267: BEGIN
268: --call start activity to set savepoint
269: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
270: p_init_msg_list,
271: '_PVT',
272: x_return_status);
273: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
269: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
270: p_init_msg_list,
271: '_PVT',
272: x_return_status);
273: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
276: RAISE OKL_API.G_EXCEPTION_ERROR;
277: END IF;
270: p_init_msg_list,
271: '_PVT',
272: x_return_status);
273: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
276: RAISE OKL_API.G_EXCEPTION_ERROR;
277: END IF;
278: --check if tsu code has already been updated to processed
271: '_PVT',
272: x_return_status);
273: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
276: RAISE OKL_API.G_EXCEPTION_ERROR;
277: END IF;
278: --check if tsu code has already been updated to processed
279: OPEN tsu_code_csr(p_tas_id => p_tas_id);
272: x_return_status);
273: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
276: RAISE OKL_API.G_EXCEPTION_ERROR;
277: END IF;
278: --check if tsu code has already been updated to processed
279: OPEN tsu_code_csr(p_tas_id => p_tas_id);
280: FETCH tsu_code_csr into l_tsu_code;
279: OPEN tsu_code_csr(p_tas_id => p_tas_id);
280: FETCH tsu_code_csr into l_tsu_code;
281: If tsu_code_csr%NOTFOUND Then
282: --internal error unable to find trransaction record while trying to update status
283: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
284: p_msg_name => G_STS_UPDATE_TRX_MISSING,
285: p_token1 => G_TAS_ID_TOKEN,
286: p_token1_value => p_tas_id
287: );
284: p_msg_name => G_STS_UPDATE_TRX_MISSING,
285: p_token1 => G_TAS_ID_TOKEN,
286: p_token1_value => p_tas_id
287: );
288: Raise OKL_API.G_EXCEPTION_ERROR;
289: Else
290: If l_tsu_code = p_tsu_code Then
291: --transaction already processed by another user
292: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
288: Raise OKL_API.G_EXCEPTION_ERROR;
289: Else
290: If l_tsu_code = p_tsu_code Then
291: --transaction already processed by another user
292: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
293: p_msg_name => G_TRX_ALREADY_PROCESSED
294: );
295: Raise OKL_API.G_EXCEPTION_ERROR;
296: Else
291: --transaction already processed by another user
292: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
293: p_msg_name => G_TRX_ALREADY_PROCESSED
294: );
295: Raise OKL_API.G_EXCEPTION_ERROR;
296: Else
297: l_thpv_rec.id := p_tas_id;
298: l_thpv_rec.tsu_code := p_tsu_code;
299: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
303: x_msg_count => x_msg_count,
304: x_msg_data => x_msg_data,
305: p_thpv_rec => l_thpv_rec,
306: x_thpv_rec => l_thpv_rec_out);
307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
310: RAISE OKL_API.G_EXCEPTION_ERROR;
311: END IF;
304: x_msg_data => x_msg_data,
305: p_thpv_rec => l_thpv_rec,
306: x_thpv_rec => l_thpv_rec_out);
307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
310: RAISE OKL_API.G_EXCEPTION_ERROR;
311: END IF;
312: End If;
305: p_thpv_rec => l_thpv_rec,
306: x_thpv_rec => l_thpv_rec_out);
307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
310: RAISE OKL_API.G_EXCEPTION_ERROR;
311: END IF;
312: End If;
313: End If;
306: x_thpv_rec => l_thpv_rec_out);
307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
310: RAISE OKL_API.G_EXCEPTION_ERROR;
311: END IF;
312: End If;
313: End If;
314: CLOSE tsu_code_csr;
312: End If;
313: End If;
314: CLOSE tsu_code_csr;
315: --Call end Activity
316: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
317: Exception
318: When OKL_API.G_EXCEPTION_ERROR Then
319: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
320: (
314: CLOSE tsu_code_csr;
315: --Call end Activity
316: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
317: Exception
318: When OKL_API.G_EXCEPTION_ERROR Then
319: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
320: (
321: l_api_name,
322: G_PKG_NAME,
315: --Call end Activity
316: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
317: Exception
318: When OKL_API.G_EXCEPTION_ERROR Then
319: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
320: (
321: l_api_name,
322: G_PKG_NAME,
323: 'OKL_API.G_RET_STS_ERROR',
319: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
320: (
321: l_api_name,
322: G_PKG_NAME,
323: 'OKL_API.G_RET_STS_ERROR',
324: x_msg_count,
325: x_msg_data,
326: '_PVT'
327: );
324: x_msg_count,
325: x_msg_data,
326: '_PVT'
327: );
328: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
329: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
330: (
331: l_api_name,
332: G_PKG_NAME,
325: x_msg_data,
326: '_PVT'
327: );
328: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
329: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
330: (
331: l_api_name,
332: G_PKG_NAME,
333: 'OKL_API.G_RET_STS_UNEXP_ERROR',
329: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
330: (
331: l_api_name,
332: G_PKG_NAME,
333: 'OKL_API.G_RET_STS_UNEXP_ERROR',
334: x_msg_count,
335: x_msg_data,
336: '_PVT'
337: );
335: x_msg_data,
336: '_PVT'
337: );
338: WHEN OTHERS THEN
339: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
340: (
341: l_api_name,
342: G_PKG_NAME,
343: 'OTHERS',
359: --End of Comments
360: ------------------------------------------------------------------------------
361: PROCEDURE get_party_rec
362: (p_api_version IN NUMBER,
363: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
364: x_return_status OUT NOCOPY VARCHAR2,
365: x_msg_count OUT NOCOPY NUMBER,
366: x_msg_data OUT NOCOPY VARCHAR2,
367: p_chrv_id IN NUMBER,
367: p_chrv_id IN NUMBER,
368: x_party_tbl OUT NOCOPY party_tbl_type) is
369:
370: l_party_tab OKL_JTOT_EXTRACT.party_tab_type;
371: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
372: l_api_name CONSTANT VARCHAR2(30) := 'GET_PARTY_REC';
373: l_api_version CONSTANT NUMBER := 1.0;
374:
375: l_index number;
376: l_party_id number;
377:
378: begin
379: --call start activity to set savepoint
380: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
381: p_init_msg_list,
382: '_PVT',
383: x_return_status);
384: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
380: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
381: p_init_msg_list,
382: '_PVT',
383: x_return_status);
384: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
381: p_init_msg_list,
382: '_PVT',
383: x_return_status);
384: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
389: /*
382: '_PVT',
383: x_return_status);
384: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
389: /*
390: --get Party
383: x_return_status);
384: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_ERROR;
388: END IF;
389: /*
390: --get Party
391: OKL_JTOT_EXTRACT.Get_Party(p_api_version => p_api_version,
398: p_role_code => G_ITM_INST_PARTY,
399: p_intent => G_CONTRACT_INTENT,
400: x_party_tab => l_party_tab);
401:
402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
399: p_intent => G_CONTRACT_INTENT,
400: x_party_tab => l_party_tab);
401:
402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
407:
400: x_party_tab => l_party_tab);
401:
402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
407:
408: for l_index in 1..l_party_tab.LAST
401:
402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
407:
408: for l_index in 1..l_party_tab.LAST
409: Loop
415: End Loop;
416:
417: If (l_index = 0) Then
418: --no owner party record found
419: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
420: p_msg_name => G_PARTY_NOT_FOUND,
421: p_token1 => G_ROLE_CODE_TOKEN,
422: p_token1_value => G_ITM_INST_PARTY
423: );
420: p_msg_name => G_PARTY_NOT_FOUND,
421: p_token1 => G_ROLE_CODE_TOKEN,
422: p_token1_value => G_ITM_INST_PARTY
423: );
424: Raise OKL_API.G_EXCEPTION_ERROR;
425: End If;
426: */
427: Begin
428: SELECT P.PARTY_ID
435: AND p.party_type in ('PERSON', 'ORGANIZATION');
436:
437: Exception
438: When Others then
439: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
440: p_msg_name => G_PARTY_NOT_FOUND,
441: p_token1 => G_ROLE_CODE_TOKEN,
442: p_token1_value => G_ITM_INST_PARTY
443: );
440: p_msg_name => G_PARTY_NOT_FOUND,
441: p_token1 => G_ROLE_CODE_TOKEN,
442: p_token1_value => G_ITM_INST_PARTY
443: );
444: Raise OKL_API.G_EXCEPTION_ERROR;
445: End;
446:
447: x_party_tbl(1).party_id := l_party_id;
448: x_party_tbl(1).party_source_table := G_PARTY_SRC_TABLE;
449: x_party_tbl(1).relationship_type_code := G_PARTY_RELATIONSHIP;
450: x_party_tbl(1).contact_flag := 'N';
451:
452: --Call end Activity
453: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
454: Exception
455: When OKL_API.G_EXCEPTION_ERROR Then
456: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
457: (
451:
452: --Call end Activity
453: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
454: Exception
455: When OKL_API.G_EXCEPTION_ERROR Then
456: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
457: (
458: l_api_name,
459: G_PKG_NAME,
452: --Call end Activity
453: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
454: Exception
455: When OKL_API.G_EXCEPTION_ERROR Then
456: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
457: (
458: l_api_name,
459: G_PKG_NAME,
460: 'OKL_API.G_RET_STS_ERROR',
456: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
457: (
458: l_api_name,
459: G_PKG_NAME,
460: 'OKL_API.G_RET_STS_ERROR',
461: x_msg_count,
462: x_msg_data,
463: '_PVT'
464: );
461: x_msg_count,
462: x_msg_data,
463: '_PVT'
464: );
465: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
466: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
467: (
468: l_api_name,
469: G_PKG_NAME,
462: x_msg_data,
463: '_PVT'
464: );
465: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
466: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
467: (
468: l_api_name,
469: G_PKG_NAME,
470: 'OKL_API.G_RET_STS_UNEXP_ERROR',
466: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
467: (
468: l_api_name,
469: G_PKG_NAME,
470: 'OKL_API.G_RET_STS_UNEXP_ERROR',
471: x_msg_count,
472: x_msg_data,
473: '_PVT'
474: );
472: x_msg_data,
473: '_PVT'
474: );
475: WHEN OTHERS THEN
476: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
477: (
478: l_api_name,
479: G_PKG_NAME,
480: 'OTHERS',
494: --End of Comments
495: ------------------------------------------------------------------------------
496: PROCEDURE get_trx_rec
497: (p_api_version IN NUMBER,
498: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
499: x_return_status OUT NOCOPY VARCHAR2,
500: x_msg_count OUT NOCOPY NUMBER,
501: x_msg_data OUT NOCOPY VARCHAR2,
502: p_cle_id IN NUMBER,
502: p_cle_id IN NUMBER,
503: p_transaction_type IN VARCHAR2,
504: x_trx_rec OUT NOCOPY trx_rec_type) is
505:
506: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
507: l_api_name CONSTANT VARCHAR2(30) := 'GET_TRX_REC';
508: l_api_version CONSTANT NUMBER := 1.0;
509:
510: --Following cursor assumes that a transaction type called
514: from CSI_TXN_TYPES
515: where source_transaction_type = p_transaction_type;
516: l_trx_type_id NUMBER;
517: Begin
518: x_return_status := OKL_API.G_RET_STS_SUCCESS;
519: open okl_trx_type_csr(p_transaction_type);
520: Fetch okl_trx_type_csr
521: into l_trx_type_id;
522: If okl_trx_type_csr%NotFound Then
520: Fetch okl_trx_type_csr
521: into l_trx_type_id;
522: If okl_trx_type_csr%NotFound Then
523: --OKL LINE ACTIVATION not seeded as a source transaction in IB
524: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
525: p_msg_name => G_IB_TXN_TYPE_NOT_FOUND,
526: p_token1 => G_TXN_TYPE_TOKEN,
527: p_token1_value => p_transaction_type
528: );
525: p_msg_name => G_IB_TXN_TYPE_NOT_FOUND,
526: p_token1 => G_TXN_TYPE_TOKEN,
527: p_token1_value => p_transaction_type
528: );
529: Raise OKL_API.G_EXCEPTION_ERROR;
530: End If;
531: close okl_trx_type_csr;
532: --dbms_output.put_line('Found trx type id '||to_char(l_trx_type_id));
533: --Assign transaction Type id to seeded value in cs_lookups
537: x_trx_rec.transaction_date := sysdate;
538: --confirm whether this has to be sysdate or creation date on line
539: x_trx_rec.source_transaction_date := sysdate;
540: Exception
541: When OKL_API.G_EXCEPTION_ERROR Then
542: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
543: (
544: l_api_name,
545: G_PKG_NAME,
538: --confirm whether this has to be sysdate or creation date on line
539: x_trx_rec.source_transaction_date := sysdate;
540: Exception
541: When OKL_API.G_EXCEPTION_ERROR Then
542: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
543: (
544: l_api_name,
545: G_PKG_NAME,
546: 'OKL_API.G_RET_STS_ERROR',
542: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
543: (
544: l_api_name,
545: G_PKG_NAME,
546: 'OKL_API.G_RET_STS_ERROR',
547: x_msg_count,
548: x_msg_data,
549: '_PVT'
550: );
547: x_msg_count,
548: x_msg_data,
549: '_PVT'
550: );
551: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
552: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
553: (
554: l_api_name,
555: G_PKG_NAME,
548: x_msg_data,
549: '_PVT'
550: );
551: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
552: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
553: (
554: l_api_name,
555: G_PKG_NAME,
556: 'OKL_API.G_RET_STS_UNEXP_ERROR',
552: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
553: (
554: l_api_name,
555: G_PKG_NAME,
556: 'OKL_API.G_RET_STS_UNEXP_ERROR',
557: x_msg_count,
558: x_msg_data,
559: '_PVT'
560: );
558: x_msg_data,
559: '_PVT'
560: );
561: WHEN OTHERS THEN
562: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
563: (
564: l_api_name,
565: G_PKG_NAME,
566: 'OTHERS',
798: --01-May-2002 avsingh Created
799: --End of Comments
800: ------------------------------------------------------------------------------
801: Procedure Process_IB_Line_1(p_api_version IN NUMBER,
802: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
803: x_return_status OUT NOCOPY VARCHAR2,
804: x_msg_count OUT NOCOPY NUMBER,
805: x_msg_data OUT NOCOPY VARCHAR2,
806: p_chrv_id IN Number,
815: --bug# 3222804
816: x_inv_org_id OUT NOCOPY NUMBER
817: ) is
818:
819: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
820: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_IB_LINE_1';
821: l_api_version CONSTANT NUMBER := 1.0;
822:
823: l_party_tbl party_tbl_type;
894:
895:
896: Begin
897: --call start activity to set savepoint
898: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
899: p_init_msg_list,
900: '_PVT',
901: x_return_status);
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
898: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
899: p_init_msg_list,
900: '_PVT',
901: x_return_status);
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
905: RAISE OKL_API.G_EXCEPTION_ERROR;
906: END IF;
899: p_init_msg_list,
900: '_PVT',
901: x_return_status);
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
905: RAISE OKL_API.G_EXCEPTION_ERROR;
906: END IF;
907:
900: '_PVT',
901: x_return_status);
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
905: RAISE OKL_API.G_EXCEPTION_ERROR;
906: END IF;
907:
908: l_inst_cle_id := p_inst_cle_id;
901: x_return_status);
902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
905: RAISE OKL_API.G_EXCEPTION_ERROR;
906: END IF;
907:
908: l_inst_cle_id := p_inst_cle_id;
909: --initialize party tbl
914: x_msg_data => x_msg_data,
915: p_chrv_id => p_chrv_id,
916: x_party_tbl => l_party_tbl);
917:
918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
915: p_chrv_id => p_chrv_id,
916: x_party_tbl => l_party_tbl);
917:
918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
923:
916: x_party_tbl => l_party_tbl);
917:
918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
923:
924: --get inventory master org id
917:
918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
923:
924: --get inventory master org id
925: l_inv_mstr_org_id := null;
927: FETCH mstr_org_csr into
928: l_inv_mstr_org_id;
929: IF mstr_org_csr%NOTFOUND Then
930: --raise error for unable to find inv mstr org
931: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
932: p_msg_name => G_INV_MSTR_ORG_NOT_FOUND,
933: p_token1 => G_CONTRACT_ID_TOKEN,
934: p_token1_value => to_char(p_chrv_id)
935: );
932: p_msg_name => G_INV_MSTR_ORG_NOT_FOUND,
933: p_token1 => G_CONTRACT_ID_TOKEN,
934: p_token1_value => to_char(p_chrv_id)
935: );
936: RAISE OKL_API.G_EXCEPTION_ERROR;
937: --l_inv_mstr_org_id := 204;
938: ELSE
939: Null;
940: END IF;
967: --bug#2845959
968: l_primary_uom_code;
969: If chk_track_flag_csr%NOTFOUND Then
970: --raise error for trackable flag is 'N'
971: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
972: p_msg_name => G_INV_ITEM_NOT_FOUND,
973: p_token1 => G_INV_ITEM_ID_TOKEN,
974: p_token1_value => l_mdl_line_inv_item_id,
975: p_token2 => G_INV_ORG_ID_TOKEN,
974: p_token1_value => l_mdl_line_inv_item_id,
975: p_token2 => G_INV_ORG_ID_TOKEN,
976: p_token2_value => l_mdl_line_inv_org_id
977: );
978: RAISE OKL_API.G_EXCEPTION_ERROR;
979: End If;
980: Close chk_track_flag_csr;
981: If l_track_flag <> 'Y' Then
982: --raise error for trackable flag is 'N'
979: End If;
980: Close chk_track_flag_csr;
981: If l_track_flag <> 'Y' Then
982: --raise error for trackable flag is 'N'
983: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
984: p_msg_name => G_MODEL_ITEM_NOT_TRACKABLE,
985: p_token1 => G_ITEM_NAME_TOKEN,
986: --p_token1_value => l_item_name
987: --Bug#2372065
986: --p_token1_value => l_item_name
987: --Bug#2372065
988: p_token1_value => l_item_description
989: );
990: RAISE OKL_API.G_EXCEPTION_ERROR;
991: Elsif l_track_flag = 'Y' Then
992: --everything is fine here
993: Null;
994: End If;
993: Null;
994: End If;
995: Elsif l_mdl_line_inv_item_id is null OR l_mdl_line_inv_org_id is null Then
996: --raise error for trackable flag is 'N'
997: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
998: p_msg_name => G_MODEL_LINE_ITEM_NOT_FOUND
999: );
1000: RAISE OKL_API.G_EXCEPTION_ERROR;
1001: End If;
996: --raise error for trackable flag is 'N'
997: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
998: p_msg_name => G_MODEL_LINE_ITEM_NOT_FOUND
999: );
1000: RAISE OKL_API.G_EXCEPTION_ERROR;
1001: End If;
1002:
1003: --get party accoutnt id
1004: l_party_account := null;
1006: FETCH party_account_csr into
1007: l_party_account;
1008: IF party_account_csr%NOTFOUND Then
1009: --raise error for unable to find inv mstr org
1010: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1011: p_msg_name => G_CUST_ACCOUNT_FOUND,
1012: p_token1 => G_CONTRACT_ID_TOKEN,
1013: p_token1_value => to_char(p_chrv_id)
1014: );
1011: p_msg_name => G_CUST_ACCOUNT_FOUND,
1012: p_token1 => G_CONTRACT_ID_TOKEN,
1013: p_token1_value => to_char(p_chrv_id)
1014: );
1015: RAISE OKL_API.G_EXCEPTION_ERROR;
1016: ELSE
1017: NULL;
1018: END IF;
1019: CLOSE party_account_csr;
1028: --bug#3222804
1029: x_inv_org_id := to_number(l_mdl_line_inv_org_id);
1030:
1031: --Call end Activity
1032: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1033: EXCEPTION
1034: When OKL_API.G_EXCEPTION_ERROR Then
1035: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1036: (
1030:
1031: --Call end Activity
1032: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1033: EXCEPTION
1034: When OKL_API.G_EXCEPTION_ERROR Then
1035: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1036: (
1037: l_api_name,
1038: G_PKG_NAME,
1031: --Call end Activity
1032: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1033: EXCEPTION
1034: When OKL_API.G_EXCEPTION_ERROR Then
1035: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1036: (
1037: l_api_name,
1038: G_PKG_NAME,
1039: 'OKL_API.G_RET_STS_ERROR',
1035: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1036: (
1037: l_api_name,
1038: G_PKG_NAME,
1039: 'OKL_API.G_RET_STS_ERROR',
1040: x_msg_count,
1041: x_msg_data,
1042: '_PVT'
1043: );
1040: x_msg_count,
1041: x_msg_data,
1042: '_PVT'
1043: );
1044: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1045: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1046: (
1047: l_api_name,
1048: G_PKG_NAME,
1041: x_msg_data,
1042: '_PVT'
1043: );
1044: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1045: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1046: (
1047: l_api_name,
1048: G_PKG_NAME,
1049: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1045: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1046: (
1047: l_api_name,
1048: G_PKG_NAME,
1049: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1050: x_msg_count,
1051: x_msg_data,
1052: '_PVT'
1053: );
1051: x_msg_data,
1052: '_PVT'
1053: );
1054: WHEN OTHERS THEN
1055: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1056: (
1057: l_api_name,
1058: G_PKG_NAME,
1059: 'OTHERS',
1075: --01-May-2002 avsingh Created
1076: --End of Comments
1077: ------------------------------------------------------------------------------
1078: Procedure Process_IB_Line_2(p_api_version IN NUMBER,
1079: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1080: x_return_status OUT NOCOPY VARCHAR2,
1081: x_msg_count OUT NOCOPY NUMBER,
1082: x_msg_data OUT NOCOPY VARCHAR2,
1083: p_chrv_id IN NUMBER,
1095: --Bug# 5207066
1096: p_rbk_ib_cle_id IN NUMBER DEFAULT NULL,
1097: x_cimv_rec OUT NOCOPY cimv_rec_type) is
1098:
1099: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1100: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_IB_LINE_2';
1101: l_api_version CONSTANT NUMBER := 1.0;
1102:
1103: l_no_data_found_cimv BOOLEAN;
1137: l_inv_org_id NUMBER;
1138:
1139: Begin
1140: --call start activity to set savepoint
1141: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
1142: p_init_msg_list,
1143: '_PVT',
1144: x_return_status);
1145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1141: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
1142: p_init_msg_list,
1143: '_PVT',
1144: x_return_status);
1145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;
1142: p_init_msg_list,
1143: '_PVT',
1144: x_return_status);
1145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;
1150:
1143: '_PVT',
1144: x_return_status);
1145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;
1150:
1151: l_ib_cle_id := p_ib_cle_id;
1144: x_return_status);
1145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;
1150:
1151: l_ib_cle_id := p_ib_cle_id;
1152: l_party_account := p_party_account;
1168: l_iipv_rec := get_iipv_rec(p_kle_id => NVL(p_rbk_ib_cle_id,l_ib_cle_id), p_trx_type => p_trx_type, x_no_data_found => l_no_data_found_iipv);
1169: --dbms_output.put_line('after fetch iipv rec '||to_char(l_iipv_rec.id));
1170: If l_no_data_found_iipv Then
1171: --dbms_output.put_line('no ib creation transaction records ...!');
1172: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1173: p_msg_name => G_IB_TRX_REC_NOT_FOUND,
1174: p_token1 => G_IB_LINE_ID_TOKEN,
1175: p_token1_value => to_char(NVL(p_rbk_ib_cle_id,l_ib_cle_id))
1176: );
1173: p_msg_name => G_IB_TRX_REC_NOT_FOUND,
1174: p_token1 => G_IB_LINE_ID_TOKEN,
1175: p_token1_value => to_char(NVL(p_rbk_ib_cle_id,l_ib_cle_id))
1176: );
1177: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: Else
1179: --initialize instance rec
1180: --dbms_output.put_line('before initialize instance rec');
1181: Initialize_instance_rec(l_instance_rec);
1198: l_party_site_id;
1199: --dbms_output.put_line('Location '||to_char(l_location_id));
1200: IF instance_loc_csr%NOTFOUND Then
1201: --dbms_output.put_line('party site use records not found ...!');
1202: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1203: p_msg_name => G_INSTALL_LOC_NOT_FOUND,
1204: p_token1 => G_INST_SITE_USE_TOKEN,
1205: p_token1_value => l_iipv_rec.object_id1_new
1206: );
1203: p_msg_name => G_INSTALL_LOC_NOT_FOUND,
1204: p_token1 => G_INST_SITE_USE_TOKEN,
1205: p_token1_value => l_iipv_rec.object_id1_new
1206: );
1207: RAISE OKL_API.G_EXCEPTION_ERROR;
1208: ELSE
1209: l_instance_rec.location_id := l_location_id;
1210: l_instance_rec.INSTALL_LOCATION_ID := l_party_site_id;
1211: End If;
1240: p_cle_id => l_ib_cle_id,
1241: p_transaction_type => G_IB_BKNG_TXN_TYPE,
1242: x_trx_rec => l_txn_rec);
1243: --dbms_output.put_line('after initialize txn rec '|| x_return_status);
1244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_ERROR;
1248: END IF;
1241: p_transaction_type => G_IB_BKNG_TXN_TYPE,
1242: x_trx_rec => l_txn_rec);
1243: --dbms_output.put_line('after initialize txn rec '|| x_return_status);
1244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_ERROR;
1248: END IF;
1249:
1242: x_trx_rec => l_txn_rec);
1243: --dbms_output.put_line('after initialize txn rec '|| x_return_status);
1244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_ERROR;
1248: END IF;
1249:
1250: --initialize other parameter records to default
1243: --dbms_output.put_line('after initialize txn rec '|| x_return_status);
1244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_ERROR;
1248: END IF;
1249:
1250: --initialize other parameter records to default
1251: --dbms_output.put_line('before initialize account tbl '||to_char(l_party_tbl(1).party_id));
1289:
1290: --dbms_output.put_line('status '||x_return_status);
1291: --dbms_output.put_line('instance_id '||to_char(l_instance_rec.instance_id));
1292:
1293: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1296: RAISE OKL_API.G_EXCEPTION_ERROR;
1297: END IF;
1290: --dbms_output.put_line('status '||x_return_status);
1291: --dbms_output.put_line('instance_id '||to_char(l_instance_rec.instance_id));
1292:
1293: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1296: RAISE OKL_API.G_EXCEPTION_ERROR;
1297: END IF;
1298:
1291: --dbms_output.put_line('instance_id '||to_char(l_instance_rec.instance_id));
1292:
1293: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1296: RAISE OKL_API.G_EXCEPTION_ERROR;
1297: END IF;
1298:
1299: --update line source (okc_k_items)
1292:
1293: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1296: RAISE OKL_API.G_EXCEPTION_ERROR;
1297: END IF;
1298:
1299: --update line source (okc_k_items)
1300: If l_no_data_found_cimv then
1312: x_msg_count => x_msg_count,
1313: x_msg_data => x_msg_data,
1314: p_cimv_rec => l_cimv_rec,
1315: x_cimv_rec => l_cimv_rec_out);
1316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_ERROR;
1320: END IF;
1313: x_msg_data => x_msg_data,
1314: p_cimv_rec => l_cimv_rec,
1315: x_cimv_rec => l_cimv_rec_out);
1316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_ERROR;
1320: END IF;
1321: Else
1314: p_cimv_rec => l_cimv_rec,
1315: x_cimv_rec => l_cimv_rec_out);
1316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_ERROR;
1320: END IF;
1321: Else
1322: l_cimv_rec.object1_id1 := l_instance_rec.instance_id;
1315: x_cimv_rec => l_cimv_rec_out);
1316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1319: RAISE OKL_API.G_EXCEPTION_ERROR;
1320: END IF;
1321: Else
1322: l_cimv_rec.object1_id1 := l_instance_rec.instance_id;
1323: l_cimv_rec.object1_id2 := '#';
1330: x_msg_count => x_msg_count,
1331: x_msg_data => x_msg_data,
1332: p_cimv_rec => l_cimv_rec,
1333: x_cimv_rec => l_cimv_rec_out);
1334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1337: RAISE OKL_API.G_EXCEPTION_ERROR;
1338: END IF;
1331: x_msg_data => x_msg_data,
1332: p_cimv_rec => l_cimv_rec,
1333: x_cimv_rec => l_cimv_rec_out);
1334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1337: RAISE OKL_API.G_EXCEPTION_ERROR;
1338: END IF;
1339: x_cimv_rec := l_cimv_rec_out;
1332: p_cimv_rec => l_cimv_rec,
1333: x_cimv_rec => l_cimv_rec_out);
1334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1337: RAISE OKL_API.G_EXCEPTION_ERROR;
1338: END IF;
1339: x_cimv_rec := l_cimv_rec_out;
1340: End If;
1333: x_cimv_rec => l_cimv_rec_out);
1334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1337: RAISE OKL_API.G_EXCEPTION_ERROR;
1338: END IF;
1339: x_cimv_rec := l_cimv_rec_out;
1340: End If;
1341: -- gboomina Bug 5362977 - Start
1350: x_msg_count => x_msg_count,
1351: x_msg_data => x_msg_data,
1352: p_tas_id => l_iipv_rec.tas_id,
1353: p_tsu_code => G_TSU_CODE_PROCESSED);
1354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_ERROR;
1358: END IF;
1351: x_msg_data => x_msg_data,
1352: p_tas_id => l_iipv_rec.tas_id,
1353: p_tsu_code => G_TSU_CODE_PROCESSED);
1354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_ERROR;
1358: END IF;
1359: -- gboomina Bug 5362977 - Start
1352: p_tas_id => l_iipv_rec.tas_id,
1353: p_tsu_code => G_TSU_CODE_PROCESSED);
1354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_ERROR;
1358: END IF;
1359: -- gboomina Bug 5362977 - Start
1360: END IF;
1353: p_tsu_code => G_TSU_CODE_PROCESSED);
1354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1357: RAISE OKL_API.G_EXCEPTION_ERROR;
1358: END IF;
1359: -- gboomina Bug 5362977 - Start
1360: END IF;
1361: -- gboomina Bug 5362977 - End
1361: -- gboomina Bug 5362977 - End
1362: End If;--get iipv rec
1363: End If;--cimv_rec
1364: --Call end Activity
1365: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1366: EXCEPTION
1367: When OKL_API.G_EXCEPTION_ERROR Then
1368: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1369: (
1363: End If;--cimv_rec
1364: --Call end Activity
1365: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1366: EXCEPTION
1367: When OKL_API.G_EXCEPTION_ERROR Then
1368: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1364: --Call end Activity
1365: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1366: EXCEPTION
1367: When OKL_API.G_EXCEPTION_ERROR Then
1368: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1372: 'OKL_API.G_RET_STS_ERROR',
1368: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1372: 'OKL_API.G_RET_STS_ERROR',
1373: x_msg_count,
1374: x_msg_data,
1375: '_PVT'
1376: );
1373: x_msg_count,
1374: x_msg_data,
1375: '_PVT'
1376: );
1377: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1378: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1379: (
1380: l_api_name,
1381: G_PKG_NAME,
1374: x_msg_data,
1375: '_PVT'
1376: );
1377: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1378: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1379: (
1380: l_api_name,
1381: G_PKG_NAME,
1382: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1378: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1379: (
1380: l_api_name,
1381: G_PKG_NAME,
1382: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1383: x_msg_count,
1384: x_msg_data,
1385: '_PVT'
1386: );
1384: x_msg_data,
1385: '_PVT'
1386: );
1387: WHEN OTHERS THEN
1388: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1389: (
1390: l_api_name,
1391: G_PKG_NAME,
1392: 'OTHERS',
1409: --End of Comments
1410: ------------------------------------------------------------------------------
1411:
1412: Procedure Process_IB_Line(p_api_version IN NUMBER,
1413: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1414: x_return_status OUT NOCOPY VARCHAR2,
1415: x_msg_count OUT NOCOPY NUMBER,
1416: x_msg_data OUT NOCOPY VARCHAR2,
1417: p_chrv_id IN NUMBER,
1428: --Bug# 3222804
1429: p_inv_org_id IN NUMBER,
1430: x_cimv_rec OUT NOCOPY cimv_rec_type) is
1431:
1432: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1433: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_IB_LINE_2';
1434: l_api_version CONSTANT NUMBER := 1.0;
1435:
1436: l_no_data_found_cimv BOOLEAN;
1555: l_inv_org_id NUMBER;
1556:
1557: Begin
1558: --call start activity to set savepoint
1559: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
1560: p_init_msg_list,
1561: '_PVT',
1562: x_return_status);
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1559: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
1560: p_init_msg_list,
1561: '_PVT',
1562: x_return_status);
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1560: p_init_msg_list,
1561: '_PVT',
1562: x_return_status);
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568:
1561: '_PVT',
1562: x_return_status);
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568:
1569: l_inst_cle_id := p_inst_cle_id;
1562: x_return_status);
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568:
1569: l_inst_cle_id := p_inst_cle_id;
1570:
1595: --bug#2845959
1596: l_primary_uom_code;
1597: If chk_track_flag_csr%NOTFOUND Then
1598: --raise error for trackable flag is 'N'
1599: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1600: p_msg_name => G_INV_ITEM_NOT_FOUND,
1601: p_token1 => G_INV_ITEM_ID_TOKEN,
1602: p_token1_value => l_mdl_line_inv_item_id,
1603: p_token2 => G_INV_ORG_ID_TOKEN,
1602: p_token1_value => l_mdl_line_inv_item_id,
1603: p_token2 => G_INV_ORG_ID_TOKEN,
1604: p_token2_value => l_mdl_line_inv_org_id
1605: );
1606: RAISE OKL_API.G_EXCEPTION_ERROR;
1607: End If;
1608: Close chk_track_flag_csr;
1609: If l_track_flag <> 'Y' Then
1610: --raise error for trackable flag is 'N'
1607: End If;
1608: Close chk_track_flag_csr;
1609: If l_track_flag <> 'Y' Then
1610: --raise error for trackable flag is 'N'
1611: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1612: p_msg_name => G_MODEL_ITEM_NOT_TRACKABLE,
1613: p_token1 => G_ITEM_NAME_TOKEN,
1614: --p_token1_value => l_item_name
1615: --Bug#2372065
1614: --p_token1_value => l_item_name
1615: --Bug#2372065
1616: p_token1_value => l_item_description
1617: );
1618: RAISE OKL_API.G_EXCEPTION_ERROR;
1619: Elsif l_track_flag = 'Y' Then
1620: --everything is fine here
1621: Null;
1622: End If;
1621: Null;
1622: End If;
1623: Elsif l_mdl_line_inv_item_id is null OR l_mdl_line_inv_org_id is null Then
1624: --raise error for trackable flag is 'N'
1625: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1626: p_msg_name => G_MODEL_LINE_ITEM_NOT_FOUND
1627: );
1628: RAISE OKL_API.G_EXCEPTION_ERROR;
1629: End If;
1624: --raise error for trackable flag is 'N'
1625: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1626: p_msg_name => G_MODEL_LINE_ITEM_NOT_FOUND
1627: );
1628: RAISE OKL_API.G_EXCEPTION_ERROR;
1629: End If;
1630:
1631: l_ib_cle_id := p_ib_cle_id;
1632: l_party_account := p_party_account;
1646: l_iipv_rec := get_iipv_rec(p_kle_id => l_ib_cle_id, p_trx_type => p_trx_type, x_no_data_found => l_no_data_found_iipv);
1647: --dbms_output.put_line('after fetch iipv rec '||to_char(l_iipv_rec.id));
1648: If l_no_data_found_iipv Then
1649: --dbms_output.put_line('no ib creation transaction records ...!');
1650: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1651: p_msg_name => G_IB_TRX_REC_NOT_FOUND,
1652: p_token1 => G_IB_LINE_ID_TOKEN,
1653: p_token1_value => to_char(l_ib_cle_id)
1654: );
1651: p_msg_name => G_IB_TRX_REC_NOT_FOUND,
1652: p_token1 => G_IB_LINE_ID_TOKEN,
1653: p_token1_value => to_char(l_ib_cle_id)
1654: );
1655: RAISE OKL_API.G_EXCEPTION_ERROR;
1656: Else
1657: --rkuttiya added for IB Link user story 22-jan-08
1658: -- validate the existence of a serial number instance created by
1659: -- applications. If matching serial number inventory item combination
1711: l_party_site_id;
1712: --dbms_output.put_line('Location '||to_char(l_location_id));
1713: IF instance_loc_csr%NOTFOUND Then
1714: --dbms_output.put_line('party site use records not found ...!');
1715: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1716: p_msg_name => G_INSTALL_LOC_NOT_FOUND,
1717: p_token1 => G_INST_SITE_USE_TOKEN,
1718: p_token1_value => l_iipv_rec.object_id1_new
1719: );
1716: p_msg_name => G_INSTALL_LOC_NOT_FOUND,
1717: p_token1 => G_INST_SITE_USE_TOKEN,
1718: p_token1_value => l_iipv_rec.object_id1_new
1719: );
1720: RAISE OKL_API.G_EXCEPTION_ERROR;
1721: ELSE
1722: l_instance_rec.location_id := l_location_id;
1723: l_instance_rec.INSTALL_LOCATION_ID := l_party_site_id;
1724: End If;
1753: p_cle_id => l_ib_cle_id,
1754: p_transaction_type => G_IB_BKNG_TXN_TYPE,
1755: x_trx_rec => l_txn_rec);
1756: --dbms_output.put_line('after initialize txn rec '|| x_return_status);
1757: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_ERROR;
1761: END IF;
1754: p_transaction_type => G_IB_BKNG_TXN_TYPE,
1755: x_trx_rec => l_txn_rec);
1756: --dbms_output.put_line('after initialize txn rec '|| x_return_status);
1757: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_ERROR;
1761: END IF;
1762:
1755: x_trx_rec => l_txn_rec);
1756: --dbms_output.put_line('after initialize txn rec '|| x_return_status);
1757: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_ERROR;
1761: END IF;
1762:
1763: --initialize other parameter records to default
1756: --dbms_output.put_line('after initialize txn rec '|| x_return_status);
1757: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1760: RAISE OKL_API.G_EXCEPTION_ERROR;
1761: END IF;
1762:
1763: --initialize other parameter records to default
1764: --dbms_output.put_line('before initialize account tbl '||to_char(l_party_tbl(1).party_id));
1803:
1804: --dbms_output.put_line('status '||x_return_status);
1805: --dbms_output.put_line('instance_id '||to_char(l_instance_rec.instance_id));
1806:
1807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1810: RAISE OKL_API.G_EXCEPTION_ERROR;
1811: END IF;
1804: --dbms_output.put_line('status '||x_return_status);
1805: --dbms_output.put_line('instance_id '||to_char(l_instance_rec.instance_id));
1806:
1807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1810: RAISE OKL_API.G_EXCEPTION_ERROR;
1811: END IF;
1812: END IF;--check for existing serial no instance
1805: --dbms_output.put_line('instance_id '||to_char(l_instance_rec.instance_id));
1806:
1807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1810: RAISE OKL_API.G_EXCEPTION_ERROR;
1811: END IF;
1812: END IF;--check for existing serial no instance
1813:
1806:
1807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1810: RAISE OKL_API.G_EXCEPTION_ERROR;
1811: END IF;
1812: END IF;--check for existing serial no instance
1813:
1814: --update line source (okc_k_items)
1826: x_msg_count => x_msg_count,
1827: x_msg_data => x_msg_data,
1828: p_cimv_rec => l_cimv_rec,
1829: x_cimv_rec => l_cimv_rec_out);
1830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1833: RAISE OKL_API.G_EXCEPTION_ERROR;
1834: END IF;
1827: x_msg_data => x_msg_data,
1828: p_cimv_rec => l_cimv_rec,
1829: x_cimv_rec => l_cimv_rec_out);
1830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1833: RAISE OKL_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: Else
1828: p_cimv_rec => l_cimv_rec,
1829: x_cimv_rec => l_cimv_rec_out);
1830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1833: RAISE OKL_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: Else
1836: l_cimv_rec.object1_id1 := l_instance_rec.instance_id;
1829: x_cimv_rec => l_cimv_rec_out);
1830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1833: RAISE OKL_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: Else
1836: l_cimv_rec.object1_id1 := l_instance_rec.instance_id;
1837: l_cimv_rec.object1_id2 := '#';
1843: x_msg_count => x_msg_count,
1844: x_msg_data => x_msg_data,
1845: p_cimv_rec => l_cimv_rec,
1846: x_cimv_rec => l_cimv_rec_out);
1847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1850: RAISE OKL_API.G_EXCEPTION_ERROR;
1851: END IF;
1844: x_msg_data => x_msg_data,
1845: p_cimv_rec => l_cimv_rec,
1846: x_cimv_rec => l_cimv_rec_out);
1847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1850: RAISE OKL_API.G_EXCEPTION_ERROR;
1851: END IF;
1852: x_cimv_rec := l_cimv_rec_out;
1845: p_cimv_rec => l_cimv_rec,
1846: x_cimv_rec => l_cimv_rec_out);
1847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1850: RAISE OKL_API.G_EXCEPTION_ERROR;
1851: END IF;
1852: x_cimv_rec := l_cimv_rec_out;
1853: End If;
1846: x_cimv_rec => l_cimv_rec_out);
1847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1850: RAISE OKL_API.G_EXCEPTION_ERROR;
1851: END IF;
1852: x_cimv_rec := l_cimv_rec_out;
1853: End If;
1854: --update transaction status
1858: x_msg_count => x_msg_count,
1859: x_msg_data => x_msg_data,
1860: p_tas_id => l_iipv_rec.tas_id,
1861: p_tsu_code => G_TSU_CODE_PROCESSED);
1862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1865: RAISE OKL_API.G_EXCEPTION_ERROR;
1866: END IF;
1859: x_msg_data => x_msg_data,
1860: p_tas_id => l_iipv_rec.tas_id,
1861: p_tsu_code => G_TSU_CODE_PROCESSED);
1862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1865: RAISE OKL_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: End If;--get iipv rec
1860: p_tas_id => l_iipv_rec.tas_id,
1861: p_tsu_code => G_TSU_CODE_PROCESSED);
1862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1865: RAISE OKL_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: End If;--get iipv rec
1868: End If;--cimv_rec
1861: p_tsu_code => G_TSU_CODE_PROCESSED);
1862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1865: RAISE OKL_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: End If;--get iipv rec
1868: End If;--cimv_rec
1869: --Call end Activity
1866: END IF;
1867: End If;--get iipv rec
1868: End If;--cimv_rec
1869: --Call end Activity
1870: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1871: EXCEPTION
1872: When OKL_API.G_EXCEPTION_ERROR Then
1873: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1874: (
1868: End If;--cimv_rec
1869: --Call end Activity
1870: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1871: EXCEPTION
1872: When OKL_API.G_EXCEPTION_ERROR Then
1873: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1874: (
1875: l_api_name,
1876: G_PKG_NAME,
1869: --Call end Activity
1870: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1871: EXCEPTION
1872: When OKL_API.G_EXCEPTION_ERROR Then
1873: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1874: (
1875: l_api_name,
1876: G_PKG_NAME,
1877: 'OKL_API.G_RET_STS_ERROR',
1873: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1874: (
1875: l_api_name,
1876: G_PKG_NAME,
1877: 'OKL_API.G_RET_STS_ERROR',
1878: x_msg_count,
1879: x_msg_data,
1880: '_PVT'
1881: );
1878: x_msg_count,
1879: x_msg_data,
1880: '_PVT'
1881: );
1882: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1883: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1884: (
1885: l_api_name,
1886: G_PKG_NAME,
1879: x_msg_data,
1880: '_PVT'
1881: );
1882: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1883: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1884: (
1885: l_api_name,
1886: G_PKG_NAME,
1887: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1883: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1884: (
1885: l_api_name,
1886: G_PKG_NAME,
1887: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1888: x_msg_count,
1889: x_msg_data,
1890: '_PVT'
1891: );
1889: x_msg_data,
1890: '_PVT'
1891: );
1892: WHEN OTHERS THEN
1893: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1894: (
1895: l_api_name,
1896: G_PKG_NAME,
1897: 'OTHERS',
1915: --Notes : Assigns values to transaction_type_id and source_line_ref_id
1916: --End of Comments
1917: --------------------------------------------------------------------------------
1918: Procedure ACTIVATE_IB_INSTANCE(p_api_version IN NUMBER,
1919: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1920: x_return_status OUT NOCOPY VARCHAR2,
1921: x_msg_count OUT NOCOPY NUMBER,
1922: x_msg_data OUT NOCOPY VARCHAR2,
1923: p_chrv_id IN NUMBER,
1923: p_chrv_id IN NUMBER,
1924: p_call_mode IN VARCHAR2,
1925: x_cimv_tbl OUT NOCOPY cimv_tbl_type) is
1926:
1927: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1928: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATE_IB_INSTANCE';
1929: l_api_version CONSTANT NUMBER := 1.0;
1930: l_trx_type VARCHAR2(30) := G_TRX_LINE_TYPE_BOOK;
1931:
2001:
2002:
2003: Begin
2004: --call start activity to set savepoint
2005: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
2006: p_init_msg_list,
2007: '_PVT',
2008: x_return_status);
2009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2005: l_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
2006: p_init_msg_list,
2007: '_PVT',
2008: x_return_status);
2009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2006: p_init_msg_list,
2007: '_PVT',
2008: x_return_status);
2009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014: Open chk_subclass_csr(p_chrv_id);
2007: '_PVT',
2008: x_return_status);
2009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014: Open chk_subclass_csr(p_chrv_id);
2015: Fetch chk_subclass_csr into
2008: x_return_status);
2009: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014: Open chk_subclass_csr(p_chrv_id);
2015: Fetch chk_subclass_csr into
2016: l_scs_code,
2018: l_inv_org_id,
2019: l_start_date;
2020: If chk_subclass_csr%NOTFOUND Then
2021: --dbms_output.put_line('Contract Not Found ....!');
2022: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2023: p_msg_name => G_CONTRACT_NOT_FOUND,
2024: p_token1 => G_CONTRACT_ID_TOKEN,
2025: p_token1_value => to_char(p_chrv_id)
2026: );
2023: p_msg_name => G_CONTRACT_NOT_FOUND,
2024: p_token1 => G_CONTRACT_ID_TOKEN,
2025: p_token1_value => to_char(p_chrv_id)
2026: );
2027: RAISE OKL_API.G_EXCEPTION_ERROR;
2028: --Handle error appropriately
2029: ElsIf upper(l_sts_code) <> G_APPROVED_STS_CODE Then
2030: --dbms_output.put_line('Contract has not been approved...!');
2031: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2027: RAISE OKL_API.G_EXCEPTION_ERROR;
2028: --Handle error appropriately
2029: ElsIf upper(l_sts_code) <> G_APPROVED_STS_CODE Then
2030: --dbms_output.put_line('Contract has not been approved...!');
2031: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2032: p_msg_name => G_CONTRACT_NOT_APPROVED
2033: );
2034: RAISE OKL_API.G_EXCEPTION_ERROR;
2035: --raise appropriate exception
2030: --dbms_output.put_line('Contract has not been approved...!');
2031: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2032: p_msg_name => G_CONTRACT_NOT_APPROVED
2033: );
2034: RAISE OKL_API.G_EXCEPTION_ERROR;
2035: --raise appropriate exception
2036: ElsIf l_scs_code <> G_LEASE_SCS_CODE and upper(l_sts_code) = G_APPROVED_STS_CODE Then
2037: --dbms_output.put_line('Contract is not a lease contract...');
2038: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2034: RAISE OKL_API.G_EXCEPTION_ERROR;
2035: --raise appropriate exception
2036: ElsIf l_scs_code <> G_LEASE_SCS_CODE and upper(l_sts_code) = G_APPROVED_STS_CODE Then
2037: --dbms_output.put_line('Contract is not a lease contract...');
2038: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2039: p_msg_name => G_CONTRACT_NOT_LEASE
2040: );
2041: RAISE OKL_API.G_EXCEPTION_ERROR;
2042: ElsIf l_scs_code = G_LEASE_SCS_CODE and upper(l_sts_code) = G_APPROVED_STS_CODE Then
2037: --dbms_output.put_line('Contract is not a lease contract...');
2038: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2039: p_msg_name => G_CONTRACT_NOT_LEASE
2040: );
2041: RAISE OKL_API.G_EXCEPTION_ERROR;
2042: ElsIf l_scs_code = G_LEASE_SCS_CODE and upper(l_sts_code) = G_APPROVED_STS_CODE Then
2043: --get inventory master org id
2044: l_inv_mstr_org_id := null;
2045: OPEN mstr_org_csr (p_chr_id => p_chrv_id);
2046: FETCH mstr_org_csr into
2047: l_inv_mstr_org_id;
2048: IF mstr_org_csr%NOTFOUND Then
2049: --raise error for unable to find inv mstr org
2050: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2051: p_msg_name => G_INV_MSTR_ORG_NOT_FOUND,
2052: p_token1 => G_CONTRACT_ID_TOKEN,
2053: p_token1_value => to_char(p_chrv_id)
2054: );
2051: p_msg_name => G_INV_MSTR_ORG_NOT_FOUND,
2052: p_token1 => G_CONTRACT_ID_TOKEN,
2053: p_token1_value => to_char(p_chrv_id)
2054: );
2055: RAISE OKL_API.G_EXCEPTION_ERROR;
2056: --l_inv_mstr_org_id := 204;
2057: ELSE
2058: Null;
2059: END IF;
2064: FETCH party_account_csr into
2065: l_party_account;
2066: IF party_account_csr%NOTFOUND Then
2067: --raise error for unable to find inv mstr org
2068: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2069: p_msg_name => G_CUST_ACCOUNT_FOUND,
2070: p_token1 => G_CONTRACT_ID_TOKEN,
2071: p_token1_value => to_char(p_chrv_id)
2072: );
2069: p_msg_name => G_CUST_ACCOUNT_FOUND,
2070: p_token1 => G_CONTRACT_ID_TOKEN,
2071: p_token1_value => to_char(p_chrv_id)
2072: );
2073: RAISE OKL_API.G_EXCEPTION_ERROR;
2074: ELSE
2075: NULL;
2076: END IF;
2077: CLOSE party_account_csr;
2083: x_msg_data => x_msg_data,
2084: p_chrv_id => p_chrv_id,
2085: x_party_tbl => l_party_tbl);
2086:
2087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2084: p_chrv_id => p_chrv_id,
2085: x_party_tbl => l_party_tbl);
2086:
2087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2092:
2085: x_party_tbl => l_party_tbl);
2086:
2087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2092:
2093: l_counter := 1;
2086:
2087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2090: RAISE OKL_API.G_EXCEPTION_ERROR;
2091: END IF;
2092:
2093: l_counter := 1;
2094: l_ib_line_count := 1;
2145: p_inv_org_id => l_inv_org_id,
2146: x_cimv_rec => l_cimv_rec);
2147:
2148: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2153: END IF;
2146: x_cimv_rec => l_cimv_rec);
2147:
2148: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2153: END IF;
2154: l_cimv_tbl(l_ib_line_count) := l_cimv_rec;
2147:
2148: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2153: END IF;
2154: l_cimv_tbl(l_ib_line_count) := l_cimv_rec;
2155: l_ib_line_count := l_ib_line_count+1;
2148: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2153: END IF;
2154: l_cimv_tbl(l_ib_line_count) := l_cimv_rec;
2155: l_ib_line_count := l_ib_line_count+1;
2156:
2163: End If;
2164: Close chk_subclass_csr;
2165: x_cimv_tbl := l_cimv_tbl;
2166: --Call end Activity
2167: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2168: EXCEPTION
2169: When OKL_API.G_EXCEPTION_ERROR Then
2170: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2171: (
2165: x_cimv_tbl := l_cimv_tbl;
2166: --Call end Activity
2167: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2168: EXCEPTION
2169: When OKL_API.G_EXCEPTION_ERROR Then
2170: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2171: (
2172: l_api_name,
2173: G_PKG_NAME,
2166: --Call end Activity
2167: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2168: EXCEPTION
2169: When OKL_API.G_EXCEPTION_ERROR Then
2170: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2171: (
2172: l_api_name,
2173: G_PKG_NAME,
2174: 'OKL_API.G_RET_STS_ERROR',
2170: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2171: (
2172: l_api_name,
2173: G_PKG_NAME,
2174: 'OKL_API.G_RET_STS_ERROR',
2175: x_msg_count,
2176: x_msg_data,
2177: '_PVT'
2178: );
2175: x_msg_count,
2176: x_msg_data,
2177: '_PVT'
2178: );
2179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2181: (
2182: l_api_name,
2183: G_PKG_NAME,
2176: x_msg_data,
2177: '_PVT'
2178: );
2179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2181: (
2182: l_api_name,
2183: G_PKG_NAME,
2184: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2181: (
2182: l_api_name,
2183: G_PKG_NAME,
2184: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2185: x_msg_count,
2186: x_msg_data,
2187: '_PVT'
2188: );
2186: x_msg_data,
2187: '_PVT'
2188: );
2189: WHEN OTHERS THEN
2190: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2191: (
2192: l_api_name,
2193: G_PKG_NAME,
2194: 'OTHERS',
2209: --Notes : Assigns values to transaction_type_id and source_line_ref_id
2210: --End of Comments
2211: ------------------------------------------------------------------------------
2212: Procedure ACTIVATE_RBK_IB_INST(p_api_version IN NUMBER,
2213: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2214: x_return_status OUT NOCOPY VARCHAR2,
2215: x_msg_count OUT NOCOPY NUMBER,
2216: x_msg_data OUT NOCOPY VARCHAR2,
2217: p_fin_ast_cle_id IN NUMBER,
2216: x_msg_data OUT NOCOPY VARCHAR2,
2217: p_fin_ast_cle_id IN NUMBER,
2218: x_cimv_tbl OUT NOCOPY cimv_tbl_type) is
2219:
2220: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2221: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATE_RBK_IB_INST';
2222: l_api_version CONSTANT NUMBER := 1.0;
2223: l_trx_type VARCHAR2(30) := G_TRX_LINE_TYPE_REBOOK;
2224:
2271:
2272:
2273: Begin
2274: --call start activity to set savepoint
2275: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
2276: p_init_msg_list,
2277: '_PVT',
2278: x_return_status);
2279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2275: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
2276: p_init_msg_list,
2277: '_PVT',
2278: x_return_status);
2279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2276: p_init_msg_list,
2277: '_PVT',
2278: x_return_status);
2279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2277: '_PVT',
2278: x_return_status);
2279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2285: -- Open cursor to get IB lines
2278: x_return_status);
2279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2285: -- Open cursor to get IB lines
2286: Open ib_line_csr(p_fin_ast_cle_id => p_fin_ast_cle_id , p_lty_code => l_ib_line_lty_code);
2308: --bug# 3222804
2309: x_inv_org_id => l_inv_org_id);
2310:
2311: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2315: RAISE OKL_API.G_EXCEPTION_ERROR;
2316: END IF;
2309: x_inv_org_id => l_inv_org_id);
2310:
2311: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2315: RAISE OKL_API.G_EXCEPTION_ERROR;
2316: END IF;
2317: --End If;
2310:
2311: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2315: RAISE OKL_API.G_EXCEPTION_ERROR;
2316: END IF;
2317: --End If;
2318: --process for each ib line (this calls ib create item instance api)
2311: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2314: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2315: RAISE OKL_API.G_EXCEPTION_ERROR;
2316: END IF;
2317: --End If;
2318: --process for each ib line (this calls ib create item instance api)
2319: Process_IB_Line_2(p_api_version => p_api_version,
2334: --bug#3222804
2335: p_inv_org_id => l_inv_org_id,
2336: x_cimv_rec => l_cimv_rec);
2337: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2338: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2340: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2341: RAISE OKL_API.G_EXCEPTION_ERROR;
2342: END IF;
2335: p_inv_org_id => l_inv_org_id,
2336: x_cimv_rec => l_cimv_rec);
2337: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2338: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2340: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2341: RAISE OKL_API.G_EXCEPTION_ERROR;
2342: END IF;
2343: l_cimv_tbl(l_ib_line_count) := l_cimv_rec;
2336: x_cimv_rec => l_cimv_rec);
2337: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2338: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2340: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2341: RAISE OKL_API.G_EXCEPTION_ERROR;
2342: END IF;
2343: l_cimv_tbl(l_ib_line_count) := l_cimv_rec;
2344: End Loop;
2337: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
2338: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2340: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2341: RAISE OKL_API.G_EXCEPTION_ERROR;
2342: END IF;
2343: l_cimv_tbl(l_ib_line_count) := l_cimv_rec;
2344: End Loop;
2345: Close ib_line_csr;
2344: End Loop;
2345: Close ib_line_csr;
2346: x_cimv_tbl := l_cimv_tbl;
2347: --Call end Activity
2348: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2349: EXCEPTION
2350: When OKL_API.G_EXCEPTION_ERROR Then
2351: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2352: (
2346: x_cimv_tbl := l_cimv_tbl;
2347: --Call end Activity
2348: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2349: EXCEPTION
2350: When OKL_API.G_EXCEPTION_ERROR Then
2351: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2347: --Call end Activity
2348: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2349: EXCEPTION
2350: When OKL_API.G_EXCEPTION_ERROR Then
2351: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2355: 'OKL_API.G_RET_STS_ERROR',
2351: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2352: (
2353: l_api_name,
2354: G_PKG_NAME,
2355: 'OKL_API.G_RET_STS_ERROR',
2356: x_msg_count,
2357: x_msg_data,
2358: '_PVT'
2359: );
2356: x_msg_count,
2357: x_msg_data,
2358: '_PVT'
2359: );
2360: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2361: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2362: (
2363: l_api_name,
2364: G_PKG_NAME,
2357: x_msg_data,
2358: '_PVT'
2359: );
2360: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2361: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2362: (
2363: l_api_name,
2364: G_PKG_NAME,
2365: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2361: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2362: (
2363: l_api_name,
2364: G_PKG_NAME,
2365: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2366: x_msg_count,
2367: x_msg_data,
2368: '_PVT'
2369: );
2367: x_msg_data,
2368: '_PVT'
2369: );
2370: WHEN OTHERS THEN
2371: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2372: (
2373: l_api_name,
2374: G_PKG_NAME,
2375: 'OTHERS',
2400: x_msg_data OUT NOCOPY VARCHAR2,
2401: p_rel_chr_id IN NUMBER
2402: ) IS
2403:
2404: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
2405: l_api_name CONSTANT varchar2(30) := 'RELEASE_IB_INSTANCE';
2406: l_api_version CONSTANT NUMBER := 1.0;
2407:
2408: ------------------------------------------------
2523: l_instance_header_rec CSI_DATASTRUCTURES_PUB.instance_header_rec;
2524:
2525: begin
2526:
2527: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2528: --call start activity to set savepoint
2529: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
2530: p_init_msg_list,
2531: '_PVT',
2525: begin
2526:
2527: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2528: --call start activity to set savepoint
2529: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
2530: p_init_msg_list,
2531: '_PVT',
2532: x_return_status);
2533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2529: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
2530: p_init_msg_list,
2531: '_PVT',
2532: x_return_status);
2533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2536: RAISE OKL_API.G_EXCEPTION_ERROR;
2537: END IF;
2530: p_init_msg_list,
2531: '_PVT',
2532: x_return_status);
2533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2536: RAISE OKL_API.G_EXCEPTION_ERROR;
2537: END IF;
2538:
2531: '_PVT',
2532: x_return_status);
2533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2536: RAISE OKL_API.G_EXCEPTION_ERROR;
2537: END IF;
2538:
2539: --1.0 Get the release asset customer and account
2532: x_return_status);
2533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2536: RAISE OKL_API.G_EXCEPTION_ERROR;
2537: END IF;
2538:
2539: --1.0 Get the release asset customer and account
2540: Open l_hdr_csr(p_rel_chr_id => p_rel_chr_id);
2540: Open l_hdr_csr(p_rel_chr_id => p_rel_chr_id);
2541: Fetch l_hdr_csr into l_hdr_rec;
2542: If l_hdr_csr%NOTFOUND then
2543: --error : contract header data not found
2544: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2545: p_msg_name => G_CONTRACT_NOT_FOUND,
2546: p_token1 => G_CONTRACT_ID_TOKEN,
2547: p_token1_value => to_char(p_rel_chr_id)
2548: );
2545: p_msg_name => G_CONTRACT_NOT_FOUND,
2546: p_token1 => G_CONTRACT_ID_TOKEN,
2547: p_token1_value => to_char(p_rel_chr_id)
2548: );
2549: RAISE OKL_API.G_EXCEPTION_ERROR;
2550: End If;
2551: Close l_hdr_csr;
2552:
2553: --1.1 check if the contract status is 'APPROVED' and that it is a LEASE contract
2552:
2553: --1.1 check if the contract status is 'APPROVED' and that it is a LEASE contract
2554: If upper(l_hdr_rec.sts_code) <> G_APPROVED_STS_CODE Then
2555: --error : contract is not APPROVED
2556: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2557: p_msg_name => G_CONTRACT_NOT_APPROVED
2558: );
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: ElsIf l_hdr_rec.scs_code <> G_LEASE_SCS_CODE and upper(l_hdr_rec.sts_code) = G_APPROVED_STS_CODE Then
2555: --error : contract is not APPROVED
2556: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2557: p_msg_name => G_CONTRACT_NOT_APPROVED
2558: );
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: ElsIf l_hdr_rec.scs_code <> G_LEASE_SCS_CODE and upper(l_hdr_rec.sts_code) = G_APPROVED_STS_CODE Then
2561: --error : Contract is not lease
2562: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2563: p_msg_name => G_CONTRACT_NOT_LEASE
2558: );
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: ElsIf l_hdr_rec.scs_code <> G_LEASE_SCS_CODE and upper(l_hdr_rec.sts_code) = G_APPROVED_STS_CODE Then
2561: --error : Contract is not lease
2562: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2563: p_msg_name => G_CONTRACT_NOT_LEASE
2564: );
2565: RAISE OKL_API.G_EXCEPTION_ERROR;
2566: End If;
2561: --error : Contract is not lease
2562: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2563: p_msg_name => G_CONTRACT_NOT_LEASE
2564: );
2565: RAISE OKL_API.G_EXCEPTION_ERROR;
2566: End If;
2567:
2568: --2.0 Get the ib instance id and install at location party site use id
2569: Open l_ib_line_csr(p_rel_chr_id => p_rel_chr_id);
2590: x_msg_count => x_msg_count,
2591: x_msg_data => x_msg_data);
2592:
2593:
2594: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2597: RAISE OKL_API.G_EXCEPTION_ERROR;
2598: END IF;
2591: x_msg_data => x_msg_data);
2592:
2593:
2594: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2597: RAISE OKL_API.G_EXCEPTION_ERROR;
2598: END IF;
2599:
2592:
2593:
2594: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2597: RAISE OKL_API.G_EXCEPTION_ERROR;
2598: END IF;
2599:
2600:
2593:
2594: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2597: RAISE OKL_API.G_EXCEPTION_ERROR;
2598: END IF;
2599:
2600:
2601: If l_instance_header_tbl.COUNT > 0 then
2606: Open l_party_site_csr (p_site_use_id => to_number(l_ib_line_rec.object_id1_new));
2607: Fetch l_party_site_csr into l_party_site_rec;
2608: If l_party_site_csr%NOTFOUND then
2609: --error : instance location id not found
2610: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2611: p_msg_name => G_INSTALL_LOC_NOT_FOUND,
2612: p_token1 => G_INST_SITE_USE_TOKEN,
2613: p_token1_value => l_ib_line_rec.object_id1_new
2614: );
2611: p_msg_name => G_INSTALL_LOC_NOT_FOUND,
2612: p_token1 => G_INST_SITE_USE_TOKEN,
2613: p_token1_value => l_ib_line_rec.object_id1_new
2614: );
2615: RAISE OKL_API.G_EXCEPTION_ERROR;
2616: End If;
2617: close l_party_site_csr;
2618:
2619: --5.0 Decide if it is required to call instance update API
2626: End If;
2627: CLose l_csi_csr;
2628:
2629: --check for party and account changes
2630: If nvl(l_csi_rec.owner_party_source_table,OKL_API.G_MISS_CHAR) = 'HZ_PARTIES' then
2631: If to_number(l_hdr_rec.object1_id1) <> l_csi_rec.owner_party_id then
2632: l_update_required := 'Y';
2633: l_count := l_party_tbl.COUNT;
2634: Open l_csi_owner_csr(p_instance_id => l_instance_header_rec.instance_id);
2656: End If;
2657: End If;
2658:
2659: --check for install location changes
2660: If nvl(l_instance_header_rec.location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' then
2661: If l_party_site_rec.location_id <> l_instance_header_rec.location_id then
2662: l_update_required := 'Y';
2663: l_instance_rec.location_id := l_party_site_rec.location_id;
2664: End If;
2661: If l_party_site_rec.location_id <> l_instance_header_rec.location_id then
2662: l_update_required := 'Y';
2663: l_instance_rec.location_id := l_party_site_rec.location_id;
2664: End If;
2665: Elsif nvl(l_instance_header_rec.location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' then
2666: if l_party_site_rec.party_site_id <> l_instance_header_rec.location_id then
2667: l_update_required := 'Y';
2668: l_instance_rec.location_id := l_party_site_rec.party_site_id;
2669: end If;
2668: l_instance_rec.location_id := l_party_site_rec.party_site_id;
2669: end If;
2670: End If;
2671:
2672: If nvl(l_instance_header_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' then
2673: If l_party_site_rec.location_id <> l_instance_header_rec.install_location_id then
2674: l_update_required := 'Y';
2675: l_instance_rec.install_location_id := l_party_site_rec.location_id;
2676: End If;
2673: If l_party_site_rec.location_id <> l_instance_header_rec.install_location_id then
2674: l_update_required := 'Y';
2675: l_instance_rec.install_location_id := l_party_site_rec.location_id;
2676: End If;
2677: Elsif nvl(l_instance_header_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' then
2678: if l_party_site_rec.party_site_id <> l_instance_header_rec.install_location_id then
2679: l_update_required := 'Y';
2680: l_instance_rec.install_location_id := l_party_site_rec.party_site_id;
2681: end If;
2695: p_cle_id => l_ib_line_rec.cleb_ib_id,
2696: p_transaction_type => G_IB_BKNG_TXN_TYPE,
2697: x_trx_rec => l_transaction_rec);
2698:
2699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2702: RAISE OKL_API.G_EXCEPTION_ERROR;
2703: END IF;
2696: p_transaction_type => G_IB_BKNG_TXN_TYPE,
2697: x_trx_rec => l_transaction_rec);
2698:
2699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2702: RAISE OKL_API.G_EXCEPTION_ERROR;
2703: END IF;
2704:
2697: x_trx_rec => l_transaction_rec);
2698:
2699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2702: RAISE OKL_API.G_EXCEPTION_ERROR;
2703: END IF;
2704:
2705: l_instance_rec.instance_id := l_instance_header_rec.instance_id;
2698:
2699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2702: RAISE OKL_API.G_EXCEPTION_ERROR;
2703: END IF;
2704:
2705: l_instance_rec.instance_id := l_instance_header_rec.instance_id;
2706: l_instance_rec.object_version_number := l_instance_header_rec.object_version_number;
2723: ,x_msg_count => x_msg_count
2724: ,x_msg_data => x_msg_data
2725: );
2726:
2727: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2729: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2730: RAISE OKL_API.G_EXCEPTION_ERROR;
2731: END IF;
2724: ,x_msg_data => x_msg_data
2725: );
2726:
2727: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2729: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2730: RAISE OKL_API.G_EXCEPTION_ERROR;
2731: END IF;
2732:
2725: );
2726:
2727: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2729: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2730: RAISE OKL_API.G_EXCEPTION_ERROR;
2731: END IF;
2732:
2733: End If;
2726:
2727: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2729: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2730: RAISE OKL_API.G_EXCEPTION_ERROR;
2731: END IF;
2732:
2733: End If;
2734:
2750: x_msg_data => x_msg_data,
2751: p_tas_id => l_ib_line_rec.tas_id,
2752: p_tsu_code => G_TSU_CODE_PROCESSED);
2753:
2754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2757: RAISE OKL_API.G_EXCEPTION_ERROR;
2758: END IF;
2751: p_tas_id => l_ib_line_rec.tas_id,
2752: p_tsu_code => G_TSU_CODE_PROCESSED);
2753:
2754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2757: RAISE OKL_API.G_EXCEPTION_ERROR;
2758: END IF;
2759:
2752: p_tsu_code => G_TSU_CODE_PROCESSED);
2753:
2754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2757: RAISE OKL_API.G_EXCEPTION_ERROR;
2758: END IF;
2759:
2760: End If;
2753:
2754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2757: RAISE OKL_API.G_EXCEPTION_ERROR;
2758: END IF;
2759:
2760: End If;
2761:
2762: End Loop;
2763: close l_ib_line_csr;
2764:
2765: --Call end Activity
2766: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2767: EXCEPTION
2768: When OKL_API.G_EXCEPTION_ERROR Then
2769: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2770: (
2764:
2765: --Call end Activity
2766: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2767: EXCEPTION
2768: When OKL_API.G_EXCEPTION_ERROR Then
2769: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2770: (
2771: l_api_name,
2772: G_PKG_NAME,
2765: --Call end Activity
2766: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2767: EXCEPTION
2768: When OKL_API.G_EXCEPTION_ERROR Then
2769: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2770: (
2771: l_api_name,
2772: G_PKG_NAME,
2773: 'OKL_API.G_RET_STS_ERROR',
2769: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2770: (
2771: l_api_name,
2772: G_PKG_NAME,
2773: 'OKL_API.G_RET_STS_ERROR',
2774: x_msg_count,
2775: x_msg_data,
2776: '_PVT'
2777: );
2774: x_msg_count,
2775: x_msg_data,
2776: '_PVT'
2777: );
2778: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2779: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2780: (
2781: l_api_name,
2782: G_PKG_NAME,
2775: x_msg_data,
2776: '_PVT'
2777: );
2778: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2779: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2780: (
2781: l_api_name,
2782: G_PKG_NAME,
2783: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2779: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2780: (
2781: l_api_name,
2782: G_PKG_NAME,
2783: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2784: x_msg_count,
2785: x_msg_data,
2786: '_PVT'
2787: );
2785: x_msg_data,
2786: '_PVT'
2787: );
2788: WHEN OTHERS THEN
2789: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2790: (
2791: l_api_name,
2792: G_PKG_NAME,
2793: 'OTHERS',
2810: x_serialized OUT NOCOPY VARCHAR2) IS
2811: l_api_version CONSTANT NUMBER := 1.0;
2812: l_api_name VARCHAR2(30) := 'IS_INV_ITEM_SERIALIZED';
2813:
2814: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
2815:
2816: --cursor to find serialized
2817: CURSOR srl_ctrl_csr (p_inv_item_id IN NUMBER,
2818: p_chr_id IN NUMBER) IS
2840:
2841: l_exception_halt EXCEPTION;
2842:
2843: BEGIN
2844: x_serialized := OKL_API.G_FALSE;
2845: x_return_status := OKL_API.START_ACTIVITY (
2846: l_api_name
2847: ,p_init_msg_list
2848: ,'_PVT'
2841: l_exception_halt EXCEPTION;
2842:
2843: BEGIN
2844: x_serialized := OKL_API.G_FALSE;
2845: x_return_status := OKL_API.START_ACTIVITY (
2846: l_api_name
2847: ,p_init_msg_list
2848: ,'_PVT'
2849: ,x_return_status);
2847: ,p_init_msg_list
2848: ,'_PVT'
2849: ,x_return_status);
2850: -- Check if activity started successfully
2851: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2848: ,'_PVT'
2849: ,x_return_status);
2850: -- Check if activity started successfully
2851: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2849: ,x_return_status);
2850: -- Check if activity started successfully
2851: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2857: l_serialized := OKL_API.G_FALSE;
2850: -- Check if activity started successfully
2851: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2857: l_serialized := OKL_API.G_FALSE;
2858: IF p_chr_id IS NOT NULL OR p_chr_id <> OKL_API.G_MISS_NUM THEN
2853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2857: l_serialized := OKL_API.G_FALSE;
2858: IF p_chr_id IS NOT NULL OR p_chr_id <> OKL_API.G_MISS_NUM THEN
2859: OPEN srl_ctrl_csr (p_inv_item_id => p_inv_item_id,
2860: p_chr_id => p_chr_id);
2861: FETCH srl_ctrl_csr INTO
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2857: l_serialized := OKL_API.G_FALSE;
2858: IF p_chr_id IS NOT NULL OR p_chr_id <> OKL_API.G_MISS_NUM THEN
2859: OPEN srl_ctrl_csr (p_inv_item_id => p_inv_item_id,
2860: p_chr_id => p_chr_id);
2861: FETCH srl_ctrl_csr INTO
2862: l_srl_control_code;
2860: p_chr_id => p_chr_id);
2861: FETCH srl_ctrl_csr INTO
2862: l_srl_control_code;
2863: CLOSE srl_ctrl_csr;
2864: ELSIF p_cle_id IS NOT NULL OR p_cle_id <> OKL_API.G_MISS_NUM THEN
2865: OPEN srl_ctrl_csr2 (p_inv_item_id => p_inv_item_id,
2866: p_cle_id => p_cle_id);
2867: FETCH srl_ctrl_csr2 INTO
2868: l_srl_control_code;
2871: RAISE l_exception_halt;
2872: END IF;
2873:
2874: IF NVL(l_srl_control_code,0) IN (2,5,6) THEN
2875: l_serialized := OKL_API.G_TRUE;
2876: END IF;
2877: x_serialized := l_serialized;
2878: OKL_API.END_ACTIVITY (x_msg_count,
2879: x_msg_data );
2874: IF NVL(l_srl_control_code,0) IN (2,5,6) THEN
2875: l_serialized := OKL_API.G_TRUE;
2876: END IF;
2877: x_serialized := l_serialized;
2878: OKL_API.END_ACTIVITY (x_msg_count,
2879: x_msg_data );
2880: EXCEPTION
2881: WHEN l_exception_halt THEN
2882: NULL;
2879: x_msg_data );
2880: EXCEPTION
2881: WHEN l_exception_halt THEN
2882: NULL;
2883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2885: l_api_name,
2886: G_PKG_NAME,
2887: 'OKL_API.G_RET_STS_ERROR',
2880: EXCEPTION
2881: WHEN l_exception_halt THEN
2882: NULL;
2883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2885: l_api_name,
2886: G_PKG_NAME,
2887: 'OKL_API.G_RET_STS_ERROR',
2888: x_msg_count,
2883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2885: l_api_name,
2886: G_PKG_NAME,
2887: 'OKL_API.G_RET_STS_ERROR',
2888: x_msg_count,
2889: x_msg_data,
2890: '_PVT');
2891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2887: 'OKL_API.G_RET_STS_ERROR',
2888: x_msg_count,
2889: x_msg_data,
2890: '_PVT');
2891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2892: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2893: l_api_name,
2894: G_PKG_NAME,
2895: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2888: x_msg_count,
2889: x_msg_data,
2890: '_PVT');
2891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2892: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2893: l_api_name,
2894: G_PKG_NAME,
2895: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2896: x_msg_count,
2891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2892: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2893: l_api_name,
2894: G_PKG_NAME,
2895: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2896: x_msg_count,
2897: x_msg_data,
2898: '_PVT');
2899: WHEN OTHERS THEN
2896: x_msg_count,
2897: x_msg_data,
2898: '_PVT');
2899: WHEN OTHERS THEN
2900: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2901: l_api_name,
2902: G_PKG_NAME,
2903: 'OTHERS',
2904: x_msg_count,
3106: AND MDL_LSE.LTY_CODE = G_MODEL_LINE_LTY_CODE;
3107:
3108: -- gboomina Bug 5362977 - End
3109:
3110: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3111: l_api_name CONSTANT varchar2(30) := 'RBK_SRL_NUM_IB_INSTANCE';
3112: l_api_version CONSTANT NUMBER := 1.0;
3113:
3114: l_orig_inv_org_id okc_k_items.object1_id1%TYPE;
3114: l_orig_inv_org_id okc_k_items.object1_id1%TYPE;
3115: l_orig_inv_item_id okc_k_items.object1_id2%TYPE;
3116:
3117: -- gboomina Bug 5362977 - Start
3118: l_orig_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
3119: l_rbk_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
3120: -- gboomina Bug 5362977 - End
3121:
3122: l_orig_k_id okc_k_headers_b.id%type;
3115: l_orig_inv_item_id okc_k_items.object1_id2%TYPE;
3116:
3117: -- gboomina Bug 5362977 - Start
3118: l_orig_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
3119: l_rbk_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
3120: -- gboomina Bug 5362977 - End
3121:
3122: l_orig_k_id okc_k_headers_b.id%type;
3123: l_orig_fin_ast_cle_id okc_k_lines_b.id%type;
3176: l_instance_header_rec CSI_DATASTRUCTURES_PUB.instance_header_rec;
3177:
3178: BEGIN
3179:
3180: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3181: --call start activity to set savepoint
3182: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
3183: p_init_msg_list,
3184: '_PVT',
3178: BEGIN
3179:
3180: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3181: --call start activity to set savepoint
3182: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
3183: p_init_msg_list,
3184: '_PVT',
3185: x_return_status);
3186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3182: x_return_status := OKL_API.START_ACTIVITY(substr(l_api_name,1,26),
3183: p_init_msg_list,
3184: '_PVT',
3185: x_return_status);
3186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3183: p_init_msg_list,
3184: '_PVT',
3185: x_return_status);
3186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3191:
3184: '_PVT',
3185: x_return_status);
3186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3191:
3192: -- get original contract_id
3185: x_return_status);
3186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3191:
3192: -- get original contract_id
3193: Open get_orig_k_id(p_rbk_chr_id,p_rbk_fin_ast_cle_id);
3234: --okl_debug_pub.logmessage(' inventory item id = ' ||l_orig_inv_item_id );
3235: --dbms_output.put_line(' inventory org id = ' ||l_orig_inv_org_id);
3236: --dbms_output.put_line(' inventory item id = ' ||l_orig_inv_item_id);
3237:
3238: l_orig_serialized := OKL_API.G_FALSE;
3239:
3240: Is_Inv_Item_Serialized(p_api_version => p_api_version,
3241: p_init_msg_list => p_init_msg_list,
3242: x_return_status => x_return_status,
3249: -- gboomina Bug 5362977 - End
3250:
3251: --okl_debug_pub.logmessage(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3252: --dbms_output.put_line(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3253: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3256: RAISE OKL_API.G_EXCEPTION_ERROR;
3257: END IF;
3250:
3251: --okl_debug_pub.logmessage(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3252: --dbms_output.put_line(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3253: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3256: RAISE OKL_API.G_EXCEPTION_ERROR;
3257: END IF;
3258:
3251: --okl_debug_pub.logmessage(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3252: --dbms_output.put_line(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3253: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3256: RAISE OKL_API.G_EXCEPTION_ERROR;
3257: END IF;
3258:
3259: -- gboomina Bug 5362977 - Start
3252: --dbms_output.put_line(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3253: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3256: RAISE OKL_API.G_EXCEPTION_ERROR;
3257: END IF;
3258:
3259: -- gboomina Bug 5362977 - Start
3260: l_rbk_serialized := OKL_API.G_FALSE;
3256: RAISE OKL_API.G_EXCEPTION_ERROR;
3257: END IF;
3258:
3259: -- gboomina Bug 5362977 - Start
3260: l_rbk_serialized := OKL_API.G_FALSE;
3261: Is_Inv_Item_Serialized(p_api_version => p_api_version,
3262: p_init_msg_list => p_init_msg_list,
3263: x_return_status => x_return_status,
3264: x_msg_count => x_msg_count,
3269: x_serialized => l_rbk_serialized);
3270:
3271: --okl_debug_pub.logmessage(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3272: --dbms_output.put_line(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3276: RAISE OKL_API.G_EXCEPTION_ERROR;
3277: END IF;
3270:
3271: --okl_debug_pub.logmessage(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3272: --dbms_output.put_line(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3276: RAISE OKL_API.G_EXCEPTION_ERROR;
3277: END IF;
3278:
3271: --okl_debug_pub.logmessage(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3272: --dbms_output.put_line(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3276: RAISE OKL_API.G_EXCEPTION_ERROR;
3277: END IF;
3278:
3279: -- Expire and Re-create IB instance if Inventory item is changed.
3272: --dbms_output.put_line(' Is_Inv_Item_Serialized x_return_status = ' ||x_return_status );
3273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3276: RAISE OKL_API.G_EXCEPTION_ERROR;
3277: END IF;
3278:
3279: -- Expire and Re-create IB instance if Inventory item is changed.
3280: IF (l_orig_inv_item_id <> l_rbk_inv_item_id) THEN
3310: x_msg_count => x_msg_count,
3311: x_msg_data => x_msg_data);
3312:
3313:
3314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3317: RAISE OKL_API.G_EXCEPTION_ERROR;
3318: END IF;
3311: x_msg_data => x_msg_data);
3312:
3313:
3314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3317: RAISE OKL_API.G_EXCEPTION_ERROR;
3318: END IF;
3319:
3312:
3313:
3314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3317: RAISE OKL_API.G_EXCEPTION_ERROR;
3318: END IF;
3319:
3320: If l_instance_header_tbl.COUNT > 0 then
3313:
3314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3317: RAISE OKL_API.G_EXCEPTION_ERROR;
3318: END IF;
3319:
3320: If l_instance_header_tbl.COUNT > 0 then
3321: l_instance_header_rec := l_instance_header_tbl(1);
3338:
3339: --okl_debug_pub.logmessage(' get_trx_rec x_return_status= ' || x_return_status);
3340: --dbms_output.put_line(' get_trx_rec x_return_status= ' || x_return_status);
3341:
3342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3345: RAISE OKL_API.G_EXCEPTION_ERROR;
3346: END IF;
3339: --okl_debug_pub.logmessage(' get_trx_rec x_return_status= ' || x_return_status);
3340: --dbms_output.put_line(' get_trx_rec x_return_status= ' || x_return_status);
3341:
3342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3345: RAISE OKL_API.G_EXCEPTION_ERROR;
3346: END IF;
3347:
3340: --dbms_output.put_line(' get_trx_rec x_return_status= ' || x_return_status);
3341:
3342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3345: RAISE OKL_API.G_EXCEPTION_ERROR;
3346: END IF;
3347:
3348: csi_item_instance_pub.expire_item_instance
3341:
3342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3345: RAISE OKL_API.G_EXCEPTION_ERROR;
3346: END IF;
3347:
3348: csi_item_instance_pub.expire_item_instance
3349: (
3360: ,x_msg_data => x_msg_data);
3361:
3362: --okl_debug_pub.logmessage(' csi_item_instance_pub.update_item_instance x_return_status = ' || x_return_status);
3363: --dbms_output.put_line(' csi_item_instance_pub.update_item_instance x_return_status = ' || x_return_status);
3364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3367: RAISE OKL_API.G_EXCEPTION_ERROR;
3368: END IF;
3361:
3362: --okl_debug_pub.logmessage(' csi_item_instance_pub.update_item_instance x_return_status = ' || x_return_status);
3363: --dbms_output.put_line(' csi_item_instance_pub.update_item_instance x_return_status = ' || x_return_status);
3364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3367: RAISE OKL_API.G_EXCEPTION_ERROR;
3368: END IF;
3369:
3362: --okl_debug_pub.logmessage(' csi_item_instance_pub.update_item_instance x_return_status = ' || x_return_status);
3363: --dbms_output.put_line(' csi_item_instance_pub.update_item_instance x_return_status = ' || x_return_status);
3364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3367: RAISE OKL_API.G_EXCEPTION_ERROR;
3368: END IF;
3369:
3370: l_cim_rec.id := srl_num_to_update_rec.orig_ib_cim_id;
3363: --dbms_output.put_line(' csi_item_instance_pub.update_item_instance x_return_status = ' || x_return_status);
3364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3367: RAISE OKL_API.G_EXCEPTION_ERROR;
3368: END IF;
3369:
3370: l_cim_rec.id := srl_num_to_update_rec.orig_ib_cim_id;
3371: l_cim_rec.object1_id1 := NULL;
3380: x_msg_data =>x_msg_data,
3381: p_cimv_rec =>l_cim_rec,
3382: x_cimv_rec =>x_cim_rec);
3383:
3384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3387: RAISE OKL_API.G_EXCEPTION_ERROR;
3388: END IF;
3381: p_cimv_rec =>l_cim_rec,
3382: x_cimv_rec =>x_cim_rec);
3383:
3384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3387: RAISE OKL_API.G_EXCEPTION_ERROR;
3388: END IF;
3389:
3382: x_cimv_rec =>x_cim_rec);
3383:
3384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3387: RAISE OKL_API.G_EXCEPTION_ERROR;
3388: END IF;
3389:
3390: -- Create IB instance with new inventory item
3383:
3384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3387: RAISE OKL_API.G_EXCEPTION_ERROR;
3388: END IF;
3389:
3390: -- Create IB instance with new inventory item
3391: --
3404: x_model_line_qty => l_model_line_qty,
3405: x_primary_uom_code => l_primary_uom_code,
3406: x_inv_org_id => l_orig_inv_org_id);
3407:
3408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3405: x_primary_uom_code => l_primary_uom_code,
3406: x_inv_org_id => l_orig_inv_org_id);
3407:
3408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3413:
3406: x_inv_org_id => l_orig_inv_org_id);
3407:
3408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3413:
3414: Process_IB_Line_2(p_api_version => p_api_version,
3407:
3408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3413:
3414: Process_IB_Line_2(p_api_version => p_api_version,
3415: p_init_msg_list => p_init_msg_list,
3428: p_inv_org_id => l_orig_inv_org_id,
3429: p_rbk_ib_cle_id => srl_num_to_update_rec.rbk_ib_cle_id,
3430: x_cimv_rec => l_cimv_rec);
3431: --dbms_output.put_line('After Process_Line_2 1'||x_return_status);
3432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3435: RAISE OKL_API.G_EXCEPTION_ERROR;
3436: END IF;
3429: p_rbk_ib_cle_id => srl_num_to_update_rec.rbk_ib_cle_id,
3430: x_cimv_rec => l_cimv_rec);
3431: --dbms_output.put_line('After Process_Line_2 1'||x_return_status);
3432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3435: RAISE OKL_API.G_EXCEPTION_ERROR;
3436: END IF;
3437:
3430: x_cimv_rec => l_cimv_rec);
3431: --dbms_output.put_line('After Process_Line_2 1'||x_return_status);
3432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3435: RAISE OKL_API.G_EXCEPTION_ERROR;
3436: END IF;
3437:
3438: END LOOP;
3431: --dbms_output.put_line('After Process_Line_2 1'||x_return_status);
3432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3435: RAISE OKL_API.G_EXCEPTION_ERROR;
3436: END IF;
3437:
3438: END LOOP;
3439:
3438: END LOOP;
3439:
3440: END IF;
3441:
3442: IF (l_rbk_serialized = OKL_API.G_TRUE OR l_orig_serialized = OKL_API.G_TRUE) THEN
3443:
3444: --okl_debug_pub.logmessage(' IN serialized section ');
3445: --dbms_output.put_line(' IN serialized section ');
3446:
3486: x_msg_count => x_msg_count,
3487: x_msg_data => x_msg_data);
3488:
3489:
3490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3487: x_msg_data => x_msg_data);
3488:
3489:
3490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3495:
3488:
3489:
3490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3495:
3496: If l_instance_header_tbl.COUNT > 0 then
3489:
3490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3493: RAISE OKL_API.G_EXCEPTION_ERROR;
3494: END IF;
3495:
3496: If l_instance_header_tbl.COUNT > 0 then
3497: l_instance_header_rec := l_instance_header_tbl(1);
3512:
3513: --okl_debug_pub.logmessage('get_trx_rec x_return_status = ' || x_return_status);
3514: --dbms_output.put_line('get_trx_rec x_return_status = ' || x_return_status);
3515:
3516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3519: RAISE OKL_API.G_EXCEPTION_ERROR;
3520: END IF;
3513: --okl_debug_pub.logmessage('get_trx_rec x_return_status = ' || x_return_status);
3514: --dbms_output.put_line('get_trx_rec x_return_status = ' || x_return_status);
3515:
3516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3519: RAISE OKL_API.G_EXCEPTION_ERROR;
3520: END IF;
3521:
3514: --dbms_output.put_line('get_trx_rec x_return_status = ' || x_return_status);
3515:
3516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3519: RAISE OKL_API.G_EXCEPTION_ERROR;
3520: END IF;
3521:
3522: csi_item_instance_pub.expire_item_instance
3515:
3516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3519: RAISE OKL_API.G_EXCEPTION_ERROR;
3520: END IF;
3521:
3522: csi_item_instance_pub.expire_item_instance
3523: (
3534: ,x_msg_data => x_msg_data);
3535:
3536: --okl_debug_pub.logmessage('csi_item_instance_pub.expire_item_instance x_return_status= ' || x_return_status);
3537: --dbms_output.put_line('csi_item_instance_pub.expire_item_instance x_return_status= ' || x_return_status);
3538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3541: RAISE OKL_API.G_EXCEPTION_ERROR;
3542: END IF;
3535:
3536: --okl_debug_pub.logmessage('csi_item_instance_pub.expire_item_instance x_return_status= ' || x_return_status);
3537: --dbms_output.put_line('csi_item_instance_pub.expire_item_instance x_return_status= ' || x_return_status);
3538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3541: RAISE OKL_API.G_EXCEPTION_ERROR;
3542: END IF;
3543:
3536: --okl_debug_pub.logmessage('csi_item_instance_pub.expire_item_instance x_return_status= ' || x_return_status);
3537: --dbms_output.put_line('csi_item_instance_pub.expire_item_instance x_return_status= ' || x_return_status);
3538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3541: RAISE OKL_API.G_EXCEPTION_ERROR;
3542: END IF;
3543:
3544: --okl_debug_pub.logmessage('Abandon Instance line: '||srl_num_to_exp_rec.inst_cle_id);
3537: --dbms_output.put_line('csi_item_instance_pub.expire_item_instance x_return_status= ' || x_return_status);
3538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3541: RAISE OKL_API.G_EXCEPTION_ERROR;
3542: END IF;
3543:
3544: --okl_debug_pub.logmessage('Abandon Instance line: '||srl_num_to_exp_rec.inst_cle_id);
3545: --dbms_output.put_line('Abandon Instance line: '||srl_num_to_exp_rec.inst_cle_id);
3549: l_clev_rec.sts_code := 'ABANDONED';
3550:
3551: okl_contract_pub.update_contract_line(
3552: p_api_version => 1.0,
3553: p_init_msg_list => OKL_API.G_FALSE,
3554: x_return_status => x_return_status,
3555: x_msg_count => x_msg_count,
3556: x_msg_data => x_msg_data,
3557: p_clev_rec => l_clev_rec,
3562:
3563: --okl_debug_pub.logmessage('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3564: --dbms_output.put_line('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3565:
3566: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3563: --okl_debug_pub.logmessage('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3564: --dbms_output.put_line('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3565:
3566: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3571:
3564: --dbms_output.put_line('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3565:
3566: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3571:
3572: --okl_debug_pub.logmessage('Abandon IB line: '||srl_num_to_exp_rec.ib_cle_id);
3565:
3566: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3569: RAISE OKL_API.G_EXCEPTION_ERROR;
3570: END IF;
3571:
3572: --okl_debug_pub.logmessage('Abandon IB line: '||srl_num_to_exp_rec.ib_cle_id);
3573: --dbms_output.put_line('Abandon IB line: '||srl_num_to_exp_rec.ib_cle_id);
3577: l_clev_rec.sts_code := 'ABANDONED';
3578:
3579: okl_contract_pub.update_contract_line(
3580: p_api_version => 1.0,
3581: p_init_msg_list => OKL_API.G_FALSE,
3582: x_return_status => x_return_status,
3583: x_msg_count => x_msg_count,
3584: x_msg_data => x_msg_data,
3585: p_clev_rec => l_clev_rec,
3590:
3591: --okl_debug_pub.logmessage('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3592: --dbms_output.put_line('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3593:
3594: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3597: RAISE OKL_API.G_EXCEPTION_ERROR;
3598: END IF;
3591: --okl_debug_pub.logmessage('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3592: --dbms_output.put_line('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3593:
3594: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3597: RAISE OKL_API.G_EXCEPTION_ERROR;
3598: END IF;
3599:
3592: --dbms_output.put_line('okl_contract_pub.update_contract_line x_return_status= ' || x_return_status);
3593:
3594: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3597: RAISE OKL_API.G_EXCEPTION_ERROR;
3598: END IF;
3599:
3600: END LOOP;
3593:
3594: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3595: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3597: RAISE OKL_API.G_EXCEPTION_ERROR;
3598: END IF;
3599:
3600: END LOOP;
3601:
3630: x_primary_uom_code => l_primary_uom_code,
3631: x_inv_org_id => l_orig_inv_org_id);
3632:
3633: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
3634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3631: x_inv_org_id => l_orig_inv_org_id);
3632:
3633: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
3634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3639:
3632:
3633: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
3634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3639:
3640: Process_IB_Line_2(p_api_version => p_api_version,
3633: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
3634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3639:
3640: Process_IB_Line_2(p_api_version => p_api_version,
3641: p_init_msg_list => p_init_msg_list,
3654: p_inv_org_id => l_orig_inv_org_id,
3655: p_rbk_ib_cle_id => srl_num_to_add_rec.rbk_ib_cle_id,
3656: x_cimv_rec => l_cimv_rec);
3657: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
3658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3661: RAISE OKL_API.G_EXCEPTION_ERROR;
3662: END IF;
3655: p_rbk_ib_cle_id => srl_num_to_add_rec.rbk_ib_cle_id,
3656: x_cimv_rec => l_cimv_rec);
3657: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
3658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3661: RAISE OKL_API.G_EXCEPTION_ERROR;
3662: END IF;
3663: END LOOP;
3656: x_cimv_rec => l_cimv_rec);
3657: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
3658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3661: RAISE OKL_API.G_EXCEPTION_ERROR;
3662: END IF;
3663: END LOOP;
3664: END IF;
3657: --dbms_output.put_line('After Process_Line_1 '||x_return_status);
3658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3661: RAISE OKL_API.G_EXCEPTION_ERROR;
3662: END IF;
3663: END LOOP;
3664: END IF;
3665:
3662: END IF;
3663: END LOOP;
3664: END IF;
3665:
3666: IF l_rbk_serialized = OKL_API.G_FALSE THEN --- not serialized
3667: --okl_debug_pub.logmessage(' l_serialized is false -> is not serialized' );
3668: --dbms_output.put_line(' l_serialized is false -> is not serialized');
3669:
3670: Open ib_line_csr(l_orig_k_id,l_orig_fin_ast_cle_id);
3715: x_msg_count => x_msg_count,
3716: x_msg_data => x_msg_data);
3717:
3718:
3719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3721: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3722: RAISE OKL_API.G_EXCEPTION_ERROR;
3723: END IF;
3716: x_msg_data => x_msg_data);
3717:
3718:
3719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3721: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3722: RAISE OKL_API.G_EXCEPTION_ERROR;
3723: END IF;
3724:
3717:
3718:
3719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3721: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3722: RAISE OKL_API.G_EXCEPTION_ERROR;
3723: END IF;
3724:
3725: If l_instance_header_tbl.COUNT > 0 then
3718:
3719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3721: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3722: RAISE OKL_API.G_EXCEPTION_ERROR;
3723: END IF;
3724:
3725: If l_instance_header_tbl.COUNT > 0 then
3726: l_instance_header_rec := l_instance_header_tbl(1);
3742:
3743: --okl_debug_pub.logmessage(' get_trx_rec x_return_status= ' || x_return_status);
3744: --dbms_output.put_line(' get_trx_rec x_return_status= ' || x_return_status);
3745:
3746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3749: RAISE OKL_API.G_EXCEPTION_ERROR;
3750: END IF;
3743: --okl_debug_pub.logmessage(' get_trx_rec x_return_status= ' || x_return_status);
3744: --dbms_output.put_line(' get_trx_rec x_return_status= ' || x_return_status);
3745:
3746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3749: RAISE OKL_API.G_EXCEPTION_ERROR;
3750: END IF;
3751:
3744: --dbms_output.put_line(' get_trx_rec x_return_status= ' || x_return_status);
3745:
3746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3749: RAISE OKL_API.G_EXCEPTION_ERROR;
3750: END IF;
3751:
3752: csi_item_instance_pub.update_item_instance
3745:
3746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3749: RAISE OKL_API.G_EXCEPTION_ERROR;
3750: END IF;
3751:
3752: csi_item_instance_pub.update_item_instance
3753: (
3768: ,x_msg_count => x_msg_count
3769: ,x_msg_data => x_msg_data
3770: );
3771: --serialized
3772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3769: ,x_msg_data => x_msg_data
3770: );
3771: --serialized
3772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777: END IF;
3770: );
3771: --serialized
3772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777: END IF;
3778:
3771: --serialized
3772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777: END IF;
3778:
3779: IF l_rbk_serialized = OKL_API.G_TRUE THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777: END IF;
3778:
3779: IF l_rbk_serialized = OKL_API.G_TRUE THEN
3780: -- Sync Serial Numbers
3781: FOR srl_num_to_update_rec IN srl_num_to_update_csr(p_orig_fin_ast_cle_id => l_orig_fin_ast_cle_id,
3782: p_rbk_fin_ast_cle_id => p_rbk_fin_ast_cle_id,
3783: p_orig_chr_id => l_orig_k_id,
3794: p_rbk_ib_cle_id => srl_num_to_update_rec.rbk_ib_cle_id);
3795: FETCH srl_num_new_csr INTO l_srl_num_new_rec;
3796: CLOSE srl_num_new_csr;
3797:
3798: IF NVL(l_srl_num_old_rec.serial_number,OKL_API.G_MISS_CHAR) <>
3799: NVL(l_srl_num_new_rec.serial_number,OKL_API.G_MISS_CHAR) THEN
3800:
3801: --okl_debug_pub.logmessage('Update IB Instance');
3802: --dbms_output.put_line('Update IB Instance');
3795: FETCH srl_num_new_csr INTO l_srl_num_new_rec;
3796: CLOSE srl_num_new_csr;
3797:
3798: IF NVL(l_srl_num_old_rec.serial_number,OKL_API.G_MISS_CHAR) <>
3799: NVL(l_srl_num_new_rec.serial_number,OKL_API.G_MISS_CHAR) THEN
3800:
3801: --okl_debug_pub.logmessage('Update IB Instance');
3802: --dbms_output.put_line('Update IB Instance');
3803:
3826: x_msg_count => x_msg_count,
3827: x_msg_data => x_msg_data);
3828:
3829:
3830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3833: RAISE OKL_API.G_EXCEPTION_ERROR;
3834: END IF;
3827: x_msg_data => x_msg_data);
3828:
3829:
3830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3833: RAISE OKL_API.G_EXCEPTION_ERROR;
3834: END IF;
3835:
3828:
3829:
3830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3833: RAISE OKL_API.G_EXCEPTION_ERROR;
3834: END IF;
3835:
3836: If l_instance_header_tbl.COUNT > 0 then
3829:
3830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3833: RAISE OKL_API.G_EXCEPTION_ERROR;
3834: END IF;
3835:
3836: If l_instance_header_tbl.COUNT > 0 then
3837: l_instance_header_rec := l_instance_header_tbl(1);
3853:
3854: --okl_debug_pub.logmessage('get_trx_rec x_return_status = ' || x_return_status);
3855: --dbms_output.put_line('get_trx_rec x_return_status = ' || x_return_status);
3856:
3857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3860: RAISE OKL_API.G_EXCEPTION_ERROR;
3861: END IF;
3854: --okl_debug_pub.logmessage('get_trx_rec x_return_status = ' || x_return_status);
3855: --dbms_output.put_line('get_trx_rec x_return_status = ' || x_return_status);
3856:
3857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3860: RAISE OKL_API.G_EXCEPTION_ERROR;
3861: END IF;
3862:
3855: --dbms_output.put_line('get_trx_rec x_return_status = ' || x_return_status);
3856:
3857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3860: RAISE OKL_API.G_EXCEPTION_ERROR;
3861: END IF;
3862:
3863: csi_item_instance_pub.update_item_instance
3856:
3857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3860: RAISE OKL_API.G_EXCEPTION_ERROR;
3861: END IF;
3862:
3863: csi_item_instance_pub.update_item_instance
3864: (
3881: );
3882:
3883: --okl_debug_pub.logmessage('csi_item_instance_pub.update_item_instance 2 x_return_status= ' || x_return_status);
3884: --dbms_output.put_line('csi_item_instance_pub.update_item_instance 2 x_return_status= ' || x_return_status);
3885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3888: RAISE OKL_API.G_EXCEPTION_ERROR;
3889: END IF;
3882:
3883: --okl_debug_pub.logmessage('csi_item_instance_pub.update_item_instance 2 x_return_status= ' || x_return_status);
3884: --dbms_output.put_line('csi_item_instance_pub.update_item_instance 2 x_return_status= ' || x_return_status);
3885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3888: RAISE OKL_API.G_EXCEPTION_ERROR;
3889: END IF;
3890:
3883: --okl_debug_pub.logmessage('csi_item_instance_pub.update_item_instance 2 x_return_status= ' || x_return_status);
3884: --dbms_output.put_line('csi_item_instance_pub.update_item_instance 2 x_return_status= ' || x_return_status);
3885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3888: RAISE OKL_API.G_EXCEPTION_ERROR;
3889: END IF;
3890:
3891: END IF;
3884: --dbms_output.put_line('csi_item_instance_pub.update_item_instance 2 x_return_status= ' || x_return_status);
3885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3888: RAISE OKL_API.G_EXCEPTION_ERROR;
3889: END IF;
3890:
3891: END IF;
3892: END LOOP;
3892: END LOOP;
3893: END IF;
3894:
3895: -- gboomina Bug 5362977 - End
3896: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3897: EXCEPTION
3898: When OKL_API.G_EXCEPTION_ERROR Then
3899: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3900: (
3894:
3895: -- gboomina Bug 5362977 - End
3896: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3897: EXCEPTION
3898: When OKL_API.G_EXCEPTION_ERROR Then
3899: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3900: (
3901: l_api_name,
3902: G_PKG_NAME,
3895: -- gboomina Bug 5362977 - End
3896: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3897: EXCEPTION
3898: When OKL_API.G_EXCEPTION_ERROR Then
3899: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3900: (
3901: l_api_name,
3902: G_PKG_NAME,
3903: 'OKL_API.G_RET_STS_ERROR',
3899: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3900: (
3901: l_api_name,
3902: G_PKG_NAME,
3903: 'OKL_API.G_RET_STS_ERROR',
3904: x_msg_count,
3905: x_msg_data,
3906: '_PVT'
3907: );
3904: x_msg_count,
3905: x_msg_data,
3906: '_PVT'
3907: );
3908: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3909: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3910: (
3911: l_api_name,
3912: G_PKG_NAME,
3905: x_msg_data,
3906: '_PVT'
3907: );
3908: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3909: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3910: (
3911: l_api_name,
3912: G_PKG_NAME,
3913: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3909: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3910: (
3911: l_api_name,
3912: G_PKG_NAME,
3913: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3914: x_msg_count,
3915: x_msg_data,
3916: '_PVT'
3917: );
3915: x_msg_data,
3916: '_PVT'
3917: );
3918: WHEN OTHERS THEN
3919: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3920: (
3921: l_api_name,
3922: G_PKG_NAME,
3923: 'OTHERS',