1: PACKAGE BODY igs_he_ex_rn_dat_fd_pkg AS
2: /* $Header: IGSWI08B.pls 115.7 2002/12/20 08:47:56 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ex_rn_dat_fd%ROWTYPE;
1: PACKAGE BODY igs_he_ex_rn_dat_fd_pkg AS
2: /* $Header: IGSWI08B.pls 115.7 2002/12/20 08:47:56 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ex_rn_dat_fd%ROWTYPE;
6: new_references igs_he_ex_rn_dat_fd%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI08B.pls 115.7 2002/12/20 08:47:56 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ex_rn_dat_fd%ROWTYPE;
6: new_references igs_he_ex_rn_dat_fd%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM IGS_HE_EX_RN_DAT_FD
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
119: || (reverse chronological order - newest change first)
120: */
121: CURSOR cur_rowid IS
122: SELECT rowid
123: FROM igs_he_ex_rn_dat_fd
124: WHERE extract_run_id = x_extract_run_id
125: AND line_number = x_line_number
126: AND field_number = x_field_number
127: FOR UPDATE NOWAIT;
157: || (reverse chronological order - newest change first)
158: */
159: CURSOR cur_rowid IS
160: SELECT rowid
161: FROM igs_he_ex_rn_dat_fd
162: WHERE ((extract_run_id = x_extract_run_id) AND
163: (line_number = x_line_number));
164:
165: lv_rowid cur_rowid%RowType;
276: || (reverse chronological order - newest change first)
277: */
278: CURSOR c IS
279: SELECT rowid
280: FROM igs_he_ex_rn_dat_fd
281: WHERE extract_run_id = x_extract_run_id
282: AND line_number = x_line_number
283: AND field_number = x_field_number;
284:
306: igs_ge_msg_stack.add;
307: app_exception.raise_exception;
308: END IF;
309:
310: select IGS_HE_EX_RN_DAT_FD_S.NEXTVAL INTO x_rn_dat_fd_id from dual ;
311:
312: before_dml(
313: p_action => 'INSERT',
314: x_rowid => x_rowid,
324: x_last_updated_by => x_last_updated_by,
325: x_last_update_login => x_last_update_login
326: );
327:
328: INSERT INTO igs_he_ex_rn_dat_fd (
329: rn_dat_fd_id,
330: extract_run_id,
331: line_number,
332: field_number,
384: SELECT
385: rn_dat_fd_id,
386: value,
387: override_value
388: FROM igs_he_ex_rn_dat_fd
389: WHERE rowid = x_rowid
390: FOR UPDATE NOWAIT;
391:
392: tlinfo c1%ROWTYPE;
480: x_last_updated_by => x_last_updated_by,
481: x_last_update_login => x_last_update_login
482: );
483:
484: UPDATE igs_he_ex_rn_dat_fd
485: SET
486: rn_dat_fd_id = new_references.rn_dat_fd_id,
487: value = new_references.value,
488: override_value = new_references.override_value,
518: || (reverse chronological order - newest change first)
519: */
520: CURSOR c1 IS
521: SELECT rowid
522: FROM igs_he_ex_rn_dat_fd
523: WHERE extract_run_id = x_extract_run_id
524: AND line_number = x_line_number
525: AND field_number = x_field_number;
526:
577: p_action => 'DELETE',
578: x_rowid => x_rowid
579: );
580:
581: DELETE FROM igs_he_ex_rn_dat_fd
582: WHERE rowid = x_rowid;
583:
584: IF (SQL%NOTFOUND) THEN
585: RAISE NO_DATA_FOUND;
587:
588: END delete_row;
589:
590:
591: END igs_he_ex_rn_dat_fd_pkg;