6: ---------------------------------------------------------------------------
7:
8: -- The module base for this package.
9: D_PACKAGE_BASE CONSTANT VARCHAR2(50) :=
10: PO_LOG.get_package_base('PO_PRICE_HELPER');
11:
12: -- The module base for the subprogram.
13: D_no_dists_reserved CONSTANT VARCHAR2(100) :=
14: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'no_dists_reserved');
10: PO_LOG.get_package_base('PO_PRICE_HELPER');
11:
12: -- The module base for the subprogram.
13: D_no_dists_reserved CONSTANT VARCHAR2(100) :=
14: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'no_dists_reserved');
15:
16: -- The module base for the subprogram.
17: D_accruals_allow_update CONSTANT VARCHAR2(100) :=
18: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'accruals_allow_update');
14: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'no_dists_reserved');
15:
16: -- The module base for the subprogram.
17: D_accruals_allow_update CONSTANT VARCHAR2(100) :=
18: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'accruals_allow_update');
19:
20: -- The module base for the subprogram.
21: D_no_timecards_exist CONSTANT VARCHAR2(100) :=
22: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'no_timecards_exist');
18: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'accruals_allow_update');
19:
20: -- The module base for the subprogram.
21: D_no_timecards_exist CONSTANT VARCHAR2(100) :=
22: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'no_timecards_exist');
23:
24: -- The module base for the subprogram.
25: D_no_pending_receipts CONSTANT VARCHAR2(100) :=
26: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'no_pending_receipts');
22: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'no_timecards_exist');
23:
24: -- The module base for the subprogram.
25: D_no_pending_receipts CONSTANT VARCHAR2(100) :=
26: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'no_pending_receipts');
27:
28: -- The module base for the subprogram.
29: D_retro_account_allows_update CONSTANT VARCHAR2(100) :=
30: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'retro_account_allows_update');
26: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'no_pending_receipts');
27:
28: -- The module base for the subprogram.
29: D_retro_account_allows_update CONSTANT VARCHAR2(100) :=
30: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'retro_account_allows_update');
31:
32: -- The module base for the subprogram.
33: D_warn_amt_based_notif_ctrls CONSTANT VARCHAR2(100) :=
34: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'warn_amt_based_notif_ctrls');
30: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'retro_account_allows_update');
31:
32: -- The module base for the subprogram.
33: D_warn_amt_based_notif_ctrls CONSTANT VARCHAR2(100) :=
34: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'warn_amt_based_notif_ctrls');
35:
36: -- The module base for the subprogram.
37: D_attempt_line_price_update CONSTANT VARCHAR2(100) :=
38: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'attempt_line_price_update');
34: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'warn_amt_based_notif_ctrls');
35:
36: -- The module base for the subprogram.
37: D_attempt_line_price_update CONSTANT VARCHAR2(100) :=
38: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'attempt_line_price_update');
39:
40: -- The module base for the subprogram.
41: D_check_system_allows_update CONSTANT VARCHAR2(100) :=
42: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'check_system_allows_update');
38: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'attempt_line_price_update');
39:
40: -- The module base for the subprogram.
41: D_check_system_allows_update CONSTANT VARCHAR2(100) :=
42: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'check_system_allows_update');
43:
44: -- The module base for the subprogram.
45: D_attempt_man_mod_pricing CONSTANT VARCHAR2(100) :=
46: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'attempt_man_mod_pricing');
42: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'check_system_allows_update');
43:
44: -- The module base for the subprogram.
45: D_attempt_man_mod_pricing CONSTANT VARCHAR2(100) :=
46: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'attempt_man_mod_pricing');
47:
48: ---------------------------------------------------------------------------
49: -- Constants.
50: ---------------------------------------------------------------------------
116:
117: l_amount_changed_flag_tbl PO_TBL_VARCHAR1; --
118:
119: BEGIN
120: IF PO_LOG.d_proc THEN
121: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
122: PO_LOG.proc_begin(d_mod, 'p_price_break_lookup_code', p_price_break_lookup_code);
123: PO_LOG.proc_begin(d_mod, 'p_amount_changed_flag', p_amount_changed_flag); --
124: END IF;
117: l_amount_changed_flag_tbl PO_TBL_VARCHAR1; --
118:
119: BEGIN
120: IF PO_LOG.d_proc THEN
121: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
122: PO_LOG.proc_begin(d_mod, 'p_price_break_lookup_code', p_price_break_lookup_code);
123: PO_LOG.proc_begin(d_mod, 'p_amount_changed_flag', p_amount_changed_flag); --
124: END IF;
125:
118:
119: BEGIN
120: IF PO_LOG.d_proc THEN
121: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
122: PO_LOG.proc_begin(d_mod, 'p_price_break_lookup_code', p_price_break_lookup_code);
123: PO_LOG.proc_begin(d_mod, 'p_amount_changed_flag', p_amount_changed_flag); --
124: END IF;
125:
126: d_position := 1;
119: BEGIN
120: IF PO_LOG.d_proc THEN
121: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
122: PO_LOG.proc_begin(d_mod, 'p_price_break_lookup_code', p_price_break_lookup_code);
123: PO_LOG.proc_begin(d_mod, 'p_amount_changed_flag', p_amount_changed_flag); --
125:
126: d_position := 1;
127: l_line_id_tbl := PO_TBL_NUMBER(p_po_line_id);
129:
130: l_amount_changed_flag_tbl := PO_TBL_VARCHAR1(p_amount_changed_flag); --
131:
132: d_position := 100;
133: IF PO_LOG.d_stmt THEN
134: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
135: END IF;
136:
137: PO_VALIDATIONS.validate_unit_price_change(
130: l_amount_changed_flag_tbl := PO_TBL_VARCHAR1(p_amount_changed_flag); --
131:
132: d_position := 100;
133: IF PO_LOG.d_stmt THEN
134: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
135: END IF;
136:
137: PO_VALIDATIONS.validate_unit_price_change(
138: p_line_id_tbl => l_line_id_tbl
143: , x_result_set_id => l_result_set_id
144: , x_results => l_results);
145:
146: d_position := 200;
147: IF PO_LOG.d_stmt THEN
148: PO_LOG.stmt(d_mod, d_position, 'l_result_set_id', l_result_set_id);
149: PO_LOG.stmt(d_mod, d_position, 'l_result_type', l_result_type);
150: END IF;
151:
144: , x_results => l_results);
145:
146: d_position := 200;
147: IF PO_LOG.d_stmt THEN
148: PO_LOG.stmt(d_mod, d_position, 'l_result_set_id', l_result_set_id);
149: PO_LOG.stmt(d_mod, d_position, 'l_result_type', l_result_type);
150: END IF;
151:
152: IF (PO_VALIDATIONS.result_type_rank(l_result_type) >=
145:
146: d_position := 200;
147: IF PO_LOG.d_stmt THEN
148: PO_LOG.stmt(d_mod, d_position, 'l_result_set_id', l_result_set_id);
149: PO_LOG.stmt(d_mod, d_position, 'l_result_type', l_result_type);
150: END IF;
151:
152: IF (PO_VALIDATIONS.result_type_rank(l_result_type) >=
153: c_result_type_rank_WARNING)
157: x_system_allows_update := 'N';
158: END IF;
159:
160: d_position := 300;
161: IF PO_LOG.d_proc THEN
162: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
163: END IF;
164:
165: EXCEPTION
158: END IF;
159:
160: d_position := 300;
161: IF PO_LOG.d_proc THEN
162: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
163: END IF;
164:
165: EXCEPTION
166: WHEN OTHERS THEN
163: END IF;
164:
165: EXCEPTION
166: WHEN OTHERS THEN
167: IF PO_LOG.d_exc THEN
168: PO_LOG.exc(d_mod, d_position, NULL);
169: END IF;
170: RAISE;
171: END check_system_allows_update;
164:
165: EXCEPTION
166: WHEN OTHERS THEN
167: IF PO_LOG.d_exc THEN
168: PO_LOG.exc(d_mod, d_position, NULL);
169: END IF;
170: RAISE;
171: END check_system_allows_update;
172:
230: d_mod CONSTANT VARCHAR2(100) := D_attempt_line_price_update;
231: d_position NUMBER := 0;
232: BEGIN
233:
234: IF PO_LOG.d_proc THEN
235: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
236: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
237: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
238: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
231: d_position NUMBER := 0;
232: BEGIN
233:
234: IF PO_LOG.d_proc THEN
235: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
236: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
237: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
238: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
239: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
232: BEGIN
233:
234: IF PO_LOG.d_proc THEN
235: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
236: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
237: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
238: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
239: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
240: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
233:
234: IF PO_LOG.d_proc THEN
235: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
236: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
237: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
238: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
239: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
240: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
241: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
234: IF PO_LOG.d_proc THEN
235: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
236: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
237: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
238: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
239: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
240: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
241: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
242: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
235: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
236: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
237: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
238: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
239: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
240: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
241: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
242: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
243: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
236: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
237: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
238: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
239: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
240: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
241: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
242: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
243: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
244: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
237: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
238: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
239: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
240: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
241: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
242: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
243: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
244: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
245: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
238: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
239: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
240: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
241: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
242: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
243: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
244: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
245: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
246: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
239: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
240: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
241: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
242: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
243: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
244: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
245: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
246: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
247: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
240: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
241: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
242: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
243: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
244: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
245: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
246: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
247: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
248: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
241: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
242: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
243: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
244: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
245: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
246: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
247: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
248: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
249: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
242: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
243: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
244: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
245: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
246: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
247: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
248: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
249: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
250: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
243: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
244: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
245: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
246: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
247: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
248: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
249: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
250: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
251: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
244: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
245: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
246: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
247: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
248: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
249: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
250: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
251: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
252: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
245: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
246: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
247: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
248: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
249: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
250: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
251: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
252: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
253: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
246: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
247: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
248: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
249: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
250: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
251: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
252: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
253: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
254: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
247: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
248: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
249: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
250: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
251: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
252: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
253: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
254: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
255: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
248: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
249: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
250: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
251: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
252: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
253: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
254: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
255: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
256: --
249: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
250: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
251: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
252: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
253: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
254: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
255: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
256: --
257: PO_LOG.proc_begin(d_mod, 'p_draft_id', p_draft_id);
250: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
251: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
252: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
253: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
254: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
255: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
256: --
257: PO_LOG.proc_begin(d_mod, 'p_draft_id', p_draft_id);
258: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
251: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
252: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
253: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
254: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
255: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
256: --
257: PO_LOG.proc_begin(d_mod, 'p_draft_id', p_draft_id);
258: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
259: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
253: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
254: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
255: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
256: --
257: PO_LOG.proc_begin(d_mod, 'p_draft_id', p_draft_id);
258: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
259: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
260: --
261: PO_LOG.proc_begin(d_mod, 'p_amount_changed_flag', p_amount_changed_flag); --
254: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
255: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
256: --
257: PO_LOG.proc_begin(d_mod, 'p_draft_id', p_draft_id);
258: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
259: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
260: --
261: PO_LOG.proc_begin(d_mod, 'p_amount_changed_flag', p_amount_changed_flag); --
262: END IF;
255: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
256: --
257: PO_LOG.proc_begin(d_mod, 'p_draft_id', p_draft_id);
258: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
259: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
260: --
261: PO_LOG.proc_begin(d_mod, 'p_amount_changed_flag', p_amount_changed_flag); --
262: END IF;
263:
257: PO_LOG.proc_begin(d_mod, 'p_draft_id', p_draft_id);
258: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
259: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
260: --
261: PO_LOG.proc_begin(d_mod, 'p_amount_changed_flag', p_amount_changed_flag); --
263:
264: d_position := 1;
265: check_system_allows_update(
271: , x_system_allows_update => x_system_allows_update
272: );
273:
274: d_position := 90;
275: IF PO_LOG.d_stmt THEN
276: PO_LOG.stmt(d_mod, d_position, 'x_system_allows_update', x_system_allows_update);
277: END IF;
278:
279: IF (x_system_allows_update = 'Y') THEN
272: );
273:
274: d_position := 90;
275: IF PO_LOG.d_stmt THEN
276: PO_LOG.stmt(d_mod, d_position, 'x_system_allows_update', x_system_allows_update);
277: END IF;
278:
279: IF (x_system_allows_update = 'Y') THEN
280: d_position := 100;
313: , x_return_status => x_return_status
314: , x_from_advanced_pricing => x_from_advanced_pricing);
315: END IF;
316:
317: IF PO_LOG.d_proc THEN
318: PO_LOG.proc_end(d_mod, 'x_base_unit_price', x_base_unit_price);
319: PO_LOG.proc_end(d_mod, 'x_price_break_id', x_price_break_id);
320: PO_LOG.proc_end(d_mod, 'x_price', x_price);
321: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
314: , x_from_advanced_pricing => x_from_advanced_pricing);
315: END IF;
316:
317: IF PO_LOG.d_proc THEN
318: PO_LOG.proc_end(d_mod, 'x_base_unit_price', x_base_unit_price);
319: PO_LOG.proc_end(d_mod, 'x_price_break_id', x_price_break_id);
320: PO_LOG.proc_end(d_mod, 'x_price', x_price);
321: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
322: PO_LOG.proc_end(d_mod, 'x_from_advanced_pricing', x_from_advanced_pricing);
315: END IF;
316:
317: IF PO_LOG.d_proc THEN
318: PO_LOG.proc_end(d_mod, 'x_base_unit_price', x_base_unit_price);
319: PO_LOG.proc_end(d_mod, 'x_price_break_id', x_price_break_id);
320: PO_LOG.proc_end(d_mod, 'x_price', x_price);
321: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
322: PO_LOG.proc_end(d_mod, 'x_from_advanced_pricing', x_from_advanced_pricing);
323: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
316:
317: IF PO_LOG.d_proc THEN
318: PO_LOG.proc_end(d_mod, 'x_base_unit_price', x_base_unit_price);
319: PO_LOG.proc_end(d_mod, 'x_price_break_id', x_price_break_id);
320: PO_LOG.proc_end(d_mod, 'x_price', x_price);
321: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
322: PO_LOG.proc_end(d_mod, 'x_from_advanced_pricing', x_from_advanced_pricing);
323: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
324: END IF;
317: IF PO_LOG.d_proc THEN
318: PO_LOG.proc_end(d_mod, 'x_base_unit_price', x_base_unit_price);
319: PO_LOG.proc_end(d_mod, 'x_price_break_id', x_price_break_id);
320: PO_LOG.proc_end(d_mod, 'x_price', x_price);
321: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
322: PO_LOG.proc_end(d_mod, 'x_from_advanced_pricing', x_from_advanced_pricing);
323: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
324: END IF;
325:
318: PO_LOG.proc_end(d_mod, 'x_base_unit_price', x_base_unit_price);
319: PO_LOG.proc_end(d_mod, 'x_price_break_id', x_price_break_id);
320: PO_LOG.proc_end(d_mod, 'x_price', x_price);
321: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
322: PO_LOG.proc_end(d_mod, 'x_from_advanced_pricing', x_from_advanced_pricing);
323: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
324: END IF;
325:
326: EXCEPTION
319: PO_LOG.proc_end(d_mod, 'x_price_break_id', x_price_break_id);
320: PO_LOG.proc_end(d_mod, 'x_price', x_price);
321: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
322: PO_LOG.proc_end(d_mod, 'x_from_advanced_pricing', x_from_advanced_pricing);
323: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
324: END IF;
325:
326: EXCEPTION
327: WHEN OTHERS THEN
324: END IF;
325:
326: EXCEPTION
327: WHEN OTHERS THEN
328: IF PO_LOG.d_exc THEN
329: PO_LOG.exc(d_mod, d_position, NULL);
330: END IF;
331: RAISE;
332: END attempt_line_price_update;
325:
326: EXCEPTION
327: WHEN OTHERS THEN
328: IF PO_LOG.d_exc THEN
329: PO_LOG.exc(d_mod, d_position, NULL);
330: END IF;
331: RAISE;
332: END attempt_line_price_update;
333:
371: d_position NUMBER := 0;
372: l_is_clm_po VARCHAR2(1) := 'N'; -- Bug#10397036
373: BEGIN
374:
375: IF PO_LOG.d_proc THEN
376: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
377: PO_LOG.proc_begin(d_mod, 'p_amt_changed_flag_tbl', p_amt_changed_flag_tbl); --
378: PO_LOG.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
379: END IF;
372: l_is_clm_po VARCHAR2(1) := 'N'; -- Bug#10397036
373: BEGIN
374:
375: IF PO_LOG.d_proc THEN
376: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
377: PO_LOG.proc_begin(d_mod, 'p_amt_changed_flag_tbl', p_amt_changed_flag_tbl); --
378: PO_LOG.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
379: END IF;
380:
373: BEGIN
374:
375: IF PO_LOG.d_proc THEN
376: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
377: PO_LOG.proc_begin(d_mod, 'p_amt_changed_flag_tbl', p_amt_changed_flag_tbl); --
379: END IF;
380:
381: d_position := 1;
374:
375: IF PO_LOG.d_proc THEN
376: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
377: PO_LOG.proc_begin(d_mod, 'p_amt_changed_flag_tbl', p_amt_changed_flag_tbl); --
378: PO_LOG.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
379: END IF;
380:
381: d_position := 1;
382: IF (x_result_set_id IS NULL) THEN
429: END LOOP;
430:
431: d_position := 300;
432:
433: IF PO_LOG.d_proc THEN
434: PO_LOG.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
435: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
436: END IF;
437:
430:
431: d_position := 300;
432:
433: IF PO_LOG.d_proc THEN
434: PO_LOG.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
435: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
436: END IF;
437:
438: EXCEPTION
431: d_position := 300;
432:
433: IF PO_LOG.d_proc THEN
434: PO_LOG.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
435: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
436: END IF;
437:
438: EXCEPTION
439: WHEN OTHERS THEN
436: END IF;
437:
438: EXCEPTION
439: WHEN OTHERS THEN
440: IF PO_LOG.d_exc THEN
441: PO_LOG.exc(d_mod, d_position, NULL);
442: END IF;
443: RAISE;
444: END no_dists_reserved;
437:
438: EXCEPTION
439: WHEN OTHERS THEN
440: IF PO_LOG.d_exc THEN
441: PO_LOG.exc(d_mod, d_position, NULL);
442: END IF;
443: RAISE;
444: END no_dists_reserved;
445:
478: , x_result_type OUT NOCOPY VARCHAR2)
479: IS
480: d_mod CONSTANT VARCHAR2(100) := D_accruals_allow_update;
481: d_position NUMBER := 0;
482: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
483:
484: l_results_count NUMBER;
485: l_data_key NUMBER;
486: l_line_id_tbl PO_TBL_NUMBER;
496: l_quantity_released NUMBER;
497: l_amount_released NUMBER;
498: BEGIN
499:
500: IF PO_LOG.d_proc THEN
501: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
502: END IF;
503:
504: d_position := 1;
497: l_amount_released NUMBER;
498: BEGIN
499:
500: IF PO_LOG.d_proc THEN
501: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
502: END IF;
503:
504: d_position := 1;
505: IF (x_results IS NULL) THEN
547: AND PARAMS.org_id = HEADER.org_id
548: ;
549:
550: d_position := 100;
551: IF PO_LOG.d_stmt THEN
552: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
553: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
554: PO_LOG.stmt(d_mod, d_position, 'l_header_id_tbl', l_header_id_tbl);
555: PO_LOG.stmt(d_mod, d_position, 'l_type_lookup_code_tbl', l_type_lookup_code_tbl);
548: ;
549:
550: d_position := 100;
551: IF PO_LOG.d_stmt THEN
552: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
553: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
554: PO_LOG.stmt(d_mod, d_position, 'l_header_id_tbl', l_header_id_tbl);
555: PO_LOG.stmt(d_mod, d_position, 'l_type_lookup_code_tbl', l_type_lookup_code_tbl);
556: PO_LOG.stmt(d_mod, d_position, 'l_expense_accrual_code_tbl', l_expense_accrual_code_tbl);
549:
550: d_position := 100;
551: IF PO_LOG.d_stmt THEN
552: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
553: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
554: PO_LOG.stmt(d_mod, d_position, 'l_header_id_tbl', l_header_id_tbl);
555: PO_LOG.stmt(d_mod, d_position, 'l_type_lookup_code_tbl', l_type_lookup_code_tbl);
556: PO_LOG.stmt(d_mod, d_position, 'l_expense_accrual_code_tbl', l_expense_accrual_code_tbl);
557: END IF;
550: d_position := 100;
551: IF PO_LOG.d_stmt THEN
552: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
553: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
554: PO_LOG.stmt(d_mod, d_position, 'l_header_id_tbl', l_header_id_tbl);
555: PO_LOG.stmt(d_mod, d_position, 'l_type_lookup_code_tbl', l_type_lookup_code_tbl);
556: PO_LOG.stmt(d_mod, d_position, 'l_expense_accrual_code_tbl', l_expense_accrual_code_tbl);
557: END IF;
558:
551: IF PO_LOG.d_stmt THEN
552: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
553: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
554: PO_LOG.stmt(d_mod, d_position, 'l_header_id_tbl', l_header_id_tbl);
555: PO_LOG.stmt(d_mod, d_position, 'l_type_lookup_code_tbl', l_type_lookup_code_tbl);
556: PO_LOG.stmt(d_mod, d_position, 'l_expense_accrual_code_tbl', l_expense_accrual_code_tbl);
557: END IF;
558:
559: FOR i IN 1 .. l_line_id_tbl.COUNT LOOP
552: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
553: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
554: PO_LOG.stmt(d_mod, d_position, 'l_header_id_tbl', l_header_id_tbl);
555: PO_LOG.stmt(d_mod, d_position, 'l_type_lookup_code_tbl', l_type_lookup_code_tbl);
556: PO_LOG.stmt(d_mod, d_position, 'l_expense_accrual_code_tbl', l_expense_accrual_code_tbl);
557: END IF;
558:
559: FOR i IN 1 .. l_line_id_tbl.COUNT LOOP
560:
577: , x_amount_released => l_amount_released);
578:
579: d_position := 300;
580: IF d_stmt THEN
581: PO_LOG.stmt(d_mod, d_position, 'l_prevent_price_update_flag', l_prevent_price_update_flag);
582: END IF;
583:
584: IF (l_prevent_price_update_flag = 'Y') THEN
585: d_position := 400;
599: ELSE
600: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
601: END IF;
602:
603: IF PO_LOG.d_proc THEN
604: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
605: END IF;
606:
607: EXCEPTION
600: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
601: END IF;
602:
603: IF PO_LOG.d_proc THEN
604: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
605: END IF;
606:
607: EXCEPTION
608: WHEN OTHERS THEN
605: END IF;
606:
607: EXCEPTION
608: WHEN OTHERS THEN
609: IF PO_LOG.d_exc THEN
610: PO_LOG.exc(d_mod, d_position, NULL);
611: END IF;
612: RAISE;
613: END accruals_allow_update;
606:
607: EXCEPTION
608: WHEN OTHERS THEN
609: IF PO_LOG.d_exc THEN
610: PO_LOG.exc(d_mod, d_position, NULL);
611: END IF;
612: RAISE;
613: END accruals_allow_update;
614:
691: d_mod CONSTANT VARCHAR2(100) := D_no_pending_receipts;
692: d_position NUMBER := 0;
693: BEGIN
694:
695: IF PO_LOG.d_proc THEN
696: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
697: PO_LOG.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
698: END IF;
699:
692: d_position NUMBER := 0;
693: BEGIN
694:
695: IF PO_LOG.d_proc THEN
696: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
697: PO_LOG.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
698: END IF;
699:
700: d_position := 1;
693: BEGIN
694:
695: IF PO_LOG.d_proc THEN
696: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
697: PO_LOG.proc_begin(d_mod, 'x_result_set_id', x_result_set_id);
698: END IF;
699:
700: d_position := 1;
701: IF (x_result_set_id IS NULL) THEN
736: ELSE
737: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
738: END IF;
739:
740: IF PO_LOG.d_proc THEN
741: PO_LOG.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
742: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
743: END IF;
744:
737: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
738: END IF;
739:
740: IF PO_LOG.d_proc THEN
741: PO_LOG.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
742: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
743: END IF;
744:
745: EXCEPTION
738: END IF;
739:
740: IF PO_LOG.d_proc THEN
741: PO_LOG.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
742: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
743: END IF;
744:
745: EXCEPTION
746: WHEN OTHERS THEN
743: END IF;
744:
745: EXCEPTION
746: WHEN OTHERS THEN
747: IF PO_LOG.d_exc THEN
748: PO_LOG.exc(d_mod, d_position, NULL);
749: END IF;
750: RAISE;
751: END no_pending_receipts;
744:
745: EXCEPTION
746: WHEN OTHERS THEN
747: IF PO_LOG.d_exc THEN
748: PO_LOG.exc(d_mod, d_position, NULL);
749: END IF;
750: RAISE;
751: END no_pending_receipts;
752:
784: , x_result_type OUT NOCOPY VARCHAR2)
785: IS
786: d_mod CONSTANT VARCHAR2(100) := D_retro_account_allows_update;
787: d_position NUMBER := 0;
788: d_stmt CONSTANT BOOLEAN := PO_LOG.d_stmt;
789:
790: l_results_count NUMBER;
791: l_data_key NUMBER;
792:
798:
799: l_retroactive_update_mode VARCHAR2(30);
800: l_account_valid VARCHAR2(1);
801: BEGIN
802: IF PO_LOG.d_proc THEN
803: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
804: PO_LOG.proc_begin(d_mod, 'p_price_break_lookup_code_tbl', p_price_break_lookup_code_tbl);
805: END IF;
806:
799: l_retroactive_update_mode VARCHAR2(30);
800: l_account_valid VARCHAR2(1);
801: BEGIN
802: IF PO_LOG.d_proc THEN
803: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
804: PO_LOG.proc_begin(d_mod, 'p_price_break_lookup_code_tbl', p_price_break_lookup_code_tbl);
805: END IF;
806:
807: d_position := 1;
800: l_account_valid VARCHAR2(1);
801: BEGIN
802: IF PO_LOG.d_proc THEN
803: PO_LOG.proc_begin(d_mod, 'p_line_id_tbl', p_line_id_tbl);
804: PO_LOG.proc_begin(d_mod, 'p_price_break_lookup_code_tbl', p_price_break_lookup_code_tbl);
805: END IF;
806:
807: d_position := 1;
808: IF (x_results IS NULL) THEN
815: l_retroactive_update_mode := PO_RETROACTIVE_PRICING_PVT.get_retro_mode();
816:
817: d_position := 90;
818: IF d_stmt THEN
819: PO_LOG.stmt(d_mod, d_position, 'l_retroactive_update_mode', l_retroactive_update_mode);
820: END IF;
821:
822: IF (l_retroactive_update_mode = c_ALL_RELEASES) THEN
823: d_position := 100;
856: AND (SES.char1 IS NULL OR SES.char1 = c_NON_CUMULATIVE)
857: ;
858:
859: d_position := 120;
860: IF PO_LOG.d_stmt THEN
861: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
862: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
863: PO_LOG.stmt(d_mod, d_position, 'l_price_break_lookup_code', l_price_break_lookup_code);
864: END IF;
857: ;
858:
859: d_position := 120;
860: IF PO_LOG.d_stmt THEN
861: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
862: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
863: PO_LOG.stmt(d_mod, d_position, 'l_price_break_lookup_code', l_price_break_lookup_code);
864: END IF;
865:
858:
859: d_position := 120;
860: IF PO_LOG.d_stmt THEN
861: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
862: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
863: PO_LOG.stmt(d_mod, d_position, 'l_price_break_lookup_code', l_price_break_lookup_code);
864: END IF;
865:
866: FOR i IN 1 .. l_line_id_tbl.COUNT LOOP
859: d_position := 120;
860: IF PO_LOG.d_stmt THEN
861: PO_LOG.stmt_session_gt(d_mod, d_position, l_data_key);
862: PO_LOG.stmt(d_mod, d_position, 'l_line_id_tbl', l_line_id_tbl);
863: PO_LOG.stmt(d_mod, d_position, 'l_price_break_lookup_code', l_price_break_lookup_code);
864: END IF;
865:
866: FOR i IN 1 .. l_line_id_tbl.COUNT LOOP
867: d_position := 200;
868: l_line_id := l_line_id_tbl(i);
869: l_price_break_lookup_code := l_price_break_lookup_code_tbl(i);
870:
871: IF d_stmt THEN
872: PO_LOG.stmt(d_mod, d_position,'iteration '|| i ||' l_line_id', l_line_id);
873: END IF;
874:
875: l_account_valid :=
876: PO_RETROACTIVE_PRICING_PVT.is_adjustment_account_valid(
880: );
881:
882: d_position := 250;
883: IF d_stmt THEN
884: PO_LOG.stmt(d_mod, d_position, 'l_account_valid', l_account_valid);
885: END IF;
886:
887: IF (l_account_valid = 'N') THEN
888: d_position := 300;
905: ELSE
906: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
907: END IF;
908:
909: IF PO_LOG.d_proc THEN
910: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
911: END IF;
912:
913: EXCEPTION
906: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
907: END IF;
908:
909: IF PO_LOG.d_proc THEN
910: PO_LOG.proc_end(d_mod, 'x_result_type', x_result_type);
911: END IF;
912:
913: EXCEPTION
914: WHEN OTHERS THEN
911: END IF;
912:
913: EXCEPTION
914: WHEN OTHERS THEN
915: IF PO_LOG.d_exc THEN
916: PO_LOG.exc(d_mod, d_position, NULL);
917: END IF;
918: RAISE;
919: END retro_account_allows_update;
912:
913: EXCEPTION
914: WHEN OTHERS THEN
915: IF PO_LOG.d_exc THEN
916: PO_LOG.exc(d_mod, d_position, NULL);
917: END IF;
918: RAISE;
919: END retro_account_allows_update;
920:
1012: -- Initialize OUT parameters
1013: x_return_status := FND_API.G_RET_STS_SUCCESS;
1014: x_system_allows_update := 'N';
1015:
1016: IF PO_LOG.d_proc THEN
1017: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
1018: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
1019: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
1020: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
1013: x_return_status := FND_API.G_RET_STS_SUCCESS;
1014: x_system_allows_update := 'N';
1015:
1016: IF PO_LOG.d_proc THEN
1017: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
1018: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
1019: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
1020: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
1021: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
1014: x_system_allows_update := 'N';
1015:
1016: IF PO_LOG.d_proc THEN
1017: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
1018: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
1019: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
1020: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
1021: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
1022: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
1015:
1016: IF PO_LOG.d_proc THEN
1017: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
1018: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
1019: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
1020: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
1021: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
1022: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
1023: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
1016: IF PO_LOG.d_proc THEN
1017: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
1018: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
1019: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
1020: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
1021: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
1022: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
1023: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
1024: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
1017: PO_LOG.proc_begin(d_mod, 'p_order_quantity', p_order_quantity);
1018: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
1019: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
1020: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
1021: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
1022: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
1023: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
1024: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
1025: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
1018: PO_LOG.proc_begin(d_mod, 'p_ship_to_org', p_ship_to_org);
1019: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
1020: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
1021: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
1022: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
1023: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
1024: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
1025: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
1026: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
1019: PO_LOG.proc_begin(d_mod, 'p_ship_to_loc', p_ship_to_loc);
1020: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
1021: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
1022: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
1023: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
1024: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
1025: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
1026: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
1027: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
1020: PO_LOG.proc_begin(d_mod, 'p_po_line_id', p_po_line_id);
1021: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
1022: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
1023: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
1024: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
1025: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
1026: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
1027: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
1028: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
1021: PO_LOG.proc_begin(d_mod, 'p_need_by_date', p_need_by_date);
1022: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
1023: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
1024: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
1025: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
1026: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
1027: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
1028: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
1029: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
1022: PO_LOG.proc_begin(d_mod, 'p_line_location_id', p_line_location_id);
1023: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
1024: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
1025: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
1026: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
1027: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
1028: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
1029: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
1030: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
1023: PO_LOG.proc_begin(d_mod, 'p_contract_id', p_contract_id);
1024: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
1025: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
1026: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
1027: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
1028: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
1029: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
1030: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
1031: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
1024: PO_LOG.proc_begin(d_mod, 'p_org_id', p_org_id);
1025: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
1026: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
1027: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
1028: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
1029: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
1030: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
1031: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
1032: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
1025: PO_LOG.proc_begin(d_mod, 'p_supplier_id', p_supplier_id);
1026: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
1027: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
1028: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
1029: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
1030: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
1031: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
1032: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
1033: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
1026: PO_LOG.proc_begin(d_mod, 'p_supplier_site_id', p_supplier_site_id);
1027: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
1028: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
1029: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
1030: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
1031: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
1032: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
1033: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
1034: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
1027: PO_LOG.proc_begin(d_mod, 'p_creation_date', p_creation_date);
1028: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
1029: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
1030: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
1031: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
1032: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
1033: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
1034: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
1035: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
1028: PO_LOG.proc_begin(d_mod, 'p_order_header_id', p_order_header_id);
1029: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
1030: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
1031: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
1032: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
1033: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
1034: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
1035: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
1036: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
1029: PO_LOG.proc_begin(d_mod, 'p_order_line_id', p_order_line_id);
1030: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
1031: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
1032: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
1033: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
1034: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
1035: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
1036: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
1037: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
1030: PO_LOG.proc_begin(d_mod, 'p_line_type_id', p_line_type_id);
1031: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
1032: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
1033: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
1034: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
1035: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
1036: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
1037: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
1038: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
1031: PO_LOG.proc_begin(d_mod, 'p_item_revision', p_item_revision);
1032: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
1033: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
1034: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
1035: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
1036: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
1037: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
1038: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
1039: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
1032: PO_LOG.proc_begin(d_mod, 'p_item_id', p_item_id);
1033: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
1034: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
1035: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
1036: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
1037: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
1038: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
1039: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
1040: END IF;
1033: PO_LOG.proc_begin(d_mod, 'p_category_id', p_category_id);
1034: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
1035: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
1036: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
1037: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
1038: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
1039: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
1040: END IF;
1041:
1034: PO_LOG.proc_begin(d_mod, 'p_supplier_item_num', p_supplier_item_num);
1035: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
1036: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
1037: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
1038: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
1039: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
1040: END IF;
1041:
1042: d_position := 1;
1035: PO_LOG.proc_begin(d_mod, 'p_uom', p_uom);
1036: PO_LOG.proc_begin(d_mod, 'p_in_price', p_in_price);
1037: PO_LOG.proc_begin(d_mod, 'p_currency_code', p_currency_code);
1038: PO_LOG.proc_begin(d_mod, 'p_src_flag', p_src_flag);
1039: PO_LOG.proc_begin(d_mod, 'p_doc_sub_type', p_doc_sub_type);
1040: END IF;
1041:
1042: d_position := 1;
1043: check_system_allows_update( p_po_line_id => p_order_line_id
1045: , x_system_allows_update => x_system_allows_update
1046: );
1047:
1048: d_position := 100;
1049: IF PO_LOG.d_stmt THEN
1050: PO_LOG.stmt(d_mod, d_position, 'x_system_allows_update', x_system_allows_update);
1051: END IF;
1052:
1053: IF (x_system_allows_update = 'Y') THEN
1046: );
1047:
1048: d_position := 100;
1049: IF PO_LOG.d_stmt THEN
1050: PO_LOG.stmt(d_mod, d_position, 'x_system_allows_update', x_system_allows_update);
1051: END IF;
1052:
1053: IF (x_system_allows_update = 'Y') THEN
1054: d_position := 120;
1058: ELSE
1059: l_doc_sub_type := 'PO';
1060: END IF;
1061:
1062: IF PO_LOG.d_stmt THEN
1063: PO_LOG.stmt(d_mod, d_position, 'l_doc_sub_type', l_doc_sub_type);
1064: END IF;
1065:
1066: d_position := 140;
1059: l_doc_sub_type := 'PO';
1060: END IF;
1061:
1062: IF PO_LOG.d_stmt THEN
1063: PO_LOG.stmt(d_mod, d_position, 'l_doc_sub_type', l_doc_sub_type);
1064: END IF;
1065:
1066: d_position := 140;
1067: IF PO_LOG.d_stmt THEN
1063: PO_LOG.stmt(d_mod, d_position, 'l_doc_sub_type', l_doc_sub_type);
1064: END IF;
1065:
1066: d_position := 140;
1067: IF PO_LOG.d_stmt THEN
1068: PO_LOG.stmt(d_mod, d_position, 'Get source document header id and type');
1069: END IF;
1070:
1071: IF (p_po_line_id IS NOT NULL) THEN
1064: END IF;
1065:
1066: d_position := 140;
1067: IF PO_LOG.d_stmt THEN
1068: PO_LOG.stmt(d_mod, d_position, 'Get source document header id and type');
1069: END IF;
1070:
1071: IF (p_po_line_id IS NOT NULL) THEN
1072: SELECT ph.type_lookup_code,
1094: IF (PO_ADVANCED_PRICE_PVT.is_valid_qp_line_type(p_line_type_id)) THEN
1095: l_rate_type := NULL;
1096: l_rate := NULL;
1097: d_position := 160;
1098: IF PO_LOG.d_stmt THEN
1099: PO_LOG.stmt(d_mod, d_position, 'Call pricing to retrieve manual modifiers');
1100: END IF;
1101:
1102: PO_ADVANCED_PRICE_PVT.call_pricing_manual_modifier(
1095: l_rate_type := NULL;
1096: l_rate := NULL;
1097: d_position := 160;
1098: IF PO_LOG.d_stmt THEN
1099: PO_LOG.stmt(d_mod, d_position, 'Call pricing to retrieve manual modifiers');
1100: END IF;
1101:
1102: PO_ADVANCED_PRICE_PVT.call_pricing_manual_modifier(
1103: p_org_id => p_org_id
1131:
1132: x_return_status := l_return_status;
1133:
1134: d_position := 180;
1135: IF PO_LOG.d_stmt THEN
1136: PO_LOG.stmt(d_mod, d_position, 'x_return_status', x_return_status);
1137: END IF;
1138: ELSE
1139: d_position := 200;
1132: x_return_status := l_return_status;
1133:
1134: d_position := 180;
1135: IF PO_LOG.d_stmt THEN
1136: PO_LOG.stmt(d_mod, d_position, 'x_return_status', x_return_status);
1137: END IF;
1138: ELSE
1139: d_position := 200;
1140: IF PO_LOG.d_stmt THEN
1136: PO_LOG.stmt(d_mod, d_position, 'x_return_status', x_return_status);
1137: END IF;
1138: ELSE
1139: d_position := 200;
1140: IF PO_LOG.d_stmt THEN
1141: PO_LOG.stmt(d_mod, d_position, 'Not a valid price type to call Advanced Pricing API(NSD - No Source Document)');
1142: END IF;
1143: END IF; /*IF (PO_ADVANCED_PRICE_PVT.is_valid_qp_line_type(p_line_type_id))*/
1144: END IF;
1137: END IF;
1138: ELSE
1139: d_position := 200;
1140: IF PO_LOG.d_stmt THEN
1141: PO_LOG.stmt(d_mod, d_position, 'Not a valid price type to call Advanced Pricing API(NSD - No Source Document)');
1142: END IF;
1143: END IF; /*IF (PO_ADVANCED_PRICE_PVT.is_valid_qp_line_type(p_line_type_id))*/
1144: END IF;
1145: IF PO_LOG.d_proc THEN
1141: PO_LOG.stmt(d_mod, d_position, 'Not a valid price type to call Advanced Pricing API(NSD - No Source Document)');
1142: END IF;
1143: END IF; /*IF (PO_ADVANCED_PRICE_PVT.is_valid_qp_line_type(p_line_type_id))*/
1144: END IF;
1145: IF PO_LOG.d_proc THEN
1146: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
1147: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
1148: END IF;
1149: EXCEPTION
1142: END IF;
1143: END IF; /*IF (PO_ADVANCED_PRICE_PVT.is_valid_qp_line_type(p_line_type_id))*/
1144: END IF;
1145: IF PO_LOG.d_proc THEN
1146: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
1147: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
1148: END IF;
1149: EXCEPTION
1150: WHEN OTHERS THEN
1143: END IF; /*IF (PO_ADVANCED_PRICE_PVT.is_valid_qp_line_type(p_line_type_id))*/
1144: END IF;
1145: IF PO_LOG.d_proc THEN
1146: PO_LOG.proc_end(d_mod, 'x_return_status', x_return_status);
1147: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
1148: END IF;
1149: EXCEPTION
1150: WHEN OTHERS THEN
1151: IF PO_LOG.d_exc THEN
1147: PO_LOG.proc_end(d_mod, 'x_system_allows_update', x_system_allows_update);
1148: END IF;
1149: EXCEPTION
1150: WHEN OTHERS THEN
1151: IF PO_LOG.d_exc THEN
1152: PO_LOG.exc(d_mod, d_position, NULL);
1153: END IF;
1154: RAISE;
1155: END attempt_man_mod_pricing;
1148: END IF;
1149: EXCEPTION
1150: WHEN OTHERS THEN
1151: IF PO_LOG.d_exc THEN
1152: PO_LOG.exc(d_mod, d_position, NULL);
1153: END IF;
1154: RAISE;
1155: END attempt_man_mod_pricing;
1156: