164: RETURN;
165:
166: ELSIF v_return_status = 'E' THEN
167:
168: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error in FA_RETIREMENT_ADJUSTMENT_PUB.do_retirement_adjustment for asset line:'||x_project_asset_line_id);
169: FND_FILE.PUT_LINE(FND_FILE.LOG,v_msg_data);
170:
171: --Reject Unsucsessful Transactions
172: x_err_code := 500;
165:
166: ELSIF v_return_status = 'E' THEN
167:
168: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error in FA_RETIREMENT_ADJUSTMENT_PUB.do_retirement_adjustment for asset line:'||x_project_asset_line_id);
169: FND_FILE.PUT_LINE(FND_FILE.LOG,v_msg_data);
170:
171: --Reject Unsucsessful Transactions
172: x_err_code := 500;
173: x_msg_data := v_msg_data;
183:
184:
185: EXCEPTION
186: WHEN unexp_error_in_api_call THEN
187: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error in FA_RETIREMENT_ADJUSTMENT_PUB.do_retirement_adjustment.');
188: FND_FILE.PUT_LINE(FND_FILE.LOG,'SQL Error: '||SQLCODE||' '||SQLERRM);
189: FND_FILE.PUT_LINE(FND_FILE.LOG,v_msg_data);
190: x_err_code := SQLCODE;
191: x_msg_data := v_msg_data;
184:
185: EXCEPTION
186: WHEN unexp_error_in_api_call THEN
187: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error in FA_RETIREMENT_ADJUSTMENT_PUB.do_retirement_adjustment.');
188: FND_FILE.PUT_LINE(FND_FILE.LOG,'SQL Error: '||SQLCODE||' '||SQLERRM);
189: FND_FILE.PUT_LINE(FND_FILE.LOG,v_msg_data);
190: x_err_code := SQLCODE;
191: x_msg_data := v_msg_data;
192: RAISE;
185: EXCEPTION
186: WHEN unexp_error_in_api_call THEN
187: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error in FA_RETIREMENT_ADJUSTMENT_PUB.do_retirement_adjustment.');
188: FND_FILE.PUT_LINE(FND_FILE.LOG,'SQL Error: '||SQLCODE||' '||SQLERRM);
189: FND_FILE.PUT_LINE(FND_FILE.LOG,v_msg_data);
190: x_err_code := SQLCODE;
191: x_msg_data := v_msg_data;
192: RAISE;
193:
191: x_msg_data := v_msg_data;
192: RAISE;
193:
194: WHEN OTHERS THEN
195: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error in Interface Ret Cost Adj Line.');
196: FND_FILE.PUT_LINE(FND_FILE.LOG,'SQL Error: '||SQLCODE||' '||SQLERRM);
197: x_err_code := SQLCODE;
198: RAISE;
199:
192: RAISE;
193:
194: WHEN OTHERS THEN
195: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error in Interface Ret Cost Adj Line.');
196: FND_FILE.PUT_LINE(FND_FILE.LOG,'SQL Error: '||SQLCODE||' '||SQLERRM);
197: x_err_code := SQLCODE;
198: RAISE;
199:
200: END INTERFACE_RET_COST_ADJ_LINE;