23: || p_log_data);
24: END IF;
25: END LOG_MESSAGE;
26:
27: /* This procedure call the ip API PO_CO_TOLERANCES_GRP.GET_TOLERANCES and sets the Tolerance
28: Attributes and Routing Attributes.
29: */
30: PROCEDURE INITIALIZE_TOL_VALUES( itemtype IN VARCHAR2,
31: itemkey IN VARCHAR2,
89: l_ship_qty_approval_flag VARCHAR2(10);
90: l_price_approval_flag VARCHAR2(10);
91: l_complex_po_style VARCHAR2(10);
92: l_org_id NUMBER;
93: x_tol_tab PO_CO_TOLERANCES_GRP.tolerances_tbl_type;
94: x_return_status varchar2(1);
95: x_msg_count NUMBER;
96: x_msg_data VARCHAR2(2000);
97: x_progress VARCHAR2(1000);
191:
192: x_progress := 'INIT_TOL_VALUES:003: Call get_tolerances';
193:
194:
195: PO_CO_TOLERANCES_GRP.GET_TOLERANCES (1.0,
196: FND_API.G_TRUE,
197: l_org_id,
198: PO_CO_TOLERANCES_GRP.G_SUPP_CHG_APP,
199: x_tol_tab,
194:
195: PO_CO_TOLERANCES_GRP.GET_TOLERANCES (1.0,
196: FND_API.G_TRUE,
197: l_org_id,
198: PO_CO_TOLERANCES_GRP.G_SUPP_CHG_APP,
199: x_tol_tab,
200: x_return_status,
201: x_msg_count,
202: x_msg_data);
225:
226: -- loop through all the tolerances retrieved
227: FOR i in 1..x_tol_tab.count
228: LOOP
229: IF (x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PROMISED_DATE) THEN
230: l_promise_date_incr := x_tol_tab(i).max_increment;
231: l_promise_date_decr := x_tol_tab(i).max_decrement;
232:
233: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_UNIT_PRICE) THEN
229: IF (x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PROMISED_DATE) THEN
230: l_promise_date_incr := x_tol_tab(i).max_increment;
231: l_promise_date_decr := x_tol_tab(i).max_decrement;
232:
233: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_UNIT_PRICE) THEN
234: l_unit_price_incr := x_tol_tab(i).max_increment;
235: l_unit_price_decr := x_tol_tab(i).max_decrement;
236:
237: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_QTY) THEN
233: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_UNIT_PRICE) THEN
234: l_unit_price_incr := x_tol_tab(i).max_increment;
235: l_unit_price_decr := x_tol_tab(i).max_decrement;
236:
237: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_QTY) THEN
238: l_shipment_qty_incr := x_tol_tab(i).max_increment;
239: l_shipment_qty_decr := x_tol_tab(i).max_decrement;
240:
241: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PAY_ITEM_QTY) THEN
237: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_QTY) THEN
238: l_shipment_qty_incr := x_tol_tab(i).max_increment;
239: l_shipment_qty_decr := x_tol_tab(i).max_decrement;
240:
241: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PAY_ITEM_QTY) THEN
242: l_pay_item_qty_incr := x_tol_tab(i).max_increment;
243: l_pay_item_qty_decr := x_tol_tab(i).max_decrement;
244:
245: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_DOCUMENT_AMOUNT_VALUE) THEN
241: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PAY_ITEM_QTY) THEN
242: l_pay_item_qty_incr := x_tol_tab(i).max_increment;
243: l_pay_item_qty_decr := x_tol_tab(i).max_decrement;
244:
245: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_DOCUMENT_AMOUNT_VALUE) THEN
246: l_doc_amount_incr_val := x_tol_tab(i).max_increment;
247: l_doc_amount_decr_val := x_tol_tab(i).max_decrement;
248:
249: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_DOCUMENT_AMOUNT_PERCENT) THEN
245: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_DOCUMENT_AMOUNT_VALUE) THEN
246: l_doc_amount_incr_val := x_tol_tab(i).max_increment;
247: l_doc_amount_decr_val := x_tol_tab(i).max_decrement;
248:
249: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_DOCUMENT_AMOUNT_PERCENT) THEN
250: l_doc_amount_incr_per := x_tol_tab(i).max_increment;
251: l_doc_amount_decr_per := x_tol_tab(i).max_decrement;
252:
253: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_LINE_AMOUNT_PERCENT) THEN
249: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_DOCUMENT_AMOUNT_PERCENT) THEN
250: l_doc_amount_incr_per := x_tol_tab(i).max_increment;
251: l_doc_amount_decr_per := x_tol_tab(i).max_decrement;
252:
253: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_LINE_AMOUNT_PERCENT) THEN
254: l_line_amount_incr_per := x_tol_tab(i).max_increment;
255: l_line_amount_decr_per := x_tol_tab(i).max_decrement;
256:
257: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_LINE_AMOUNT_VALUE) THEN
253: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_LINE_AMOUNT_PERCENT) THEN
254: l_line_amount_incr_per := x_tol_tab(i).max_increment;
255: l_line_amount_decr_per := x_tol_tab(i).max_decrement;
256:
257: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_LINE_AMOUNT_VALUE) THEN
258: l_line_amount_incr_val := x_tol_tab(i).max_increment;
259: l_line_amount_decr_val := x_tol_tab(i).max_decrement;
260:
261: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_AMOUNT_VALUE) THEN
257: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_LINE_AMOUNT_VALUE) THEN
258: l_line_amount_incr_val := x_tol_tab(i).max_increment;
259: l_line_amount_decr_val := x_tol_tab(i).max_decrement;
260:
261: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_AMOUNT_VALUE) THEN
262: l_ship_amount_incr_val := x_tol_tab(i).max_increment;
263: l_ship_amount_decr_val := x_tol_tab(i).max_decrement;
264:
265: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PAY_ITEM_AMOUNT_VALUE) THEN
261: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_AMOUNT_VALUE) THEN
262: l_ship_amount_incr_val := x_tol_tab(i).max_increment;
263: l_ship_amount_decr_val := x_tol_tab(i).max_decrement;
264:
265: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PAY_ITEM_AMOUNT_VALUE) THEN
266: l_pay_item_amount_incr_val := x_tol_tab(i).max_increment;
267: l_pay_item_amount_decr_val := x_tol_tab(i).max_decrement;
268:
269: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_AMOUNT_PERCENT) THEN
265: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PAY_ITEM_AMOUNT_VALUE) THEN
266: l_pay_item_amount_incr_val := x_tol_tab(i).max_increment;
267: l_pay_item_amount_decr_val := x_tol_tab(i).max_decrement;
268:
269: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_AMOUNT_PERCENT) THEN
270: l_ship_amount_incr_per := x_tol_tab(i).max_increment;
271: l_ship_amount_decr_per := x_tol_tab(i).max_decrement;
272:
273: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PAY_ITEM_AMOUNT_PERCENT) THEN
269: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_AMOUNT_PERCENT) THEN
270: l_ship_amount_incr_per := x_tol_tab(i).max_increment;
271: l_ship_amount_decr_per := x_tol_tab(i).max_decrement;
272:
273: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PAY_ITEM_AMOUNT_PERCENT) THEN
274: l_pay_item_amount_incr_per := x_tol_tab(i).max_increment;
275: l_pay_item_amount_decr_per := x_tol_tab(i).max_decrement;
276:
277:
274: l_pay_item_amount_incr_per := x_tol_tab(i).max_increment;
275: l_pay_item_amount_decr_per := x_tol_tab(i).max_decrement;
276:
277:
278: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PROMISED_DATE_APPROVAL_FLAG) THEN
279: l_prm_date_approval_flag := x_tol_tab(i).enabled_flag;
280:
281: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_QTY_APPROVAL_FLAG) THEN
282: l_ship_qty_approval_flag := x_tol_tab(i).enabled_flag;
277:
278: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PROMISED_DATE_APPROVAL_FLAG) THEN
279: l_prm_date_approval_flag := x_tol_tab(i).enabled_flag;
280:
281: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_QTY_APPROVAL_FLAG) THEN
282: l_ship_qty_approval_flag := x_tol_tab(i).enabled_flag;
283:
284: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PRICE_APPROVAL_FLAG) THEN
285: l_price_approval_flag := x_tol_tab(i).enabled_flag;
280:
281: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_SHIPMENT_QTY_APPROVAL_FLAG) THEN
282: l_ship_qty_approval_flag := x_tol_tab(i).enabled_flag;
283:
284: ELSIF(x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PRICE_APPROVAL_FLAG) THEN
285: l_price_approval_flag := x_tol_tab(i).enabled_flag;
286:
287: END IF;
288: END LOOP;