1 package body CS_SR_SAVED_BSC_CRITERIA_PKG as
2 /* $Header: csxtssbb.pls 115.1 2003/09/18 04:46:12 aktripat noship $*/
3
4 procedure INSERT_ROW ( X_ROWID in out nocopy VARCHAR2,
5 X_SEARCH_ID in NUMBER,
6 X_FIELD_NAME in VARCHAR2,
7 X_FIELD_TYPE in VARCHAR2,
8 X_OBJECT_VERSION_NUMBER in NUMBER,
9 X_FIELD_VALUE in VARCHAR2,
10 X_CREATION_DATE in DATE,
11 X_CREATED_BY in NUMBER,
12 X_LAST_UPDATE_DATE in DATE,
13 X_LAST_UPDATED_BY in NUMBER,
14 X_LAST_UPDATE_LOGIN in NUMBER,
15 X_COMMIT_FLAG in VARCHAR2) is
16
17 cursor C is select ROWID from CS_SR_SAVED_BSC_CRITERIA
18 where SEARCH_ID = X_SEARCH_ID and FIELD_NAME = X_FIELD_NAME ;
19
20 begin
21
22 insert into CS_SR_SAVED_BSC_CRITERIA (
23 SEARCH_ID,
24 LAST_UPDATE_DATE,
25 LAST_UPDATED_BY,
26 CREATION_DATE,
27 CREATED_BY,
28 LAST_UPDATE_LOGIN,
29 FIELD_NAME,
30 FIELD_TYPE,
31 FIELD_VALUE,
32 OBJECT_VERSION_NUMBER )
33 Values (X_SEARCH_ID,
34 X_LAST_UPDATE_DATE,
35 X_LAST_UPDATED_BY,
36 X_CREATION_DATE,
37 X_CREATED_BY,
38 X_LAST_UPDATE_LOGIN,
39 X_FIELD_NAME,
40 X_FIELD_TYPE,
41 X_FIELD_VALUE,
42 X_OBJECT_VERSION_NUMBER);
43
44 open c;
45 fetch c into X_ROWID;
46
47 if (c%notfound) then
48 close c;
49 raise no_data_found;
50 end if;
51
52 close c;
53
54 IF X_COMMIT_FLAG = 'Y' THEN
55 commit;
56 END IF;
57
58 end INSERT_ROW;
59
60 procedure LOCK_ROW ( X_SEARCH_ID in NUMBER,
61 X_FIELD_NAME in VARCHAR2,
62 X_FIELD_TYPE in VARCHAR2,
63 X_OBJECT_VERSION_NUMBER in NUMBER,
64 X_SECURITY_GROUP_ID in NUMBER,
65 X_FIELD_VALUE in VARCHAR2) is
66
67 cursor c1 is select FIELD_TYPE, OBJECT_VERSION_NUMBER,
68 SECURITY_GROUP_ID, FIELD_VALUE, FIELD_NAME
69 from CS_SR_SAVED_BSC_CRITERIA
70 where SEARCH_ID = X_SEARCH_ID
71 and FIELD_NAME = X_FIELD_NAME for update of SEARCH_ID nowait;
72
73 begin
74
75 null;
76
77 end LOCK_ROW;
78
79
80 procedure UPDATE_ROW ( X_SEARCH_ID in NUMBER,
81 X_FIELD_NAME in VARCHAR2,
82 X_FIELD_TYPE in VARCHAR2,
83 X_OBJECT_VERSION_NUMBER in NUMBER,
84 X_SECURITY_GROUP_ID in NUMBER,
85 X_FIELD_VALUE in VARCHAR2,
86 X_LAST_UPDATE_DATE in DATE,
87 X_LAST_UPDATED_BY in NUMBER,
88 X_LAST_UPDATE_LOGIN in NUMBER) is
89
90 begin
91 null;
92 end UPDATE_ROW;
93
94 procedure DELETE_ROW ( X_SEARCH_ID in NUMBER) is
95
96 begin
97
98 delete from CS_SR_SAVED_BSC_CRITERIA where SEARCH_ID = X_SEARCH_ID;
99 if (sql%notfound) then
100 raise no_data_found;
101 end if;
102 end DELETE_ROW;
103 end CS_SR_SAVED_BSC_CRITERIA_PKG;
[Home] [Help]