[Home] [Help]
44: Open cur_old_ref_values;
45: Fetch cur_old_ref_values INTO old_references;
46: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
47: Close cur_old_ref_values;
48: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
49: IGS_GE_MSG_STACK.ADD;
50: App_Exception.Raise_Exception;
51: Return;
52: END IF;
101: -- The following code checks for check constraints on the Columns.
102: IF Upper(Column_Name) = 'CLOSED_IND' OR
103: Column_Name IS NULL THEN
104: IF NOT (new_references.closed_ind IN ('Y', 'N')) THEN
105: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
106: IGS_GE_MSG_STACK.ADD;
107: App_Exception.Raise_Exception;
108: END IF;
109: END IF;
111: -- The following code checks for check constraints on the Columns.
112: IF Upper(Column_Name) = 'CATALOG_SCHEDULE' OR
113: Column_Name IS NULL THEN
114: IF NOT (new_references.catalog_schedule IN ('CATALOG', 'SCHEDULE')) THEN
115: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
116: IGS_GE_MSG_STACK.ADD;
117: App_Exception.Raise_Exception;
118: END IF;
119: END IF;
121: -- The following code checks for check constraints on the Columns.
122: IF Upper(Column_Name) = 'CLOSED_IND' OR
123: Column_Name IS NULL THEN
124: IF NOT (new_references.closed_ind IN ('Y', 'N')) THEN
125: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
126: IGS_GE_MSG_STACK.ADD;
127: App_Exception.Raise_Exception;
128: END IF;
129: END IF;
131: -- The following code checks for check constraints on the Columns.
132: IF Upper(Column_Name) = 'CATALOG_SCHEDULE' OR
133: Column_Name IS NULL THEN
134: IF NOT (new_references.catalog_schedule IN ('CATALOG', 'SCHEDULE')) THEN
135: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
136: IGS_GE_MSG_STACK.ADD;
137: App_Exception.Raise_Exception;
138: END IF;
139: END IF;
157: IF Get_Uk_For_Validation (
158: new_references.catalog_schedule
159: ,new_references.note_type
160: ) THEN
161: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
162: IGS_GE_MSG_STACK.ADD;
163: app_exception.raise_exception;
164: END IF;
165: END Check_Uniqueness ;
302: -- Call all the procedures related to Before Insert.
303: Null;
304: IF Get_Pk_For_Validation(
305: new_references.note_type_id) THEN
306: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
307: IGS_GE_MSG_STACK.ADD;
308: App_Exception.Raise_Exception;
309: END IF;
310: Check_Uniqueness;
321: ELSIF (p_action = 'VALIDATE_INSERT') THEN
322: -- Call all the procedures related to Before Insert.
323: IF Get_PK_For_Validation (
324: new_references.note_type_id) THEN
325: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
326: IGS_GE_MSG_STACK.ADD;
327: App_Exception.Raise_Exception;
328: END IF;
329: Check_Uniqueness;
409: if X_LAST_UPDATE_LOGIN is NULL then
410: X_LAST_UPDATE_LOGIN := -1;
411: end if;
412: else
413: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
414: IGS_GE_MSG_STACK.ADD;
415: app_exception.raise_exception;
416: end if;
417: ----
497: begin
498: open c1;
499: fetch c1 into tlinfo;
500: if (c1%notfound) then
501: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
502: IGS_GE_MSG_STACK.ADD;
503: close c1;
504: app_exception.raise_exception;
505: return;
511: AND (tlinfo.CATALOG_SCHEDULE = X_CATALOG_SCHEDULE)
512: ) then
513: null;
514: else
515: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
516: IGS_GE_MSG_STACK.ADD;
517: app_exception.raise_exception;
518: end if;
519: return;
555: if X_LAST_UPDATE_LOGIN is NULL then
556: X_LAST_UPDATE_LOGIN := -1;
557: end if;
558: else
559: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
560: IGS_GE_MSG_STACK.ADD;
561: app_exception.raise_exception;
562: end if;
563: Before_DML(