[Home] [Help]
37: Open cur_old_ref_values;
38: Fetch cur_old_ref_values INTO old_references;
39: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
40: Close cur_old_ref_values;
41: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
42: IGS_GE_MSG_STACK.ADD;
43: App_Exception.Raise_Exception;
44: Return;
45: END IF;
87: IF IGS_PS_VAL_CRS.crsp_val_iud_crv_dtl (
88: new_references.course_cd,
89: new_references.crv_version_number,
90: v_message_name) = FALSE THEN
91: Fnd_Message.Set_Name('IGS',v_message_name);
92: IGS_GE_MSG_STACK.ADD;
93: App_Exception.Raise_Exception;
94: END IF;
95: --
97: IF IGS_PS_VAL_COUSR.crsp_val_iud_us_dtl (
98: new_references.unit_set_cd,
99: new_references.us_version_number,
100: v_message_name) = FALSE THEN
101: Fnd_Message.Set_Name('IGS',v_message_name);
102: IGS_GE_MSG_STACK.ADD;
103: App_Exception.Raise_Exception;
104: END IF;
105: END IF;
112: new_references.crv_version_number,
113: new_references.unit_set_cd,
114: new_references.us_version_number,
115: v_message_name) = FALSE THEN
116: Fnd_Message.Set_Name('IGS',v_message_name);
117: IGS_GE_MSG_STACK.ADD;
118: App_Exception.Raise_Exception;
119: END IF;
120: --
127: new_references.us_version_number,
128: old_references.only_as_sub_ind,
129: new_references.only_as_sub_ind,
130: v_message_name) = FALSE THEN
131: Fnd_Message.Set_Name('IGS',v_message_name);
132: IGS_GE_MSG_STACK.ADD;
133: App_Exception.Raise_Exception;
134: END IF;
135: END IF;
160: IF upper(column_name)= 'CAL_TYPE' OR
161: column_name is null THEN
162: IF new_references.cal_type <> UPPER(new_references.cal_type)
163: THEN
164: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
165: IGS_GE_MSG_STACK.ADD;
166: App_Exception.Raise_Exception;
167: END IF;
168: END IF;
170: IF upper(column_name)= 'COURSE_CD' OR
171: column_name is null THEN
172: IF new_references.course_cd <> UPPER(new_references.course_cd)
173: THEN
174: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
175: IGS_GE_MSG_STACK.ADD;
176: App_Exception.Raise_Exception;
177: END IF;
178: END IF;
180: IF upper(column_name)= 'UNIT_SET_CD' OR
181: column_name is null THEN
182: IF new_references.unit_set_cd <> UPPER(new_references.unit_set_cd)
183: THEN
184: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
185: IGS_GE_MSG_STACK.ADD;
186: App_Exception.Raise_Exception;
187: END IF;
188: END IF;
190: IF upper(column_name)= 'ONLY_AS_SUB_IND' OR
191: column_name is null THEN
192: IF new_references.only_as_sub_ind NOT IN ( 'Y' , 'N' )
193: THEN
194: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
195: IGS_GE_MSG_STACK.ADD;
196: App_Exception.Raise_Exception;
197: END IF;
198: END IF;
200: IF upper(column_name)= 'SHOW_ON_OFFICIAL_NTFCTN_IND' OR
201: column_name is null THEN
202: IF new_references.show_on_official_ntfctn_ind NOT IN ( 'Y' , 'N' )
203: THEN
204: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
205: IGS_GE_MSG_STACK.ADD;
206: App_Exception.Raise_Exception;
207: END IF;
208: END IF;
224: new_references.course_cd,
225: new_references.crv_version_number,
226: new_references.cal_type
227: )THEN
228: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
229: IGS_GE_MSG_STACK.ADD;
230: App_Exception.Raise_Exception;
231: END IF;
232: END IF;
240: IF NOT IGS_EN_UNIT_SET_PKG.Get_PK_For_Validation (
241: new_references.unit_set_cd,
242: new_references.us_version_number
243: )THEN
244: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
245: IGS_GE_MSG_STACK.ADD;
246: App_Exception.Raise_Exception;
247: END IF;
248: END IF;
383: Open cur_rowid;
384: Fetch cur_rowid INTO lv_rowid;
385: IF (cur_rowid%FOUND) THEN
386: Close cur_rowid;
387: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COUS_CO_FK');
388: IGS_GE_MSG_STACK.ADD;
389: App_Exception.Raise_Exception;
390: Return;
391: END IF;
411: Open cur_rowid;
412: Fetch cur_rowid INTO lv_rowid;
413: IF (cur_rowid%FOUND) THEN
414: Close cur_rowid;
415: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COUS_US_FK');
416: IGS_GE_MSG_STACK.ADD;
417: App_Exception.Raise_Exception;
418: Return;
419: END IF;
467: new_references.cal_type ,
468: new_references.unit_set_cd ,
469: new_references.us_version_number
470: ) THEN
471: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
472: IGS_GE_MSG_STACK.ADD;
473: App_Exception.Raise_Exception;
474: END IF;
475: Check_Constraints;
490: new_references.cal_type ,
491: new_references.unit_set_cd ,
492: new_references.us_version_number
493: ) THEN
494: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
495: IGS_GE_MSG_STACK.ADD;
496: App_Exception.Raise_Exception;
497: END IF;
498: Check_Constraints;
551: if X_LAST_UPDATE_LOGIN is NULL then
552: X_LAST_UPDATE_LOGIN := -1;
553: end if;
554: else
555: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
556: IGS_GE_MSG_STACK.ADD;
557: app_exception.raise_exception;
558: end if;
559: Before_DML (
641: open c1;
642: fetch c1 into tlinfo;
643: if (c1%notfound) then
644: close c1;
645: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
646: IGS_GE_MSG_STACK.ADD;
647: app_exception.raise_exception;
648: return;
649: end if;
656: AND (tlinfo.SHOW_ON_OFFICIAL_NTFCTN_IND = X_SHOW_ON_OFFICIAL_NTFCTN_IND)
657: ) then
658: null;
659: else
660: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
661: IGS_GE_MSG_STACK.ADD;
662: app_exception.raise_exception;
663: end if;
664: return;
693: if X_LAST_UPDATE_LOGIN is NULL then
694: X_LAST_UPDATE_LOGIN := -1;
695: end if;
696: else
697: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
698: IGS_GE_MSG_STACK.ADD;
699: app_exception.raise_exception;
700: end if;
701: Before_DML (