101: l_ind number;
102:
103: BEGIN
104:
105: x_return_status := OKC_API.G_RET_STS_SUCCESS;
106:
107: If p_start_dt > p_end_dt THEN
108: RETURN;
109: END IF;
147: p_type => 'YR',
148: x_var_num_tbl => l_yr_tbl,
149: x_return_status => x_return_status);
150:
151: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
152: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'YEAR PATTERN NOT BUILD.');
153: RAISE G_EXCEPTION_HALT_VALIDATION;
154: END IF;
155: -----errorout_ad('l_yr_tbl count = ' || l_yr_tbl.count);
148: x_var_num_tbl => l_yr_tbl,
149: x_return_status => x_return_status);
150:
151: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
152: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'YEAR PATTERN NOT BUILD.');
153: RAISE G_EXCEPTION_HALT_VALIDATION;
154: END IF;
155: -----errorout_ad('l_yr_tbl count = ' || l_yr_tbl.count);
156:
164: p_yr_pattern_tbl => l_yr_tbl,
165: x_rec_tbl => l_rec_tbl,
166: x_return_status => x_return_status);
167:
168: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
169: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'YEARLY SCHEDULE NOT BUILD.');
170: RAISE G_EXCEPTION_HALT_VALIDATION;
171: END IF;
172:
165: x_rec_tbl => l_rec_tbl,
166: x_return_status => x_return_status);
167:
168: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
169: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'YEARLY SCHEDULE NOT BUILD.');
170: RAISE G_EXCEPTION_HALT_VALIDATION;
171: END IF;
172:
173: ELSE ---p_freq <> 'Y'
178: x_var_num_tbl => l_mth_tbl,
179: x_return_status => x_return_status);
180:
181:
182: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
183: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'MONTH PATTERN NOT BUILD.');
184: RAISE G_EXCEPTION_HALT_VALIDATION;
185: END IF;
186: -----errorout_ad('l_mth_tbl count = ' || l_mth_tbl.count);
179: x_return_status => x_return_status);
180:
181:
182: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
183: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'MONTH PATTERN NOT BUILD.');
184: RAISE G_EXCEPTION_HALT_VALIDATION;
185: END IF;
186: -----errorout_ad('l_mth_tbl count = ' || l_mth_tbl.count);
187:
196: p_yr_pattern_tbl => l_yr_tbl,
197: x_rec_tbl => l_rec_tbl,
198: x_return_status => x_return_status);
199:
200: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
201: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'MONTHLY SCHEDULE NOT BUILD.');
202: RAISE G_EXCEPTION_HALT_VALIDATION;
203: END IF;
204:
197: x_rec_tbl => l_rec_tbl,
198: x_return_status => x_return_status);
199:
200: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
201: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'MONTHLY SCHEDULE NOT BUILD.');
202: RAISE G_EXCEPTION_HALT_VALIDATION;
203: END IF;
204:
205: ELSIF p_freq = 'W' THEN
209: p_type => 'WK',
210: x_var_num_tbl => l_wk_tbl,
211: x_return_status => x_return_status);
212:
213: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
214: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEKLY PATTERN NOT BUILD.');
215: RAISE G_EXCEPTION_HALT_VALIDATION;
216: END IF;
217:
210: x_var_num_tbl => l_wk_tbl,
211: x_return_status => x_return_status);
212:
213: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
214: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEKLY PATTERN NOT BUILD.');
215: RAISE G_EXCEPTION_HALT_VALIDATION;
216: END IF;
217:
218: Create_Weekly_tbl(
225: p_wk_pattern_tbl => l_wk_tbl,
226: x_rec_tbl => l_rec_tbl,
227: x_return_status => x_return_status);
228:
229: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
230: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEKLY SCHEDULE NOT BUILD.');
231: RAISE G_EXCEPTION_HALT_VALIDATION;
232: END IF;
233:
226: x_rec_tbl => l_rec_tbl,
227: x_return_status => x_return_status);
228:
229: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
230: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEKLY SCHEDULE NOT BUILD.');
231: RAISE G_EXCEPTION_HALT_VALIDATION;
232: END IF;
233:
234: ELSIF p_freq = 'D' THEN
239: p_type => 'DY',
240: x_var_num_tbl => l_dy_tbl,
241: x_return_status => x_return_status);
242:
243: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
244: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'DAILY PATTERN NOT BUILD.');
245: RAISE G_EXCEPTION_HALT_VALIDATION;
246: END IF;
247:
240: x_var_num_tbl => l_dy_tbl,
241: x_return_status => x_return_status);
242:
243: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
244: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'DAILY PATTERN NOT BUILD.');
245: RAISE G_EXCEPTION_HALT_VALIDATION;
246: END IF;
247:
248: Create_day_tbl(
255: p_day_pattern_tbl => l_dy_tbl,
256: x_rec_tbl => l_rec_tbl,
257: x_return_status => x_return_status);
258:
259: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
260: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'DAILY SCHEDULE NOT BUILD.');
261: RAISE G_EXCEPTION_HALT_VALIDATION;
262: END IF;
263:
256: x_rec_tbl => l_rec_tbl,
257: x_return_status => x_return_status);
258:
259: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
260: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'DAILY SCHEDULE NOT BUILD.');
261: RAISE G_EXCEPTION_HALT_VALIDATION;
262: END IF;
263:
264: ELSE ---day pattern is null
267: p_type => 'WK',
268: x_var_num_tbl => l_wk_tbl,
269: x_return_status => x_return_status);
270:
271: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
272: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEKLY PATTERN NOT BUILD.');
273: RAISE G_EXCEPTION_HALT_VALIDATION;
274: END IF;
275:
268: x_var_num_tbl => l_wk_tbl,
269: x_return_status => x_return_status);
270:
271: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
272: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEKLY PATTERN NOT BUILD.');
273: RAISE G_EXCEPTION_HALT_VALIDATION;
274: END IF;
275:
276:
279: p_type => 'WDY',
280: x_var_num_tbl => l_wdy_tbl,
281: x_return_status => x_return_status);
282:
283: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
284: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEK DAY PATTERN NOT BUILD.');
285: RAISE G_EXCEPTION_HALT_VALIDATION;
286: END IF;
287:
280: x_var_num_tbl => l_wdy_tbl,
281: x_return_status => x_return_status);
282:
283: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
284: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEK DAY PATTERN NOT BUILD.');
285: RAISE G_EXCEPTION_HALT_VALIDATION;
286: END IF;
287:
288:
297: p_wd_pattern_tbl => l_wdy_tbl,
298: x_rec_tbl => l_rec_tbl,
299: x_return_status => x_return_status);
300:
301: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
302: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEK DAY SCHEDULE NOT BUILD.');
303: RAISE G_EXCEPTION_HALT_VALIDATION;
304: END IF;
305:
298: x_rec_tbl => l_rec_tbl,
299: x_return_status => x_return_status);
300:
301: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
302: OKC_API.set_message(G_PKG_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'WEEK DAY SCHEDULE NOT BUILD.');
303: RAISE G_EXCEPTION_HALT_VALIDATION;
304: END IF;
305:
306: END IF; --end of day_pattern IS NOT NULL
341:
342:
343: EXCEPTION
344: WHEN G_EXCEPTION_HALT_VALIDATION THEN
345: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
346: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
347: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
348: RAISE OKC_API.G_EXCEPTION_ERROR;
349: END IF;
342:
343: EXCEPTION
344: WHEN G_EXCEPTION_HALT_VALIDATION THEN
345: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
346: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
347: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
348: RAISE OKC_API.G_EXCEPTION_ERROR;
349: END IF;
350: WHEN OTHERS THEN
343: EXCEPTION
344: WHEN G_EXCEPTION_HALT_VALIDATION THEN
345: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
346: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
347: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
348: RAISE OKC_API.G_EXCEPTION_ERROR;
349: END IF;
350: WHEN OTHERS THEN
351: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
344: WHEN G_EXCEPTION_HALT_VALIDATION THEN
345: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
346: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
347: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
348: RAISE OKC_API.G_EXCEPTION_ERROR;
349: END IF;
350: WHEN OTHERS THEN
351: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
352: p_msg_name => G_UNEXPECTED_ERROR,
347: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
348: RAISE OKC_API.G_EXCEPTION_ERROR;
349: END IF;
350: WHEN OTHERS THEN
351: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
352: p_msg_name => G_UNEXPECTED_ERROR,
353: p_token1 => G_SQLCODE_TOKEN,
354: p_token1_value => sqlcode,
355: p_token2 => G_SQLERRM_TOKEN,
378: l_high_val number;
379:
380: BEGIN
381:
382: x_return_status := OKC_API.G_RET_STS_SUCCESS;
383:
384: i := 1;
385:
386: IF p_def IS NULL THEN
510: end loop;
511:
512: EXCEPTION
513: WHEN G_EXCEPTION_HALT_VALIDATION THEN
514: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
515: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
516: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
517: RAISE OKC_API.G_EXCEPTION_ERROR;
518: END IF;
511:
512: EXCEPTION
513: WHEN G_EXCEPTION_HALT_VALIDATION THEN
514: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
515: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
516: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
517: RAISE OKC_API.G_EXCEPTION_ERROR;
518: END IF;
519: WHEN OTHERS THEN
512: EXCEPTION
513: WHEN G_EXCEPTION_HALT_VALIDATION THEN
514: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
515: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
516: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
517: RAISE OKC_API.G_EXCEPTION_ERROR;
518: END IF;
519: WHEN OTHERS THEN
520: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
513: WHEN G_EXCEPTION_HALT_VALIDATION THEN
514: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
515: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
516: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
517: RAISE OKC_API.G_EXCEPTION_ERROR;
518: END IF;
519: WHEN OTHERS THEN
520: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
521: p_msg_name => G_UNEXPECTED_ERROR,
516: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
517: RAISE OKC_API.G_EXCEPTION_ERROR;
518: END IF;
519: WHEN OTHERS THEN
520: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
521: p_msg_name => G_UNEXPECTED_ERROR,
522: p_token1 => G_SQLCODE_TOKEN,
523: p_token1_value => sqlcode,
524: p_token2 => G_SQLERRM_TOKEN,
546:
547:
548: BEGIN
549:
550: x_return_status := OKC_API.G_RET_STS_SUCCESS;
551:
552: IF (p_yr_pattern_tbl.COUNT = 0) THEN
553: RETURN;
554: END IF;
589: END LOOP; ---YR LOOP
590:
591: EXCEPTION
592: WHEN G_EXCEPTION_HALT_VALIDATION THEN
593: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
595: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
596: RAISE OKC_API.G_EXCEPTION_ERROR;
597: END IF;
590:
591: EXCEPTION
592: WHEN G_EXCEPTION_HALT_VALIDATION THEN
593: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
595: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
596: RAISE OKC_API.G_EXCEPTION_ERROR;
597: END IF;
598: WHEN OTHERS THEN
591: EXCEPTION
592: WHEN G_EXCEPTION_HALT_VALIDATION THEN
593: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
595: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
596: RAISE OKC_API.G_EXCEPTION_ERROR;
597: END IF;
598: WHEN OTHERS THEN
599: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
592: WHEN G_EXCEPTION_HALT_VALIDATION THEN
593: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
595: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
596: RAISE OKC_API.G_EXCEPTION_ERROR;
597: END IF;
598: WHEN OTHERS THEN
599: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
600: p_msg_name => G_UNEXPECTED_ERROR,
595: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
596: RAISE OKC_API.G_EXCEPTION_ERROR;
597: END IF;
598: WHEN OTHERS THEN
599: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
600: p_msg_name => G_UNEXPECTED_ERROR,
601: p_token1 => G_SQLCODE_TOKEN,
602: p_token1_value => sqlcode,
603: p_token2 => G_SQLERRM_TOKEN,
631:
632:
633: BEGIN
634:
635: x_return_status := OKC_API.G_RET_STS_SUCCESS;
636:
637: IF (p_yr_pattern_tbl.COUNT = 0) OR (p_mth_pattern_tbl.COUNT = 0 ) THEN
638: RETURN;
639: END IF;
679: END LOOP; ---YR LOOP
680:
681: EXCEPTION
682: WHEN G_EXCEPTION_HALT_VALIDATION THEN
683: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
684: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
685: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
686: RAISE OKC_API.G_EXCEPTION_ERROR;
687: END IF;
680:
681: EXCEPTION
682: WHEN G_EXCEPTION_HALT_VALIDATION THEN
683: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
684: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
685: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
686: RAISE OKC_API.G_EXCEPTION_ERROR;
687: END IF;
688: WHEN OTHERS THEN
681: EXCEPTION
682: WHEN G_EXCEPTION_HALT_VALIDATION THEN
683: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
684: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
685: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
686: RAISE OKC_API.G_EXCEPTION_ERROR;
687: END IF;
688: WHEN OTHERS THEN
689: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
682: WHEN G_EXCEPTION_HALT_VALIDATION THEN
683: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
684: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
685: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
686: RAISE OKC_API.G_EXCEPTION_ERROR;
687: END IF;
688: WHEN OTHERS THEN
689: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
690: p_msg_name => G_UNEXPECTED_ERROR,
685: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
686: RAISE OKC_API.G_EXCEPTION_ERROR;
687: END IF;
688: WHEN OTHERS THEN
689: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
690: p_msg_name => G_UNEXPECTED_ERROR,
691: p_token1 => G_SQLCODE_TOKEN,
692: p_token1_value => sqlcode,
693: p_token2 => G_SQLERRM_TOKEN,
719:
720:
721: BEGIN
722:
723: x_return_status := OKC_API.G_RET_STS_SUCCESS;
724:
725: IF (p_yr_pattern_tbl.COUNT = 0) OR (p_mth_pattern_tbl.COUNT = 0 ) OR (p_wk_pattern_tbl.COUNT = 0) THEN
726: RETURN;
727: END IF;
773: END LOOP; ---YR LOOP
774:
775: EXCEPTION
776: WHEN G_EXCEPTION_HALT_VALIDATION THEN
777: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
780: RAISE OKC_API.G_EXCEPTION_ERROR;
781: END IF;
774:
775: EXCEPTION
776: WHEN G_EXCEPTION_HALT_VALIDATION THEN
777: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
780: RAISE OKC_API.G_EXCEPTION_ERROR;
781: END IF;
782: WHEN OTHERS THEN
775: EXCEPTION
776: WHEN G_EXCEPTION_HALT_VALIDATION THEN
777: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
780: RAISE OKC_API.G_EXCEPTION_ERROR;
781: END IF;
782: WHEN OTHERS THEN
783: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
776: WHEN G_EXCEPTION_HALT_VALIDATION THEN
777: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
778: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
779: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
780: RAISE OKC_API.G_EXCEPTION_ERROR;
781: END IF;
782: WHEN OTHERS THEN
783: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
784: p_msg_name => G_UNEXPECTED_ERROR,
779: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
780: RAISE OKC_API.G_EXCEPTION_ERROR;
781: END IF;
782: WHEN OTHERS THEN
783: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
784: p_msg_name => G_UNEXPECTED_ERROR,
785: p_token1 => G_SQLCODE_TOKEN,
786: p_token1_value => sqlcode,
787: p_token2 => G_SQLERRM_TOKEN,
814:
815:
816: BEGIN
817:
818: x_return_status := OKC_API.G_RET_STS_SUCCESS;
819:
820: IF (p_yr_pattern_tbl.COUNT = 0) OR (p_mth_pattern_tbl.COUNT = 0 ) OR (p_day_pattern_tbl.COUNT = 0) THEN
821: RETURN;
822: END IF;
871: END LOOP; ---YR LOOP
872:
873: EXCEPTION
874: WHEN G_EXCEPTION_HALT_VALIDATION THEN
875: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
877: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
878: RAISE OKC_API.G_EXCEPTION_ERROR;
879: END IF;
872:
873: EXCEPTION
874: WHEN G_EXCEPTION_HALT_VALIDATION THEN
875: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
877: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
878: RAISE OKC_API.G_EXCEPTION_ERROR;
879: END IF;
880: WHEN OTHERS THEN
873: EXCEPTION
874: WHEN G_EXCEPTION_HALT_VALIDATION THEN
875: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
877: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
878: RAISE OKC_API.G_EXCEPTION_ERROR;
879: END IF;
880: WHEN OTHERS THEN
881: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
874: WHEN G_EXCEPTION_HALT_VALIDATION THEN
875: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
877: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
878: RAISE OKC_API.G_EXCEPTION_ERROR;
879: END IF;
880: WHEN OTHERS THEN
881: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
882: p_msg_name => G_UNEXPECTED_ERROR,
877: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
878: RAISE OKC_API.G_EXCEPTION_ERROR;
879: END IF;
880: WHEN OTHERS THEN
881: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
882: p_msg_name => G_UNEXPECTED_ERROR,
883: p_token1 => G_SQLCODE_TOKEN,
884: p_token1_value => sqlcode,
885: p_token2 => G_SQLERRM_TOKEN,
911:
912:
913: BEGIN
914:
915: x_return_status := OKC_API.G_RET_STS_SUCCESS;
916:
917: IF (p_yr_pattern_tbl.COUNT = 0) OR (p_mth_pattern_tbl.COUNT = 0 ) OR (p_wk_pattern_tbl.COUNT = 0) or
918: (p_wd_pattern_tbl.count = 0)THEN
919:
973: END LOOP; ---YR LOOP
974:
975: EXCEPTION
976: WHEN G_EXCEPTION_HALT_VALIDATION THEN
977: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
980: RAISE OKC_API.G_EXCEPTION_ERROR;
981: END IF;
974:
975: EXCEPTION
976: WHEN G_EXCEPTION_HALT_VALIDATION THEN
977: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
980: RAISE OKC_API.G_EXCEPTION_ERROR;
981: END IF;
982: WHEN OTHERS THEN
975: EXCEPTION
976: WHEN G_EXCEPTION_HALT_VALIDATION THEN
977: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
980: RAISE OKC_API.G_EXCEPTION_ERROR;
981: END IF;
982: WHEN OTHERS THEN
983: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
976: WHEN G_EXCEPTION_HALT_VALIDATION THEN
977: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
980: RAISE OKC_API.G_EXCEPTION_ERROR;
981: END IF;
982: WHEN OTHERS THEN
983: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
984: p_msg_name => G_UNEXPECTED_ERROR,
979: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
980: RAISE OKC_API.G_EXCEPTION_ERROR;
981: END IF;
982: WHEN OTHERS THEN
983: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
984: p_msg_name => G_UNEXPECTED_ERROR,
985: p_token1 => G_SQLCODE_TOKEN,
986: p_token1_value => sqlcode,
987: p_token2 => G_SQLERRM_TOKEN,