1 PACKAGE BODY ieo_svr_groups_pvt AS
2 /* $Header: IEOSVRGB.pls 120.1 2005/06/12 01:21:33 appldev $ */
3
4
5 PROCEDURE insert_row(
6 x_rowid IN OUT NOCOPY VARCHAR2
7 , x_server_group_id NUMBER
8 , x_created_by NUMBER
9 , x_creation_date DATE
10 , x_last_updated_by NUMBER
11 , x_last_update_date DATE
12 , x_last_update_login NUMBER
13 , x_group_name VARCHAR2
14 , x_group_group_id NUMBER
15 , x_location VARCHAR2
16 , x_description VARCHAR2
17 ) IS
18 CURSOR l_insert IS
19 SELECT ROWID
20 FROM ieo_svr_groups
21 WHERE server_group_id = x_server_group_id;
22 BEGIN
23 INSERT INTO ieo_svr_groups (
24 server_group_id
25 , created_by
26 , creation_date
27 , last_updated_by
28 , last_update_date
29 , last_update_login
30 , group_name
31 , group_group_id
32 , location
33 , description
34 ) VALUES (
35 x_server_group_id
36 , DECODE(x_created_by,FND_API.G_MISS_NUM,NULL,x_created_by)
37 , DECODE(x_creation_date,FND_API.G_MISS_DATE,NULL,x_creation_date)
38 , DECODE(x_last_updated_by,FND_API.G_MISS_NUM,NULL,x_last_updated_by)
39 , DECODE(x_last_update_date,FND_API.G_MISS_DATE,NULL,x_last_update_date)
40 , DECODE(x_last_update_login,FND_API.G_MISS_NUM,NULL,x_last_update_login)
41 , DECODE(x_group_name,FND_API.G_MISS_CHAR,NULL,x_group_name)
42 , DECODE(x_group_group_id,FND_API.G_MISS_NUM,NULL,x_group_group_id)
43 , DECODE(x_location,FND_API.G_MISS_CHAR,NULL,x_location)
44 , DECODE(x_description,FND_API.G_MISS_CHAR,NULL,x_description)
45 );
46
47 OPEN l_insert;
48 FETCH l_insert INTO x_rowid;
49 IF (l_insert%NOTFOUND) THEN
50 CLOSE l_insert;
51 RAISE NO_DATA_FOUND;
52 END IF;
53 END insert_row;
54
55 PROCEDURE delete_row(
56 x_server_group_id NUMBER
57 ) IS
58 BEGIN
59 DELETE FROM ieo_svr_groups
60 WHERE server_group_id = x_server_group_id;
61 IF (SQL%NOTFOUND) THEN
62 RAISE NO_DATA_FOUND;
63 END IF;
64 END delete_row;
65
66 PROCEDURE update_row(
67 x_rowid VARCHAR2
68 , x_server_group_id NUMBER
69 , x_created_by NUMBER
70 , x_creation_date DATE
71 , x_last_updated_by NUMBER
72 , x_last_update_date DATE
73 , x_last_update_login NUMBER
74 , x_group_name VARCHAR2
75 , x_group_group_id NUMBER
76 , x_location VARCHAR2
77 , x_description VARCHAR2
78 ) IS
79 BEGIN
80 UPDATE ieo_svr_groups
81 SET
82 server_group_id=DECODE(x_server_group_id,FND_API.G_MISS_NUM,NULL,x_server_group_id)
83 , created_by=DECODE(x_created_by,FND_API.G_MISS_NUM,NULL,x_created_by)
84 , creation_date=DECODE(x_creation_date,FND_API.G_MISS_DATE,NULL,x_creation_date)
85 , last_updated_by=DECODE(x_last_updated_by,FND_API.G_MISS_NUM,NULL,x_last_updated_by)
86 , last_update_date=DECODE(x_last_update_date,FND_API.G_MISS_DATE,NULL,x_last_update_date)
87 , last_update_login=DECODE(x_last_update_login,FND_API.G_MISS_NUM,NULL,x_last_update_login)
88 , group_name=DECODE(x_group_name,FND_API.G_MISS_CHAR,NULL,x_group_name)
89 , group_group_id=DECODE(x_group_group_id,FND_API.G_MISS_NUM,NULL,x_group_group_id)
90 , location=DECODE(x_location,FND_API.G_MISS_CHAR,NULL,x_location)
91 , description=DECODE(x_description,FND_API.G_MISS_CHAR,NULL,x_description)
92 WHERE ROWID = x_rowid;
93 IF (SQL%NOTFOUND) THEN
94 RAISE NO_DATA_FOUND;
95 END IF;
96 END update_row;
97
98 PROCEDURE lock_row(
99 x_rowid VARCHAR2
100 , x_server_group_id NUMBER
101 , x_created_by NUMBER
102 , x_creation_date DATE
103 , x_last_updated_by NUMBER
104 , x_last_update_date DATE
105 , x_last_update_login NUMBER
106 , x_group_name VARCHAR2
107 , x_group_group_id NUMBER
108 , x_location VARCHAR2
109 , x_description VARCHAR2
110 ) IS
111 CURSOR l_lock IS
112 SELECT *
113 FROM ieo_svr_groups
114 WHERE rowid = x_rowid
115 FOR UPDATE OF server_group_id NOWAIT;
116 l_table_rec l_lock%ROWTYPE;
117 BEGIN
118 OPEN l_lock;
119 FETCH l_lock INTO l_table_rec;
120 IF (l_lock%NOTFOUND) THEN
121 CLOSE l_lock;
122 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
123 APP_EXCEPTION.RAISE_EXCEPTION;
124 END IF;
125 CLOSE l_lock;
126 IF (
127 ((l_table_rec.server_group_id = x_server_group_id)
128 OR ((l_table_rec.server_group_id IS NULL)
129 AND ( x_server_group_id IS NULL)))
130 AND ((l_table_rec.created_by = x_created_by)
131 OR ((l_table_rec.created_by IS NULL)
132 AND ( x_created_by IS NULL)))
133 AND ((l_table_rec.creation_date = x_creation_date)
134 OR ((l_table_rec.creation_date IS NULL)
135 AND ( x_creation_date IS NULL)))
136 AND ((l_table_rec.last_updated_by = x_last_updated_by)
137 OR ((l_table_rec.last_updated_by IS NULL)
138 AND ( x_last_updated_by IS NULL)))
139 AND ((l_table_rec.last_update_date = x_last_update_date)
140 OR ((l_table_rec.last_update_date IS NULL)
141 AND ( x_last_update_date IS NULL)))
142 AND ((l_table_rec.last_update_login = x_last_update_login)
143 OR ((l_table_rec.last_update_login IS NULL)
144 AND ( x_last_update_login IS NULL)))
145 AND ((l_table_rec.group_name = x_group_name)
146 OR ((l_table_rec.group_name IS NULL)
147 AND ( x_group_name IS NULL)))
148 AND ((l_table_rec.group_group_id = x_group_group_id)
149 OR ((l_table_rec.group_group_id IS NULL)
150 AND ( x_group_group_id IS NULL)))
151 AND ((l_table_rec.location = x_location)
152 OR ((l_table_rec.location IS NULL)
153 AND ( x_location IS NULL)))
154 AND ((l_table_rec.description = x_description)
155 OR ((l_table_rec.description IS NULL)
156 AND ( x_description IS NULL)))
157 ) THEN
158 RETURN;
159 ELSE
160 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
161 APP_EXCEPTION.RAISE_EXCEPTION;
162 END IF;
163 END lock_row;
164 END ieo_svr_groups_pvt;