1069:
1070: PROCEDURE main_process(
1071: errbuf OUT NOCOPY VARCHAR2,
1072: retcode OUT NOCOPY NUMBER,
1073: p_batch_id igs_he_batch_int.batch_id%TYPE ,
1074: p_pers_det VARCHAR2 ,
1075: p_spa_det VARCHAR2
1076: ) IS
1077: /******************************************************************
2858: -- delete batch definition record if all the interface records of the batch has been imported successfully
2859: OPEN c_interface ;
2860: FETCH c_interface INTO c_interface_rec ;
2861: IF c_interface%NOTFOUND THEN
2862: DELETE FROM igs_he_batch_int WHERE batch_id = p_batch_id ;
2863: END IF ;
2864: CLOSE c_interface ;
2865:
2866: -- Submit the Error report to show the errors generated while importing hesa interface records