38:
39: BEGIN
40:
41: IF (l_debug = 'Y') THEN
42: okc_debug.Set_Indentation(l_proc);
43: okc_debug.log('10: Entering ',2);
44: END IF;
45:
46: FOR aae_rec IN aae_cur LOOP
39: BEGIN
40:
41: IF (l_debug = 'Y') THEN
42: okc_debug.Set_Indentation(l_proc);
43: okc_debug.log('10: Entering ',2);
44: END IF;
45:
46: FOR aae_rec IN aae_cur LOOP
47: IF UPPER(aae_rec.element_name) = UPPER(p_element_name) THEN
49: END IF;
50: END LOOP;
51:
52: IF (l_debug = 'Y') THEN
53: okc_debug.log('1000: Leaving ',2);
54: okc_debug.Reset_Indentation;
55: END IF;
56:
57:
50: END LOOP;
51:
52: IF (l_debug = 'Y') THEN
53: okc_debug.log('1000: Leaving ',2);
54: okc_debug.Reset_Indentation;
55: END IF;
56:
57:
58: RETURN(x_aae_id);
85:
86: BEGIN
87:
88: IF (l_debug = 'Y') THEN
89: okc_debug.Set_Indentation(l_proc);
90: okc_debug.log('10: Entering ',2);
91: END IF;
92:
93: l_aae_id := get_attribute_id(p_acn_id,'COUNTER_READING');
86: BEGIN
87:
88: IF (l_debug = 'Y') THEN
89: okc_debug.Set_Indentation(l_proc);
90: okc_debug.log('10: Entering ',2);
91: END IF;
92:
93: l_aae_id := get_attribute_id(p_acn_id,'COUNTER_READING');
94: IF aav_cur%ISOPEN THEN
98: FETCH aav_cur INTO aav_rec;
99: IF aav_cur%NOTFOUND THEN
100:
101: IF (l_debug = 'Y') THEN
102: okc_debug.log('100: Leaving ',2);
103: okc_debug.Reset_Indentation;
104: END IF;
105:
106:
99: IF aav_cur%NOTFOUND THEN
100:
101: IF (l_debug = 'Y') THEN
102: okc_debug.log('100: Leaving ',2);
103: okc_debug.Reset_Indentation;
104: END IF;
105:
106:
107: RETURN(l_counter_reading);
108: ELSE
109: l_counter_reading := aav_rec.value;
110:
111: IF (l_debug = 'Y') THEN
112: okc_debug.log('200: Leaving ',2);
113: okc_debug.Reset_Indentation;
114: END IF;
115:
116:
109: l_counter_reading := aav_rec.value;
110:
111: IF (l_debug = 'Y') THEN
112: okc_debug.log('200: Leaving ',2);
113: okc_debug.Reset_Indentation;
114: END IF;
115:
116:
117: RETURN(l_counter_reading);
118: END IF;
119: CLOSE aav_cur;
120:
121: IF (l_debug = 'Y') THEN
122: okc_debug.log('300: Leaving ',2);
123: okc_debug.Reset_Indentation;
124: END IF;
125:
126:
119: CLOSE aav_cur;
120:
121: IF (l_debug = 'Y') THEN
122: okc_debug.log('300: Leaving ',2);
123: okc_debug.Reset_Indentation;
124: END IF;
125:
126:
127: RETURN(l_counter_reading);
156:
157: BEGIN
158:
159: IF (l_debug = 'Y') THEN
160: okc_debug.Set_Indentation(l_proc);
161: okc_debug.log('10: Entering ',2);
162: END IF;
163:
164: IF cv_cur%ISOPEN THEN
157: BEGIN
158:
159: IF (l_debug = 'Y') THEN
160: okc_debug.Set_Indentation(l_proc);
161: okc_debug.log('10: Entering ',2);
162: END IF;
163:
164: IF cv_cur%ISOPEN THEN
165: CLOSE cv_cur;
168: FETCH cv_cur INTO cv_rec;
169: IF cv_cur%NOTFOUND THEN
170:
171: IF (l_debug = 'Y') THEN
172: okc_debug.log('1000: Leaving ',2);
173: okc_debug.Reset_Indentation;
174: END IF;
175:
176:
169: IF cv_cur%NOTFOUND THEN
170:
171: IF (l_debug = 'Y') THEN
172: okc_debug.log('1000: Leaving ',2);
173: okc_debug.Reset_Indentation;
174: END IF;
175:
176:
177: RETURN(l_counter_value);
178: ELSE
179: l_counter_value := cv_rec.counter_reading;
180:
181: IF (l_debug = 'Y') THEN
182: okc_debug.log('2000: Leaving ',2);
183: okc_debug.Reset_Indentation;
184: END IF;
185:
186:
179: l_counter_value := cv_rec.counter_reading;
180:
181: IF (l_debug = 'Y') THEN
182: okc_debug.log('2000: Leaving ',2);
183: okc_debug.Reset_Indentation;
184: END IF;
185:
186:
187: RETURN(l_counter_value);
188: END IF;
189: CLOSE cv_cur;
190:
191: IF (l_debug = 'Y') THEN
192: okc_debug.log('3000: Leaving ',2);
193: okc_debug.Reset_Indentation;
194: END IF;
195:
196:
189: CLOSE cv_cur;
190:
191: IF (l_debug = 'Y') THEN
192: okc_debug.log('3000: Leaving ',2);
193: okc_debug.Reset_Indentation;
194: END IF;
195:
196:
197: RETURN(l_counter_value);
216:
217: BEGIN
218:
219: IF (l_debug = 'Y') THEN
220: okc_debug.Set_Indentation(l_proc);
221: okc_debug.log('10: Entering ',2);
222: END IF;
223:
224: IF p_element_name IS NOT NULL THEN
217: BEGIN
218:
219: IF (l_debug = 'Y') THEN
220: okc_debug.Set_Indentation(l_proc);
221: okc_debug.log('10: Entering ',2);
222: END IF;
223:
224: IF p_element_name IS NOT NULL THEN
225: FOR i IN 1..p_msg_tab.count LOOP
229: END LOOP;
230: END IF;
231:
232: IF (l_debug = 'Y') THEN
233: okc_debug.log('1000: Leaving ',2);
234: okc_debug.Reset_Indentation;
235: END IF;
236:
237:
230: END IF;
231:
232: IF (l_debug = 'Y') THEN
233: okc_debug.log('1000: Leaving ',2);
234: okc_debug.Reset_Indentation;
235: END IF;
236:
237:
238: RETURN(x_element_value);
268:
269: BEGIN
270:
271: IF (l_debug = 'Y') THEN
272: okc_debug.Set_Indentation(l_proc);
273: okc_debug.log('10: Entering ',2);
274: END IF;
275:
276: OPEN aae_cur;
269: BEGIN
270:
271: IF (l_debug = 'Y') THEN
272: okc_debug.Set_Indentation(l_proc);
273: okc_debug.log('10: Entering ',2);
274: END IF;
275:
276: OPEN aae_cur;
277: FETCH aae_cur INTO aae_rec;
288: END IF;
289: CLOSE aae_cur;
290:
291: IF (l_debug = 'Y') THEN
292: okc_debug.log('1000: Leaving ',2);
293: okc_debug.Reset_Indentation;
294: END IF;
295:
296:
289: CLOSE aae_cur;
290:
291: IF (l_debug = 'Y') THEN
292: okc_debug.log('1000: Leaving ',2);
293: okc_debug.Reset_Indentation;
294: END IF;
295:
296:
297: RETURN(x_datetime);
369: ELSE
370: x_function_value := 'F';
371:
372: IF (l_debug = 'Y') THEN
373: okc_debug.log('1000: Leaving ',2);
374: okc_debug.Reset_Indentation;
375: END IF;
376:
377:
370: x_function_value := 'F';
371:
372: IF (l_debug = 'Y') THEN
373: okc_debug.log('1000: Leaving ',2);
374: okc_debug.Reset_Indentation;
375: END IF;
376:
377:
378: RETURN(x_function_value);
387: IF pdf_cur%NOTFOUND THEN
388: x_function_value := 'F';
389:
390: IF (l_debug = 'Y') THEN
391: okc_debug.log('2000: Leaving ',2);
392: okc_debug.Reset_Indentation;
393: END IF;
394:
395:
388: x_function_value := 'F';
389:
390: IF (l_debug = 'Y') THEN
391: okc_debug.log('2000: Leaving ',2);
392: okc_debug.Reset_Indentation;
393: END IF;
394:
395:
396: RETURN(x_function_value);
443: ---** Bug#2934909 END **----------
444: --EXECUTE IMMEDIATE func_string into x_function_value;
445:
446: IF (l_debug = 'Y') THEN
447: okc_debug.log('3000: Leaving ',2);
448: okc_debug.Reset_Indentation;
449: END IF;
450:
451: RETURN(v_retval);
444: --EXECUTE IMMEDIATE func_string into x_function_value;
445:
446: IF (l_debug = 'Y') THEN
447: okc_debug.log('3000: Leaving ',2);
448: okc_debug.Reset_Indentation;
449: END IF;
450:
451: RETURN(v_retval);
452: END IF;
482:
483: BEGIN
484:
485: IF (l_debug = 'Y') THEN
486: okc_debug.Set_Indentation(l_proc);
487: okc_debug.log('10: Entering ',2);
488: END IF;
489:
490: FOR counter_master_rec IN counter_master_cur LOOP
483: BEGIN
484:
485: IF (l_debug = 'Y') THEN
486: okc_debug.Set_Indentation(l_proc);
487: okc_debug.log('10: Entering ',2);
488: END IF;
489:
490: FOR counter_master_rec IN counter_master_cur LOOP
491: IF counter_master_cur%NOTFOUND THEN
490: FOR counter_master_rec IN counter_master_cur LOOP
491: IF counter_master_cur%NOTFOUND THEN
492:
493: IF (l_debug = 'Y') THEN
494: okc_debug.log('1000: Leaving ',2);
495: okc_debug.Reset_Indentation;
496: END IF;
497:
498:
491: IF counter_master_cur%NOTFOUND THEN
492:
493: IF (l_debug = 'Y') THEN
494: okc_debug.log('1000: Leaving ',2);
495: okc_debug.Reset_Indentation;
496: END IF;
497:
498:
499: RETURN(x_counter_value);
502: END IF;
503: END LOOP;
504:
505: IF (l_debug = 'Y') THEN
506: okc_debug.log('2000: Leaving ',2);
507: okc_debug.Reset_Indentation;
508: END IF;
509:
510:
503: END LOOP;
504:
505: IF (l_debug = 'Y') THEN
506: okc_debug.log('2000: Leaving ',2);
507: okc_debug.Reset_Indentation;
508: END IF;
509:
510:
511: RETURN (x_counter_value);
537:
538: BEGIN
539:
540: IF (l_debug = 'Y') THEN
541: okc_debug.Set_Indentation(l_proc);
542: okc_debug.log('10: Entering ',2);
543: END IF;
544:
545: --FOR counter_rec IN counter_cur LOOP
538: BEGIN
539:
540: IF (l_debug = 'Y') THEN
541: okc_debug.Set_Indentation(l_proc);
542: okc_debug.log('10: Entering ',2);
543: END IF;
544:
545: --FOR counter_rec IN counter_cur LOOP
546: OPEN counter_cur;
547: FETCH counter_cur INTO counter_rec;
548: IF counter_cur%NOTFOUND THEN
549:
550: IF (l_debug = 'Y') THEN
551: okc_debug.log('1000: Leaving ',2);
552: okc_debug.Reset_Indentation;
553: END IF;
554:
555: RETURN(x_counter_value);
548: IF counter_cur%NOTFOUND THEN
549:
550: IF (l_debug = 'Y') THEN
551: okc_debug.log('1000: Leaving ',2);
552: okc_debug.Reset_Indentation;
553: END IF;
554:
555: RETURN(x_counter_value);
556: ELSE
558: END IF;
559: CLOSE counter_cur;
560:
561: IF (l_debug = 'Y') THEN
562: okc_debug.log('2000: Leaving ',2);
563: okc_debug.Reset_Indentation;
564: END IF;
565:
566:
559: CLOSE counter_cur;
560:
561: IF (l_debug = 'Y') THEN
562: okc_debug.log('2000: Leaving ',2);
563: okc_debug.Reset_Indentation;
564: END IF;
565:
566:
567: RETURN (x_counter_value);
596:
597: BEGIN
598:
599: IF (l_debug = 'Y') THEN
600: okc_debug.Set_Indentation(l_proc);
601: okc_debug.log('10: Entering ',2);
602: END IF;
603:
604: IF cnl_cur%ISOPEN THEN
597: BEGIN
598:
599: IF (l_debug = 'Y') THEN
600: okc_debug.Set_Indentation(l_proc);
601: okc_debug.log('10: Entering ',2);
602: END IF;
603:
604: IF cnl_cur%ISOPEN THEN
605: CLOSE cnl_cur;
621: END IF;
622: CLOSE cnl_cur;
623:
624: IF (l_debug = 'Y') THEN
625: okc_debug.log('1000: Leaving ',2);
626: okc_debug.Reset_Indentation;
627: END IF;
628:
629:
622: CLOSE cnl_cur;
623:
624: IF (l_debug = 'Y') THEN
625: okc_debug.log('1000: Leaving ',2);
626: okc_debug.Reset_Indentation;
627: END IF;
628:
629:
630: RETURN(l_string);
648:
649: BEGIN
650:
651: IF (l_debug = 'Y') THEN
652: okc_debug.Set_Indentation(l_proc);
653: okc_debug.log('10: Entering ',2);
654: END IF;
655:
656:
649: BEGIN
650:
651: IF (l_debug = 'Y') THEN
652: okc_debug.Set_Indentation(l_proc);
653: okc_debug.log('10: Entering ',2);
654: END IF;
655:
656:
657: IF coe_cur%ISOPEN THEN
661: FETCH coe_cur INTO coe_rec;
662: IF coe_cur%FOUND THEN
663:
664: IF (l_debug = 'Y') THEN
665: okc_debug.log('1000: Leaving ',2);
666: okc_debug.Reset_Indentation;
667: END IF;
668:
669:
662: IF coe_cur%FOUND THEN
663:
664: IF (l_debug = 'Y') THEN
665: okc_debug.log('1000: Leaving ',2);
666: okc_debug.Reset_Indentation;
667: END IF;
668:
669:
670: RETURN(TRUE);
670: RETURN(TRUE);
671: ELSE
672:
673: IF (l_debug = 'Y') THEN
674: okc_debug.log('2000: Leaving ',2);
675: okc_debug.Reset_Indentation;
676: END IF;
677:
678:
671: ELSE
672:
673: IF (l_debug = 'Y') THEN
674: okc_debug.log('2000: Leaving ',2);
675: okc_debug.Reset_Indentation;
676: END IF;
677:
678:
679: RETURN(FALSE);
680: END IF;
681: CLOSE coe_cur;
682:
683: IF (l_debug = 'Y') THEN
684: okc_debug.log('3000: Leaving ',2);
685: okc_debug.Reset_Indentation;
686: END IF;
687:
688:
681: CLOSE coe_cur;
682:
683: IF (l_debug = 'Y') THEN
684: okc_debug.log('3000: Leaving ',2);
685: okc_debug.Reset_Indentation;
686: END IF;
687:
688:
689: RETURN(FALSE);
758:
759: BEGIN
760:
761: IF (l_debug = 'Y') THEN
762: okc_debug.Set_Indentation(l_proc);
763: okc_debug.log('10: Entering ',2);
764: END IF;
765:
766: x_return_status := OKC_API.G_RET_STS_SUCCESS;
759: BEGIN
760:
761: IF (l_debug = 'Y') THEN
762: okc_debug.Set_Indentation(l_proc);
763: okc_debug.log('10: Entering ',2);
764: END IF;
765:
766: x_return_status := OKC_API.G_RET_STS_SUCCESS;
767: x_status := 'TRUE';
905: END IF;
906: x_return_status := OKC_API.G_RET_STS_SUCCESS;
907:
908: IF (l_debug = 'Y') THEN
909: okc_debug.log('1000: Leaving ',2);
910: okc_debug.Reset_Indentation;
911: END IF;
912:
913: EXCEPTION
906: x_return_status := OKC_API.G_RET_STS_SUCCESS;
907:
908: IF (l_debug = 'Y') THEN
909: okc_debug.log('1000: Leaving ',2);
910: okc_debug.Reset_Indentation;
911: END IF;
912:
913: EXCEPTION
914: WHEN OTHERS THEN
914: WHEN OTHERS THEN
915: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
916:
917: IF (l_debug = 'Y') THEN
918: okc_debug.log('2000: Leaving ',2);
919: okc_debug.Reset_Indentation;
920: END IF;
921:
922: RAISE;
915: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
916:
917: IF (l_debug = 'Y') THEN
918: okc_debug.log('2000: Leaving ',2);
919: okc_debug.Reset_Indentation;
920: END IF;
921:
922: RAISE;
923:
1003:
1004: BEGIN
1005:
1006: IF (l_debug = 'Y') THEN
1007: okc_debug.Set_Indentation(l_proc);
1008: okc_debug.log('10: Entering build outcome ',2);
1009: END IF;
1010:
1011: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1004: BEGIN
1005:
1006: IF (l_debug = 'Y') THEN
1007: okc_debug.Set_Indentation(l_proc);
1008: okc_debug.log('10: Entering build outcome ',2);
1009: END IF;
1010:
1011: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1012: x_sync_outcome_tab := okc_condition_eval_pvt.outcome_tab_type();
1101: l_string := NULL;
1102: sync_index := sync_index+1;
1103: ELSE
1104: IF (l_debug = 'Y') THEN
1105: okc_debug.log('10: outcome: '||oce_rec.pdf_type,2);
1106: END IF;
1107: sync_pdf_type := oce_rec.pdf_type;
1108: l_string := oce_rec.outcome||
1109: '( '||oce_rec.parameter||
1116: oce_rec.default_value))
1117: ||oce_rec.prefix_param;
1118: v_oce_id := oce_rec.oce_id;
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.log('10: l_string: '||l_string,2);
1121: END IF;
1122: -- if any of the parameter values are missing
1123: -- then raise exception
1124: no_param := instr(l_string,'OKC_API',1,1);
1200:
1201: --Bug 3448425
1202: l_attr_value:=NVL(l_value,NVL(get_attribute_value( l_element_name,p_msg_tab),oce_rec.default_value));
1203: IF (l_debug = 'Y') THEN
1204: okc_debug.log('10: l_attr_value: '||l_attr_value,2);
1205: END IF;
1206: l_string := l_string||
1207: ' , '||
1208: oce_rec.parameter||
1216: no_param := instr(l_string,'OKC_API',1,1);
1217:
1218: --Bug 3448425 IF no_param <> 0 AND
1219: IF (l_debug = 'Y') THEN
1220: okc_debug.log('1000: Build Outcome: '||l_attr_value,2);
1221: END IF;
1222: IF l_attr_value like 'OKC_API.G_MISS%' AND
1223: oce_rec.required_yn = 'Y' THEN
1224: l_string := null;
1290: END LOOP;
1291: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1292:
1293: IF (l_debug = 'Y') THEN
1294: okc_debug.log('1000: Leaving Build outcome ',2);
1295: okc_debug.Reset_Indentation;
1296: END IF;
1297:
1298: EXCEPTION
1291: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1292:
1293: IF (l_debug = 'Y') THEN
1294: okc_debug.log('1000: Leaving Build outcome ',2);
1295: okc_debug.Reset_Indentation;
1296: END IF;
1297:
1298: EXCEPTION
1299: WHEN OTHERS THEN
1299: WHEN OTHERS THEN
1300: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1301:
1302: IF (l_debug = 'Y') THEN
1303: okc_debug.log('2000: Leaving Build Outcome with error: '||sqlerrm,2);
1304: okc_debug.Reset_Indentation;
1305: END IF;
1306:
1307: RAISE;
1300: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1301:
1302: IF (l_debug = 'Y') THEN
1303: okc_debug.log('2000: Leaving Build Outcome with error: '||sqlerrm,2);
1304: okc_debug.Reset_Indentation;
1305: END IF;
1306:
1307: RAISE;
1308: END build_outcome;
1390:
1391: BEGIN
1392:
1393: IF (l_debug = 'Y') THEN
1394: okc_debug.Set_Indentation(l_proc);
1395: okc_debug.log('10: Entering build date outcome ',2);
1396: END IF;
1397: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1398: --x_sync_outcome_tab := okc_condition_eval_pvt.outcome_tab_type();
1391: BEGIN
1392:
1393: IF (l_debug = 'Y') THEN
1394: okc_debug.Set_Indentation(l_proc);
1395: okc_debug.log('10: Entering build date outcome ',2);
1396: END IF;
1397: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1398: --x_sync_outcome_tab := okc_condition_eval_pvt.outcome_tab_type();
1399: l_msg_tab := okc_aq_pvt.msg_tab_typ();
1555: END LOOP;
1556: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1557:
1558: IF (l_debug = 'Y') THEN
1559: okc_debug.log('1000: Leaving Build date outcome ',2);
1560: okc_debug.Reset_Indentation;
1561: END IF;
1562:
1563: EXCEPTION
1556: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1557:
1558: IF (l_debug = 'Y') THEN
1559: okc_debug.log('1000: Leaving Build date outcome ',2);
1560: okc_debug.Reset_Indentation;
1561: END IF;
1562:
1563: EXCEPTION
1564: WHEN OTHERS THEN
1564: WHEN OTHERS THEN
1565: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1566:
1567: IF (l_debug = 'Y') THEN
1568: okc_debug.log('2000: Leaving Build Date Outcome with error: '||sqlerrm,2);
1569: okc_debug.Reset_Indentation;
1570: END IF;
1571:
1572: RAISE;
1565: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1566:
1567: IF (l_debug = 'Y') THEN
1568: okc_debug.log('2000: Leaving Build Date Outcome with error: '||sqlerrm,2);
1569: okc_debug.Reset_Indentation;
1570: END IF;
1571:
1572: RAISE;
1573: END build_date_outcome;
1613:
1614: BEGIN
1615:
1616: IF (l_debug = 'Y') THEN
1617: okc_debug.Set_Indentation(l_proc);
1618: okc_debug.log('10: Entering ',2);
1619: END IF;
1620:
1621: FOR i IN 1..p_cnh_tab.COUNT LOOP
1614: BEGIN
1615:
1616: IF (l_debug = 'Y') THEN
1617: okc_debug.Set_Indentation(l_proc);
1618: okc_debug.log('10: Entering ',2);
1619: END IF;
1620:
1621: FOR i IN 1..p_cnh_tab.COUNT LOOP
1622: l_coev_tbl(l_count).cnh_id := p_cnh_tab(i).v_id;
1711: x_coev_tbl := v_coev_tbl;
1712: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1713:
1714: IF (l_debug = 'Y') THEN
1715: okc_debug.log('1000: Leaving ',2);
1716: okc_debug.Reset_Indentation;
1717: END IF;
1718:
1719: EXCEPTION
1712: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1713:
1714: IF (l_debug = 'Y') THEN
1715: okc_debug.log('1000: Leaving ',2);
1716: okc_debug.Reset_Indentation;
1717: END IF;
1718:
1719: EXCEPTION
1720: WHEN OTHERS THEN
1720: WHEN OTHERS THEN
1721: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1722:
1723: IF (l_debug = 'Y') THEN
1724: okc_debug.log('2000: Leaving ',2);
1725: okc_debug.Reset_Indentation;
1726: END IF;
1727:
1728: RAISE;
1721: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1722:
1723: IF (l_debug = 'Y') THEN
1724: okc_debug.log('2000: Leaving ',2);
1725: okc_debug.Reset_Indentation;
1726: END IF;
1727:
1728: RAISE;
1729: END create_condition_occurrence;
1769:
1770: BEGIN
1771:
1772: IF (l_debug = 'Y') THEN
1773: okc_debug.Set_Indentation(l_proc);
1774: okc_debug.log('10: Entering ',2);
1775: END IF;
1776:
1777:
1770: BEGIN
1771:
1772: IF (l_debug = 'Y') THEN
1773: okc_debug.Set_Indentation(l_proc);
1774: okc_debug.log('10: Entering ',2);
1775: END IF;
1776:
1777:
1778: FOR outer_loop IN 1..p_coev_tab.count LOOP
1853: END IF;
1854: -- bug 1757364 end.
1855:
1856: IF (l_debug = 'Y') THEN
1857: okc_debug.log('1000: Leaving ',2);
1858: okc_debug.Reset_Indentation;
1859: END IF;
1860:
1861: EXCEPTION
1854: -- bug 1757364 end.
1855:
1856: IF (l_debug = 'Y') THEN
1857: okc_debug.log('1000: Leaving ',2);
1858: okc_debug.Reset_Indentation;
1859: END IF;
1860:
1861: EXCEPTION
1862: WHEN OTHERS THEN
1862: WHEN OTHERS THEN
1863: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1864:
1865: IF (l_debug = 'Y') THEN
1866: okc_debug.log('2000: Leaving ',2);
1867: okc_debug.Reset_Indentation;
1868: END IF;
1869:
1870: RAISE;
1863: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1864:
1865: IF (l_debug = 'Y') THEN
1866: okc_debug.log('2000: Leaving ',2);
1867: okc_debug.Reset_Indentation;
1868: END IF;
1869:
1870: RAISE;
1871: END create_action_att_values;
1895: l_cnh_tab := okc_condition_eval_pvt.id_tab_type();
1896: x_sync_outcome_tab := okc_condition_eval_pvt.outcome_tab_type();
1897:
1898: IF (l_debug = 'Y') THEN
1899: okc_debug.Set_Indentation(l_proc);
1900: okc_debug.log('10: Entering evaluate_plan_condition',2);
1901: END IF;
1902:
1903: l_return_status := OKC_API.START_ACTIVITY
1896: x_sync_outcome_tab := okc_condition_eval_pvt.outcome_tab_type();
1897:
1898: IF (l_debug = 'Y') THEN
1899: okc_debug.Set_Indentation(l_proc);
1900: okc_debug.log('10: Entering evaluate_plan_condition',2);
1901: END IF;
1902:
1903: l_return_status := OKC_API.START_ACTIVITY
1904: (l_api_name
1938: l_cnh_tab.extend;
1939: l_cnh_tab(1).v_id:=p_cnh_id;
1940:
1941: IF (l_debug = 'Y') THEN
1942: okc_debug.log('10: before Build Outcome ',2);
1943: END IF;
1944: -- for the condition get the table of outcomes
1945: build_outcome( l_cnh_tab
1946: ,p_msg_tab
1950: ,x_msg_data
1951: ,x_sync_outcome_tab
1952: );
1953: IF (l_debug = 'Y') THEN
1954: okc_debug.log('10: after Build Outcome ',2);
1955: END IF;
1956: IF NVL(x_return_status,'X') <> OKC_API.G_RET_STS_SUCCESS THEN
1957: OKC_API.SET_MESSAGE(
1958: p_app_name => g_app_name
1968:
1969: OKC_API.END_ACTIVITY( x_msg_count,x_msg_data);
1970:
1971: IF (l_debug = 'Y') THEN
1972: okc_debug.log('1000: Leaving evaluate_plan_condition ',2);
1973: okc_debug.Reset_Indentation;
1974: END IF;
1975:
1976: EXCEPTION
1969: OKC_API.END_ACTIVITY( x_msg_count,x_msg_data);
1970:
1971: IF (l_debug = 'Y') THEN
1972: okc_debug.log('1000: Leaving evaluate_plan_condition ',2);
1973: okc_debug.Reset_Indentation;
1974: END IF;
1975:
1976: EXCEPTION
1977:
1976: EXCEPTION
1977:
1978: WHEN OTHERS THEN
1979: IF (l_debug = 'Y') THEN
1980: okc_debug.log('10: error in evaluate_plan_conditionl: '||sqlerrm,2);
1981: END IF;
1982: IF x_sync_outcome_tab.count <> 0 THEN
1983: x_sync_outcome_tab.delete;
1984: END IF;
1990: x_msg_data,
1991: '_PVT');
1992:
1993: IF (l_debug = 'Y') THEN
1994: okc_debug.log('2000: Leaving ',2);
1995: okc_debug.Reset_Indentation;
1996: END IF;
1997:
1998:
1991: '_PVT');
1992:
1993: IF (l_debug = 'Y') THEN
1994: okc_debug.log('2000: Leaving ',2);
1995: okc_debug.Reset_Indentation;
1996: END IF;
1997:
1998:
1999: END evaluate_plan_condition;
2046:
2047: BEGIN
2048:
2049: IF (l_debug = 'Y') THEN
2050: okc_debug.Set_Indentation(l_proc);
2051: okc_debug.log('10: Entering ',2);
2052: END IF;
2053:
2054: l_return_status := OKC_API.START_ACTIVITY
2047: BEGIN
2048:
2049: IF (l_debug = 'Y') THEN
2050: okc_debug.Set_Indentation(l_proc);
2051: okc_debug.log('10: Entering ',2);
2052: END IF;
2053:
2054: l_return_status := OKC_API.START_ACTIVITY
2055: (l_api_name
2191: OKC_API.END_ACTIVITY( x_msg_count,
2192: x_msg_data);
2193:
2194: IF (l_debug = 'Y') THEN
2195: okc_debug.log('1000: Leaving ',2);
2196: okc_debug.Reset_Indentation;
2197: END IF;
2198:
2199: EXCEPTION
2192: x_msg_data);
2193:
2194: IF (l_debug = 'Y') THEN
2195: okc_debug.log('1000: Leaving ',2);
2196: okc_debug.Reset_Indentation;
2197: END IF;
2198:
2199: EXCEPTION
2200:
2210: x_msg_data,
2211: '_PVT');
2212:
2213: IF (l_debug = 'Y') THEN
2214: okc_debug.log('2000: Leaving ',2);
2215: okc_debug.Reset_Indentation;
2216: END IF;
2217:
2218:
2211: '_PVT');
2212:
2213: IF (l_debug = 'Y') THEN
2214: okc_debug.log('2000: Leaving ',2);
2215: okc_debug.Reset_Indentation;
2216: END IF;
2217:
2218:
2219: END evaluate_condition;
2275:
2276: BEGIN
2277:
2278: IF (l_debug = 'Y') THEN
2279: okc_debug.Set_Indentation(l_proc);
2280: okc_debug.log('10: Entering ',2);
2281: END IF;
2282:
2283: l_return_status := OKC_API.START_ACTIVITY
2276: BEGIN
2277:
2278: IF (l_debug = 'Y') THEN
2279: okc_debug.Set_Indentation(l_proc);
2280: okc_debug.log('10: Entering ',2);
2281: END IF;
2282:
2283: l_return_status := OKC_API.START_ACTIVITY
2284: (l_api_name
2467: OKC_API.END_ACTIVITY( x_msg_count,
2468: x_msg_data);
2469:
2470: IF (l_debug = 'Y') THEN
2471: okc_debug.log('1000: Leaving ',2);
2472: okc_debug.Reset_Indentation;
2473: END IF;
2474:
2475: EXCEPTION
2468: x_msg_data);
2469:
2470: IF (l_debug = 'Y') THEN
2471: okc_debug.log('1000: Leaving ',2);
2472: okc_debug.Reset_Indentation;
2473: END IF;
2474:
2475: EXCEPTION
2476:
2483: x_msg_data,
2484: '_PVT');
2485:
2486: IF (l_debug = 'Y') THEN
2487: okc_debug.log('2000: Leaving ',2);
2488: okc_debug.Reset_Indentation;
2489: END IF;
2490:
2491: END evaluate_condition;
2484: '_PVT');
2485:
2486: IF (l_debug = 'Y') THEN
2487: okc_debug.log('2000: Leaving ',2);
2488: okc_debug.Reset_Indentation;
2489: END IF;
2490:
2491: END evaluate_condition;
2492:
2534:
2535: BEGIN
2536:
2537: IF (l_debug = 'Y') THEN
2538: okc_debug.Set_Indentation(l_proc);
2539: okc_debug.log('10: Entering ',2);
2540: END IF;
2541:
2542: l_return_status := OKC_API.START_ACTIVITY
2535: BEGIN
2536:
2537: IF (l_debug = 'Y') THEN
2538: okc_debug.Set_Indentation(l_proc);
2539: okc_debug.log('10: Entering ',2);
2540: END IF;
2541:
2542: l_return_status := OKC_API.START_ACTIVITY
2543: (l_api_name
2664: OKC_API.END_ACTIVITY( x_msg_count,
2665: x_msg_data);
2666:
2667: IF (l_debug = 'Y') THEN
2668: okc_debug.log('1000: Leaving ',2);
2669: okc_debug.Reset_Indentation;
2670: END IF;
2671:
2672: EXCEPTION
2665: x_msg_data);
2666:
2667: IF (l_debug = 'Y') THEN
2668: okc_debug.log('1000: Leaving ',2);
2669: okc_debug.Reset_Indentation;
2670: END IF;
2671:
2672: EXCEPTION
2673:
2680: x_msg_data,
2681: '_PVT');
2682:
2683: IF (l_debug = 'Y') THEN
2684: okc_debug.log('2000: Leaving ',2);
2685: okc_debug.Reset_Indentation;
2686: END IF;
2687:
2688: END evaluate_date_condition;
2681: '_PVT');
2682:
2683: IF (l_debug = 'Y') THEN
2684: okc_debug.log('2000: Leaving ',2);
2685: okc_debug.Reset_Indentation;
2686: END IF;
2687:
2688: END evaluate_date_condition;
2689: