[Home] [Help]
1: PACKAGE BODY igs_he_code_assoc_pkg AS
2: /* $Header: IGSWI01B.pls 120.1 2006/02/06 20:39:50 anwest noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_code_assoc%ROWTYPE;
1: PACKAGE BODY igs_he_code_assoc_pkg AS
2: /* $Header: IGSWI01B.pls 120.1 2006/02/06 20:39:50 anwest noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_code_assoc%ROWTYPE;
6: new_references igs_he_code_assoc%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI01B.pls 120.1 2006/02/06 20:39:50 anwest noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_code_assoc%ROWTYPE;
6: new_references igs_he_code_assoc%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM IGS_HE_CODE_ASSOC
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
81: || ANWEST 09-JAN-06 Changes as per HE305
82: */
83: BEGIN
84:
85: igs_he_code_ass_val_pkg.get_fk_igs_he_code_assoc (
86: old_references.association_code
87: );
88:
89: igs_he_code_map_val_pkg.get_fk_igs_he_code_assoc (
85: igs_he_code_ass_val_pkg.get_fk_igs_he_code_assoc (
86: old_references.association_code
87: );
88:
89: igs_he_code_map_val_pkg.get_fk_igs_he_code_assoc (
90: old_references.association_code
91: );
92:
93: igs_he_sys_rt_cl_ass_pkg.get_fk_igs_he_code_assoc (
89: igs_he_code_map_val_pkg.get_fk_igs_he_code_assoc (
90: old_references.association_code
91: );
92:
93: igs_he_sys_rt_cl_ass_pkg.get_fk_igs_he_code_assoc (
94: old_references.association_code
95: );
96:
97: END check_child_existance;
110: || (reverse chronological order - newest change first)
111: */
112: CURSOR cur_rowid IS
113: SELECT rowid
114: FROM igs_he_code_assoc
115: WHERE association_code = x_association_code
116: FOR UPDATE NOWAIT;
117:
118: lv_rowid cur_rowid%RowType;
216: || (reverse chronological order - newest change first)
217: */
218: CURSOR c IS
219: SELECT rowid
220: FROM igs_he_code_assoc
221: WHERE association_code = x_association_code;
222:
223: x_last_update_date DATE;
224: x_last_updated_by NUMBER;
257: x_last_updated_by => x_last_updated_by,
258: x_last_update_login => x_last_update_login
259: );
260:
261: INSERT INTO igs_he_code_assoc (
262: association_code,
263: description,
264: display_title,
265: creation_date,
307: CURSOR c1 IS
308: SELECT
309: description,
310: display_title
311: FROM igs_he_code_assoc
312: WHERE rowid = x_rowid
313: FOR UPDATE NOWAIT;
314:
315: tlinfo c1%ROWTYPE;
396: x_last_updated_by => x_last_updated_by,
397: x_last_update_login => x_last_update_login
398: );
399:
400: UPDATE igs_he_code_assoc
401: SET
402: description = new_references.description,
403: display_title = new_references.display_title,
404: last_update_date = x_last_update_date,
430: || (reverse chronological order - newest change first)
431: */
432: CURSOR c1 IS
433: SELECT rowid
434: FROM igs_he_code_assoc
435: WHERE association_code = x_association_code;
436:
437: BEGIN
438:
481: p_action => 'DELETE',
482: x_rowid => x_rowid
483: );
484:
485: DELETE FROM igs_he_code_assoc
486: WHERE rowid = x_rowid;
487:
488: IF (SQL%NOTFOUND) THEN
489: RAISE NO_DATA_FOUND;
491:
492: END delete_row;
493:
494:
495: END igs_he_code_assoc_pkg;