[Home] [Help]
15: g_line_location_ids po_tbl_number;
16: g_distribution_ids po_tbl_number;
17: g_qtys po_tbl_number;
18: g_promise_dates po_tbl_date;
19: g_uoms po_tbl_varchar30;
20: g_operating_units po_tbl_number;
21: g_current_rec NUMBER := 1;
22: g_current_org_id NUMBER := NULL;
23:
71: debug_message(p_msg || p_tbl(i));
72: END LOOP;
73: END debug_date_tbl;
74:
75: PROCEDURE debug_varchar30_tbl( p_msg IN VARCHAR2, p_tbl IN po_tbl_varchar30 ) IS
76: i NUMBER;
77: BEGIN
78: debug_message(p_msg || ' number of changes: ' || p_tbl.COUNT() );
79: FOR i IN 1..p_tbl.COUNT() LOOP
269: g_line_location_ids := po_tbl_number();
270: g_distribution_ids := po_tbl_number();
271: g_qtys := po_tbl_number();
272: g_promise_dates := po_tbl_date();
273: g_uoms := po_tbl_varchar30();
274: g_operating_units := po_tbl_number();
275:
276: IF( l_dblink IS NOT NULL ) THEN
277: debug_message('Get data from dblink ' || l_dblink);
396: x_line_location_ids OUT nocopy po_tbl_number,
397: x_distribution_ids OUT nocopy po_tbl_number,
398: x_qtys OUT nocopy po_tbl_number,
399: x_promise_dates OUT nocopy po_tbl_date,
400: x_uoms OUT nocopy po_tbl_varchar30
401: ) RETURN BOOLEAN IS
402: /*
403: CURSOR c_po_header (p_po_number VARCHAR2) IS
404: select po_header_id
448: x_line_location_ids := po_tbl_number();
449: x_distribution_ids := po_tbl_number();
450: x_qtys := po_tbl_number();
451: x_promise_dates := po_tbl_date();
452: x_uoms := po_tbl_varchar30();
453:
454: IF( g_distribution_ids(l_starting_rec) IS NOT NULL ) THEN
455: l_record_lvl := DISTRIBUTION_LVL;
456: ELSIF( g_line_location_ids(l_starting_rec) IS NOT NULL ) THEN
824: l_line_location_ids po_tbl_number;
825: l_distribution_ids po_tbl_number;
826: l_qtys po_tbl_number;
827: l_promise_dates po_tbl_date;
828: l_uoms po_tbl_varchar30;
829:
830: l_po_line_changes po_lines_rec_type;
831: l_shipment_changes PO_SHIPMENTS_REC_TYPE;
832: l_distribution_changes PO_DISTRIBUTIONS_REC_TYPE;