[Home] [Help]
1: PACKAGE BODY igs_tr_group_pkg AS
2: /* $Header: IGSTI09B.pls 120.1 2005/09/08 15:41:58 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_tr_group_all%ROWTYPE;
6: new_references igs_tr_group_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSTI09B.pls 120.1 2005/09/08 15:41:58 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_tr_group_all%ROWTYPE;
6: new_references igs_tr_group_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
19: ) AS
20:
21: CURSOR cur_old_ref_values IS
22: SELECT *
23: FROM igs_tr_group_all
24: WHERE ROWID = x_rowid;
25:
26: BEGIN
27:
98: ) RETURN BOOLEAN AS
99:
100: CURSOR cur_rowid IS
101: SELECT ROWID
102: FROM igs_tr_group_all
103: WHERE tracking_group_id = x_tracking_group_id
104: FOR UPDATE NOWAIT;
105:
106: lv_rowid cur_rowid%ROWTYPE;
196: ) AS
197:
198: CURSOR c IS
199: SELECT ROWID
200: FROM igs_tr_group_all
201: WHERE tracking_group_id = x_tracking_group_id;
202:
203: x_last_update_date DATE;
204: x_last_updated_by NUMBER;
239: x_last_update_login => x_last_update_login,
240: x_org_id => igs_ge_gen_003.get_org_id
241: );
242:
243: INSERT INTO igs_tr_group_all (
244: tracking_group_id,
245: description,
246: org_id,
247: creation_date,
279: ) AS
280:
281: CURSOR c1 IS
282: SELECT description
283: FROM igs_tr_group_all
284: WHERE ROWID = x_rowid
285: FOR UPDATE NOWAIT;
286:
287: tlinfo c1%ROWTYPE;
354: x_last_updated_by => x_last_updated_by,
355: x_last_update_login => x_last_update_login
356: );
357:
358: UPDATE igs_tr_group_all SET
359: description = new_references.description,
360: last_update_date = x_last_update_date,
361: last_updated_by = x_last_updated_by,
362: last_update_login = x_last_update_login
382: ) AS
383:
384: CURSOR c1 IS
385: SELECT ROWID
386: FROM igs_tr_group_all
387: WHERE tracking_group_id = x_tracking_group_id;
388:
389: BEGIN
390:
419: p_action =>'DELETE',
420: x_rowid => x_rowid
421: );
422:
423: DELETE FROM igs_tr_group_all WHERE ROWID = x_rowid;
424: IF (SQL%NOTFOUND) THEN
425: RAISE no_data_found;
426: END IF;
427: