[Home] [Help]
1: PACKAGE BODY igs_he_code_values_pkg AS
2: /* $Header: IGSWI05B.pls 115.8 2003/01/07 13:11:30 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_code_values%ROWTYPE;
1: PACKAGE BODY igs_he_code_values_pkg AS
2: /* $Header: IGSWI05B.pls 115.8 2003/01/07 13:11:30 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_code_values%ROWTYPE;
6: new_references igs_he_code_values%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI05B.pls 115.8 2003/01/07 13:11:30 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_code_values%ROWTYPE;
6: new_references igs_he_code_values%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_HE_CODE_VALUES
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
130: || (reverse chronological order - newest change first)
131: */
132: CURSOR cur_rowid IS
133: SELECT rowid
134: FROM igs_he_code_values
135: WHERE code_type = x_code_type
136: AND value = x_value
137: FOR UPDATE NOWAIT;
138:
166: || (reverse chronological order - newest change first)
167: */
168: CURSOR cur_rowid IS
169: SELECT rowid
170: FROM igs_he_code_values
171: WHERE code_type = x_code_type
172: AND value = x_value
173: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
174:
201: || (reverse chronological order - newest change first)
202: */
203: CURSOR cur_rowid IS
204: SELECT rowid
205: FROM igs_he_code_values
206: WHERE ((code_type = x_code_type));
207:
208: lv_rowid cur_rowid%RowType;
209:
316: || (reverse chronological order - newest change first)
317: */
318: CURSOR c IS
319: SELECT rowid
320: FROM igs_he_code_values
321: WHERE code_type = x_code_type
322: AND value = x_value;
323:
324: x_last_update_date DATE;
359: x_last_update_login => x_last_update_login ,
360: x_closed_ind => x_closed_ind
361: );
362:
363: INSERT INTO igs_he_code_values (
364: code_type,
365: value,
366: value_description,
367: creation_date,
411: */
412: CURSOR c1 IS
413: SELECT
414: value_description, closed_ind
415: FROM igs_he_code_values
416: WHERE rowid = x_rowid
417: FOR UPDATE NOWAIT;
418:
419: tlinfo c1%ROWTYPE;
502: x_last_update_login => x_last_update_login ,
503: x_closed_ind => x_closed_ind
504: );
505:
506: UPDATE igs_he_code_values
507: SET
508: value_description = new_references.value_description,
509: last_update_date = x_last_update_date,
510: last_updated_by = x_last_updated_by,
537: || (reverse chronological order - newest change first)
538: */
539: CURSOR c1 IS
540: SELECT rowid
541: FROM igs_he_code_values
542: WHERE code_type = x_code_type
543: AND value = x_value;
544:
545: BEGIN
591: p_action => 'DELETE',
592: x_rowid => x_rowid
593: );
594:
595: DELETE FROM igs_he_code_values
596: WHERE rowid = x_rowid;
597:
598: IF (SQL%NOTFOUND) THEN
599: RAISE NO_DATA_FOUND;
601:
602: END delete_row;
603:
604:
605: END igs_he_code_values_pkg;