[Home] [Help]
28: IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT', 'VALIDATE_INSERT')) THEN
29: Close cur_old_ref_values;
30: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
31: IGS_GE_MSG_STACK.ADD;
32: App_Exception.Raise_Exception;
33: Return;
34: END IF;
35: Close cur_old_ref_values;
36: -- Populate New Values.
67: new_references.fee_cat,
68: v_message_name) = FALSE THEN
69: Fnd_Message.Set_Name('IGS',v_message_name);
70: IGS_GE_MSG_STACK.ADD;
71: App_Exception.Raise_Exception;
72: END IF;
73: END IF;
74: -- Set the Admission Category value.
75: IF p_deleting THEN
82: v_admission_cat,
83: v_message_name) = FALSE THEN
84: Fnd_Message.Set_Name('IGS',v_message_name);
85: IGS_GE_MSG_STACK.ADD;
86: App_Exception.Raise_Exception;
87: END IF;
88: END BeforeRowInsertUpdateDelete1;
89:
90:
116: column_name is NULL THEN
117: IF new_references.admission_cat <> UPPER(new_references.admission_cat) THEN
118: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
119: IGS_GE_MSG_STACK.ADD;
120: App_Exception.Raise_Exception;
121: END IF;
122: END IF;
123: IF upper(Column_Name) = 'DFLT_CAT_IND' OR
124: column_name is NULL THEN
124: column_name is NULL THEN
125: IF new_references.dflt_cat_ind <> 'Y' AND new_references.dflt_cat_ind <> 'N' THEN
126: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
127: IGS_GE_MSG_STACK.ADD;
128: App_Exception.Raise_Exception;
129: END IF;
130: END IF;
131: END Check_Constraints;
132:
137: NULL;
138: ELSIF NOT IGS_AD_CAT_PKG.Get_PK_For_Validation ( new_references.admission_cat, 'N' ) THEN
139: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
140: IGS_GE_MSG_STACK.ADD;
141: App_Exception.Raise_Exception;
142: END IF;
143: IF (((old_references.fee_cat = new_references.fee_cat)) OR
144: ((new_references.fee_cat IS NULL))) THEN
145: NULL;
145: NULL;
146: ELSIF NOT IGS_FI_FEE_CAT_PKG.Get_PK_For_Validation (new_references.fee_cat ) THEN
147: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
148: IGS_GE_MSG_STACK.ADD;
149: App_Exception.Raise_Exception;
150: END IF;
151: END Check_Parent_Existance;
152:
153: FUNCTION Get_PK_For_Validation (
187: IF (cur_rowid%FOUND) THEN
188: Close cur_rowid;
189: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCM_AC_FK');
190: IGS_GE_MSG_STACK.ADD;
191: App_Exception.Raise_Exception;
192: Return;
193: END IF;
194: Close cur_rowid;
195: END GET_FK_IGS_AD_CAT;
207: IF (cur_rowid%FOUND) THEN
208: Close cur_rowid;
209: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCM_FC_FK');
210: IGS_GE_MSG_STACK.ADD;
211: App_Exception.Raise_Exception;
212: Return;
213: END IF;
214: Close cur_rowid;
215: END GET_FK_IGS_FI_FEE_CAT;
245: new_references.admission_cat )
246: THEN
247: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
248: IGS_GE_MSG_STACK.ADD;
249: App_Exception.Raise_Exception;
250: END IF;
251: Check_Constraints;
252: Check_Parent_Existance;
253: ELSIF (p_action = 'UPDATE') THEN
264: new_references.admission_cat )
265: THEN
266: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
267: IGS_GE_MSG_STACK.ADD;
268: App_Exception.Raise_Exception;
269: END IF;
270: Check_Constraints;
271: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
272: Check_Constraints;
301: end if;
302: else
303: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
304: IGS_GE_MSG_STACK.ADD;
305: app_exception.raise_exception;
306: end if;
307: Before_DML(
308: p_action=>'INSERT',
309: x_rowid=>X_ROWID,
360: fetch c1 into tlinfo;
361: if (c1%notfound) then
362: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
363: IGS_GE_MSG_STACK.ADD;
364: app_exception.raise_exception;
365: close c1;
366: return;
367: end if;
368: close c1;
371: null;
372: else
373: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
374: IGS_GE_MSG_STACK.ADD;
375: app_exception.raise_exception;
376: end if;
377: return;
378: end LOCK_ROW;
379: procedure UPDATE_ROW (
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=>'UPDATE',
410: x_rowid=>X_ROWID,