[Home] [Help]
341: -- external holds design, do not validate the resp/auth id for external holds.
342: IF p_person_id IS NULL OR p_encumbrance_type IS NULL OR p_start_dt IS NULL OR p_expiry_dt IS NULL THEN
343: p_message_name := 'IGS_AD_INVALID_PARAM_COMB';
344: FND_MESSAGE.SET_NAME('IGS','IGS_AD_INVALID_PARAM_COMB');
345: IGS_GE_MSG_STACK.ADD;
346: APP_EXCEPTION.RAISE_EXCEPTION;
347: END IF;
348: ELSE
349: IF p_resp_id IS NULL OR p_fnd_user_id IS NULL OR p_person_id IS NULL OR p_encumbrance_type IS NULL OR p_start_dt IS NULL
349: IF p_resp_id IS NULL OR p_fnd_user_id IS NULL OR p_person_id IS NULL OR p_encumbrance_type IS NULL OR p_start_dt IS NULL
350: OR ( p_expiry_dt IS NULL AND p_comments IS NULL ) THEN
351: p_message_name := 'IGS_AD_INVALID_PARAM_COMB';
352: FND_MESSAGE.SET_NAME('IGS','IGS_AD_INVALID_PARAM_COMB');
353: IGS_GE_MSG_STACK.ADD;
354: APP_EXCEPTION.RAISE_EXCEPTION;
355: END IF;
356: END IF;
357:
361: IF hold_cur%NOTFOUND THEN
362: CLOSE hold_cur;
363: p_message_name := 'IGS_PE_PERS_ENCUMB_NOTEXIST';
364: FND_MESSAGE.SET_NAME('IGS','IGS_PE_PERS_ENCUMB_NOTEXIST');
365: IGS_GE_MSG_STACK.ADD;
366: APP_EXCEPTION.RAISE_EXCEPTION;
367: ELSE
368: -- if cursor found, and external hold is NOT NULL then raise error
369: IF ( p_override_resp <> 'X' AND hold_rec.external_reference IS NOT NULL) THEN
370: -- called internally and trying to release an external hold.
371: p_message_name := 'IGS_PE_CANT_REL_HOLD';
372: CLOSE hold_cur;
373: FND_MESSAGE.SET_NAME('IGS','IGS_PE_CANT_REL_HOLD');
374: IGS_GE_MSG_STACK.ADD;
375: APP_EXCEPTION.RAISE_EXCEPTION;
376: END IF;
377: END IF;
378: IF hold_cur%ISOPEN THEN
391:
392: IF l_message_name IS NOT NULL THEN
393: p_message_name := l_message_name;
394: FND_MESSAGE.SET_NAME('IGS',l_message_name);
395: IGS_GE_MSG_STACK.ADD;
396: APP_EXCEPTION.RAISE_EXCEPTION;
397: END IF;
398: END IF;
399: