DBA Data[Home] [Help]

APPS.GME_SCALE_BATCH_PVT dependencies on GME_COMMON_PVT

Line 36: ,x_exception_material_tbl OUT NOCOPY gme_common_pvt.exceptions_tab

32: ,p_enforce_vldt_check IN VARCHAR2
33: ,p_recalc_dates IN VARCHAR2
34: ,p_use_workday_cal IN VARCHAR2
35: ,p_contiguity_override IN VARCHAR2
36: ,x_exception_material_tbl OUT NOCOPY gme_common_pvt.exceptions_tab
37: ,x_batch_header_rec OUT NOCOPY gme_batch_header%ROWTYPE
38: ,x_return_status OUT NOCOPY VARCHAR2)
39: IS
40: CURSOR cur_get_matl (v_batch_id NUMBER)

Line 71: l_material_tab gme_common_pvt.material_details_tab;

67: 0
68: AND line_type IN (1, -1);
69:
70: l_api_name CONSTANT VARCHAR2 (30) := 'SCALE_BATCH';
71: l_material_tab gme_common_pvt.material_details_tab;
72: x_material_tbl gme_common_pvt.material_details_tab;
73: i NUMBER := 0;
74: l_batch_status NUMBER;
75: l_step_no NUMBER;

Line 72: x_material_tbl gme_common_pvt.material_details_tab;

68: AND line_type IN (1, -1);
69:
70: l_api_name CONSTANT VARCHAR2 (30) := 'SCALE_BATCH';
71: l_material_tab gme_common_pvt.material_details_tab;
72: x_material_tbl gme_common_pvt.material_details_tab;
73: i NUMBER := 0;
74: l_batch_status NUMBER;
75: l_step_no NUMBER;
76: l_step_status NUMBER (5);

Line 103: gme_common_pvt.log_message ('GME_SUM_QTY_ZERO');

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:
105: CLOSE cur_check_zero_qty_line;
106:
107: RAISE sum_qty_zero;

Line 123: gme_common_pvt.log_message ('GME_STEP_CLOSED_ERR'

119:
120: CLOSE cur_get_step_status;
121:
122: IF NVL (l_step_status, 0) = 4 THEN
123: gme_common_pvt.log_message ('GME_STEP_CLOSED_ERR'
124: ,'STEP_NO'
125: ,l_step_no);
126: RAISE step_closed_err;
127: END IF;

Line 166: ,p_material_tbl IN gme_common_pvt.material_details_tab

162: p_batch_header_rec should have all the columns populated
163: */
164: PROCEDURE scale_batch (
165: p_batch_header_rec IN gme_batch_header%ROWTYPE
166: ,p_material_tbl IN gme_common_pvt.material_details_tab
167: ,p_scale_factor IN NUMBER
168: ,p_primaries IN VARCHAR2
169: ,p_qty_type IN NUMBER
170: ,p_validity_rule_id IN NUMBER

Line 175: ,x_exception_material_tbl OUT NOCOPY gme_common_pvt.exceptions_tab

171: ,p_enforce_vldt_check IN VARCHAR2
172: ,p_recalc_dates IN VARCHAR2
173: ,p_use_workday_cal IN VARCHAR2
174: ,p_contiguity_override IN VARCHAR2
175: ,x_exception_material_tbl OUT NOCOPY gme_common_pvt.exceptions_tab
176: ,x_batch_header_rec OUT NOCOPY gme_batch_header%ROWTYPE
177: ,x_material_tbl OUT NOCOPY gme_common_pvt.material_details_tab
178: ,x_return_status OUT NOCOPY VARCHAR2)
179: IS

Line 177: ,x_material_tbl OUT NOCOPY gme_common_pvt.material_details_tab

173: ,p_use_workday_cal IN VARCHAR2
174: ,p_contiguity_override IN VARCHAR2
175: ,x_exception_material_tbl OUT NOCOPY gme_common_pvt.exceptions_tab
176: ,x_batch_header_rec OUT NOCOPY gme_batch_header%ROWTYPE
177: ,x_material_tbl OUT NOCOPY gme_common_pvt.material_details_tab
178: ,x_return_status OUT NOCOPY VARCHAR2)
179: IS
180: /* Local variables */
181: l_api_name CONSTANT VARCHAR2 (30) := 'SCALE_BATCH';

