[Home] [Help]
1: PACKAGE BODY igs_pr_inst_sta_ref_pkg AS
2: /* $Header: IGSQI35B.pls 120.1 2005/11/21 02:01:00 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_inst_sta_ref%ROWTYPE;
1: PACKAGE BODY igs_pr_inst_sta_ref_pkg AS
2: /* $Header: IGSQI35B.pls 120.1 2005/11/21 02:01:00 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_inst_sta_ref%ROWTYPE;
6: new_references igs_pr_inst_sta_ref%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI35B.pls 120.1 2005/11/21 02:01:00 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_inst_sta_ref%ROWTYPE;
6: new_references igs_pr_inst_sta_ref%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 igs_pr_inst_sta_ref
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
113: || (reverse chronological order - newest change first)
114: */
115: CURSOR cur_rowid IS
116: SELECT rowid
117: FROM igs_pr_inst_sta_ref
118: WHERE stat_type = x_stat_type
119: AND unit_ref_cd = x_unit_ref_cd
120: AND reference_cd_type = x_reference_cd_type
121: FOR UPDATE NOWAIT;
150: || (reverse chronological order - newest change first)
151: */
152: CURSOR cur_rowid IS
153: SELECT rowid
154: FROM igs_pr_inst_sta_ref
155: WHERE ((stat_type = x_stat_type));
156:
157: lv_rowid cur_rowid%RowType;
158:
263: || (reverse chronological order - newest change first)
264: */
265: CURSOR c IS
266: SELECT rowid
267: FROM igs_pr_inst_sta_ref
268: WHERE stat_type = x_stat_type
269: AND unit_ref_cd = x_unit_ref_cd;
270:
271: CURSOR c1 IS
269: AND unit_ref_cd = x_unit_ref_cd;
270:
271: CURSOR c1 IS
272: SELECT include_or_exclude
273: FROM igs_pr_inst_sta_ref
274: WHERE stat_type = x_stat_type;
275:
276: x_last_update_date DATE;
277: x_last_updated_by NUMBER;
275:
276: x_last_update_date DATE;
277: x_last_updated_by NUMBER;
278: x_last_update_login NUMBER;
279: l_include_or_exclude igs_pr_inst_sta_ref.include_or_exclude%TYPE;
280: l_c1 c1%ROWTYPE;
281:
282: BEGIN
283: x_last_update_date := SYSDATE;
327: app_exception.raise_exception;
328: END IF;
329: END LOOP;
330:
331: INSERT INTO igs_pr_inst_sta_ref (
332: stat_type,
333: unit_ref_cd,
334: include_or_exclude,
335: creation_date,
379: */
380: CURSOR c1 IS
381: SELECT
382: include_or_exclude
383: FROM igs_pr_inst_sta_ref
384: WHERE rowid = x_rowid
385: FOR UPDATE NOWAIT;
386:
387: tlinfo c1%ROWTYPE;
469: x_last_update_login => x_last_update_login,
470: x_reference_cd_type => x_reference_cd_type
471: );
472:
473: UPDATE igs_pr_inst_sta_ref
474: SET
475: include_or_exclude = new_references.include_or_exclude,
476: last_update_date = x_last_update_date,
477: last_updated_by = x_last_updated_by,
503: || (reverse chronological order - newest change first)
504: */
505: CURSOR c1 IS
506: SELECT rowid
507: FROM igs_pr_inst_sta_ref
508: WHERE stat_type = x_stat_type
509: AND unit_ref_cd = x_unit_ref_cd;
510:
511: BEGIN
557: p_action => 'DELETE',
558: x_rowid => x_rowid
559: );
560:
561: DELETE FROM igs_pr_inst_sta_ref
562: WHERE rowid = x_rowid;
563:
564: IF (SQL%NOTFOUND) THEN
565: RAISE NO_DATA_FOUND;
567:
568: END delete_row;
569:
570:
571: END igs_pr_inst_sta_ref_pkg;