[Home] [Help]
1: PACKAGE BODY igs_tr_note_type_pkg AS
2: /* $Header: IGSTI08B.pls 115.5 2002/11/29 04:15:54 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_tr_note_type%ROWTYPE;
1: PACKAGE BODY igs_tr_note_type_pkg AS
2: /* $Header: IGSTI08B.pls 115.5 2002/11/29 04:15:54 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_tr_note_type%ROWTYPE;
6: new_references igs_tr_note_type%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSTI08B.pls 115.5 2002/11/29 04:15:54 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_tr_note_type%ROWTYPE;
6: new_references igs_tr_note_type%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
18: ) AS
19:
20: CURSOR cur_old_ref_values IS
21: SELECT *
22: FROM igs_tr_note_type
23: WHERE ROWID = x_rowid;
24:
25: BEGIN
26:
79:
80: PROCEDURE check_child_existance AS
81: BEGIN
82:
83: igs_tr_group_note_pkg.get_fk_igs_tr_note_type (
84: old_references.trk_note_type
85: );
86:
87: igs_tr_item_note_pkg.get_fk_igs_tr_note_type (
83: igs_tr_group_note_pkg.get_fk_igs_tr_note_type (
84: old_references.trk_note_type
85: );
86:
87: igs_tr_item_note_pkg.get_fk_igs_tr_note_type (
88: old_references.trk_note_type
89: );
90:
91: igs_tr_step_note_pkg.get_fk_igs_tr_note_type (
87: igs_tr_item_note_pkg.get_fk_igs_tr_note_type (
88: old_references.trk_note_type
89: );
90:
91: igs_tr_step_note_pkg.get_fk_igs_tr_note_type (
92: old_references.trk_note_type
93: );
94:
95: igs_tr_typ_step_note_pkg.get_fk_igs_tr_note_type (
91: igs_tr_step_note_pkg.get_fk_igs_tr_note_type (
92: old_references.trk_note_type
93: );
94:
95: igs_tr_typ_step_note_pkg.get_fk_igs_tr_note_type (
96: old_references.trk_note_type
97: );
98:
99: END check_child_existance;
103: )RETURN BOOLEAN AS
104:
105: CURSOR cur_rowid IS
106: SELECT ROWID
107: FROM igs_tr_note_type
108: WHERE trk_note_type = x_trk_note_type
109: FOR UPDATE NOWAIT;
110:
111: lv_rowid cur_rowid%ROWTYPE;
200: ) AS
201:
202: CURSOR c IS
203: SELECT ROWID
204: FROM igs_tr_note_type
205: WHERE trk_note_type = x_trk_note_type;
206:
207: x_last_update_date DATE;
208: x_last_updated_by NUMBER;
241: x_last_updated_by => x_last_updated_by,
242: x_last_update_login => x_last_update_login
243: );
244:
245: INSERT INTO igs_tr_note_type (
246: trk_note_type,
247: description,
248: creation_date,
249: created_by,
282: ) AS
283:
284: CURSOR c1 IS
285: SELECT description
286: FROM igs_tr_note_type
287: WHERE ROWID = x_rowid
288: FOR UPDATE NOWAIT;
289:
290: tlinfo c1%ROWTYPE;
358: x_last_updated_by => x_last_updated_by,
359: x_last_update_login => x_last_update_login
360: );
361:
362: UPDATE igs_tr_note_type SET
363: description = new_references.description,
364: last_update_date = x_last_update_date,
365: last_updated_by = x_last_updated_by,
366: last_update_login = x_last_update_login
385: ) AS
386:
387: CURSOR c1 IS
388: SELECT ROWID
389: FROM igs_tr_note_type
390: WHERE trk_note_type = x_trk_note_type;
391: BEGIN
392: OPEN c1;
393: FETCH c1 INTO x_rowid;
416: p_action =>'DELETE',
417: x_rowid => x_rowid
418: );
419:
420: DELETE FROM igs_tr_note_type WHERE ROWID = x_rowid;
421: IF (SQL%NOTFOUND) THEN
422: RAISE no_data_found;
423: END IF;
424: after_dml(
427: );
428:
429: END delete_row;
430:
431: END igs_tr_note_type_pkg;