103: log('Expected error when cleansing');
104: ROLLBACK TO cleanse_main_pkg;
105: Retcode := 2;
106: Errbuf := logerror(SQLERRM);
107: FND_FILE.close;
108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
109: log('Unexpected error when cleansing');
110: ROLLBACK TO cleanse_main_pkg;
111: Retcode := 2;
109: log('Unexpected error when cleansing');
110: ROLLBACK TO cleanse_main_pkg;
111: Retcode := 2;
112: Errbuf := logerror(SQLERRM);
113: FND_FILE.close;
114: WHEN OTHERS THEN
115: log('Other unexpected error when cleansing');
116: ROLLBACK TO cleanse_main_pkg;
117: Retcode := 2;
115: log('Other unexpected error when cleansing');
116: ROLLBACK TO cleanse_main_pkg;
117: Retcode := 2;
118: Errbuf := logerror(SQLERRM);
119: FND_FILE.close;
120: END cleanse_main;
121:
122: /**
123: * Procedure to write a message to the log file
126: message IN VARCHAR2,
127: newline IN BOOLEAN DEFAULT TRUE) IS
128: BEGIN
129: IF message = 'NEWLINE' THEN
130: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
131: ELSIF (newline) THEN
132: FND_FILE.put_line(fnd_file.log,message);
133: ELSE
134: FND_FILE.put_line(fnd_file.log,message);
128: BEGIN
129: IF message = 'NEWLINE' THEN
130: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
131: ELSIF (newline) THEN
132: FND_FILE.put_line(fnd_file.log,message);
133: ELSE
134: FND_FILE.put_line(fnd_file.log,message);
135: END IF;
136: END log;
130: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
131: ELSIF (newline) THEN
132: FND_FILE.put_line(fnd_file.log,message);
133: ELSE
134: FND_FILE.put_line(fnd_file.log,message);
135: END IF;
136: END log;
137:
138: /*-----------------------------------------------------------------------