DBA Data[Home] [Help]

APPS.OKL_AM_PARTIES_PVT dependencies on OKL_API

Line 33: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

29: x_qpyv_tbl OUT NOCOPY qpyv_tbl_type,
30: x_return_status OUT NOCOPY VARCHAR2) IS
31:
32: l_qpyv_tbl qpyv_tbl_type;
33: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
34: l_cnt NUMBER := 0;
35:
36: CURSOR l_k_party_role_csr (
37: cp_role_code VARCHAR2,

Line 97: OKL_API.SET_MESSAGE (

93: CLOSE l_k_party_role_csr;
94: END IF;
95:
96: -- store SQL error message on message stack for caller
97: OKL_API.SET_MESSAGE (
98: p_app_name => G_APP_NAME
99: ,p_msg_name => G_UNEXPECTED_ERROR
100: ,p_token1 => G_SQLCODE_TOKEN
101: ,p_token1_value => sqlcode

Line 106: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

102: ,p_token2 => G_SQLERRM_TOKEN
103: ,p_token2_value => sqlerrm);
104:
105: -- notify caller of an UNEXPECTED error
106: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
107:
108: END get_contract_party;
109:
110:

Line 132: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

128:
129: l_rulv_rec okl_rule_pub.rulv_rec_type;
130: l_qpyv_tbl qpyv_tbl_type;
131:
132: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
133: l_date_sent DATE := SYSDATE;
134: l_k_cnt NUMBER;
135: l_q_cnt NUMBER;
136:

Line 170: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN

166: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
167: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
168: END IF;
169:
170: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
171: IF l_rulv_rec.rule_information1 IS NOT NULL
172: AND l_rulv_rec.rule_information1 <> G_MISS_CHAR THEN
173: get_contract_party (
174: p_contract_id => p_contract_id,

Line 179: l_return_status := OKL_API.G_RET_STS_ERROR;

175: p_role_code => l_rulv_rec.rule_information1,
176: x_qpyv_tbl => l_qpyv_tbl,
177: x_return_status => l_return_status);
178: ELSE
179: l_return_status := OKL_API.G_RET_STS_ERROR;
180: END IF;
181: END IF;
182:
183: -- No parties found - create empty row

Line 186: l_return_status := OKL_API.G_RET_STS_ERROR;

182:
183: -- No parties found - create empty row
184: IF l_qpyv_tbl.COUNT = 0 THEN
185: l_qpyv_tbl(1).cpl_id := NULL;
186: l_return_status := OKL_API.G_RET_STS_ERROR;
187: END IF;
188:
189: FOR l_k_cnt IN l_qpyv_tbl.FIRST..l_qpyv_tbl.LAST LOOP
190:

Line 222: OKL_API.SET_MESSAGE (

218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
219: || sqlcode || ' , SQLERRM : ' || sqlerrm);
220: END IF;
221: -- store SQL error message on message stack for caller
222: OKL_API.SET_MESSAGE (
223: p_app_name => G_APP_NAME
224: ,p_msg_name => G_UNEXPECTED_ERROR
225: ,p_token1 => G_SQLCODE_TOKEN
226: ,p_token1_value => sqlcode

Line 231: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

227: ,p_token2 => G_SQLERRM_TOKEN
228: ,p_token2_value => sqlerrm);
229:
230: -- notify caller of an UNEXPECTED error
231: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
232:
233: END get_quote_party;
234:
235:

Line 251: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

247: x_qpyv_tbl OUT NOCOPY qpyv_tbl_type,
248: x_return_status OUT NOCOPY VARCHAR2) IS
249:
250: l_qpyv_tbl qpyv_tbl_type;
251: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
252: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
253:
254: l_contract_id NUMBER := p_qtev_rec.khr_id;
255: l_rule_chr_id NUMBER;

Line 252: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

248: x_return_status OUT NOCOPY VARCHAR2) IS
249:
250: l_qpyv_tbl qpyv_tbl_type;
251: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
252: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
253:
254: l_contract_id NUMBER := p_qtev_rec.khr_id;
255: l_rule_chr_id NUMBER;
256:

Line 303: l_overall_status := OKL_API.G_RET_STS_ERROR;

299:
300: IF l_contract_id IS NULL
301: OR l_contract_id = G_MISS_NUM THEN
302:
303: l_overall_status := OKL_API.G_RET_STS_ERROR;
304:
305: OKC_API.SET_MESSAGE (
306: p_app_name => OKC_API.G_APP_NAME,
307: p_msg_name => 'OKC_NO_PARAMS',

Line 327: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN

323: l_approver_rg := 'AMQR5A';
324: l_cou_copy_rg := 'AMQR9F';
325: END IF;
326:
327: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
328:
329: get_quote_party (
330: p_contract_id => l_contract_id,
331: p_rule_chr_id => l_rule_chr_id,

Line 344: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
341: 'after call to get_quote_party :'||l_return_status);
342: END IF;
343:
344: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
345: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
346: l_overall_status := l_return_status;
347: END IF;
348: END IF;

Line 345: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN

341: 'after call to get_quote_party :'||l_return_status);
342: END IF;
343:
344: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
345: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
346: l_overall_status := l_return_status;
347: END IF;
348: END IF;
349:

Line 350: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS

346: l_overall_status := l_return_status;
347: END IF;
348: END IF;
349:
350: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
351: OR l_qpyv_tbl.COUNT = 0 THEN
352: okl_am_util_pvt.set_message (
353: p_app_name => G_APP_NAME
354: ,p_msg_name => 'OKL_AM_QTE_RECIPIENT_NOT_FOUND'

Line 434: OKL_API.SET_MESSAGE (

430: || sqlcode || ' , SQLERRM : ' || sqlerrm);
431: END IF;
432:
433: -- store SQL error message on message stack for caller
434: OKL_API.SET_MESSAGE (
435: p_app_name => G_APP_NAME
436: ,p_msg_name => G_UNEXPECTED_ERROR
437: ,p_token1 => G_SQLCODE_TOKEN
438: ,p_token1_value => sqlcode

Line 443: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

439: ,p_token2 => G_SQLERRM_TOKEN
440: ,p_token2_value => sqlerrm);
441:
442: -- notify caller of an UNEXPECTED error
443: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
444:
445: END get_rule_quote_parties;
446:
447:

Line 507: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

503:
504: l_q_role_rec l_q_party_role_csr%ROWTYPE;
505: l_q_no_role_rec l_q_no_party_csr%ROWTYPE;
506:
507: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
508: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
509:
510: l_api_name CONSTANT VARCHAR2(30) := 'fetch_rule_quote_parties';
511: l_api_version CONSTANT NUMBER := G_API_VERSION;

Line 508: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

504: l_q_role_rec l_q_party_role_csr%ROWTYPE;
505: l_q_no_role_rec l_q_no_party_csr%ROWTYPE;
506:
507: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
508: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
509:
510: l_api_name CONSTANT VARCHAR2(30) := 'fetch_rule_quote_parties';
511: l_api_version CONSTANT NUMBER := G_API_VERSION;
512: l_msg_count NUMBER := G_MISS_NUM;

Line 558: l_return_status := OKL_API.START_ACTIVITY (

554: -- ***************************************************************
555: -- Check API version, initialize message list and create savepoint
556: -- ***************************************************************
557:
558: l_return_status := OKL_API.START_ACTIVITY (
559: l_api_name,
560: G_PKG_NAME,
561: p_init_msg_list,
562: l_api_version,

Line 567: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

563: p_api_version,
564: '_PVT',
565: x_return_status);
566:
567: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
569: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
570: RAISE OKL_API.G_EXCEPTION_ERROR;
571: END IF;

Line 568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

564: '_PVT',
565: x_return_status);
566:
567: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
569: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
570: RAISE OKL_API.G_EXCEPTION_ERROR;
571: END IF;
572:

Line 569: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN

565: x_return_status);
566:
567: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
569: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
570: RAISE OKL_API.G_EXCEPTION_ERROR;
571: END IF;
572:
573: -- ***********************************

Line 570: RAISE OKL_API.G_EXCEPTION_ERROR;

566:
567: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
569: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
570: RAISE OKL_API.G_EXCEPTION_ERROR;
571: END IF;
572:
573: -- ***********************************
574: -- Extract parties from contract rules

Line 589: -- IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

585: 'after call to get_rule_quote_parties :'||l_return_status);
586: END IF;
587:
588: -- Errors are acceptable
589: -- IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
590: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
591: -- ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
592: -- RAISE OKL_API.G_EXCEPTION_ERROR;
593: -- END IF;

Line 590: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

586: END IF;
587:
588: -- Errors are acceptable
589: -- IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
590: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
591: -- ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
592: -- RAISE OKL_API.G_EXCEPTION_ERROR;
593: -- END IF;
594:

Line 591: -- ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN

587:
588: -- Errors are acceptable
589: -- IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
590: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
591: -- ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
592: -- RAISE OKL_API.G_EXCEPTION_ERROR;
593: -- END IF;
594:
595: -- ********************

Line 592: -- RAISE OKL_API.G_EXCEPTION_ERROR;

588: -- Errors are acceptable
589: -- IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
590: -- RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
591: -- ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
592: -- RAISE OKL_API.G_EXCEPTION_ERROR;
593: -- END IF;
594:
595: -- ********************
596: -- Process every record

Line 625: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

621: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
622: 'after call to okl_am_util_pvt.get_object_details :'||l_return_status);
623: END IF;
624:
625: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
626: AND l_object_tbl.COUNT > 0 THEN
627: FOR l_ind IN l_object_tbl.FIRST..l_object_tbl.LAST LOOP
628: -- Party Object is found
629: l_cnt := l_cnt + 1;

Line 696: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);

692: x_q_party_uv_tbl := l_q_party_tbl;
693: x_qpyv_tbl := l_qpyv_tbl;
694: x_return_status := l_overall_status;
695:
696: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
697:
698: IF (is_debug_procedure_on) THEN
699: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
700: END IF;

Line 704: WHEN OKL_API.G_EXCEPTION_ERROR THEN

700: END IF;
701:
702: EXCEPTION
703:
704: WHEN OKL_API.G_EXCEPTION_ERROR THEN
705:
706: IF (is_debug_exception_on) THEN
707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
708: END IF;

Line 710: x_return_status := OKL_API.HANDLE_EXCEPTIONS

706: IF (is_debug_exception_on) THEN
707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
708: END IF;
709:
710: x_return_status := OKL_API.HANDLE_EXCEPTIONS
711: (
712: l_api_name,
713: G_PKG_NAME,
714: 'OKL_API.G_RET_STS_ERROR',

Line 714: 'OKL_API.G_RET_STS_ERROR',

710: x_return_status := OKL_API.HANDLE_EXCEPTIONS
711: (
712: l_api_name,
713: G_PKG_NAME,
714: 'OKL_API.G_RET_STS_ERROR',
715: x_msg_count,
716: x_msg_data,
717: '_PVT'
718: );

Line 720: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

716: x_msg_data,
717: '_PVT'
718: );
719:
720: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
721:
722: IF (is_debug_exception_on) THEN
723: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
724: END IF;

Line 726: x_return_status :=OKL_API.HANDLE_EXCEPTIONS

