DBA Data[Home] [Help]

APPS.GME_SCALE_BATCH_PVT dependencies on GME_COMMON_PVT

Line 39: ,x_exception_material_tbl OUT NOCOPY gme_common_pvt.exceptions_tab

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

Line 74: l_material_tab gme_common_pvt.material_details_tab;

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

Line 75: x_material_tbl gme_common_pvt.material_details_tab;

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

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

105: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
106: gme_debug.put_line ('SCALE Batch : sum of either line type is 0');
107: END IF;
108:
109: gme_common_pvt.log_message ('GME_SUM_QTY_ZERO');
110:
111: CLOSE cur_check_zero_qty_line;
112:
113: RAISE sum_qty_zero;

Line 129: gme_common_pvt.log_message ('GME_STEP_CLOSED_ERR'

125:
126: CLOSE cur_get_step_status;
127:
128: IF NVL (l_step_status, 0) = 4 THEN
129: gme_common_pvt.log_message ('GME_STEP_CLOSED_ERR'
130: ,'STEP_NO'
131: ,l_step_no);
132: RAISE step_closed_err;
133: END IF;

Line 172: ,p_material_tbl IN gme_common_pvt.material_details_tab

168: p_batch_header_rec should have all the columns populated
169: */
170: PROCEDURE scale_batch (
171: p_batch_header_rec IN gme_batch_header%ROWTYPE
172: ,p_material_tbl IN gme_common_pvt.material_details_tab
173: ,p_scale_factor IN NUMBER
174: ,p_primaries IN VARCHAR2
175: ,p_qty_type IN NUMBER
176: ,p_validity_rule_id IN NUMBER

Line 181: ,x_exception_material_tbl OUT NOCOPY gme_common_pvt.exceptions_tab

177: ,p_enforce_vldt_check IN VARCHAR2
178: ,p_recalc_dates IN VARCHAR2
179: ,p_use_workday_cal IN VARCHAR2
180: ,p_contiguity_override IN VARCHAR2
181: ,x_exception_material_tbl OUT NOCOPY gme_common_pvt.exceptions_tab
182: ,x_batch_header_rec OUT NOCOPY gme_batch_header%ROWTYPE
183: ,x_material_tbl OUT NOCOPY gme_common_pvt.material_details_tab
184: ,x_return_status OUT NOCOPY VARCHAR2)
185: IS

Line 183: ,x_material_tbl OUT NOCOPY gme_common_pvt.material_details_tab

179: ,p_use_workday_cal IN VARCHAR2
180: ,p_contiguity_override IN VARCHAR2
181: ,x_exception_material_tbl OUT NOCOPY gme_common_pvt.exceptions_tab
182: ,x_batch_header_rec OUT NOCOPY gme_batch_header%ROWTYPE
183: ,x_material_tbl OUT NOCOPY gme_common_pvt.material_details_tab
184: ,x_return_status OUT NOCOPY VARCHAR2)
185: IS
186: /* Local variables */
187: l_api_name CONSTANT VARCHAR2 (30) := 'SCALE_BATCH';

Line 405: gme_common_pvt.log_message ('INVALID_BATCH_STATUS'

401: l_scale_tab (i).qty := p_material_tbl (i).plan_qty;
402: ELSIF p_batch_header_rec.batch_status = 2 /* WIP */ THEN
403: l_scale_tab (i).qty := p_material_tbl (i).wip_plan_qty;
404: ELSE
405: gme_common_pvt.log_message ('INVALID_BATCH_STATUS'
406: ,'PROCESS'
407: ,'Scaling');
408: RAISE invalid_status;
409: END IF;

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

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

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

471:
472: IF l_status_type IN ('1000', '800') THEN
473: IF p_batch_header_rec.batch_status = 1
474: AND p_batch_header_rec.batch_type = 0 THEN
475: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD');
476: RAISE expected_error;
477: ELSIF p_batch_header_rec.batch_status = 2
478: AND p_batch_header_rec.batch_type = 0 THEN
479: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD1');

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

475: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD');
476: RAISE expected_error;
477: ELSIF p_batch_header_rec.batch_status = 2
478: AND p_batch_header_rec.batch_type = 0 THEN
479: gme_common_pvt.log_message ('GME_VALIDITY_OBSO_OR_ONHOLD1');
480: END IF;
481: END IF;
482: END IF;
483: ELSE

Line 602: gme_common_pvt.g_timestamp;

598: (x_material_tbl (l_row_number) ) ) THEN
599: RAISE material_save_failed;
600: ELSE
601: x_material_tbl (l_row_number).last_update_date :=
602: gme_common_pvt.g_timestamp;
603: x_material_tbl (l_row_number).last_updated_by :=
604: gme_common_pvt.g_user_ident;
605: x_material_tbl (l_row_number).last_update_login :=
606: gme_common_pvt.g_login_id;

