PACKAGE BODY: APPS.CN_COLUMN_TRG_MAPS_PKG

Source

1 PACKAGE BODY cn_column_trg_maps_pkg AS
2 -- $Header: cnrectmb.pls 115.1 99/07/16 07:13:41 porting ship $
3 
4 
5 --
6 -- Public Procedures
7 --
8 
9   PROCEDURE insert_row (
10 	X_rowid		OUT	ROWID,
11 	X_column_trg_map_id	cn_column_trg_maps.column_trg_map_id%TYPE,
12 	X_trigger_id		cn_column_trg_maps.trigger_id%TYPE,
13 	X_column_id		cn_column_trg_maps.column_id%TYPE) IS
14 
15     X_primary_key               cn_column_trg_maps.column_trg_map_id%TYPE;
16   BEGIN
17 
18     X_primary_key := X_column_trg_map_id;
19     IF (X_primary_key IS NULL) THEN
20       SELECT cn_objects_s.NEXTVAL
21         INTO X_primary_key
22         FROM dual;
23     END IF;
24 
25     INSERT INTO cn_column_trg_maps (
26 	column_trg_map_id,
27 	trigger_id,
28 	column_id)
29       VALUES (
30 	X_column_trg_map_id,
31 	X_trigger_id,
32 	X_column_id);
33 
34     SELECT ROWID
35       INTO X_rowid
36       FROM cn_column_trg_maps
37      WHERE column_trg_map_id = X_primary_key;
38 
39     IF (SQL%NOTFOUND) THEN
40       RAISE NO_DATA_FOUND;
41     END IF;
42 
43   END insert_row;
44 
45 
46   PROCEDURE select_row (
47 	recinfo IN OUT cn_column_trg_maps%ROWTYPE) IS
48   BEGIN
49     -- select row based on column_trg_map_id (primary key)
50     IF (recinfo.column_trg_map_id IS NOT NULL) THEN
51 
52       SELECT * INTO recinfo
53         FROM cn_column_trg_maps cctm
54         WHERE cctm.column_trg_map_id = recinfo.column_trg_map_id;
55 
56     END IF;
57   END select_row;
58 
59 
60 END cn_column_trg_maps_pkg;