722: IF (is_debug_exception_on) THEN
723: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
724: END IF;
725:
726: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
727: (
728: l_api_name,
729: G_PKG_NAME,
730: 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 730: 'OKL_API.G_RET_STS_UNEXP_ERROR',

726: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
727: (
728: l_api_name,
729: G_PKG_NAME,
730: 'OKL_API.G_RET_STS_UNEXP_ERROR',
731: x_msg_count,
732: x_msg_data,
733: '_PVT'
734: );

Line 752: x_return_status :=OKL_API.HANDLE_EXCEPTIONS

748: IF l_q_no_party_csr%ISOPEN THEN
749: CLOSE l_q_no_party_csr;
750: END IF;
751:
752: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
753: (
754: l_api_name,
755: G_PKG_NAME,
756: 'OTHERS',

Line 783: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

779:
780: lp_qpyv_tbl qpyv_tbl_type;
781: lx_qpyv_tbl qpyv_tbl_type;
782:
783: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
784: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
785: l_api_version CONSTANT NUMBER := G_API_VERSION;
786: l_msg_count NUMBER := G_MISS_NUM;
787: l_msg_data VARCHAR2(2000);

Line 784: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

780: lp_qpyv_tbl qpyv_tbl_type;
781: lx_qpyv_tbl qpyv_tbl_type;
782:
783: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
784: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
785: l_api_version CONSTANT NUMBER := G_API_VERSION;
786: l_msg_count NUMBER := G_MISS_NUM;
787: l_msg_data VARCHAR2(2000);
788:

Line 855: l_overall_status := OKL_API.G_RET_STS_ERROR;

851:
852: IF p_qtev_rec.id IS NULL
853: OR p_qtev_rec.id = G_MISS_NUM THEN
854:
855: l_overall_status := OKL_API.G_RET_STS_ERROR;
856: OKC_API.SET_MESSAGE (
857: p_app_name => OKC_API.G_APP_NAME,
858: p_msg_name => 'OKC_NO_PARAMS',
859: p_token1 => 'PARAM',

Line 871: l_overall_status := OKL_API.G_RET_STS_ERROR;

867:
868: IF p_qtev_rec.khr_id IS NULL
869: OR p_qtev_rec.khr_id = G_MISS_NUM THEN
870:
871: l_overall_status := OKL_API.G_RET_STS_ERROR;
872: OKC_API.SET_MESSAGE (
873: p_app_name => OKC_API.G_APP_NAME,
874: p_msg_name => 'OKC_NO_PARAMS',
875: p_token1 => 'PARAM',

Line 886: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN

882: -- ********************
883: -- Choose quote parties
884: -- ********************
885:
886: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
887:
888: OPEN l_partner_csr (p_qtev_rec.khr_id);
889: FETCH l_partner_csr INTO l_partner_rec;
890: CLOSE l_partner_csr;

Line 893: l_return_status := OKL_API.G_RET_STS_ERROR;

889: FETCH l_partner_csr INTO l_partner_rec;
890: CLOSE l_partner_csr;
891:
892: IF l_partner_rec.khr_id IS NULL THEN
893: l_return_status := OKL_API.G_RET_STS_ERROR;
894: OKC_API.SET_MESSAGE (
895: p_app_name => G_OKC_APP_NAME,
896: p_msg_name => G_INVALID_VALUE,
897: p_token1 => G_COL_NAME_TOKEN,

Line 900: l_return_status := OKL_API.G_RET_STS_ERROR;

896: p_msg_name => G_INVALID_VALUE,
897: p_token1 => G_COL_NAME_TOKEN,
898: p_token1_value => 'Contract Id');
899: ELSIF l_partner_rec.par_id IS NULL THEN
900: l_return_status := OKL_API.G_RET_STS_ERROR;
901: okl_am_util_pvt.set_message(
902: p_app_name => G_APP_NAME
903: ,p_msg_name => 'OKL_VP_INVALID_PARENT_AGRMNT');
904: ELSIF l_partner_rec.kpr_id IS NULL THEN

Line 905: l_overall_status := OKL_API.G_RET_STS_ERROR;

901: okl_am_util_pvt.set_message(
902: p_app_name => G_APP_NAME
903: ,p_msg_name => 'OKL_VP_INVALID_PARENT_AGRMNT');
904: ELSIF l_partner_rec.kpr_id IS NULL THEN
905: l_overall_status := OKL_API.G_RET_STS_ERROR;
906: OKC_API.SET_MESSAGE (
907: p_app_name => G_OKC_APP_NAME,
908: p_msg_name => G_INVALID_VALUE,
909: p_token1 => G_COL_NAME_TOKEN,

Line 931: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN

927: -- ******************
928:
929: IF NOT p_validate_only THEN
930:
931: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
932:
933: IF lp_qpyv_tbl.COUNT > 0 THEN
934:
935: okl_quote_parties_pub.insert_quote_parties (

Line 937: p_init_msg_list => OKL_API.G_FALSE,

933: IF lp_qpyv_tbl.COUNT > 0 THEN
934:
935: okl_quote_parties_pub.insert_quote_parties (
936: p_api_version => l_api_version,
937: p_init_msg_list => OKL_API.G_FALSE,
938: x_return_status => l_return_status,
939: x_msg_count => l_msg_count,
940: x_msg_data => l_msg_data,
941: p_qpyv_tbl => lp_qpyv_tbl,

Line 949: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

945: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
946: 'after call to okl_quote_parties_pub.insert_quote_parties :'||l_return_status);
947: END IF;
948:
949: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
950: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
951: l_overall_status := l_return_status;
952: END IF;
953: END IF;

Line 950: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN

946: 'after call to okl_quote_parties_pub.insert_quote_parties :'||l_return_status);
947: END IF;
948:
949: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
950: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
951: l_overall_status := l_return_status;
952: END IF;
953: END IF;
954:

Line 981: OKL_API.SET_MESSAGE (

977: CLOSE l_partner_csr;
978: END IF;
979:
980: -- store SQL error message on message stack for caller
981: OKL_API.SET_MESSAGE (
982: p_app_name => G_APP_NAME
983: ,p_msg_name => G_UNEXPECTED_ERROR
984: ,p_token1 => G_SQLCODE_TOKEN
985: ,p_token1_value => sqlcode

Line 990: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

986: ,p_token2 => G_SQLERRM_TOKEN
987: ,p_token2_value => sqlerrm);
988:
989: -- notify caller of an UNEXPECTED error
990: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
991:
992: END create_partner_as_recipient;
993:
994:

Line 1026: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

1022: lx_qpyv_tbl qpyv_tbl_type;
1023: l_taiv_rec taiv_rec_type;
1024: e_taiv_rec taiv_rec_type;
1025:
1026: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1027: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1028: l_api_version CONSTANT NUMBER := G_API_VERSION;
1029: l_msg_count NUMBER := G_MISS_NUM;
1030: l_msg_data VARCHAR2(2000);

Line 1027: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

1023: l_taiv_rec taiv_rec_type;
1024: e_taiv_rec taiv_rec_type;
1025:
1026: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1027: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1028: l_api_version CONSTANT NUMBER := G_API_VERSION;
1029: l_msg_count NUMBER := G_MISS_NUM;
1030: l_msg_data VARCHAR2(2000);
1031: l_party_name VARCHAR2(1000);

Line 1040: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

1036: l_email_missing BOOLEAN := FALSE;
1037:
1038: l_allc_total NUMBER := 0; -- Total allocated
1039: l_no_allc NUMBER := 0; -- Recipients without allocation
1040: l_alloc_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1041:
1042: CURSOR l_kpr_csr (cp_cpl_id IN NUMBER, cp_khr_id NUMBER) IS
1043: SELECT kpr.rle_code rle_code,
1044: kpr.jtot_object1_code object1_code,

Line 1102: l_overall_status := OKL_API.G_RET_STS_ERROR;

1098:
1099: IF p_qtev_rec.id IS NULL
1100: OR p_qtev_rec.id = G_MISS_NUM THEN
1101:
1102: l_overall_status := OKL_API.G_RET_STS_ERROR;
1103:
1104: OKC_API.SET_MESSAGE (
1105: p_app_name => OKC_API.G_APP_NAME,
1106: p_msg_name => 'OKC_NO_PARAMS',

Line 1120: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN

1116: -- ********************
1117: -- Choose quote parties
1118: -- ********************
1119:
1120: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
1121:
1122: IF p_qpyv_tbl.COUNT = 0 THEN
1123:
1124: -- Use contract rules to decide on quote parties

Line 1135: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

1131: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1132: 'after call to get_rule_quote_parties :'||l_return_status);
1133: END IF;
1134:
1135: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1136: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: l_overall_status := l_return_status;
1138: END IF;
1139: END IF;

Line 1136: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN

1132: 'after call to get_rule_quote_parties :'||l_return_status);
1133: END IF;
1134:
1135: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1136: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: l_overall_status := l_return_status;
1138: END IF;
1139: END IF;
1140:

Line 1152: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN

1148: -- ******************************************************************
1149: -- Validate records, populate missing fields and remove empty records
1150: -- ******************************************************************
1151:
1152: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
1153:
1154: FOR i IN l_qpyv_tbl.FIRST..l_qpyv_tbl.LAST LOOP
1155:
1156: -- Every quote party has to point to contract party

Line 1179: l_overall_status := OKL_API.G_RET_STS_ERROR;

1175: IF l_qpyv_tbl(i).delay_days IS NULL
1176: OR l_qpyv_tbl(i).delay_days = G_MISS_NUM
1177: OR l_qpyv_tbl(i).delay_days < 0 THEN
1178:
1179: l_overall_status := OKL_API.G_RET_STS_ERROR;
1180: OKC_API.SET_MESSAGE (
1181: p_app_name => G_OKC_APP_NAME,
1182: p_msg_name => 'OKC_DATA_REQUIRED',
1183: p_token1 => 'DATA_NAME',

Line 1200: l_overall_status := OKL_API.G_RET_STS_ERROR;

1196:
1197: IF l_qpyv_tbl(i).allocation_percentage IS NULL
1198: OR l_qpyv_tbl(i).allocation_percentage = G_MISS_NUM THEN
1199:
1200: l_overall_status := OKL_API.G_RET_STS_ERROR;
1201: OKC_API.SET_MESSAGE (
1202: p_app_name => G_OKC_APP_NAME,
1203: p_msg_name => 'OKC_DATA_REQUIRED',
1204: p_token1 => 'DATA_NAME',

Line 1211: l_overall_status := OKL_API.G_RET_STS_ERROR;

1207: p_token2_value => 'Additional Recipient');
1208:
1209: ELSIF l_qpyv_tbl(i).allocation_percentage NOT BETWEEN 0 AND 100 THEN
1210:
1211: l_overall_status := OKL_API.G_RET_STS_ERROR;
1212: OKC_API.SET_MESSAGE (
1213: p_app_name => G_OKC_APP_NAME,
1214: p_msg_name => 'OKL_PERCENATGE_FORMAT',
1215: p_token1 => 'COL_NAME',

Line 1230: l_overall_status := OKL_API.G_RET_STS_ERROR;

1226: AND l_qpyv_tbl(i).allocation_percentage <> G_MISS_NUM
1227: AND l_qpyv_tbl(i).allocation_percentage NOT BETWEEN 0 AND 100
1228: THEN
1229:
1230: l_overall_status := OKL_API.G_RET_STS_ERROR;
1231: OKC_API.SET_MESSAGE (
1232: p_app_name => G_OKC_APP_NAME,
1233: p_msg_name => 'OKL_PERCENATGE_FORMAT',
1234: p_token1 => 'COL_NAME',

Line 1250: l_alloc_status := OKL_API.G_RET_STS_ERROR;

1246:
1247: IF l_qpyv_tbl(i).allocation_percentage BETWEEN 0 AND 100 THEN
1248: l_allc_total := l_allc_total + l_qpyv_tbl(i).allocation_percentage;
1249: ELSE
1250: l_alloc_status := OKL_API.G_RET_STS_ERROR;
1251: END IF;
1252:
1253: ELSE
1254: l_no_allc := l_no_allc + 1;

Line 1266: l_overall_status := OKL_API.G_RET_STS_ERROR;

1262: IF l_qpyv_tbl(i).qpt_code IN ('APPROVER','ADVANCE_NOTICE') THEN
1263:
1264: IF l_approver_found THEN
1265:
1266: l_overall_status := OKL_API.G_RET_STS_ERROR;
1267: OKC_API.SET_MESSAGE (
1268: p_app_name => G_OKC_APP_NAME,
1269: p_msg_name => 'OKC_POPULATE_ONLY_ONE',
1270: p_token1 => 'COL_NAME1',

Line 1290: l_overall_status := OKL_API.G_RET_STS_ERROR;

1286:
1287: -- Invalid contract party role
1288: IF l_k_role_rec.rle_code IS NULL THEN
1289:
1290: l_overall_status := OKL_API.G_RET_STS_ERROR;
1291: OKC_API.SET_MESSAGE (
1292: p_app_name => G_OKC_APP_NAME,
1293: p_msg_name => G_INVALID_VALUE,
1294: p_token1 => G_COL_NAME_TOKEN,

Line 1302: l_overall_status := OKL_API.G_RET_STS_ERROR;

1298:
1299: -- Only Lessee and Vendor have setup for billing rules
1300: IF l_k_role_rec.rle_code NOT IN ('OKL_VENDOR','LESSEE') THEN
1301:
1302: l_overall_status := OKL_API.G_RET_STS_ERROR;
1303: l_party_name := okl_am_util_pvt.get_jtf_object_name (
1304: l_k_role_rec.object1_code,
1305: l_k_role_rec.object1_id1,
1306: l_k_role_rec.object1_id2);

Line 1324: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

1320: p_cpl_id => l_qpyv_tbl(i).cpl_id,
1321: px_taiv_rec => l_taiv_rec,
1322: x_return_status => l_return_status);
1323:
1324: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1325: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1326: l_overall_status := l_return_status;
1327: END IF;
1328: END IF;

Line 1325: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN

1321: px_taiv_rec => l_taiv_rec,
1322: x_return_status => l_return_status);
1323:
1324: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1325: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1326: l_overall_status := l_return_status;
1327: END IF;
1328: END IF;
1329:

Line 1347: l_overall_status := OKL_API.G_RET_STS_ERROR;

1343: --19 Nov 2004 PAGARG Bug# 4021165
1344: --Set the overall status in case of error
1345: --Don't raise exception
1346: --Use correct application name while setting message
1347: l_overall_status := OKL_API.G_RET_STS_ERROR;
1348: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1349: p_msg_name => 'OKL_QTE_RCPT_LESSEE_ONLY');
1350: END IF;
1351: --Bug #3921591: pagarg +++ Rollover +++++++ End ++++++++++

Line 1348: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,

1344: --Set the overall status in case of error
1345: --Don't raise exception
1346: --Use correct application name while setting message
1347: l_overall_status := OKL_API.G_RET_STS_ERROR;
1348: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1349: p_msg_name => 'OKL_QTE_RCPT_LESSEE_ONLY');
1350: END IF;
1351: --Bug #3921591: pagarg +++ Rollover +++++++ End ++++++++++
1352:

Line 1362: l_overall_status := OKL_API.G_RET_STS_ERROR;

1358: --19 Nov 2004 PAGARG Bug# 4021165
1359: --Set the overall status in case of error
1360: --Don't raise exception
1361: --Use correct application name while setting message
1362: l_overall_status := OKL_API.G_RET_STS_ERROR;
1363: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1364: p_msg_name => 'OKL_QTE_RCPT_LESSEE_ONLY');
1365: END IF;
1366:

Line 1363: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,

1359: --Set the overall status in case of error
1360: --Don't raise exception
1361: --Use correct application name while setting message
1362: l_overall_status := OKL_API.G_RET_STS_ERROR;
1363: OKL_API.set_message( p_app_name => OKL_API.G_APP_NAME,
1364: p_msg_name => 'OKL_QTE_RCPT_LESSEE_ONLY');
1365: END IF;
1366:
1367: -- Save party details

Line 1389: l_return_status := OKL_API.G_RET_STS_ERROR;

1385:
1386: /* Bug 2554547 - Email is optional in the screen
1387: -- Users did not supply email
1388: IF l_email_missing THEN
1389: l_return_status := OKL_API.G_RET_STS_ERROR;
1390: OKC_API.SET_MESSAGE (
1391: p_app_name => G_OKC_APP_NAME,
1392: p_msg_name => G_REQUIRED_VALUE,
1393: p_token1 => G_COL_NAME_TOKEN,

Line 1398: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

1394: p_token1_value => 'Email Address');
1395: END IF;
1396: */
1397:
1398: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1399: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1400: l_overall_status := l_return_status;
1401: END IF;
1402: END IF;

Line 1399: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN

1395: END IF;
1396: */
1397:
1398: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1399: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1400: l_overall_status := l_return_status;
1401: END IF;
1402: END IF;
1403:

Line 1406: l_return_status := OKL_API.G_RET_STS_ERROR;

1402: END IF;
1403:
1404: -- Recipient not found
1405: IF NOT l_recipient_found THEN
1406: l_return_status := OKL_API.G_RET_STS_ERROR;
1407: -- Only display message if user-defined parties
1408: -- Rule-defined parties have its own message
1409: IF p_qpyv_tbl.COUNT > 0 THEN
1410: okl_am_util_pvt.set_message (

Line 1418: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

1414: ,p_token1_value => 'RECIPIENT');
1415: END IF;
1416: END IF;
1417:
1418: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1419: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1420: l_overall_status := l_return_status;
1421: END IF;
1422: END IF;

Line 1419: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN

1415: END IF;
1416: END IF;
1417:
1418: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1419: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1420: l_overall_status := l_return_status;
1421: END IF;
1422: END IF;
1423:

Line 1427: l_alloc_status := OKL_API.G_RET_STS_ERROR;

1423:
1424: IF l_allc_total > 100
1425: OR (l_allc_total = 100 AND l_no_allc > 0)
1426: OR (l_allc_total < 100 AND l_no_allc = 0) THEN
1427: l_alloc_status := OKL_API.G_RET_STS_ERROR;
1428: ELSIF (l_allc_total < 100 AND l_no_allc > 0) THEN
1429: -- Divide the rest equally
1430: FOR i IN lp_qpyv_tbl.FIRST..lp_qpyv_tbl.LAST LOOP
1431: IF lp_qpyv_tbl(i).qpt_code IN ('RECIPIENT_ADDITIONAL','RECIPIENT')

Line 1440: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN

1436: END IF;
1437: END LOOP;
1438: END IF;
1439:
1440: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN
1441: l_return_status := OKL_API.G_RET_STS_ERROR;
1442: -- Message Text: Invalid value for the column Allocation Percentage
1443: OKL_API.SET_MESSAGE (
1444: p_app_name => G_OKC_APP_NAME,

Line 1441: l_return_status := OKL_API.G_RET_STS_ERROR;

1437: END LOOP;
1438: END IF;
1439:
1440: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN
1441: l_return_status := OKL_API.G_RET_STS_ERROR;
1442: -- Message Text: Invalid value for the column Allocation Percentage
1443: OKL_API.SET_MESSAGE (
1444: p_app_name => G_OKC_APP_NAME,
1445: p_msg_name => G_INVALID_VALUE,

Line 1443: OKL_API.SET_MESSAGE (

1439:
1440: IF l_alloc_status <> OKL_API.G_RET_STS_SUCCESS THEN
1441: l_return_status := OKL_API.G_RET_STS_ERROR;
1442: -- Message Text: Invalid value for the column Allocation Percentage
1443: OKL_API.SET_MESSAGE (
1444: p_app_name => G_OKC_APP_NAME,
1445: p_msg_name => G_INVALID_VALUE,
1446: p_token1 => G_COL_NAME_TOKEN,
1447: p_token1_value => 'Allocation Percentage');

Line 1450: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

1446: p_token1 => G_COL_NAME_TOKEN,
1447: p_token1_value => 'Allocation Percentage');
1448: END IF;
1449:
1450: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1451: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1452: l_overall_status := l_return_status;
1453: END IF;
1454: END IF;

Line 1451: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN

1447: p_token1_value => 'Allocation Percentage');
1448: END IF;
1449:
1450: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1451: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1452: l_overall_status := l_return_status;
1453: END IF;
1454: END IF;
1455:

Line 1464: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN

1460: -- ******************
1461:
1462: IF NOT p_validate_only THEN
1463:
1464: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
1465:
1466: IF lp_qpyv_tbl.COUNT > 0 THEN
1467:
1468: okl_quote_parties_pub.insert_quote_parties (

Line 1470: p_init_msg_list => OKL_API.G_FALSE,

1466: IF lp_qpyv_tbl.COUNT > 0 THEN
1467:
1468: okl_quote_parties_pub.insert_quote_parties (
1469: p_api_version => l_api_version,
1470: p_init_msg_list => OKL_API.G_FALSE,
1471: x_return_status => l_return_status,
1472: x_msg_count => l_msg_count,
1473: x_msg_data => l_msg_data,
1474: p_qpyv_tbl => lp_qpyv_tbl,

Line 1482: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

1478: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1479: 'after call to okl_quote_parties_pub.insert_quote_parties :'||l_return_status);
1480: END IF;
1481:
1482: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1483: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1484: l_overall_status := l_return_status;
1485: END IF;
1486: END IF;

Line 1483: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN

1479: 'after call to okl_quote_parties_pub.insert_quote_parties :'||l_return_status);
1480: END IF;
1481:
1482: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1483: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1484: l_overall_status := l_return_status;
1485: END IF;
1486: END IF;
1487:

Line 1514: OKL_API.SET_MESSAGE (

1510: CLOSE l_kpr_csr;
1511: END IF;
1512:
1513: -- store SQL error message on message stack for caller
1514: OKL_API.SET_MESSAGE (
1515: p_app_name => G_APP_NAME
1516: ,p_msg_name => G_UNEXPECTED_ERROR
1517: ,p_token1 => G_SQLCODE_TOKEN
1518: ,p_token1_value => sqlcode

Line 1523: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

1519: ,p_token2 => G_SQLERRM_TOKEN
1520: ,p_token2_value => sqlerrm);
1521:
1522: -- notify caller of an UNEXPECTED error
1523: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1524:
1525: END create_quote_parties;
1526:
1527:

Line 1601: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

1597: AND lk.lookup_code (+) = pr.rle_code
1598: AND lk.lookup_type (+) = 'OKC_ROLE'
1599: AND qp.id = nvl(cp_party_id, qp.id);
1600:
1601: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1602: l_api_name CONSTANT VARCHAR2(30) := 'get_quote_parties';
1603: l_api_version CONSTANT NUMBER := G_API_VERSION;
1604: l_msg_count NUMBER := G_MISS_NUM;
1605: l_msg_data VARCHAR2(2000);

Line 1663: l_return_status := OKL_API.START_ACTIVITY (

1659: -- ***************************************************************
1660: -- Check API version, initialize message list and create savepoint
1661: -- ***************************************************************
1662:
1663: l_return_status := OKL_API.START_ACTIVITY (
1664: l_api_name,
1665: G_PKG_NAME,
1666: p_init_msg_list,
1667: l_api_version,

Line 1672: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

1668: p_api_version,
1669: '_PVT',
1670: x_return_status);
1671:
1672: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1674: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1675: RAISE OKL_API.G_EXCEPTION_ERROR;
1676: END IF;

Line 1673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

1669: '_PVT',
1670: x_return_status);
1671:
1672: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1674: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1675: RAISE OKL_API.G_EXCEPTION_ERROR;
1676: END IF;
1677:

Line 1674: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN

1670: x_return_status);
1671:
1672: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1674: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1675: RAISE OKL_API.G_EXCEPTION_ERROR;
1676: END IF;
1677:
1678: -- *******************

Line 1675: RAISE OKL_API.G_EXCEPTION_ERROR;

1671:
1672: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1674: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1675: RAISE OKL_API.G_EXCEPTION_ERROR;
1676: END IF;
1677:
1678: -- *******************
1679: -- Validate parameters

Line 1685: l_return_status := OKL_API.G_RET_STS_ERROR;

1681:
1682: IF p_q_party_uv_rec.quote_id IS NULL
1683: OR p_q_party_uv_rec.quote_id = G_MISS_NUM THEN
1684:
1685: l_return_status := OKL_API.G_RET_STS_ERROR;
1686:
1687: OKC_API.SET_MESSAGE (
1688: p_app_name => OKC_API.G_APP_NAME,
1689: p_msg_name => 'OKC_NO_PARAMS',

Line 1744: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

1740: END IF;
1741:
1742: END IF;
1743:
1744: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1745: AND l_object_tbl.COUNT > 0 THEN
1746: FOR l_ind IN l_object_tbl.FIRST..l_object_tbl.LAST LOOP
1747: -- Party Object is found
1748: l_cnt := l_cnt + 1;

Line 1825: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);

1821: x_record_count := l_q_party_tbl.COUNT;
1822: x_q_party_uv_tbl := l_q_party_tbl;
1823: x_return_status := l_return_status;
1824:
1825: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
1826:
1827: IF (is_debug_procedure_on) THEN
1828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1829: END IF;

Line 1846: OKL_API.SET_MESSAGE (

1842: CLOSE l_q_party_role_csr;
1843: END IF;
1844:
1845: -- store SQL error message on message stack for caller
1846: OKL_API.SET_MESSAGE (
1847: p_app_name => G_APP_NAME
1848: ,p_msg_name => G_UNEXPECTED_ERROR
1849: ,p_token1 => G_SQLCODE_TOKEN
1850: ,p_token1_value => sqlcode

Line 1855: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

1851: ,p_token2 => G_SQLERRM_TOKEN
1852: ,p_token2_value => sqlerrm);
1853:
1854: -- notify caller of an UNEXPECTED error
1855: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1856:
1857: END get_quote_parties;
1858:
1859:

Line 1925: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

1921: AND NVL (cs.end_date, SYSDATE) >= SYSDATE
1922: AND cs.rle_code = cp_rle_code
1923: AND cs.buy_or_sell = cp_buy_or_sell;
1924:
1925: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1926: l_api_name CONSTANT VARCHAR2(30) :=
1927: 'get_quote_party_contacts';
1928: l_api_version CONSTANT NUMBER := G_API_VERSION;
1929: l_msg_count NUMBER := G_MISS_NUM;

Line 1986: l_return_status := OKL_API.START_ACTIVITY (

1982: -- ***************************************************************
1983: -- Check API version, initialize message list and create savepoint
1984: -- ***************************************************************
1985:
1986: l_return_status := OKL_API.START_ACTIVITY (
1987: l_api_name,
1988: G_PKG_NAME,
1989: p_init_msg_list,
1990: l_api_version,

Line 1995: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

1991: p_api_version,
1992: '_PVT',
1993: x_return_status);
1994:
1995: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1998: RAISE OKL_API.G_EXCEPTION_ERROR;
1999: END IF;

Line 1996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

1992: '_PVT',
1993: x_return_status);
1994:
1995: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1998: RAISE OKL_API.G_EXCEPTION_ERROR;
1999: END IF;
2000:

Line 1997: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN

1993: x_return_status);
1994:
1995: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1998: RAISE OKL_API.G_EXCEPTION_ERROR;
1999: END IF;
2000:
2001: -- *******************

Line 1998: RAISE OKL_API.G_EXCEPTION_ERROR;

1994:
1995: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1998: RAISE OKL_API.G_EXCEPTION_ERROR;
1999: END IF;
2000:
2001: -- *******************
2002: -- Validate parameters

Line 2008: l_return_status := OKL_API.G_RET_STS_ERROR;

2004:
2005: IF p_q_party_uv_rec.quote_id IS NULL
2006: OR p_q_party_uv_rec.quote_id = G_MISS_NUM THEN
2007:
2008: l_return_status := OKL_API.G_RET_STS_ERROR;
2009:
2010: OKC_API.SET_MESSAGE (
2011: p_app_name => OKC_API.G_APP_NAME,
2012: p_msg_name => 'OKC_NO_PARAMS',

Line 2193: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

2189: -- ************
2190: -- Save results
2191: -- ************
2192:
2193: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2194: AND l_object_tbl.COUNT > 0 THEN
2195: FOR l_ind2 IN l_object_tbl.FIRST..l_object_tbl.LAST LOOP
2196: -- Contact Object is found
2197: l_cnt := l_cnt + 1;

Line 2232: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);

2228:
2229: x_q_party_uv_tbl := l_q_party_tbl;
2230: x_return_status := l_return_status;
2231:
2232: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
2233:
2234: IF (is_debug_procedure_on) THEN
2235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2236: END IF;

Line 2258: OKL_API.SET_MESSAGE (

2254: CLOSE l_contacts_csr;
2255: END IF;
2256:
2257: -- store SQL error message on message stack for caller
2258: OKL_API.SET_MESSAGE (
2259: p_app_name => G_APP_NAME
2260: ,p_msg_name => G_UNEXPECTED_ERROR
2261: ,p_token1 => G_SQLCODE_TOKEN
2262: ,p_token1_value => sqlcode

Line 2267: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

2263: ,p_token2 => G_SQLERRM_TOKEN
2264: ,p_token2_value => sqlerrm);
2265:
2266: -- notify caller of an UNEXPECTED error
2267: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2268:
2269: END get_quote_party_contacts;
2270:
2271:

Line 2309: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

2305: l_table_id VARCHAR2(40);
2306: l_table_name VARCHAR2(30);
2307: l_added_yn2 BOOLEAN;
2308:
2309: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2310: l_api_name CONSTANT VARCHAR2(30) :=
2311: 'get_quote_contact_points';
2312: l_api_version CONSTANT NUMBER := G_API_VERSION;
2313: l_msg_count NUMBER := G_MISS_NUM;

Line 2402: l_return_status := OKL_API.START_ACTIVITY (

2398: -- ***************************************************************
2399: -- Check API version, initialize message list and create savepoint
2400: -- ***************************************************************
2401:
2402: l_return_status := OKL_API.START_ACTIVITY (
2403: l_api_name,
2404: G_PKG_NAME,
2405: p_init_msg_list,
2406: l_api_version,

Line 2411: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

2407: p_api_version,
2408: '_PVT',
2409: x_return_status);
2410:
2411: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2414: RAISE OKL_API.G_EXCEPTION_ERROR;
2415: END IF;

Line 2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

2408: '_PVT',
2409: x_return_status);
2410:
2411: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2414: RAISE OKL_API.G_EXCEPTION_ERROR;
2415: END IF;
2416:

Line 2413: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN

2409: x_return_status);
2410:
2411: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2414: RAISE OKL_API.G_EXCEPTION_ERROR;
2415: END IF;
2416:
2417: -- *******************

Line 2414: RAISE OKL_API.G_EXCEPTION_ERROR;

2410:
2411: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
2414: RAISE OKL_API.G_EXCEPTION_ERROR;
2415: END IF;
2416:
2417: -- *******************
2418: -- Validate parameters

Line 2424: l_return_status := OKL_API.G_RET_STS_ERROR;

2420:
2421: IF p_q_party_uv_rec.quote_id IS NULL
2422: OR p_q_party_uv_rec.quote_id = G_MISS_NUM THEN
2423:
2424: l_return_status := OKL_API.G_RET_STS_ERROR;
2425:
2426: OKC_API.SET_MESSAGE (
2427: p_app_name => OKC_API.G_APP_NAME,
2428: p_msg_name => 'OKC_NO_PARAMS',

Line 2609: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);

2605:
2606: x_q_party_uv_tbl := l_co_point_tbl;
2607: x_return_status := l_return_status;
2608:
2609: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
2610:
2611: IF (is_debug_procedure_on) THEN
2612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2613: END IF;

Line 2631: OKL_API.SET_MESSAGE (

2627: CLOSE l_c_points_csr;
2628: END IF;
2629:
2630: -- store SQL error message on message stack for caller
2631: OKL_API.SET_MESSAGE (
2632: p_app_name => G_APP_NAME
2633: ,p_msg_name => G_UNEXPECTED_ERROR
2634: ,p_token1 => G_SQLCODE_TOKEN
2635: ,p_token1_value => sqlcode

Line 2640: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

2636: ,p_token2 => G_SQLERRM_TOKEN
2637: ,p_token2_value => sqlerrm);
2638:
2639: -- notify caller of an UNEXPECTED error
2640: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2641:
2642: END get_quote_contact_points;
2643:
2644:

Line 2660: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

2656: p_id_value IN VARCHAR2,
2657: x_party_object_tbl OUT NOCOPY party_object_tbl_type,
2658: x_return_status OUT NOCOPY VARCHAR2) IS
2659:
2660: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2661: l_cnt NUMBER := 0;
2662:
2663: l_id_code VARCHAR2(10);
2664: l_code1 VARCHAR2(30);

Line 2718: l_return_status := OKL_API.G_RET_STS_ERROR;

2714: OR p_id_code NOT IN ('P', 'PC', 'V', 'VS', 'VC', 'O')
2715: OR p_id_value IS NULL
2716: OR p_id_value = G_MISS_CHAR THEN
2717:
2718: l_return_status := OKL_API.G_RET_STS_ERROR;
2719: l_id_code := NULL;
2720:
2721: OKC_API.SET_MESSAGE (
2722: p_app_name => OKC_API.G_APP_NAME,

Line 2774: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

2770: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2771: 'after call to okl_am_util_pvt.get_object_details :'||l_return_status);
2772: END IF;
2773:
2774: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2775: AND l_obj1.COUNT > 0 THEN
2776: FOR l_ind IN l_obj1.FIRST..l_obj1.LAST LOOP
2777: l_cnt := l_cnt + 1;
2778: l_pos := Instr (l_obj1(l_ind).other_values, okl_am_util_pvt.G_DELIM);

Line 2809: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

2805: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2806: 'after call to okl_am_util_pvt.get_object_details :'||l_return_status);
2807: END IF;
2808:
2809: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2810: AND l_obj1.COUNT > 0 THEN
2811:
2812: FOR l_ind IN l_obj1.FIRST..l_obj1.LAST LOOP
2813:

Line 2856: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

2852: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2853: 'after call to okl_am_util_pvt.get_object_details :'||l_return_status);
2854: END IF;
2855:
2856: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2857: AND l_obj1.COUNT > 0 THEN
2858:
2859: FOR l_ind1 IN l_obj1.FIRST..l_obj1.LAST LOOP
2860:

Line 2881: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

2877: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2878: 'after call to okl_am_util_pvt.get_object_details :'||l_return_status);
2879: END IF;
2880:
2881: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2882: AND l_obj2.COUNT > 0 THEN
2883:
2884: FOR l_ind2 IN l_obj2.FIRST..l_obj2.LAST LOOP
2885:

Line 2970: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

2966: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2967: 'after call to okl_am_util_pvt.get_object_details in VC :'||l_return_status);
2968: END IF;
2969:
2970: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2971: AND l_obj1.COUNT > 0 THEN
2972: FOR l_ind IN l_obj1.FIRST..l_obj1.LAST LOOP
2973: l_cnt := l_cnt + 1;
2974: l_party_tbl(l_cnt).c_code := l_obj1(l_ind).object_code;

Line 2996: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

2992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2993: 'after call to okl_am_util_pvt.get_object_details in VS :'||l_return_status);
2994: END IF;
2995:
2996: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2997: AND l_obj1.COUNT > 0 THEN
2998:
2999: FOR l_ind1 IN l_obj1.FIRST..l_obj1.LAST LOOP
3000:

Line 3019: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

3015: 'after call to okl_am_util_pvt.get_object_details :'||l_return_status);
3016: END IF;
3017:
3018:
3019: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3020: AND l_obj2.COUNT > 0 THEN
3021: FOR l_ind2 IN l_obj2.FIRST..l_obj2.LAST LOOP
3022: l_cnt := l_cnt + 1;
3023: l_party_tbl(l_cnt).s_code := l_obj1(l_ind1).object_code;

