DBA Data[Home] [Help]

APPS.OKC_QA_DATA_INTEGRITY dependencies on OKC_API

Line 52: OKC_API.set_message(

48: l_token4_value := l_line;
49: End If;
50: End If;
51:
52: OKC_API.set_message(
53: p_app_name => G_APP_NAME,
54: p_msg_name => p_msg_name,
55: p_token1 => p_token1,
56: p_token1_value => l_token1_value,

Line 127: OKC_API.set_message(

123: Fetch l_catv_csr Into l_return_status;
124: Close l_catv_csr;
125: if (l_return_status<>'S') then
126: x_return_status := l_return_status;
127: OKC_API.set_message(
128: p_app_name => G_APP_NAME,
129: p_msg_name => 'OKC_INCOMP_ARTICLE_EXISTS',
130: p_token1 => 'VALUE1',
131: p_token1_value => l_name);

Line 134: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN

130: p_token1 => 'VALUE1',
131: p_token1_value => l_name);
132: end if;
133: END LOOP;
134: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
135: OKC_API.set_message(
136: p_app_name => G_APP_NAME,
137: p_msg_name => G_QA_SUCCESS);
138: END IF;

Line 135: OKC_API.set_message(

131: p_token1_value => l_name);
132: end if;
133: END LOOP;
134: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
135: OKC_API.set_message(
136: p_app_name => G_APP_NAME,
137: p_msg_name => G_QA_SUCCESS);
138: END IF;
139:

Line 153: OKC_API.SET_MESSAGE(

149: END IF;
150: if c1%ISOPEN then
151: close c1;
152: end if;
153: OKC_API.SET_MESSAGE(
154: p_app_name => G_APP_NAME,
155: p_msg_name => G_UNEXPECTED_ERROR,
156: p_token1 => G_SQLCODE_TOKEN,
157: p_token1_value => SQLCODE,

Line 160: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

156: p_token1 => G_SQLCODE_TOKEN,
157: p_token1_value => SQLCODE,
158: p_token2 => G_SQLERRM_TOKEN,
159: p_token2_value => SQLERRM);
160: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
161: end check_art_compatible;
162:
163: -- Start of comments
164: --

Line 177: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

173: x_return_status OUT NOCOPY VARCHAR2,
174: p_chr_id IN NUMBER
175: ) IS
176:
177: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
178: l_dummy VARCHAR2(1) := '?';
179: l_count NUMBER := 0;
180: l_row_notfound BOOLEAN;
181: l_token VARCHAR2(2000);

Line 283: x_return_status := OKC_API.G_RET_STS_SUCCESS;

279: okc_debug.Log('10: Entering ',2);
280: END IF;
281:
282: -- initialize return status
283: x_return_status := OKC_API.G_RET_STS_SUCCESS;
284:
285: -- fetch the contract header information
286: OPEN l_chrv_csr;
287: FETCH l_chrv_csr INTO l_chrv_rec;

Line 292: OKC_API.set_message(

288: CLOSE l_chrv_csr;
289:
290: -- check required data for contract header
291: IF (l_chrv_rec.BUY_OR_SELL IS NULL) THEN
292: OKC_API.set_message(
293: p_app_name => G_APP_NAME,
294: p_msg_name => 'OKC_QA_INTENT_REQUIRED');
295:
296: -- notify caller of an error

Line 297: x_return_status := OKC_API.G_RET_STS_ERROR;

293: p_app_name => G_APP_NAME,
294: p_msg_name => 'OKC_QA_INTENT_REQUIRED');
295:
296: -- notify caller of an error
297: x_return_status := OKC_API.G_RET_STS_ERROR;
298: END IF;
299: IF (l_chrv_rec.CURRENCY_CODE IS NULL) THEN
300: OKC_API.set_message(
301: p_app_name => G_APP_NAME,

Line 300: OKC_API.set_message(

296: -- notify caller of an error
297: x_return_status := OKC_API.G_RET_STS_ERROR;
298: END IF;
299: IF (l_chrv_rec.CURRENCY_CODE IS NULL) THEN
300: OKC_API.set_message(
301: p_app_name => G_APP_NAME,
302: p_msg_name => 'OKC_QA_CURRENCY_REQUIRED');
303:
304: -- notify caller of an error

Line 305: x_return_status := OKC_API.G_RET_STS_ERROR;

301: p_app_name => G_APP_NAME,
302: p_msg_name => 'OKC_QA_CURRENCY_REQUIRED');
303:
304: -- notify caller of an error
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: END IF;
307: IF (l_chrv_rec.ISSUE_OR_RECEIVE IS NULL) THEN
308: OKC_API.set_message(
309: p_app_name => G_APP_NAME,

Line 308: OKC_API.set_message(

304: -- notify caller of an error
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: END IF;
307: IF (l_chrv_rec.ISSUE_OR_RECEIVE IS NULL) THEN
308: OKC_API.set_message(
309: p_app_name => G_APP_NAME,
310: p_msg_name => 'OKC_QA_PERSPECTIVE_REQUIRED');
311:
312: -- notify caller of an error

Line 313: x_return_status := OKC_API.G_RET_STS_ERROR;

309: p_app_name => G_APP_NAME,
310: p_msg_name => 'OKC_QA_PERSPECTIVE_REQUIRED');
311:
312: -- notify caller of an error
313: x_return_status := OKC_API.G_RET_STS_ERROR;
314: END IF;
315:
316: -- Check that at least 2 different parties have been attached
317: -- to the contract header.

Line 325: OKC_API.set_message(

321: CLOSE l_cpl_csr;
322:
323: -- There must be 2 distinct party roles defined at the header level
324: IF (l_count < 2) THEN
325: OKC_API.set_message(
326: p_app_name => G_APP_NAME,
327: p_msg_name => 'OKC_QA_PARTY_COUNT');
328: -- notify caller of an error
329: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 329: x_return_status := OKC_API.G_RET_STS_ERROR;

325: OKC_API.set_message(
326: p_app_name => G_APP_NAME,
327: p_msg_name => 'OKC_QA_PARTY_COUNT');
328: -- notify caller of an error
329: x_return_status := OKC_API.G_RET_STS_ERROR;
330: END IF;
331: IF (l_chrv_rec.TEMPLATE_YN = 'N') THEN
332: -- Check all of the parties attached to the contract and contract
333: -- lines to make sure that all integration information is supplied

Line 357: x_return_status := OKC_API.G_RET_STS_ERROR;

353: p_token1_value => l_cpl1_rec.meaning,
354: p_token2 => g_token);
355:
356: -- notify caller of an error
357: x_return_status := OKC_API.G_RET_STS_ERROR;
358: END IF;
359: OPEN l_ctc_csr (l_cpl1_rec.id);
360: LOOP
361: FETCH l_ctc_csr INTO l_ctc_rec;

Line 383: x_return_status := OKC_API.G_RET_STS_ERROR;

379: p_token2_value => l_cpl1_rec.meaning,
380: p_token3 => g_token);
381:
382: -- notify caller of an error
383: x_return_status := OKC_API.G_RET_STS_ERROR;
384: END IF;
385: END LOOP;
386: CLOSE l_ctc_csr;
387: END LOOP;

Line 399: OKC_API.set_message(

395: LOOP
396: FETCH l_clev_csr INTO l_clev_rec;
397: EXIT WHEN l_clev_csr%NOTFOUND;
398: IF (l_clev_rec.CURRENCY_CODE IS NULL) THEN
399: OKC_API.set_message(
400: p_app_name => G_APP_NAME,
401: p_msg_name => 'OKC_REQUIRED_LINE_CURRENCY',
402: p_token1 => 'LINE_NAME',
403: p_token1_value => l_clev_rec.line_name);

Line 406: x_return_status := OKC_API.G_RET_STS_ERROR;

402: p_token1 => 'LINE_NAME',
403: p_token1_value => l_clev_rec.line_name);
404:
405: -- notify caller of an error
406: x_return_status := OKC_API.G_RET_STS_ERROR;
407: ELSIF l_clev_rec.currency_code <> l_chrv_rec.currency_code THEN
408: OKC_API.set_message(
409: p_app_name => G_APP_NAME,
410: p_msg_name => G_INVALID_LINE_CURRENCY,

Line 408: OKC_API.set_message(

404:
405: -- notify caller of an error
406: x_return_status := OKC_API.G_RET_STS_ERROR;
407: ELSIF l_clev_rec.currency_code <> l_chrv_rec.currency_code THEN
408: OKC_API.set_message(
409: p_app_name => G_APP_NAME,
410: p_msg_name => G_INVALID_LINE_CURRENCY,
411: p_token1 => 'LINE_NAME',
412: p_token1_value => l_clev_rec.line_name);

Line 414: x_return_status := OKC_API.G_RET_STS_ERROR;

410: p_msg_name => G_INVALID_LINE_CURRENCY,
411: p_token1 => 'LINE_NAME',
412: p_token1_value => l_clev_rec.line_name);
413: -- notify caller of an error
414: x_return_status := OKC_API.G_RET_STS_ERROR;
415: END IF;
416: --bug 2398639 Check if Its price hold top-line then Contract header must have a CAN rule.
417: IF l_clev_rec.lse_id=61 and l_clev_rec.cle_id is null and l_chrv_rec.BUY_OR_SELL='S' THEN
418:

Line 422: OKC_API.set_message(p_app_name => g_app_name, --OKC

418:
419: OPEN l_ph_can_rule(p_chr_id);
420: FETCH l_ph_can_rule into l_can_found;
421: IF l_ph_can_rule%NOTFOUND THEN
422: OKC_API.set_message(p_app_name => g_app_name, --OKC
423: p_msg_name => 'OKC_NO_PRICE_HOLD_CAN');
424: x_return_status := OKC_API.G_RET_STS_ERROR;
425:
426: END IF;

Line 424: x_return_status := OKC_API.G_RET_STS_ERROR;

420: FETCH l_ph_can_rule into l_can_found;
421: IF l_ph_can_rule%NOTFOUND THEN
422: OKC_API.set_message(p_app_name => g_app_name, --OKC
423: p_msg_name => 'OKC_NO_PRICE_HOLD_CAN');
424: x_return_status := OKC_API.G_RET_STS_ERROR;
425:
426: END IF;
427: CLOSE l_ph_can_rule;
428: END IF;

Line 445: OKC_API.set_message(

441:
442: FOR i IN l_line_name_tbl.FIRST..l_line_name_tbl.LAST LOOP
443:
444: IF (l_currency_code_tbl(i) IS NULL) THEN
445: OKC_API.set_message(
446: p_app_name => G_APP_NAME,
447: p_msg_name => 'OKC_REQUIRED_LINE_CURRENCY',
448: p_token1 => 'LINE_NAME',
449: p_token1_value => l_line_name_tbl(i));

Line 452: x_return_status := OKC_API.G_RET_STS_ERROR;

448: p_token1 => 'LINE_NAME',
449: p_token1_value => l_line_name_tbl(i));
450:
451: -- notify caller of an error
452: x_return_status := OKC_API.G_RET_STS_ERROR;
453: ELSIF l_currency_code_tbl(i) <> l_chrv_rec.currency_code THEN
454: OKC_API.set_message(
455: p_app_name => G_APP_NAME,
456: p_msg_name => G_INVALID_LINE_CURRENCY,

Line 454: OKC_API.set_message(

450:
451: -- notify caller of an error
452: x_return_status := OKC_API.G_RET_STS_ERROR;
453: ELSIF l_currency_code_tbl(i) <> l_chrv_rec.currency_code THEN
454: OKC_API.set_message(
455: p_app_name => G_APP_NAME,
456: p_msg_name => G_INVALID_LINE_CURRENCY,
457: p_token1 => 'LINE_NAME',
458: p_token1_value => l_line_name_tbl(i));

Line 460: x_return_status := OKC_API.G_RET_STS_ERROR;

456: p_msg_name => G_INVALID_LINE_CURRENCY,
457: p_token1 => 'LINE_NAME',
458: p_token1_value => l_line_name_tbl(i));
459: -- notify caller of an error
460: x_return_status := OKC_API.G_RET_STS_ERROR;
461: END IF;
462: --bug 2398639 Check if Its price hold top-line then Contract header must have a CAN rule.
463: IF l_lse_id_tbl(i)=61 and l_cle_id_tbl(i) is null and l_chrv_rec.BUY_OR_SELL='S' THEN
464:

Line 468: OKC_API.set_message(p_app_name => g_app_name, --OKC

464:
465: OPEN l_ph_can_rule(p_chr_id);
466: FETCH l_ph_can_rule into l_can_found;
467: IF l_ph_can_rule%NOTFOUND THEN
468: OKC_API.set_message(p_app_name => g_app_name, --OKC
469: p_msg_name => 'OKC_NO_PRICE_HOLD_CAN');
470: x_return_status := OKC_API.G_RET_STS_ERROR;
471:
472: END IF;

Line 470: x_return_status := OKC_API.G_RET_STS_ERROR;

466: FETCH l_ph_can_rule into l_can_found;
467: IF l_ph_can_rule%NOTFOUND THEN
468: OKC_API.set_message(p_app_name => g_app_name, --OKC
469: p_msg_name => 'OKC_NO_PRICE_HOLD_CAN');
470: x_return_status := OKC_API.G_RET_STS_ERROR;
471:
472: END IF;
473: CLOSE l_ph_can_rule;
474: END IF;

Line 492: OKC_API.set_message(

488: If (l_chrv_rec.conversion_type is null or
489: l_chrv_rec.conversion_rate is null or
490: l_chrv_rec.conversion_rate_date is null)
491: Then
492: OKC_API.set_message(
493: p_app_name => G_APP_NAME,
494: p_msg_name => 'OKC_QA_CONVERSION_DATA');
495:
496: --raise error message

Line 497: x_return_status := OKC_API.G_RET_STS_ERROR;

493: p_app_name => G_APP_NAME,
494: p_msg_name => 'OKC_QA_CONVERSION_DATA');
495:
496: --raise error message
497: x_return_status := OKC_API.G_RET_STS_ERROR;
498: End If;
499: End If;
500: End If;
501: ---/Rules Migration/

Line 503: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN

499: End If;
500: End If;
501: ---/Rules Migration/
502:
503: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
504: OKC_API.set_message(
505: p_app_name => G_APP_NAME,
506: p_msg_name => G_QA_SUCCESS);
507: END IF;

Line 504: OKC_API.set_message(

500: End If;
501: ---/Rules Migration/
502:
503: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
504: OKC_API.set_message(
505: p_app_name => G_APP_NAME,
506: p_msg_name => G_QA_SUCCESS);
507: END IF;
508:

Line 527: OKC_API.SET_MESSAGE(

523: okc_debug.Log('3000: Leaving ',2);
524: okc_debug.Reset_Indentation;
525: END IF;
526: -- store SQL error message on message stack
527: OKC_API.SET_MESSAGE(
528: p_app_name => G_APP_NAME,
529: p_msg_name => G_UNEXPECTED_ERROR,
530: p_token1 => G_SQLCODE_TOKEN,
531: p_token1_value => SQLCODE,

Line 535: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

531: p_token1_value => SQLCODE,
532: p_token2 => G_SQLERRM_TOKEN,
533: p_token2_value => SQLERRM);
534: -- notify caller of an error as UNEXPETED error
535: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
536: -- verify that cursor was closed
537: IF l_chrv_csr%ISOPEN THEN
538: CLOSE l_chrv_csr;
539: END IF;

Line 611: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;

607: l_dummy VARCHAR2(1);
608: l_optional_yn OKC_RG_DEF_RULES.OPTIONAL_YN%TYPE;
609:
610: l_token VARCHAR2(2000);
611: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
612: TYPE l_info_type IS REF CURSOR;
613: l_info_csr l_info_type;
614: sql_stmt VARCHAR2(2000);
615: l_end_user_column_name FND_DESCR_FLEX_COL_USAGE_VL.END_USER_COLUMN_NAME%TYPE;

Line 650: x_return_status := OKC_API.G_RET_STS_SUCCESS;

646: okc_debug.Log('10: Entering ',2);
647: END IF;
648:
649: -- initialize return status
650: x_return_status := OKC_API.G_RET_STS_SUCCESS;
651:
652: -- check if the rule is a required rule
653: OPEN l_rgr_csr;
654: FETCH l_rgr_csr INTO l_optional_yn;

Line 821: IF (l_rule_information = OKC_API.G_MISS_CHAR OR

817: END IF;
818: -- check if data is required
819: IF l_required_flag = 'Y' THEN
820: -- data is required
821: IF (l_rule_information = OKC_API.G_MISS_CHAR OR
822: l_rule_information IS NULL) THEN
823: l_missing_values := 'Y';
824: END IF;
825: END IF;

Line 853: x_return_status := OKC_API.G_RET_STS_ERROR;

849: p_token1 => 'RULE',
850: p_token1_value => l_rule_def,
851: p_token2 => g_token);
852: -- notify caller of an error
853: x_return_status := OKC_API.G_RET_STS_ERROR;
854: END IF;
855: END IF;
856:
857: /*

Line 863: OKC_API.set_message(

859: -- skekkar, Bug 1965956
860: -- issue warning if Pricing Rule used and Advanced Pricing Profile is set to Y
861: --
862: IF l_adv_pricing_warn = 'Y' THEN
863: OKC_API.set_message(
864: p_app_name => G_APP_NAME,
865: p_msg_name => 'OKC_PRICING_RULE_WARN');
866: END IF;
867:

Line 893: x_return_status := OKC_API.G_RET_STS_ERROR;

889: p_token1 => 'RULE',
890: p_token1_value => l_rule_def,
891: p_token2 => g_token);
892: -- notify caller of an error
893: x_return_status := OKC_API.G_RET_STS_ERROR;
894: END IF;
895: END IF;
896:
897: -- There must be at least on child record in OKC_REACT_INTERVALS for a rule

Line 920: x_return_status := OKC_API.G_RET_STS_ERROR;

916: p_token1 => 'RULE',
917: p_token1_value => l_rule_def,
918: p_token2 => g_token);
919: -- notify caller of an error
920: x_return_status := OKC_API.G_RET_STS_ERROR;
921: END IF;
922: END IF;
923:
924: -- Bug 1496111. For Non-Service Contracts, check that for the renewal type of

Line 931: (p_rul_rec.rule_information2 = OKC_API.G_MISS_CHAR)) Then

927: If p_cls_code <> 'SERVICE' Then
928: IF (p_rul_rec.rule_information_category = 'REN') And
929: (p_rul_rec.rule_information1 IN ('NSR', 'SFA', 'EVN')) And
930: ((p_rul_rec.rule_information2 Is Null) Or
931: (p_rul_rec.rule_information2 = OKC_API.G_MISS_CHAR)) Then
932:
933: OKC_API.set_message(
934: p_app_name => G_APP_NAME,
935: p_msg_name => 'OKC_NO_CONTACT_FOR_NSR');

Line 933: OKC_API.set_message(

929: (p_rul_rec.rule_information1 IN ('NSR', 'SFA', 'EVN')) And
930: ((p_rul_rec.rule_information2 Is Null) Or
931: (p_rul_rec.rule_information2 = OKC_API.G_MISS_CHAR)) Then
932:
933: OKC_API.set_message(
934: p_app_name => G_APP_NAME,
935: p_msg_name => 'OKC_NO_CONTACT_FOR_NSR');
936:
937: -- notify caller of an error

Line 938: x_return_status := OKC_API.G_RET_STS_ERROR;

934: p_app_name => G_APP_NAME,
935: p_msg_name => 'OKC_NO_CONTACT_FOR_NSR');
936:
937: -- notify caller of an error
938: x_return_status := OKC_API.G_RET_STS_ERROR;
939: END IF;
940: END IF;
941:
942:

Line 961: OKC_API.SET_MESSAGE(

957: okc_debug.Log('3000: Leaving ',2);
958: okc_debug.Reset_Indentation;
959: END IF;
960: -- store SQL error message on message stack
961: OKC_API.SET_MESSAGE(
962: p_app_name => G_APP_NAME,
963: p_msg_name => G_UNEXPECTED_ERROR,
964: p_token1 => G_SQLCODE_TOKEN,
965: p_token1_value => SQLCODE,

Line 969: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

965: p_token1_value => SQLCODE,
966: p_token2 => G_SQLERRM_TOKEN,
967: p_token2_value => SQLERRM);
968: -- notify caller of an error as UNEXPETED error
969: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
970: -- verify that cursor was closed
971: IF l_rgr_csr%ISOPEN THEN
972: CLOSE l_rgr_csr;
973: END IF;

Line 1128: x_return_status := OKC_API.G_RET_STS_SUCCESS;

1124: okc_debug.Log('10: Entering ',2);
1125: END IF;
1126:
1127: -- initialize return status
1128: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1129:
1130: -- Get Contract Header info
1131: OPEN l_chr_csr;
1132: FETCH l_chr_csr INTO l_chr_rec;

Line 1201: x_return_status := OKC_API.G_RET_STS_ERROR;

1197: p_token2 => 'RULE',
1198: p_token2_value => l_rgp_rec.rule_name,
1199: p_token3 => g_token);
1200: -- notify caller of an error
1201: x_return_status := OKC_API.G_RET_STS_ERROR;
1202: END IF;
1203: --
1204: IF l_rule_count > l_rgp_rec.max_cardinality Then
1205: If l_rgp_rec.chr_id Is Not Null Then

Line 1221: x_return_status := OKC_API.G_RET_STS_ERROR;

1217: p_token2 => 'RULE',
1218: p_token2_value => l_rgp_rec.rule_name,
1219: p_token3 => g_token);
1220: -- notify caller of an error
1221: x_return_status := OKC_API.G_RET_STS_ERROR;
1222: END IF;
1223: -- End Loop; -- l_rgr_csr
1224:
1225: If l_rgp_rec.id <> l_prev_rgp_rec_id Then

Line 1234: IF l_return_status = OKC_API.G_RET_STS_ERROR THEN

1230: check_rule_values(l_return_status, l_rul_rec,
1231: l_rgp_rec.rgd_code, l_rgp_rec.id,
1232: l_rgp_rec.chr_id, l_rgp_rec.cle_id,
1233: l_chr_rec.cls_code);
1234: IF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1235: -- notify caller of an error
1236: x_return_status := OKC_API.G_RET_STS_ERROR;
1237: END IF;
1238: END LOOP; -- l_rul_csr;

Line 1236: x_return_status := OKC_API.G_RET_STS_ERROR;

1232: l_rgp_rec.chr_id, l_rgp_rec.cle_id,
1233: l_chr_rec.cls_code);
1234: IF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1235: -- notify caller of an error
1236: x_return_status := OKC_API.G_RET_STS_ERROR;
1237: END IF;
1238: END LOOP; -- l_rul_csr;
1239: CLOSE l_rul_csr;
1240: l_prev_rgp_rec_id := l_rgp_rec.id;

Line 1276: OKC_API.set_message(

1272: OPEN l_rgpm_csr;
1273: FETCH l_rgpm_csr INTO l_rgpm_meaning;
1274: CLOSE l_rgpm_csr;
1275:
1276: OKC_API.set_message(
1277: p_app_name => G_APP_NAME,
1278: p_msg_name => G_REQUIRED_RULE_GROUP,
1279: p_token1 => 'RULE_GROUP',
1280: p_token1_value => l_rgpm_meaning);

Line 1282: x_return_status := OKC_API.G_RET_STS_ERROR;

1278: p_msg_name => G_REQUIRED_RULE_GROUP,
1279: p_token1 => 'RULE_GROUP',
1280: p_token1_value => l_rgpm_meaning);
1281: -- notify caller of an error
1282: x_return_status := OKC_API.G_RET_STS_ERROR;
1283: END IF;
1284: END IF;
1285:
1286:

Line 1287: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN

1283: END IF;
1284: END IF;
1285:
1286:
1287: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1288:
1289: -- since there were no errors , we will issue warning depending on l_adv_pricing_warn flag
1290: -- Bug 1965956
1291: -- skekkar

Line 1295: OKC_API.set_message(

1291: -- skekkar
1292: -- issue warning if Pricing Rule Group used and Advanced Pricing Profile is set to Y
1293: --
1294: IF l_adv_pricing_warn = 'Y' THEN
1295: OKC_API.set_message(
1296: p_app_name => G_APP_NAME,
1297: p_msg_name => 'OKC_PRICING_RULE_WARN');
1298: -- notify caller of an warning
1299: x_return_status := OKC_API.G_RET_STS_WARNING;

Line 1299: x_return_status := OKC_API.G_RET_STS_WARNING;

1295: OKC_API.set_message(
1296: p_app_name => G_APP_NAME,
1297: p_msg_name => 'OKC_PRICING_RULE_WARN');
1298: -- notify caller of an warning
1299: x_return_status := OKC_API.G_RET_STS_WARNING;
1300: ELSE
1301: OKC_API.set_message(
1302: p_app_name => G_APP_NAME,
1303: p_msg_name => G_QA_SUCCESS);

Line 1301: OKC_API.set_message(

1297: p_msg_name => 'OKC_PRICING_RULE_WARN');
1298: -- notify caller of an warning
1299: x_return_status := OKC_API.G_RET_STS_WARNING;
1300: ELSE
1301: OKC_API.set_message(
1302: p_app_name => G_APP_NAME,
1303: p_msg_name => G_QA_SUCCESS);
1304: END IF; -- l_adv_pricing_warn = 'Y'
1305:

Line 1327: OKC_API.SET_MESSAGE(

1323: okc_debug.Log('3000: Leaving ',2);
1324: okc_debug.Reset_Indentation;
1325: END IF;
1326: -- store SQL error message on message stack
1327: OKC_API.SET_MESSAGE(
1328: p_app_name => G_APP_NAME,
1329: p_msg_name => G_UNEXPECTED_ERROR,
1330: p_token1 => G_SQLCODE_TOKEN,
1331: p_token1_value => SQLCODE,

Line 1335: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

1331: p_token1_value => SQLCODE,
1332: p_token2 => G_SQLERRM_TOKEN,
1333: p_token2_value => SQLERRM);
1334: -- notify caller of an error as UNEXPETED error
1335: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1336: -- verify that cursor was closed
1337: /* IF l_rgr_csr%ISOPEN THEN
1338: CLOSE l_rgr_csr;
1339: END IF; */

Line 1466: x_return_status := OKC_API.G_RET_STS_SUCCESS;

1462: okc_debug.Log('10: Entering ',2);
1463: END IF;
1464:
1465: -- initialize return status
1466: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1467:
1468: -- get template info from contract header
1469: OPEN l_chr_csr;
1470: FETCH l_chr_csr INTO l_template_yn,l_appl_id;

Line 1500: x_return_status := OKC_API.G_RET_STS_ERROR;

1496: EXIT WHEN l_rpr_csr%NOTFOUND;
1497: IF l_template_yn = 'N' THEN
1498: IF l_cpl_id IS NULL THEN
1499: Set_Rule_Party_Message;
1500: x_return_status := OKC_API.G_RET_STS_ERROR;
1501: ELSE
1502: OPEN l_kpr_csr(l_cpl_id);
1503: FETCH l_kpr_csr INTO l_kpr_rec;
1504: l_row_notfound := l_kpr_csr%NOTFOUND;

Line 1522: x_return_status := OKC_API.G_RET_STS_ERROR;

1518: p_token1_value => l_rrd_rec.rle_meaning,
1519: p_token2 => 'RULE_GROUP',
1520: p_token2_value => l_rrd_rec.rgd_meaning,
1521: p_token3 => g_token);
1522: x_return_status := OKC_API.G_RET_STS_ERROR;
1523: ELSIF l_kpr_rec.rle_code <> l_rrd_rec.rle_code THEN
1524: If l_rrd_rec.chr_id Is Not Null Then
1525: g_msg_name := 'OKC_QA_K_RULE_ROLE_CHANGED';
1526: g_token := Null;

Line 1541: x_return_status := OKC_API.G_RET_STS_ERROR;

1537: p_token2_value => l_rrd_rec.rgd_meaning,
1538: p_token3 => 'ROLE2',
1539: p_token3_value => l_kpr_rec.meaning,
1540: p_token4 => g_token);
1541: x_return_status := OKC_API.G_RET_STS_ERROR;
1542: END IF;
1543: END IF;
1544: END IF;
1545: END LOOP; --l_rpr_csr

Line 1568: x_return_status := OKC_API.G_RET_STS_ERROR;

1564: IF (l_debug = 'Y') THEN
1565: okc_debug.Log('100: Rule Group Party Role is missing ',2);
1566: END IF;
1567: Set_Rule_Party_Message;
1568: x_return_status := OKC_API.G_RET_STS_ERROR;
1569: END IF; -- l_adv_pricing_profile is N
1570:
1571: ELSE
1572: -- rule group is NOT Pricing, error

Line 1582: x_return_status := OKC_API.G_RET_STS_ERROR;

1578: IF (l_debug = 'Y') THEN
1579: okc_debug.Log('200: Rule Group Party Role is missing ',2);
1580: END IF;
1581: Set_Rule_Party_Message;
1582: x_return_status := OKC_API.G_RET_STS_ERROR;
1583: END IF; -- rule group is Pricing
1584:
1585: END IF; -- rowcount is 0
1586: CLOSE l_rpr_csr;

Line 1591: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN

1587: END LOOP; --l_rrd_csr
1588: CLOSE l_rrd_csr;
1589:
1590: -- notify caller of success
1591: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1592: OKC_API.set_message(
1593: p_app_name => G_APP_NAME,
1594: p_msg_name => G_QA_SUCCESS);
1595: END IF;

Line 1592: OKC_API.set_message(

1588: CLOSE l_rrd_csr;
1589:
1590: -- notify caller of success
1591: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1592: OKC_API.set_message(
1593: p_app_name => G_APP_NAME,
1594: p_msg_name => G_QA_SUCCESS);
1595: END IF;
1596:

Line 1616: OKC_API.SET_MESSAGE(

1612: okc_debug.Log('3000: Leaving ',2);
1613: okc_debug.Reset_Indentation;
1614: END IF;
1615: -- store SQL error message on message stack
1616: OKC_API.SET_MESSAGE(
1617: p_app_name => G_APP_NAME,
1618: p_msg_name => G_UNEXPECTED_ERROR,
1619: p_token1 => G_SQLCODE_TOKEN,
1620: p_token1_value => SQLCODE,

Line 1624: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

1620: p_token1_value => SQLCODE,
1621: p_token2 => G_SQLERRM_TOKEN,
1622: p_token2_value => SQLERRM);
1623: -- notify caller of an error as UNEXPETED error
1624: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1625: -- verify that cursor was closed
1626: IF l_chr_csr%ISOPEN THEN
1627: CLOSE l_chr_csr;
1628: END IF;

Line 1729: x_return_status := OKC_API.G_RET_STS_SUCCESS;

1725: okc_debug.Log('10: Entering ',2);
1726: END IF;
1727:
1728: -- initialize return status
1729: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1730:
1731: -- check that start date is less than end date
1732: OPEN l_chrv_csr;
1733: FETCH l_chrv_csr INTO l_chrv_rec;

Line 1738: OKC_API.set_message(

1734: CLOSE l_chrv_csr;
1735:
1736: -- data is required
1737: IF (l_chrv_rec.start_date IS NULL) THEN
1738: OKC_API.set_message(
1739: p_app_name => G_APP_NAME,
1740: p_msg_name => 'OKC_QA_START_DATE_REQUIRED');
1741:
1742: -- notify caller of an error

Line 1743: x_return_status := OKC_API.G_RET_STS_ERROR;

1739: p_app_name => G_APP_NAME,
1740: p_msg_name => 'OKC_QA_START_DATE_REQUIRED');
1741:
1742: -- notify caller of an error
1743: x_return_status := OKC_API.G_RET_STS_ERROR;
1744:
1745: -- halt validation
1746: RAISE G_EXCEPTION_HALT_VALIDATION;
1747: END IF;

Line 1750: OKC_API.set_message(

1746: RAISE G_EXCEPTION_HALT_VALIDATION;
1747: END IF;
1748:
1749: IF (l_chrv_rec.start_date > NVL(l_chrv_rec.end_date, l_chrv_rec.start_date)) THEN
1750: OKC_API.set_message(
1751: p_app_name => G_APP_NAME,
1752: p_msg_name => G_INVALID_END_DATE);
1753: -- notify caller of an error
1754: x_return_status := OKC_API.G_RET_STS_ERROR;

Line 1754: x_return_status := OKC_API.G_RET_STS_ERROR;

1750: OKC_API.set_message(
1751: p_app_name => G_APP_NAME,
1752: p_msg_name => G_INVALID_END_DATE);
1753: -- notify caller of an error
1754: x_return_status := OKC_API.G_RET_STS_ERROR;
1755:
1756: -- halt validation
1757: RAISE G_EXCEPTION_HALT_VALIDATION;
1758: END IF;

Line 1826: x_return_status := OKC_API.G_RET_STS_ERROR;

1822: --l_error_number := substr(l_error_number, 1, 3) || '1';
1823: END IF;
1824: --at below if statement,added second condition for bug#3339185
1825: If (Instr(l_error_number, '1') > 0 or Instr(l_error_number, '2') > 0) Then
1826: x_return_status := OKC_API.G_RET_STS_ERROR;
1827: l_line_name := okc_contract_pub.get_concat_line_no(l_cle_rec.id, l_return_status);
1828: IF l_return_status <> okc_api.g_ret_sts_success THEN
1829: l_line_name := 'Unknown';
1830: END IF;

Line 1828: IF l_return_status <> okc_api.g_ret_sts_success THEN

1824: --at below if statement,added second condition for bug#3339185
1825: If (Instr(l_error_number, '1') > 0 or Instr(l_error_number, '2') > 0) Then
1826: x_return_status := OKC_API.G_RET_STS_ERROR;
1827: l_line_name := okc_contract_pub.get_concat_line_no(l_cle_rec.id, l_return_status);
1828: IF l_return_status <> okc_api.g_ret_sts_success THEN
1829: l_line_name := 'Unknown';
1830: END IF;
1831:
1832: If Substr(l_error_number, 1, 1) = '1' Then

Line 1833: OKC_API.set_message(

1829: l_line_name := 'Unknown';
1830: END IF;
1831:
1832: If Substr(l_error_number, 1, 1) = '1' Then
1833: OKC_API.set_message(
1834: p_app_name => G_APP_NAME,
1835: p_msg_name => 'OKC_QA_LINE_SDATE_REQUIRED',
1836: p_token1 => 'LINE_NAME',
1837: p_token1_value => l_line_name);

Line 1841: OKC_API.set_message(

1837: p_token1_value => l_line_name);
1838: End If;
1839:
1840: If Substr(l_error_number, 2, 1) = '1' Then
1841: OKC_API.set_message(
1842: p_app_name => G_APP_NAME,
1843: p_msg_name => G_INVALID_LINE_DATES,
1844: p_token1 => 'LINE_NAME',
1845: p_token1_value => l_line_name);

Line 1849: OKC_API.set_message(

1845: p_token1_value => l_line_name);
1846: End If;
1847:
1848: If Substr(l_error_number, 3, 1) = '1' Then
1849: OKC_API.set_message(
1850: p_app_name => G_APP_NAME,
1851: p_msg_name => 'OKC_QA_LINE_EDATE_REQUIRED',
1852: p_token1 => 'LINE_NAME',
1853: p_token1_value => l_line_name);

Line 1857: OKC_API.set_message(

1853: p_token1_value => l_line_name);
1854: End If;
1855:
1856: If Substr(l_error_number, 4, 1) = '1' Then
1857: OKC_API.set_message(
1858: p_app_name => G_APP_NAME,
1859: p_msg_name => G_INVALID_LINE_DATES,
1860: p_token1 => 'LINE_NAME',
1861: p_token1_value => l_line_name);

Line 1865: OKC_API.set_message(

1861: p_token1_value => l_line_name);
1862: End If;
1863: --below condition added for bug#3339185
1864: If Substr(l_error_number, 4, 1) = '2' Then
1865: OKC_API.set_message(
1866: p_app_name => G_APP_NAME,
1867: p_msg_name => G_INVALID_COVERAGELINE_DATES,
1868: p_token1 => 'LINE_NAME',
1869: p_token1_value => l_line_name);

Line 1928: x_return_status := OKC_API.G_RET_STS_ERROR;

1924: --l_error_number := substr(l_error_number, 1, 3) || '1';
1925: END IF;
1926: --at below if statement,added second condition for bug#3339185
1927: If (Instr(l_error_number, '1') > 0 or Instr(l_error_number, '2') > 0) Then
1928: x_return_status := OKC_API.G_RET_STS_ERROR;
1929: l_line_name := okc_contract_pub.get_concat_line_no(l_id_tbl(i), l_return_status);
1930: IF l_return_status <> okc_api.g_ret_sts_success THEN
1931: l_line_name := 'Unknown';
1932: END IF;

Line 1930: IF l_return_status <> okc_api.g_ret_sts_success THEN

1926: --at below if statement,added second condition for bug#3339185
1927: If (Instr(l_error_number, '1') > 0 or Instr(l_error_number, '2') > 0) Then
1928: x_return_status := OKC_API.G_RET_STS_ERROR;
1929: l_line_name := okc_contract_pub.get_concat_line_no(l_id_tbl(i), l_return_status);
1930: IF l_return_status <> okc_api.g_ret_sts_success THEN
1931: l_line_name := 'Unknown';
1932: END IF;
1933:
1934: If Substr(l_error_number, 1, 1) = '1' Then

Line 1935: OKC_API.set_message(

1931: l_line_name := 'Unknown';
1932: END IF;
1933:
1934: If Substr(l_error_number, 1, 1) = '1' Then
1935: OKC_API.set_message(
1936: p_app_name => G_APP_NAME,
1937: p_msg_name => 'OKC_QA_LINE_SDATE_REQUIRED',
1938: p_token1 => 'LINE_NAME',
1939: p_token1_value => l_line_name);

Line 1943: OKC_API.set_message(

1939: p_token1_value => l_line_name);
1940: End If;
1941:
1942: If Substr(l_error_number, 2, 1) = '1' Then
1943: OKC_API.set_message(
1944: p_app_name => G_APP_NAME,
1945: p_msg_name => G_INVALID_LINE_DATES,
1946: p_token1 => 'LINE_NAME',
1947: p_token1_value => l_line_name);

Line 1951: OKC_API.set_message(

1947: p_token1_value => l_line_name);
1948: End If;
1949:
1950: If Substr(l_error_number, 3, 1) = '1' Then
1951: OKC_API.set_message(
1952: p_app_name => G_APP_NAME,
1953: p_msg_name => 'OKC_QA_LINE_EDATE_REQUIRED',
1954: p_token1 => 'LINE_NAME',
1955: p_token1_value => l_line_name);

Line 1959: OKC_API.set_message(

1955: p_token1_value => l_line_name);
1956: End If;
1957:
1958: If Substr(l_error_number, 4, 1) = '1' Then
1959: OKC_API.set_message(
1960: p_app_name => G_APP_NAME,
1961: p_msg_name => G_INVALID_LINE_DATES,
1962: p_token1 => 'LINE_NAME',
1963: p_token1_value => l_line_name);

Line 1967: OKC_API.set_message(

1963: p_token1_value => l_line_name);
1964: End If;
1965: --below condition added for bug#3339185
1966: If Substr(l_error_number, 4, 1) = '2' Then
1967: OKC_API.set_message(
1968: p_app_name => G_APP_NAME,
1969: p_msg_name => G_INVALID_COVERAGELINE_DATES,
1970: p_token1 => 'LINE_NAME',
1971: p_token1_value => l_line_name);

Line 1984: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN

1980:
1981:
1982:
1983: -- notify caller of success
1984: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1985: OKC_API.set_message(
1986: p_app_name => G_APP_NAME,
1987: p_msg_name => G_QA_SUCCESS);
1988: END IF;

Line 1985: OKC_API.set_message(

1981:
1982:
1983: -- notify caller of success
1984: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1985: OKC_API.set_message(
1986: p_app_name => G_APP_NAME,
1987: p_msg_name => G_QA_SUCCESS);
1988: END IF;
1989:

Line 2008: OKC_API.SET_MESSAGE(

2004: okc_debug.Log('3000: Leaving ',2);
2005: okc_debug.Reset_Indentation;
2006: END IF;
2007: -- store SQL error message on message stack
2008: OKC_API.SET_MESSAGE(
2009: p_app_name => G_APP_NAME,
2010: p_msg_name => G_UNEXPECTED_ERROR,
2011: p_token1 => G_SQLCODE_TOKEN,
2012: p_token1_value => SQLCODE,

Line 2016: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;

2012: p_token1_value => SQLCODE,
2013: p_token2 => G_SQLERRM_TOKEN,
2014: p_token2_value => SQLERRM);
2015: -- notify caller of an error as UNEXPETED error
2016: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2017: -- verify that cursor was closed
2018: IF l_chrv_csr%ISOPEN THEN
2019: CLOSE l_chrv_csr;
2020: END IF;