1: PACKAGE BODY igs_ad_appqual_code_pkg AS
2: /* $Header: IGSAII1B.pls 120.1 2005/10/20 22:27:44 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_appqual_code%ROWTYPE;
1: PACKAGE BODY igs_ad_appqual_code_pkg AS
2: /* $Header: IGSAII1B.pls 120.1 2005/10/20 22:27:44 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_appqual_code%ROWTYPE;
6: new_references igs_ad_appqual_code%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAII1B.pls 120.1 2005/10/20 22:27:44 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_appqual_code%ROWTYPE;
6: new_references igs_ad_appqual_code%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_ad_appqual_code
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
178: || (reverse chronological order - newest change first)
179: */
180: CURSOR cur_rowid IS
181: SELECT rowid
182: FROM igs_ad_appqual_code
183: WHERE person_id = x_person_id
184: AND admission_appl_number = x_admission_appl_number
185: AND nominated_course_cd = x_nominated_course_cd
186: AND sequence_number = x_sequence_number
220: || (reverse chronological order - newest change first)
221: */
222: CURSOR cur_rowid IS
223: SELECT rowid
224: FROM igs_ad_appqual_code
225: WHERE ((admission_appl_number = x_admission_appl_number) AND
226: (nominated_course_cd = x_nominated_course_cd) AND
227: (person_id = x_person_id) AND
228: (sequence_number = x_sequence_number));
374: x_last_update_login := -1;
375: END IF;
376: ELSE
377: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
378: fnd_message.set_token ('ROUTINE', 'IGS_AD_APPQUAL_CODE_PKG.INSERT_ROW');
379: igs_ge_msg_stack.add;
380: app_exception.raise_exception;
381: END IF;
382:
397: x_last_updated_by => x_last_updated_by,
398: x_last_update_login => x_last_update_login
399: );
400:
401: INSERT INTO igs_ad_appqual_code (
402: person_id,
403: admission_appl_number,
404: nominated_course_cd,
405: sequence_number,
456: CURSOR c1 IS
457: SELECT
458: qualifying_code_id,
459: qualifying_value
460: FROM igs_ad_appqual_code
461: WHERE rowid = x_rowid
462: FOR UPDATE NOWAIT;
463:
464: tlinfo c1%ROWTYPE;
532: x_last_update_login := -1;
533: END IF;
534: ELSE
535: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
536: fnd_message.set_token ('ROUTINE', 'IGS_AD_APPQUAL_CODE_PKG.UPDATE_ROW');
537: igs_ge_msg_stack.add;
538: app_exception.raise_exception;
539: END IF;
540:
554: x_last_updated_by => x_last_updated_by,
555: x_last_update_login => x_last_update_login
556: );
557:
558: UPDATE igs_ad_appqual_code
559: SET
560: qualifying_code_id = new_references.qualifying_code_id,
561: qualifying_value = new_references.qualifying_value,
562: last_update_date = x_last_update_date,
595: || (reverse chronological order - newest change first)
596: */
597: CURSOR c1 IS
598: SELECT rowid
599: FROM igs_ad_appqual_code
600: WHERE person_id = x_person_id
601: AND admission_appl_number = x_admission_appl_number
602: AND nominated_course_cd = x_nominated_course_cd
603: AND sequence_number = x_sequence_number
658: p_action => 'DELETE',
659: x_rowid => x_rowid
660: );
661:
662: DELETE FROM igs_ad_appqual_code
663: WHERE rowid = x_rowid;
664:
665: IF (SQL%NOTFOUND) THEN
666: RAISE NO_DATA_FOUND;
688: ***************************************************************/
689:
690: CURSOR cur_rowid IS
691: SELECT rowid
692: FROM igs_ad_appqual_code
693: WHERE qualifying_code_id = x_code_id ;
694:
695: lv_rowid cur_rowid%RowType;
696:
708: Close cur_rowid;
709:
710: END Get_FK_Igs_Ad_Code_Classes;
711:
712: END igs_ad_appqual_code_pkg;