139:
140: EXIT WHEN cur_debug%NOTFOUND;
141:
142: IF mrp_kanban_plan_pk.g_debug THEN
143: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_ITEM_INCOMP_LOC');
144: FND_MESSAGE.SET_TOKEN ('ITEMNAME', l_item);
145: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
146: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
147: END IF;
140: EXIT WHEN cur_debug%NOTFOUND;
141:
142: IF mrp_kanban_plan_pk.g_debug THEN
143: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_ITEM_INCOMP_LOC');
144: FND_MESSAGE.SET_TOKEN ('ITEMNAME', l_item);
145: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
146: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
147: END IF;
148:
141:
142: IF mrp_kanban_plan_pk.g_debug THEN
143: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_ITEM_INCOMP_LOC');
144: FND_MESSAGE.SET_TOKEN ('ITEMNAME', l_item);
145: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
146: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
147: END IF;
148:
149: l_count := l_count + 1;
150:
151: END LOOP;
152:
153: IF mrp_kanban_plan_pk.g_debug THEN
154: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_INCOMP_LOC');
155: FND_MESSAGE.SET_TOKEN ('NUMITEMS', to_char(l_count));
156: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
157: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
158: END IF;
151: END LOOP;
152:
153: IF mrp_kanban_plan_pk.g_debug THEN
154: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_INCOMP_LOC');
155: FND_MESSAGE.SET_TOKEN ('NUMITEMS', to_char(l_count));
156: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
157: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
158: END IF;
159:
152:
153: IF mrp_kanban_plan_pk.g_debug THEN
154: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_INCOMP_LOC');
155: FND_MESSAGE.SET_TOKEN ('NUMITEMS', to_char(l_count));
156: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
157: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
158: END IF;
159:
160: --set the flag to return warning here
258: l_loop_found := TRUE;
259:
260: IF not l_logged_loop_err_msg THEN
261: IF mrp_kanban_plan_pk.g_debug THEN
262: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_ERROR');
263: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
264: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
265:
266: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO_START');
259:
260: IF not l_logged_loop_err_msg THEN
261: IF mrp_kanban_plan_pk.g_debug THEN
262: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_ERROR');
263: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
264: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
265:
266: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO_START');
267: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
262: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_ERROR');
263: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
264: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
265:
266: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO_START');
267: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
268: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
269: END IF;
270:
263: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
264: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
265:
266: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO_START');
267: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
268: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
269: END IF;
270:
271: l_logged_loop_err_msg := TRUE;
274:
275: -- now go ahead and log messages giving details of the loop found
276:
277: IF mrp_kanban_plan_pk.g_debug THEN
278: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO');
279: FND_MESSAGE.SET_TOKEN ('PARENT_ITEM', l_parent_item);
280: FND_MESSAGE.SET_TOKEN ('PARENT_SUB', l_to_subinventory);
281: FND_MESSAGE.SET_TOKEN ('PARENT_LOC', to_char(l_parent_loc));
282: FND_MESSAGE.SET_TOKEN ('CHILD_ITEM', l_child_item);
275: -- now go ahead and log messages giving details of the loop found
276:
277: IF mrp_kanban_plan_pk.g_debug THEN
278: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO');
279: FND_MESSAGE.SET_TOKEN ('PARENT_ITEM', l_parent_item);
280: FND_MESSAGE.SET_TOKEN ('PARENT_SUB', l_to_subinventory);
281: FND_MESSAGE.SET_TOKEN ('PARENT_LOC', to_char(l_parent_loc));
282: FND_MESSAGE.SET_TOKEN ('CHILD_ITEM', l_child_item);
283: FND_MESSAGE.SET_TOKEN ('CHILD_SUB', l_from_subinventory);
276:
277: IF mrp_kanban_plan_pk.g_debug THEN
278: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO');
279: FND_MESSAGE.SET_TOKEN ('PARENT_ITEM', l_parent_item);
280: FND_MESSAGE.SET_TOKEN ('PARENT_SUB', l_to_subinventory);
281: FND_MESSAGE.SET_TOKEN ('PARENT_LOC', to_char(l_parent_loc));
282: FND_MESSAGE.SET_TOKEN ('CHILD_ITEM', l_child_item);
283: FND_MESSAGE.SET_TOKEN ('CHILD_SUB', l_from_subinventory);
284: FND_MESSAGE.SET_TOKEN ('CHILD_LOC', to_char(l_child_loc));
277: IF mrp_kanban_plan_pk.g_debug THEN
278: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO');
279: FND_MESSAGE.SET_TOKEN ('PARENT_ITEM', l_parent_item);
280: FND_MESSAGE.SET_TOKEN ('PARENT_SUB', l_to_subinventory);
281: FND_MESSAGE.SET_TOKEN ('PARENT_LOC', to_char(l_parent_loc));
282: FND_MESSAGE.SET_TOKEN ('CHILD_ITEM', l_child_item);
283: FND_MESSAGE.SET_TOKEN ('CHILD_SUB', l_from_subinventory);
284: FND_MESSAGE.SET_TOKEN ('CHILD_LOC', to_char(l_child_loc));
285: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
278: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO');
279: FND_MESSAGE.SET_TOKEN ('PARENT_ITEM', l_parent_item);
280: FND_MESSAGE.SET_TOKEN ('PARENT_SUB', l_to_subinventory);
281: FND_MESSAGE.SET_TOKEN ('PARENT_LOC', to_char(l_parent_loc));
282: FND_MESSAGE.SET_TOKEN ('CHILD_ITEM', l_child_item);
283: FND_MESSAGE.SET_TOKEN ('CHILD_SUB', l_from_subinventory);
284: FND_MESSAGE.SET_TOKEN ('CHILD_LOC', to_char(l_child_loc));
285: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
286: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
279: FND_MESSAGE.SET_TOKEN ('PARENT_ITEM', l_parent_item);
280: FND_MESSAGE.SET_TOKEN ('PARENT_SUB', l_to_subinventory);
281: FND_MESSAGE.SET_TOKEN ('PARENT_LOC', to_char(l_parent_loc));
282: FND_MESSAGE.SET_TOKEN ('CHILD_ITEM', l_child_item);
283: FND_MESSAGE.SET_TOKEN ('CHILD_SUB', l_from_subinventory);
284: FND_MESSAGE.SET_TOKEN ('CHILD_LOC', to_char(l_child_loc));
285: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
286: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
287: END IF;
280: FND_MESSAGE.SET_TOKEN ('PARENT_SUB', l_to_subinventory);
281: FND_MESSAGE.SET_TOKEN ('PARENT_LOC', to_char(l_parent_loc));
282: FND_MESSAGE.SET_TOKEN ('CHILD_ITEM', l_child_item);
283: FND_MESSAGE.SET_TOKEN ('CHILD_SUB', l_from_subinventory);
284: FND_MESSAGE.SET_TOKEN ('CHILD_LOC', to_char(l_child_loc));
285: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
286: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
287: END IF;
288:
281: FND_MESSAGE.SET_TOKEN ('PARENT_LOC', to_char(l_parent_loc));
282: FND_MESSAGE.SET_TOKEN ('CHILD_ITEM', l_child_item);
283: FND_MESSAGE.SET_TOKEN ('CHILD_SUB', l_from_subinventory);
284: FND_MESSAGE.SET_TOKEN ('CHILD_LOC', to_char(l_child_loc));
285: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
286: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
287: END IF;
288:
289: END LOOP;
292:
293: IF l_loop_found THEN
294:
295: IF mrp_kanban_plan_pk.g_debug THEN
296: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO_END');
297: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
298: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
299: END IF;
300:
293: IF l_loop_found THEN
294:
295: IF mrp_kanban_plan_pk.g_debug THEN
296: FND_MESSAGE.SET_NAME ('MRP','MRP_KANBAN_LOOP_INFO_END');
297: mrp_kanban_plan_pk.g_log_message := FND_MESSAGE.GET;
298: MRP_UTIL.MRP_LOG (mrp_kanban_plan_pk.g_log_message);
299: END IF;
300:
301: raise exc_loop_error;