1: PACKAGE BODY igs_pr_org_stat_pkg AS
2: /* $Header: IGSQI36B.pls 115.4 2002/11/29 03:23:57 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_org_stat%ROWTYPE;
1: PACKAGE BODY igs_pr_org_stat_pkg AS
2: /* $Header: IGSQI36B.pls 115.4 2002/11/29 03:23:57 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_org_stat%ROWTYPE;
6: new_references igs_pr_org_stat%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI36B.pls 115.4 2002/11/29 03:23:57 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_org_stat%ROWTYPE;
6: new_references igs_pr_org_stat%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_pr_org_stat
39: WHERE rowid = x_rowid;
40:
41: BEGIN
42:
149: || (reverse chronological order - newest change first)
150: */
151: BEGIN
152:
153: igs_pr_org_stat_ref_pkg.get_fk_igs_pr_org_stat (
154: old_references.org_unit_cd,
155: old_references.stat_type
156: );
157:
172: || (reverse chronological order - newest change first)
173: */
174: CURSOR cur_rowid IS
175: SELECT rowid
176: FROM igs_pr_org_stat
177: WHERE org_unit_cd = x_org_unit_cd
178: AND stat_type = x_stat_type
179: FOR UPDATE NOWAIT;
180:
209: || (reverse chronological order - newest change first)
210: */
211: CURSOR cur_rowid IS
212: SELECT rowid
213: FROM igs_pr_org_stat
214: WHERE org_unit_cd = x_org_unit_cd
215: AND display_order = x_display_order
216: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
217:
245: || (reverse chronological order - newest change first)
246: */
247: CURSOR cur_rowid IS
248: SELECT rowid
249: FROM igs_pr_org_stat
250: WHERE ((stat_type = x_stat_type));
251:
252: lv_rowid cur_rowid%RowType;
253:
380: || (reverse chronological order - newest change first)
381: */
382: CURSOR c IS
383: SELECT rowid
384: FROM igs_pr_org_stat
385: WHERE org_unit_cd = x_org_unit_cd
386: AND stat_type = x_stat_type;
387:
388: x_last_update_date DATE;
428: x_last_updated_by => x_last_updated_by,
429: x_last_update_login => x_last_update_login
430: );
431:
432: INSERT INTO igs_pr_org_stat (
433: stat_type,
434: org_unit_cd,
435: display_order,
436: timeframe,
487: || kdande 20-Sep-2002 Removed the references to columns progression_ind and fin_aid_ind
488: || from the c1 and removed the cursors c3, c4 and their usage for Bug# 2560160.
489: */
490:
491: CURSOR c1(l_org_unit_cd igs_pr_org_stat.org_unit_cd%TYPE) IS
492: SELECT orst.timeframe,
493: orst.standard_ind
494: FROM igs_pr_org_stat orst
495: WHERE orst.org_unit_cd = l_org_unit_cd
490:
491: CURSOR c1(l_org_unit_cd igs_pr_org_stat.org_unit_cd%TYPE) IS
492: SELECT orst.timeframe,
493: orst.standard_ind
494: FROM igs_pr_org_stat orst
495: WHERE orst.org_unit_cd = l_org_unit_cd
496: AND ( orst.standard_ind = 'Y');
497:
498: CURSOR c2 IS
496: AND ( orst.standard_ind = 'Y');
497:
498: CURSOR c2 IS
499: SELECT orst.timeframe
500: FROM igs_pr_org_stat orst
501: WHERE orst.standard_ind = 'Y'
502: AND orst.org_unit_cd = x_org_unit_cd
503: GROUP BY orst.timeframe
504: HAVING COUNT(orst.timeframe) > 1;
568: display_ind,
569: include_standard_ind,
570: include_local_ind,
571: include_other_ind
572: FROM igs_pr_org_stat
573: WHERE rowid = x_rowid
574: FOR UPDATE NOWAIT;
575:
576: tlinfo c1%ROWTYPE;
674: x_last_updated_by => x_last_updated_by,
675: x_last_update_login => x_last_update_login
676: );
677:
678: UPDATE igs_pr_org_stat
679: SET
680: display_order = new_references.display_order,
681: timeframe = new_references.timeframe,
682: standard_ind = new_references.standard_ind,
719: || (reverse chronological order - newest change first)
720: */
721: CURSOR c1 IS
722: SELECT rowid
723: FROM igs_pr_org_stat
724: WHERE org_unit_cd = x_org_unit_cd
725: AND stat_type = x_stat_type;
726:
727: BEGIN
783: p_action => 'DELETE',
784: x_rowid => x_rowid
785: );
786:
787: DELETE FROM igs_pr_org_stat
788: WHERE rowid = x_rowid;
789:
790: IF (SQL%NOTFOUND) THEN
791: RAISE NO_DATA_FOUND;
793:
794: END delete_row;
795:
796:
797: END igs_pr_org_stat_pkg;