[Home] [Help]
454: WHEN FND_API.G_EXC_ERROR THEN
455: outandlog('Expected Error section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
456: retcode := 2;
457: errbuf := errbuf || logerror;
458: FND_FILE.close;
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: outandlog('UnExpected Error section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
461: retcode := 2;
462: errbuf := errbuf || logerror;
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: outandlog('UnExpected Error section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
461: retcode := 2;
462: errbuf := errbuf || logerror;
463: FND_FILE.close;
464: WHEN OTHERS THEN
465: outandlog('Other Error Section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
466: retcode := 2;
467: errbuf := errbuf || logerror;
464: WHEN OTHERS THEN
465: outandlog('Other Error Section in Parent concurrent program. Aborting duplicate batch.' ||SQLERRM);
466: retcode := 2;
467: errbuf := errbuf || logerror;
468: FND_FILE.close;
469: END;
470:
471: PROCEDURE find_party_dups (
472: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
905: FND_MESSAGE.CLEAR;
906:
907: retcode := 2;
908: errbuf := 'Expected Error ' || l_cur_party_id;
909: FND_FILE.close;
910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
911: log('--------------------------------');
912: log('Unexpected Error ' || l_cur_party_id);
913: log('Error: Aborting duplicate batch');
918: FND_MESSAGE.CLEAR;
919:
920: errbuf := 'UnExpected Error ' || l_cur_party_id;
921: retcode := 2;
922: FND_FILE.close;
923: WHEN OTHERS THEN
924: log('--------------------------------');
925: log('Unknown Error ' || l_cur_party_id || ' : ' || SQLERRM);
926: log('Error: Aborting duplicate batch');
930: END LOOP;
931:
932: retcode := 2;
933: errbuf := 'UnExpected SQL Error ' || l_cur_party_id;
934: FND_FILE.close;
935: END;
936:
937: FUNCTION check_party_in_dupset (
938: p_batch_id IN NUMBER,
1186: newline IN BOOLEAN DEFAULT TRUE) IS
1187: BEGIN
1188: /*
1189: IF message = 'NEWLINE' THEN
1190: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1191: ELSIF (newline) THEN
1192: FND_FILE.put_line(fnd_file.output,message);
1193: ELSE
1194: FND_FILE.put(fnd_file.output,message);
1188: /*
1189: IF message = 'NEWLINE' THEN
1190: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1191: ELSIF (newline) THEN
1192: FND_FILE.put_line(fnd_file.output,message);
1193: ELSE
1194: FND_FILE.put(fnd_file.output,message);
1195: END IF;
1196: */
1190: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1191: ELSIF (newline) THEN
1192: FND_FILE.put_line(fnd_file.output,message);
1193: ELSE
1194: FND_FILE.put(fnd_file.output,message);
1195: END IF;
1196: */
1197: null;
1198: END out;
1204: message IN VARCHAR2,
1205: newline IN BOOLEAN DEFAULT TRUE) IS
1206: BEGIN
1207: IF message = 'NEWLINE' THEN
1208: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1209: ELSIF (newline) THEN
1210: FND_FILE.put_line(fnd_file.log,message);
1211: ELSE
1212: FND_FILE.put_line(fnd_file.log,message);
1206: BEGIN
1207: IF message = 'NEWLINE' THEN
1208: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1209: ELSIF (newline) THEN
1210: FND_FILE.put_line(fnd_file.log,message);
1211: ELSE
1212: FND_FILE.put_line(fnd_file.log,message);
1213: END IF;
1214: END log;
1208: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
1209: ELSIF (newline) THEN
1210: FND_FILE.put_line(fnd_file.log,message);
1211: ELSE
1212: FND_FILE.put_line(fnd_file.log,message);
1213: END IF;
1214: END log;
1215:
1216: /**