[Home] [Help]
1238: validate_addrusage_int(inq_per_addr_rec, l_status,l_tokenstr);
1239:
1240: IF l_status = 1 THEN /* Validation Successful */
1241: BEGIN
1242: INSERT INTO igs_ad_addrusage_int
1243: (
1244: last_update_login ,
1245: request_id ,
1246: program_application_id ,
1266: fnd_global.conc_program_id,
1267: sysdate ,
1268: igs_ad_addr_int_s.currval,
1269: inq_rec.org_id ,
1270: igs_ad_addrusage_int_s.nextval,
1271: inq_per_addr_rec.addr_usage ,
1272: null ,
1273: '2' ,
1274: sysdate ,
1279: null
1280: );
1281: EXCEPTION WHEN OTHERS THEN
1282: l_status:=0;
1283: fnd_file.put_line(fnd_file.log,'Insert on IGS_AD_ADDRUSAGE_INT failed '||SQLERRM);
1284: RAISE;
1285: END;
1286:
1287: UPDATE igr_is_address SET status = 'T' WHERE inq_person_id = inq_rec.inq_person_id;
1286:
1287: UPDATE igr_is_address SET status = 'T' WHERE inq_person_id = inq_rec.inq_person_id;
1288: ELSE /* l_status = 0 i.e Validation failed*/
1289: fnd_message.set_name('IGS','IGS_AD_SS_TO_INT_NULL_FAIL');
1290: fnd_message.set_token('TABLE_NAME','igs_ad_addrusage_int');
1291: fnd_message.set_token('COL_NAMES',l_tokenstr);
1292: fnd_message.set_token('ID',inq_rec.inq_person_id);
1293: fnd_file.put_line(fnd_file.log,fnd_message.get);
1294: RAISE null_validation_fails;