401: message IN VARCHAR2,
402: newline IN BOOLEAN DEFAULT TRUE) IS
403: BEGIN
404: IF message = 'NEWLINE' THEN
405: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
406: ELSIF (newline) THEN
407: FND_FILE.put_line(fnd_file.log,message);
408: ELSE
409: FND_FILE.put(fnd_file.log,message);
403: BEGIN
404: IF message = 'NEWLINE' THEN
405: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
406: ELSIF (newline) THEN
407: FND_FILE.put_line(fnd_file.log,message);
408: ELSE
409: FND_FILE.put(fnd_file.log,message);
410: END IF;
411: END log;
405: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
406: ELSIF (newline) THEN
407: FND_FILE.put_line(fnd_file.log,message);
408: ELSE
409: FND_FILE.put(fnd_file.log,message);
410: END IF;
411: END log;
412:
413:
639: LOOP
640: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(
641: req_id, null,null,rphase,rstatus,dphase,dstatus,message);
642: IF dstatus = 'TERMINATING' THEN
643: FND_FILE.put_line(FND_FILE.log,'Aborted by User');
644: RAISE USER_TERMINATE;
645: END IF;
646: FETCH p_party_cur BULK COLLECT INTO
647: H_P_PARTY_ID