[Home] [Help]
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: Close cur_old_ref_values;
38: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: IGS_GE_MSG_STACK.ADD;
40: App_Exception.Raise_Exception;
41: Return;
42: END IF;
79: new_references.admission_cat,
80: v_ci_start_dt,
81: v_ci_end_dt,
82: v_message_name) = FALSE THEN
83: Fnd_Message.Set_Name('IGS',v_message_name);
84: IGS_GE_MSG_STACK.ADD;
85: App_Exception.Raise_Exception;
86: ELSE
87: -- Set start and end dates
91: -- Validate the admission category
92: IF IGS_AD_VAL_ACCT.admp_val_ac_closed(
93: new_references.admission_cat,
94: v_message_name) = FALSE THEN
95: Fnd_Message.Set_Name('IGS',v_message_name);
96: IGS_GE_MSG_STACK.ADD;
97: App_Exception.Raise_Exception;
98: END IF;
99: END IF;
117: END IF;
118:
119: IF upper(column_name) = 'ADM_CAL_TYPE' OR column_name is null Then
120: IF new_references.adm_cal_type <> UPPER(new_references.adm_cal_type) Then
121: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
122: IGS_GE_MSG_STACK.ADD;
123: App_Exception.Raise_Exception;
124: END IF;
125: END IF;
125: END IF;
126:
127: IF upper(column_name) = 'ADMISSION_CAT' OR column_name is null Then
128: IF new_references.admission_cat <> UPPER(new_references.admission_cat) Then
129: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
130: IGS_GE_MSG_STACK.ADD;
131: App_Exception.Raise_Exception;
132: END IF;
133: END IF;
142: ELSE
143: IF NOT IGS_AD_CAT_PKG.Get_PK_For_Validation (
144: new_references.admission_cat , 'N'
145: ) THEN
146: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
147: IGS_GE_MSG_STACK.ADD;
148: App_Exception.Raise_Exception;
149: END IF;
150: END IF;
165: new_references.adm_ci_sequence_number,
166: new_references.ci_start_dt,
167: new_references.ci_end_dt
168: ) THEN
169: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
170: IGS_GE_MSG_STACK.ADD;
171: App_Exception.Raise_Exception;
172: END IF;
173: END IF;
235: Open cur_rowid;
236: Fetch cur_rowid INTO lv_rowid;
237: IF (cur_rowid%FOUND) THEN
238: Close cur_rowid;
239: Fnd_Message.Set_Name ('IGS', 'IGS_AD_APAC_AC_FK');
240: IGS_GE_MSG_STACK.ADD;
241: App_Exception.Raise_Exception;
242: Return;
243: END IF;
267: Open cur_rowid;
268: Fetch cur_rowid INTO lv_rowid;
269: IF (cur_rowid%FOUND) THEN
270: Close cur_rowid;
271: Fnd_Message.Set_Name ('IGS', 'IGS_CA_APAC_CI_UFK');
272: IGS_GE_MSG_STACK.ADD;
273: App_Exception.Raise_Exception;
274: Return;
275: END IF;
314: new_references.adm_cal_type,
315: new_references.adm_ci_sequence_number,
316: new_references.admission_cat
317: ) THEN
318: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
319: IGS_GE_MSG_STACK.ADD;
320: App_Exception.Raise_Exception;
321: END IF;
322: Check_Constraints;
332: new_references.adm_cal_type,
333: new_references.adm_ci_sequence_number,
334: new_references.admission_cat
335: ) THEN
336: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
337: IGS_GE_MSG_STACK.ADD;
338: App_Exception.Raise_Exception;
339: END IF;
340: Check_Constraints;
390: else
391: X_PROGRAM_UPDATE_DATE := SYSDATE;
392: end if;
393: else
394: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
395: IGS_GE_MSG_STACK.ADD;
396: app_exception.raise_exception;
397: end if;
398:
470: open c1;
471: fetch c1 into tlinfo;
472: if (c1%notfound) then
473: close c1;
474: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
475: IGS_GE_MSG_STACK.ADD;
476: app_exception.raise_exception;
477: return;
478: end if;
482: AND (TRUNC(tlinfo.CI_END_DT) = TRUNC(X_CI_END_DT))
483: ) then
484: null;
485: else
486: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
487: IGS_GE_MSG_STACK.ADD;
488: app_exception.raise_exception;
489: end if;
490: return;
520: if X_LAST_UPDATE_LOGIN is NULL then
521: X_LAST_UPDATE_LOGIN := -1;
522: end if;
523: else
524: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
525: IGS_GE_MSG_STACK.ADD;
526: app_exception.raise_exception;
527: end if;
528: