41: END get_base_volume_uom;
42:
43: PROCEDURE Derive_Cost_Factor
44: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
45: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
46: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
47: ) IS
48: BEGIN
49: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
42:
43: PROCEDURE Derive_Cost_Factor
44: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
45: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
46: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
47: ) IS
48: BEGIN
49: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
50: RETURN;
59: END Derive_Cost_Factor;
60:
61: Procedure default_vendor_info
62: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
63: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
64: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
65: ) IS
66: BEGIN
67: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
60:
61: Procedure default_vendor_info
62: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
63: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
64: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
65: ) IS
66: BEGIN
67: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
68: RETURN;
90: END;
91:
92: Procedure default_currency_info
93: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
94: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
95: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
96: ) IS
97: BEGIN
98: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
91:
92: Procedure default_currency_info
93: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
94: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
95: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
96: ) IS
97: BEGIN
98: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
99: RETURN;
116:
117: -- make sure cost factor is defined in cost factor setup.
118: Procedure Validate_cost_factor
119: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
120: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
121: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
122: ) IS
123: BEGIN
124: -- errored out already
117: -- make sure cost factor is defined in cost factor setup.
118: Procedure Validate_cost_factor
119: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
120: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
121: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
122: ) IS
123: BEGIN
124: -- errored out already
125: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
145:
146: -- validate vendor_id and vendor_site_id exist.
147: Procedure Validate_vendor_info
148: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
149: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
150: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
151: ) IS
152: l_vendor_record RCV_SHIPMENT_HEADER_SV.vendorrectype;
153: BEGIN
146: -- validate vendor_id and vendor_site_id exist.
147: Procedure Validate_vendor_info
148: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
149: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
150: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
151: ) IS
152: l_vendor_record RCV_SHIPMENT_HEADER_SV.vendorrectype;
153: BEGIN
154: -- errored out already
198: END Validate_vendor_info;
199:
200: Procedure Validate_vendor_site_info
201: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
202: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
203: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
204: ) IS
205: l_vendor_site_record RCV_SHIPMENT_HEADER_SV.vendorsiterectype;
206: BEGIN
199:
200: Procedure Validate_vendor_site_info
201: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
202: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
203: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
204: ) IS
205: l_vendor_site_record RCV_SHIPMENT_HEADER_SV.vendorsiterectype;
206: BEGIN
207: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
238:
239: -- validate positive amount
240: Procedure Validate_amount
241: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
242: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
243: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
244: ) IS
245: BEGIN
246: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
239: -- validate positive amount
240: Procedure Validate_amount
241: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
242: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
243: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
244: ) IS
245: BEGIN
246: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
247: RETURN;
262:
263: -- validate currency code exists in system
264: Procedure Validate_currency_info
265: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
266: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
267: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
268: ) IS
269: l_currency_record rcv_shipment_header_sv.currectype;
270: BEGIN
263: -- validate currency code exists in system
264: Procedure Validate_currency_info
265: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
266: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
267: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
268: ) IS
269: l_currency_record rcv_shipment_header_sv.currectype;
270: BEGIN
271: IF p_charge_record.processing_status_code NOT IN ('S','W') THEN
292: END;
293:
294: Procedure Derive_Charge_Info
295: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
296: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
297: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
298: ) IS
299: BEGIN
300: derive_cost_factor( p_charge_record
293:
294: Procedure Derive_Charge_Info
295: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
296: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
297: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
298: ) IS
299: BEGIN
300: derive_cost_factor( p_charge_record
301: , p_header_record
304: END Derive_Charge_Info;
305:
306: Procedure Default_charge_info
307: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
308: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
309: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
310: ) IS
311: BEGIN
312: default_vendor_info(p_charge_record, p_header_record, p_transaction_record);
305:
306: Procedure Default_charge_info
307: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
308: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
309: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
310: ) IS
311: BEGIN
312: default_vendor_info(p_charge_record, p_header_record, p_transaction_record);
313: default_currency_info(p_charge_record, p_header_record, p_transaction_record);
314: END;
315:
316: Procedure Validate_charge_info
317: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
318: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
319: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
320: ) IS
321: BEGIN
322: Validate_cost_factor( p_charge_record, p_header_record, p_transaction_record );
315:
316: Procedure Validate_charge_info
317: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
318: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
319: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
320: ) IS
321: BEGIN
322: Validate_cost_factor( p_charge_record, p_header_record, p_transaction_record );
323: Validate_vendor_info( p_charge_record, p_header_record, p_transaction_record );
870: END Allocate_Charges;
871:
872: Procedure Preprocess_Charge_Line
873: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
874: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
875: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
876: ) IS
877: BEGIN
878: Derive_charge_info(p_charge_record, p_header_record, p_transaction_record);
871:
872: Procedure Preprocess_Charge_Line
873: ( p_charge_record IN OUT NOCOPY rcv_charges_interface%ROWTYPE
874: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
875: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
876: ) IS
877: BEGIN
878: Derive_charge_info(p_charge_record, p_header_record, p_transaction_record);
879: Default_charge_info(p_charge_record, p_header_record, p_transaction_record);
885: , p_init_msg_list IN VARCHAR2
886: , x_return_status OUT NOCOPY VARCHAR2
887: , x_msg_count OUT NOCOPY NUMBER
888: , x_msg_data OUT NOCOPY VARCHAR2
889: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
890: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
891: ) IS
892: l_charge_interface_table charge_interface_table_type;
893: BEGIN
886: , x_return_status OUT NOCOPY VARCHAR2
887: , x_msg_count OUT NOCOPY NUMBER
888: , x_msg_data OUT NOCOPY VARCHAR2
889: , p_header_record IN RCV_ROI_PREPROCESSOR.headers_cur%ROWTYPE
890: , p_transaction_record IN RCV_ROI_PREPROCESSOR.txns_cur%ROWTYPE
891: ) IS
892: l_charge_interface_table charge_interface_table_type;
893: BEGIN
894: asn_debug.put_line('In preprocess_charges');