[Home] [Help]
1: PACKAGE BODY igs_da_cnfg_ftr_pkg AS
2: /* $Header: IGSKI44B.pls 115.0 2003/04/15 09:21:21 ddey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_da_cnfg_ftr%ROWTYPE;
1: PACKAGE BODY igs_da_cnfg_ftr_pkg AS
2: /* $Header: IGSKI44B.pls 115.0 2003/04/15 09:21:21 ddey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_da_cnfg_ftr%ROWTYPE;
6: new_references igs_da_cnfg_ftr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSKI44B.pls 115.0 2003/04/15 09:21:21 ddey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_da_cnfg_ftr%ROWTYPE;
6: new_references igs_da_cnfg_ftr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
32: */
33:
34: CURSOR cur_old_ref_values IS
35: SELECT *
36: FROM igs_da_cnfg_ftr
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
128: || (reverse chronological order - newest change first)
129: */
130: CURSOR cur_rowid IS
131: SELECT rowid
132: FROM igs_da_cnfg_ftr
133: WHERE request_type_id = x_request_type_id
134: AND feature_code = x_feature_code
135: FOR UPDATE NOWAIT;
136:
164: || (reverse chronological order - newest change first)
165: */
166: CURSOR cur_rowid IS
167: SELECT rowid
168: FROM igs_da_cnfg_ftr
169: WHERE ((request_type_id = x_request_type_id));
170:
171: lv_rowid cur_rowid%RowType;
172:
199: || (reverse chronological order - newest change first)
200: */
201: CURSOR cur_rowid IS
202: SELECT rowid
203: FROM igs_da_cnfg_ftr
204: WHERE ((feature_code = x_feature_code));
205:
206: lv_rowid cur_rowid%RowType;
207:
338: x_last_update_login := -1;
339: END IF;
340: ELSE
341: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
342: fnd_message.set_token ('ROUTINE', 'IGS_DA_CNFG_FTR_PKG.INSERT_ROW');
343: igs_ge_msg_stack.add;
344: app_exception.raise_exception;
345: END IF;
346:
360: x_last_updated_by => x_last_updated_by,
361: x_last_update_login => x_last_update_login
362: );
363:
364: INSERT INTO igs_da_cnfg_ftr (
365: request_type_id,
366: feature_code,
367: configure_flag,
368: display_flag,
417: display_flag,
418: feature_value,
419: force_value_flag,
420: default_value_flag
421: FROM igs_da_cnfg_ftr
422: WHERE rowid = x_rowid
423: FOR UPDATE NOWAIT;
424:
425: tlinfo c1%ROWTYPE;
496: x_last_update_login := -1;
497: END IF;
498: ELSE
499: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
500: fnd_message.set_token ('ROUTINE', 'IGS_DA_CNFG_FTR_PKG.UPDATE_ROW');
501: igs_ge_msg_stack.add;
502: app_exception.raise_exception;
503: END IF;
504:
518: x_last_updated_by => x_last_updated_by,
519: x_last_update_login => x_last_update_login
520: );
521:
522: UPDATE igs_da_cnfg_ftr
523: SET
524: configure_flag = new_references.configure_flag,
525: display_flag = new_references.display_flag,
526: feature_value = new_references.feature_value,
559: || (reverse chronological order - newest change first)
560: */
561: CURSOR c1 IS
562: SELECT rowid
563: FROM igs_da_cnfg_ftr
564: WHERE request_type_id = x_request_type_id
565: AND feature_code = x_feature_code;
566:
567: BEGIN
619: p_action => 'DELETE',
620: x_rowid => x_rowid
621: );
622:
623: DELETE FROM igs_da_cnfg_ftr
624: WHERE rowid = x_rowid;
625:
626: IF (SQL%NOTFOUND) THEN
627: RAISE NO_DATA_FOUND;
629:
630: END delete_row;
631:
632:
633: END igs_da_cnfg_ftr_pkg;