[Home] [Help]
33: -- Populate Old Values.
34: Open cur_old_ref_values;
35: Fetch cur_old_ref_values INTO old_references;
36: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
37: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
38: IGS_GE_MSG_STACK.ADD;
39: Close cur_old_ref_values;
40: App_Exception.Raise_Exception;
41: Return;
85: END IF;
86: -- Validate that inserts/updates/deletes are allowed if a person is deceased
87: -- Validate that the person is not deceased
88: IF v_deceased_ind = 'Y' THEN
89: Fnd_Message.Set_Name('IGS', 'IGS_IN_DEC_NO_INQ');
90: IGS_GE_MSG_STACK.ADD;
91: App_Exception.Raise_Exception;
92: END IF;
93: -- Validate that the item mailed date is not prior to the enquiry date.
97: IF IGR_VAL_EAPMPI.admp_val_eapmpi_dt(new_references.person_id,
98: new_references.enquiry_appl_number,
99: new_references.mailed_dt,
100: v_message_name) = FALSE THEN
101: Fnd_Message.Set_Name('IGS', v_message_name);
102: IGS_GE_MSG_STACK.ADD;
103: App_Exception.Raise_Exception;
104: END IF;
105: END IF;
119: IF NOT(IGR_I_APPL_PKG.Get_PK_For_Validation (
120: new_references.person_id,
121: new_references.enquiry_appl_number
122: ))THEN
123: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
124: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_APPL'));
125: IGS_GE_MSG_STACK.ADD;
126: App_Exception.Raise_Exception;
127: END IF;
120: new_references.person_id,
121: new_references.enquiry_appl_number
122: ))THEN
123: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
124: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_APPL'));
125: IGS_GE_MSG_STACK.ADD;
126: App_Exception.Raise_Exception;
127: END IF;
128: END IF;
133: ELSE
134: IF NOT(IGR_I_PKG_ITEM_PKG.Get_PK_For_Validation (
135: new_references.PACKAGE_ITEM_ID
136: ))THEN
137: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
138: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_PACKAGE_ITEM'));
139: IGS_GE_MSG_STACK.ADD;
140: App_Exception.Raise_Exception;
141: END IF;
134: IF NOT(IGR_I_PKG_ITEM_PKG.Get_PK_For_Validation (
135: new_references.PACKAGE_ITEM_ID
136: ))THEN
137: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
138: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_PACKAGE_ITEM'));
139: IGS_GE_MSG_STACK.ADD;
140: App_Exception.Raise_Exception;
141: END IF;
142: END IF;
157: END IF;
158: IF upper(column_name) = 'PACKAGE_ITEM_ID' OR
159: column_name is null Then
160: IF new_references.PACKAGE_ITEM_ID <> UPPER(new_references.PACKAGE_ITEM_ID) Then
161: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
162: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_PACKAGE_ITEM'));
163: IGS_GE_MSG_STACK.ADD;
164: App_Exception.Raise_Exception;
165: END IF;
158: IF upper(column_name) = 'PACKAGE_ITEM_ID' OR
159: column_name is null Then
160: IF new_references.PACKAGE_ITEM_ID <> UPPER(new_references.PACKAGE_ITEM_ID) Then
161: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
162: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_ENQ_PACKAGE_ITEM'));
163: IGS_GE_MSG_STACK.ADD;
164: App_Exception.Raise_Exception;
165: END IF;
166: END IF;
167: IF upper(column_name) = 'DONOT_MAIL_IND' OR
168: column_name is null Then
169: IF new_references.donot_mail_ind IS NOT NULL THEN
170: IF new_references.donot_mail_ind NOT IN ('Y','N') THEN
171: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
172: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_MAIL_INF'));
173: IGS_GE_MSG_STACK.ADD;
174: App_Exception.Raise_Exception;
175: END IF;
168: column_name is null Then
169: IF new_references.donot_mail_ind IS NOT NULL THEN
170: IF new_references.donot_mail_ind NOT IN ('Y','N') THEN
171: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE_WITH_CTXT');
172: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_MAIL_INF'));
173: IGS_GE_MSG_STACK.ADD;
174: App_Exception.Raise_Exception;
175: END IF;
176: END IF;
225:
226: Open cur_rowid;
227: Fetch cur_rowid INTO lv_rowid;
228: IF (cur_rowid%FOUND) THEN
229: Fnd_Message.Set_Name ('IGS', 'IGS_IN_EAPMPI_EAP_FK');
230: IGS_GE_MSG_STACK.ADD;
231: Close cur_rowid;
232: App_Exception.Raise_Exception;
233: Return;
276: new_references.enquiry_appl_number,
277: new_references.PACKAGE_ITEM_ID
278:
279: ) THEN
280: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
281: IGS_GE_MSG_STACK.ADD;
282: App_Exception.Raise_Exception;
283: END IF;
284:
297: new_references.enquiry_appl_number,
298: new_references.PACKAGE_ITEM_ID
299:
300: ) THEN
301: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
302: IGS_GE_MSG_STACK.ADD;
303: App_Exception.Raise_Exception;
304: END IF;
305: Check_Constraints;
372: else
373: X_PROGRAM_UPDATE_DATE := SYSDATE;
374: end if;
375: else
376: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
377: IGS_GE_MSG_STACK.ADD;
378: app_exception.raise_exception;
379: end if;
380:
468: begin
469: open c1;
470: fetch c1 into tlinfo;
471: if (c1%notfound) then
472: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
473: IGS_GE_MSG_STACK.ADD;
474: close c1;
475: app_exception.raise_exception;
476: return;
481: ((tlinfo.DONOT_MAIL_IND = X_DONOT_MAIL_IND) OR ((tlinfo.DONOT_MAIL_IND is null) AND (X_DONOT_MAIL_IND is null)))
482: ) then
483: null;
484: else
485: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
486: IGS_GE_MSG_STACK.ADD;
487: app_exception.raise_exception;
488: end if;
489: return;
533: if X_LAST_UPDATE_LOGIN is NULL then
534: X_LAST_UPDATE_LOGIN := -1;
535: end if;
536: else
537: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
538: IGS_GE_MSG_STACK.ADD;
539: app_exception.raise_exception;
540: end if;
541: if (X_MODE = 'R') then