[Home] [Help]
35: Open cur_old_ref_values;
36: Fetch cur_old_ref_values INTO old_references;
37: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
38: Close cur_old_ref_values;
39: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
40: IGS_GE_MSG_STACK.ADD;
41: App_Exception.Raise_Exception;
42: Return;
43: END IF;
91: IF p_inserting THEN
92: IF IGS_AD_VAL_AAL.corp_val_cort_closed(new_references.correspondence_type,
93: v_message_name) = FALSE THEN
94: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
95: FND_MESSAGE.SET_NAME('IGS',v_message_name);
96: IGS_GE_MSG_STACK.ADD;
97: APP_EXCEPTION.RAISE_EXCEPTION;
98: END IF;
99: IF IGS_AD_VAL_AAL.admp_val_aal_exists(new_references.person_id,
100: new_references.admission_appl_number,
101: new_references.correspondence_type,
102: v_message_name) = FALSE THEN
103: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
104: FND_MESSAGE.SET_NAME('IGS',v_message_name);
105: IGS_GE_MSG_STACK.ADD;
106: APP_EXCEPTION.RAISE_EXCEPTION;
107: END IF;
108: IGS_AD_GEN_002.ADMP_GET_AA_DTL(new_references.person_id,
120: v_admission_cat,
121: v_s_admission_process_type,
122: v_message_name) = FALSE THEN
123: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
124: FND_MESSAGE.SET_NAME('IGS',v_message_name);
125: IGS_GE_MSG_STACK.ADD;
126: APP_EXCEPTION.RAISE_EXCEPTION;
127: END IF;
128: END IF;
128: END IF;
129: IF ( new_references.composed_ind <> old_references.composed_ind) AND
130: new_references.spl_sequence_number IS NOT NULL THEN
131: --raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(3086));
132: FND_MESSAGE.SET_NAME('IGS','IGS_AD_CANNOT_ALTER_LETTER');
133: IGS_GE_MSG_STACK.ADD;
134: APP_EXCEPTION.RAISE_EXCEPTION;
135: END IF;
136:
149: IF NOT IGS_AD_APPL_PKG.Get_PK_For_Validation (
150: new_references.person_id,
151: new_references.admission_appl_number
152: )THEN
153: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
154: IGS_GE_MSG_STACK.ADD;
155: APP_EXCEPTION.RAISE_EXCEPTION;
156: END IF;
157: END IF;
162: ELSE
163: IF NOT IGS_CO_TYPE_PKG.Get_PK_For_Validation (
164: new_references.correspondence_type
165: )THEN
166: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
167: IGS_GE_MSG_STACK.ADD;
168: APP_EXCEPTION.RAISE_EXCEPTION;
169: END IF;
170:
182: ELSE
183: IF NOT IGS_CO_S_PER_LTR_PKG.Get_PK_For_Validation(
184: new_references.person_id,new_references.correspondence_type,new_references.letter_reference_number,
185: new_references.spl_sequence_number )THEN
186: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
187: IGS_GE_MSG_STACK.ADD;
188: APP_EXCEPTION.RAISE_EXCEPTION;
189: END IF;
190:
256: Open cur_rowid;
257: Fetch cur_rowid INTO lv_rowid;
258: IF (cur_rowid%FOUND) THEN
259: Close cur_rowid;
260: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AAL_AA_FK');
261: IGS_GE_MSG_STACK.ADD;
262: App_Exception.Raise_Exception;
263: Return;
264: END IF;
282: Open cur_rowid;
283: Fetch cur_rowid INTO lv_rowid;
284: IF (cur_rowid%FOUND) THEN
285: Close cur_rowid;
286: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AAL_CORT_FK');
287: IGS_GE_MSG_STACK.ADD;
288: App_Exception.Raise_Exception;
289: Return;
290: END IF;
314: Open cur_rowid;
315: Fetch cur_rowid INTO lv_rowid;
316: IF (cur_rowid%FOUND) THEN
317: Close cur_rowid;
318: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AAL_SPL_FK');
319: IGS_GE_MSG_STACK.ADD;
320: App_Exception.Raise_Exception;
321: Return;
322: END IF;
341: END IF;
342:
343: IF upper(column_name) = 'COMPOSED_IND' OR column_name IS NULL THEN
344: IF new_references.composed_ind NOT IN ('Y','N') THEN
345: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
346: IGS_GE_MSG_STACK.ADD;
347: APP_EXCEPTION.RAISE_EXCEPTION;
348: END IF;
349: END IF;
348: END IF;
349: END IF;
350: IF upper(column_name) = 'SPL_SEQUENCE_NUMBER' OR column_name IS NULL THEN
351: IF new_references.spl_sequence_number < 1 OR new_references.spl_sequence_number > 9999999999 THEN
352: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
353: IGS_GE_MSG_STACK.ADD;
354: APP_EXCEPTION.RAISE_EXCEPTION;
355: END IF;
356: END IF;
356: END IF;
357:
358: IF upper(column_name) = 'COMPOSED_IND' OR column_name IS NULL THEN
359: IF new_references.composed_ind <> UPPER(new_references.composed_ind) THEN
360: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
361: IGS_GE_MSG_STACK.ADD;
362: APP_EXCEPTION.RAISE_EXCEPTION;
363: END IF;
364: END IF;
363: END IF;
364: END IF;
365: IF upper(column_name) = 'CORRESPONDENCE_TYPE' OR column_name IS NULL THEN
366: IF new_references.correspondence_type <> UPPER(new_references.correspondence_type) THEN
367: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
368: IGS_GE_MSG_STACK.ADD;
369: APP_EXCEPTION.RAISE_EXCEPTION;
370: END IF;
371: END IF;
416: new_references.admission_appl_number,
417: new_references.correspondence_type,
418: new_references.sequence_number
419: )THEN
420: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
421: IGS_GE_MSG_STACK.ADD;
422: APP_EXCEPTION.RAISE_EXCEPTION;
423: END IF;
424: Check_Constraints;
439: new_references.admission_appl_number,
440: new_references.correspondence_type,
441: new_references.sequence_number
442: )THEN
443: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
444: IGS_GE_MSG_STACK.ADD;
445: APP_EXCEPTION.RAISE_EXCEPTION;
446: END IF;
447: Check_Constraints;
513: else
514: X_PROGRAM_UPDATE_DATE := SYSDATE;
515: end if;
516: else
517: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
518: IGS_GE_MSG_STACK.ADD;
519: app_exception.raise_exception;
520: end if;
521:
609: open c1;
610: fetch c1 into tlinfo;
611: if (c1%notfound) then
612: close c1;
613: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
614: IGS_GE_MSG_STACK.ADD;
615: app_exception.raise_exception;
616: return;
617: end if;
626: AND (X_SPL_SEQUENCE_NUMBER is null)))
627: ) then
628: null;
629: else
630: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
631: IGS_GE_MSG_STACK.ADD;
632: app_exception.raise_exception;
633: end if;
634: return;
666: if X_LAST_UPDATE_LOGIN is NULL then
667: X_LAST_UPDATE_LOGIN := -1;
668: end if;
669: else
670: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
671: IGS_GE_MSG_STACK.ADD;
672: app_exception.raise_exception;
673: end if;
674: