89: Delete all rows from the
90: ic_perd_bal table for this warehouse.
91: **********************************************************/
92:
93: FND_MESSAGE.set_name('GMI', 'ICCAL_DELETE_PERD_MSG');
94: FND_MESSAGE.set_token('WHSE', x_whse_code);
95: X_msg := FND_MESSAGE.GET;
96: x_cur_time := sysdate;
97: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
90: ic_perd_bal table for this warehouse.
91: **********************************************************/
92:
93: FND_MESSAGE.set_name('GMI', 'ICCAL_DELETE_PERD_MSG');
94: FND_MESSAGE.set_token('WHSE', x_whse_code);
95: X_msg := FND_MESSAGE.GET;
96: x_cur_time := sysdate;
97: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
98: x_prev_time := x_cur_time;
91: **********************************************************/
92:
93: FND_MESSAGE.set_name('GMI', 'ICCAL_DELETE_PERD_MSG');
94: FND_MESSAGE.set_token('WHSE', x_whse_code);
95: X_msg := FND_MESSAGE.GET;
96: x_cur_time := sysdate;
97: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
98: x_prev_time := x_cur_time;
99:
98: x_prev_time := x_cur_time;
99:
100: l_iret := GMICCAL.delete_ic_perd_bal(P_fiscal_year, P_period, x_whse_code);
101: IF (l_iret < 0) THEN
102: FND_MESSAGE.SET_NAME('GMI','IC_PERD_BAL_DELETE_ERR');
103: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
104: X_msg := FND_MESSAGE.GET;
105: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
106: /*BEGIN BUG#2589255 James Bernard */
99:
100: l_iret := GMICCAL.delete_ic_perd_bal(P_fiscal_year, P_period, x_whse_code);
101: IF (l_iret < 0) THEN
102: FND_MESSAGE.SET_NAME('GMI','IC_PERD_BAL_DELETE_ERR');
103: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
104: X_msg := FND_MESSAGE.GET;
105: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
106: /*BEGIN BUG#2589255 James Bernard */
107: /*Raising x_exception as GMI_CLOS_WAREHOUSES table has to be cleaned for
100: l_iret := GMICCAL.delete_ic_perd_bal(P_fiscal_year, P_period, x_whse_code);
101: IF (l_iret < 0) THEN
102: FND_MESSAGE.SET_NAME('GMI','IC_PERD_BAL_DELETE_ERR');
103: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
104: X_msg := FND_MESSAGE.GET;
105: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
106: /*BEGIN BUG#2589255 James Bernard */
107: /*Raising x_exception as GMI_CLOS_WAREHOUSES table has to be cleaned for
108: whse row being processed */
118: /***********************************************************
119: Insert into ic_perd_bal for this warehouse.
120: *********************************************************/
121:
122: FND_MESSAGE.set_name('GMI', 'ICCAL_CREATE_PERD_MSG');
123: FND_MESSAGE.set_token('WHSE', x_whse_code);
124: X_msg := FND_MESSAGE.GET;
125: /* Debugging statements - Bug 3684980 */
126: x_cur_time := sysdate;
119: Insert into ic_perd_bal for this warehouse.
120: *********************************************************/
121:
122: FND_MESSAGE.set_name('GMI', 'ICCAL_CREATE_PERD_MSG');
123: FND_MESSAGE.set_token('WHSE', x_whse_code);
124: X_msg := FND_MESSAGE.GET;
125: /* Debugging statements - Bug 3684980 */
126: x_cur_time := sysdate;
127: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '||
120: *********************************************************/
121:
122: FND_MESSAGE.set_name('GMI', 'ICCAL_CREATE_PERD_MSG');
123: FND_MESSAGE.set_token('WHSE', x_whse_code);
124: X_msg := FND_MESSAGE.GET;
125: /* Debugging statements - Bug 3684980 */
126: x_cur_time := sysdate;
127: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '||
128: to_char(x_cur_time, 'hh24:mi:ss') );
150: /*END BUG#2589255 */
151: RETURN;
152: END IF;
153: /* Debugging statements - Bug 3684980 */
154: FND_MESSAGE.set_name('GMI', 'ICCAL_CREATE_PERD_MSG');
155: FND_MESSAGE.set_token('WHSE', x_whse_code);
156: X_msg := FND_MESSAGE.GET;
157: x_cur_time := sysdate;
158: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Completed '||X_msg || ' - '||
151: RETURN;
152: END IF;
153: /* Debugging statements - Bug 3684980 */
154: FND_MESSAGE.set_name('GMI', 'ICCAL_CREATE_PERD_MSG');
155: FND_MESSAGE.set_token('WHSE', x_whse_code);
156: X_msg := FND_MESSAGE.GET;
157: x_cur_time := sysdate;
158: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Completed '||X_msg || ' - '||
159: to_char(x_cur_time, 'hh24:mi:ss') );
152: END IF;
153: /* Debugging statements - Bug 3684980 */
154: FND_MESSAGE.set_name('GMI', 'ICCAL_CREATE_PERD_MSG');
155: FND_MESSAGE.set_token('WHSE', x_whse_code);
156: X_msg := FND_MESSAGE.GET;
157: x_cur_time := sysdate;
158: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Completed '||X_msg || ' - '||
159: to_char(x_cur_time, 'hh24:mi:ss') );
160: x_prev_time := x_cur_time;
166: /********************************************************
167: Update the status of the warehouse
168: ********************************************************/
169: /* Debugging statements - Bug 3684980 */
170: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATEWHSE_STS_MSG');
171: FND_MESSAGE.set_token('WHSE', x_whse_code);
172: X_msg := FND_MESSAGE.GET;
173: x_cur_time := sysdate;
174: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
167: Update the status of the warehouse
168: ********************************************************/
169: /* Debugging statements - Bug 3684980 */
170: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATEWHSE_STS_MSG');
171: FND_MESSAGE.set_token('WHSE', x_whse_code);
172: X_msg := FND_MESSAGE.GET;
173: x_cur_time := sysdate;
174: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
175: x_prev_time := x_cur_time;
168: ********************************************************/
169: /* Debugging statements - Bug 3684980 */
170: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATEWHSE_STS_MSG');
171: FND_MESSAGE.set_token('WHSE', x_whse_code);
172: X_msg := FND_MESSAGE.GET;
173: x_cur_time := sysdate;
174: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
175: x_prev_time := x_cur_time;
176:
177: l_iret := -1;
178: l_iret := GMICCAL.whse_status_update(x_whse_code, P_fiscal_year,
179: P_period, P_close_ind);
180: IF (l_iret < 0) THEN
181: FND_MESSAGE.SET_NAME('GMI','IC_WHSE_STATUS_UPDATE_ERR');
182: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
183: X_msg := FND_MESSAGE.GET;
184: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
185: /*BEGIN BUG#2589255 James Bernard */
178: l_iret := GMICCAL.whse_status_update(x_whse_code, P_fiscal_year,
179: P_period, P_close_ind);
180: IF (l_iret < 0) THEN
181: FND_MESSAGE.SET_NAME('GMI','IC_WHSE_STATUS_UPDATE_ERR');
182: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
183: X_msg := FND_MESSAGE.GET;
184: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
185: /*BEGIN BUG#2589255 James Bernard */
186: /*Raising x_exception as GMI_CLOS_WAREHOUSES table has to be cleaned for
179: P_period, P_close_ind);
180: IF (l_iret < 0) THEN
181: FND_MESSAGE.SET_NAME('GMI','IC_WHSE_STATUS_UPDATE_ERR');
182: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
183: X_msg := FND_MESSAGE.GET;
184: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
185: /*BEGIN BUG#2589255 James Bernard */
186: /*Raising x_exception as GMI_CLOS_WAREHOUSES table has to be cleaned for
187: whse row being processed */
190: RETURN;
191: END IF;
192:
193: /* Debugging statements - Bug 3684980 */
194: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATEWHSE_STS_MSG');
195: FND_MESSAGE.set_token('WHSE', x_whse_code);
196: X_msg := FND_MESSAGE.GET;
197: x_cur_time := sysdate;
198: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Completed '||X_msg || ' - '||
191: END IF;
192:
193: /* Debugging statements - Bug 3684980 */
194: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATEWHSE_STS_MSG');
195: FND_MESSAGE.set_token('WHSE', x_whse_code);
196: X_msg := FND_MESSAGE.GET;
197: x_cur_time := sysdate;
198: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Completed '||X_msg || ' - '||
199: to_char(x_cur_time, 'hh24:mi:ss') );
192:
193: /* Debugging statements - Bug 3684980 */
194: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATEWHSE_STS_MSG');
195: FND_MESSAGE.set_token('WHSE', x_whse_code);
196: X_msg := FND_MESSAGE.GET;
197: x_cur_time := sysdate;
198: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Completed '||X_msg || ' - '||
199: to_char(x_cur_time, 'hh24:mi:ss') );
200: x_prev_time := x_cur_time;
204: DELETE gmi_clos_warehouses
205: where inventory_close_id = P_sequence AND
206: whse_code = x_whse_code;
207: IF (SQLCODE <> 0) THEN
208: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
209: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
210: X_msg := FND_MESSAGE.GET;
211: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
212: RETURN;
205: where inventory_close_id = P_sequence AND
206: whse_code = x_whse_code;
207: IF (SQLCODE <> 0) THEN
208: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
209: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
210: X_msg := FND_MESSAGE.GET;
211: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
212: RETURN;
213: END IF;
206: whse_code = x_whse_code;
207: IF (SQLCODE <> 0) THEN
208: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
209: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
210: X_msg := FND_MESSAGE.GET;
211: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
212: RETURN;
213: END IF;
214:
225: Update the Status of the Period if required.
226: *********************************************/
227:
228: /* Debugging statements - Bug 3684980 */
229: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATE_PERIOD_MSG');
230: FND_MESSAGE.set_token('WHSE', x_whse_code);
231: X_msg := FND_MESSAGE.GET;
232: x_cur_time := sysdate;
233: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
226: *********************************************/
227:
228: /* Debugging statements - Bug 3684980 */
229: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATE_PERIOD_MSG');
230: FND_MESSAGE.set_token('WHSE', x_whse_code);
231: X_msg := FND_MESSAGE.GET;
232: x_cur_time := sysdate;
233: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
234: x_prev_time := x_cur_time;
227:
228: /* Debugging statements - Bug 3684980 */
229: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATE_PERIOD_MSG');
230: FND_MESSAGE.set_token('WHSE', x_whse_code);
231: X_msg := FND_MESSAGE.GET;
232: x_cur_time := sysdate;
233: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
234: x_prev_time := x_cur_time;
235:
237: l_iret := GMICCAL.period_status_update(P_orgn_code, p_fiscal_year,
238: P_period);
239:
240: IF(l_iret < 0) THEN
241: FND_MESSAGE.SET_NAME('GMI','IC_WHSE_STATUS_UPDATE_ERR');
242: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
243: X_msg := FND_MESSAGE.GET;
244: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
245: RETURN;
238: P_period);
239:
240: IF(l_iret < 0) THEN
241: FND_MESSAGE.SET_NAME('GMI','IC_WHSE_STATUS_UPDATE_ERR');
242: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
243: X_msg := FND_MESSAGE.GET;
244: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
245: RETURN;
246: END IF;
239:
240: IF(l_iret < 0) THEN
241: FND_MESSAGE.SET_NAME('GMI','IC_WHSE_STATUS_UPDATE_ERR');
242: FND_MESSAGE.set_token('ERRNO', TO_CHAR(l_iret));
243: X_msg := FND_MESSAGE.GET;
244: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
245: RETURN;
246: END IF;
247:
244: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
245: RETURN;
246: END IF;
247:
248: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATE_PERIOD_MSG');
249: FND_MESSAGE.set_token('WHSE', x_whse_code);
250: /* Debugging statements - Bug 3684980 */
251: x_cur_time := sysdate;
252: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Completed '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
245: RETURN;
246: END IF;
247:
248: FND_MESSAGE.set_name('GMI', 'ICCAL_UPDATE_PERIOD_MSG');
249: FND_MESSAGE.set_token('WHSE', x_whse_code);
250: /* Debugging statements - Bug 3684980 */
251: x_cur_time := sysdate;
252: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,' Completed '||X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
253: x_prev_time := x_cur_time;
256: If all is well, commit and give final message.
257: **********************************************/
258:
259: COMMIT;
260: FND_MESSAGE.SET_NAME('GMI','ICCAL_CLOSE_SUCCESS_MSG');
261: X_msg := FND_MESSAGE.GET;
262: /* Debugging statements - Bug 3684980 */
263: x_cur_time := sysdate;
264: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
257: **********************************************/
258:
259: COMMIT;
260: FND_MESSAGE.SET_NAME('GMI','ICCAL_CLOSE_SUCCESS_MSG');
261: X_msg := FND_MESSAGE.GET;
262: /* Debugging statements - Bug 3684980 */
263: x_cur_time := sysdate;
264: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg || ' - '|| to_char(x_cur_time, 'hh24:mi:ss') );
265: x_prev_time := x_cur_time;
276: where inventory_close_id = P_sequence AND
277: whse_code = x_whse_code;
278: COMMIT;
279: IF (SQL%ROWCOUNT = 0) THEN
280: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
281: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
282: X_msg := FND_MESSAGE.GET;
283: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
284: RETURN;
277: whse_code = x_whse_code;
278: COMMIT;
279: IF (SQL%ROWCOUNT = 0) THEN
280: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
281: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
282: X_msg := FND_MESSAGE.GET;
283: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
284: RETURN;
285: END IF;
278: COMMIT;
279: IF (SQL%ROWCOUNT = 0) THEN
280: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
281: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
282: X_msg := FND_MESSAGE.GET;
283: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
284: RETURN;
285: END IF;
286:
293: where inventory_close_id = P_sequence AND
294: whse_code = x_whse_code;
295: COMMIT;
296: IF (SQL%ROWCOUNT = 0) THEN
297: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
298: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
299: X_msg := FND_MESSAGE.GET;
300: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
301: RETURN;
294: whse_code = x_whse_code;
295: COMMIT;
296: IF (SQL%ROWCOUNT = 0) THEN
297: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
298: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
299: X_msg := FND_MESSAGE.GET;
300: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
301: RETURN;
302: END IF;
295: COMMIT;
296: IF (SQL%ROWCOUNT = 0) THEN
297: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
298: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
299: X_msg := FND_MESSAGE.GET;
300: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
301: RETURN;
302: END IF;
303:
310: where inventory_close_id = P_sequence AND
311: whse_code = x_whse_code;
312: COMMIT;
313: IF (SQL%ROWCOUNT = 0) THEN
314: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
315: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
316: X_msg := FND_MESSAGE.GET;
317: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
318: RETURN;
311: whse_code = x_whse_code;
312: COMMIT;
313: IF (SQL%ROWCOUNT = 0) THEN
314: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
315: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
316: X_msg := FND_MESSAGE.GET;
317: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
318: RETURN;
319: END IF;
312: COMMIT;
313: IF (SQL%ROWCOUNT = 0) THEN
314: FND_MESSAGE.SET_NAME('GMI','IC_DELETE_CLOSE_ERROR');
315: FND_MESSAGE.set_token('ERRORCODE', TO_CHAR(SQLCODE));
316: X_msg := FND_MESSAGE.GET;
317: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
318: RETURN;
319: END IF;
320:
573: This function is called from both the
574: preliminary and final CLOSE process.
575: ***********************************************/
576:
577: FND_MESSAGE.set_name('GMI','ICCAL_PERD_MSG');
578: FND_MESSAGE.set_token('WHSE',pwhse_code);
579: X_msg := FND_MESSAGE.GET;
580: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
581:
574: preliminary and final CLOSE process.
575: ***********************************************/
576:
577: FND_MESSAGE.set_name('GMI','ICCAL_PERD_MSG');
578: FND_MESSAGE.set_token('WHSE',pwhse_code);
579: X_msg := FND_MESSAGE.GET;
580: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
581:
582: FETCH get_trans INTO
575: ***********************************************/
576:
577: FND_MESSAGE.set_name('GMI','ICCAL_PERD_MSG');
578: FND_MESSAGE.set_token('WHSE',pwhse_code);
579: X_msg := FND_MESSAGE.GET;
580: -- FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
581:
582: FETCH get_trans INTO
583: l_item_id, l_lot_id, l_whse_code,
741: END IF;
742:
743: EXCEPTION
744: WHEN OTHERS THEN
745: FND_MESSAGE.SET_NAME('GMI','IC_CLOSE_GENERAL_ERROR');
746: FND_MESSAGE.SET_TOKEN('ERRNO',TO_CHAR(SQLCODE));
747: X_msg := FND_MESSAGE.GET;
748: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
749: X_errmsg := SUBSTR(SQLERRM,1,159);
742:
743: EXCEPTION
744: WHEN OTHERS THEN
745: FND_MESSAGE.SET_NAME('GMI','IC_CLOSE_GENERAL_ERROR');
746: FND_MESSAGE.SET_TOKEN('ERRNO',TO_CHAR(SQLCODE));
747: X_msg := FND_MESSAGE.GET;
748: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
749: X_errmsg := SUBSTR(SQLERRM,1,159);
750: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_errmsg);
743: EXCEPTION
744: WHEN OTHERS THEN
745: FND_MESSAGE.SET_NAME('GMI','IC_CLOSE_GENERAL_ERROR');
746: FND_MESSAGE.SET_TOKEN('ERRNO',TO_CHAR(SQLCODE));
747: X_msg := FND_MESSAGE.GET;
748: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_msg);
749: X_errmsg := SUBSTR(SQLERRM,1,159);
750: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,X_errmsg);
751: x_close_err := 1;