DBA Data[Home] [Help]

APPS.GME_SCALE_BATCH_PVT dependencies on GME_DEBUG

Line 99: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

95: FETCH cur_check_zero_qty_line
96: INTO l_dummy;
97:
98: IF cur_check_zero_qty_line%FOUND THEN
99: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
100: gme_debug.put_line ('SCALE Batch : sum of either line type is 0');
101: END IF;
102:
103: gme_common_pvt.log_message ('GME_SUM_QTY_ZERO');

Line 100: gme_debug.put_line ('SCALE Batch : sum of either line type is 0');

96: INTO l_dummy;
97:
98: IF cur_check_zero_qty_line%FOUND THEN
99: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
100: gme_debug.put_line ('SCALE Batch : sum of either line type is 0');
101: END IF;
102:
103: gme_common_pvt.log_message ('GME_SUM_QTY_ZERO');
104:

Line 298: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

294: WHERE batch_id = v_batch_id);
295: BEGIN
296: x_return_status := fnd_api.g_ret_sts_success;
297:
298: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
299: gme_debug.put_line ('Scale factor is ' || p_scale_factor);
300: END IF;
301:
302: --Deleting the charges associated with the step on batch scaling.

Line 299: gme_debug.put_line ('Scale factor is ' || p_scale_factor);

295: BEGIN
296: x_return_status := fnd_api.g_ret_sts_success;
297:
298: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
299: gme_debug.put_line ('Scale factor is ' || p_scale_factor);
300: END IF;
301:
302: --Deleting the charges associated with the step on batch scaling.
303: OPEN cur_is_charge_associated (p_batch_header_rec.batch_id);

Line 311: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN

307:
308: IF cur_is_charge_associated%FOUND THEN
309: CLOSE cur_is_charge_associated;
310:
311: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
312: gme_debug.put_line ( g_pkg_name
313: || '.'
314: || l_api_name
315: || 'before call to clear charges procedure');

