PACKAGE BODY: APPS.FND_TABLESPACES_PKG

Source

1 PACKAGE BODY FND_TABLESPACES_PKG as
2 /* $Header: fndttblb.pls 115.6 2004/04/22 22:13:45 sakhtar noship $ */
3 
4 G_PKG_NAME CONSTANT VARCHAR2(30):= 'FND_TABLESPACES_PKG';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'fndttblb.pls';
6 
7 PROCEDURE INSERT_ROW (
8   X_ROWID IN OUT  NOCOPY VARCHAR2,
9   P_TABLESPACE_TYPE IN VARCHAR2,
10   P_TABLESPACE IN VARCHAR2,
11   P_CUSTOM_FLAG IN VARCHAR2 DEFAULT NULL,
12   P_CREATION_DATE IN DATE DEFAULT NULL,
13   P_CREATED_BY IN NUMBER DEFAULT NULL,
14   P_LAST_UPDATE_DATE IN DATE DEFAULT NULL,
15   P_LAST_UPDATED_BY IN NUMBER DEFAULT NULL,
16   P_LAST_UPDATE_LOGIN IN NUMBER DEFAULT NULL)
17 IS
18   cursor C is select ROWID from FND_TABLESPACES
19   where TABLESPACE_TYPE = P_TABLESPACE_TYPE ;
20 
21 BEGIN
22    insert into FND_TABLESPACES (
23      TABLESPACE_TYPE,
24      TABLESPACE,
25      CUSTOM_FLAG ,
26      CREATION_DATE,
27      CREATED_BY,
28      LAST_UPDATE_DATE,
29      LAST_UPDATED_BY,
30      LAST_UPDATE_LOGIN
31   ) values (
32      P_TABLESPACE_TYPE,
33      P_TABLESPACE,
34      P_CUSTOM_FLAG ,
35      P_CREATION_DATE,
36      P_CREATED_BY,
37      P_LAST_UPDATE_DATE,
38      P_LAST_UPDATED_BY,
39      P_LAST_UPDATE_LOGIN
40   );
41 
42   open c;
43   fetch c into X_ROWID;
44   if (c%notfound) then
45     close c;
46     raise no_data_found;
47   end if;
48   close c;
49 
50 END INSERT_ROW;
51 
52 PROCEDURE UPDATE_ROW (
53   P_TABLESPACE_TYPE in VARCHAR2,
54   P_TABLESPACE in VARCHAR2,
55   P_CUSTOM_FLAG in VARCHAR2 DEFAULT NULL,
56   P_LAST_UPDATE_DATE in DATE DEFAULT NULL,
57   P_LAST_UPDATED_BY in NUMBER DEFAULT NULL,
58   P_LAST_UPDATE_LOGIN in NUMBER DEFAULT NULL
59   )
60 IS
61 BEGIN
62   update FND_TABLESPACES set
63     TABLESPACE = decode(P_TABLESPACE, null, TABLESPACE, P_TABLESPACE),
64     CUSTOM_FLAG =  decode(P_CUSTOM_FLAG, null, CUSTOM_FLAG, P_CUSTOM_FLAG),
65     LAST_UPDATE_DATE = decode(P_LAST_UPDATE_DATE, null, sysdate, P_LAST_UPDATE_DATE),
66     LAST_UPDATED_BY = decode(P_LAST_UPDATED_BY, null, -1, P_LAST_UPDATED_BY),
67     LAST_UPDATE_LOGIN = decode(P_LAST_UPDATE_LOGIN, null, -1, P_LAST_UPDATE_LOGIN)
68   where TABLESPACE_TYPE = P_TABLESPACE_TYPE;
69 
70  if (sql%notfound) then
71    raise no_data_found;
72  end if;
73 
74 END UPDATE_ROW;
75 
76 PROCEDURE DELETE_ROW (
77   P_TABLESPACE_TYPE in VARCHAR2)
78 IS
79 BEGIN
80   delete from FND_TABLESPACES
81   where TABLESPACE_TYPE = P_TABLESPACE_TYPE ;
82   if (sql%notfound) then
83     raise no_data_found;
84   end if;
85 END DELETE_ROW;
86 
87 END FND_TABLESPACES_PKG;