1: PACKAGE BODY igs_uc_form_quals_pkg AS
2: /* $Header: IGSXI51B.pls 120.1 2005/09/27 19:34:42 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_form_quals%ROWTYPE;
1: PACKAGE BODY igs_uc_form_quals_pkg AS
2: /* $Header: IGSXI51B.pls 120.1 2005/09/27 19:34:42 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_form_quals%ROWTYPE;
6: new_references igs_uc_form_quals%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI51B.pls 120.1 2005/09/27 19:34:42 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_form_quals%ROWTYPE;
6: new_references igs_uc_form_quals%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_uc_form_quals
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
144: || (reverse chronological order - newest change first)
145: */
146: CURSOR cur_rowid IS
147: SELECT rowid
148: FROM igs_uc_form_quals
149: WHERE app_no = x_app_no
150: AND qual_type = x_qual_type
151: AND title = x_title
152: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
181: || (reverse chronological order - newest change first)
182: */
183: CURSOR cur_rowid IS
184: SELECT rowid
185: FROM igs_uc_form_quals
186: WHERE ((app_no = x_app_no));
187:
188: lv_rowid cur_rowid%RowType;
189:
307: x_last_update_login := -1;
308: END IF;
309: ELSE
310: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
311: fnd_message.set_token ('ROUTINE', 'IGS_UC_FORM_QUALS_PKG.INSERT_ROW');
312: igs_ge_msg_stack.add;
313: app_exception.raise_exception;
314: END IF;
315:
329: x_last_updated_by => x_last_updated_by,
330: x_last_update_login => x_last_update_login
331: );
332:
333: INSERT INTO igs_uc_form_quals (
334: app_no,
335: qual_id,
336: qual_type,
337: award_body,
388: award_body,
389: title,
390: grade,
391: qual_date
392: FROM igs_uc_form_quals
393: WHERE rowid = x_rowid
394: FOR UPDATE NOWAIT;
395:
396: tlinfo c1%ROWTYPE;
469: x_last_update_login := -1;
470: END IF;
471: ELSE
472: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
473: fnd_message.set_token ('ROUTINE', 'IGS_UC_FORM_QUALS_PKG.UPDATE_ROW');
474: igs_ge_msg_stack.add;
475: app_exception.raise_exception;
476: END IF;
477:
491: x_last_updated_by => x_last_updated_by,
492: x_last_update_login => x_last_update_login
493: );
494:
495: UPDATE igs_uc_form_quals
496: SET
497: app_no = new_references.app_no,
498: qual_id = new_references.qual_id,
499: qual_type = new_references.qual_type,
534: || (reverse chronological order - newest change first)
535: */
536: CURSOR c1 IS
537: SELECT rowid
538: FROM igs_uc_form_quals
539: WHERE app_no = x_app_no;
540:
541: BEGIN
542:
593: p_action => 'DELETE',
594: x_rowid => x_rowid
595: );
596:
597: DELETE FROM igs_uc_form_quals
598: WHERE rowid = x_rowid;
599:
600: IF (SQL%NOTFOUND) THEN
601: RAISE NO_DATA_FOUND;
603:
604: END delete_row;
605:
606:
607: END igs_uc_form_quals_pkg;