1: PACKAGE BODY igf_aw_fund_type_pkg AS
2: /* $Header: IGFWI03B.pls 115.9 2002/11/28 14:36:57 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_fund_type_all%ROWTYPE;
1: PACKAGE BODY igf_aw_fund_type_pkg AS
2: /* $Header: IGFWI03B.pls 115.9 2002/11/28 14:36:57 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_fund_type_all%ROWTYPE;
6: new_references igf_aw_fund_type_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI03B.pls 115.9 2002/11/28 14:36:57 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_fund_type_all%ROWTYPE;
6: new_references igf_aw_fund_type_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGF_AW_FUND_TYPE_ALL
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
105: || (reverse chronological order - newest change first)
106: */
107: BEGIN
108:
109: igf_aw_fund_cat_pkg.get_ufk_igf_aw_fund_type (
110: old_references.fund_type
111: );
112:
113: END check_child_existance;
131: ((old_references.fund_type IS NULL))) THEN
132:
133: NULL;
134: ELSE
135: igf_aw_fund_cat_pkg.get_ufk_igf_aw_fund_type (
136: old_references.fund_type
137: );
138:
139:
155: || (reverse chronological order - newest change first)
156: */
157: CURSOR cur_rowid IS
158: SELECT rowid
159: FROM igf_aw_fund_type
160: WHERE ft_id = x_ft_id
161: FOR UPDATE NOWAIT;
162:
163: lv_rowid cur_rowid%RowType;
191: || adhawan 23-feb-02' made the UNIQUE key incasesensitive by adding the UPPER clause
192: || (reverse chronological order - newest change first)
193: */
194:
195: l_org_id igf_aw_fund_type_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
196: CURSOR cur_rowid IS
197: SELECT rowid
198: FROM igf_aw_fund_type
199: WHERE fund_type = x_fund_type
194:
195: l_org_id igf_aw_fund_type_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
196: CURSOR cur_rowid IS
197: SELECT rowid
198: FROM igf_aw_fund_type
199: WHERE fund_type = x_fund_type
200: AND ((l_rowid IS NULL) OR (rowid <> l_rowid))
201: AND NVL(org_id,NVL(l_org_id,-99))=NVL(l_org_id,-99)
202: FOR UPDATE NOWAIT;
315: || (reverse chronological order - newest change first)
316: */
317: CURSOR c IS
318: SELECT rowid
319: FROM igf_aw_fund_type_all
320: WHERE ft_id = x_ft_id;
321:
322: x_last_update_date DATE;
323: x_last_updated_by NUMBER;
322: x_last_update_date DATE;
323: x_last_updated_by NUMBER;
324: x_last_update_login NUMBER;
325:
326: l_org_id igf_aw_fund_type_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
327:
328: BEGIN
329:
330: x_last_update_date := SYSDATE;
345: igs_ge_msg_stack.add;
346: app_exception.raise_exception;
347: END IF;
348:
349: SELECT igf_aw_fund_type_all_s.nextval INTO x_ft_id FROM dual;
350:
351: before_dml(
352: p_action => 'INSERT',
353: x_rowid => x_rowid,
361: x_last_updated_by => x_last_updated_by,
362: x_last_update_login => x_last_update_login
363: );
364:
365: INSERT INTO igf_aw_fund_type_all (
366: fund_type,
367: description,
368: active,
369: ft_id,
417: SELECT
418: fund_type,
419: description,
420: active
421: FROM igf_aw_fund_type_all
422: WHERE rowid = x_rowid
423: FOR UPDATE NOWAIT;
424:
425: tlinfo c1%ROWTYPE;
509: x_last_updated_by => x_last_updated_by,
510: x_last_update_login => x_last_update_login
511: );
512:
513: UPDATE igf_aw_fund_type_all
514: SET
515: fund_type = new_references.fund_type,
516: description = new_references.description,
517: active = new_references.active,
545: || (reverse chronological order - newest change first)
546: */
547: CURSOR c1 IS
548: SELECT rowid
549: FROM igf_aw_fund_type
550: WHERE ft_id = x_ft_id;
551:
552: BEGIN
553:
598: p_action => 'DELETE',
599: x_rowid => x_rowid
600: );
601:
602: DELETE FROM igf_aw_fund_type_all
603: WHERE rowid = x_rowid;
604:
605: IF (SQL%NOTFOUND) THEN
606: RAISE NO_DATA_FOUND;
608:
609: END delete_row;
610:
611:
612: END igf_aw_fund_type_pkg;