[Home] [Help]
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;
43: Close cur_old_ref_values;
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
88: new_references.ci_start_dt :=TRUNC( v_ci_start_dt);
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;
100:
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;
126:
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;
134: END Check_Constraints;
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;
151:
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;
174: END Check_Parent_Existance;
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;
244: Close 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;
276: Close cur_rowid;
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;
323: Check_Parent_Existance;
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;
341: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
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:
399: Before_DML(p_action =>'INSERT',
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;
479: close c1;
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;
491: end LOCK_ROW;
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:
529: Before_DML(p_action =>'UPDATE',