[Home] [Help]
32: -- Populate Old Values.
33: Open cur_old_ref_values;
34: Fetch cur_old_ref_values INTO old_references;
35: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: IGS_GE_MSG_STACK.ADD;
38: Close cur_old_ref_values;
39: App_Exception.Raise_Exception;
40: Return;
82: CLOSE c_deceased;
83: -- Validate that the person is not deceased
84: -- No insert, update, delete if a person is deceased
85: IF v_deceased_ind = 'Y' THEN
86: Fnd_Message.Set_Name('IGS', 'IGS_IN_DEC_NO_INQ');
87: IGS_GE_MSG_STACK.ADD;
88: App_Exception.Raise_Exception;
89: END IF;
90:
93:
94: -- Validate enquiry characteristic type closed indicator
95: IF IGR_VAL_ECT.admp_val_ect_closed(new_references.ENQUIRY_CHARACTERISTIC_TYPE,
96: v_message_name) = FALSE THEN
97: Fnd_Message.Set_Name('IGS', v_message_name);
98: IGS_GE_MSG_STACK.ADD;
99: App_Exception.Raise_Exception;
100: END IF;
101: END IF;
116: IF NOT(IGR_I_APPL_PKG.Get_PK_For_Validation (
117: new_references.person_id,
118: new_references.enquiry_appl_number
119: ))THEN
120: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
121: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_APPL'));
122: IGS_GE_MSG_STACK.ADD;
123: App_Exception.Raise_Exception;
124: END IF;
117: new_references.person_id,
118: new_references.enquiry_appl_number
119: ))THEN
120: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
121: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_APPL'));
122: IGS_GE_MSG_STACK.ADD;
123: App_Exception.Raise_Exception;
124: END IF;
125: END IF;
131: IF NOT(IGR_I_E_CHARTYP_PKG.Get_PK_For_Validation (
132: new_references.ENQUIRY_CHARACTERISTIC_TYPE,
133: 'N'
134: ))THEN
135: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
136: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_CHR_TYPE'));
137: IGS_GE_MSG_STACK.ADD;
138: App_Exception.Raise_Exception;
139: END IF ;
132: new_references.ENQUIRY_CHARACTERISTIC_TYPE,
133: 'N'
134: ))THEN
135: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
136: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_CHR_TYPE'));
137: IGS_GE_MSG_STACK.ADD;
138: App_Exception.Raise_Exception;
139: END IF ;
140: END IF;
153: END IF;
154: IF upper(column_name) = 'ENQUIRY_CHARACTERISTIC_TYPE' OR
155: column_name is null Then
156: IF new_references.enquiry_characteristic_type <> UPPER(new_references.enquiry_characteristic_type) Then
157: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
158: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_CHR_TYPE'));
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
154: IF upper(column_name) = 'ENQUIRY_CHARACTERISTIC_TYPE' OR
155: column_name is null Then
156: IF new_references.enquiry_characteristic_type <> UPPER(new_references.enquiry_characteristic_type) Then
157: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
158: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_CHR_TYPE'));
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
162: END IF;
211:
212: Open cur_rowid;
213: Fetch cur_rowid INTO lv_rowid;
214: IF (cur_rowid%FOUND) THEN
215: Fnd_Message.Set_Name ('IGS', 'IGS_IN_EAPECT_EAP_FK');
216: IGS_GE_MSG_STACK.ADD;
217: Close cur_rowid;
218: App_Exception.Raise_Exception;
219: Return;
237:
238: Open cur_rowid;
239: Fetch cur_rowid INTO lv_rowid;
240: IF (cur_rowid%FOUND) THEN
241: Fnd_Message.Set_Name ('IGS', 'IGS_IN_EAPECT_ECT_FK');
242: IGS_GE_MSG_STACK.ADD;
243: Close cur_rowid;
244: App_Exception.Raise_Exception;
245: Return;
283: new_references.enquiry_appl_number ,
284: new_references.enquiry_characteristic_type
285:
286: ) THEN
287: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
288: IGS_GE_MSG_STACK.ADD;
289: App_Exception.Raise_Exception;
290: END IF;
291:
305: new_references.enquiry_appl_number ,
306: new_references.enquiry_characteristic_type
307:
308: ) THEN
309: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
310: IGS_GE_MSG_STACK.ADD;
311: App_Exception.Raise_Exception;
312: END IF;
313: Check_Constraints;
348: if X_LAST_UPDATE_LOGIN is NULL then
349: X_LAST_UPDATE_LOGIN := -1;
350: end if;
351: else
352: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
353: IGS_GE_MSG_STACK.ADD;
354: app_exception.raise_exception;
355: end if;
356: Before_DML(
410: begin
411: open c1;
412: fetch c1 into tlinfo;
413: if (c1%notfound) then
414: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
415: IGS_GE_MSG_STACK.ADD;
416: close c1;
417: app_exception.raise_exception;
418: return;