Line 604: gme_common_pvt.g_user_ident;

600: ELSE
601: x_material_tbl (l_row_number).last_update_date :=
602: gme_common_pvt.g_timestamp;
603: x_material_tbl (l_row_number).last_updated_by :=
604: gme_common_pvt.g_user_ident;
605: x_material_tbl (l_row_number).last_update_login :=
606: gme_common_pvt.g_login_id;
607: END IF;
608: END IF;

Line 606: gme_common_pvt.g_login_id;

602: gme_common_pvt.g_timestamp;
603: x_material_tbl (l_row_number).last_updated_by :=
604: gme_common_pvt.g_user_ident;
605: x_material_tbl (l_row_number).last_update_login :=
606: gme_common_pvt.g_login_id;
607: END IF;
608: END IF;
609: END LOOP; /* l_row_number */
610:

Line 615: gme_common_pvt.log_message

611: /* Check the total primary product qty */
612: IF l_enforce_vldt_check = 'T' THEN
613: IF l_total_prim_prod_qty > l_recipe_validity_rule.max_qty
614: OR l_total_prim_prod_qty < l_recipe_validity_rule.min_qty THEN
615: gme_common_pvt.log_message
616: ('GME_SCALED_QTY_EXCEED_LIMITS'
617: ,'SCALE_QTY'
618: , TO_CHAR (l_total_prim_prod_qty)
619: || ' '

Line 789: IF gme_common_pvt.g_calendar_code IS NULL

785: IF p_batch_header_rec.batch_status <> 0 THEN
786: IF p_recalc_dates = 'T' THEN
787: l_use_workday_cal := p_use_workday_cal;
788:
789: IF gme_common_pvt.g_calendar_code IS NULL
790: AND p_use_workday_cal = fnd_api.g_true THEN
791: gme_common_pvt.log_message ('GME_NO_WORKDAY_CAL_ASSOCIATED');
792: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED. Workday calendar is not associated to the organization.
793: l_use_workday_cal := fnd_api.g_false;

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

787: l_use_workday_cal := p_use_workday_cal;
788:
789: IF gme_common_pvt.g_calendar_code IS NULL
790: AND p_use_workday_cal = fnd_api.g_true THEN
791: gme_common_pvt.log_message ('GME_NO_WORKDAY_CAL_ASSOCIATED');
792: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED. Workday calendar is not associated to the organization.
793: l_use_workday_cal := fnd_api.g_false;
794: -- workday_cal cannot be used.
795: END IF;

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

874: END IF; /* l_actual_qty > l_material_details_qty */
875:
876: -- Check for reserved_qty in case batch is scaled down.
877: l_reserved_qty := 0;
878: /* call to gme_common_pvt.get_reserved_qty() once */
879:
880: -- l_reserved_qty := gme_common_pvt.get_reserved_qty(); --- Pass proper parameters .. Check compilation error.
881: gme_reservations_pvt.get_reserved_qty(p_mtl_dtl_rec => x_material_tbl (mtl_dtl_index),
882: x_reserved_qty => l_reserved_qty,

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

876: -- Check for reserved_qty in case batch is scaled down.
877: l_reserved_qty := 0;
878: /* call to gme_common_pvt.get_reserved_qty() once */
879:
880: -- l_reserved_qty := gme_common_pvt.get_reserved_qty(); --- Pass proper parameters .. Check compilation error.
881: gme_reservations_pvt.get_reserved_qty(p_mtl_dtl_rec => x_material_tbl (mtl_dtl_index),
882: x_reserved_qty => l_reserved_qty,
883: x_return_status => l_return_status);
884:

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

921: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
922: gme_debug.put_line('l_return_status_1'||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_ACTUAL_QTY_IS_IN_EXCESS');
926: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Actual quantity is in excess.
927: END IF;
928:
929: IF NVL (l_return_status_2, '*') = 'N' THEN

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

931: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
932: gme_debug.put_line('l_return_status_2'||to_char(l_return_status_1));
933: gme_debug.put_line('x_return_status'||to_char(x_return_status));
934: END IF;
935: gme_common_pvt.log_message ('GME_RESERVED_QTY_IS_IN_EXCESS');
936: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Reserved quantity is in excess.
937: END IF;
938:
939: IF NVL (l_return_status_1, '*') = 'T'

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

938:
939: IF NVL (l_return_status_1, '*') = 'T'
940: AND NVL (l_return_status_2, '*') = 'N' THEN
941: x_return_status := 'W';
942: gme_common_pvt.log_message ('GME_ACTUAL_RESERV_QTY_EXCESS');
943: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Actual or Reserved quantity is in excess.
944: END IF;
945: END IF; -- IF p_batch_header_rec.batch_status = 0
946: EXCEPTION

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

958: x_return_status := fnd_api.g_ret_sts_error;
959: WHEN reduce_reservation_fail THEN -- 4944024
960: x_return_status := fnd_api.g_ret_sts_error; -- 4944024
961: WHEN trans_qty_err THEN
962: gme_common_pvt.log_message ('GME_SCALE_UNMATCH_ALLOC');
963: WHEN uom_conversion_error THEN
964: OPEN cur_item_no (l_item_id, p_batch_header_rec.organization_id);
965:
966: FETCH cur_item_no

Line 991: l_material_details gme_common_pvt.material_details_tab;

987: IS
988: /* Buffers for database reads/writes */
989: l_api_name CONSTANT VARCHAR2 (30) := 'THEORETICAL_YIELD_BATCH';
990: l_rec gme_material_details%ROWTYPE;
991: l_material_details gme_common_pvt.material_details_tab;
992: l_material_detail_ids gme_common_pvt.number_tab;
993: l_scale_tab gmd_common_scale.scale_tab;
994: l_in_scale_tab gmd_common_scale.scale_tab;
995: l_scale_factor NUMBER;

Line 992: l_material_detail_ids gme_common_pvt.number_tab;

988: /* Buffers for database reads/writes */
989: l_api_name CONSTANT VARCHAR2 (30) := 'THEORETICAL_YIELD_BATCH';
990: l_rec gme_material_details%ROWTYPE;
991: l_material_details gme_common_pvt.material_details_tab;
992: l_material_detail_ids gme_common_pvt.number_tab;
993: l_scale_tab gmd_common_scale.scale_tab;
994: l_in_scale_tab gmd_common_scale.scale_tab;
995: l_scale_factor NUMBER;
996: x_material_details gme_common_pvt.material_details_tab;

Line 996: x_material_details gme_common_pvt.material_details_tab;

992: l_material_detail_ids gme_common_pvt.number_tab;
993: l_scale_tab gmd_common_scale.scale_tab;
994: l_in_scale_tab gmd_common_scale.scale_tab;
995: l_scale_factor NUMBER;
996: x_material_details gme_common_pvt.material_details_tab;
997: l_batch_header gme_batch_header%ROWTYPE;
998: l_routing_scale_factor NUMBER;
999: before_scale_qty NUMBER;
1000: after_scale_qty NUMBER;

Line 1089: gme_common_pvt.log_message ('GME_STEP_CLOSED_ERR'

1085:
1086: CLOSE cur_get_step_status;
1087:
1088: IF NVL (l_step_status, 0) = 4 THEN
1089: gme_common_pvt.log_message ('GME_STEP_CLOSED_ERR'
1090: ,'STEP_NO'
1091: ,l_step_no);
1092: RAISE step_closed_err;
1093: END IF; /* IF NVL(l_step_status, 0) = 4 */

Line 1145: gme_common_pvt.g_timestamp;

1141: (x_material_details (i) ) ) THEN
1142: RAISE material_save_failed;
1143: ELSE
1144: x_material_details (i).last_update_date :=
1145: gme_common_pvt.g_timestamp;
1146: x_material_details (i).last_updated_by :=
1147: gme_common_pvt.g_user_ident;
1148: x_material_details (i).last_update_login :=
1149: gme_common_pvt.g_login_id;

Line 1147: gme_common_pvt.g_user_ident;

1143: ELSE
1144: x_material_details (i).last_update_date :=
1145: gme_common_pvt.g_timestamp;
1146: x_material_details (i).last_updated_by :=
1147: gme_common_pvt.g_user_ident;
1148: x_material_details (i).last_update_login :=
1149: gme_common_pvt.g_login_id;
1150: END IF;
1151: -- 4944024 BEGIN

Line 1149: gme_common_pvt.g_login_id;

1145: gme_common_pvt.g_timestamp;
1146: x_material_details (i).last_updated_by :=
1147: gme_common_pvt.g_user_ident;
1148: x_material_details (i).last_update_login :=
1149: gme_common_pvt.g_login_id;
1150: END IF;
1151: -- 4944024 BEGIN
1152: -- If there is a decrease in anticipated yield,
1153: -- then reservations associated to this supply

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

1265: END LOOP; /* FOR mtl_dtl_index IN 1 .. x_material_details.COUNT */
1266:
1267: IF NVL (l_return_status, '*') = 'T' THEN
1268: x_return_status := l_return_status;
1269: gme_common_pvt.log_message ('GME_ACTUAL_QTY_IS_IN_EXCESS');
1270: -- Navin: PENDING: NEW MESSAGE TO BE REGISTERED.: Actual quantity is in excess.
1271: END IF;
1272: /****
1273: END 17Feb05 Navin Sinha Made changes for GME_Scale_Batch_Theoretical_Yield_TD.

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

1277: x_return_status := fnd_api.g_ret_sts_error;
1278: WHEN step_closed_err OR scale_step_and_rsrc_error OR error_updating_steps THEN
1279: x_return_status := fnd_api.g_ret_sts_error;
1280: WHEN trans_qty_err THEN
1281: gme_common_pvt.log_message ('GME_THEOYLD_UNMATCH_ALLOC');
1282: WHEN reduce_reservation_fail THEN -- 4944024
1283: IF nvl(g_debug, gme_debug.g_log_procedure + 1) <= gme_debug.g_log_procedure THEN
1284: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Failure after relieve_prod_supply_resv ');
1285: END IF;

Line 1292: p_material_tab IN gme_common_pvt.material_details_tab

1288: x_return_status := fnd_api.g_ret_sts_unexp_error;
1289: END theoretical_yield_batch;
1290:
1291: FUNCTION get_total_qty (
1292: p_material_tab IN gme_common_pvt.material_details_tab
1293: ,p_batch_header_rec IN gme_batch_header%ROWTYPE)
1294: RETURN NUMBER
1295: IS
1296: CURSOR get_rout_uom (v_batch_id NUMBER)

Line 1418: l_batchstep_resource_ids gme_common_pvt.number_tab;

1414: l_api_name CONSTANT VARCHAR2 (30) := 'SCALE_STEP_AND_RSRC';
1415: l_auto_step_calc NUMBER (5);
1416: l_batch_step gme_batch_steps%ROWTYPE;
1417: l_in_batch_step gme_batch_steps%ROWTYPE;
1418: l_batchstep_resource_ids gme_common_pvt.number_tab;
1419: l_gme_batchstep_resources gme_batch_step_resources%ROWTYPE;
1420: l_gme_resource_txns_gtmp gme_resource_txns_gtmp%ROWTYPE;
1421: l_return_status VARCHAR2 (1);
1422: l_message_count NUMBER;