[Home] [Help]
39: Open cur_old_ref_values;
40: Fetch cur_old_ref_values INTO old_references;
41: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
42: Close cur_old_ref_values;
43: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
44: IGS_GE_MSG_STACK.ADD;
45: App_Exception.Raise_Exception;
46: Return;
47: END IF;
84: IF IGS_PS_VAL_CRS.crsp_val_iud_crv_dtl(
85: new_references.course_cd,
86: new_references.version_number,
87: v_message_name) = FALSE THEN
88: Fnd_Message.Set_Name('IGS', v_message_name);
89: IGS_GE_MSG_STACK.ADD;
90: App_Exception.Raise_Exception;
91: END IF;
92: ELSE
93: IF IGS_PS_VAL_CRS.crsp_val_iud_crv_dtl(
94: old_references.course_cd,
95: old_references.version_number,
96: v_message_name) = FALSE THEN
97: Fnd_Message.Set_Name('IGS', v_message_name);
98: IGS_GE_MSG_STACK.ADD;
99: App_Exception.Raise_Exception;
100: END IF;
101: END IF;
106: (p_updating AND new_references.unit_cd <> old_references.unit_cd))) THEN
107: IF IGS_PS_VAL_POSu.crsp_val_uv_active (
108: new_references.unit_cd,
109: v_message_name) = FALSE THEN
110: Fnd_Message.Set_Name('IGS', v_message_name);
111: IGS_GE_MSG_STACK.ADD;
112: App_Exception.Raise_Exception;
113: END IF;
114: END IF;
119: -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_POSu.crsp_val_loc_cd
120: IF IGS_PS_VAL_UOO.crsp_val_loc_cd (
121: new_references.unit_location_cd,
122: v_message_name) = FALSE THEN
123: Fnd_Message.Set_Name('IGS', v_message_name);
124: IGS_GE_MSG_STACK.ADD;
125: App_Exception.Raise_Exception;
126: END IF;
127: END IF;
131: -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_POSu.crsp_val_ucl_closed
132: IF IGS_AS_VAL_UAI.crsp_val_ucl_closed (
133: new_references.unit_class,
134: v_message_name) = FALSE THEN
135: Fnd_Message.Set_Name('IGS', v_message_name);
136: IGS_GE_MSG_STACK.ADD;
137: App_Exception.Raise_Exception;
138: END IF;
139: END IF;
143: new_references.unit_location_cd,
144: new_references.unit_class,
145: new_references.description,
146: v_message_name) = FALSE THEN
147: Fnd_Message.Set_Name('IGS', v_message_name);
148: IGS_GE_MSG_STACK.ADD;
149: App_Exception.Raise_Exception;
150: END IF;
151: END IF;
176: v_message_name,
177: new_references.unit_location_cd,
178: new_references.unit_class) = FALSE THEN
179: IF v_return_type = cst_error THEN
180: Fnd_Message.Set_Name('IGS', v_message_name);
181: IGS_GE_MSG_STACK.ADD;
182: App_Exception.Raise_Exception;
183: END IF;
184: END IF;
218:
219: IF upper(column_name) = 'POS_SEQUENCE_NUMBER' OR
220: column_name is null Then
221: IF new_references.pos_sequence_number < 0 OR new_references.pos_sequence_number > 999999 Then
222: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
223: IGS_GE_MSG_STACK.ADD;
224: App_Exception.Raise_Exception;
225: END IF;
226: END IF;
227:
228: IF upper(column_name) = 'SEQUENCE_NUMBER' OR
229: column_name is null Then
230: IF new_references.sequence_number < 0 OR new_references.sequence_number > 999999 Then
231: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
232: IGS_GE_MSG_STACK.ADD;
233: App_Exception.Raise_Exception;
234: END IF;
235: END IF;
236:
237: IF upper(column_name) = 'POSP_SEQUENCE_NUMBER' OR
238: column_name is null Then
239: IF new_references.posp_sequence_number < 0 OR new_references.posp_sequence_number > 999999 Then
240: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
241: IGS_GE_MSG_STACK.ADD;
242: App_Exception.Raise_Exception;
243: END IF;
244: END IF;
245:
246: IF upper(column_name) = 'VERSION_NUMBER' OR
247: column_name is null Then
248: IF new_references.version_number < 0 OR new_references.version_number > 999 Then
249: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
250: IGS_GE_MSG_STACK.ADD;
251: App_Exception.Raise_Exception;
252: END IF;
253: END IF;
254:
255: IF upper(column_name) = 'CAL_TYPE' OR
256: column_name is null Then
257: IF new_references.cal_type <> UPPER(new_references.cal_type) Then
258: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
259: IGS_GE_MSG_STACK.ADD;
260: App_Exception.Raise_Exception;
261: END IF;
262: END IF;
263:
264: IF upper(column_name) = 'COURSE_CD' OR
265: column_name is null Then
266: IF new_references.course_cd <> UPPER(new_references.course_cd) Then
267: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
268: IGS_GE_MSG_STACK.ADD;
269: App_Exception.Raise_Exception;
270: END IF;
271: END IF;
272:
273: IF upper(column_name) = 'UNIT_CD' OR
274: column_name is null Then
275: IF new_references.unit_cd <> UPPER(new_references.unit_cd) Then
276: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
277: IGS_GE_MSG_STACK.ADD;
278: App_Exception.Raise_Exception;
279: END IF;
280: END IF;
281:
282: IF upper(column_name) = 'UNIT_CLASS' OR
283: column_name is null Then
284: IF new_references.unit_class <> UPPER(new_references.unit_class) Then
285: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
286: IGS_GE_MSG_STACK.ADD;
287: App_Exception.Raise_Exception;
288: END IF;
289: END IF;
290:
291: IF upper(column_name) = 'UNIT_LOCATION_CD' OR
292: column_name is null Then
293: IF new_references.unit_location_cd <> UPPER(new_references.unit_location_cd) Then
294: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
295: IGS_GE_MSG_STACK.ADD;
296: App_Exception.Raise_Exception;
297: END IF;
298: END IF;
299:
300: IF upper(column_name) = 'CORE_IND' OR
301: column_name is null Then
302: IF new_references.core_ind NOT IN ('Y','N') Then
303: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
304: IGS_GE_MSG_STACK.ADD;
305: App_Exception.Raise_Exception;
306: END IF;
307: END IF;
319: IF NOT IGS_AD_LOCATION_PKG.Get_PK_For_Validation (
320: new_references.unit_location_cd ,
321: 'N'
322: ) THEN
323: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
324: IGS_GE_MSG_STACK.ADD;
325: App_Exception.Raise_Exception;
326: END IF;
327: END IF;
344: new_references.cal_type,
345: new_references.pos_sequence_number,
346: new_references.posp_sequence_number
347: ) THEN
348: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
349: IGS_GE_MSG_STACK.ADD;
350: App_Exception.Raise_Exception;
351: END IF;
352: END IF;
357: ELSE
358: IF NOT IGS_AS_UNIT_CLASS_PKG.Get_PK_For_Validation (
359: new_references.unit_class
360: ) THEN
361: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
362: IGS_GE_MSG_STACK.ADD;
363: App_Exception.Raise_Exception;
364: END IF;
365: END IF;
370: ELSE
371: IF NOT IGS_PS_UNIT_PKG.Get_PK_For_Validation (
372: new_references.unit_cd
373: ) THEN
374: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
375: IGS_GE_MSG_STACK.ADD;
376: App_Exception.Raise_Exception;
377: END IF;
378: END IF;
429: Open cur_rowid;
430: Fetch cur_rowid INTO lv_rowid;
431: IF (cur_rowid%FOUND) THEN
432: Close cur_rowid;
433: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POSU_LOC_FK');
434: IGS_GE_MSG_STACK.ADD;
435: App_Exception.Raise_Exception;
436: Return;
437: END IF;
463: Open cur_rowid;
464: Fetch cur_rowid INTO lv_rowid;
465: IF (cur_rowid%FOUND) THEN
466: Close cur_rowid;
467: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POSU_POSP_FK');
468: IGS_GE_MSG_STACK.ADD;
469: App_Exception.Raise_Exception;
470: Return;
471: END IF;
489: Open cur_rowid;
490: Fetch cur_rowid INTO lv_rowid;
491: IF (cur_rowid%FOUND) THEN
492: Close cur_rowid;
493: Fnd_Message.Set_Name ('IGS', 'IGS_PS_POSU_UN_FK');
494: IGS_GE_MSG_STACK.ADD;
495: App_Exception.Raise_Exception;
496: Return;
497: END IF;
554: new_references.pos_sequence_number,
555: new_references.posp_sequence_number,
556: new_references.sequence_number
557: ) THEN
558: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
559: IGS_GE_MSG_STACK.ADD;
560: App_Exception.Raise_Exception;
561: END IF;
562: Check_Constraints;
581: new_references.pos_sequence_number,
582: new_references.posp_sequence_number,
583: new_references.sequence_number
584: ) THEN
585: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
586: IGS_GE_MSG_STACK.ADD;
587: App_Exception.Raise_Exception;
588: END IF;
589: Check_Constraints;
655: if X_LAST_UPDATE_LOGIN is NULL then
656: X_LAST_UPDATE_LOGIN := -1;
657: end if;
658: else
659: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
660: IGS_GE_MSG_STACK.ADD;
661: app_exception.raise_exception;
662: end if;
663:
757: open c1;
758: fetch c1 into tlinfo;
759: if (c1%notfound) then
760: close c1;
761: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
762: IGS_GE_MSG_STACK.ADD;
763: app_exception.raise_exception;
764: return;
765: end if;
782: AND (X_CORE_IND is null)))
783: ) then
784: null;
785: else
786: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
787: IGS_GE_MSG_STACK.ADD;
788: app_exception.raise_exception;
789: end if;
790: return;
822: if X_LAST_UPDATE_LOGIN is NULL then
823: X_LAST_UPDATE_LOGIN := -1;
824: end if;
825: else
826: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
827: IGS_GE_MSG_STACK.ADD;
828: app_exception.raise_exception;
829: end if;
830: