55: WHERE okl_pdt_pqy_vals_v.id = p_id;
56: l_okl_pqvv_pk okl_pqvv_pk_csr%ROWTYPE;
57: l_pqvv_rec pqvv_rec_type;
58: BEGIN
59: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
60: x_no_data_found := TRUE;
61: -- Get current database values
62: OPEN okl_pqvv_pk_csr (p_pqvv_rec.id);
63: FETCH okl_pqvv_pk_csr INTO
78: x_pqvv_rec := l_pqvv_rec;
79: EXCEPTION
80: WHEN OTHERS THEN
81: -- store SQL error message on message stack
82: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
83: p_msg_name => G_UNEXPECTED_ERROR,
84: p_token1 => G_SQLCODE_TOKEN,
85: p_token1_value => SQLCODE,
86: p_token2 => G_SQLERRM_TOKEN,
85: p_token1_value => SQLCODE,
86: p_token2 => G_SQLERRM_TOKEN,
87: p_token2_value => SQLERRM);
88: -- notify UNEXPECTED error for calling API.
89: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
90:
91: IF (okl_pqvv_pk_csr%ISOPEN) THEN
92: CLOSE okl_pqvv_pk_csr;
93: END IF;
111: WHERE pdtv.id = p_pdt_id;
112: l_okl_pdtv_pk okl_pdt_pk_csr%ROWTYPE;
113: l_pdtv_rec pdtv_rec_type;
114: BEGIN
115: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
116: x_no_data_found := TRUE;
117: -- Get current database values
118: OPEN okl_pdt_pk_csr (p_pqvv_rec.pdt_id);
119: FETCH okl_pdt_pk_csr INTO
124: x_pdtv_rec := l_pdtv_rec;
125: EXCEPTION
126: WHEN OTHERS THEN
127: -- store SQL error message on message stack
128: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
129: p_msg_name => G_UNEXPECTED_ERROR,
130: p_token1 => G_SQLCODE_TOKEN,
131: p_token1_value => SQLCODE,
132: p_token2 => G_SQLERRM_TOKEN,
131: p_token1_value => SQLCODE,
132: p_token2 => G_SQLERRM_TOKEN,
133: p_token2_value => SQLERRM);
134: -- notify UNEXPECTED error for calling API.
135: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
136:
137:
138: IF (okl_pdt_pk_csr%ISOPEN) THEN
139: CLOSE okl_pdt_pk_csr;
151:
152:
153: PROCEDURE Check_Constraints (
154: p_api_version IN NUMBER,
155: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
156: p_pqvv_rec IN pqvv_rec_type,
157: p_db_pqvv_rec IN pqvv_rec_type,
158: x_return_status OUT NOCOPY VARCHAR2,
159: x_msg_count OUT NOCOPY NUMBER,
336: l_token_7 VARCHAR2(999);
337:
338: BEGIN
339: x_valid := TRUE;
340: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
341:
342:
343: l_token_1 := Okl_Accounting_Util.Get_Message_Token(p_region_code => 'OKL_LP_PDT_PQV_VAL_SUMRY',
344: p_attribute_code => 'OKL_PDT_QUALITY_VALUES');
369: l_row_not_found := okl_pqvv_chk_upd%NOTFOUND;
370: CLOSE okl_pqvv_chk_upd;
371:
372: IF l_row_not_found = FALSE THEN
373: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
374: p_msg_name => G_IN_USE,
375: p_token1 => G_PARENT_TABLE_TOKEN,
376: p_token1_value => l_token_1,
377: p_token2 => G_CHILD_TABLE_TOKEN,
376: p_token1_value => l_token_1,
377: p_token2 => G_CHILD_TABLE_TOKEN,
378: p_token2_value => l_token_4);
379: x_valid := FALSE;
380: x_return_status := Okl_Api.G_RET_STS_ERROR;
381: RAISE G_EXCEPTION_HALT_PROCESSING;
382: END IF;
383:
384: Open chk_pqy_value(p_pqvv_rec.pdq_id);
388: end if;
389: close chk_pqy_value;
390:
391:
392: IF p_pqvv_rec.id <> Okl_Api.G_MISS_NUM OR
393: p_pqvv_rec.id IS NOT NULL THEN
394:
395: if ltrim(rtrim(l_pqy_value)) IN ('REVENUE_RECOGNITION_METHOD') THEN
396:
399:
400: FETCH csr_rev_rec_no_update INTO l_REV_REC_NO_UPDATE;
401:
402: IF csr_rev_rec_no_update%FOUND AND p_pqvv_rec.qve_id <> p_db_pqvv_rec.qve_id then
403: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
404: p_msg_name => G_REV_REC_NO_UPDATE);
405: x_return_status := Okl_Api.G_RET_STS_ERROR;
406: RAISE G_EXCEPTION_HALT_PROCESSING;
407: END IF;
401:
402: IF csr_rev_rec_no_update%FOUND AND p_pqvv_rec.qve_id <> p_db_pqvv_rec.qve_id then
403: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
404: p_msg_name => G_REV_REC_NO_UPDATE);
405: x_return_status := Okl_Api.G_RET_STS_ERROR;
406: RAISE G_EXCEPTION_HALT_PROCESSING;
407: END IF;
408:
409: CLOSE csr_rev_rec_no_update;
421:
422: if chk_investor%NOTFOUND then
423:
424:
425: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
426: p_msg_name => G_INVESTOR_MISMATCH);
427: x_return_status := Okl_Api.G_RET_STS_ERROR;
428: RAISE G_EXCEPTION_HALT_PROCESSING;
429: END IF;
423:
424:
425: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
426: p_msg_name => G_INVESTOR_MISMATCH);
427: x_return_status := Okl_Api.G_RET_STS_ERROR;
428: RAISE G_EXCEPTION_HALT_PROCESSING;
429: END IF;
430:
431: CLOSE chk_investor;
441:
442: if chk_deal_type%NOTFOUND then
443:
444:
445: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
446: p_msg_name => G_BOOK_CLASS_MISMATCH);
447: x_return_status := Okl_Api.G_RET_STS_ERROR;
448: RAISE G_EXCEPTION_HALT_PROCESSING;
449: END IF;
443:
444:
445: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
446: p_msg_name => G_BOOK_CLASS_MISMATCH);
447: x_return_status := Okl_Api.G_RET_STS_ERROR;
448: RAISE G_EXCEPTION_HALT_PROCESSING;
449: END IF;
450:
451: CLOSE chk_deal_type;
459: FETCH chk_tax_owner INTO l_tax_owner;
460:
461: if chk_tax_owner%NOTFOUND then
462:
463: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
464: p_msg_name => G_BOOK_CLASS_MISMATCH);
465: x_return_status := Okl_Api.G_RET_STS_ERROR;
466: RAISE G_EXCEPTION_HALT_PROCESSING;
467: END IF;
461: if chk_tax_owner%NOTFOUND then
462:
463: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
464: p_msg_name => G_BOOK_CLASS_MISMATCH);
465: x_return_status := Okl_Api.G_RET_STS_ERROR;
466: RAISE G_EXCEPTION_HALT_PROCESSING;
467: END IF;
468:
469:
481:
482: if chk_intrst_calc_mthd%NOTFOUND then
483:
484:
485: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
486: p_msg_name => G_INT_CALC_BASIS_MISMATCH);
487: x_return_status := Okl_Api.G_RET_STS_ERROR;
488: RAISE G_EXCEPTION_HALT_PROCESSING;
489: END IF;
483:
484:
485: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
486: p_msg_name => G_INT_CALC_BASIS_MISMATCH);
487: x_return_status := Okl_Api.G_RET_STS_ERROR;
488: RAISE G_EXCEPTION_HALT_PROCESSING;
489: END IF;
490:
491: CLOSE chk_intrst_calc_mthd;
502:
503: if chk_rev_rec_methd%NOTFOUND then
504:
505:
506: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
507: p_msg_name => G_REVENUE_REC_METD_MISMATCH);
508: x_return_status := Okl_Api.G_RET_STS_ERROR;
509: RAISE G_EXCEPTION_HALT_PROCESSING;
510: END IF;
504:
505:
506: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
507: p_msg_name => G_REVENUE_REC_METD_MISMATCH);
508: x_return_status := Okl_Api.G_RET_STS_ERROR;
509: RAISE G_EXCEPTION_HALT_PROCESSING;
510: END IF;
511:
512: CLOSE chk_rev_rec_methd;
513: END IF;
514:
515:
516: -- check for uniquness.
517: IF p_pqvv_rec.id = Okl_Api.G_MISS_NUM THEN
518: OPEN c1(p_pqvv_rec.pdt_id,
519: p_pqvv_rec.pdq_id);
520: FETCH c1 INTO l_pqv_status;
521: l_row_found := c1%FOUND;
521: l_row_found := c1%FOUND;
522: CLOSE c1;
523: IF l_row_found THEN
524:
525: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
526: p_msg_name => 'OKL_COLUMN_NOT_UNIQUE',
527: p_token1 => G_TABLE_TOKEN,
528: p_token1_value => l_token_1,
529: p_token2 => G_COLUMN_TOKEN,
529: p_token2 => G_COLUMN_TOKEN,
530: p_token2_value => l_token_6);
531:
532: x_valid := FALSE;
533: x_return_status := Okl_Api.G_RET_STS_ERROR;
534: RAISE G_EXCEPTION_HALT_PROCESSING;
535: END IF;
536: END IF;
537:
664: END IF;
665: END LOOP;
666:
667: IF l_FLT_FAC_loan_rev_mismatch <> 0 THEN
668: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
669: p_msg_name => G_FLT_FAC_LOAN_REV_MISMATCH);
670: x_valid := FALSE;
671: x_return_status := Okl_Api.G_RET_STS_ERROR;
672: RAISE G_EXCEPTION_HALT_PROCESSING;
667: IF l_FLT_FAC_loan_rev_mismatch <> 0 THEN
668: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
669: p_msg_name => G_FLT_FAC_LOAN_REV_MISMATCH);
670: x_valid := FALSE;
671: x_return_status := Okl_Api.G_RET_STS_ERROR;
672: RAISE G_EXCEPTION_HALT_PROCESSING;
673: END IF;
674:
675: IF l_FLT_FAC_EST_BILL_mismatch <> 0 THEN
672: RAISE G_EXCEPTION_HALT_PROCESSING;
673: END IF;
674:
675: IF l_FLT_FAC_EST_BILL_mismatch <> 0 THEN
676: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
677: p_msg_name => G_FLT_FAC_EST_BILL_MISMATCH);
678: x_valid := FALSE;
679: x_return_status := Okl_Api.G_RET_STS_ERROR;
680: RAISE G_EXCEPTION_HALT_PROCESSING;
675: IF l_FLT_FAC_EST_BILL_mismatch <> 0 THEN
676: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
677: p_msg_name => G_FLT_FAC_EST_BILL_MISMATCH);
678: x_valid := FALSE;
679: x_return_status := Okl_Api.G_RET_STS_ERROR;
680: RAISE G_EXCEPTION_HALT_PROCESSING;
681: END IF;
682:
683:
681: END IF;
682:
683:
684: IF l_leaseop_lessee_mismatch <> 0 THEN
685: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
686: p_msg_name => G_OPLEASE_LESSEE_MISMATCH);
687: x_valid := FALSE;
688: x_return_status := Okl_Api.G_RET_STS_ERROR;
689: RAISE G_EXCEPTION_HALT_PROCESSING;
684: IF l_leaseop_lessee_mismatch <> 0 THEN
685: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
686: p_msg_name => G_OPLEASE_LESSEE_MISMATCH);
687: x_valid := FALSE;
688: x_return_status := Okl_Api.G_RET_STS_ERROR;
689: RAISE G_EXCEPTION_HALT_PROCESSING;
690: END IF;
691:
692: IF l_loan_lessor_mismatch <> 0 THEN
689: RAISE G_EXCEPTION_HALT_PROCESSING;
690: END IF;
691:
692: IF l_loan_lessor_mismatch <> 0 THEN
693: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
694: p_msg_name => G_LOAN_LESSOR_MISMATCH);
695: x_valid := FALSE;
696: x_return_status := Okl_Api.G_RET_STS_ERROR;
697: RAISE G_EXCEPTION_HALT_PROCESSING;
692: IF l_loan_lessor_mismatch <> 0 THEN
693: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
694: p_msg_name => G_LOAN_LESSOR_MISMATCH);
695: x_valid := FALSE;
696: x_return_status := Okl_Api.G_RET_STS_ERROR;
697: RAISE G_EXCEPTION_HALT_PROCESSING;
698: END IF;
699:
700: IF l_loanrev_lessor_mismatch <> 0 THEN
697: RAISE G_EXCEPTION_HALT_PROCESSING;
698: END IF;
699:
700: IF l_loanrev_lessor_mismatch <> 0 THEN
701: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
702: p_msg_name => G_LOANREV_LESSOR_MISMATCH);
703: x_valid := FALSE;
704: x_return_status := Okl_Api.G_RET_STS_ERROR;
705: RAISE G_EXCEPTION_HALT_PROCESSING;
700: IF l_loanrev_lessor_mismatch <> 0 THEN
701: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
702: p_msg_name => G_LOANREV_LESSOR_MISMATCH);
703: x_valid := FALSE;
704: x_return_status := Okl_Api.G_RET_STS_ERROR;
705: RAISE G_EXCEPTION_HALT_PROCESSING;
706: END IF;
707:
708: END;
707:
708: END;
709:
710: -- Check for constraints dates
711: IF p_pqvv_rec.id = Okl_Api.G_MISS_NUM THEN
712: OPEN okl_pqv_constraints_csr(p_pqvv_rec.qve_id,
713: p_pqvv_rec.from_date,
714: p_pqvv_rec.TO_DATE);
715: FETCH okl_pqv_constraints_csr INTO l_check;
716: l_row_not_found := okl_pqv_constraints_csr%NOTFOUND;
717: CLOSE okl_pqv_constraints_csr;
718:
719: IF l_row_not_found = FALSE THEN
720: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
721: p_msg_name => G_DATES_MISMATCH,
722: p_token1 => G_PARENT_TABLE_TOKEN,
723: p_token1_value => l_token_7,
724: p_token2 => G_CHILD_TABLE_TOKEN,
723: p_token1_value => l_token_7,
724: p_token2 => G_CHILD_TABLE_TOKEN,
725: p_token2_value => l_token_3);
726: x_valid := FALSE;
727: x_return_status := Okl_Api.G_RET_STS_ERROR;
728: RAISE G_EXCEPTION_HALT_PROCESSING;
729: END IF;
730: END IF;
731:
737: -- with the next column
738: NULL;
739: WHEN OTHERS THEN
740: -- store SQL error message on message stack
741: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
742: p_msg_name => G_UNEXPECTED_ERROR,
743: p_token1 => G_SQLCODE_TOKEN,
744: p_token1_value => SQLCODE,
745:
745:
746: p_token2 => G_SQLERRM_TOKEN,
747: p_token2_value => SQLERRM);
748: x_valid := FALSE;
749: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
750:
751: IF (okl_pqvv_chk_upd%ISOPEN) THEN
752: CLOSE okl_pqvv_chk_upd;
753: END IF;
805: FROM okl_pqy_values_v
806: WHERE okl_pqy_values_v.id = p_id;
807:
808: l_qve_status VARCHAR2(1);
809: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
810: l_row_notfound BOOLEAN := TRUE;
811: l_token_1 VARCHAR2(999);
812:
813: BEGIN
811: l_token_1 VARCHAR2(999);
812:
813: BEGIN
814: -- initialize return status
815: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
816:
817: l_token_1 := Okl_Accounting_Util.Get_Message_Token(p_region_code => 'OKL_LP_PDT_PQV_VAL_CREATE',
818: p_attribute_code => 'OKL_PRODUCT_QUALITY_VALUE');
819:
818: p_attribute_code => 'OKL_PRODUCT_QUALITY_VALUE');
819:
820: -- check for data before processing
821: IF (p_pqvv_rec.qve_id IS NULL) OR
822: (p_pqvv_rec.qve_id = Okl_Api.G_MISS_NUM) THEN
823: -- Start of wraper code generated automatically by Debug code generator for Okl_Api.SET_MESSAGE
824: IF(L_DEBUG_ENABLED='Y') THEN
825: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
826: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
819:
820: -- check for data before processing
821: IF (p_pqvv_rec.qve_id IS NULL) OR
822: (p_pqvv_rec.qve_id = Okl_Api.G_MISS_NUM) THEN
823: -- Start of wraper code generated automatically by Debug code generator for Okl_Api.SET_MESSAGE
824: IF(L_DEBUG_ENABLED='Y') THEN
825: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
826: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
827: END IF;
826: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
827: END IF;
828: IF(IS_DEBUG_PROCEDURE_ON) THEN
829: BEGIN
830: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRSUVB.pls call Okl_Api.SET_MESSAGE ');
831: END;
832: END IF;
833: Okl_Api.SET_MESSAGE(p_app_name => Okl_Pqv_Pvt.g_app_name
834: ,p_msg_name => Okl_Pqv_Pvt.g_required_value
829: BEGIN
830: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRSUVB.pls call Okl_Api.SET_MESSAGE ');
831: END;
832: END IF;
833: Okl_Api.SET_MESSAGE(p_app_name => Okl_Pqv_Pvt.g_app_name
834: ,p_msg_name => Okl_Pqv_Pvt.g_required_value
835: ,p_token1 => Okl_Pqv_Pvt.g_col_name_token
836: ,p_token1_value => l_token_1);
837:
836: ,p_token1_value => l_token_1);
837:
838: IF(IS_DEBUG_PROCEDURE_ON) THEN
839: BEGIN
840: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRSUVB.pls call Okl_Api.SET_MESSAGE ');
841: END;
842: END IF;
843: -- End of wraper code generated automatically by Debug code generator for Okl_Api.SET_MESSAGE
844: x_return_status := Okl_Api.G_RET_STS_ERROR;
839: BEGIN
840: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRSUVB.pls call Okl_Api.SET_MESSAGE ');
841: END;
842: END IF;
843: -- End of wraper code generated automatically by Debug code generator for Okl_Api.SET_MESSAGE
844: x_return_status := Okl_Api.G_RET_STS_ERROR;
845: RAISE G_EXCEPTION_HALT_PROCESSING;
846: END IF;
847:
840: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRSUVB.pls call Okl_Api.SET_MESSAGE ');
841: END;
842: END IF;
843: -- End of wraper code generated automatically by Debug code generator for Okl_Api.SET_MESSAGE
844: x_return_status := Okl_Api.G_RET_STS_ERROR;
845: RAISE G_EXCEPTION_HALT_PROCESSING;
846: END IF;
847:
848: IF (p_pqvv_rec.QVE_ID IS NOT NULL)
851: FETCH okl_qvev_pk_csr INTO l_qve_status;
852: l_row_notfound := okl_qvev_pk_csr%NOTFOUND;
853: CLOSE okl_qvev_pk_csr;
854: IF (l_row_notfound) THEN
855: -- Start of wraper code generated automatically by Debug code generator for Okl_Api.set_message
856: IF(IS_DEBUG_PROCEDURE_ON) THEN
857: BEGIN
858: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRSUVB.pls call Okl_Api.set_message ');
859: END;
854: IF (l_row_notfound) THEN
855: -- Start of wraper code generated automatically by Debug code generator for Okl_Api.set_message
856: IF(IS_DEBUG_PROCEDURE_ON) THEN
857: BEGIN
858: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRSUVB.pls call Okl_Api.set_message ');
859: END;
860: END IF;
861: Okl_Api.set_message(Okl_Pqv_Pvt.G_APP_NAME, Okl_Pqv_Pvt.G_INVALID_VALUE,Okl_Pqv_Pvt.G_COL_NAME_TOKEN,l_token_1);
862: IF(IS_DEBUG_PROCEDURE_ON) THEN
857: BEGIN
858: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRSUVB.pls call Okl_Api.set_message ');
859: END;
860: END IF;
861: Okl_Api.set_message(Okl_Pqv_Pvt.G_APP_NAME, Okl_Pqv_Pvt.G_INVALID_VALUE,Okl_Pqv_Pvt.G_COL_NAME_TOKEN,l_token_1);
862: IF(IS_DEBUG_PROCEDURE_ON) THEN
863: BEGIN
864: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRSUVB.pls call Okl_Api.set_message ');
865:
860: END IF;
861: Okl_Api.set_message(Okl_Pqv_Pvt.G_APP_NAME, Okl_Pqv_Pvt.G_INVALID_VALUE,Okl_Pqv_Pvt.G_COL_NAME_TOKEN,l_token_1);
862: IF(IS_DEBUG_PROCEDURE_ON) THEN
863: BEGIN
864: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRSUVB.pls call Okl_Api.set_message ');
865:
866:
867: END;
868: END IF;
865:
866:
867: END;
868: END IF;
869: -- End of wraper code generated automatically by Debug code generator for Okl_Api.set_message
870: RAISE G_ITEM_NOT_FOUND_ERROR;
871: END IF;
872: END IF;
873:
876: -- no processing necessary; validation can continue
877: -- with the next column
878: NULL;
879: WHEN G_ITEM_NOT_FOUND_ERROR THEN
880: x_return_status := Okl_Api.G_RET_STS_ERROR;
881:
882: WHEN OTHERS THEN
883: -- store SQL error message on message stack for caller
884: Okl_Api.SET_MESSAGE(p_app_name => Okl_Pqv_Pvt.g_app_name,
880: x_return_status := Okl_Api.G_RET_STS_ERROR;
881:
882: WHEN OTHERS THEN
883: -- store SQL error message on message stack for caller
884: Okl_Api.SET_MESSAGE(p_app_name => Okl_Pqv_Pvt.g_app_name,
885: p_msg_name => Okl_Pqv_Pvt.g_unexpected_error,
886: p_token1 => Okl_Pqv_Pvt.g_sqlcode_token,
887: p_token1_value => SQLCODE,
888: p_token2 => Okl_Pqv_Pvt.g_sqlerrm_token,
888: p_token2 => Okl_Pqv_Pvt.g_sqlerrm_token,
889: p_token2_value => SQLERRM);
890:
891: -- notify caller of an UNEXPECTED error
892: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
893:
894: END Validate_Qve_Id;
895:
896: ---------------------------------------------------------------------------
905:
906: FUNCTION Validate_Attributes (
907: p_pqvv_rec IN pqvv_rec_type
908: ) RETURN VARCHAR2 IS
909: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
910: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
911: BEGIN
912: -- Validate_Qve_Id
913: Validate_Qve_Id(p_pqvv_rec,x_return_status);
906: FUNCTION Validate_Attributes (
907: p_pqvv_rec IN pqvv_rec_type
908: ) RETURN VARCHAR2 IS
909: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
910: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
911: BEGIN
912: -- Validate_Qve_Id
913: Validate_Qve_Id(p_pqvv_rec,x_return_status);
914: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
910: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
911: BEGIN
912: -- Validate_Qve_Id
913: Validate_Qve_Id(p_pqvv_rec,x_return_status);
914: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
915: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
916: -- need to leave
917: l_return_status := x_return_status;
918: RAISE G_EXCEPTION_HALT_PROCESSING;
911: BEGIN
912: -- Validate_Qve_Id
913: Validate_Qve_Id(p_pqvv_rec,x_return_status);
914: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
915: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
916: -- need to leave
917: l_return_status := x_return_status;
918: RAISE G_EXCEPTION_HALT_PROCESSING;
919: ELSE
929: RETURN (l_return_status);
930:
931: WHEN OTHERS THEN
932: -- store SQL error message on message stack for caller
933: Okl_Api.SET_MESSAGE(p_app_name => Okl_Pqv_Pvt.g_app_name,
934: p_msg_name => Okl_Pqv_Pvt.g_unexpected_error,
935: p_token1 => Okl_Pqv_Pvt.g_sqlcode_token,
936: p_token1_value => SQLCODE,
937:
937:
938: p_token2 => Okl_Pqv_Pvt.g_sqlerrm_token,
939: p_token2_value => SQLERRM);
940: -- notify caller of an UNEXPECTED error
941: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
942: RETURN(l_return_status);
943:
944: END Validate_Attributes;
945:
948: -- PROCEDURE insert_pqvvalues for: Okl_Pdt_Pqy_Vals_v
949: ---------------------------------------------------------------------------
950: PROCEDURE insert_pqvalues(
951: p_api_version IN NUMBER,
952: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
953: x_return_status OUT NOCOPY VARCHAR2,
954: x_msg_count OUT NOCOPY NUMBER,
955: x_msg_data OUT NOCOPY VARCHAR2,
956: p_pqyv_rec IN pqyv_rec_type,
959: x_pqvv_rec OUT NOCOPY pqvv_rec_type
960: ) IS
961: l_api_version CONSTANT NUMBER := 1;
962: l_api_name CONSTANT VARCHAR2(30) := 'insert_pqvalues';
963: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
964: l_sysdate DATE := to_date(to_char(SYSDATE, 'DD/MM/YYYY'), 'DD/MM/YYYY');
965: l_valid BOOLEAN;
966:
967: l_pqvv_rec pqvv_rec_type;
970: l_pdtv_rec pdtv_rec_type;
971: l_row_notfound BOOLEAN := TRUE;
972: l_no_data_found BOOLEAN := TRUE;
973: BEGIN
974: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
975:
976: l_pqvv_rec := p_pqvv_rec;
977:
978: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
974: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
975:
976: l_pqvv_rec := p_pqvv_rec;
977:
978: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
979: p_pkg_name => G_PKG_NAME,
980: p_init_msg_list => p_init_msg_list,
981: l_api_version => l_api_version,
982: p_api_version => p_api_version,
982: p_api_version => p_api_version,
983: p_api_type => '_PVT',
984: x_return_status => l_return_status);
985:
986: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
987: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
988: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
989: RAISE Okl_Api.G_EXCEPTION_ERROR;
990: END IF;
983: p_api_type => '_PVT',
984: x_return_status => l_return_status);
985:
986: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
987: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
988: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
989: RAISE Okl_Api.G_EXCEPTION_ERROR;
990: END IF;
991:
984: x_return_status => l_return_status);
985:
986: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
987: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
988: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
989: RAISE Okl_Api.G_EXCEPTION_ERROR;
990: END IF;
991:
992: get_parent_dates(p_pqvv_rec => l_pqvv_rec,
985:
986: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
987: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
988: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
989: RAISE Okl_Api.G_EXCEPTION_ERROR;
990: END IF;
991:
992: get_parent_dates(p_pqvv_rec => l_pqvv_rec,
993: x_no_data_found => l_row_notfound,
995: x_pdtv_rec => l_pdtv_rec);
996:
997:
998: IF (l_row_notfound) THEN
999: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1000: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1001: RAISE Okl_Api.G_EXCEPTION_ERROR;
1002: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
996:
997:
998: IF (l_row_notfound) THEN
999: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1000: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1001: RAISE Okl_Api.G_EXCEPTION_ERROR;
1002: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1004: END IF;
997:
998: IF (l_row_notfound) THEN
999: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1000: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1001: RAISE Okl_Api.G_EXCEPTION_ERROR;
1002: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1004: END IF;
1005:
998: IF (l_row_notfound) THEN
999: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1000: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1001: RAISE Okl_Api.G_EXCEPTION_ERROR;
1002: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1004: END IF;
1005:
1006: --assign parent dates.
999: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1000: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1001: RAISE Okl_Api.G_EXCEPTION_ERROR;
1002: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1003: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1004: END IF;
1005:
1006: --assign parent dates.
1007:
1018: x_msg_count => x_msg_count,
1019: x_msg_data => x_msg_data,
1020: x_valid => l_valid);
1021:
1022: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1023: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1024: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1025: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1026: l_valid <> TRUE) THEN
1019: x_msg_data => x_msg_data,
1020: x_valid => l_valid);
1021:
1022: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1023: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1024: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1025: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1026: l_valid <> TRUE) THEN
1027: x_return_status := Okl_Api.G_RET_STS_ERROR;
1020: x_valid => l_valid);
1021:
1022: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1023: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1024: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1025: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1026: l_valid <> TRUE) THEN
1027: x_return_status := Okl_Api.G_RET_STS_ERROR;
1028: RAISE Okl_Api.G_EXCEPTION_ERROR;
1021:
1022: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1023: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1024: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1025: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1026: l_valid <> TRUE) THEN
1027: x_return_status := Okl_Api.G_RET_STS_ERROR;
1028: RAISE Okl_Api.G_EXCEPTION_ERROR;
1029: END IF;
1023: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1024: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1025: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1026: l_valid <> TRUE) THEN
1027: x_return_status := Okl_Api.G_RET_STS_ERROR;
1028: RAISE Okl_Api.G_EXCEPTION_ERROR;
1029: END IF;
1030:
1031: /* public api to insert pqyvalues */
1024: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1025: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1026: l_valid <> TRUE) THEN
1027: x_return_status := Okl_Api.G_RET_STS_ERROR;
1028: RAISE Okl_Api.G_EXCEPTION_ERROR;
1029: END IF;
1030:
1031: /* public api to insert pqyvalues */
1032:
1054: END;
1055: END IF;
1056: -- End of wraper code generated automatically by Debug code generator for Okl_Pqy_Values_Pub.insert_pqy_values
1057:
1058: IF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1059: RAISE Okl_Api.G_EXCEPTION_ERROR;
1060: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1061: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1062: END IF;
1055: END IF;
1056: -- End of wraper code generated automatically by Debug code generator for Okl_Pqy_Values_Pub.insert_pqy_values
1057:
1058: IF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1059: RAISE Okl_Api.G_EXCEPTION_ERROR;
1060: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1061: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1062: END IF;
1063:
1056: -- End of wraper code generated automatically by Debug code generator for Okl_Pqy_Values_Pub.insert_pqy_values
1057:
1058: IF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1059: RAISE Okl_Api.G_EXCEPTION_ERROR;
1060: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1061: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1062: END IF;
1063:
1064: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1057:
1058: IF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1059: RAISE Okl_Api.G_EXCEPTION_ERROR;
1060: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1061: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1062: END IF;
1063:
1064: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1065: x_msg_data => x_msg_data);
1060: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1061: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1062: END IF;
1063:
1064: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1065: x_msg_data => x_msg_data);
1066: EXCEPTION
1067: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1068: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1063:
1064: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1065: x_msg_data => x_msg_data);
1066: EXCEPTION
1067: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1068: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1069: p_pkg_name => G_PKG_NAME,
1070:
1071: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1064: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1065: x_msg_data => x_msg_data);
1066: EXCEPTION
1067: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1068: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1069: p_pkg_name => G_PKG_NAME,
1070:
1071: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1072: x_msg_count => x_msg_count,
1067: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1068: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1069: p_pkg_name => G_PKG_NAME,
1070:
1071: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1072: x_msg_count => x_msg_count,
1073:
1074: x_msg_data => x_msg_data,
1075: p_api_type => '_PVT');
1072: x_msg_count => x_msg_count,
1073:
1074: x_msg_data => x_msg_data,
1075: p_api_type => '_PVT');
1076: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1077: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1078: p_pkg_name => G_PKG_NAME,
1079: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1080: x_msg_count => x_msg_count,
1073:
1074: x_msg_data => x_msg_data,
1075: p_api_type => '_PVT');
1076: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1077: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1078: p_pkg_name => G_PKG_NAME,
1079: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1080: x_msg_count => x_msg_count,
1081: x_msg_data => x_msg_data,
1075: p_api_type => '_PVT');
1076: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1077: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1078: p_pkg_name => G_PKG_NAME,
1079: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1080: x_msg_count => x_msg_count,
1081: x_msg_data => x_msg_data,
1082: p_api_type => '_PVT');
1083: WHEN OTHERS THEN
1080: x_msg_count => x_msg_count,
1081: x_msg_data => x_msg_data,
1082: p_api_type => '_PVT');
1083: WHEN OTHERS THEN
1084: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1085: p_pkg_name => G_PKG_NAME,
1086: p_exc_name => 'OTHERS',
1087: x_msg_count => x_msg_count,
1088: x_msg_data => x_msg_data,
1094: -- PROCEDURE update_pqvvalues for: Okl_Pdt_Pqy_Vals_v
1095: ---------------------------------------------------------------------------
1096: PROCEDURE update_pqvalues(
1097: p_api_version IN NUMBER,
1098: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1099: x_return_status OUT NOCOPY VARCHAR2,
1100: x_msg_count OUT NOCOPY NUMBER,
1101: x_msg_data OUT NOCOPY VARCHAR2,
1102: p_pqyv_rec IN pqyv_rec_type,
1105: x_pqvv_rec OUT NOCOPY pqvv_rec_type
1106: ) IS
1107: l_api_version CONSTANT NUMBER := 1;
1108: l_api_name CONSTANT VARCHAR2(30) := 'update_pqvalues';
1109: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1110: l_sysdate DATE := to_date(to_char(SYSDATE, 'DD/MM/YYYY'), 'DD/MM/YYYY');
1111: l_valid BOOLEAN;
1112: l_pqvv_rec pqvv_rec_type;
1113: l_pdtv_rec pdtv_rec_type;
1116: l_no_data_found BOOLEAN := TRUE;
1117:
1118:
1119: BEGIN
1120: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1121:
1122: l_pqvv_rec := p_pqvv_rec;
1123:
1124: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1120: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1121:
1122: l_pqvv_rec := p_pqvv_rec;
1123:
1124: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1125: p_pkg_name => G_PKG_NAME,
1126: p_init_msg_list => p_init_msg_list,
1127: l_api_version => l_api_version,
1128: p_api_version => p_api_version,
1128: p_api_version => p_api_version,
1129: p_api_type => '_PVT',
1130: x_return_status => l_return_status);
1131:
1132: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1135: RAISE Okl_Api.G_EXCEPTION_ERROR;
1136: END IF;
1129: p_api_type => '_PVT',
1130: x_return_status => l_return_status);
1131:
1132: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1135: RAISE Okl_Api.G_EXCEPTION_ERROR;
1136: END IF;
1137:
1130: x_return_status => l_return_status);
1131:
1132: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1135: RAISE Okl_Api.G_EXCEPTION_ERROR;
1136: END IF;
1137:
1138: /* fetch old details from the database */
1131:
1132: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1135: RAISE Okl_Api.G_EXCEPTION_ERROR;
1136: END IF;
1137:
1138: /* fetch old details from the database */
1139:
1142:
1143: x_no_data_found => l_no_data_found,
1144: x_pqvv_rec => l_db_pqvv_rec);
1145:
1146: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS OR
1147: l_no_data_found = TRUE THEN
1148: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1149: END IF;
1150:
1144: x_pqvv_rec => l_db_pqvv_rec);
1145:
1146: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS OR
1147: l_no_data_found = TRUE THEN
1148: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1149: END IF;
1150:
1151: get_parent_dates(p_pqvv_rec => l_pqvv_rec,
1152: x_no_data_found => l_row_notfound,
1154: x_pdtv_rec => l_pdtv_rec);
1155:
1156: IF (l_row_notfound) THEN
1157:
1158: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1159: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1160: RAISE Okl_Api.G_EXCEPTION_ERROR;
1161: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1162: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1155:
1156: IF (l_row_notfound) THEN
1157:
1158: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1159: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1160: RAISE Okl_Api.G_EXCEPTION_ERROR;
1161: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1162: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1163: END IF;
1156: IF (l_row_notfound) THEN
1157:
1158: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1159: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1160: RAISE Okl_Api.G_EXCEPTION_ERROR;
1161: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1162: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1163: END IF;
1164:
1157:
1158: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1159: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1160: RAISE Okl_Api.G_EXCEPTION_ERROR;
1161: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1162: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1163: END IF;
1164:
1165: --assign parent dates.
1158: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1159: ELSIF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1160: RAISE Okl_Api.G_EXCEPTION_ERROR;
1161: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1162: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1163: END IF;
1164:
1165: --assign parent dates.
1166:
1178: x_msg_count => x_msg_count,
1179: x_msg_data => x_msg_data,
1180: x_valid => l_valid);
1181:
1182: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1185: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1186: l_valid <> TRUE) THEN
1179: x_msg_data => x_msg_data,
1180: x_valid => l_valid);
1181:
1182: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1185: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1186: l_valid <> TRUE) THEN
1187: x_return_status := Okl_Api.G_RET_STS_ERROR;
1180: x_valid => l_valid);
1181:
1182: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1185: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1186: l_valid <> TRUE) THEN
1187: x_return_status := Okl_Api.G_RET_STS_ERROR;
1188: RAISE Okl_Api.G_EXCEPTION_ERROR;
1181:
1182: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1185: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1186: l_valid <> TRUE) THEN
1187: x_return_status := Okl_Api.G_RET_STS_ERROR;
1188: RAISE Okl_Api.G_EXCEPTION_ERROR;
1189:
1183: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1185: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1186: l_valid <> TRUE) THEN
1187: x_return_status := Okl_Api.G_RET_STS_ERROR;
1188: RAISE Okl_Api.G_EXCEPTION_ERROR;
1189:
1190: END IF;
1191:
1184: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) OR
1185: (l_return_status = Okl_Api.G_RET_STS_SUCCESS AND
1186: l_valid <> TRUE) THEN
1187: x_return_status := Okl_Api.G_RET_STS_ERROR;
1188: RAISE Okl_Api.G_EXCEPTION_ERROR;
1189:
1190: END IF;
1191:
1192: /* public api to update pqyvalues */
1215: END;
1216: END IF;
1217: -- End of wraper code generated automatically by Debug code generator for Okl_Pqy_Values_Pub.update_pqy_values
1218:
1219: IF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1220: RAISE Okl_Api.G_EXCEPTION_ERROR;
1221: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1223: END IF;
1216: END IF;
1217: -- End of wraper code generated automatically by Debug code generator for Okl_Pqy_Values_Pub.update_pqy_values
1218:
1219: IF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1220: RAISE Okl_Api.G_EXCEPTION_ERROR;
1221: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1223: END IF;
1224:
1217: -- End of wraper code generated automatically by Debug code generator for Okl_Pqy_Values_Pub.update_pqy_values
1218:
1219: IF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1220: RAISE Okl_Api.G_EXCEPTION_ERROR;
1221: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1223: END IF;
1224:
1225: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1218:
1219: IF l_return_status = Okl_Api.G_RET_STS_ERROR THEN
1220: RAISE Okl_Api.G_EXCEPTION_ERROR;
1221: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1223: END IF;
1224:
1225: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1226: x_msg_data => x_msg_data);
1221: ELSIF l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
1222: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1223: END IF;
1224:
1225: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1226: x_msg_data => x_msg_data);
1227: EXCEPTION
1228: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1229: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1224:
1225: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1226: x_msg_data => x_msg_data);
1227: EXCEPTION
1228: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1229: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1230: p_pkg_name => G_PKG_NAME,
1231: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1232: x_msg_count => x_msg_count,
1225: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1226: x_msg_data => x_msg_data);
1227: EXCEPTION
1228: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1229: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1230: p_pkg_name => G_PKG_NAME,
1231: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1232: x_msg_count => x_msg_count,
1233: x_msg_data => x_msg_data,
1227: EXCEPTION
1228: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1229: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1230: p_pkg_name => G_PKG_NAME,
1231: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1232: x_msg_count => x_msg_count,
1233: x_msg_data => x_msg_data,
1234: p_api_type => '_PVT');
1235: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1231: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1232: x_msg_count => x_msg_count,
1233: x_msg_data => x_msg_data,
1234: p_api_type => '_PVT');
1235: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1236: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1237: p_pkg_name => G_PKG_NAME,
1238: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1239: x_msg_count => x_msg_count,
1232: x_msg_count => x_msg_count,
1233: x_msg_data => x_msg_data,
1234: p_api_type => '_PVT');
1235: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1236: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1237: p_pkg_name => G_PKG_NAME,
1238: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1239: x_msg_count => x_msg_count,
1240: x_msg_data => x_msg_data,
1234: p_api_type => '_PVT');
1235: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1236: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1237: p_pkg_name => G_PKG_NAME,
1238: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1239: x_msg_count => x_msg_count,
1240: x_msg_data => x_msg_data,
1241: p_api_type => '_PVT');
1242: WHEN OTHERS THEN
1239: x_msg_count => x_msg_count,
1240: x_msg_data => x_msg_data,
1241: p_api_type => '_PVT');
1242: WHEN OTHERS THEN
1243: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1244: p_pkg_name => G_PKG_NAME,
1245: p_exc_name => 'OTHERS',
1246: x_msg_count => x_msg_count,
1247: x_msg_data => x_msg_data,
1249:
1250: END update_pqvalues;
1251: PROCEDURE update_pqvalues(
1252: p_api_version IN NUMBER,
1253: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1254: x_return_status OUT NOCOPY VARCHAR2,
1255: x_msg_count OUT NOCOPY NUMBER,
1256: x_msg_data OUT NOCOPY VARCHAR2,
1257: p_pqyv_rec IN pqyv_rec_type,
1258: p_pdtv_rec IN pdtv_rec_type,
1259: p_pqvv_tbl IN pqvv_tbl_type,
1260: x_pqvv_tbl OUT NOCOPY pqvv_tbl_type) IS
1261: l_api_name CONSTANT VARCHAR2(30) := 'update_pqvalues';
1262: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1263: i NUMBER := 0;
1264: l_api_version CONSTANT NUMBER := 1;
1265: BEGIN
1266: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1262: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1263: i NUMBER := 0;
1264: l_api_version CONSTANT NUMBER := 1;
1265: BEGIN
1266: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1267: l_overall_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1268: p_pkg_name => G_PKG_NAME,
1269: p_init_msg_list => p_init_msg_list,
1270: l_api_version => l_api_version,
1263: i NUMBER := 0;
1264: l_api_version CONSTANT NUMBER := 1;
1265: BEGIN
1266: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1267: l_overall_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1268: p_pkg_name => G_PKG_NAME,
1269: p_init_msg_list => p_init_msg_list,
1270: l_api_version => l_api_version,
1271: p_api_version => p_api_version,
1276: i := p_pqvv_tbl.FIRST;
1277: LOOP
1278: update_pqvalues(
1279: p_api_version => p_api_version,
1280: p_init_msg_list => OKL_API.G_FALSE,
1281: x_return_status => x_return_status,
1282: x_msg_count => x_msg_count,
1283: x_msg_data => x_msg_data,
1284: p_pqyv_rec => p_pqyv_rec,
1285: p_pdtv_rec => p_pdtv_rec,
1286: p_pqvv_rec => p_pqvv_tbl(i),
1287: x_pqvv_rec => x_pqvv_tbl(i)
1288: );
1289: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1290: RAISE OKL_API.G_EXCEPTION_ERROR;
1291: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1293: END IF;
1286: p_pqvv_rec => p_pqvv_tbl(i),
1287: x_pqvv_rec => x_pqvv_tbl(i)
1288: );
1289: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1290: RAISE OKL_API.G_EXCEPTION_ERROR;
1291: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1293: END IF;
1294:
1287: x_pqvv_rec => x_pqvv_tbl(i)
1288: );
1289: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1290: RAISE OKL_API.G_EXCEPTION_ERROR;
1291: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1293: END IF;
1294:
1295: EXIT WHEN (i = p_pqvv_tbl.LAST);
1288: );
1289: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1290: RAISE OKL_API.G_EXCEPTION_ERROR;
1291: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1293: END IF;
1294:
1295: EXIT WHEN (i = p_pqvv_tbl.LAST);
1296: i := p_pqvv_tbl.NEXT(i);
1295: EXIT WHEN (i = p_pqvv_tbl.LAST);
1296: i := p_pqvv_tbl.NEXT(i);
1297: END LOOP;
1298: END IF;
1299: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1300: x_msg_data => x_msg_data);
1301: EXCEPTION
1302: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1303: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1298: END IF;
1299: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1300: x_msg_data => x_msg_data);
1301: EXCEPTION
1302: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1303: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1304: p_pkg_name => G_PKG_NAME,
1305: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1306: x_msg_count => x_msg_count,
1299: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1300: x_msg_data => x_msg_data);
1301: EXCEPTION
1302: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1303: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1304: p_pkg_name => G_PKG_NAME,
1305: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1306: x_msg_count => x_msg_count,
1307: x_msg_data => x_msg_data,
1301: EXCEPTION
1302: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1303: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1304: p_pkg_name => G_PKG_NAME,
1305: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1306: x_msg_count => x_msg_count,
1307: x_msg_data => x_msg_data,
1308: p_api_type => '_PVT');
1309: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1305: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1306: x_msg_count => x_msg_count,
1307: x_msg_data => x_msg_data,
1308: p_api_type => '_PVT');
1309: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1310:
1311: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1312: p_pkg_name => G_PKG_NAME,
1313: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1307: x_msg_data => x_msg_data,
1308: p_api_type => '_PVT');
1309: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1310:
1311: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1312: p_pkg_name => G_PKG_NAME,
1313: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1314: x_msg_count => x_msg_count,
1315: x_msg_data => x_msg_data,
1309: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1310:
1311: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1312: p_pkg_name => G_PKG_NAME,
1313: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1314: x_msg_count => x_msg_count,
1315: x_msg_data => x_msg_data,
1316:
1317: p_api_type => '_PVT');
1315: x_msg_data => x_msg_data,
1316:
1317: p_api_type => '_PVT');
1318: WHEN OTHERS THEN
1319: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1320: p_pkg_name => G_PKG_NAME,
1321: p_exc_name => 'OTHERS',
1322: x_msg_count => x_msg_count,
1323: x_msg_data => x_msg_data,
1328:
1329: END update_pqvalues;
1330: PROCEDURE insert_pqvalues(
1331: p_api_version IN NUMBER,
1332: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1333: x_return_status OUT NOCOPY VARCHAR2,
1334: x_msg_count OUT NOCOPY NUMBER,
1335: x_msg_data OUT NOCOPY VARCHAR2,
1336: p_pqyv_rec IN pqyv_rec_type,
1337: p_pdtv_rec IN pdtv_rec_type,
1338: p_pqvv_tbl IN pqvv_tbl_type,
1339: x_pqvv_tbl OUT NOCOPY pqvv_tbl_type) IS
1340: l_api_name CONSTANT VARCHAR2(30) := 'insert_pqvalues';
1341: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1342: i NUMBER := 0;
1343: l_api_version CONSTANT NUMBER := 1;
1344: l_pqyv_rec pqyv_rec_type ;
1345: l_pdtv_rec pdtv_rec_type;
1343: l_api_version CONSTANT NUMBER := 1;
1344: l_pqyv_rec pqyv_rec_type ;
1345: l_pdtv_rec pdtv_rec_type;
1346: BEGIN
1347: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1348: l_overall_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1349: p_pkg_name => G_PKG_NAME,
1350: p_init_msg_list => p_init_msg_list,
1351: l_api_version => l_api_version,
1344: l_pqyv_rec pqyv_rec_type ;
1345: l_pdtv_rec pdtv_rec_type;
1346: BEGIN
1347: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1348: l_overall_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1349: p_pkg_name => G_PKG_NAME,
1350: p_init_msg_list => p_init_msg_list,
1351: l_api_version => l_api_version,
1352: p_api_version => p_api_version,
1361:
1362:
1363: insert_pqvalues(
1364: p_api_version => p_api_version,
1365: p_init_msg_list => OKL_API.G_FALSE,
1366: x_return_status => x_return_status,
1367: x_msg_count => x_msg_count,
1368: x_msg_data => x_msg_data,
1369: p_pqyv_rec => p_pqyv_rec,
1371: p_pqvv_rec => p_pqvv_tbl(i),
1372: x_pqvv_rec => x_pqvv_tbl(i)
1373: );
1374:
1375: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1376: RAISE OKL_API.G_EXCEPTION_ERROR;
1377: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: END IF;
1372: x_pqvv_rec => x_pqvv_tbl(i)
1373: );
1374:
1375: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1376: RAISE OKL_API.G_EXCEPTION_ERROR;
1377: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: END IF;
1380:
1373: );
1374:
1375: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1376: RAISE OKL_API.G_EXCEPTION_ERROR;
1377: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: END IF;
1380:
1381: EXIT WHEN (i = p_pqvv_tbl.LAST);
1374:
1375: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1376: RAISE OKL_API.G_EXCEPTION_ERROR;
1377: ELSIF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: END IF;
1380:
1381: EXIT WHEN (i = p_pqvv_tbl.LAST);
1382: i := p_pqvv_tbl.NEXT(i);
1381: EXIT WHEN (i = p_pqvv_tbl.LAST);
1382: i := p_pqvv_tbl.NEXT(i);
1383: END LOOP;
1384: END IF;
1385: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1386: x_msg_data => x_msg_data);
1387: EXCEPTION
1388: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1389: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1384: END IF;
1385: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1386: x_msg_data => x_msg_data);
1387: EXCEPTION
1388: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1389: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1390: p_pkg_name => G_PKG_NAME,
1391: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1392: x_msg_count => x_msg_count,
1385: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1386: x_msg_data => x_msg_data);
1387: EXCEPTION
1388: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1389: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1390: p_pkg_name => G_PKG_NAME,
1391: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1392: x_msg_count => x_msg_count,
1393: x_msg_data => x_msg_data,
1387: EXCEPTION
1388: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1389: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1390: p_pkg_name => G_PKG_NAME,
1391: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1392: x_msg_count => x_msg_count,
1393: x_msg_data => x_msg_data,
1394: p_api_type => '_PVT');
1395: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1391: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1392: x_msg_count => x_msg_count,
1393: x_msg_data => x_msg_data,
1394: p_api_type => '_PVT');
1395: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1396:
1397: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1398: p_pkg_name => G_PKG_NAME,
1399: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1393: x_msg_data => x_msg_data,
1394: p_api_type => '_PVT');
1395: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1396:
1397: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1398: p_pkg_name => G_PKG_NAME,
1399: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1400: x_msg_count => x_msg_count,
1401: x_msg_data => x_msg_data,
1395: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1396:
1397: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1398: p_pkg_name => G_PKG_NAME,
1399: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1400: x_msg_count => x_msg_count,
1401: x_msg_data => x_msg_data,
1402:
1403: p_api_type => '_PVT');
1401: x_msg_data => x_msg_data,
1402:
1403: p_api_type => '_PVT');
1404: WHEN OTHERS THEN
1405: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1406: p_pkg_name => G_PKG_NAME,
1407: p_exc_name => 'OTHERS',
1408: x_msg_count => x_msg_count,
1409: x_msg_data => x_msg_data,