Line 312: gme_debug.put_line ( g_pkg_name

308: IF cur_is_charge_associated%FOUND THEN
309: CLOSE cur_is_charge_associated;
310:
311: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
312: gme_debug.put_line ( g_pkg_name
313: || '.'
314: || l_api_name
315: || 'before call to clear charges procedure');
316: END IF;

Line 347: IF g_debug <= gme_debug.g_log_statement THEN

343: ,pScale_multiple => p_material_tbl(i).scale_multiple
344: ,pDate => l_ingr_req_date
345: ,xFormulaDetail_tbl => l_formula_tbl);
346:
347: IF g_debug <= gme_debug.g_log_statement THEN
348: gme_debug.put_line('Orig '||p_material_tbl(i).formulaline_id||' '||p_material_tbl(i).inventory_item_id||' '||
349: p_material_tbl(i).plan_qty ||' '||p_material_tbl(i).dtl_um);
350:
351: gme_debug.put_line('New '||p_material_tbl(i).formulaline_id||' '||l_formula_tbl(1).item_id||' '||

Line 348: gme_debug.put_line('Orig '||p_material_tbl(i).formulaline_id||' '||p_material_tbl(i).inventory_item_id||' '||

344: ,pDate => l_ingr_req_date
345: ,xFormulaDetail_tbl => l_formula_tbl);
346:
347: IF g_debug <= gme_debug.g_log_statement THEN
348: gme_debug.put_line('Orig '||p_material_tbl(i).formulaline_id||' '||p_material_tbl(i).inventory_item_id||' '||
349: p_material_tbl(i).plan_qty ||' '||p_material_tbl(i).dtl_um);
350:
351: gme_debug.put_line('New '||p_material_tbl(i).formulaline_id||' '||l_formula_tbl(1).item_id||' '||
352: l_formula_tbl(1).qty ||' '||l_formula_tbl(1).item_um);

Line 351: gme_debug.put_line('New '||p_material_tbl(i).formulaline_id||' '||l_formula_tbl(1).item_id||' '||

347: IF g_debug <= gme_debug.g_log_statement THEN
348: gme_debug.put_line('Orig '||p_material_tbl(i).formulaline_id||' '||p_material_tbl(i).inventory_item_id||' '||
349: p_material_tbl(i).plan_qty ||' '||p_material_tbl(i).dtl_um);
350:
351: gme_debug.put_line('New '||p_material_tbl(i).formulaline_id||' '||l_formula_tbl(1).item_id||' '||
352: l_formula_tbl(1).qty ||' '||l_formula_tbl(1).item_um);
353: END IF;
354:
355: IF p_material_tbl(i).inventory_item_id <> l_formula_tbl(1).inventory_item_id THEN

Line 429: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN

425: /* LCF Changes */
426: l_validity_rule_id :=
427: NVL (p_batch_header_rec.recipe_validity_rule_id, p_validity_rule_id);
428:
429: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
430: gme_debug.put_line ( g_pkg_name
431: || '.'
432: || l_api_name
433: || 'Validity Rule ID '

Line 430: gme_debug.put_line ( g_pkg_name

426: l_validity_rule_id :=
427: NVL (p_batch_header_rec.recipe_validity_rule_id, p_validity_rule_id);
428:
429: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
430: gme_debug.put_line ( g_pkg_name
431: || '.'
432: || l_api_name
433: || 'Validity Rule ID '
434: || l_validity_rule_id);

Line 480: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN

476: END IF;
477: ELSE
478: l_enforce_vldt_check := 'F';
479:
480: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
481: gme_debug.put_line
482: ( g_pkg_name
483: || '.'
484: || l_api_name

Line 481: gme_debug.put_line

477: ELSE
478: l_enforce_vldt_check := 'F';
479:
480: IF NVL (g_debug, -1) = gme_debug.g_log_statement THEN
481: gme_debug.put_line
482: ( g_pkg_name
483: || '.'
484: || l_api_name
485: || 'Validity Rule ID NOT FOUND. This must be LCF batch');

Line 531: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

527: ,NULL
528: ,NULL);
529:
530: IF l_temp_qty < 0 THEN
531: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
532: gme_debug.put_line
533: ('Failed in UOM Conv from formula product UOM to routing UOM');
534: END IF;
535:

Line 532: gme_debug.put_line

528: ,NULL);
529:
530: IF l_temp_qty < 0 THEN
531: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
532: gme_debug.put_line
533: ('Failed in UOM Conv from formula product UOM to routing UOM');
534: END IF;
535:
536: l_item_id :=

Line 573: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN

569: -- then reservations associated to this supply
570: -- need to be decreased proportionately
571: -- ============================================
572: IF x_material_tbl(l_row_number).line_type <> -1 THEN
573: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
574: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv ');
575: END IF;
576: gme_supply_res_pvt.relieve_prod_supply_resv
577: (p_matl_dtl_rec => x_material_tbl(l_row_number)

Line 574: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv ');

570: -- need to be decreased proportionately
571: -- ============================================
572: IF x_material_tbl(l_row_number).line_type <> -1 THEN
573: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
574: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv ');
575: END IF;
576: gme_supply_res_pvt.relieve_prod_supply_resv
577: (p_matl_dtl_rec => x_material_tbl(l_row_number)
578: ,x_msg_count => l_count

Line 582: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN

578: ,x_msg_count => l_count
579: ,x_msg_data => l_list
580: ,x_return_status => x_return_status);
581:
582: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
583: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Relieve_Prod_Supply_Resv returns '||x_return_status);
584: END IF;
585:
586: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 583: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Relieve_Prod_Supply_Resv returns '||x_return_status);

579: ,x_msg_data => l_list
580: ,x_return_status => x_return_status);
581:
582: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
583: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Relieve_Prod_Supply_Resv returns '||x_return_status);
584: END IF;
585:
586: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
587: RAISE reduce_reservation_fail;

Line 731: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

727: x_material_tbl (line_index).plan_qty
728: / p_material_tbl (line_index).plan_qty;
729: END IF;
730:
731: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
732: gme_debug.put_line
733: ( 'Calling scale phantom with Scale factor '
734: || l_scale_factor);
735: END IF;

Line 732: gme_debug.put_line

728: / p_material_tbl (line_index).plan_qty;
729: END IF;
730:
731: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
732: gme_debug.put_line
733: ( 'Calling scale phantom with Scale factor '
734: || l_scale_factor);
735: END IF;
736:

Line 790: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

786: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED. Workday calendar is not associated to the organization.
787: l_use_workday_cal := fnd_api.g_false;
788: -- workday_cal cannot be used.
789: END IF;
790: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
791: gme_debug.put_line('calling reschedule_batch'||p_batch_header_rec.batch_id);
792: END IF;
793:
794: -- Call reschedule_batch for plan_start_date for the batch.

Line 791: gme_debug.put_line('calling reschedule_batch'||p_batch_header_rec.batch_id);

787: l_use_workday_cal := fnd_api.g_false;
788: -- workday_cal cannot be used.
789: END IF;
790: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
791: gme_debug.put_line('calling reschedule_batch'||p_batch_header_rec.batch_id);
792: END IF;
793:
794: -- Call reschedule_batch for plan_start_date for the batch.
795: -- Pass the p_use_workday_cal and p_contiguity_override to it.

Line 831: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

827: ELSIF p_batch_header_rec.batch_status = 2 /* WIP */ THEN
828: l_material_details_qty :=
829: NVL (x_material_tbl (mtl_dtl_index).wip_plan_qty, 0);
830: END IF;
831: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
832: gme_debug.put_line('calling scale for mat'||to_char(x_material_tbl.COUNT));
833: END IF;
834: -- In case of scale down the batch, the user will be informed for the excess actual_qty
835: -- or reserved _qty compared to plan_qty or wip_plan_qty.

Line 832: gme_debug.put_line('calling scale for mat'||to_char(x_material_tbl.COUNT));

828: l_material_details_qty :=
829: NVL (x_material_tbl (mtl_dtl_index).wip_plan_qty, 0);
830: END IF;
831: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
832: gme_debug.put_line('calling scale for mat'||to_char(x_material_tbl.COUNT));
833: END IF;
834: -- In case of scale down the batch, the user will be informed for the excess actual_qty
835: -- or reserved _qty compared to plan_qty or wip_plan_qty.
836: -- The return staus to be assigned in such case is: T- if actual_qty is in excess

Line 911: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

907:
908: -- Check return_status and populate the error message.
909: IF NVL (l_return_status_1, '*') = 'T' THEN
910: x_return_status := 'W';
911: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
912: gme_debug.put_line('l_return_status_1'||to_char(l_return_status_1));
913: gme_debug.put_line('x_return_status'||to_char(x_return_status));
914: END IF;
915: gme_common_pvt.log_message ('GME_ACTUAL_QTY_IS_IN_EXCESS');

Line 912: gme_debug.put_line('l_return_status_1'||to_char(l_return_status_1));

908: -- Check return_status and populate the error message.
909: IF NVL (l_return_status_1, '*') = 'T' THEN
910: x_return_status := 'W';
911: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
912: gme_debug.put_line('l_return_status_1'||to_char(l_return_status_1));
913: gme_debug.put_line('x_return_status'||to_char(x_return_status));
914: END IF;
915: gme_common_pvt.log_message ('GME_ACTUAL_QTY_IS_IN_EXCESS');
916: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Actual quantity is in excess.

Line 913: gme_debug.put_line('x_return_status'||to_char(x_return_status));

909: IF NVL (l_return_status_1, '*') = 'T' THEN
910: x_return_status := 'W';
911: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
912: gme_debug.put_line('l_return_status_1'||to_char(l_return_status_1));
913: gme_debug.put_line('x_return_status'||to_char(x_return_status));
914: END IF;
915: gme_common_pvt.log_message ('GME_ACTUAL_QTY_IS_IN_EXCESS');
916: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Actual quantity is in excess.
917: END IF;

Line 921: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

917: END IF;
918:
919: IF NVL (l_return_status_2, '*') = 'N' THEN
920: x_return_status := 'W';
921: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
922: gme_debug.put_line('l_return_status_2'||to_char(l_return_status_1));
923: gme_debug.put_line('x_return_status'||to_char(x_return_status));
924: END IF;
925: gme_common_pvt.log_message ('GME_RESERVED_QTY_IS_IN_EXCESS');

Line 922: gme_debug.put_line('l_return_status_2'||to_char(l_return_status_1));

918:
919: IF NVL (l_return_status_2, '*') = 'N' THEN
920: x_return_status := 'W';
921: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
922: gme_debug.put_line('l_return_status_2'||to_char(l_return_status_1));
923: gme_debug.put_line('x_return_status'||to_char(x_return_status));
924: END IF;
925: gme_common_pvt.log_message ('GME_RESERVED_QTY_IS_IN_EXCESS');
926: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Reserved quantity is in excess.

Line 923: gme_debug.put_line('x_return_status'||to_char(x_return_status));

919: IF NVL (l_return_status_2, '*') = 'N' THEN
920: x_return_status := 'W';
921: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
922: gme_debug.put_line('l_return_status_2'||to_char(l_return_status_1));
923: gme_debug.put_line('x_return_status'||to_char(x_return_status));
924: END IF;
925: gme_common_pvt.log_message ('GME_RESERVED_QTY_IS_IN_EXCESS');
926: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Reserved quantity is in excess.
927: END IF;

Line 1147: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN

1143: -- then reservations associated to this supply
1144: -- need to be decreased
1145: -- ===========================================
1146: IF x_material_details(i).line_type <> -1 THEN
1147: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1148: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv ');
1149: END IF;
1150: gme_supply_res_pvt.relieve_prod_supply_resv
1151: (p_matl_dtl_rec => x_material_details(i)

Line 1148: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv ');

1144: -- need to be decreased
1145: -- ===========================================
1146: IF x_material_details(i).line_type <> -1 THEN
1147: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1148: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoking relieve_prod_supply_resv ');
1149: END IF;
1150: gme_supply_res_pvt.relieve_prod_supply_resv
1151: (p_matl_dtl_rec => x_material_details(i)
1152: ,x_msg_count => l_message_count

Line 1171: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

1167: END IF;
1168:
1169: IF l_batch_header.batch_status <> 0 AND l_batch_header.poc_ind = 'Y' THEN
1170: IF l_batch_header.automatic_step_calculation = 1 THEN
1171: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1172: gme_debug.put_line ('GME:THEOR: Batch has ASQC');
1173: END IF;
1174:
1175: FOR l_cur_item_step_asso IN

Line 1172: gme_debug.put_line ('GME:THEOR: Batch has ASQC');

1168:
1169: IF l_batch_header.batch_status <> 0 AND l_batch_header.poc_ind = 'Y' THEN
1170: IF l_batch_header.automatic_step_calculation = 1 THEN
1171: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1172: gme_debug.put_line ('GME:THEOR: Batch has ASQC');
1173: END IF;
1174:
1175: FOR l_cur_item_step_asso IN
1176: cur_item_step_asso (l_batch_header.batch_id) LOOP

Line 1204: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

1200: ELSE
1201: l_routing_scale_factor := 1;
1202: END IF;
1203:
1204: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1205: gme_debug.put_line
1206: ( 'GME_THEOR:NOT ASQC:Routing scale factor '
1207: || l_routing_scale_factor);
1208: END IF;

Line 1205: gme_debug.put_line

1201: l_routing_scale_factor := 1;
1202: END IF;
1203:
1204: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1205: gme_debug.put_line
1206: ( 'GME_THEOR:NOT ASQC:Routing scale factor '
1207: || l_routing_scale_factor);
1208: END IF;
1209:

Line 1273: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN

1269: x_return_status := fnd_api.g_ret_sts_error;
1270: WHEN trans_qty_err THEN
1271: gme_common_pvt.log_message ('GME_THEOYLD_UNMATCH_ALLOC');
1272: WHEN reduce_reservation_fail THEN -- 4944024
1273: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1274: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Failure after relieve_prod_supply_resv ');
1275: END IF;
1276: WHEN OTHERS THEN
1277: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);

Line 1274: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Failure after relieve_prod_supply_resv ');

1270: WHEN trans_qty_err THEN
1271: gme_common_pvt.log_message ('GME_THEOYLD_UNMATCH_ALLOC');
1272: WHEN reduce_reservation_fail THEN -- 4944024
1273: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1274: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Failure after relieve_prod_supply_resv ');
1275: END IF;
1276: WHEN OTHERS THEN
1277: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1278: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 1379: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

1375: fnd_message.set_token ('FROM_UOM', l_from_uom);
1376: fnd_message.set_token ('TO_UOM', l_to_uom);
1377: fnd_msg_pub.ADD;
1378:
1379: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1380: gme_debug.put_line
1381: ( 'SCALE BATCH:Get_total_qty:Conversion error for '
1382: || l_item_no
1383: || ' From '

Line 1380: gme_debug.put_line

1376: fnd_message.set_token ('TO_UOM', l_to_uom);
1377: fnd_msg_pub.ADD;
1378:
1379: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1380: gme_debug.put_line
1381: ( 'SCALE BATCH:Get_total_qty:Conversion error for '
1382: || l_item_no
1383: || ' From '
1384: || l_from_uom

Line 1391: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

1387: END IF;
1388: WHEN OTHERS THEN
1389: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1390:
1391: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1392: gme_debug.put_line (SQLERRM);
1393: END IF;
1394:
1395: x_return_status := 'U';

Line 1392: gme_debug.put_line (SQLERRM);

1388: WHEN OTHERS THEN
1389: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1390:
1391: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1392: gme_debug.put_line (SQLERRM);
1393: END IF;
1394:
1395: x_return_status := 'U';
1396: END get_total_qty;

Line 1601: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN

1597: x_return_status := l_return_status;
1598: WHEN OTHERS THEN
1599: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1600:
1601: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1602: gme_debug.put_line (SQLERRM);
1603: END IF;
1604:
1605: x_return_status := fnd_api.g_ret_sts_unexp_error;

Line 1602: gme_debug.put_line (SQLERRM);

1598: WHEN OTHERS THEN
1599: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1600:
1601: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
1602: gme_debug.put_line (SQLERRM);
1603: END IF;
1604:
1605: x_return_status := fnd_api.g_ret_sts_unexp_error;
1606: END scale_step_and_rsrc;