DBA Data[Home] [Help]

APPS.OKC_QA_PRICE_PVT dependencies on OKC_API

Line 65: x_return_status := okc_api.g_ret_sts_success;

61: okc_debug.Set_Indentation('Check_Price');
62: okc_debug.Log('1000: Entering Check_Price',2);
63: END IF;
64: --
65: x_return_status := okc_api.g_ret_sts_success;
66: If Nvl(fnd_profile.value('OKC_ADVANCED_PRICING'), 'N') <> 'Y' Then
67: IF (l_debug = 'Y') THEN
68: okc_debug.log('1010: Profile OKC_ADVANCED_PRICING - ' || fnd_profile.value('OKC_ADVANCED_PRICING'));
69: END IF;

Line 112: OKC_API.set_message(

108: IF (l_debug = 'Y') THEN
109: okc_debug.log('1040: Intent - ' ||l_orig_system_source_code);
110: END IF;
111:
112: OKC_API.set_message(
113: p_app_name => G_APP_NAME,
114: p_msg_name => 'OKC_NO_PRICE_CHECK');
115: x_return_status := OKC_API.G_RET_STS_SUCCESS;
116:

Line 115: x_return_status := OKC_API.G_RET_STS_SUCCESS;

111:
112: OKC_API.set_message(
113: p_app_name => G_APP_NAME,
114: p_msg_name => 'OKC_NO_PRICE_CHECK');
115: x_return_status := OKC_API.G_RET_STS_SUCCESS;
116:
117: Raise G_EXCEPTION_HALT_VALIDATION;
118: End If;
119:

Line 138: x_return_status := okc_api.g_ret_sts_success;

134:
135: IF l_price_qa_check_yn = 'N' THEN
136: -- dont execute price_qa_check.
137: -- return success and do not execute price_qa_check.
138: x_return_status := okc_api.g_ret_sts_success;
139: RETURN;
140: ELSE
141: --execute price_qa_check as earlier .
142: --

Line 148: p_init_msg_list => OKC_API.G_FALSE,

144: okc_debug.log('1050: Before calling okc_price_pub');
145: END IF;
146: OKC_Price_Pub.Update_Contract_Price(
147: p_api_version => 1.0,
148: p_init_msg_list => OKC_API.G_FALSE,
149: p_commit => OKC_API.G_FALSE,
150: p_chr_id => p_chr_id,
151: px_control_rec => l_control_rec,
152: x_cle_price_tbl => l_cle_price_tbl,

Line 149: p_commit => OKC_API.G_FALSE,

145: END IF;
146: OKC_Price_Pub.Update_Contract_Price(
147: p_api_version => 1.0,
148: p_init_msg_list => OKC_API.G_FALSE,
149: p_commit => OKC_API.G_FALSE,
150: p_chr_id => p_chr_id,
151: px_control_rec => l_control_rec,
152: x_cle_price_tbl => l_cle_price_tbl,
153: x_chr_net_price => l_chr_net_price,

Line 169: x_return_status := OKC_API.G_RET_STS_ERROR;

165: -- as an Error in QA window. For normal error, return Success.
166: -- However in this case, clear the message stack otherwise the
167: -- messages will be displayed in the QA window.
168: -- Not any more, just return an error
169: x_return_status := OKC_API.G_RET_STS_ERROR;
170: /* If l_return_status = 'U' Then
171: x_return_status := OKC_API.G_RET_STS_ERROR;
172: Else
173: x_return_status := OKC_API.G_RET_STS_SUCCESS;

Line 171: x_return_status := OKC_API.G_RET_STS_ERROR;

167: -- messages will be displayed in the QA window.
168: -- Not any more, just return an error
169: x_return_status := OKC_API.G_RET_STS_ERROR;
170: /* If l_return_status = 'U' Then
171: x_return_status := OKC_API.G_RET_STS_ERROR;
172: Else
173: x_return_status := OKC_API.G_RET_STS_SUCCESS;
174: OKC_API.Init_Msg_List(OKC_API.G_TRUE);
175: OKC_API.set_message(

Line 173: x_return_status := OKC_API.G_RET_STS_SUCCESS;

169: x_return_status := OKC_API.G_RET_STS_ERROR;
170: /* If l_return_status = 'U' Then
171: x_return_status := OKC_API.G_RET_STS_ERROR;
172: Else
173: x_return_status := OKC_API.G_RET_STS_SUCCESS;
174: OKC_API.Init_Msg_List(OKC_API.G_TRUE);
175: OKC_API.set_message(
176: p_app_name => G_APP_NAME,
177: p_msg_name => G_QA_SUCCESS);

Line 174: OKC_API.Init_Msg_List(OKC_API.G_TRUE);

170: /* If l_return_status = 'U' Then
171: x_return_status := OKC_API.G_RET_STS_ERROR;
172: Else
173: x_return_status := OKC_API.G_RET_STS_SUCCESS;
174: OKC_API.Init_Msg_List(OKC_API.G_TRUE);
175: OKC_API.set_message(
176: p_app_name => G_APP_NAME,
177: p_msg_name => G_QA_SUCCESS);
178: End If; */

Line 175: OKC_API.set_message(

171: x_return_status := OKC_API.G_RET_STS_ERROR;
172: Else
173: x_return_status := OKC_API.G_RET_STS_SUCCESS;
174: OKC_API.Init_Msg_List(OKC_API.G_TRUE);
175: OKC_API.set_message(
176: p_app_name => G_APP_NAME,
177: p_msg_name => G_QA_SUCCESS);
178: End If; */
179: Raise G_EXCEPTION_HALT_VALIDATION;

Line 189: OKC_API.set_message(

185: END IF;
186: IF (l_debug = 'Y') THEN
187: okc_debug.log('1090: Price returned from okc_price_pub - ' || To_Char(l_chr_net_price));
188: END IF;
189: OKC_API.set_message(
190: p_app_name => G_APP_NAME,
191: p_msg_name => 'OKC_QA_INVALID_PRICE');
192: x_return_status := OKC_API.G_RET_STS_ERROR;
193: Raise G_EXCEPTION_HALT_VALIDATION;

Line 192: x_return_status := OKC_API.G_RET_STS_ERROR;

188: END IF;
189: OKC_API.set_message(
190: p_app_name => G_APP_NAME,
191: p_msg_name => 'OKC_QA_INVALID_PRICE');
192: x_return_status := OKC_API.G_RET_STS_ERROR;
193: Raise G_EXCEPTION_HALT_VALIDATION;
194: End If;
195: -- notify caller of success
196: OKC_API.set_message(

Line 196: OKC_API.set_message(

192: x_return_status := OKC_API.G_RET_STS_ERROR;
193: Raise G_EXCEPTION_HALT_VALIDATION;
194: End If;
195: -- notify caller of success
196: OKC_API.set_message(
197: p_app_name => G_APP_NAME,
198: p_msg_name => G_QA_SUCCESS);
199: --
200: IF (l_debug = 'Y') THEN

Line 217: OKC_API.SET_MESSAGE(

213: okc_debug.Log('1120: Exiting Check_Price', 2);
214: okc_debug.Reset_Indentation;
215: END IF;
216: -- store SQL error message on message stack
217: OKC_API.SET_MESSAGE(
218: p_app_name => G_APP_NAME,
219: p_msg_name => G_UNEXPECTED_ERROR,
220: p_token1 => G_SQLCODE_TOKEN,
221: p_token1_value => SQLCODE,

Line 225: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

221: p_token1_value => SQLCODE,
222: p_token2 => G_SQLERRM_TOKEN,
223: p_token2_value => SQLERRM);
224: -- notify caller of an error as UNEXPETED error
225: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
226: End Check_Price;
227: --
228:
229: PROCEDURE check_covered_line_qty (

Line 321: l_qty1 NUMBER := OKC_API.G_MISS_NUM;

317:
318:
319: l_return_status VARCHAR2(1);
320:
321: l_qty1 NUMBER := OKC_API.G_MISS_NUM;
322: l_qty2 NUMBER := OKC_API.G_MISS_NUM;
323: l_parent_cle_id OKC_K_LINES_B.ID%TYPE;
324: l_line_number OKC_K_LINES_B.LINE_NUMBER%TYPE := '0';
325: l_parent_line_number OKC_K_LINES_B.LINE_NUMBER%TYPE := '0';

Line 322: l_qty2 NUMBER := OKC_API.G_MISS_NUM;

318:
319: l_return_status VARCHAR2(1);
320:
321: l_qty1 NUMBER := OKC_API.G_MISS_NUM;
322: l_qty2 NUMBER := OKC_API.G_MISS_NUM;
323: l_parent_cle_id OKC_K_LINES_B.ID%TYPE;
324: l_line_number OKC_K_LINES_B.LINE_NUMBER%TYPE := '0';
325: l_parent_line_number OKC_K_LINES_B.LINE_NUMBER%TYPE := '0';
326: i PLS_INTEGER := 0;

Line 327: l_top_line_id NUMBER := OKC_API.G_MISS_NUM;

323: l_parent_cle_id OKC_K_LINES_B.ID%TYPE;
324: l_line_number OKC_K_LINES_B.LINE_NUMBER%TYPE := '0';
325: l_parent_line_number OKC_K_LINES_B.LINE_NUMBER%TYPE := '0';
326: i PLS_INTEGER := 0;
327: l_top_line_id NUMBER := OKC_API.G_MISS_NUM;
328:
329: BEGIN
330: x_return_status := okc_api.g_ret_sts_success;
331: IF (l_debug = 'Y') THEN

Line 330: x_return_status := okc_api.g_ret_sts_success;

326: i PLS_INTEGER := 0;
327: l_top_line_id NUMBER := OKC_API.G_MISS_NUM;
328:
329: BEGIN
330: x_return_status := okc_api.g_ret_sts_success;
331: IF (l_debug = 'Y') THEN
332: okc_debug.Set_Indentation('validate_covered_line_qty');
333: END IF;
334:

Line 373: IF l_qty1 <> OKC_API.G_MISS_NUM AND l_qty2 <> OKC_API.G_MISS_NUM

369: okc_debug.Log('l_qty2: ' || l_qty2, 5);
370: END IF;
371:
372:
373: IF l_qty1 <> OKC_API.G_MISS_NUM AND l_qty2 <> OKC_API.G_MISS_NUM
374: AND l_qty1 <> l_qty2
375: THEN
376: IF (l_debug = 'Y') THEN
377: okc_debug.Log('l_qty1 and l_qty2 are not the same so setting error message on stack...',5);

Line 421: OKC_API.set_message(p_app_name => G_APP_NAME,

417: i := p_l_id_tbl.next(i);
418: END LOOP;
419:
420:
421: OKC_API.set_message(p_app_name => G_APP_NAME,
422: p_msg_name => 'OKC_QA_MISMATCH_QTY',
423: p_token1 => 'LNUMB1',
424: p_token1_value => l_line_number,
425: p_token2 => 'LNUMB2',

Line 432: x_return_status := OKC_API.G_RET_STS_ERROR;

428: okc_debug.Log('Covered line number ' || l_line_number || 'and id: ' || p_cle_id || 'serviceable product have a quantity mismatch.',5);
429: okc_debug.Log('l_qty1: ' || l_qty1,5);
430: okc_debug.Log('l_qty2: ' || l_qty2,5);
431: END IF;
432: x_return_status := OKC_API.G_RET_STS_ERROR;
433:
434: END IF;
435:
436:

Line 437: If x_return_status <> OKC_API.G_RET_STS_ERROR then

433:
434: END IF;
435:
436:
437: If x_return_status <> OKC_API.G_RET_STS_ERROR then
438: IF (l_debug = 'Y') THEN
439: okc_debug.Log('passed okc_price_pvt.validate_covered_line_qty');
440: END IF;
441: End if;

Line 460: OKC_API.set_message(G_APP_NAME,

456: END IF;
457: IF c_get_quantity2%ISOPEN THEN
458: CLOSE c_get_quantity2;
459: END IF;
460: OKC_API.set_message(G_APP_NAME,
461: G_UNEXPECTED_ERROR,
462: G_SQLCODE_TOKEN,
463: SQLCODE,
464: G_SQLERRM_TOKEN,

Line 466: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

462: G_SQLCODE_TOKEN,
463: SQLCODE,
464: G_SQLERRM_TOKEN,
465: SQLERRM);
466: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
467: END validate_covered_line_qty;
468:
469:
470:

Line 477: x_return_status := okc_api.g_ret_sts_success;

473: okc_debug.Set_Indentation('check_covered_line_qty');
474: okc_debug.Log('1000: Entering check_covered_line_qty',2);
475: END IF;
476: --
477: x_return_status := okc_api.g_ret_sts_success;
478:
479: /*******************************************************************
480: We carry out nocopy the check regardless of whether Advanced Pricing is enabled
481:

Line 537: OKC_API.set_message(

533: IF (l_debug = 'Y') THEN
534: okc_debug.log('1050: Intent - ' ||l_orig_system_source_code);
535: END IF;
536:
537: OKC_API.set_message(
538: p_app_name => G_APP_NAME,
539: p_msg_name => 'OKC_NO_PRICE_CHECK');
540: x_return_status := OKC_API.G_RET_STS_SUCCESS;
541:

Line 540: x_return_status := OKC_API.G_RET_STS_SUCCESS;

536:
537: OKC_API.set_message(
538: p_app_name => G_APP_NAME,
539: p_msg_name => 'OKC_NO_PRICE_CHECK');
540: x_return_status := OKC_API.G_RET_STS_SUCCESS;
541:
542: Raise G_EXCEPTION_HALT_VALIDATION;
543: End If;
544:

Line 564: x_return_status := okc_api.g_ret_sts_success;

560:
561: IF l_new_qa_check_yn = 'N' THEN
562: -- do not execute new_qa_check.
563: -- return success and do not execute new_qa_check.
564: x_return_status := okc_api.g_ret_sts_success;
565: RETURN;
566: ELSE
567: --execute new_qa_check as earlier .
568: --

Line 607: IF l_return_status = OKC_API.G_RET_STS_ERROR THEN

603: IF (l_debug = 'Y') THEN
604: okc_debug.Log('1085 : after calling validate_covered_line_qty ' || 'l_return_status: ' || l_return_status, 3);
605: END IF;
606:
607: IF l_return_status = OKC_API.G_RET_STS_ERROR THEN
608: --we want QA to pick up all the error messages on the stack
609: l_qa_covered_line_qty_mismatch := TRUE;
610: END IF;
611:

Line 612: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN

608: --we want QA to pick up all the error messages on the stack
609: l_qa_covered_line_qty_mismatch := TRUE;
610: END IF;
611:
612: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
613: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
614: END IF;
615: End If;
616:

Line 613: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;

609: l_qa_covered_line_qty_mismatch := TRUE;
610: END IF;
611:
612: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
613: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
614: END IF;
615: End If;
616:
617: i:=l_id_tbl.NEXT(i);

Line 630: l_return_status := OKC_API.G_RET_STS_ERROR;

626: IF l_qa_covered_line_qty_mismatch = TRUE THEN
627: /* this means that validate_covered_line_qty() has put some error
628: messages on the error stack which we now want QA to display in the
629: QA results */
630: l_return_status := OKC_API.G_RET_STS_ERROR;
631: IF (l_debug = 'Y') THEN
632: okc_debug.Log('1095 : l_qa_covered_line_qty_mismatch: TRUE', 1);
633: END IF;
634: ELSE

Line 642: x_return_status := OKC_API.G_RET_STS_ERROR;

638: END IF;
639:
640:
641: IF (l_return_status <> 'S') THEN
642: x_return_status := OKC_API.G_RET_STS_ERROR;
643: RAISE G_EXCEPTION_HALT_VALIDATION;
644: END IF;
645: --
646:

Line 648: OKC_API.set_message(

644: END IF;
645: --
646:
647: -- notify caller of success
648: OKC_API.set_message(
649: p_app_name => G_APP_NAME,
650: p_msg_name => G_QA_SUCCESS);
651: --
652: IF (l_debug = 'Y') THEN

Line 669: OKC_API.SET_MESSAGE(

665: okc_debug.Log('1120: Exiting check_covered_line_qty', 2);
666: okc_debug.Reset_Indentation;
667: END IF;
668: -- store SQL error message on message stack
669: OKC_API.SET_MESSAGE(
670: p_app_name => G_APP_NAME,
671: p_msg_name => G_UNEXPECTED_ERROR,
672: p_token1 => G_SQLCODE_TOKEN,
673: p_token1_value => SQLCODE,

Line 677: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

673: p_token1_value => SQLCODE,
674: p_token2 => G_SQLERRM_TOKEN,
675: p_token2_value => SQLERRM);
676: -- notify caller of an error as UNEXPECTED error
677: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
678: END check_covered_line_qty;
679: --
680:
681: END OKC_QA_PRICE_PVT;