193: FND_MESSAGE.SET_TOKEN('LOT_NO',l_lot_no);
194: FND_MESSAGE.SET_TOKEN('WHSE',l_whse_code);
195: FND_MESSAGE.SET_TOKEN('LOC',l_location);
196: FND_MESSAGE.SET_TOKEN('QTY',to_char(l_loct_onhand));
197: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
198: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
199: END IF;
200: END;
201: END LOOP;
194: FND_MESSAGE.SET_TOKEN('WHSE',l_whse_code);
195: FND_MESSAGE.SET_TOKEN('LOC',l_location);
196: FND_MESSAGE.SET_TOKEN('QTY',to_char(l_loct_onhand));
197: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
198: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
199: END IF;
200: END;
201: END LOOP;
202: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
221: EXCEPTION
222: WHEN invalid_arguments THEN
223: FND_MESSAGE.SET_NAME('GMI','GMI_CONC_REQUEST_INVALID_ARG');
224: FND_MESSAGE.SET_TOKEN('C',to_char(p_criteria_id));
225: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
226: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
227: WHEN OTHERS THEN
228: FND_FILE.PUT(FND_FILE.LOG,SQLERRM);
229: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
222: WHEN invalid_arguments THEN
223: FND_MESSAGE.SET_NAME('GMI','GMI_CONC_REQUEST_INVALID_ARG');
224: FND_MESSAGE.SET_TOKEN('C',to_char(p_criteria_id));
225: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
226: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
227: WHEN OTHERS THEN
228: FND_FILE.PUT(FND_FILE.LOG,SQLERRM);
229: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
230: raise;
224: FND_MESSAGE.SET_TOKEN('C',to_char(p_criteria_id));
225: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
226: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
227: WHEN OTHERS THEN
228: FND_FILE.PUT(FND_FILE.LOG,SQLERRM);
229: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
230: raise;
231: END Purge_empty_balance;
232: END GMI_PURGE_EMPTY_BAL_PKG;
225: FND_FILE.PUT(FND_FILE.LOG,FND_MESSAGE.GET);
226: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
227: WHEN OTHERS THEN
228: FND_FILE.PUT(FND_FILE.LOG,SQLERRM);
229: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
230: raise;
231: END Purge_empty_balance;
232: END GMI_PURGE_EMPTY_BAL_PKG;