Line 399: gme_common_pvt.log_message ('INVALID_BATCH_STATUS'

395: l_scale_tab (i).qty := p_material_tbl (i).plan_qty;
396: ELSIF p_batch_header_rec.batch_status = 2 /* WIP */ THEN
397: l_scale_tab (i).qty := p_material_tbl (i).wip_plan_qty;
398: ELSE
399: gme_common_pvt.log_message ('INVALID_BATCH_STATUS'
400: ,'PROCESS'
401: ,'Scaling');
402: RAISE invalid_status;
403: END IF;

Line 451: gme_common_pvt.log_message ('GME_API_INVALID_RULE');

447: IF l_recipe_validity_rule.recipe_validity_rule_id IS NULL
448: OR l_recipe_validity_rule.delete_mark = 1 THEN
449: -- Report error that the rule passed in is invalid
450: -- This is a fatal error and there is no point continuing
451: gme_common_pvt.log_message ('GME_API_INVALID_RULE');
452: RAISE expected_error;
453: ELSE
454: --Prevent user from scaling a pending batch whose
455: --validity rule is either obsoleted or put on hold. But user is allowed

Line 469: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD');

465:
466: IF l_status_type IN ('1000', '800') THEN
467: IF p_batch_header_rec.batch_status = 1
468: AND p_batch_header_rec.batch_type = 0 THEN
469: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD');
470: RAISE expected_error;
471: ELSIF p_batch_header_rec.batch_status = 2
472: AND p_batch_header_rec.batch_type = 0 THEN
473: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD1');

Line 473: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD1');

469: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD');
470: RAISE expected_error;
471: ELSIF p_batch_header_rec.batch_status = 2
472: AND p_batch_header_rec.batch_type = 0 THEN
473: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD1');
474: END IF;
475: END IF;
476: END IF;
477: ELSE

Line 596: gme_common_pvt.g_timestamp;

592: (x_material_tbl (l_row_number) ) ) THEN
593: RAISE material_save_failed;
594: ELSE
595: x_material_tbl (l_row_number).last_update_date :=
596: gme_common_pvt.g_timestamp;
597: x_material_tbl (l_row_number).last_updated_by :=
598: gme_common_pvt.g_user_ident;
599: x_material_tbl (l_row_number).last_update_login :=
600: gme_common_pvt.g_login_id;

Line 598: gme_common_pvt.g_user_ident;

594: ELSE
595: x_material_tbl (l_row_number).last_update_date :=
596: gme_common_pvt.g_timestamp;
597: x_material_tbl (l_row_number).last_updated_by :=
598: gme_common_pvt.g_user_ident;
599: x_material_tbl (l_row_number).last_update_login :=
600: gme_common_pvt.g_login_id;
601: END IF;
602: END IF;

Line 600: gme_common_pvt.g_login_id;

596: gme_common_pvt.g_timestamp;
597: x_material_tbl (l_row_number).last_updated_by :=
598: gme_common_pvt.g_user_ident;
599: x_material_tbl (l_row_number).last_update_login :=
600: gme_common_pvt.g_login_id;
601: END IF;
602: END IF;
603: END LOOP; /* l_row_number */
604:

Line 609: gme_common_pvt.log_message

605: /* Check the total primary product qty */
606: IF l_enforce_vldt_check = 'T' THEN
607: IF l_total_prim_prod_qty > l_recipe_validity_rule.max_qty
608: OR l_total_prim_prod_qty < l_recipe_validity_rule.min_qty THEN
609: gme_common_pvt.log_message
610: ('GME_SCALED_QTY_EXCEED_LIMITS'
611: ,'SCALE_QTY'
612: , TO_CHAR (l_total_prim_prod_qty)
613: || ' '

Line 783: IF gme_common_pvt.g_calendar_code IS NULL

779: IF p_batch_header_rec.batch_status <> 0 THEN
780: IF p_recalc_dates = 'T' THEN
781: l_use_workday_cal := p_use_workday_cal;
782:
783: IF gme_common_pvt.g_calendar_code IS NULL
784: AND p_use_workday_cal = fnd_api.g_true THEN
785: gme_common_pvt.log_message ('GME_NO_WORKDAY_CAL_ASSOCIATED');
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;

Line 785: gme_common_pvt.log_message ('GME_NO_WORKDAY_CAL_ASSOCIATED');

781: l_use_workday_cal := p_use_workday_cal;
782:
783: IF gme_common_pvt.g_calendar_code IS NULL
784: AND p_use_workday_cal = fnd_api.g_true THEN
785: gme_common_pvt.log_message ('GME_NO_WORKDAY_CAL_ASSOCIATED');
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;

Line 868: /* call to gme_common_pvt.get_reserved_qty() once */

864: END IF; /* l_actual_qty > l_material_details_qty */
865:
866: -- Check for reserved_qty in case batch is scaled down.
867: l_reserved_qty := 0;
868: /* call to gme_common_pvt.get_reserved_qty() once */
869:
870: -- l_reserved_qty := gme_common_pvt.get_reserved_qty(); --- Pass proper parameters .. Check compilation error.
871: gme_reservations_pvt.get_reserved_qty(p_mtl_dtl_rec => x_material_tbl (mtl_dtl_index),
872: x_reserved_qty => l_reserved_qty,

Line 870: -- l_reserved_qty := gme_common_pvt.get_reserved_qty(); --- Pass proper parameters .. Check compilation error.

866: -- Check for reserved_qty in case batch is scaled down.
867: l_reserved_qty := 0;
868: /* call to gme_common_pvt.get_reserved_qty() once */
869:
870: -- l_reserved_qty := gme_common_pvt.get_reserved_qty(); --- Pass proper parameters .. Check compilation error.
871: gme_reservations_pvt.get_reserved_qty(p_mtl_dtl_rec => x_material_tbl (mtl_dtl_index),
872: x_reserved_qty => l_reserved_qty,
873: x_return_status => l_return_status);
874:

Line 915: gme_common_pvt.log_message ('GME_ACTUAL_QTY_IS_IN_EXCESS');

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;
918:
919: IF NVL (l_return_status_2, '*') = 'N' THEN

Line 925: gme_common_pvt.log_message ('GME_RESERVED_QTY_IS_IN_EXCESS');

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;
928:
929: IF NVL (l_return_status_1, '*') = 'T'

Line 932: gme_common_pvt.log_message ('GME_ACTUAL_RESERV_QTY_EXCESS');

928:
929: IF NVL (l_return_status_1, '*') = 'T'
930: AND NVL (l_return_status_2, '*') = 'N' THEN
931: x_return_status := 'W';
932: gme_common_pvt.log_message ('GME_ACTUAL_RESERV_QTY_EXCESS');
933: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Actual or Reserved quantity is in excess.
934: END IF;
935: END IF; -- IF p_batch_header_rec.batch_status = 0
936: EXCEPTION

Line 952: gme_common_pvt.log_message ('GME_SCALE_UNMATCH_ALLOC');

948: x_return_status := fnd_api.g_ret_sts_error;
949: WHEN reduce_reservation_fail THEN -- 4944024
950: x_return_status := fnd_api.g_ret_sts_error; -- 4944024
951: WHEN trans_qty_err THEN
952: gme_common_pvt.log_message ('GME_SCALE_UNMATCH_ALLOC');
953: WHEN uom_conversion_error THEN
954: OPEN cur_item_no (l_item_id, p_batch_header_rec.organization_id);
955:
956: FETCH cur_item_no

Line 981: l_material_details gme_common_pvt.material_details_tab;

977: IS
978: /* Buffers for database reads/writes */
979: l_api_name CONSTANT VARCHAR2 (30) := 'THEORETICAL_YIELD_BATCH';
980: l_rec gme_material_details%ROWTYPE;
981: l_material_details gme_common_pvt.material_details_tab;
982: l_material_detail_ids gme_common_pvt.number_tab;
983: l_scale_tab gmd_common_scale.scale_tab;
984: l_in_scale_tab gmd_common_scale.scale_tab;
985: l_scale_factor NUMBER;

Line 982: l_material_detail_ids gme_common_pvt.number_tab;

978: /* Buffers for database reads/writes */
979: l_api_name CONSTANT VARCHAR2 (30) := 'THEORETICAL_YIELD_BATCH';
980: l_rec gme_material_details%ROWTYPE;
981: l_material_details gme_common_pvt.material_details_tab;
982: l_material_detail_ids gme_common_pvt.number_tab;
983: l_scale_tab gmd_common_scale.scale_tab;
984: l_in_scale_tab gmd_common_scale.scale_tab;
985: l_scale_factor NUMBER;
986: x_material_details gme_common_pvt.material_details_tab;

Line 986: x_material_details gme_common_pvt.material_details_tab;

982: l_material_detail_ids gme_common_pvt.number_tab;
983: l_scale_tab gmd_common_scale.scale_tab;
984: l_in_scale_tab gmd_common_scale.scale_tab;
985: l_scale_factor NUMBER;
986: x_material_details gme_common_pvt.material_details_tab;
987: l_batch_header gme_batch_header%ROWTYPE;
988: l_routing_scale_factor NUMBER;
989: before_scale_qty NUMBER;
990: after_scale_qty NUMBER;

Line 1079: gme_common_pvt.log_message ('GME_STEP_CLOSED_ERR'

1075:
1076: CLOSE cur_get_step_status;
1077:
1078: IF NVL (l_step_status, 0) = 4 THEN
1079: gme_common_pvt.log_message ('GME_STEP_CLOSED_ERR'
1080: ,'STEP_NO'
1081: ,l_step_no);
1082: RAISE step_closed_err;
1083: END IF; /* IF NVL(l_step_status, 0) = 4 */

Line 1135: gme_common_pvt.g_timestamp;

1131: (x_material_details (i) ) ) THEN
1132: RAISE material_save_failed;
1133: ELSE
1134: x_material_details (i).last_update_date :=
1135: gme_common_pvt.g_timestamp;
1136: x_material_details (i).last_updated_by :=
1137: gme_common_pvt.g_user_ident;
1138: x_material_details (i).last_update_login :=
1139: gme_common_pvt.g_login_id;

Line 1137: gme_common_pvt.g_user_ident;

1133: ELSE
1134: x_material_details (i).last_update_date :=
1135: gme_common_pvt.g_timestamp;
1136: x_material_details (i).last_updated_by :=
1137: gme_common_pvt.g_user_ident;
1138: x_material_details (i).last_update_login :=
1139: gme_common_pvt.g_login_id;
1140: END IF;
1141: -- 4944024 BEGIN

Line 1139: gme_common_pvt.g_login_id;

1135: gme_common_pvt.g_timestamp;
1136: x_material_details (i).last_updated_by :=
1137: gme_common_pvt.g_user_ident;
1138: x_material_details (i).last_update_login :=
1139: gme_common_pvt.g_login_id;
1140: END IF;
1141: -- 4944024 BEGIN
1142: -- If there is a decrease in anticipated yield,
1143: -- then reservations associated to this supply

Line 1259: gme_common_pvt.log_message ('GME_ACTUAL_QTY_IS_IN_EXCESS');

1255: END LOOP; /* FOR mtl_dtl_index IN 1 .. x_material_details.COUNT */
1256:
1257: IF NVL (l_return_status, '*') = 'T' THEN
1258: x_return_status := l_return_status;
1259: gme_common_pvt.log_message ('GME_ACTUAL_QTY_IS_IN_EXCESS');
1260: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Actual quantity is in excess.
1261: END IF;
1262: /****
1263: END 17Feb05 Navin Sinha Made changes for GME_Scale_Batch_Theoretical_Yield_TD.

Line 1271: gme_common_pvt.log_message ('GME_THEOYLD_UNMATCH_ALLOC');

1267: x_return_status := fnd_api.g_ret_sts_error;
1268: WHEN step_closed_err OR scale_step_and_rsrc_error OR error_updating_steps 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;

Line 1282: p_material_tab IN gme_common_pvt.material_details_tab

1278: x_return_status := fnd_api.g_ret_sts_unexp_error;
1279: END theoretical_yield_batch;
1280:
1281: FUNCTION get_total_qty (
1282: p_material_tab IN gme_common_pvt.material_details_tab
1283: ,p_batch_header_rec IN gme_batch_header%ROWTYPE)
1284: RETURN NUMBER
1285: IS
1286: CURSOR get_rout_uom (v_batch_id NUMBER)

Line 1408: l_batchstep_resource_ids gme_common_pvt.number_tab;

1404: l_api_name CONSTANT VARCHAR2 (30) := 'SCALE_STEP_AND_RSRC';
1405: l_auto_step_calc NUMBER (5);
1406: l_batch_step gme_batch_steps%ROWTYPE;
1407: l_in_batch_step gme_batch_steps%ROWTYPE;
1408: l_batchstep_resource_ids gme_common_pvt.number_tab;
1409: l_gme_batchstep_resources gme_batch_step_resources%ROWTYPE;
1410: l_gme_resource_txns_gtmp gme_resource_txns_gtmp%ROWTYPE;
1411: l_return_status VARCHAR2 (1);
1412: l_message_count NUMBER;