448: WHEN FND_API.G_EXC_ERROR THEN
449: outandlog('Expected Error section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
450: retcode := 2;
451: errbuf := errbuf || logerror;
452: FND_FILE.close;
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: outandlog('UnExpected Error section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
455: retcode := 2;
456: errbuf := errbuf || logerror;
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: outandlog('UnExpected Error section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
455: retcode := 2;
456: errbuf := errbuf || logerror;
457: FND_FILE.close;
458: WHEN OTHERS THEN
459: outandlog('Other Error Section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
460: retcode := 2;
461: errbuf := errbuf || logerror;
458: WHEN OTHERS THEN
459: outandlog('Other Error Section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
460: retcode := 2;
461: errbuf := errbuf || logerror;
462: FND_FILE.close;
463: END;
464:
465: PROCEDURE find_party_dups (
466: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
899: FND_MESSAGE.CLEAR;
900:
901: retcode := 2;
902: errbuf := 'Expected Error ' || l_cur_party_id;
903: FND_FILE.close;
904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
905: log('--------------------------------');
906: log('Unexpected Error ' || l_cur_party_id);
907: log('Error: Aborting duplicate batch');
912: FND_MESSAGE.CLEAR;
913:
914: errbuf := 'UnExpected Error ' || l_cur_party_id;
915: retcode := 2;
916: FND_FILE.close;
917: WHEN OTHERS THEN
918: log('--------------------------------');
919: log('Unknown Error ' || l_cur_party_id || ' : ' || SQLERRM);
920: log('Error: Aborting duplicate batch');
924: END LOOP;
925:
926: retcode := 2;
927: errbuf := 'UnExpected SQL Error ' || l_cur_party_id;
928: FND_FILE.close;
929: END;
930:
931: FUNCTION check_party_in_dupset (
932: p_batch_id IN NUMBER,
1180: newline IN BOOLEAN DEFAULT TRUE) IS
1181: BEGIN
1182: /*
1183: IF message = 'NEWLINE' THEN
1184: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1185: ELSIF (newline) THEN
1186: FND_FILE.put_line(fnd_file.output,message);
1187: ELSE
1188: FND_FILE.put(fnd_file.output,message);
1182: /*
1183: IF message = 'NEWLINE' THEN
1184: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1185: ELSIF (newline) THEN
1186: FND_FILE.put_line(fnd_file.output,message);
1187: ELSE
1188: FND_FILE.put(fnd_file.output,message);
1189: END IF;
1190: */
1184: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1185: ELSIF (newline) THEN
1186: FND_FILE.put_line(fnd_file.output,message);
1187: ELSE
1188: FND_FILE.put(fnd_file.output,message);
1189: END IF;
1190: */
1191: null;
1192: END out;
1198: message IN VARCHAR2,
1199: newline IN BOOLEAN DEFAULT TRUE) IS
1200: BEGIN
1201: IF message = 'NEWLINE' THEN
1202: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1203: ELSIF (newline) THEN
1204: FND_FILE.put_line(fnd_file.log,message);
1205: ELSE
1206: FND_FILE.put_line(fnd_file.log,message);
1200: BEGIN
1201: IF message = 'NEWLINE' THEN
1202: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1203: ELSIF (newline) THEN
1204: FND_FILE.put_line(fnd_file.log,message);
1205: ELSE
1206: FND_FILE.put_line(fnd_file.log,message);
1207: END IF;
1208: END log;
1202: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1203: ELSIF (newline) THEN
1204: FND_FILE.put_line(fnd_file.log,message);
1205: ELSE
1206: FND_FILE.put_line(fnd_file.log,message);
1207: END IF;
1208: END log;
1209:
1210: /**