[Home] [Help]
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;
44:
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);
89: new_references.ci_end_dt := TRUNC(v_ci_end_dt);
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:
101:
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:
127: IF upper(column_name) = 'ADMISSION_CAT' OR column_name is null Then
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;
135:
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:
152: IF (((old_references.adm_cal_type = new_references.adm_cal_type) AND
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;
175:
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;
245:
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;
277:
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;
324: ELSIF (p_action = 'UPDATE') THEN
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
342: Check_Constraints;
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',
400: x_rowid => X_ROWID,
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;
480:
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;
492:
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',
530: x_rowid =>X_ROWID,