[Home] [Help]
1: PACKAGE BODY igs_uc_com_sch_pkg AS
2: /* $Header: IGSXI10B.pls 115.9 2003/08/13 09:51:51 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_com_sch%ROWTYPE;
1: PACKAGE BODY igs_uc_com_sch_pkg AS
2: /* $Header: IGSXI10B.pls 115.9 2003/08/13 09:51:51 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_com_sch%ROWTYPE;
6: new_references igs_uc_com_sch%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI10B.pls 115.9 2003/08/13 09:51:51 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_com_sch%ROWTYPE;
6: new_references igs_uc_com_sch%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
44: */
45:
46: CURSOR cur_old_ref_values IS
47: SELECT *
48: FROM IGS_UC_COM_SCH
49: WHERE rowid = x_rowid;
50:
51: BEGIN
52:
111: || (reverse chronological order - newest change first)
112: */
113: BEGIN
114:
115: igs_uc_com_schsites_pkg.get_fk_igs_uc_com_sch (
116: old_references.school
117: );
118:
119: END check_child_existance;
132: || (reverse chronological order - newest change first)
133: */
134: CURSOR cur_rowid IS
135: SELECT rowid
136: FROM igs_uc_com_sch
137: WHERE school = x_school ;
138:
139: lv_rowid cur_rowid%RowType;
140:
191: || (reverse chronological order - newest change first)
192: */
193: CURSOR cur_rowid IS
194: SELECT rowid
195: FROM igs_uc_com_sch
196: WHERE ((country = x_country));
197:
198: lv_rowid cur_rowid%RowType;
199:
346: || (reverse chronological order - newest change first)
347: */
348: CURSOR c IS
349: SELECT rowid
350: FROM igs_uc_com_sch
351: WHERE school = x_school;
352:
353: x_last_update_date DATE;
354: x_last_updated_by NUMBER;
402: x_last_updated_by => x_last_updated_by,
403: x_last_update_login => x_last_update_login
404: );
405:
406: INSERT INTO igs_uc_com_sch (
407: school,
408: school_name,
409: name_change_date,
410: former_name,
516: number_in_5_form,
517: number_in_6_form,
518: number_to_he,
519: imported
520: FROM igs_uc_com_sch
521: WHERE rowid = x_rowid
522: FOR UPDATE NOWAIT;
523:
524: tlinfo c1%ROWTYPE;
650: x_last_updated_by => x_last_updated_by,
651: x_last_update_login => x_last_update_login
652: );
653:
654: UPDATE igs_uc_com_sch
655: SET
656: school_name = new_references.school_name,
657: name_change_date = new_references.name_change_date,
658: former_name = new_references.former_name,
714: || (reverse chronological order - newest change first)
715: */
716: CURSOR c1 IS
717: SELECT rowid
718: FROM igs_uc_com_sch
719: WHERE school = x_school;
720:
721: BEGIN
722:
795: p_action => 'DELETE',
796: x_rowid => x_rowid
797: );
798:
799: DELETE FROM igs_uc_com_sch
800: WHERE rowid = x_rowid;
801:
802: IF (SQL%NOTFOUND) THEN
803: RAISE NO_DATA_FOUND;
805:
806: END delete_row;
807:
808:
809: END igs_uc_com_sch_pkg;