1: PACKAGE BODY igs_uc_jnt_adm_inst_pkg AS
2: /* $Header: IGSXI40B.pls 115.3 2003/02/28 07:51:23 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_jnt_adm_inst%ROWTYPE;
1: PACKAGE BODY igs_uc_jnt_adm_inst_pkg AS
2: /* $Header: IGSXI40B.pls 115.3 2003/02/28 07:51:23 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_jnt_adm_inst%ROWTYPE;
6: new_references igs_uc_jnt_adm_inst%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI40B.pls 115.3 2003/02/28 07:51:23 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_jnt_adm_inst%ROWTYPE;
6: new_references igs_uc_jnt_adm_inst%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM igs_uc_jnt_adm_inst
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
88: || (reverse chronological order - newest change first)
89: */
90: CURSOR cur_rowid IS
91: SELECT rowid
92: FROM igs_uc_jnt_adm_inst
93: WHERE child_inst = x_child_inst ;
94:
95: lv_rowid cur_rowid%RowType;
96:
237: x_last_updated_by => x_last_updated_by,
238: x_last_update_login => x_last_update_login
239: );
240:
241: INSERT INTO igs_uc_jnt_adm_inst (
242: child_inst,
243: parent_inst1,
244: parent_inst2,
245: parent_inst3,
291: parent_inst2,
292: parent_inst3,
293: parent_inst4,
294: parent_inst5
295: FROM igs_uc_jnt_adm_inst
296: WHERE rowid = x_rowid
297: FOR UPDATE NOWAIT;
298:
299: tlinfo c1%ROWTYPE;
389: x_last_updated_by => x_last_updated_by,
390: x_last_update_login => x_last_update_login
391: );
392:
393: UPDATE igs_uc_jnt_adm_inst
394: SET
395: parent_inst1 = new_references.parent_inst1,
396: parent_inst2 = new_references.parent_inst2,
397: parent_inst3 = new_references.parent_inst3,
429: || (reverse chronological order - newest change first)
430: */
431: CURSOR c1 IS
432: SELECT rowid
433: FROM igs_uc_jnt_adm_inst
434: WHERE child_inst = x_child_inst;
435:
436: BEGIN
437:
486: p_action => 'DELETE',
487: x_rowid => x_rowid
488: );
489:
490: DELETE FROM igs_uc_jnt_adm_inst
491: WHERE rowid = x_rowid;
492:
493: IF (SQL%NOTFOUND) THEN
494: RAISE NO_DATA_FOUND;
496:
497: END delete_row;
498:
499:
500: END igs_uc_jnt_adm_inst_pkg;