[Home] [Help]
210: ' AND exception'||col_num||' = 1';
211:
212: execute immediate stmt INTO excp_count using p_session_id;
213: IF PG_DEBUG in ('Y', 'C') THEN
214: msc_sch_wb.atp_debug('get_excp_count: ' || ' Exception'||col_num||' count '||excp_count);
215: END IF;
216:
217: RETURN excp_count;
218: EXCEPTION
280: -- 18. Line 100
281: -- 19. Substitute 110
282: -- 20,
283: FOR j IN 1..owb_tree.LOOKUPS_COUNT LOOP
284: msc_sch_wb.atp_debug(' lookups '||j||' '||owb_tree.lookups(j));
285: END LOOP;
286:
287: END IF;
288:
288:
289: EXCEPTION
290: WHEN OTHERS THEN
291: IF PG_DEBUG in ('Y', 'C') THEN
292: msc_sch_wb.atp_debug('Excp in get_lookups '||Substr(Sqlerrm, 1,100));
293: END IF;
294: END get_lookups;
295:
296: PROCEDURE get_Sourcing_Nodes(p_end_pegging_id NUMBER,
306:
307:
308: IF NOT p_checkbox THEN
309: IF PG_DEBUG in ('Y', 'C') THEN
310: msc_sch_wb.atp_debug('get_Sourcing_Nodes: ' || ' Checkbox is False, so calling regular tree');
311: END IF;
312: IF p_current_node_data IS NULL THEN
313: -- There is no ref node, and we have to populate the first levels
314: -- When initializing we only need the first level rows with no expansion
312: IF p_current_node_data IS NULL THEN
313: -- There is no ref node, and we have to populate the first levels
314: -- When initializing we only need the first level rows with no expansion
315: IF PG_DEBUG in ('Y', 'C') THEN
316: msc_sch_wb.atp_debug('get_Sourcing_Nodes: ' || ' p_current_node_data IS NULL ');
317: END IF;
318: get_next_level_nodes(p_end_pegging_id, p_session_id,
319: p_nodes, next_level, NULL);
320: ELSE
319: p_nodes, next_level, NULL);
320: ELSE
321: IF p_expand_level = NEXT_LEVEL THEN
322: IF PG_DEBUG in ('Y', 'C') THEN
323: msc_sch_wb.atp_debug('get_Sourcing_Nodes: ' || p_end_pegging_id||' '||p_current_node_data);
324: END IF;
325:
326: get_next_level_nodes(p_end_pegging_id, p_session_id,
327: p_nodes, NEXT_LEVEL, p_current_node_data);
342: END IF; */
343: -- ATP PEgging
344: ELSE
345: IF PG_DEBUG in ('Y', 'C') THEN
346: msc_sch_wb.atp_debug('get_Sourcing_Nodes: ' || ' Calling only get_supply_only_nodes ' );
347: END IF;
348: IF p_current_node_data IS NULL THEN
349: -- There is no ref node, and we have to populate the first levels
350: -- When initializing we only need the first level rows with no expansion
348: IF p_current_node_data IS NULL THEN
349: -- There is no ref node, and we have to populate the first levels
350: -- When initializing we only need the first level rows with no expansion
351: IF PG_DEBUG in ('Y', 'C') THEN
352: msc_sch_wb.atp_debug('get_Sourcing_Nodes: ' || ' p_current_node_data IS NULL ');
353: END IF;
354: get_supply_only_nodes(p_end_pegging_id, p_session_id,
355: p_nodes, next_level, NULL);
356: ELSE
355: p_nodes, next_level, NULL);
356: ELSE
357: IF p_expand_level = NEXT_LEVEL THEN
358: IF PG_DEBUG in ('Y', 'C') THEN
359: msc_sch_wb.atp_debug('get_Sourcing_Nodes: ' || p_end_pegging_id||' '||p_current_node_data);
360: END IF;
361: -- ATP Pegging
362: get_supply_only_nodes(p_end_pegging_id, p_session_id,
363: p_nodes, NEXT_LEVEL, p_current_node_data);
385: END IF;
386: EXCEPTION
387: WHEN OTHERS THEN
388: IF PG_DEBUG in ('Y', 'C') THEN
389: msc_sch_wb.atp_debug('Excp in get_sourcing_nodes '||Substr(Sqlerrm, 1,100));
390: END IF;
391: END get_sourcing_nodes;
392:
393: FUNCTION get_cust_hier_string
467: IS
468: counter NUMBER;
469: BEGIN
470: IF PG_DEBUG in ('Y', 'C') THEN
471: msc_sch_wb.atp_debug('get_next_level_nodes: ' || 'Cholpon check of p_expand_level' || p_expand_level);
472: END IF;
473: SELECT
474: Decode(inventory_item_name, NULL,
475: Decode(department_code, NULL,leaf_node,
563: = Decode(p_expand_level, NEXT_LEVEL, Nvl(parent_pegging_id, -1), ALL_LEVELS, 1,CONSTRAINT_LEVEL,2)
564: ORDER BY pegging_id;
565:
566: IF PG_DEBUG in ('Y', 'C') THEN
567: msc_sch_wb.atp_debug(' get_next_level_nodes EPI '||p_end_pegging_id||' exp '||p_expand_level||' PId '||p_current_pegging_id);
568: END IF;
569:
570: /* for j in 1..p_nodes.state.count loop
571: IF PG_DEBUG in ('Y', 'C') THEN
568: END IF;
569:
570: /* for j in 1..p_nodes.state.count loop
571: IF PG_DEBUG in ('Y', 'C') THEN
572: msc_sch_wb.atp_debug('get_next_level_nodes: ' || ' s '||p_nodes.state(j) ||' d '||p_nodes.depth(j)||' l '||p_nodes.label(j)||' i '||p_nodes.icon(j)||' d '||p_nodes.data(j));
573: END IF; end loop;
574: */
575:
576: EXCEPTION
575:
576: EXCEPTION
577: WHEN OTHERS THEN
578: IF PG_DEBUG in ('Y', 'C') THEN
579: msc_sch_wb.atp_debug(' Exception in get_next_level_nodes '||Substr(Sqlerrm, 1, 100));
580: END IF;
581: END get_next_level_nodes;
582:
583: PROCEDURE get_supply_only_nodes (p_end_pegging_id NUMBER,
588: IS
589: counter NUMBER;
590: BEGIN
591: IF PG_DEBUG in ('Y', 'C') THEN
592: msc_sch_wb.atp_debug('get_supply_only_nodes: ' || 'Cholpon check ' || owb_tree.lookups(21));
593: END IF;
594: SELECT
595: Decode(inventory_item_name, NULL,
596: Decode(department_code, NULL,leaf_node,
686: ORDER BY pegging_id;
687:
688:
689: IF PG_DEBUG in ('Y', 'C') THEN
690: msc_sch_wb.atp_debug('get_supply_only_nodes: ' || ' get_next_level_nodes EPI '||p_end_pegging_id||' exp '||p_expand_level||' PId '||p_current_pegging_id);
691: END IF;
692:
693: /* for j in 1..p_nodes.state.count loop
694: IF PG_DEBUG in ('Y', 'C') THEN
691: END IF;
692:
693: /* for j in 1..p_nodes.state.count loop
694: IF PG_DEBUG in ('Y', 'C') THEN
695: msc_sch_wb.atp_debug('get_supply_only_nodes: ' || ' s '||p_nodes.state(j) ||' d '||p_nodes.depth(j)||' l '||p_nodes.label(j)||' i '||p_nodes.icon(j)||' d '||p_nodes.data(j));
696: END IF; end loop
697: ;
698: */
699:
700:
701: EXCEPTION
702: WHEN OTHERS THEN
703: IF PG_DEBUG in ('Y', 'C') THEN
704: msc_sch_wb.atp_debug('get_supply_only_nodes: ' || ' Exception in get_next_level_nodes '||Substr(Sqlerrm, 1, 100));
705: END IF;
706: END get_supply_only_nodes;
707:
708: