1: PACKAGE BODY igf_aw_coa_group_pkg AS
2: /* $Header: IGFWI05B.pls 115.17 2002/11/28 14:37:26 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_group_all%ROWTYPE;
1: PACKAGE BODY igf_aw_coa_group_pkg AS
2: /* $Header: IGFWI05B.pls 115.17 2002/11/28 14:37:26 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_group_all%ROWTYPE;
6: new_references igf_aw_coa_group_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI05B.pls 115.17 2002/11/28 14:37:26 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_group_all%ROWTYPE;
6: new_references igf_aw_coa_group_all%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 IGF_AW_COA_GROUP_ALL
39: WHERE rowid = x_rowid;
40:
41: BEGIN
42:
124: --
125:
126: BEGIN
127:
128: igf_aw_coa_grp_item_pkg.get_fk_igf_aw_coa_group (
129: old_references.coa_code,
130: old_references.ci_cal_type,
131: old_references.ci_sequence_number
132: );
130: old_references.ci_cal_type,
131: old_references.ci_sequence_number
132: );
133:
134: igf_aw_coa_ld_pkg.get_fk_igf_aw_coa_group (
135: old_references.coa_code,
136: old_references.ci_cal_type,
137: old_references.ci_sequence_number
138: );
155: --
156:
157: CURSOR cur_rowid IS
158: SELECT rowid
159: FROM igf_aw_coa_group_all
160: WHERE upper(coa_code) = upper(x_coa_code)
161: AND ci_cal_type = x_ci_cal_type
162: AND ci_sequence_number = x_ci_sequence_number
163: FOR UPDATE NOWAIT;
194: -- (reverse chronological order - newest change first)
195: --
196: CURSOR cur_rowid IS
197: SELECT rowid
198: FROM igf_aw_coa_group_all
199: WHERE ((ci_cal_type = x_cal_type) AND
200: (ci_sequence_number = x_sequence_number));
201:
202: lv_rowid cur_rowid%RowType;
330: --
331:
332: CURSOR c IS
333: SELECT rowid
334: FROM igf_aw_coa_group_all
335: WHERE coa_code = x_coa_code
336: AND ci_cal_type = x_ci_cal_type
337: AND ci_sequence_number = x_ci_sequence_number;
338:
338:
339: x_last_update_date DATE;
340: x_last_updated_by NUMBER;
341: x_last_update_login NUMBER;
342: l_org_id igf_aw_coa_group_all.org_id%TYPE;
343:
344: BEGIN
345:
346: l_org_id := igf_aw_gen.get_org_id;
382: x_last_update_login => x_last_update_login,
383: x_coa_grp_desc => x_coa_grp_desc
384: );
385:
386: INSERT INTO igf_aw_coa_group(
387: coa_code,
388: ci_cal_type,
389: ci_sequence_number,
390: creation_date,
443:
444: CURSOR c1 IS
445: SELECT
446: coa_grp_desc
447: FROM igf_aw_coa_group_all
448: WHERE rowid = x_rowid
449: FOR UPDATE NOWAIT;
450:
451: tlinfo c1%ROWTYPE;
544: x_last_update_login => x_last_update_login,
545: x_coa_grp_desc => x_coa_grp_desc
546: );
547:
548: UPDATE igf_aw_coa_group_all
549: SET
550: coa_grp_desc = new_references.coa_grp_desc,
551: last_update_date = x_last_update_date,
552: last_updated_by = x_last_updated_by,
585: --
586:
587: CURSOR c1 IS
588: SELECT rowid
589: FROM igf_aw_coa_group_all
590: WHERE coa_code = x_coa_code
591: AND ci_cal_type = x_ci_cal_type
592: AND ci_sequence_number = x_ci_sequence_number;
593:
652: p_action => 'DELETE',
653: x_rowid => x_rowid
654: );
655:
656: DELETE FROM igf_aw_coa_group_all
657: WHERE rowid = x_rowid;
658:
659: IF (SQL%NOTFOUND) THEN
660: RAISE NO_DATA_FOUND;
662:
663: END delete_row;
664:
665:
666: END igf_aw_coa_group_pkg;