PACKAGE BODY: APPS.CN_OBJ_DBLINKS_V_PKG

Source

1 PACKAGE BODY cn_obj_dblinks_v_pkg AS
2 -- $Header: cnredblb.pls 115.1 99/07/16 07:13:47 porting ship $
3 
4 
5 --
6 -- Public Procedures
7 --
8 
9   PROCEDURE insert_row (
10 	X_rowid		OUT	ROWID,
11 	X_dblink_id		cn_obj_dblinks_v.dblink_id%TYPE,
12 	X_name			cn_obj_dblinks_v.name%TYPE,
13 	X_description		cn_obj_dblinks_v.description%TYPE,
14 	X_dependency_map_complete	cn_obj_dblinks_v.dependency_map_complete%TYPE,
15 	X_status		cn_obj_dblinks_v.status%TYPE,
16 	X_repository_id		cn_obj_dblinks_v.repository_id%TYPE,
17 	X_connect_to_username	cn_obj_dblinks_v.connect_to_username%TYPE,
18 	X_connect_to_password	cn_obj_dblinks_v.connect_to_password%TYPE,
19 	X_connect_to_host	cn_obj_dblinks_v.connect_to_host%TYPE,
20 	X_seed_dblink_id	cn_obj_dblinks_v.seed_dblink_id%TYPE) IS
21 
22     X_primary_key		cn_obj_dblinks_v.dblink_id%TYPE;
23   BEGIN
24 
25     X_primary_key := X_dblink_id;
26     IF (X_primary_key IS NULL) THEN
27       SELECT cn_objects_s.NEXTVAL
28         INTO X_primary_key
29         FROM dual;
30     END IF;
31 
32     INSERT INTO cn_obj_dblinks_v (
33 	dblink_id,
34 	name,
35 	description,
36 	dependency_map_complete,
37 	status,
38 	repository_id,
39 	connect_to_username,
40 	connect_to_password,
41 	connect_to_host,
42 	object_type,
43 	seed_dblink_id)
44       VALUES (
45 	X_primary_key,
46 	X_name,
47 	X_description,
48 	X_dependency_map_complete,
49 	X_status,
50 	X_repository_id,
51 	X_connect_to_username,
52 	X_connect_to_password,
53 	X_connect_to_host,
54 	'DBL',
55 	X_seed_dblink_id);
56 
57     SELECT ROWID
58       INTO X_rowid
59       FROM cn_obj_dblinks_v
60      WHERE dblink_id = X_primary_key;
61 
62     IF (SQL%NOTFOUND) THEN
63       RAISE NO_DATA_FOUND;
64     END IF;
65 
66   END insert_row;
67 
68 
69   PROCEDURE select_row (
70 	recinfo IN OUT cn_obj_dblinks_v%ROWTYPE) IS
71   BEGIN
72     -- select row based on dblink_id (primary key)
73     IF (recinfo.dblink_id IS NOT NULL) THEN
74 
75       SELECT * INTO recinfo
76         FROM cn_obj_dblinks_v crosv
77         WHERE crosv.dblink_id = recinfo.dblink_id;
78 
79     END IF;
80   END select_row;
81 
82 
83 END cn_obj_dblinks_v_pkg;