[Home] [Help]
10: g_line_location_ids po_tbl_number;
11: g_distribution_ids po_tbl_number;
12: g_qtys po_tbl_number;
13: g_promise_dates po_tbl_date;
14: g_uoms po_tbl_varchar30;
15: g_operating_units po_tbl_number;
16: g_current_rec NUMBER := 1;
17: g_current_org_id NUMBER := NULL;
18:
64: debug_message(p_msg || p_tbl(i));
65: END LOOP;
66: END debug_date_tbl;
67:
68: PROCEDURE debug_varchar30_tbl( p_msg IN VARCHAR2, p_tbl IN po_tbl_varchar30 ) IS
69: i NUMBER;
70: BEGIN
71: debug_message(p_msg || ' number of changes: ' || p_tbl.COUNT() );
72: FOR i IN 1..p_tbl.COUNT() LOOP
260: g_line_location_ids := po_tbl_number();
261: g_distribution_ids := po_tbl_number();
262: g_qtys := po_tbl_number();
263: g_promise_dates := po_tbl_date();
264: g_uoms := po_tbl_varchar30();
265: g_operating_units := po_tbl_number();
266:
267: IF( l_dblink IS NOT NULL ) THEN
268: debug_message('Get data from dblink ' || l_dblink);
386: x_line_location_ids OUT nocopy po_tbl_number,
387: x_distribution_ids OUT nocopy po_tbl_number,
388: x_qtys OUT nocopy po_tbl_number,
389: x_promise_dates OUT nocopy po_tbl_date,
390: x_uoms OUT nocopy po_tbl_varchar30
391: ) RETURN BOOLEAN IS
392: /*
393: CURSOR c_po_header (p_po_number VARCHAR2) IS
394: select po_header_id
438: x_line_location_ids := po_tbl_number();
439: x_distribution_ids := po_tbl_number();
440: x_qtys := po_tbl_number();
441: x_promise_dates := po_tbl_date();
442: x_uoms := po_tbl_varchar30();
443:
444: IF( g_distribution_ids(l_starting_rec) IS NOT NULL ) THEN
445: l_record_lvl := DISTRIBUTION_LVL;
446: ELSIF( g_line_location_ids(l_starting_rec) IS NOT NULL ) THEN
623: l_line_location_ids po_tbl_number;
624: l_distribution_ids po_tbl_number;
625: l_qtys po_tbl_number;
626: l_promise_dates po_tbl_date;
627: l_uoms po_tbl_varchar30;
628:
629: l_po_line_changes po_lines_rec_type;
630: l_shipment_changes PO_SHIPMENTS_REC_TYPE;
631: l_distribution_changes PO_DISTRIBUTIONS_REC_TYPE;