[Home] [Help]
1: package body JTF_RS_RESOURCE_VALUES_PKG as
2: /* $Header: jtfrstvb.pls 120.0 2005/05/11 08:22:39 appldev ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_RESOURCE_PARAM_VALUE_ID in NUMBER,
28: X_LAST_UPDATE_DATE in DATE,
29: X_LAST_UPDATED_BY in NUMBER,
30: X_LAST_UPDATE_LOGIN in NUMBER
31: ) is
32: cursor C is select ROWID from JTF_RS_RESOURCE_VALUES
33: where RESOURCE_PARAM_VALUE_ID = X_RESOURCE_PARAM_VALUE_ID
34: ;
35: begin
36: insert into JTF_RS_RESOURCE_VALUES (
32: cursor C is select ROWID from JTF_RS_RESOURCE_VALUES
33: where RESOURCE_PARAM_VALUE_ID = X_RESOURCE_PARAM_VALUE_ID
34: ;
35: begin
36: insert into JTF_RS_RESOURCE_VALUES (
37: RESOURCE_PARAM_VALUE_ID,
38: RESOURCE_ID,
39: RESOURCE_PARAM_ID,
40: VALUE,
105: X_OBJECT_VERSION_NUMBER in NUMBER
106: ) is
107: cursor c1 is select
108: OBJECT_VERSION_NUMBER
109: from JTF_RS_RESOURCE_VALUES
110: where RESOURCE_PARAM_VALUE_ID = X_RESOURCE_PARAM_VALUE_ID
111: for update of RESOURCE_PARAM_VALUE_ID nowait;
112: tlinfo c1%rowtype ;
113: begin
157: X_LAST_UPDATED_BY in NUMBER,
158: X_LAST_UPDATE_LOGIN in NUMBER
159: ) is
160: begin
161: update JTF_RS_RESOURCE_VALUES set
162: RESOURCE_ID = X_RESOURCE_ID,
163: RESOURCE_PARAM_ID = X_RESOURCE_PARAM_ID,
164: VALUE = X_VALUE,
165: VALUE_TYPE = X_VALUE_TYPE,
193: procedure DELETE_ROW (
194: X_RESOURCE_PARAM_VALUE_ID in NUMBER
195: ) is
196: begin
197: delete from JTF_RS_RESOURCE_VALUES
198: where RESOURCE_PARAM_VALUE_ID = X_RESOURCE_PARAM_VALUE_ID;
199:
200: if (sql%notfound) then
201: raise no_data_found;
202: end if;
203:
204: end DELETE_ROW;
205:
206: end JTF_RS_RESOURCE_VALUES_PKG;