86: l_jtf_query varchar2(2000) default null;
87:
88: Begin
89: --initialize return status
90: x_return_status := OKL_API.G_RET_STS_SUCCESS;
91: --Step 1 : Get the JTOT_OBJECT_CODE Name from OKC_RULE_DEF_SOURCES_V
92: Open rule_source_curs;
93: Fetch rule_source_curs into rule_source_rec;
94: If rule_source_curs%NotFound Then
92: Open rule_source_curs;
93: Fetch rule_source_curs into rule_source_rec;
94: If rule_source_curs%NotFound Then
95: --dbms_output.put_line('Get_Jtot_Query : falied in getting rule_source');
96: /*OKL_API.SET_MESSAGE(p_app_name => g_app_name,
97: p_msg_name => G_WARNING,
98: p_token1 => p_rgd_code||':'||p_rgs_code||':'||p_buy_or_sell||':'||p_object_code,
99: p_token1_value => 'FAILED TO GET RULE SOURCE FROM OKC_RULE_SOURCES'
100: );
111: rule_source_rec.object_code||'.DESCRIPTION';
112: l_jtf_query := OKC_UTIL.GET_SQL_FROM_JTFV(p_object_code => rule_source_rec.object_code);
113: If l_jtf_query is Null Then
114: --dbms_output.put_line('Get_Jtot_Query : falied in getting jtf query');
115: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
116: p_msg_name => G_ERROR,
117: p_token1 => p_rgd_code||':'||p_rgs_code||':'||p_buy_or_sell,
118: p_token1_value => 'FAILED IN GETTING JTF QUERY FROM OKC_UTIL'
119: );
116: p_msg_name => G_ERROR,
117: p_token1 => p_rgd_code||':'||p_rgs_code||':'||p_buy_or_sell,
118: p_token1_value => 'FAILED IN GETTING JTF QUERY FROM OKC_UTIL'
119: );
120: RAISE OKL_API.G_EXCEPTION_ERROR;
121: Else
122: l_query_string := l_query_string || ' FROM ' ||l_jtf_query;
123: End If;
124:
140: x_id1_col := x_object_code||'.'||'ID1';
141: x_id2_col := x_object_code||'.'||'ID2';
142: x_name_col := x_object_code||'.'||'NAME';
143: EXCEPTION
144: when OKL_API.G_EXCEPTION_ERROR then
145: x_return_status := OKL_API.G_RET_STS_ERROR;
146: when OTHERS then
147: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
148: p_msg_name => G_UNEXPECTED_ERROR,
141: x_id2_col := x_object_code||'.'||'ID2';
142: x_name_col := x_object_code||'.'||'NAME';
143: EXCEPTION
144: when OKL_API.G_EXCEPTION_ERROR then
145: x_return_status := OKL_API.G_RET_STS_ERROR;
146: when OTHERS then
147: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
148: p_msg_name => G_UNEXPECTED_ERROR,
149: p_token1 => G_SQLCODE_TOKEN,
143: EXCEPTION
144: when OKL_API.G_EXCEPTION_ERROR then
145: x_return_status := OKL_API.G_RET_STS_ERROR;
146: when OTHERS then
147: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
148: p_msg_name => G_UNEXPECTED_ERROR,
149: p_token1 => G_SQLCODE_TOKEN,
150: p_token1_value => SQLCODE,
151: p_token2 => G_SQLERRM_TOKEN,
149: p_token1 => G_SQLCODE_TOKEN,
150: p_token1_value => SQLCODE,
151: p_token2 => G_SQLERRM_TOKEN,
152: p_token2_value => SQLERRM);
153: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
154: End Get_Jtot_Query;
155: --Start of Comments
156: --Procedure : Get_Dff_Query
157: --Purpose : Returns Query for Pure Dff Rule segments
205: l_mapping_code Varchar2(10) default null;
206:
207: Begin
208: --initialize return status
209: x_return_status := OKL_API.G_RET_STS_SUCCESS;
210: Open flex_value_set_cur(p_flex_value_set_id);
211: Fetch flex_value_set_cur into flex_value_set_rec;
212: If flex_value_set_cur%NotFound Then
213: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
209: x_return_status := OKL_API.G_RET_STS_SUCCESS;
210: Open flex_value_set_cur(p_flex_value_set_id);
211: Fetch flex_value_set_cur into flex_value_set_rec;
212: If flex_value_set_cur%NotFound Then
213: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
214: p_msg_name => G_ERROR,
215: p_token1 => to_char(p_flex_value_set_id),
216: p_token1_value => 'FAILED TO FETCH VALUE SET RECORD'
217: );
214: p_msg_name => G_ERROR,
215: p_token1 => to_char(p_flex_value_set_id),
216: p_token1_value => 'FAILED TO FETCH VALUE SET RECORD'
217: );
218: RAISE OKL_API.G_EXCEPTION_ERROR;
219: Null; --raise appropriate exception
220: Elsif flex_value_set_rec.validation_type = 'N' Then --No Validation
221: x_longlist_flag := flex_value_set_rec.longlist_flag;
222: x_format_type := flex_value_set_rec.format_type;
270: x_value_set_name := flex_value_set_rec.flex_value_set_name;
271: Open flex_query_t_cur(p_flex_value_set_id);
272: Fetch flex_query_t_cur into flex_query_t_rec;
273: If flex_query_t_cur%NotFound Then
274: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
275: p_msg_name => G_ERROR,
276: p_token1 => to_char(p_flex_value_set_id),
277: p_token1_value => 'FAILED TO FETCH TABLE VALIDATED QUERY'
278: );
275: p_msg_name => G_ERROR,
276: p_token1 => to_char(p_flex_value_set_id),
277: p_token1_value => 'FAILED TO FETCH TABLE VALIDATED QUERY'
278: );
279: RAISE OKL_API.G_EXCEPTION_ERROR;
280: Else
281: --For Rules always use id col
282: If flex_query_t_rec.id_column_name is null Then
283: l_select_clause := ' SELECT '||l_select_clause||' '||flex_query_t_rec.value_column_name||' , ';
329: Close flex_value_set_cur;
330: x_object_code := l_object_code;
331:
332: EXCEPTION
333: when OKL_API.G_EXCEPTION_ERROR then
334: x_return_status := OKL_API.G_RET_STS_ERROR;
335: when OTHERS then
336: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
337: p_msg_name => G_UNEXPECTED_ERROR,
330: x_object_code := l_object_code;
331:
332: EXCEPTION
333: when OKL_API.G_EXCEPTION_ERROR then
334: x_return_status := OKL_API.G_RET_STS_ERROR;
335: when OTHERS then
336: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
337: p_msg_name => G_UNEXPECTED_ERROR,
338: p_token1 => G_SQLCODE_TOKEN,
332: EXCEPTION
333: when OKL_API.G_EXCEPTION_ERROR then
334: x_return_status := OKL_API.G_RET_STS_ERROR;
335: when OTHERS then
336: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
337: p_msg_name => G_UNEXPECTED_ERROR,
338: p_token1 => G_SQLCODE_TOKEN,
339: p_token1_value => SQLCODE,
340: p_token2 => G_SQLERRM_TOKEN,
338: p_token1 => G_SQLCODE_TOKEN,
339: p_token1_value => SQLCODE,
340: p_token2 => G_SQLERRM_TOKEN,
341: p_token2_value => SQLERRM);
342: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
343: END Get_Dff_Query;
344:
345: --Start of Comments
346: --Procedure : Get_Rule_Def
404: --set context
405: -- If okc_context.get_okc_organization_id is null then
406: -- okc_context.set_okc_org_context(1,1);
407: -- End If;
408: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
409: G_PKG_NAME,
410: p_init_msg_list,
411: G_API_VERSION,
412: p_api_version,
412: p_api_version,
413: G_SCOPE,
414: x_return_status);
415:
416: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
419: RAISE OKL_API.G_EXCEPTION_ERROR;
420: END IF;
413: G_SCOPE,
414: x_return_status);
415:
416: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
419: RAISE OKL_API.G_EXCEPTION_ERROR;
420: END IF;
421: x_return_status := l_return_status;
414: x_return_status);
415:
416: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
419: RAISE OKL_API.G_EXCEPTION_ERROR;
420: END IF;
421: x_return_status := l_return_status;
422:
415:
416: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
419: RAISE OKL_API.G_EXCEPTION_ERROR;
420: END IF;
421: x_return_status := l_return_status;
422:
423: --rule striping
440:
441: fnd_dflex.get_segments( context => l_context_r,
442: segments => l_segments_r );
443: If l_segments_r.nsegments = 0 Then
444: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
445: p_msg_name => G_ERROR,
446: p_token1 => p_rgd_code||':'||p_rgs_code||':'||p_buy_or_sell,
447: p_token1_value => 'FAILED TO GET RULE SEGMENTS FROM FND DFLEX DEFINITIONS'
448: );
445: p_msg_name => G_ERROR,
446: p_token1 => p_rgd_code||':'||p_rgs_code||':'||p_buy_or_sell,
447: p_token1_value => 'FAILED TO GET RULE SEGMENTS FROM FND DFLEX DEFINITIONS'
448: );
449: RAISE OKL_API.G_EXCEPTION_ERROR;
450: Else
451: for i in 1..l_segments_r.nsegments
452: Loop
453: If l_segments_r.application_column_name(i) like 'JTOT%' Then
469: x_id1_col => l_id1_col,
470: x_id2_col => l_id2_col,
471: x_name_col => l_name_col);
472:
473: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
475: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
476: RAISE OKC_API.G_EXCEPTION_ERROR;
477: END IF;
470: x_id2_col => l_id2_col,
471: x_name_col => l_name_col);
472:
473: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
475: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
476: RAISE OKC_API.G_EXCEPTION_ERROR;
477: END IF;
478:
471: x_name_col => l_name_col);
472:
473: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
475: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
476: RAISE OKC_API.G_EXCEPTION_ERROR;
477: END IF;
478:
479: Elsif l_segments_r.application_column_name(i) like 'RULE%' Then
496: x_meaning_col => l_name_col,
497: x_value_set_name => l_value_set_name,
498: x_additional_columns => l_additional_columns);
499:
500: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
502: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
503: RAISE OKC_API.G_EXCEPTION_ERROR;
504: END IF;
497: x_value_set_name => l_value_set_name,
498: x_additional_columns => l_additional_columns);
499:
500: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
502: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
503: RAISE OKC_API.G_EXCEPTION_ERROR;
504: END IF;
505: End If;
498: x_additional_columns => l_additional_columns);
499:
500: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
502: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
503: RAISE OKC_API.G_EXCEPTION_ERROR;
504: END IF;
505: End If;
506: End If;
549: End Loop;
550: End If;
551: End If;
552: --Call End Activity
553: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
554: x_msg_data => x_msg_data);
555: EXCEPTION
556: when OKL_API.G_EXCEPTION_ERROR then
557: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
552: --Call End Activity
553: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
554: x_msg_data => x_msg_data);
555: EXCEPTION
556: when OKL_API.G_EXCEPTION_ERROR then
557: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
558: p_api_name => l_api_name,
559: p_pkg_name => g_pkg_name,
560: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
553: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
554: x_msg_data => x_msg_data);
555: EXCEPTION
556: when OKL_API.G_EXCEPTION_ERROR then
557: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
558: p_api_name => l_api_name,
559: p_pkg_name => g_pkg_name,
560: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
561: x_msg_count => x_msg_count,
556: when OKL_API.G_EXCEPTION_ERROR then
557: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
558: p_api_name => l_api_name,
559: p_pkg_name => g_pkg_name,
560: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
561: x_msg_count => x_msg_count,
562: x_msg_data => x_msg_data,
563: p_api_type => g_api_type);
564:
561: x_msg_count => x_msg_count,
562: x_msg_data => x_msg_data,
563: p_api_type => g_api_type);
564:
565: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
567: p_api_name => l_api_name,
568: p_pkg_name => g_pkg_name,
569: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
562: x_msg_data => x_msg_data,
563: p_api_type => g_api_type);
564:
565: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
567: p_api_name => l_api_name,
568: p_pkg_name => g_pkg_name,
569: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
570: x_msg_count => x_msg_count,
565: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
567: p_api_name => l_api_name,
568: p_pkg_name => g_pkg_name,
569: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
570: x_msg_count => x_msg_count,
571: x_msg_data => x_msg_data,
572: p_api_type => g_api_type);
573:
571: x_msg_data => x_msg_data,
572: p_api_type => g_api_type);
573:
574: when OTHERS then
575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
576: p_api_name => l_api_name,
577: p_pkg_name => g_pkg_name,
578: p_exc_name => 'OTHERS',
579: x_msg_count => x_msg_count,
589: --Purpose : Query Name, Description for a given id and meta data sql.
590: --End of Comments
591:
592: PROCEDURE Get_Name_Values ( p_api_version IN NUMBER,
593: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
594: x_return_status OUT NOCOPY VARCHAR2,
595: x_msg_count OUT NOCOPY NUMBER,
596: x_msg_data OUT NOCOPY VARCHAR2,
597: p_chr_id IN NUMBER,
627: l_api_version CONSTANT NUMBER := 1.0;
628:
629: Begin
630:
631: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
632: G_PKG_NAME,
633: p_init_msg_list,
634: G_API_VERSION,
635: p_api_version,
635: p_api_version,
636: G_SCOPE,
637: x_return_status);
638:
639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_ERROR;
643: END IF;
636: G_SCOPE,
637: x_return_status);
638:
639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_ERROR;
643: END IF;
644:
637: x_return_status);
638:
639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_ERROR;
643: END IF;
644:
645:
638:
639: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
641: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
642: RAISE OKL_API.G_EXCEPTION_ERROR;
643: END IF;
644:
645:
646: OKL_CONTEXT.set_okc_org_context(p_chr_id => p_chr_id);
688: End If;
689: End if;
690:
691: --Call End Activity
692: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
693: x_msg_data => x_msg_data);
694:
695: EXCEPTION
696: when OTHERS then
693: x_msg_data => x_msg_data);
694:
695: EXCEPTION
696: when OTHERS then
697: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
698: p_api_name => l_api_name,
699: p_pkg_name => g_pkg_name,
700: p_exc_name => 'OTHERS',
701: x_msg_count => x_msg_count,
711: --End of Comments
712:
713:
714: PROCEDURE Get_Rules_Metadata (p_api_version IN NUMBER,
715: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
716: x_return_status OUT NOCOPY VARCHAR2,
717: x_msg_count OUT NOCOPY NUMBER,
718: x_msg_data OUT NOCOPY VARCHAR2,
719: p_rgd_code IN VARCHAR2,
783: l_api_version CONSTANT NUMBER := 1.0;
784:
785: Begin
786:
787: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
788: G_PKG_NAME,
789: p_init_msg_list,
790: G_API_VERSION,
791: p_api_version,
791: p_api_version,
792: G_SCOPE,
793: x_return_status);
794:
795: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
798: RAISE OKL_API.G_EXCEPTION_ERROR;
799: END IF;
792: G_SCOPE,
793: x_return_status);
794:
795: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
798: RAISE OKL_API.G_EXCEPTION_ERROR;
799: END IF;
800:
793: x_return_status);
794:
795: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
798: RAISE OKL_API.G_EXCEPTION_ERROR;
799: END IF;
800:
801:
794:
795: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
798: RAISE OKL_API.G_EXCEPTION_ERROR;
799: END IF;
800:
801:
802: if(l_chr_id is null or l_chr_id = OKC_API.G_MISS_NUM) then
840: p_buy_or_sell => p_buy_or_sell,
841: x_rule_segment_tbl => l_rule_segment_tbl);
842:
843:
844: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
847: RAISE OKC_API.G_EXCEPTION_ERROR;
848: END IF;
841: x_rule_segment_tbl => l_rule_segment_tbl);
842:
843:
844: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
847: RAISE OKC_API.G_EXCEPTION_ERROR;
848: END IF;
849:
842:
843:
844: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
847: RAISE OKC_API.G_EXCEPTION_ERROR;
848: END IF;
849:
850:
946: p_where_clause => l_rule_segment_tbl2(i).where_clause,
947: x_name => x_name,
948: x_desc => x_desc);
949:
950: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
952: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
953: RAISE OKC_API.G_EXCEPTION_ERROR;
954: END IF;
947: x_name => x_name,
948: x_desc => x_desc);
949:
950: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
952: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
953: RAISE OKC_API.G_EXCEPTION_ERROR;
954: END IF;
955: end if;
948: x_desc => x_desc);
949:
950: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
952: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
953: RAISE OKC_API.G_EXCEPTION_ERROR;
954: END IF;
955: end if;
956: else
970:
971: x_rule_segment_tbl := l_rule_segment_tbl2;
972:
973: --Call End Activity
974: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data);
976: EXCEPTION
977: when OKL_API.G_EXCEPTION_ERROR then
978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
973: --Call End Activity
974: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data);
976: EXCEPTION
977: when OKL_API.G_EXCEPTION_ERROR then
978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
979: p_api_name => l_api_name,
980: p_pkg_name => g_pkg_name,
981: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
974: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data);
976: EXCEPTION
977: when OKL_API.G_EXCEPTION_ERROR then
978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
979: p_api_name => l_api_name,
980: p_pkg_name => g_pkg_name,
981: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
982: x_msg_count => x_msg_count,
977: when OKL_API.G_EXCEPTION_ERROR then
978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
979: p_api_name => l_api_name,
980: p_pkg_name => g_pkg_name,
981: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
982: x_msg_count => x_msg_count,
983: x_msg_data => x_msg_data,
984: p_api_type => g_api_type);
985:
982: x_msg_count => x_msg_count,
983: x_msg_data => x_msg_data,
984: p_api_type => g_api_type);
985:
986: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
988: p_api_name => l_api_name,
989: p_pkg_name => g_pkg_name,
990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
983: x_msg_data => x_msg_data,
984: p_api_type => g_api_type);
985:
986: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
988: p_api_name => l_api_name,
989: p_pkg_name => g_pkg_name,
990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
991: x_msg_count => x_msg_count,
986: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
988: p_api_name => l_api_name,
989: p_pkg_name => g_pkg_name,
990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
991: x_msg_count => x_msg_count,
992: x_msg_data => x_msg_data,
993: p_api_type => g_api_type);
994:
992: x_msg_data => x_msg_data,
993: p_api_type => g_api_type);
994:
995: when OTHERS then
996: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
997: p_api_name => l_api_name,
998: p_pkg_name => g_pkg_name,
999: p_exc_name => 'OTHERS',
1000: x_msg_count => x_msg_count,
1040: l_api_name CONSTANT VARCHAR2(30) := 'GET_SUBCLASS_RGS';
1041: l_api_version CONSTANT NUMBER := 1.0;
1042:
1043: begin
1044: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
1045: G_PKG_NAME,
1046: p_init_msg_list,
1047: G_API_VERSION,
1048: p_api_version,
1048: p_api_version,
1049: G_SCOPE,
1050: x_return_status);
1051:
1052: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1054: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1055: RAISE OKL_API.G_EXCEPTION_ERROR;
1056: END IF;
1049: G_SCOPE,
1050: x_return_status);
1051:
1052: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1054: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1055: RAISE OKL_API.G_EXCEPTION_ERROR;
1056: END IF;
1057:
1050: x_return_status);
1051:
1052: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1054: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1055: RAISE OKL_API.G_EXCEPTION_ERROR;
1056: END IF;
1057:
1058: x_return_status := l_return_status;
1051:
1052: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1054: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1055: RAISE OKL_API.G_EXCEPTION_ERROR;
1056: END IF;
1057:
1058: x_return_status := l_return_status;
1059: i := 1;
1071: End If;
1072: End Loop;
1073: Close scs_rgd_curs;
1074: --Call End Activity
1075: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1076: x_msg_data => x_msg_data);
1077: EXCEPTION
1078: when OKL_API.G_EXCEPTION_ERROR then
1079: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1074: --Call End Activity
1075: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1076: x_msg_data => x_msg_data);
1077: EXCEPTION
1078: when OKL_API.G_EXCEPTION_ERROR then
1079: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1080: p_api_name => l_api_name,
1081: p_pkg_name => g_pkg_name,
1082: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1075: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1076: x_msg_data => x_msg_data);
1077: EXCEPTION
1078: when OKL_API.G_EXCEPTION_ERROR then
1079: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1080: p_api_name => l_api_name,
1081: p_pkg_name => g_pkg_name,
1082: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1083: x_msg_count => x_msg_count,
1078: when OKL_API.G_EXCEPTION_ERROR then
1079: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1080: p_api_name => l_api_name,
1081: p_pkg_name => g_pkg_name,
1082: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1083: x_msg_count => x_msg_count,
1084: x_msg_data => x_msg_data,
1085: p_api_type => g_api_type);
1086:
1083: x_msg_count => x_msg_count,
1084: x_msg_data => x_msg_data,
1085: p_api_type => g_api_type);
1086:
1087: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1088: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1089: p_api_name => l_api_name,
1090: p_pkg_name => g_pkg_name,
1091: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1084: x_msg_data => x_msg_data,
1085: p_api_type => g_api_type);
1086:
1087: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1088: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1089: p_api_name => l_api_name,
1090: p_pkg_name => g_pkg_name,
1091: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1092: x_msg_count => x_msg_count,
1087: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1088: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1089: p_api_name => l_api_name,
1090: p_pkg_name => g_pkg_name,
1091: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1092: x_msg_count => x_msg_count,
1093: x_msg_data => x_msg_data,
1094: p_api_type => g_api_type);
1095:
1093: x_msg_data => x_msg_data,
1094: p_api_type => g_api_type);
1095:
1096: when OTHERS then
1097: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1098: p_api_name => l_api_name,
1099: p_pkg_name => g_pkg_name,
1100: p_exc_name => 'OTHERS',
1101: x_msg_count => x_msg_count,
1141: order by 3;
1142: l_rule_seg_rec rule_seg_curs%RowType;
1143: i Number;
1144: Begin
1145: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1146: Open rule_seg_curs;
1147: i := 0;
1148: Loop
1149: Fetch rule_seg_curs
1161: x_rule_tbl := l_rule_tbl;
1162: x_segment_count := i;
1163: EXCEPTION
1164: when OTHERS then
1165: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1166: p_msg_name => G_UNEXPECTED_ERROR,
1167: p_token1 => G_SQLCODE_TOKEN,
1168: p_token1_value => SQLCODE,
1169: p_token2 => G_SQLERRM_TOKEN,
1167: p_token1 => G_SQLCODE_TOKEN,
1168: p_token1_value => SQLCODE,
1169: p_token2 => G_SQLERRM_TOKEN,
1170: p_token2_value => SQLERRM);
1171: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1172: End Get_Rule_Segments;
1173: --Start of Comments
1174: --Procedure : Get_Rg_Rules
1175: --Purpose : Gets Rules segments
1200: l_api_name CONSTANT VARCHAR2(30) := 'GET_RG_RULES';
1201: l_api_version CONSTANT NUMBER := 1.0;
1202:
1203: begin
1204: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
1205: G_PKG_NAME,
1206: p_init_msg_list,
1207: G_API_VERSION,
1208: p_api_version,
1208: p_api_version,
1209: G_SCOPE,
1210: x_return_status);
1211:
1212: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1215: RAISE OKL_API.G_EXCEPTION_ERROR;
1216: END IF;
1209: G_SCOPE,
1210: x_return_status);
1211:
1212: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1215: RAISE OKL_API.G_EXCEPTION_ERROR;
1216: END IF;
1217: x_return_status := l_return_status;
1210: x_return_status);
1211:
1212: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1215: RAISE OKL_API.G_EXCEPTION_ERROR;
1216: END IF;
1217: x_return_status := l_return_status;
1218: Open rg_rule_def_curs;
1211:
1212: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1215: RAISE OKL_API.G_EXCEPTION_ERROR;
1216: END IF;
1217: x_return_status := l_return_status;
1218: Open rg_rule_def_curs;
1219: Loop
1225: p_rgs_code => l_rg_rule_def_rec.rdf_code,
1226: x_segment_count => l_segment_Count,
1227: x_rule_tbl => l_rule_tbl);
1228:
1229: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1231: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1232: RAISE OKC_API.G_EXCEPTION_ERROR;
1233: END IF;
1226: x_segment_count => l_segment_Count,
1227: x_rule_tbl => l_rule_tbl);
1228:
1229: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1231: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1232: RAISE OKC_API.G_EXCEPTION_ERROR;
1233: END IF;
1234:
1227: x_rule_tbl => l_rule_tbl);
1228:
1229: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1231: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1232: RAISE OKC_API.G_EXCEPTION_ERROR;
1233: END IF;
1234:
1235: For i in 1..l_segment_count
1246: End Loop;
1247: Close rg_rule_def_curs;
1248: x_rg_rules_tbl := l_rg_rules_tbl;
1249: --Call End Activity
1250: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1251: x_msg_data => x_msg_data);
1252:
1253: EXCEPTION
1254: when OKL_API.G_EXCEPTION_ERROR then
1250: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1251: x_msg_data => x_msg_data);
1252:
1253: EXCEPTION
1254: when OKL_API.G_EXCEPTION_ERROR then
1255: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1256: p_api_name => l_api_name,
1257: p_pkg_name => g_pkg_name,
1258: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1251: x_msg_data => x_msg_data);
1252:
1253: EXCEPTION
1254: when OKL_API.G_EXCEPTION_ERROR then
1255: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1256: p_api_name => l_api_name,
1257: p_pkg_name => g_pkg_name,
1258: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1259: x_msg_count => x_msg_count,
1254: when OKL_API.G_EXCEPTION_ERROR then
1255: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1256: p_api_name => l_api_name,
1257: p_pkg_name => g_pkg_name,
1258: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1259: x_msg_count => x_msg_count,
1260: x_msg_data => x_msg_data,
1261: p_api_type => g_api_type);
1262:
1259: x_msg_count => x_msg_count,
1260: x_msg_data => x_msg_data,
1261: p_api_type => g_api_type);
1262:
1263: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1265: p_api_name => l_api_name,
1266: p_pkg_name => g_pkg_name,
1267: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1260: x_msg_data => x_msg_data,
1261: p_api_type => g_api_type);
1262:
1263: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1265: p_api_name => l_api_name,
1266: p_pkg_name => g_pkg_name,
1267: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1268: x_msg_count => x_msg_count,
1263: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1265: p_api_name => l_api_name,
1266: p_pkg_name => g_pkg_name,
1267: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1268: x_msg_count => x_msg_count,
1269: x_msg_data => x_msg_data,
1270: p_api_type => g_api_type);
1271:
1269: x_msg_data => x_msg_data,
1270: p_api_type => g_api_type);
1271:
1272: when OTHERS then
1273: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1274: p_api_name => l_api_name,
1275: p_pkg_name => g_pkg_name,
1276: p_exc_name => 'OTHERS',
1277: x_msg_count => x_msg_count,