265:
266:
267:
268: BEGIN
269: FND_FILE.PUT_NAMES('exp_term.log','expterm.out','/sqlcom/log');
270: user_id := FND_GLOBAL.USER_ID;
271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'User_Id ='||
272: to_char(user_id));
273:
267:
268: BEGIN
269: FND_FILE.PUT_NAMES('exp_term.log','expterm.out','/sqlcom/log');
270: user_id := FND_GLOBAL.USER_ID;
271: FND_FILE.PUT_LINE(FND_FILE.LOG, 'User_Id ='||
272: to_char(user_id));
273:
274: OPEN C1;
275: While LOOPING LOOP
294:
295: IF v_status_id IS NULL THEN
296: v_retcode := ERROR;
297: Current_error_Code := to_Char(SQLCODE);
298: FND_FILE.PUT_LINE(FND_FILE.LOG,'Update unsuccessful : The v_return_status is NULL');
299: FND_FILE.PUT_LINE( FND_FILE.LOG, 'CONTRACT_ID = ' || TO_CHAR(lcontract_rec.contract_id));
300: ELSE
301:
302: msg1 := 'StatusID = ' || TO_CHAR(v_status_id);
295: IF v_status_id IS NULL THEN
296: v_retcode := ERROR;
297: Current_error_Code := to_Char(SQLCODE);
298: FND_FILE.PUT_LINE(FND_FILE.LOG,'Update unsuccessful : The v_return_status is NULL');
299: FND_FILE.PUT_LINE( FND_FILE.LOG, 'CONTRACT_ID = ' || TO_CHAR(lcontract_rec.contract_id));
300: ELSE
301:
302: msg1 := 'StatusID = ' || TO_CHAR(v_status_id);
303: msg2 := 'Contract_ID = ' || TO_CHAR(lcontract_rec.contract_id);
328:
329: IF v_return_status <> 'S' AND v_msg_count >= 1 THEN
330: v_retcode := ERROR;
331: Current_error_Code := to_Char(SQLCODE);
332: FND_FILE.PUT_LINE(FND_FILE.LOG,'Update unsuccessful : The v_return_status is' || v_return_status);
333: FND_FILE.PUT_LINE( FND_FILE.LOG, SQLCODE );
334: FND_FILE.PUT_LINE( FND_FILE.LOG, SQLERRM );
335: ELSE
336: v_retcode := SUCCESS;
329: IF v_return_status <> 'S' AND v_msg_count >= 1 THEN
330: v_retcode := ERROR;
331: Current_error_Code := to_Char(SQLCODE);
332: FND_FILE.PUT_LINE(FND_FILE.LOG,'Update unsuccessful : The v_return_status is' || v_return_status);
333: FND_FILE.PUT_LINE( FND_FILE.LOG, SQLCODE );
334: FND_FILE.PUT_LINE( FND_FILE.LOG, SQLERRM );
335: ELSE
336: v_retcode := SUCCESS;
337: Current_error_Code := to_Char(SQLCODE);
330: v_retcode := ERROR;
331: Current_error_Code := to_Char(SQLCODE);
332: FND_FILE.PUT_LINE(FND_FILE.LOG,'Update unsuccessful : The v_return_status is' || v_return_status);
333: FND_FILE.PUT_LINE( FND_FILE.LOG, SQLCODE );
334: FND_FILE.PUT_LINE( FND_FILE.LOG, SQLERRM );
335: ELSE
336: v_retcode := SUCCESS;
337: Current_error_Code := to_Char(SQLCODE);
338: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Update successfully completed' );
334: FND_FILE.PUT_LINE( FND_FILE.LOG, SQLERRM );
335: ELSE
336: v_retcode := SUCCESS;
337: Current_error_Code := to_Char(SQLCODE);
338: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Update successfully completed' );
339: FND_FILE.PUT_LINE( FND_FILE.LOG, 'CONTRACT_ID = ' || TO_CHAR(lcontract_rec.contract_id));
340: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Status Changed to ' || v_status_id );
341: END IF;
342:
335: ELSE
336: v_retcode := SUCCESS;
337: Current_error_Code := to_Char(SQLCODE);
338: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Update successfully completed' );
339: FND_FILE.PUT_LINE( FND_FILE.LOG, 'CONTRACT_ID = ' || TO_CHAR(lcontract_rec.contract_id));
340: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Status Changed to ' || v_status_id );
341: END IF;
342:
343: END IF;
336: v_retcode := SUCCESS;
337: Current_error_Code := to_Char(SQLCODE);
338: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Update successfully completed' );
339: FND_FILE.PUT_LINE( FND_FILE.LOG, 'CONTRACT_ID = ' || TO_CHAR(lcontract_rec.contract_id));
340: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Status Changed to ' || v_status_id );
341: END IF;
342:
343: END IF;
344: END IF;
357: CONC_STATUS :=
358: FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
359: END IF;
360:
361: FND_FILE.CLOSE;
362:
363:
364:
365: END exp_terminate_contract;