[Home] [Help]
1: PACKAGE BODY igs_as_anon_number_pkg AS
2: /* $Header: IGSDI61B.pls 115.1 2002/11/28 23:26:12 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_anon_number%ROWTYPE;
1: PACKAGE BODY igs_as_anon_number_pkg AS
2: /* $Header: IGSDI61B.pls 115.1 2002/11/28 23:26:12 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_anon_number%ROWTYPE;
6: new_references igs_as_anon_number%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI61B.pls 115.1 2002/11/28 23:26:12 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_anon_number%ROWTYPE;
6: new_references igs_as_anon_number%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igs_as_anon_number
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
139: || (reverse chronological order - newest change first)
140: */
141: CURSOR cur_rowid IS
142: SELECT rowid
143: FROM igs_as_anon_number
144: WHERE anum_id = x_anum_id
145: FOR UPDATE NOWAIT;
146:
147: lv_rowid cur_rowid%RowType;
176: || (reverse chronological order - newest change first)
177: */
178: CURSOR cur_rowid IS
179: SELECT rowid
180: FROM igs_as_anon_number
181: WHERE anonymous_number = x_anonymous_number
182: AND ((load_cal_type = x_load_cal_type) OR (load_cal_type IS NULL AND x_load_cal_type IS NULL))
183: AND ((load_ci_sequence_number = x_load_ci_sequence_number) OR (load_ci_sequence_number IS NULL AND x_load_ci_sequence_number IS NULL))
184: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
214: || (reverse chronological order - newest change first)
215: */
216: CURSOR cur_rowid IS
217: SELECT rowid
218: FROM igs_as_anon_number
219: WHERE ((load_cal_type = x_cal_type) AND
220: (load_ci_sequence_number = x_sequence_number));
221:
222: lv_rowid cur_rowid%RowType;
328: || (reverse chronological order - newest change first)
329: */
330: CURSOR c IS
331: SELECT rowid
332: FROM igs_as_anon_number
333: WHERE anum_id = x_anum_id;
334:
335: x_last_update_date DATE;
336: x_last_updated_by NUMBER;
356: igs_ge_msg_stack.add;
357: app_exception.raise_exception;
358: END IF;
359:
360: SELECT igs_as_anon_number_s.NEXTVAL
361: INTO x_anum_id
362: FROM dual;
363:
364: before_dml(
374: x_last_updated_by => x_last_updated_by,
375: x_last_update_login => x_last_update_login
376: );
377:
378: INSERT INTO igs_as_anon_number (
379: anum_id,
380: anonymous_number,
381: load_cal_type,
382: load_ci_sequence_number,
428: SELECT
429: anonymous_number,
430: load_cal_type,
431: load_ci_sequence_number
432: FROM igs_as_anon_number
433: WHERE rowid = x_rowid
434: FOR UPDATE NOWAIT;
435:
436: tlinfo c1%ROWTYPE;
520: x_last_updated_by => x_last_updated_by,
521: x_last_update_login => x_last_update_login
522: );
523:
524: UPDATE igs_as_anon_number
525: SET
526: anonymous_number = new_references.anonymous_number,
527: load_cal_type = new_references.load_cal_type,
528: load_ci_sequence_number = new_references.load_ci_sequence_number,
556: || (reverse chronological order - newest change first)
557: */
558: CURSOR c1 IS
559: SELECT rowid
560: FROM igs_as_anon_number
561: WHERE anum_id = x_anum_id;
562:
563: BEGIN
564:
609: p_action => 'DELETE',
610: x_rowid => x_rowid
611: );
612:
613: DELETE FROM igs_as_anon_number
614: WHERE rowid = x_rowid;
615:
616: IF (SQL%NOTFOUND) THEN
617: RAISE NO_DATA_FOUND;
619:
620: END delete_row;
621:
622:
623: END igs_as_anon_number_pkg;