[Home] [Help]
1: PACKAGE BODY igs_as_stu_trn_cmts_pkg AS
2: /* $Header: IGSDI78B.pls 115.1 2003/10/14 07:58:21 kdande noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_stu_trn_cmts%ROWTYPE;
1: PACKAGE BODY igs_as_stu_trn_cmts_pkg AS
2: /* $Header: IGSDI78B.pls 115.1 2003/10/14 07:58:21 kdande noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_stu_trn_cmts%ROWTYPE;
6: new_references igs_as_stu_trn_cmts%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI78B.pls 115.1 2003/10/14 07:58:21 kdande noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_stu_trn_cmts%ROWTYPE;
6: new_references igs_as_stu_trn_cmts%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
37: */
38:
39: CURSOR cur_old_ref_values IS
40: SELECT *
41: FROM igs_as_stu_trn_cmts
42: WHERE rowid = x_rowid;
43:
44: BEGIN
45:
223: || (reverse chronological order - newest change first)
224: */
225: CURSOR cur_rowid IS
226: SELECT rowid
227: FROM igs_as_stu_trn_cmts
228: WHERE comment_id = x_comment_id
229: FOR UPDATE NOWAIT;
230:
231: lv_rowid cur_rowid%RowType;
267: || (reverse chronological order - newest change first)
268: */
269: CURSOR cur_rowid IS
270: SELECT rowid
271: FROM igs_as_stu_trn_cmts
272: WHERE comment_type_code = x_comment_type_code
273: AND person_id = x_person_id
274: AND ((course_cd = x_course_cd) OR (course_cd IS NULL AND x_course_cd IS NULL))
275: AND ((course_type = x_course_type) OR (course_type IS NULL AND x_course_type IS NULL))
312: || (reverse chronological order - newest change first)
313: */
314: CURSOR cur_rowid IS
315: SELECT rowid
316: FROM igs_as_stu_trn_cmts
317: WHERE ((load_cal_type = x_cal_type) AND
318: (load_ci_sequence_number = x_sequence_number));
319:
320: lv_rowid cur_rowid%RowType;
349: || (reverse chronological order - newest change first)
350: */
351: CURSOR cur_rowid IS
352: SELECT rowid
353: FROM igs_as_stu_trn_cmts
354: WHERE ((unit_set_cd = x_unit_set_cd) AND
355: (us_version_number = x_version_number));
356:
357: lv_rowid cur_rowid%RowType;
385: || (reverse chronological order - newest change first)
386: */
387: CURSOR cur_rowid IS
388: SELECT rowid
389: FROM igs_as_stu_trn_cmts
390: WHERE ((award_cd = x_award_cd));
391:
392: lv_rowid cur_rowid%RowType;
393:
420: || (reverse chronological order - newest change first)
421: */
422: CURSOR cur_rowid IS
423: SELECT rowid
424: FROM igs_as_stu_trn_cmts
425: WHERE ((course_type = x_course_type));
426:
427: lv_rowid cur_rowid%RowType;
428:
455: || (reverse chronological order - newest change first)
456: */
457: CURSOR cur_rowid IS
458: SELECT rowid
459: FROM igs_as_stu_trn_cmts
460: WHERE ((uoo_id = x_uoo_id));
461:
462: lv_rowid cur_rowid%RowType;
463:
491: || (reverse chronological order - newest change first)
492: */
493: CURSOR cur_rowid IS
494: SELECT rowid
495: FROM igs_as_stu_trn_cmts
496: WHERE ((course_cd = x_course_cd) AND
497: (person_id = x_person_id));
498:
499: lv_rowid cur_rowid%RowType;
653: x_last_update_login := -1;
654: END IF;
655: ELSE
656: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
657: fnd_message.set_token ('ROUTINE', 'IGS_AS_STU_TRN_CMTS_PKG.INSERT_ROW');
658: igs_ge_msg_stack.add;
659: app_exception.raise_exception;
660: END IF;
661:
682: x_last_updated_by => x_last_updated_by,
683: x_last_update_login => x_last_update_login
684: );
685:
686: INSERT INTO igs_as_stu_trn_cmts (
687: comment_id,
688: comment_type_code,
689: comment_txt,
690: person_id,
762: load_ci_sequence_number,
763: unit_set_cd,
764: us_version_number,
765: uoo_id
766: FROM igs_as_stu_trn_cmts
767: WHERE rowid = x_rowid
768: FOR UPDATE NOWAIT;
769:
770: tlinfo c1%ROWTYPE;
852: x_last_update_login := -1;
853: END IF;
854: ELSE
855: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
856: fnd_message.set_token ('ROUTINE', 'IGS_AS_STU_TRN_CMTS_PKG.UPDATE_ROW');
857: igs_ge_msg_stack.add;
858: app_exception.raise_exception;
859: END IF;
860:
879: x_last_updated_by => x_last_updated_by,
880: x_last_update_login => x_last_update_login
881: );
882:
883: UPDATE igs_as_stu_trn_cmts
884: SET
885: comment_type_code = new_references.comment_type_code,
886: comment_txt = new_references.comment_txt,
887: person_id = new_references.person_id,
933: || (reverse chronological order - newest change first)
934: */
935: CURSOR c1 IS
936: SELECT rowid
937: FROM igs_as_stu_trn_cmts
938: WHERE comment_id = x_comment_id;
939:
940: BEGIN
941:
1002: p_action => 'DELETE',
1003: x_rowid => x_rowid
1004: );
1005:
1006: DELETE FROM igs_as_stu_trn_cmts
1007: WHERE rowid = x_rowid;
1008:
1009: IF (SQL%NOTFOUND) THEN
1010: RAISE NO_DATA_FOUND;
1014:
1015: END delete_row;
1016:
1017:
1018: END igs_as_stu_trn_cmts_pkg;