[Home] [Help]
1: PACKAGE BODY igs_en_gen_018 AS
2: /* $Header: IGSENA8B.pls 120.5 2006/02/23 05:50:59 ckasu ship $ */
3:
4:
5: TYPE r_msg_rec IS RECORD(upload_id igs_en_blk_sua_ints.upload_id%TYPE,
1103: p_uoo_ids => l_sub_success,
1104: p_waitlist_uoo_ids => l_sub_waitlist,
1105: p_failed_uoo_ids => l_sub_failed);
1106: IF l_sub_success IS NOT NULL THEN
1107: l_message_table(l_save_message_no).message:= l_message_table(l_save_message_no).message||';'||'IGS_EN_BLK_SUB_SUCCESS*'||igs_en_gen_018.enrp_get_unitcds(l_sub_success);
1108: --Since this message reads "Subordinates have been added", the message needs to be overwritten if
1109: --validate_enroll_validate fails. If 'W' is the status, then the error message is only appended to the list of warnings
1110: --If 'S' is the status, the current messages are replaced with the error message.IGS_EN_BLK_SUB_SUCCESS needs to be replaced
1111: IF l_message_table(l_save_message_no).type='W' THEN
1117: END IF;
1118: l_uoo_ids_list:=l_uoo_ids_list||l_sub_success;
1119: END IF;
1120: IF l_sub_failed IS NOT NULL THEN
1121: l_message_table(l_save_message_no).message:= l_message_table(l_save_message_no).message||';'||'IGS_EN_BLK_SUB_FAILED*'||igs_en_gen_018.enrp_get_unitcds(l_sub_failed);
1122: END IF;
1123: END LOOP;--processing superior uooids from concatenated string
1124: END IF; --l_abort_loop
1125:
1225: retcode:=2;
1226: ROLLBACK TO blk_sua_job;
1227: fnd_file.put_line(fnd_file.LOG,SQLERRM);
1228: Fnd_Message.Set_name('IGS','IGS_GE_UNHANDLED_EXP');
1229: FND_MESSAGE.SET_TOKEN('NAME','Igs_En_Gen_018.Enrp_batch_sua_upload');
1230: IGS_GE_MSG_STACK.ADD;
1231: igs_ge_msg_stack.conc_exception_hndl;
1232: END enrp_batch_sua_upload;
1233:
1370: END LOOP;
1371: RETURN l_unit_cds;
1372: END enrp_get_unitcds;
1373:
1374: END igs_en_gen_018;
1375: