[Home] [Help]
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;
46: Close cur_old_ref_values;
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: --
96: -- Can only create against ACTIVE or PLANNED IGS_PS_UNIT sets
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;
106: -- Validate that inserts/updates are allowed
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: --
121: -- Validate the 'only as subordinate indicator'
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;
136:
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;
169:
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;
179:
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;
189:
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;
199:
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;
209: END Check_Constraints;
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;
233:
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;
249:
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;
392: Close 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;
420: Close cur_rowid;
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;
476: Check_Parent_Existance;
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;
499: ELSIF (p_action = 'VALIDATE_UPDATE') 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 (
560: p_action => 'INSERT',
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;
650: close c1;
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;
665: end LOCK_ROW;
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 (
702: p_action => 'UPDATE',