1: PACKAGE BODY igs_ad_loc_accts_pkg AS
2: /* $Header: IGSAIF1B.pls 115.7 2003/10/30 13:26:09 rghosh noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_loc_accts_all%ROWTYPE;
6: new_references igs_ad_loc_accts_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAIF1B.pls 115.7 2003/10/30 13:26:09 rghosh noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_loc_accts_all%ROWTYPE;
6: new_references igs_ad_loc_accts_all%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_AD_LOC_ACCTS_ALL
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
113: || (reverse chronological order - newest change first)
114: */
115: CURSOR cur_rowid IS
116: SELECT rowid
117: FROM igs_ad_loc_accts_all
118: WHERE location_account_id = x_location_account_id
119: FOR UPDATE NOWAIT;
120:
121: lv_rowid cur_rowid%RowType;
148: || (reverse chronological order - newest change first)
149: */
150: CURSOR cur_rowid IS
151: SELECT rowid
152: FROM igs_ad_loc_accts_all
153: WHERE ((location_cd = x_location_cd));
154:
155: lv_rowid cur_rowid%RowType;
156:
259: || (reverse chronological order - newest change first)
260: */
261: CURSOR c IS
262: SELECT rowid
263: FROM igs_ad_loc_accts_all
264: WHERE location_account_id = x_location_account_id;
265:
266: x_last_update_date DATE;
267: x_last_updated_by NUMBER;
306: x_last_updated_by => x_last_updated_by,
307: x_last_update_login => x_last_update_login
308: );
309:
310: INSERT INTO igs_ad_loc_accts_all (
311: location_account_id,
312: location_cd,
313: segment,
314: segment_num,
366: location_cd,
367: segment,
368: segment_num,
369: segment_value
370: FROM igs_ad_loc_accts_all
371: WHERE rowid = x_rowid
372: FOR UPDATE NOWAIT;
373:
374: tlinfo c1%ROWTYPE;
461: x_last_updated_by => x_last_updated_by,
462: x_last_update_login => x_last_update_login
463: );
464:
465: UPDATE igs_ad_loc_accts_all
466: SET
467: location_cd = new_references.location_cd,
468: segment = new_references.segment,
469: segment_num = new_references.segment_num,
499: || (reverse chronological order - newest change first)
500: */
501: CURSOR c1 IS
502: SELECT rowid
503: FROM igs_ad_loc_accts_all
504: WHERE location_account_id = x_location_account_id;
505:
506: BEGIN
507:
554: p_action => 'DELETE',
555: x_rowid => x_rowid
556: );
557:
558: DELETE FROM igs_ad_loc_accts_all
559: WHERE rowid = x_rowid;
560:
561: IF (SQL%NOTFOUND) THEN
562: RAISE NO_DATA_FOUND;