1: PACKAGE BODY igs_ps_us_prenr_cfg_pkg AS
2: /* $Header: IGSPI3CB.pls 115.8 2003/06/06 11:43:11 myoganat noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_us_prenr_cfg%ROWTYPE;
1: PACKAGE BODY igs_ps_us_prenr_cfg_pkg AS
2: /* $Header: IGSPI3CB.pls 115.8 2003/06/06 11:43:11 myoganat noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_us_prenr_cfg%ROWTYPE;
6: new_references igs_ps_us_prenr_cfg%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI3CB.pls 115.8 2003/06/06 11:43:11 myoganat noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_us_prenr_cfg%ROWTYPE;
6: new_references igs_ps_us_prenr_cfg%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM igs_ps_us_prenr_cfg
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
95: BEGIN
96:
97: IF Get_UK_For_Validation (
98: new_references.unit_set_cd) THEN
99: Fnd_Message.Set_Name ('IGS', 'IGS_PS_US_PRENR_CFG_UK');
100: IGS_GE_MSG_STACK.ADD;
101: App_Exception.Raise_Exception;
102: END IF;
103: END Check_Uniqueness ;
112: || Who When What
113: || (reverse chronological order - newest change first)
114: */
115: BEGIN
116: IGS_EN_UNIT_SET_MAP_PKG.get_fk_igs_ps_us_prenr_cfg (
117: old_references.mapping_set_cd ,
118: old_references.sequence_no);
119: END Check_Child_Existance;
120:
133: || (reverse chronological order - newest change first)
134: */
135: CURSOR cur_rowid IS
136: SELECT rowid
137: FROM igs_ps_us_prenr_cfg
138: WHERE mapping_set_cd = x_mapping_set_cd
139: AND sequence_no = x_sequence_no
140: FOR UPDATE NOWAIT;
141:
161: RETURN BOOLEAN AS
162:
163: CURSOR cur_rowid IS
164: SELECT rowid
165: FROM IGS_PS_US_PRENR_CFG
166: WHERE unit_set_cd = x_unit_set_cd
167: AND ((l_rowid IS NULL) OR (rowid <> l_rowid))
168: FOR UPDATE NOWAIT;
169:
313: || (reverse chronological order - newest change first)
314: */
315: CURSOR c IS
316: SELECT rowid
317: FROM igs_ps_us_prenr_cfg
318: WHERE mapping_set_cd = x_mapping_set_cd
319: AND sequence_no = x_sequence_no;
320:
321: x_last_update_date DATE;
357: x_last_updated_by => x_last_updated_by,
358: x_last_update_login => x_last_update_login
359: );
360:
361: INSERT INTO igs_ps_us_prenr_cfg (
362: mapping_set_cd,
363: sequence_no,
364: unit_set_cd,
365: creation_date,
406: */
407: CURSOR c1 IS
408: SELECT
409: unit_set_cd
410: FROM igs_ps_us_prenr_cfg
411: WHERE rowid = x_rowid
412: FOR UPDATE NOWAIT;
413:
414: tlinfo c1%ROWTYPE;
493: x_last_updated_by => x_last_updated_by,
494: x_last_update_login => x_last_update_login
495: );
496:
497: UPDATE igs_ps_us_prenr_cfg
498: SET
499: unit_set_cd = new_references.unit_set_cd,
500: last_update_date = x_last_update_date,
501: last_updated_by = x_last_updated_by,
526: || (reverse chronological order - newest change first)
527: */
528: CURSOR c1 IS
529: SELECT rowid
530: FROM igs_ps_us_prenr_cfg
531: WHERE mapping_set_cd = x_mapping_set_cd
532: AND sequence_no = x_sequence_no;
533:
534: BEGIN
578: p_action => 'DELETE',
579: x_rowid => x_rowid
580: );
581:
582: DELETE FROM igs_ps_us_prenr_cfg
583: WHERE rowid = x_rowid;
584:
585: IF (SQL%NOTFOUND) THEN
586: RAISE NO_DATA_FOUND;
588:
589: END delete_row;
590:
591:
592: END igs_ps_us_prenr_cfg_pkg;