1: PACKAGE BODY igs_pe_locvenue_use_pkg AS
2: /* $Header: IGSNI76B.pls 115.4 2002/11/29 01:31:17 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_locvenue_use%ROWTYPE;
1: PACKAGE BODY igs_pe_locvenue_use_pkg AS
2: /* $Header: IGSNI76B.pls 115.4 2002/11/29 01:31:17 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_locvenue_use%ROWTYPE;
6: new_references igs_pe_locvenue_use%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNI76B.pls 115.4 2002/11/29 01:31:17 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_locvenue_use%ROWTYPE;
6: new_references igs_pe_locvenue_use%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM IGS_PE_LOCVENUE_USE
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
136: */
137:
138: CURSOR cur_rowid IS
139: SELECT rowid
140: FROM igs_pe_locvenue_use
141: WHERE loc_venue_addr_id = x_loc_venue_addr_id AND
142: ((site_use_code = x_site_use_code) OR (site_use_code IS NULL AND x_site_use_code IS NULL)) AND
143: ((l_rowid is null) or (rowid <> l_rowid)) ;
144:
172: || (reverse chronological order - newest change first)
173: */
174: CURSOR cur_rowid IS
175: SELECT rowid
176: FROM igs_pe_locvenue_use
177: WHERE locvenue_use_id = x_locvenue_use_id
178: FOR UPDATE NOWAIT;
179:
180: lv_rowid cur_rowid%RowType;
207: || (reverse chronological order - newest change first)
208: */
209: CURSOR cur_rowid IS
210: SELECT rowid
211: FROM igs_pe_locvenue_use
212: WHERE ((loc_venue_addr_id = x_location_venue_addr_id));
213:
214: lv_rowid cur_rowid%RowType;
215:
321: || (reverse chronological order - newest change first)
322: */
323: CURSOR c IS
324: SELECT rowid
325: FROM igs_pe_locvenue_use
326: WHERE locvenue_use_id = x_locvenue_use_id;
327:
328: l_locvenue_use_id NUMBER;
329: x_last_update_date DATE;
334: x_program_application_id NUMBER;
335: x_program_update_date DATE;
336:
337: BEGIN
338: SELECT IGS_PE_LOCVENUE_USE_S.NEXTVAL INTO L_LOCVENUE_USE_ID FROM DUAL;
339: x_locvenue_use_id := l_locvenue_use_id;
340: x_last_update_date := SYSDATE;
341: IF (x_mode = 'I') THEN
342: x_last_updated_by := 1;
382: x_last_updated_by => x_last_updated_by,
383: x_last_update_login => x_last_update_login
384: );
385:
386: INSERT INTO igs_pe_locvenue_use (
387: locvenue_use_id,
388: loc_venue_addr_id,
389: site_use_code,
390: active_ind,
448: loc_venue_addr_id,
449: site_use_code,
450: active_ind,
451: location
452: FROM igs_pe_locvenue_use
453: WHERE rowid = x_rowid
454: FOR UPDATE NOWAIT;
455:
456: tlinfo c1%ROWTYPE;
561: x_program_update_date := SYSDATE;
562: END IF;
563: END IF;
564:
565: UPDATE igs_pe_locvenue_use
566: SET
567: loc_venue_addr_id = new_references.loc_venue_addr_id,
568: site_use_code = new_references.site_use_code,
569: active_ind = new_references.active_ind,
603: || (reverse chronological order - newest change first)
604: */
605: CURSOR c1 IS
606: SELECT rowid
607: FROM igs_pe_locvenue_use
608: WHERE locvenue_use_id = x_locvenue_use_id;
609:
610: BEGIN
611:
658: p_action => 'DELETE',
659: x_rowid => x_rowid
660: );
661:
662: DELETE FROM igs_pe_locvenue_use
663: WHERE rowid = x_rowid;
664:
665: IF (SQL%NOTFOUND) THEN
666: RAISE NO_DATA_FOUND;
668:
669: END delete_row;
670:
671:
672: END igs_pe_locvenue_use_pkg;