1: PACKAGE BODY igs_uc_com_scsicnts_pkg AS
2: /* $Header: IGSXI12B.pls 115.7 2003/06/11 10:34:42 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_com_scsicnts%ROWTYPE;
1: PACKAGE BODY igs_uc_com_scsicnts_pkg AS
2: /* $Header: IGSXI12B.pls 115.7 2003/06/11 10:34:42 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_com_scsicnts%ROWTYPE;
6: new_references igs_uc_com_scsicnts%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI12B.pls 115.7 2003/06/11 10:34:42 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_com_scsicnts%ROWTYPE;
6: new_references igs_uc_com_scsicnts%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
42: */
43:
44: CURSOR cur_old_ref_values IS
45: SELECT *
46: FROM IGS_UC_COM_SCSICNTS
47: WHERE rowid = x_rowid;
48:
49: BEGIN
50:
140: || (reverse chronological order - newest change first)
141: */
142: CURSOR cur_rowid IS
143: SELECT rowid
144: FROM igs_uc_com_scsicnts
145: WHERE school = x_school
146: AND sitecode = x_sitecode
147: AND contact_code = x_contact_code ;
148:
177: || (reverse chronological order - newest change first)
178: */
179: CURSOR cur_rowid IS
180: SELECT rowid
181: FROM igs_uc_com_scsicnts
182: WHERE ((school = x_school) AND
183: (sitecode = x_sitecode));
184:
185: lv_rowid cur_rowid%RowType;
328: || (reverse chronological order - newest change first)
329: */
330: CURSOR c IS
331: SELECT rowid
332: FROM igs_uc_com_scsicnts
333: WHERE school = x_school
334: AND sitecode = x_sitecode
335: AND contact_code = x_contact_code;
336:
384: x_last_updated_by => x_last_updated_by,
385: x_last_update_login => x_last_update_login
386: );
387:
388: INSERT INTO igs_uc_com_scsicnts (
389: school,
390: sitecode,
391: contact_code,
392: contact_post,
485: referee,
486: careers,
487: eas_contact,
488: imported
489: FROM igs_uc_com_scsicnts
490: WHERE rowid = x_rowid
491: FOR UPDATE NOWAIT;
492:
493: tlinfo c1%ROWTYPE;
612: x_last_updated_by => x_last_updated_by,
613: x_last_update_login => x_last_update_login
614: );
615:
616: UPDATE igs_uc_com_scsicnts
617: SET
618: contact_post = new_references.contact_post,
619: contact_name = new_references.contact_name,
620: telephone = new_references.telephone,
671: || (reverse chronological order - newest change first)
672: */
673: CURSOR c1 IS
674: SELECT rowid
675: FROM igs_uc_com_scsicnts
676: WHERE school = x_school
677: AND sitecode = x_sitecode
678: AND contact_code = x_contact_code;
679:
750: p_action => 'DELETE',
751: x_rowid => x_rowid
752: );
753:
754: DELETE FROM igs_uc_com_scsicnts
755: WHERE rowid = x_rowid;
756:
757: IF (SQL%NOTFOUND) THEN
758: RAISE NO_DATA_FOUND;
760:
761: END delete_row;
762:
763:
764: END igs_uc_com_scsicnts_pkg;