[Home] [Help]
9: g_po_line_ids po_tbl_number;
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;
55: debug_message(p_msg || p_tbl(i));
56: END LOOP;
57: END debug_number_tbl;
58:
59: PROCEDURE debug_date_tbl( p_msg IN VARCHAR2, p_tbl IN po_tbl_date ) IS
60: i NUMBER;
61: BEGIN
62: debug_message(p_msg || ' number of changes: ' || p_tbl.COUNT() );
63: FOR i IN 1..p_tbl.COUNT() LOOP
259: g_po_header_ids := po_tbl_number();
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
385: x_po_line_ids OUT nocopy po_tbl_number,
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
437: x_po_line_ids := po_tbl_number();
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;
622: l_po_line_ids po_tbl_number;
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;