393: --
394: */
395: IF L_counter <> L_rec_counter_pos THEN
396: RETCODE := 'ERROR';
397: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
398: L_msg_data);
399: ELSIF
400: L_counter = L_rec_counter_pos THEN
401: RETCODE := 'SUCCESS';
398: L_msg_data);
399: ELSIF
400: L_counter = L_rec_counter_pos THEN
401: RETCODE := 'SUCCESS';
402: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',
403: L_msg_data);
404: END IF;
405: IF (l_debug = 1) THEN
406: mdebug('debug - 4');
702: END IF;
703: END LOOP;
704: END IF;
705: IF RETCODE = 'SUCCESS'THEN
706: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',
707: NULL);
708: ELSIF
709: RETCODE = 'WARNING'THEN
710: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',
706: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',
707: NULL);
708: ELSIF
709: RETCODE = 'WARNING'THEN
710: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',
711: NULL);
712: ELSE
713: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
714:
709: RETCODE = 'WARNING'THEN
710: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',
711: NULL);
712: ELSE
713: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
714:
715: NULL);
716: END IF;
717: END;
831: FND_FILE.PUT_LINE(FND_FILE.LOG,
832: 'Deleted rows ='|| TO_CHAR(L_counter));
833: --
834: IF RETCODE = 'SUCCESS'THEN
835: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',
836: L_return_status);
837: ELSIF
838: RETCODE = 'WARNING'THEN
839: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',
835: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',
836: L_return_status);
837: ELSIF
838: RETCODE = 'WARNING'THEN
839: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',
840: L_return_status);
841: ELSE
842: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
843: L_return_status);
838: RETCODE = 'WARNING'THEN
839: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',
840: L_return_status);
841: ELSE
842: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
843: L_return_status);
844: END IF;
845: END;
846: END;
1306: -- OR status_flag IN (0,1) AND error_flag = 2 will be deleted
1307: Purge_CCEntriesIface(ERRBUF => ERRBUF, RETCODE => RETCODE);
1308: END IF;
1309: /* IF RETCODE = 'SUCCESS'THEN
1310: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL',
1311: L_return_status);
1312:
1313: ELSIF
1314: RETCODE = 'WARNING'THEN
1311: L_return_status);
1312:
1313: ELSIF
1314: RETCODE = 'WARNING'THEN
1315: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',
1316: l_return_status);
1317: ELSE
1318: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
1319: L_return_status);
1314: RETCODE = 'WARNING'THEN
1315: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',
1316: l_return_status);
1317: ELSE
1318: L_CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
1319: L_return_status);
1320: END IF;
1321: */
1322: END;