[Home] [Help]
40: Open cur_old_ref_values;
41: Fetch cur_old_ref_values INTO old_references;
42: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
43: Close cur_old_ref_values;
44: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
45: IGS_GE_MSG_STACK.ADD;
46: App_Exception.Raise_Exception;
47: Return;
48: END IF;
115: new_references.unit_class := column_value;
116: END IF;
117: IF ((UPPER (column_name) = 'SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
118: IF ((new_references.sequence_number < 1) OR (new_references.sequence_number > 999999)) THEN
119: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
120: IGS_GE_MSG_STACK.ADD;
121: App_Exception.Raise_Exception;
122: END IF;
123: END IF;
122: END IF;
123: END IF;
124: IF ((UPPER (column_name) = 'FEE_CI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
125: IF ((new_references.fee_ci_sequence_number < 1) OR (new_references.fee_ci_sequence_number > 999999)) 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;
129: END IF;
130: END IF;
131: IF ((UPPER (column_name) = 'FEE_TRIGGER_GROUP_NUMBER') OR (column_name IS NULL)) THEN
132: IF ((new_references.fee_trigger_group_number < 1) OR (new_references.fee_trigger_group_number > 999999)) THEN
133: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
134: IGS_GE_MSG_STACK.ADD;
135: App_Exception.Raise_Exception;
136: END IF;
137: END IF;
136: END IF;
137: END IF;
138: IF ((UPPER (column_name) = 'CI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
139: IF ((new_references.ci_sequence_number < 1) OR (new_references.ci_sequence_number > 999999)) THEN
140: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
141: IGS_GE_MSG_STACK.ADD;
142: App_Exception.Raise_Exception;
143: END IF;
144: END IF;
143: END IF;
144: END IF;
145: IF ((UPPER (column_name) = 'VERSION_NUMBER') OR (column_name IS NULL)) THEN
146: IF ((new_references.version_number < 1) OR (new_references.version_number > 999)) THEN
147: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
148: IGS_GE_MSG_STACK.ADD;
149: App_Exception.Raise_Exception;
150: END IF;
151: END IF;
150: END IF;
151: END IF;
152: IF ((UPPER (column_name) = 'CAL_TYPE') OR (column_name IS NULL)) THEN
153: IF (new_references.cal_type <> UPPER (new_references.cal_type)) THEN
154: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
155: IGS_GE_MSG_STACK.ADD;
156: App_Exception.Raise_Exception;
157: END IF;
158: END IF;
157: END IF;
158: END IF;
159: IF ((UPPER (column_name) = 'FEE_CAL_TYPE') OR (column_name IS NULL)) THEN
160: IF (new_references.fee_cal_type <> UPPER (new_references.fee_cal_type)) THEN
161: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
162: IGS_GE_MSG_STACK.ADD;
163: App_Exception.Raise_Exception;
164: END IF;
165: END IF;
164: END IF;
165: END IF;
166: IF ((UPPER (column_name) = 'LOCATION_CD') OR (column_name IS NULL)) THEN
167: IF (new_references.location_cd <> UPPER (new_references.location_cd)) THEN
168: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
169: IGS_GE_MSG_STACK.ADD;
170: App_Exception.Raise_Exception;
171: END IF;
172: END IF;
171: END IF;
172: END IF;
173: IF ((UPPER (column_name) = 'UNIT_CD') OR (column_name IS NULL)) THEN
174: IF (new_references.unit_cd <> UPPER (new_references.unit_cd)) THEN
175: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
176: IGS_GE_MSG_STACK.ADD;
177: App_Exception.Raise_Exception;
178: END IF;
179: END IF;
178: END IF;
179: END IF;
180: IF ((UPPER (column_name) = 'UNIT_CLASS') OR (column_name IS NULL)) THEN
181: IF (new_references.unit_class <> UPPER (new_references.unit_class)) THEN
182: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
183: IGS_GE_MSG_STACK.ADD;
184: App_Exception.Raise_Exception;
185: END IF;
186: END IF;
200: new_references.unit_class,
201: new_references.create_dt,
202: new_references.hist_start_dt
203: )) THEN
204: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
205: IGS_GE_MSG_STACK.ADD;
206: App_Exception.Raise_Exception;
207: END IF;
208: END Check_Uniqueness;
223: new_references.fee_cal_type,
224: new_references.fee_ci_sequence_number,
225: new_references.fee_type
226: ) THEN
227: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
228: IGS_GE_MSG_STACK.ADD;
229: App_Exception.Raise_Exception;
230: END IF;
231: END IF;
369: new_references.unit_cd,
370: new_references.sequence_number,
371: new_references.hist_start_dt
372: )) THEN
373: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
374: IGS_GE_MSG_STACK.ADD;
375: App_Exception.Raise_Exception;
376: END IF;
377: Check_Uniqueness;
391: new_references.unit_cd,
392: new_references.sequence_number,
393: new_references.hist_start_dt
394: )) THEN
395: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
396: IGS_GE_MSG_STACK.ADD;
397: App_Exception.Raise_Exception;
398: END IF;
399: Check_Uniqueness;
449: if X_LAST_UPDATE_LOGIN is NULL then
450: X_LAST_UPDATE_LOGIN := -1;
451: end if;
452: else
453: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
454: IGS_GE_MSG_STACK.ADD;
455: app_exception.raise_exception;
456: end if;
457: Before_DML(
572: open c1;
573: fetch c1 into tlinfo;
574: if (c1%notfound) then
575: close c1;
576: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
577: IGS_GE_MSG_STACK.ADD;
578: app_exception.raise_exception;
579: return;
580: end if;
604: AND (X_FEE_TRIGGER_GROUP_NUMBER is null)))
605: ) then
606: null;
607: else
608: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
609: IGS_GE_MSG_STACK.ADD;
610: app_exception.raise_exception;
611: end if;
612: return;
648: if X_LAST_UPDATE_LOGIN is NULL then
649: X_LAST_UPDATE_LOGIN := -1;
650: end if;
651: else
652: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
653: IGS_GE_MSG_STACK.ADD;
654: app_exception.raise_exception;
655: end if;
656: Before_DML(