[Home] [Help]
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',
6164: rti IN OUT NOCOPY rcv_transactions_interface%ROWTYPE
6165: ) IS
6166: pol po_lines_all%ROWTYPE;
6167: BEGIN
6168: asn_debug.put_line('Enter default_rti_from_pol');
6169: IF (rti.po_line_id IS NOT NULL) THEN
6170: pol := rcv_table_functions.get_pol_row_from_id(rti.po_line_id);
6171: END IF;
6172: asn_debug.put_line('Afte get_pol_row_from_id');
6168: asn_debug.put_line('Enter default_rti_from_pol');
6169: IF (rti.po_line_id IS NOT NULL) THEN
6170: pol := rcv_table_functions.get_pol_row_from_id(rti.po_line_id);
6171: END IF;
6172: asn_debug.put_line('Afte get_pol_row_from_id');
6173:
6174: IF (pol.po_line_id IS NULL) THEN
6175: asn_debug.put_line('pol.po_line_id is: '||pol.po_line_id);
6176: RETURN;
6171: END IF;
6172: asn_debug.put_line('Afte get_pol_row_from_id');
6173:
6174: IF (pol.po_line_id IS NULL) THEN
6175: asn_debug.put_line('pol.po_line_id is: '||pol.po_line_id);
6176: RETURN;
6177: END IF;
6178:
6179: IF (rti.document_line_num IS NULL) THEN
6256: 'PO_HEADER_ID'
6257: );
6258: END IF;
6259:
6260: asn_debug.put_line('Before po_line_id');
6261: IF (rti.po_line_id IS NULL) THEN
6262: rti.po_line_id := pol.po_line_id;
6263: ELSIF(rti.po_line_id <> pol.po_line_id) THEN
6264: invalid_match_value(rti.po_line_id,
6410: rti.secondary_quantity := pol.secondary_quantity;
6411: END IF;
6412: END IF;
6413: */
6414: asn_debug.put_line('Leave default_rti_from_pol');
6415: END default_rti_from_pol;
6416:
6417: PROCEDURE default_rti_from_poh(
6418: rti IN OUT NOCOPY rcv_transactions_interface%ROWTYPE
7099: no need to populate the lot and serial control code. This case is
7100: taken care by the help of follwoing if condition.
7101: */
7102: IF (rti.item_id IS NOT NULL) THEN
7103: asn_debug.put_line ('Defaulting use_mtl_lot and use_mtl_serial');
7104: SELECT lot_control_code,
7105: serial_number_control_code
7106: INTO rti.use_mtl_lot,
7107: rti.use_mtl_serial
7110: AND mtl_system_items.organization_id = rti.to_organization_id;
7111: END IF;
7112: EXCEPTION
7113: WHEN OTHERS THEN
7114: asn_debug.put_line ('Unable to default use_mtl_lot and use_mtl_serial');
7115: NULL;
7116: END default_lot_serial_control;
7117:
7118: PROCEDURE default_header(
7159: x_temp_primary_uom rcv_transactions_interface.primary_unit_of_measure%TYPE;
7160: x_subinv_starts_null BOOLEAN;
7161: BEGIN
7162: elapsed_time('BEGIN default_transaction');
7163: asn_debug.put_line('rti.interface_transaction_id = ' || rti.interface_transaction_id);
7164: g_curr_table := 'RCV_HEADERS_INTERFACE';
7165: g_curr_group_id := rti.GROUP_ID;
7166: g_curr_header_id := rti.header_interface_id;
7167: g_curr_transaction_id := rti.interface_transaction_id;
7653: given inventory org.
7654: */
7655: default_lot_serial_control(rti);
7656:
7657: asn_debug.put_line('org_id = ' || rti.org_id);
7658: elapsed_time('END default_transaction');
7659: EXCEPTION
7660: WHEN rcv_table_functions.e_fatal_error THEN
7661: /* Bug 5584736.