[Home] [Help]
42: Open cur_old_ref_values;
43: Fetch cur_old_ref_values INTO old_references;
44: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
45: Close cur_old_ref_values;
46: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
47: IGS_GE_MSG_STACK.ADD;
48: App_Exception.Raise_Exception;
49: Return;
50: END IF;
91: IF IGS_PR_VAL_SCA.prgp_val_sca_status (
92: new_references.person_id,
93: new_references.course_cd,
94: v_message_name) = FALSE THEN
95: Fnd_Message.Set_Name('IGS', v_message_name);
96: IGS_GE_MSG_STACK.ADD;
97: App_Exception.Raise_Exception;
98: END IF;
99: -- Validate that no IGS_PS_UNIT sets are incomplete or un-ended.
100: IF IGS_PR_VAL_SCA.prgp_val_susa_cmplt (
101: new_references.person_id,
102: new_references.course_cd,
103: v_message_name) = FALSE THEN
104: Fnd_Message.Set_Name('IGS', v_message_name);
105: IGS_GE_MSG_STACK.ADD;
106: App_Exception.Raise_Exception;
107: END IF;
108: -- Validate that SCA status is not DISCONTIN, INTERMIT or LAPSED.
109: IF IGS_PR_VAL_SCAAE.prgp_val_sca_cmplt (
110: new_references.person_id,
111: new_references.course_cd,
112: v_message_name) = FALSE THEN
113: Fnd_Message.Set_Name('IGS', v_message_name);
114: IGS_GE_MSG_STACK.ADD;
115: App_Exception.Raise_Exception;
116: END IF;
117: ELSE
123: new_references.version_number,
124: new_references.exit_course_cd,
125: new_references.exit_version_number,
126: v_message_name) = FALSE THEN
127: Fnd_Message.Set_Name('IGS', v_message_name);
128: IGS_GE_MSG_STACK.ADD;
129: App_Exception.Raise_Exception;
130: END IF;
131: END IF;
142: IF IGS_PR_VAL_SCAAE.prgp_val_scaae_cmplt(
143: new_references.rqrmnts_complete_ind,
144: new_references.rqrmnts_complete_dt,
145: v_message_name) = FALSE THEN
146: Fnd_Message.Set_Name('IGS', v_message_name);
147: IGS_GE_MSG_STACK.ADD;
148: App_Exception.Raise_Exception;
149: END IF;
150: END IF;
175:
176: IF upper(column_name) = 'COURSE_CD' OR
177: column_name is null Then
178: IF new_references.course_cd <> UPPER(new_references.course_cd) Then
179: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
180: IGS_GE_MSG_STACK.ADD;
181: App_Exception.Raise_Exception;
182: END IF;
183: END IF;
184:
185: IF upper(column_name) = 'EXIT_COURSE_CD' OR
186: column_name is null Then
187: IF new_references.exit_course_cd <> UPPER(new_references.exit_course_cd) Then
188: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
189: IGS_GE_MSG_STACK.ADD;
190: App_Exception.Raise_Exception;
191: END IF;
192: END IF;
193:
194: IF upper(column_name) = 'S_COMPLETED_SOURCE_TYPE' OR
195: column_name is null Then
196: IF new_references.s_completed_source_type NOT IN ( 'SYSTEM' , 'MANUAL' ) Then
197: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
198: IGS_GE_MSG_STACK.ADD;
199: App_Exception.Raise_Exception;
200: END IF;
201: END IF;
202:
203: IF upper(column_name) = 'RQRMNTS_COMPLETE_IND' OR
204: column_name is null Then
205: IF new_references.rqrmnts_complete_ind NOT IN ( 'Y' , 'N' ) Then
206: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
207: IGS_GE_MSG_STACK.ADD;
208: App_Exception.Raise_Exception;
209: END IF;
210: END IF;
227: new_references.course_cd,
228: new_references.version_number,
229: new_references.exit_course_cd
230: ) THEN
231: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
232: IGS_GE_MSG_STACK.ADD;
233: App_Exception.Raise_Exception;
234: END IF;
235: END IF;
243: IF NOT IGS_PS_VER_PKG.Get_PK_For_Validation (
244: new_references.exit_course_cd,
245: new_references.exit_version_number
246: ) THEN
247: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
248: IGS_GE_MSG_STACK.ADD;
249: App_Exception.Raise_Exception;
250: END IF;
251: END IF;
259: IF NOT IGS_PS_VER_PKG.Get_PK_For_Validation (
260: new_references.course_cd,
261: new_references.version_number
262: ) THEN
263: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
264: IGS_GE_MSG_STACK.ADD;
265: App_Exception.Raise_Exception;
266: END IF;
267: END IF;
275: IF NOT IGS_EN_STDNT_PS_ATT_PKG.Get_PK_For_Validation (
276: new_references.person_id,
277: new_references.course_cd
278: ) THEN
279: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
280: IGS_GE_MSG_STACK.ADD;
281: App_Exception.Raise_Exception;
282: END IF;
283: END IF;
334: Open cur_rowid;
335: Fetch cur_rowid INTO lv_rowid;
336: IF (cur_rowid%FOUND) THEN
337: Close cur_rowid;
338: Fnd_Message.Set_Name ('IGS', 'IGS_PS_SCAAE_AE_FK');
339: IGS_GE_MSG_STACK.ADD;
340: App_Exception.Raise_Exception;
341: Return;
342: END IF;
364: Open cur_rowid;
365: Fetch cur_rowid INTO lv_rowid;
366: IF (cur_rowid%FOUND) THEN
367: Close cur_rowid;
368: Fnd_Message.Set_Name ('IGS', 'IGS_PS_SCAAE_CRV_EXIT_FK');
369: IGS_GE_MSG_STACK.ADD;
370: App_Exception.Raise_Exception;
371: Return;
372: END IF;
393: Open cur_rowid;
394: Fetch cur_rowid INTO lv_rowid;
395: IF (cur_rowid%FOUND) THEN
396: Close cur_rowid;
397: Fnd_Message.Set_Name ('IGS', 'IGS_PS_SCAAE_SCA_FK');
398: IGS_GE_MSG_STACK.ADD;
399: App_Exception.Raise_Exception;
400: Return;
401: END IF;
448: new_references.course_cd,
449: new_references.exit_course_cd,
450: new_references.exit_version_number
451: ) THEN
452: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
453: IGS_GE_MSG_STACK.ADD;
454: App_Exception.Raise_Exception;
455: END IF;
456: Check_Constraints;
466: new_references.course_cd,
467: new_references.exit_course_cd,
468: new_references.exit_version_number
469: ) THEN
470: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
471: IGS_GE_MSG_STACK.ADD;
472: App_Exception.Raise_Exception;
473: END IF;
474: Check_Constraints;
525: if X_LAST_UPDATE_LOGIN is NULL then
526: X_LAST_UPDATE_LOGIN := -1;
527: end if;
528: else
529: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
530: IGS_GE_MSG_STACK.ADD;
531: app_exception.raise_exception;
532: end if;
533:
598:
599: EXCEPTION
600: WHEN OTHERS THEN
601: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
602: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
603: fnd_message.set_token ('ERR_CD', SQLCODE);
604: igs_ge_msg_stack.add;
605: igs_sc_gen_001.unset_ctx('R');
606: app_exception.raise_exception;
599: EXCEPTION
600: WHEN OTHERS THEN
601: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
602: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
603: fnd_message.set_token ('ERR_CD', SQLCODE);
604: igs_ge_msg_stack.add;
605: igs_sc_gen_001.unset_ctx('R');
606: app_exception.raise_exception;
607: ELSE
635: open c1;
636: fetch c1 into tlinfo;
637: if (c1%notfound) then
638: close c1;
639: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
640: IGS_GE_MSG_STACK.ADD;
641: app_exception.raise_exception;
642: return;
643: end if;
653: AND (X_S_COMPLETED_SOURCE_TYPE is null)))
654: ) then
655: null;
656: else
657: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
658: IGS_GE_MSG_STACK.ADD;
659: app_exception.raise_exception;
660: end if;
661: return;
690: if X_LAST_UPDATE_LOGIN is NULL then
691: X_LAST_UPDATE_LOGIN := -1;
692: end if;
693: else
694: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
695: IGS_GE_MSG_STACK.ADD;
696: app_exception.raise_exception;
697: end if;
698:
725: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
726: where ROWID = X_ROWID
727: ;
728: if (sql%notfound) then
729: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
730: igs_ge_msg_stack.add;
731: igs_sc_gen_001.unset_ctx('R');
732: app_exception.raise_exception;
733: end if;
742:
743: EXCEPTION
744: WHEN OTHERS THEN
745: IF (SQLCODE = (-28115)) THEN
746: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
747: fnd_message.set_token ('ERR_CD', SQLCODE);
748: igs_ge_msg_stack.add;
749: igs_sc_gen_001.unset_ctx('R');
750: app_exception.raise_exception;
743: EXCEPTION
744: WHEN OTHERS THEN
745: IF (SQLCODE = (-28115)) THEN
746: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
747: fnd_message.set_token ('ERR_CD', SQLCODE);
748: igs_ge_msg_stack.add;
749: igs_sc_gen_001.unset_ctx('R');
750: app_exception.raise_exception;
751: ELSE
818: END IF;
819: delete from IGS_PS_STDNT_APV_ALT
820: where ROWID = X_ROWID;
821: if (sql%notfound) then
822: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
823: igs_ge_msg_stack.add;
824: igs_sc_gen_001.unset_ctx('R');
825: app_exception.raise_exception;
826: end if;