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(
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
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
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;
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)
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
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;