187:
188: IF (l_loct_onhand = 0) THEN
189: l_zero_count := l_zero_count + 1;
190: END IF;
191: FND_MESSAGE.SET_NAME('GMI','GMI_CONC_REQUEST_PURGE_LOG');
192: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
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);
188: IF (l_loct_onhand = 0) THEN
189: l_zero_count := l_zero_count + 1;
190: END IF;
191: FND_MESSAGE.SET_NAME('GMI','GMI_CONC_REQUEST_PURGE_LOG');
192: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
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));
189: l_zero_count := l_zero_count + 1;
190: END IF;
191: FND_MESSAGE.SET_NAME('GMI','GMI_CONC_REQUEST_PURGE_LOG');
192: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
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);
190: END IF;
191: FND_MESSAGE.SET_NAME('GMI','GMI_CONC_REQUEST_PURGE_LOG');
192: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
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);
191: FND_MESSAGE.SET_NAME('GMI','GMI_CONC_REQUEST_PURGE_LOG');
192: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
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;
192: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_item_no);
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;
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;
219: /******** 3377672 Purge Empty Balances Enhancment - End********/
220:
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
220:
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);
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);