Line 3062: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

3058: 'after call to okl_am_util_pvt.get_object_details :'||l_return_status);
3059: END IF;
3060:
3061:
3062: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3063: AND l_obj1.COUNT > 0 THEN
3064:
3065: FOR l_ind1 IN l_obj1.FIRST..l_obj1.LAST LOOP
3066:

Line 3083: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

3079: 'after call to okl_am_util_pvt.get_object_details :'||l_return_status);
3080: END IF;
3081:
3082:
3083: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3084: AND l_obj2.COUNT > 0 THEN
3085:
3086: FOR l_ind2 IN l_obj2.FIRST..l_obj2.LAST LOOP
3087:

Line 3105: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

3101: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3102: 'after call to okl_am_util_pvt.get_object_details :'||l_return_status);
3103: END IF;
3104:
3105: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3106: AND l_obj3.COUNT > 0 THEN
3107:
3108: FOR l_ind3 IN l_obj3.FIRST..l_obj3.LAST LOOP
3109: l_cnt := l_cnt + 1;

Line 3184: OKL_API.SET_MESSAGE (

3180: CLOSE l_chr_contacts_csr;
3181: END IF;
3182:
3183: -- store SQL error message on message stack for caller
3184: OKL_API.SET_MESSAGE (
3185: p_app_name => G_APP_NAME
3186: ,p_msg_name => G_UNEXPECTED_ERROR
3187: ,p_token1 => G_SQLCODE_TOKEN
3188: ,p_token1_value => sqlcode

Line 3193: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

3189: ,p_token2 => G_SQLERRM_TOKEN
3190: ,p_token2_value => sqlerrm);
3191:
3192: -- notify caller of an UNEXPECTED error
3193: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3194:
3195: END get_party_details;
3196:
3197: