[Home] [Help]
30: -- Populate Old Values.
31: Open cur_old_ref_values;
32: Fetch cur_old_ref_values INTO old_references;
33: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
34: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
35: IGS_GE_MSG_STACK.ADD;
36: App_Exception.Raise_Exception;
37: Close cur_old_ref_values;
38: Return;
65: -- Validate the admission category closed indicator.
66: IF IGS_AD_VAL_ACCT.admp_val_ac_closed (
67: new_references.admission_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: -- Validate the HECS payment option closed indicator.
75: -- to igs_en_val_scho.enrp_val_hpo_closed
76: IF IGS_EN_VAL_SCHO.enrp_val_hpo_closed (
77: new_references.hecs_payment_option,
78: v_message_name) = FALSE THEN
79: Fnd_Message.Set_Name('IGS',v_message_name);
80: IGS_GE_MSG_STACK.ADD;
81: App_Exception.Raise_Exception;
82: END IF;
83: END BeforeRowInsert1;
95: new_references.hecs_payment_option := column_value;
96: END IF;
97: IF upper(column_name) = 'ADMISSION_CAT' OR column_name is null Then
98: IF new_references.admission_cat <> UPPER(new_references.admission_cat) Then
99: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
100: IGS_GE_MSG_STACK.ADD;
101: App_Exception.Raise_Exception;
102: END IF;
103: END IF;
102: END IF;
103: END IF;
104: IF upper(column_name) = 'HECS_PAYMENT_OPTION' OR column_name is null Then
105: IF new_references.hecs_payment_option <> UPPER(new_references.hecs_payment_option ) Then
106: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
107: IGS_GE_MSG_STACK.ADD;
108: App_Exception.Raise_Exception;
109: END IF;
110: END IF;
118: NULL;
119: ELSE
120: IF NOT IGS_AD_CAT_PKG.Get_PK_For_Validation (
121: new_references.admission_cat , 'N' )THEN
122: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
123: IGS_GE_MSG_STACK.ADD;
124: App_Exception.Raise_Exception;
125: END IF;
126: END IF;
130: NULL;
131: ELSE
132: IF NOT IGS_FI_HECS_PAY_OPTN_PKG.Get_PK_For_Validation (
133: new_references.hecs_payment_option )THEN
134: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
135: IGS_GE_MSG_STACK.ADD;
136: App_Exception.Raise_Exception;
137: END IF;
138: END IF;
178: Open cur_rowid;
179: Fetch cur_rowid INTO lv_rowid;
180: IF (cur_rowid%FOUND) THEN
181: Close cur_rowid;
182: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACHPO_AC_FK');
183: IGS_GE_MSG_STACK.ADD;
184: App_Exception.Raise_Exception;
185: Return;
186: END IF;
204: Open cur_rowid;
205: Fetch cur_rowid INTO lv_rowid;
206: IF (cur_rowid%FOUND) THEN
207: Close cur_rowid;
208: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACHPO_HPO_FK');
209: IGS_GE_MSG_STACK.ADD;
210: App_Exception.Raise_Exception;
211: Return;
212: END IF;
244: BeforeRowInsert1 ( p_inserting => TRUE );
245: IF Get_PK_For_Validation (
246: new_references.admission_cat,
247: new_references.hecs_payment_option ) THEN
248: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
249: IGS_GE_MSG_STACK.ADD;
250: App_Exception.Raise_Exception;
251: END IF;
252: Check_Constraints;
258: ELSIF (p_action = 'VALIDATE_INSERT') THEN
259: IF Get_PK_For_Validation (
260: new_references.admission_cat,
261: new_references.hecs_payment_option ) THEN
262: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
263: IGS_GE_MSG_STACK.ADD;
264: App_Exception.Raise_Exception;
265: END IF;
266: Check_Constraints;
317: if X_LAST_UPDATE_LOGIN is NULL then
318: X_LAST_UPDATE_LOGIN := -1;
319: end if;
320: else
321: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
322: IGS_GE_MSG_STACK.ADD;
323: app_exception.raise_exception;
324: end if;
325:
380: begin
381: open c1;
382: fetch c1 into tlinfo;
383: if (c1%notfound) then
384: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
385: IGS_GE_MSG_STACK.ADD;
386: app_exception.raise_exception;
387: close c1;
388: return;