1: PACKAGE BODY igs_pe_fund_source_pkg AS
2: /* $Header: IGSNI93B.pls 120.1 2005/06/28 05:38:38 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_fund_source%ROWTYPE;
1: PACKAGE BODY igs_pe_fund_source_pkg AS
2: /* $Header: IGSNI93B.pls 120.1 2005/06/28 05:38:38 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_fund_source%ROWTYPE;
6: new_references igs_pe_fund_source%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNI93B.pls 120.1 2005/06/28 05:38:38 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_fund_source%ROWTYPE;
6: new_references igs_pe_fund_source%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
33: */
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM igs_pe_fund_source
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
118: || (reverse chronological order - newest change first)
119: */
120: CURSOR cur_rowid IS
121: SELECT rowid
122: FROM igs_pe_fund_source
123: WHERE fund_source_id = x_fund_source_id
124: FOR UPDATE NOWAIT;
125:
126: lv_rowid cur_rowid%RowType;
153: || (reverse chronological order - newest change first)
154: */
155: CURSOR cur_rowid IS
156: SELECT rowid
157: FROM igs_pe_fund_source
158: WHERE ((person_id = x_party_id));
159:
160: lv_rowid cur_rowid%RowType;
161:
273: || (reverse chronological order - newest change first)
274: */
275: CURSOR c IS
276: SELECT rowid
277: FROM igs_pe_fund_source
278: WHERE fund_source_id = x_fund_source_id;
279:
280: x_last_update_date DATE;
281: x_last_updated_by NUMBER;
301: igs_ge_msg_stack.add;
302: app_exception.raise_exception;
303: END IF;
304:
305: SELECT igs_pe_fund_source_s.NEXTVAL
306: INTO x_fund_source_id
307: FROM dual;
308:
309: before_dml(
326:
327: IF (x_mode = 'S') THEN
328: igs_sc_gen_001.set_ctx('R');
329: END IF;
330: INSERT INTO igs_pe_fund_source (
331: fund_source_id,
332: person_id,
333: fund_source_code,
334: name,
413: amount,
414: relationship_code,
415: document_ind,
416: notes
417: FROM igs_pe_fund_source
418: WHERE rowid = x_rowid
419: FOR UPDATE NOWAIT;
420:
421: tlinfo c1%ROWTYPE;
520:
521: IF (x_mode = 'S') THEN
522: igs_sc_gen_001.set_ctx('R');
523: END IF;
524: UPDATE igs_pe_fund_source
525: SET
526: person_id = new_references.person_id,
527: fund_source_code = new_references.fund_source_code,
528: name = new_references.name,
584: || (reverse chronological order - newest change first)
585: */
586: CURSOR c1 IS
587: SELECT rowid
588: FROM igs_pe_fund_source
589: WHERE fund_source_id = x_fund_source_id;
590:
591: BEGIN
592:
649:
650: IF (x_mode = 'S') THEN
651: igs_sc_gen_001.set_ctx('R');
652: END IF;
653: DELETE FROM igs_pe_fund_source
654: WHERE rowid = x_rowid;
655:
656: IF (SQL%NOTFOUND) THEN
657: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
666:
667: END delete_row;
668:
669:
670: END igs_pe_fund_source_pkg;