PACKAGE BODY: APPS.CN_OBJ_SEQUENCES_V_PKG

Source

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