[Home] [Help]
1: PACKAGE BODY rcv_default_pkg AS
2: /* $Header: RCVDFLTB.pls 120.58 2012/02/17 13:59:58 ksivasa ship $*/
3: g_debug_flag CONSTANT VARCHAR2(1) := asn_debug.is_debug_on; -- Bug 9152790
4: /* the following marker variables indicate the possibility that the defaulted
5: code does not match the ID's derived from the backing docs */
6: g_rhi_ou_mkr BOOLEAN;
7: g_rhi_cust_party_name_mkr BOOLEAN;
110: PROCEDURE test_is_null(
111: p_value IN VARCHAR2, p_column IN VARCHAR2) IS
112: BEGIN
113: IF (p_value IS NULL) THEN
114: asn_debug.put_line('fail assert test_is_null for column ' || p_column);
115: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL');
116: rcv_error_pkg.set_token('COLUMN', p_column);
117: rcv_error_pkg.log_interface_error(p_column);
118: END IF;
121: PROCEDURE test_is_null(
122: p_value IN NUMBER, p_column IN VARCHAR2) IS
123: BEGIN
124: IF (p_value IS NULL) THEN
125: asn_debug.put_line('fail assert test_is_null for column ' || p_column);
126: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL');
127: rcv_error_pkg.set_token('COLUMN', p_column);
128: rcv_error_pkg.log_interface_error(p_column);
129: END IF;
132: PROCEDURE test_is_null(
133: p_value IN DATE, p_column IN VARCHAR2) IS
134: BEGIN
135: IF (p_value IS NULL) THEN
136: asn_debug.put_line('fail assert test_is_null for column ' || p_column);
137: rcv_error_pkg.set_error_message('PO_PDOI_COLUMN_NOT_NULL');
138: rcv_error_pkg.set_token('COLUMN', p_column);
139: rcv_error_pkg.log_interface_error(p_column);
140: END IF;
227: BEGIN
228: x_new_time := DBMS_UTILITY.get_time;
229:
230: IF (g_debug_flag = 'Y') THEN
231: asn_debug.put_line('Elapsed Time:' || LPAD(x_new_time - NVL(g_previous_time, x_new_time),
232: 8,
233: ' '
234: ) || ',Absolute Time:' || LPAD(x_new_time,
235: 14,
1390: 'PAYMENT_TERMS_ID'
1391: );
1392: END IF;
1393: -- Bug 6434823, Bug 6603681, Bug 7651399
1394: asn_debug.put_line('checking for rhi vendor fields');
1395: If (rhi.receipt_source_code = 'VENDOR' and rhi.vendor_id IS NULL AND rhi.vendor_name IS NULL AND rhi.vendor_num IS NULL) Then
1396: rcv_error_pkg.set_error_message('RCV_VENDOR_ALL_NULL');
1397: rcv_error_pkg.log_interface_error('RCV_HEADERS_INTERFACE',
1398: 'VENDOR_ID',
6198: rti IN OUT NOCOPY rcv_transactions_interface%ROWTYPE
6199: ) IS
6200: pol po_lines_all%ROWTYPE;
6201: BEGIN
6202: asn_debug.put_line('Enter default_rti_from_pol');
6203: IF (rti.po_line_id IS NOT NULL) THEN
6204: pol := rcv_table_functions.get_pol_row_from_id(rti.po_line_id);
6205: END IF;
6206: asn_debug.put_line('Afte get_pol_row_from_id');
6202: asn_debug.put_line('Enter default_rti_from_pol');
6203: IF (rti.po_line_id IS NOT NULL) THEN
6204: pol := rcv_table_functions.get_pol_row_from_id(rti.po_line_id);
6205: END IF;
6206: asn_debug.put_line('Afte get_pol_row_from_id');
6207:
6208: IF (pol.po_line_id IS NULL) THEN
6209: asn_debug.put_line('pol.po_line_id is: '||pol.po_line_id);
6210: RETURN;
6205: END IF;
6206: asn_debug.put_line('Afte get_pol_row_from_id');
6207:
6208: IF (pol.po_line_id IS NULL) THEN
6209: asn_debug.put_line('pol.po_line_id is: '||pol.po_line_id);
6210: RETURN;
6211: END IF;
6212:
6213: IF (rti.document_line_num IS NULL) THEN
6290: 'PO_HEADER_ID'
6291: );
6292: END IF;
6293:
6294: asn_debug.put_line('Before po_line_id');
6295: IF (rti.po_line_id IS NULL) THEN
6296: rti.po_line_id := pol.po_line_id;
6297: ELSIF(rti.po_line_id <> pol.po_line_id) THEN
6298: invalid_match_value(rti.po_line_id,
6444: rti.secondary_quantity := pol.secondary_quantity;
6445: END IF;
6446: END IF;
6447: */
6448: asn_debug.put_line('Leave default_rti_from_pol');
6449: END default_rti_from_pol;
6450:
6451: PROCEDURE default_rti_from_poh(
6452: rti IN OUT NOCOPY rcv_transactions_interface%ROWTYPE
7137: no need to populate the lot and serial control code. This case is
7138: taken care by the help of follwoing if condition.
7139: */
7140: IF (rti.item_id IS NOT NULL) THEN
7141: asn_debug.put_line ('Defaulting use_mtl_lot and use_mtl_serial');
7142: SELECT lot_control_code,
7143: serial_number_control_code
7144: INTO rti.use_mtl_lot,
7145: rti.use_mtl_serial
7148: AND mtl_system_items.organization_id = rti.to_organization_id;
7149: END IF;
7150: EXCEPTION
7151: WHEN OTHERS THEN
7152: asn_debug.put_line ('Unable to default use_mtl_lot and use_mtl_serial');
7153: NULL;
7154: END default_lot_serial_control;
7155:
7156: PROCEDURE default_header(
7197: x_temp_primary_uom rcv_transactions_interface.primary_unit_of_measure%TYPE;
7198: x_subinv_starts_null BOOLEAN;
7199: BEGIN
7200: elapsed_time('BEGIN default_transaction');
7201: asn_debug.put_line('rti.interface_transaction_id = ' || rti.interface_transaction_id);
7202: g_curr_table := 'RCV_HEADERS_INTERFACE';
7203: g_curr_group_id := rti.GROUP_ID;
7204: g_curr_header_id := rti.header_interface_id;
7205: g_curr_transaction_id := rti.interface_transaction_id;
7700: given inventory org.
7701: */
7702: default_lot_serial_control(rti);
7703:
7704: asn_debug.put_line('org_id = ' || rti.org_id);
7705: elapsed_time('END default_transaction');
7706: EXCEPTION
7707: WHEN rcv_table_functions.e_fatal_error THEN
7708: /* Bug 5584736.