[Home] [Help]
69: /* Punit Kumar */
70: l_orgn_code VARCHAR2 (3);
71: error_inv_status_ins_step EXCEPTION;
72: error_no_oprn_defined EXCEPTION;
73: error_gmd_fetch_oprn EXCEPTION;
74: error_step_qty_lthan_zero EXCEPTION;
75: error_create_batch_step EXCEPTION;
76: error_calc_max_capacity EXCEPTION;
77: batch_step_fetch_error EXCEPTION;
146:
147: /* Pawan kumar bug 2509572 added code for process parameters */
148:
149: /* Punit Kumar */
150: gmd_fetch_oprn.fetch_oprn
151: (p_api_version => 1.0
152: ,p_init_msg_list => fnd_api.g_false
153: ,p_oprn_id => p_gme_batch_step.oprn_id
154: ,p_orgn_code => l_orgn_code
169: || l_message_data
170: || ' ERROR:'
171: || SQLERRM);
172: gme_debug.put_line
173: ( 'Insert_Batch_Step... GMD_FETCH_OPRN.FETCH_OPRN returned '
174: || l_recipe_rout_act.COUNT
175: || ' ACTIVITIES');
176: gme_debug.put_line
177: ( 'Insert_Batch_Step... GMD_FETCH_OPRN.FETCH_OPRN returned '
173: ( 'Insert_Batch_Step... GMD_FETCH_OPRN.FETCH_OPRN returned '
174: || l_recipe_rout_act.COUNT
175: || ' ACTIVITIES');
176: gme_debug.put_line
177: ( 'Insert_Batch_Step... GMD_FETCH_OPRN.FETCH_OPRN returned '
178: || l_recipe_rout_resc.COUNT
179: || ' RESOURCES');
180:
181: FOR i IN 1 .. l_recipe_rout_act.COUNT LOOP
179: || ' RESOURCES');
180:
181: FOR i IN 1 .. l_recipe_rout_act.COUNT LOOP
182: gme_debug.put_line
183: ( 'Insert_Batch_Step... GMD_FETCH_OPRN.FETCH_OPRN returned '
184: || l_recipe_rout_act (i).oprn_id
185: || ' operation_id');
186: gme_debug.put_line
187: ( 'Insert_Batch_Step... GMD_FETCH_OPRN.FETCH_OPRN returned '
183: ( 'Insert_Batch_Step... GMD_FETCH_OPRN.FETCH_OPRN returned '
184: || l_recipe_rout_act (i).oprn_id
185: || ' operation_id');
186: gme_debug.put_line
187: ( 'Insert_Batch_Step... GMD_FETCH_OPRN.FETCH_OPRN returned '
188: || l_recipe_rout_act (i).minimum_transfer_qty
189: || ' minimum_transfer_qty at Activity '||l_recipe_rout_act (i).activity);
190: END LOOP;
191: END IF;
190: END LOOP;
191: END IF;
192:
193: IF l_return_status <> x_return_status THEN
194: RAISE error_gmd_fetch_oprn;
195: END IF;
196:
197: IF l_recipe_rout_act.COUNT < 1 THEN
198: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
196:
197: IF l_recipe_rout_act.COUNT < 1 THEN
198: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
199: gme_debug.put_line
200: ('Insert_Batch Step - GMD_FETCH_OPRN.FETCH_OPRN returned no activities');
201: END IF;
202: gme_common_pvt.log_message('GME_AT_LEAST_ONE_ACTIVITY');
203: RAISE error_gmd_fetch_oprn;
204: END IF;
199: gme_debug.put_line
200: ('Insert_Batch Step - GMD_FETCH_OPRN.FETCH_OPRN returned no activities');
201: END IF;
202: gme_common_pvt.log_message('GME_AT_LEAST_ONE_ACTIVITY');
203: RAISE error_gmd_fetch_oprn;
204: END IF;
205:
206: IF l_recipe_rout_resc.COUNT < 1 THEN
207: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
205:
206: IF l_recipe_rout_resc.COUNT < 1 THEN
207: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
208: gme_debug.put_line
209: ('Insert_Batch Step - GMD_FETCH_OPRN.FETCH_OPRN returned no resources');
210: END IF;
211: gme_common_pvt.log_message('GME_AT_LEAST_ONE_RESOURCE');
212: RAISE error_gmd_fetch_oprn;
213: END IF;
208: gme_debug.put_line
209: ('Insert_Batch Step - GMD_FETCH_OPRN.FETCH_OPRN returned no resources');
210: END IF;
211: gme_common_pvt.log_message('GME_AT_LEAST_ONE_RESOURCE');
212: RAISE error_gmd_fetch_oprn;
213: END IF;
214:
215: -- Fill in the recipe_rout_step structure from what was filled in on p_gme_batch_step
216: -- subscript is hard-coded to 1 since this is only inserting 1 batch step....
387: END IF;
388:
389: x_return_status := fnd_api.g_ret_sts_error;
390: gme_common_pvt.log_message ('GME_NO_OPRN_DEFINED');
391: WHEN error_gmd_fetch_oprn THEN
392: x_return_status := l_return_status;
393: WHEN error_step_qty_lthan_zero THEN
394: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
395: gme_debug.put_line ('insert_step --> step qty < zero');