[Home] [Help]
64: -- Populate Old Values.
65: Open cur_old_ref_values;
66: Fetch cur_old_ref_values INTO old_references;
67: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
68: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
69: IGS_GE_MSG_STACK.ADD;
70: Close cur_old_ref_values;
71: App_Exception.Raise_Exception;
72: Return;
159: FETCH c_birth_date INTO l_birth_date;
160: CLOSE c_birth_date;
161:
162: IF ((l_birth_date IS NOT NULL) AND (l_birth_date > new_references.enquiry_dt)) THEN
163: FND_MESSAGE.SET_NAME('IGS','IGS_AD_DOB_ERROR');
164: FND_MESSAGE.SET_TOKEN ('NAME',fnd_message.get_string('IGS','IGS_AD_INQ_DT'));
165: IGS_GE_MSG_STACK.ADD;
166: APP_EXCEPTION.RAISE_EXCEPTION;
167: END IF;
160: CLOSE c_birth_date;
161:
162: IF ((l_birth_date IS NOT NULL) AND (l_birth_date > new_references.enquiry_dt)) THEN
163: FND_MESSAGE.SET_NAME('IGS','IGS_AD_DOB_ERROR');
164: FND_MESSAGE.SET_TOKEN ('NAME',fnd_message.get_string('IGS','IGS_AD_INQ_DT'));
165: IGS_GE_MSG_STACK.ADD;
166: APP_EXCEPTION.RAISE_EXCEPTION;
167: END IF;
168:
173: END IF;
174: -- Validate that inserts/updates/deletes are allowed if a person is deceased
175: -- Validate that the person is not deceased
176: IF v_deceased_ind = 'Y' THEN
177: Fnd_Message.Set_Name('IGS', 'IGS_IN_DEC_NO_INQ');
178: IGS_GE_MSG_STACK.ADD;
179: App_Exception.Raise_Exception;
180: END IF;
181:
186: (new_references.indicated_mailing_dt <> TRUNC(old_references.indicated_mailing_dt))) THEN
187: IF IGR_VAL_EAP.admp_val_eap_ind_dt(new_references.enquiry_dt,
188: new_references.indicated_mailing_dt,
189: v_message_name) = FALSE THEN
190: Fnd_Message.Set_Name('IGS', v_message_name);
191: IGS_GE_MSG_STACK.ADD;
192: App_Exception.Raise_Exception;
193: END IF;
194: END IF;
204: ELSE
205: IF NOT(IGS_PE_PERSON_PKG.Get_PK_For_Validation (
206: new_references.person_id
207: ))THEN
208: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
209: IGS_GE_MSG_STACK.ADD;
210: App_Exception.Raise_Exception;
211: END IF ;
212: END IF;
216: ELSE
217: IF NOT(IGS_PE_PERSON_PKG.Get_PK_For_Validation (
218: new_references.registering_person_id
219: ))THEN
220: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
221: IGS_GE_MSG_STACK.ADD;
222: App_Exception.Raise_Exception;
223: END IF ;
224: END IF;
237: new_references.adm_ci_sequence_number,
238: new_references.acad_cal_type,
239: new_references.acad_ci_sequence_number
240: ))THEN
241: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
242: IGS_GE_MSG_STACK.ADD;
243: App_Exception.Raise_Exception;
244: END IF ;
245: END IF;
250: IF NOT(IGR_I_ENTRY_LVLS_PKG.Get_PK_For_Validation (
251: new_references.inq_entry_level_id ,
252: 'N'
253: ))THEN
254: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
255: IGS_GE_MSG_STACK.ADD;
256: App_Exception.Raise_Exception;
257: END IF ;
258: END IF;
264: new_references.edu_goal_id,
265: 'EDU_GOALS',
266: 'N'
267: ))THEN
268: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
269: IGS_GE_MSG_STACK.ADD;
270: App_Exception.Raise_Exception;
271: END IF ;
272: END IF;
278: new_references.how_knowus_id ,
279: 'INQ_HOW_KNOWUS',
280: 'N'
281: ))THEN
282: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
283: IGS_GE_MSG_STACK.ADD;
284: App_Exception.Raise_Exception;
285: END IF ;
286: END IF;
292: new_references.who_influenced_id,
293: 'INQ_WHO_INFLUENCED',
294: 'N'
295: ))THEN
296: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
297: IGS_GE_MSG_STACK.ADD;
298: App_Exception.Raise_Exception;
299: END IF ;
300: END IF;
324: END IF;
325: IF upper(column_name) = 'ACAD_CAL_TYPE' OR
326: column_name is null Then
327: IF new_references.acad_cal_type <> UPPER(new_references.acad_cal_type) Then
328: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
329: IGS_GE_MSG_STACK.ADD;
330: App_Exception.Raise_Exception;
331: END IF;
332: END IF;
333:
334: IF upper(column_name) = 'ADM_CAL_TYPE' OR
335: column_name is null Then
336: IF new_references.adm_cal_type <> UPPER(new_references.adm_cal_type) Then
337: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
338: IGS_GE_MSG_STACK.ADD;
339: App_Exception.Raise_Exception;
340: END IF;
341: END IF;
341: END IF;
342: IF upper(column_name) = 'OVERRIDE_PROCESS_IND' OR
343: column_name is null Then
344: IF new_references.override_process_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;
349: END IF;
350: IF upper(column_name) = 'ACAD_CI_SEQUENCE_NUMBER' OR
351: column_name is null Then
352: IF new_references.acad_ci_sequence_number < 1 OR new_references.acad_ci_sequence_number > 999999 Then
353: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
354: IGS_GE_MSG_STACK.ADD;
355: App_Exception.Raise_Exception;
356: END IF;
357: END IF;
357: END IF;
358: IF upper(column_name) = 'ADM_CI_SEQUENCE_NUMBER' OR
359: column_name is null Then
360: IF new_references.adm_ci_sequence_number < 1 AND new_references.adm_ci_sequence_number > 999999 Then
361: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
362: IGS_GE_MSG_STACK.ADD;
363: App_Exception.Raise_Exception;
364: END IF;
365: END IF;
422: BEGIN
423: Open cur_rowid;
424: Fetch cur_rowid INTO lv_rowid;
425: IF (cur_rowid%FOUND) THEN
426: Fnd_Message.Set_Name ('IGS', 'IGS_IN_EAP_PE_FK');
427: IGS_GE_MSG_STACK.ADD;
428: Close cur_rowid;
429: App_Exception.Raise_Exception;
430: Return;
449: BEGIN
450: Open cur_rowid;
451: Fetch cur_rowid INTO lv_rowid;
452: IF (cur_rowid%FOUND) THEN
453: Fnd_Message.Set_Name ('IGS', 'IGS_IN_EAP_CIR_FK');
454: IGS_GE_MSG_STACK.ADD;
455: Close cur_rowid;
456: App_Exception.Raise_Exception;
457: Return;
473: BEGIN
474: Open cur_rowid;
475: Fetch cur_rowid INTO lv_rowid;
476: IF (cur_rowid%FOUND) THEN
477: Fnd_Message.Set_Name ('IGS', 'IGS_IN_EAP_AIELV_FK');
478: IGS_GE_MSG_STACK.ADD;
479: Close cur_rowid;
480: App_Exception.Raise_Exception;
481: Return;
496: BEGIN
497: Open cur_rowid;
498: Fetch cur_rowid INTO lv_rowid;
499: IF (cur_rowid%FOUND) THEN
500: Fnd_Message.Set_Name ('IGS', 'IGS_IN_EAP_ADCC_FK');
501: IGS_GE_MSG_STACK.ADD;
502: Close cur_rowid;
503: App_Exception.Raise_Exception;
504: Return;
615: IF Get_PK_For_Validation (
616: new_references.person_id ,
617: new_references.enquiry_appl_number
618: ) THEN
619: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
620: IGS_GE_MSG_STACK.ADD;
621: App_Exception.Raise_Exception;
622: END IF;
623: Check_Constraints;
633: IF Get_PK_For_Validation (
634: new_references.person_id ,
635: new_references.enquiry_appl_number
636: ) THEN
637: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
638: IGS_GE_MSG_STACK.ADD;
639: App_Exception.Raise_Exception;
640: END IF;
641: Check_Constraints;
727: else
728: X_PROGRAM_UPDATE_DATE := SYSDATE;
729: end if;
730: else
731: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
732: IGS_GE_MSG_STACK.ADD;
733: app_exception.raise_exception;
734: end if;
735: X_ENQUIRY_APPL_NUMBER := NULL;
982: begin
983: open c1;
984: fetch c1 into tlinfo;
985: if (c1%notfound) then
986: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
987: IGS_GE_MSG_STACK.ADD;
988: close c1;
989: app_exception.raise_exception;
990: return;
1031: AND ((tlinfo.PKG_REDUCT_IND = X_PKG_REDUCT_IND) OR ((tlinfo.PKG_REDUCT_IND is null) AND (X_PKG_REDUCT_IND is null)))
1032: ) then
1033: null;
1034: else
1035: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1036: IGS_GE_MSG_STACK.ADD;
1037: app_exception.raise_exception;
1038: end if;
1039: return;
1103: if X_LAST_UPDATE_LOGIN is NULL then
1104: X_LAST_UPDATE_LOGIN := -1;
1105: end if;
1106: else
1107: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1108: IGS_GE_MSG_STACK.ADD;
1109: app_exception.raise_exception;
1110: end if;
1111: Before_DML(