[Home] [Help]
190:
191: -- if both start date and term parameters are passed as null , error out NOCOPY of the process
192: IF p_start_dt IS NULL AND p_term IS NULL THEN
193: FND_MESSAGE.SET_NAME('IGS','IGS_PE_TERM_OR_START_DT') ;
194: IGS_GE_MSG_STACK.ADD;
195: RAISE l_error_exception;
196: END IF;
197:
198: -- if both start date and term parameters are passed as not null's , error out NOCOPY of the process
197:
198: -- if both start date and term parameters are passed as not null's , error out NOCOPY of the process
199: IF p_start_dt IS NOT NULL AND p_term IS NOT NULL THEN
200: FND_MESSAGE.SET_NAME('IGS','IGS_PE_TERM_OR_START_DT') ;
201: IGS_GE_MSG_STACK.ADD;
202: RAISE l_error_exception;
203: END IF;
204:
205: -- Validate that the person who has logged in has a party account and
211: l_message_name);
212:
213: IF l_message_name IS NOT NULL THEN
214: FND_MESSAGE.SET_NAME('IGS',l_message_name) ;
215: IGS_GE_MSG_STACK.ADD;
216: RAISE l_error_exception;
217: END IF;
218:
219: -- ssawhney commented the above call as its already happening in the TBH
291: ) = FALSE
292: THEN
293: ROLLBACK TO sp_person;
294: FND_MESSAGE.SET_NAME('IGS',l_message_name) ;
295: IGS_GE_MSG_STACK.ADD;
296: RAISE l_error_exception ;
297: END IF;
298:
299: -- call the procedure which creates the default effects for the encumbrance type .
307: ) ;
308: IF l_message_name IS NOT NULL THEN
309: ROLLBACK TO sp_person;
310: FND_MESSAGE.SET_NAME('IGS',l_message_name) ;
311: IGS_GE_MSG_STACK.ADD;
312: RAISE l_error_exception ;
313: END IF;
314:
315: EXCEPTION
335: WHEN OTHERS THEN
336: retcode := 2;
337: igs_pe_gen_001.g_hold_validation := 'Y';
338: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
339: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
340:
341: END set_prsid_grp_holds ; /** procedure ends here **/
342:
343:
458:
459: -- if both start date and term parameters are passed as null , error out of the process
460: IF ((p_start_dt IS NULL OR p_expiry_dt IS NULL) AND p_term IS NULL) THEN
461: FND_MESSAGE.SET_NAME('IGS','IGS_PE_TERM_OR_START_EXP_DT') ;
462: IGS_GE_MSG_STACK.ADD;
463: RAISE l_error_exception;
464: END IF;
465:
466: -- if both start date and term parameters are passed as not null's , error out of the process
465:
466: -- if both start date and term parameters are passed as not null's , error out of the process
467: IF ((p_start_dt IS NOT NULL OR p_expiry_dt IS NOT NULL) AND p_term IS NOT NULL) THEN
468: FND_MESSAGE.SET_NAME('IGS','IGS_PE_TERM_OR_START_EXP_DT') ;
469: IGS_GE_MSG_STACK.ADD;
470: RAISE l_error_exception;
471: END IF;
472:
473: -- check if expirt date is less than start date
472:
473: -- check if expirt date is less than start date
474: IF l_expiry_date < l_start_date THEN
475: FND_MESSAGE.SET_NAME('IGS','IGS_EN_EXPDT_GE_STDT') ;
476: IGS_GE_MSG_STACK.ADD;
477: RAISE l_error_exception;
478: END IF;
479:
480: -- Validate that the person who has logged in has a party account and
486: l_message_name);
487:
488: IF l_message_name IS NOT NULL THEN
489: FND_MESSAGE.SET_NAME('IGS',l_message_name) ;
490: IGS_GE_MSG_STACK.ADD;
491: RAISE l_error_exception;
492: END IF;
493:
494: l_msg_str_0 := RPAD(lookup_desc('IGS_PE_HOLDS','PERSON'),30) ||
526: FETCH c_igs_pe_pers_encumb INTO l_c_igs_pe_pers_encumb ;
527: IF c_igs_pe_pers_encumb%NOTFOUND THEN
528: CLOSE c_igs_pe_pers_encumb ;
529: FND_MESSAGE.SET_NAME('IGS','IGS_PE_PERS_ENCUMB_NOTEXIST') ;
530: IGS_GE_MSG_STACK.ADD;
531: RAISE l_ignore_exception; -- 3338759: To stop further processing and log the message
532: END IF;
533: CLOSE c_igs_pe_pers_encumb ;
534:
585: WHEN OTHERS THEN
586: retcode := 2;
587: igs_pe_gen_001.g_hold_validation := 'Y';
588: errbuf := FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION');
589: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL ;
590: END rel_prsid_grp_holds ; /** procedure ends here **/
591: END igs_pe_set_rem_holds;