[Home] [Help]
1: PACKAGE BODY igs_ad_qual_type_pkg AS
2: /* $Header: IGSAII0B.pls 120.0 2005/10/14 10:42:59 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_qual_type%ROWTYPE;
1: PACKAGE BODY igs_ad_qual_type_pkg AS
2: /* $Header: IGSAII0B.pls 120.0 2005/10/14 10:42:59 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_qual_type%ROWTYPE;
6: new_references igs_ad_qual_type%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAII0B.pls 120.0 2005/10/14 10:42:59 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_qual_type%ROWTYPE;
6: new_references igs_ad_qual_type%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_ad_qual_type
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
115: || (reverse chronological order - newest change first)
116: */
117: CURSOR cur_rowid IS
118: SELECT rowid
119: FROM igs_ad_qual_type
120: WHERE admission_cat = x_admission_cat
121: AND s_admission_process_type = x_s_admission_process_type
122: AND qualifying_type_code = x_qualifying_type_code
123: FOR UPDATE NOWAIT;
153: || (reverse chronological order - newest change first)
154: */
155: CURSOR cur_rowid IS
156: SELECT rowid
157: FROM igs_ad_qual_type
158: WHERE ((admission_cat = x_admission_cat) AND
159: (s_admission_process_type = x_s_admission_process_type));
160:
161: lv_rowid cur_rowid%RowType;
286: x_last_update_login := -1;
287: END IF;
288: ELSE
289: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
290: fnd_message.set_token ('ROUTINE', 'IGS_AD_QUAL_TYPE_PKG.INSERT_ROW');
291: igs_ge_msg_stack.add;
292: app_exception.raise_exception;
293: END IF;
294:
307: x_last_updated_by => x_last_updated_by,
308: x_last_update_login => x_last_update_login
309: );
310:
311: INSERT INTO igs_ad_qual_type (
312: admission_cat,
313: s_admission_process_type,
314: qualifying_type_code,
315: closed_flag,
351: */
352: CURSOR c1 IS
353: SELECT
354: closed_flag
355: FROM igs_ad_qual_type
356: WHERE rowid = x_rowid
357: FOR UPDATE NOWAIT;
358:
359: tlinfo c1%ROWTYPE;
423: x_last_update_login := -1;
424: END IF;
425: ELSE
426: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
427: fnd_message.set_token ('ROUTINE', 'IGS_AD_QUAL_TYPE_PKG.UPDATE_ROW');
428: igs_ge_msg_stack.add;
429: app_exception.raise_exception;
430: END IF;
431:
442: x_last_updated_by => x_last_updated_by,
443: x_last_update_login => x_last_update_login
444: );
445:
446: UPDATE igs_ad_qual_type
447: SET
448: closed_flag = new_references.closed_flag,
449: last_update_date = x_last_update_date,
450: last_updated_by = x_last_updated_by,
476: || (reverse chronological order - newest change first)
477: */
478: CURSOR c1 IS
479: SELECT rowid
480: FROM igs_ad_qual_type
481: WHERE admission_cat = x_admission_cat
482: AND s_admission_process_type = x_s_admission_process_type
483: AND qualifying_type_code = x_qualifying_type_code;
484:
531: p_action => 'DELETE',
532: x_rowid => x_rowid
533: );
534:
535: DELETE FROM igs_ad_qual_type
536: WHERE rowid = x_rowid;
537:
538: IF (SQL%NOTFOUND) THEN
539: RAISE NO_DATA_FOUND;
541:
542: END delete_row;
543:
544:
545: END igs_ad_qual_type_pkg;