[Home] [Help]
50: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
51: Close cur_old_ref_values;
52: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
53: IGS_GE_MSG_STACK.ADD;
54: App_Exception.Raise_Exception;
55: Return;
56: END IF;
57: Close cur_old_ref_values;
58:
109: Column_Name IS NULL THEN
110: IF NOT (new_references.asses_chrg_for_wlst_stud IN ('Y', 'N')) THEN
111: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
112: IGS_GE_MSG_STACK.ADD;
113: App_Exception.Raise_Exception;
114: END IF;
115: END IF;
116:
117: -- The following code checks for check constraints on the Columns.
119: Column_Name IS NULL THEN
120: IF NOT (new_references.smtanus_wlst_unit_enr_alwd IN ('Y', 'N')) 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:
146: ,new_references.start_dt
147: ) THEN
148: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
149: IGS_GE_MSG_STACK.ADD;
150: app_exception.raise_exception;
151: END IF;
152: END Check_Uniqueness ;
153: PROCEDURE Check_Parent_Existance AS
154: /*************************************************************
174: new_references.start_dt
175: ) THEN
176: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
177: IGS_GE_MSG_STACK.ADD;
178: App_Exception.Raise_Exception;
179: END IF;
180:
181:
182: IF (old_references.cal_type = new_references.cal_type) OR
187: new_references.cal_type
188: ) THEN
189: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
190: IGS_GE_MSG_STACK.ADD;
191: App_Exception.Raise_Exception;
192: END IF;
193:
194: END Check_Parent_Existance;
195:
319: IF (cur_rowid%FOUND) THEN
320: Close cur_rowid;
321: Fnd_Message.Set_Name ('IGS', 'IGS_EN_OUW_OU_FK');
322: IGS_GE_MSG_STACK.ADD;
323: App_Exception.Raise_Exception;
324: Return;
325: END IF;
326: Close cur_rowid;
327:
361: IF (cur_rowid%FOUND) THEN
362: Close cur_rowid;
363: Fnd_Message.Set_Name ('IGS', 'IGS_EN_OUW_OU_FK');
364: IGS_GE_MSG_STACK.ADD;
365: App_Exception.Raise_Exception;
366: Return;
367: END IF;
368: Close cur_rowid; */
369: BEGIN
402: IF (cur_rowid%FOUND) THEN
403: Close cur_rowid;
404: Fnd_Message.Set_Name ('IGS', 'IGS_EN_OUW_OU_FK');
405: IGS_GE_MSG_STACK.ADD;
406: App_Exception.Raise_Exception;
407: Return;
408: END IF;
409: Close cur_rowid;
410: END Get_FK_Igs_Ca_Type;
464: IF Get_Pk_For_Validation(
465: new_references.org_unit_wlst_id) THEN
466: Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
467: IGS_GE_MSG_STACK.ADD;
468: App_Exception.Raise_Exception;
469: END IF;
470: Check_Uniqueness;
471: Check_Constraints;
472: Check_Parent_Existance;
486: IF Get_PK_For_Validation (
487: new_references.org_unit_wlst_id) THEN
488: Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
489: IGS_GE_MSG_STACK.ADD;
490: App_Exception.Raise_Exception;
491: END IF;
492: Check_Uniqueness;
493: Check_Constraints;
494: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
578: end if;
579: else
580: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
581: IGS_GE_MSG_STACK.ADD;
582: app_exception.raise_exception;
583: end if;
584: SELECT IGS_EN_OR_UNIT_WLST_S.NEXTVAL
585: INTO x_org_unit_wlst_id
586: FROM dual;
682: if (c1%notfound) then
683: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
684: IGS_GE_MSG_STACK.ADD;
685: close c1;
686: app_exception.raise_exception;
687: return;
688: end if;
689: close c1;
690: if ( ( tlinfo.ORG_UNIT_CD = X_ORG_UNIT_CD)
700: null;
701: else
702: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
703: IGS_GE_MSG_STACK.ADD;
704: app_exception.raise_exception;
705: end if;
706: return;
707: end LOCK_ROW;
708: Procedure UPDATE_ROW (
747: end if;
748: else
749: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
750: IGS_GE_MSG_STACK.ADD;
751: app_exception.raise_exception;
752: end if;
753: Before_DML(
754: p_action=>'UPDATE',
755: x_rowid=>X_ROWID,