1: PACKAGE BODY igs_ad_aplins_admreq_pkg AS
2: /* $Header: IGSAIE6B.pls 120.3 2005/10/03 08:23:34 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_aplins_admreq%ROWTYPE;
1: PACKAGE BODY igs_ad_aplins_admreq_pkg AS
2: /* $Header: IGSAIE6B.pls 120.3 2005/10/03 08:23:34 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_aplins_admreq%ROWTYPE;
6: new_references igs_ad_aplins_admreq%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAIE6B.pls 120.3 2005/10/03 08:23:34 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_aplins_admreq%ROWTYPE;
6: new_references igs_ad_aplins_admreq%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM IGS_AD_APLINS_ADMREQ
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
162: || (reverse chronological order - newest change first)
163: */
164: CURSOR cur_rowid IS
165: SELECT rowid
166: FROM igs_ad_aplins_admreq
167: WHERE aplins_admreq_id = x_aplins_admreq_id
168: FOR UPDATE NOWAIT;
169:
170: lv_rowid cur_rowid%RowType;
201: || (reverse chronological order - newest change first)
202: */
203: CURSOR cur_rowid IS
204: SELECT rowid
205: FROM igs_ad_aplins_admreq
206: WHERE admission_appl_number = x_admission_appl_number
207: AND course_cd = x_course_cd
208: AND person_id = x_person_id
209: AND sequence_number = x_sequence_number
245: || (reverse chronological order - newest change first)
246: */
247: CURSOR cur_rowid IS
248: SELECT rowid
249: FROM igs_ad_aplins_admreq
250: WHERE ((admission_appl_number = x_admission_appl_number) AND
251: (course_cd = x_nominated_course_cd) AND
252: (person_id = x_person_id) AND
253: (sequence_number = x_sequence_number));
284: || (reverse chronological order - newest change first)
285: */
286: CURSOR cur_rowid IS
287: SELECT rowid
288: FROM igs_ad_aplins_admreq
289: WHERE ((tracking_id = x_tracking_id));
290:
291: lv_rowid cur_rowid%RowType;
292:
534: || ravishar 05/30/05 Security related changes
535: */
536: CURSOR c IS
537: SELECT rowid
538: FROM igs_ad_aplins_admreq
539: WHERE aplins_admreq_id = x_aplins_admreq_id;
540:
541: x_last_update_date DATE;
542: x_last_updated_by NUMBER;
598:
599: IF (x_mode = 'S') THEN
600: igs_sc_gen_001.set_ctx('R');
601: END IF;
602: INSERT INTO igs_ad_aplins_admreq (
603: aplins_admreq_id,
604: person_id,
605: admission_appl_number,
606: course_cd,
615: program_id,
616: program_application_id,
617: program_update_date
618: ) VALUES (
619: igs_ad_aplins_admreq_s.NEXTVAL,
620: new_references.person_id,
621: new_references.admission_appl_number,
622: new_references.course_cd,
623: new_references.sequence_number,
690: admission_appl_number,
691: course_cd,
692: sequence_number,
693: tracking_id
694: FROM igs_ad_aplins_admreq
695: WHERE rowid = x_rowid
696: FOR UPDATE NOWAIT;
697:
698: tlinfo c1%ROWTYPE;
810:
811: IF (x_mode = 'S') THEN
812: igs_sc_gen_001.set_ctx('R');
813: END IF;
814: UPDATE igs_ad_aplins_admreq
815: SET
816: person_id = new_references.person_id,
817: admission_appl_number = new_references.admission_appl_number,
818: course_cd = new_references.course_cd,
881: || (reverse chronological order - newest change first)
882: */
883: CURSOR c1 IS
884: SELECT rowid
885: FROM igs_ad_aplins_admreq
886: WHERE aplins_admreq_id = x_aplins_admreq_id;
887:
888: BEGIN
889:
943:
944: IF (x_mode = 'S') THEN
945: igs_sc_gen_001.set_ctx('R');
946: END IF;
947: DELETE FROM igs_ad_aplins_admreq
948: WHERE rowid = x_rowid;
949:
950: IF (SQL%NOTFOUND) THEN
951: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
980: END IF;
981: END delete_row;
982:
983:
984: END igs_ad_aplins_admreq_pkg;