[Home] [Help]
1: PACKAGE BODY igs_pr_inst_stat_pkg AS
2: /* $Header: IGSQI34B.pls 115.6 2003/05/16 12:46:26 kdande noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_inst_stat%ROWTYPE;
1: PACKAGE BODY igs_pr_inst_stat_pkg AS
2: /* $Header: IGSQI34B.pls 115.6 2003/05/16 12:46:26 kdande noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_inst_stat%ROWTYPE;
6: new_references igs_pr_inst_stat%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI34B.pls 115.6 2003/05/16 12:46:26 kdande noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_inst_stat%ROWTYPE;
6: new_references igs_pr_inst_stat%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
33: */
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM igs_pr_inst_stat
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
140: || (reverse chronological order - newest change first)
141: */
142: BEGIN
143:
144: igs_pr_inst_sta_ref_pkg.get_fk_igs_pr_inst_stat (
145: old_references.stat_type
146: );
147:
148: END check_child_existance;
161: || (reverse chronological order - newest change first)
162: */
163: CURSOR cur_rowid IS
164: SELECT rowid
165: FROM igs_pr_inst_stat
166: WHERE stat_type = x_stat_type
167: FOR UPDATE NOWAIT;
168:
169: lv_rowid cur_rowid%RowType;
195: || (reverse chronological order - newest change first)
196: */
197: CURSOR cur_rowid IS
198: SELECT rowid
199: FROM igs_pr_inst_stat
200: WHERE display_order = x_display_order
201: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
202:
203: lv_rowid cur_rowid%RowType;
229: || (reverse chronological order - newest change first)
230: */
231: CURSOR cur_rowid IS
232: SELECT rowid
233: FROM igs_pr_inst_stat
234: WHERE ((stat_type = x_stat_type));
235:
236: lv_rowid cur_rowid%RowType;
237:
366: || (reverse chronological order - newest change first)
367: */
368: CURSOR c IS
369: SELECT rowid
370: FROM igs_pr_inst_stat
371: WHERE stat_type = x_stat_type;
372:
373: x_last_update_date DATE;
374: x_last_updated_by NUMBER;
412: x_last_updated_by => x_last_updated_by,
413: x_last_update_login => x_last_update_login
414: );
415:
416: INSERT INTO igs_pr_inst_stat (
417: stat_type,
418: display_order,
419: timeframe,
420: standard_ind,
470:
471: CURSOR c1 IS
472: SELECT inst.timeframe,
473: inst.standard_ind
474: FROM igs_pr_inst_stat inst
475: WHERE inst.standard_ind = 'Y';
476:
477: CURSOR c2 IS
478: SELECT inst.timeframe
475: WHERE inst.standard_ind = 'Y';
476:
477: CURSOR c2 IS
478: SELECT inst.timeframe
479: FROM igs_pr_inst_stat inst
480: WHERE inst.standard_ind = 'Y'
481: GROUP BY inst.timeframe
482: HAVING COUNT(inst.timeframe) > 1;
483:
555: display_ind,
556: include_standard_ind,
557: include_local_ind,
558: include_other_ind
559: FROM igs_pr_inst_stat
560: WHERE rowid = x_rowid
561: FOR UPDATE NOWAIT;
562:
563: tlinfo c1%ROWTYPE;
659: x_last_updated_by => x_last_updated_by,
660: x_last_update_login => x_last_update_login
661: );
662:
663: UPDATE igs_pr_inst_stat
664: SET
665: display_order = new_references.display_order,
666: timeframe = new_references.timeframe,
667: standard_ind = new_references.standard_ind,
704: || (reverse chronological order - newest change first)
705: */
706: CURSOR c1 IS
707: SELECT rowid
708: FROM igs_pr_inst_stat
709: WHERE stat_type = x_stat_type;
710:
711: BEGIN
712:
765: p_action => 'DELETE',
766: x_rowid => x_rowid
767: );
768:
769: DELETE FROM igs_pr_inst_stat
770: WHERE rowid = x_rowid;
771:
772: IF (SQL%NOTFOUND) THEN
773: RAISE NO_DATA_FOUND;
775:
776: END delete_row;
777:
778:
779: END igs_pr_inst_stat_pkg;