1: PACKAGE BODY igs_ps_rsv_ogpri_pkg AS
2: /* $Header: IGSPI1UB.pls 120.1 2005/08/18 07:15:01 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_rsv_ogpri_all%ROWTYPE;
6: new_references igs_ps_rsv_ogpri_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI1UB.pls 120.1 2005/08/18 07:15:01 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_rsv_ogpri_all%ROWTYPE;
6: new_references igs_ps_rsv_ogpri_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 IGS_PS_RSV_OGPRI_ALL
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
150: || (reverse chronological order - newest change first)
151: */
152: BEGIN
153:
154: igs_ps_rsv_orgun_prf_pkg.get_fk_igs_ps_rsv_ogpri_all (
155: old_references.rsv_org_unit_pri_id
156: );
157:
158: END check_child_existance;
171: || (reverse chronological order - newest change first)
172: */
173: CURSOR cur_rowid IS
174: SELECT rowid
175: FROM igs_ps_rsv_ogpri_all
176: WHERE rsv_org_unit_pri_id = x_rsv_org_unit_pri_id
177: FOR UPDATE NOWAIT;
178:
179: lv_rowid cur_rowid%RowType;
205: || Known limitations, enhancements or remarks :
206: || Change History :
207: || Who When What
208: || vvutukur 18-feb-2002 removed org_id check in cursor cur_rowid and selected from igs_ps_rsv_ogpri
209: || instead of igs_ps_rsv_ogpri_all.bug:2222272(SWSCR006).
210: || (reverse chronological order - newest change first)
211: */
212: CURSOR cur_rowid IS
213: SELECT rowid
246: || (reverse chronological order - newest change first)
247: */
248: CURSOR cur_rowid IS
249: SELECT rowid
250: FROM igs_ps_rsv_ogpri_all
251: WHERE ((org_unit_cd = x_party_number));
252:
253: lv_rowid cur_rowid%RowType;
254:
366: || (reverse chronological order - newest change first)
367: */
368: CURSOR c IS
369: SELECT rowid
370: FROM igs_ps_rsv_ogpri_all
371: WHERE rsv_org_unit_pri_id = x_rsv_org_unit_pri_id;
372:
373: x_last_update_date DATE;
374: x_last_updated_by NUMBER;
394: igs_ge_msg_stack.add;
395: app_exception.raise_exception;
396: END IF;
397:
398: SELECT igs_ps_rsv_ogpri_all_s.NEXTVAL
399: INTO x_rsv_org_unit_pri_id
400: FROM dual;
401:
402: new_references.org_id := igs_ge_gen_003.get_org_id;
414: x_last_updated_by => x_last_updated_by,
415: x_last_update_login => x_last_update_login
416: );
417:
418: INSERT INTO igs_ps_rsv_ogpri_all (
419: rsv_org_unit_pri_id,
420: org_unit_cd,
421: priority_order,
422: priority_value,
470: SELECT
471: org_unit_cd,
472: priority_order,
473: priority_value
474: FROM igs_ps_rsv_ogpri_all
475: WHERE rowid = x_rowid
476: FOR UPDATE NOWAIT;
477:
478: tlinfo c1%ROWTYPE;
562: x_last_updated_by => x_last_updated_by,
563: x_last_update_login => x_last_update_login
564: );
565:
566: UPDATE igs_ps_rsv_ogpri_all
567: SET
568: org_unit_cd = new_references.org_unit_cd,
569: priority_order = new_references.priority_order,
570: priority_value = new_references.priority_value,
598: || (reverse chronological order - newest change first)
599: */
600: CURSOR c1 IS
601: SELECT rowid
602: FROM igs_ps_rsv_ogpri_all
603: WHERE rsv_org_unit_pri_id = x_rsv_org_unit_pri_id;
604:
605: BEGIN
606:
651: p_action => 'DELETE',
652: x_rowid => x_rowid
653: );
654:
655: DELETE FROM igs_ps_rsv_ogpri_all
656: WHERE rowid = x_rowid;
657:
658: IF (SQL%NOTFOUND) THEN
659: RAISE NO_DATA_FOUND;