[Home] [Help]
1: PACKAGE BODY igs_pe_athletic_prg_pkg AS
2: /* $Header: IGSNI86B.pls 120.1 2005/06/28 05:11:24 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_athletic_prg%ROWTYPE;
1: PACKAGE BODY igs_pe_athletic_prg_pkg AS
2: /* $Header: IGSNI86B.pls 120.1 2005/06/28 05:11:24 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_athletic_prg%ROWTYPE;
6: new_references igs_pe_athletic_prg%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNI86B.pls 120.1 2005/06/28 05:11:24 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_athletic_prg%ROWTYPE;
6: new_references igs_pe_athletic_prg%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
34: */
35:
36: CURSOR cur_old_ref_values IS
37: SELECT *
38: FROM igs_pe_athletic_prg
39: WHERE rowid = x_rowid;
40:
41: BEGIN
42:
160: || (reverse chronological order - newest change first)
161: */
162: CURSOR cur_rowid IS
163: SELECT rowid
164: FROM igs_pe_athletic_prg
165: WHERE athletic_prg_id = x_athletic_prg_id
166: FOR UPDATE NOWAIT;
167:
168: lv_rowid cur_rowid%RowType;
197: || (reverse chronological order - newest change first)
198: */
199: CURSOR cur_rowid IS
200: SELECT rowid
201: FROM igs_pe_athletic_prg
202: WHERE person_id = x_person_id
203: AND athletic_prg_code = x_athletic_prg_code
204: AND start_date = x_start_date
205: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
234: || (reverse chronological order - newest change first)
235: */
236: CURSOR cur_rowid IS
237: SELECT rowid
238: FROM igs_pe_athletic_prg
239: WHERE ((athletic_prg_code = x_code_id));
240:
241: lv_rowid cur_rowid%RowType;
242:
269: || (reverse chronological order - newest change first)
270: */
271: CURSOR cur_rowid IS
272: SELECT rowid
273: FROM igs_pe_athletic_prg
274: WHERE ((person_id = x_party_id));
275:
276: lv_rowid cur_rowid%RowType;
277:
397: || (reverse chronological order - newest change first)
398: */
399: CURSOR c IS
400: SELECT rowid
401: FROM igs_pe_athletic_prg
402: WHERE athletic_prg_id = x_athletic_prg_id;
403:
404: x_last_update_date DATE;
405: x_last_updated_by NUMBER;
425: igs_ge_msg_stack.add;
426: app_exception.raise_exception;
427: END IF;
428:
429: SELECT igs_pe_athletic_prg_s.NEXTVAL
430: INTO x_athletic_prg_id
431: FROM dual;
432:
433: before_dml(
451:
452: IF (x_mode = 'S') THEN
453: igs_sc_gen_001.set_ctx('R');
454: END IF;
455: INSERT INTO igs_pe_athletic_prg (
456: athletic_prg_id,
457: person_id,
458: athletic_prg_code,
459: rating,
542: end_date,
543: recruited_ind,
544: participating_ind,
545: last_update_dt
546: FROM igs_pe_athletic_prg
547: WHERE rowid = x_rowid
548: FOR UPDATE NOWAIT;
549:
550: tlinfo c1%ROWTYPE;
652:
653: IF (x_mode = 'S') THEN
654: igs_sc_gen_001.set_ctx('R');
655: END IF;
656: UPDATE igs_pe_athletic_prg
657: SET
658: person_id = new_references.person_id,
659: athletic_prg_code = new_references.athletic_prg_code,
660: rating = new_references.rating,
718: || (reverse chronological order - newest change first)
719: */
720: CURSOR c1 IS
721: SELECT rowid
722: FROM igs_pe_athletic_prg
723: WHERE athletic_prg_id = x_athletic_prg_id;
724:
725: BEGIN
726:
785:
786: IF (x_mode = 'S') THEN
787: igs_sc_gen_001.set_ctx('R');
788: END IF;
789: DELETE FROM igs_pe_athletic_prg
790: WHERE rowid = x_rowid;
791:
792: IF (SQL%NOTFOUND) THEN
793: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
802:
803: END delete_row;
804:
805:
806: END igs_pe_athletic_prg_pkg;