[Home] [Help]
PACKAGE BODY: APPS.IEO_SVR_SERVERS_PVT
Source
1 PACKAGE BODY ieo_svr_servers_pvt AS
2 /* $Header: IEOSVRSB.pls 120.1 2005/06/12 01:21:57 appldev $ */
3
4
5 PROCEDURE insert_row(
6 x_rowid IN OUT NOCOPY VARCHAR2
7 , x_server_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_type_id NUMBER
14 , x_server_name VARCHAR2
15 , x_member_svr_group_id NUMBER
16 , x_using_svr_group_id NUMBER
17 , x_dns_name VARCHAR2
18 , x_ip_address VARCHAR2
19 , x_location VARCHAR2
20 , x_description VARCHAR2
21 , x_user_address VARCHAR2
22 ) IS
23 CURSOR l_insert IS
24 SELECT ROWID
25 FROM ieo_svr_servers
26 WHERE server_id = x_server_id;
27 BEGIN
28 INSERT INTO ieo_svr_servers (
29 server_id
30 , created_by
31 , creation_date
32 , last_updated_by
33 , last_update_date
34 , last_update_login
35 , type_id
36 , server_name
37 , member_svr_group_id
38 , using_svr_group_id
39 , dns_name
40 , ip_address
41 , location
42 , description
43 , user_address
44 ) VALUES (
45 x_server_id
46 , DECODE(x_created_by,FND_API.G_MISS_NUM,NULL,x_created_by)
47 , DECODE(x_creation_date,FND_API.G_MISS_DATE,NULL,x_creation_date)
48 , DECODE(x_last_updated_by,FND_API.G_MISS_NUM,NULL,x_last_updated_by)
49 , DECODE(x_last_update_date,FND_API.G_MISS_DATE,NULL,x_last_update_date)
50 , DECODE(x_last_update_login,FND_API.G_MISS_NUM,NULL,x_last_update_login)
51 , DECODE(x_type_id,FND_API.G_MISS_NUM,NULL,x_type_id)
52 , DECODE(x_server_name,FND_API.G_MISS_CHAR,NULL,x_server_name)
53 , DECODE(x_member_svr_group_id,FND_API.G_MISS_NUM,NULL,x_member_svr_group_id)
54 , DECODE(x_using_svr_group_id,FND_API.G_MISS_NUM,NULL,x_using_svr_group_id)
55 , DECODE(x_dns_name,FND_API.G_MISS_CHAR,NULL,x_dns_name)
56 , DECODE(x_ip_address,FND_API.G_MISS_CHAR,NULL,x_ip_address)
57 , DECODE(x_location,FND_API.G_MISS_CHAR,NULL,x_location)
58 , DECODE(x_description,FND_API.G_MISS_CHAR,NULL,x_description)
59 , DECODE(x_user_address,FND_API.G_MISS_CHAR,NULL,x_user_address)
60 );
61
62 OPEN l_insert;
63 FETCH l_insert INTO x_rowid;
64 IF (l_insert%NOTFOUND) THEN
65 CLOSE l_insert;
66 RAISE NO_DATA_FOUND;
67 END IF;
68 END insert_row;
69
70 PROCEDURE delete_row(
71 x_server_id NUMBER
72 ) IS
73 BEGIN
74 DELETE FROM ieo_svr_servers
75 WHERE server_id = x_server_id;
76 IF (SQL%NOTFOUND) THEN
77 RAISE NO_DATA_FOUND;
78 END IF;
79 END delete_row;
80
81 PROCEDURE update_row(
82 x_rowid VARCHAR2
83 , x_server_id NUMBER
84 , x_created_by NUMBER
85 , x_creation_date DATE
86 , x_last_updated_by NUMBER
87 , x_last_update_date DATE
88 , x_last_update_login NUMBER
89 , x_type_id NUMBER
90 , x_server_name VARCHAR2
91 , x_member_svr_group_id NUMBER
92 , x_using_svr_group_id NUMBER
93 , x_dns_name VARCHAR2
94 , x_ip_address VARCHAR2
95 , x_location VARCHAR2
96 , x_description VARCHAR2
97 , x_user_address VARCHAR2
98 ) IS
99 BEGIN
100 UPDATE ieo_svr_servers
101 SET
102 server_id=DECODE(x_server_id,FND_API.G_MISS_NUM,NULL,x_server_id)
103 , created_by=DECODE(x_created_by,FND_API.G_MISS_NUM,NULL,x_created_by)
104 , creation_date=DECODE(x_creation_date,FND_API.G_MISS_DATE,NULL,x_creation_date)
105 , last_updated_by=DECODE(x_last_updated_by,FND_API.G_MISS_NUM,NULL,x_last_updated_by)
106 , last_update_date=DECODE(x_last_update_date,FND_API.G_MISS_DATE,NULL,x_last_update_date)
107 , last_update_login=DECODE(x_last_update_login,FND_API.G_MISS_NUM,NULL,x_last_update_login)
108 , type_id=DECODE(x_type_id,FND_API.G_MISS_NUM,NULL,x_type_id)
109 , server_name=DECODE(x_server_name,FND_API.G_MISS_CHAR,NULL,x_server_name)
110 , member_svr_group_id=DECODE(x_member_svr_group_id,FND_API.G_MISS_NUM,NULL,x_member_svr_group_id)
111 , using_svr_group_id=DECODE(x_using_svr_group_id,FND_API.G_MISS_NUM,NULL,x_using_svr_group_id)
112 , dns_name=DECODE(x_dns_name,FND_API.G_MISS_CHAR,NULL,x_dns_name)
113 , ip_address=DECODE(x_ip_address,FND_API.G_MISS_CHAR,NULL,x_ip_address)
114 , location=DECODE(x_location,FND_API.G_MISS_CHAR,NULL,x_location)
115 , description=DECODE(x_description,FND_API.G_MISS_CHAR,NULL,x_description)
116 , user_address=DECODE(x_user_address,FND_API.G_MISS_CHAR,NULL,x_user_address)
117 WHERE ROWID = x_rowid;
118 IF (SQL%NOTFOUND) THEN
119 RAISE NO_DATA_FOUND;
120 END IF;
121 END update_row;
122
123 PROCEDURE lock_row(
124 x_rowid VARCHAR2
125 , x_server_id NUMBER
126 , x_created_by NUMBER
127 , x_creation_date DATE
128 , x_last_updated_by NUMBER
129 , x_last_update_date DATE
130 , x_last_update_login NUMBER
131 , x_type_id NUMBER
132 , x_server_name VARCHAR2
133 , x_member_svr_group_id NUMBER
134 , x_using_svr_group_id NUMBER
135 , x_dns_name VARCHAR2
136 , x_ip_address VARCHAR2
137 , x_location VARCHAR2
138 , x_description VARCHAR2
139 , x_user_address VARCHAR2
140 ) IS
141 CURSOR l_lock IS
142 SELECT *
143 FROM ieo_svr_servers
144 WHERE rowid = x_rowid
145 FOR UPDATE OF server_id NOWAIT;
146 l_table_rec l_lock%ROWTYPE;
147 BEGIN
148 OPEN l_lock;
149 FETCH l_lock INTO l_table_rec;
150 IF (l_lock%NOTFOUND) THEN
151 CLOSE l_lock;
152 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
153 APP_EXCEPTION.RAISE_EXCEPTION;
154 END IF;
155 CLOSE l_lock;
156 IF (
157 ((l_table_rec.server_id = x_server_id)
158 OR ((l_table_rec.server_id IS NULL)
159 AND ( x_server_id IS NULL)))
160 AND ((l_table_rec.created_by = x_created_by)
161 OR ((l_table_rec.created_by IS NULL)
162 AND ( x_created_by IS NULL)))
163 AND ((l_table_rec.creation_date = x_creation_date)
164 OR ((l_table_rec.creation_date IS NULL)
165 AND ( x_creation_date IS NULL)))
166 AND ((l_table_rec.last_updated_by = x_last_updated_by)
167 OR ((l_table_rec.last_updated_by IS NULL)
168 AND ( x_last_updated_by IS NULL)))
169 AND ((l_table_rec.last_update_date = x_last_update_date)
170 OR ((l_table_rec.last_update_date IS NULL)
171 AND ( x_last_update_date IS NULL)))
172 AND ((l_table_rec.last_update_login = x_last_update_login)
173 OR ((l_table_rec.last_update_login IS NULL)
174 AND ( x_last_update_login IS NULL)))
175 AND ((l_table_rec.type_id = x_type_id)
176 OR ((l_table_rec.type_id IS NULL)
177 AND ( x_type_id IS NULL)))
178 AND ((l_table_rec.server_name = x_server_name)
179 OR ((l_table_rec.server_name IS NULL)
180 AND ( x_server_name IS NULL)))
181 AND ((l_table_rec.member_svr_group_id = x_member_svr_group_id)
182 OR ((l_table_rec.member_svr_group_id IS NULL)
183 AND ( x_member_svr_group_id IS NULL)))
184 AND ((l_table_rec.using_svr_group_id = x_using_svr_group_id)
185 OR ((l_table_rec.using_svr_group_id IS NULL)
186 AND ( x_using_svr_group_id IS NULL)))
187 AND ((l_table_rec.dns_name = x_dns_name)
188 OR ((l_table_rec.dns_name IS NULL)
189 AND ( x_dns_name IS NULL)))
190 AND ((l_table_rec.ip_address = x_ip_address)
191 OR ((l_table_rec.ip_address IS NULL)
192 AND ( x_ip_address IS NULL)))
193 AND ((l_table_rec.location = x_location)
194 OR ((l_table_rec.location IS NULL)
195 AND ( x_location IS NULL)))
196 AND ((l_table_rec.description = x_description)
197 OR ((l_table_rec.description IS NULL)
198 AND ( x_description IS NULL)))
199 AND ((l_table_rec.user_address = x_user_address)
200 OR ((l_table_rec.user_address IS NULL)
201 AND ( x_user_address IS NULL)))
202 ) THEN
203 RETURN;
204 ELSE
205 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
206 APP_EXCEPTION.RAISE_EXCEPTION;
207 END IF;
208 END lock_row;
209 END ieo_svr_servers_pvt;