[Home] [Help]
39: Fetch cur_old_ref_values INTO old_references;
40: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
41: Close cur_old_ref_values;
42: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
43: IGS_GE_MSG_STACK.ADD;
44: App_Exception.Raise_Exception;
45: Return;
46: END IF;
47: Close cur_old_ref_values;
91: IF IGS_EN_VAL_DR.enrp_val_sdrt_closed(
92: new_references.s_discontinuation_reason_type,
93: v_message_name) = FALSE THEN
94: fnd_message.set_name('IGS',v_message_name);
95: IGS_GE_MSG_STACK.ADD;
96: app_exception.raise_exception;
97: END IF;
98: END IF;
99: -- Can only set sys_dflt_ind to 'Y' if s_discontinuation_reason_type is set
104: new_references.s_discontinuation_reason_type,
105: new_references.sys_dflt_ind,
106: v_message_name) = FALSE THEN
107: fnd_message.set_name('IGS',v_message_name);
108: IGS_GE_MSG_STACK.ADD;
109: app_exception.raise_exception;
110: END IF;
111: END IF;
112:
140: column_name is NULL then
141: if new_references.sys_dflt_ind NOT IN ('Y','N') OR
142: new_references.sys_dflt_ind <>upper(new_references.sys_dflt_ind) then
143: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
144: IGS_GE_MSG_STACK.ADD;
145: App_Exception.Raise_Exception;
146: end if;
147: end if;
148: IF upper(column_name) = 'CLOSED_IND' OR
149: column_name is NULL then
150: if new_references.closed_ind NOT IN ('Y','N') OR
151: new_references.closed_ind <> upper(new_references.closed_ind) then
152: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
153: IGS_GE_MSG_STACK.ADD;
154: App_Exception.Raise_Exception;
155: end if;
156: end if;
157: IF upper(column_name) = 'DFLT_IND' OR
158: column_name is NULL then
159: if new_references.dflt_ind NOT IN ('Y','N') OR
160: new_references.dflt_ind <> upper(new_references.dflt_ind) then
161: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
162: IGS_GE_MSG_STACK.ADD;
163: App_Exception.Raise_Exception;
164: end if;
165: end if;
166: IF upper(column_name) = 'DCNT_PROGRAM_IND' OR
167: column_name is NULL then
168: if new_references.DCNT_PROGRAM_IND NOT IN ('Y','N') OR
169: new_references.DCNT_PROGRAM_IND <> upper(new_references.DCNT_PROGRAM_IND) then
170: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
171: IGS_GE_MSG_STACK.ADD;
172: App_Exception.Raise_Exception;
173: end if;
174: end if;
175: IF upper(column_name) = 'DCNT_UNIT_IND' OR
176: column_name is NULL then
177: if new_references.DCNT_UNIT_IND NOT IN ('Y','N') OR
178: new_references.DCNT_UNIT_IND <> upper(new_references.DCNT_UNIT_IND) then
179: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
180: IGS_GE_MSG_STACK.ADD;
181: App_Exception.Raise_Exception;
182: end if;
183: end if;
184:
186: column_name is NULL then
187: if new_references.discontinuation_reason_cd <>
188: upper(new_references.discontinuation_reason_cd) then
189: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
190: IGS_GE_MSG_STACK.ADD;
191: App_Exception.Raise_Exception;
192: end if;
193: end if;
194: IF upper(column_name) = 'S_DISCONTINUATION_REASON_TYPE' OR
195: column_name is NULL then
196: if new_references.s_discontinuation_reason_type <>
197: upper(new_references.s_discontinuation_reason_type) then
198: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
199: IGS_GE_MSG_STACK.ADD;
200: App_Exception.Raise_Exception;
201: end if;
202: end if;
203:
239: 'DISCONTINUATION_REASON_TYPE',
240: new_references.s_discontinuation_reason_type
241: )THEN
242: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: end if;
246: END IF;
247:
265: Fetch cur_rowid INTO lv_rowid;
266: IF (cur_rowid%FOUND) THEN
267: Close cur_rowid;
268: Fnd_Message.Set_Name ('IGS', 'IGS_EN_DR_LKUPV_FK');
269: IGS_GE_MSG_STACK.ADD;
270: App_Exception.Raise_Exception;
271: Return;
272: END IF;
273: Close cur_rowid;
321: If Get_PK_For_Validation(
322: new_references.DISCONTINUATION_REASON_CD
323: ) then
324: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
325: IGS_GE_MSG_STACK.ADD;
326: App_Exception.Raise_Exception;
327: end if;
328: Check_constraints;
329: Check_Parent_Existance;
337: If Get_PK_For_Validation(
338: new_references.DISCONTINUATION_REASON_CD
339: ) then
340: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
341: IGS_GE_MSG_STACK.ADD;
342: App_Exception.Raise_Exception;
343: end if;
344: Check_constraints;
345: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
401: X_LAST_UPDATE_LOGIN := -1;
402: end if;
403: else
404: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
405: IGS_GE_MSG_STACK.ADD;
406: app_exception.raise_exception;
407: end if;
408: Before_DML (
409: p_action => 'INSERT',
504: fetch c1 into tlinfo;
505: if (c1%notfound) then
506: close c1;
507: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
508: IGS_GE_MSG_STACK.ADD;
509: app_exception.raise_exception;
510: return;
511: end if;
512: close c1;
530: ) then
531: null;
532: else
533: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
534: IGS_GE_MSG_STACK.ADD;
535: app_exception.raise_exception;
536: end if;
537: return;
538: end LOCK_ROW;
568: X_LAST_UPDATE_LOGIN := -1;
569: end if;
570: else
571: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
572: IGS_GE_MSG_STACK.ADD;
573: app_exception.raise_exception;
574: end if;
575: Before_DML (
576: p_action => 'UPDATE',