1: PACKAGE body JTF_STATE_RESPONSIBILITIES_PKG as
2: /* $Header: jtftkreb.pls 115.14 2002/12/04 21:57:14 cjang ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in OUT NOCOPY VARCHAR2,
5: X_STATE_RESPONSIBILITY_ID in NUMBER,
26: X_LAST_UPDATE_DATE in DATE,
27: X_LAST_UPDATED_BY in NUMBER,
28: X_LAST_UPDATE_LOGIN in NUMBER
29: ) is
30: cursor C is select ROWID from JTF_STATE_RESPONSIBILITIES
31: where STATE_RESPONSIBILITY_ID = X_STATE_RESPONSIBILITY_ID
32: ;
33: begin
34: insert into JTF_STATE_RESPONSIBILITIES (
30: cursor C is select ROWID from JTF_STATE_RESPONSIBILITIES
31: where STATE_RESPONSIBILITY_ID = X_STATE_RESPONSIBILITY_ID
32: ;
33: begin
34: insert into JTF_STATE_RESPONSIBILITIES (
35: STATE_RESPONSIBILITY_ID,
36: CREATED_BY,
37: CREATION_DATE,
38: LAST_UPDATED_BY,
99: X_OBJECT_VERSION_NUMBER in NUMBER
100: ) is
101: cursor c1 is select
102: OBJECT_VERSION_NUMBER
103: from JTF_STATE_RESPONSIBILITIES
104: where STATE_RESPONSIBILITY_ID = X_STATE_RESPONSIBILITY_ID
105: for update of STATE_RESPONSIBILITY_ID nowait;
106:
107: tlinfo c1%rowtype ;
152: X_LAST_UPDATED_BY in NUMBER,
153: X_LAST_UPDATE_LOGIN in NUMBER
154: ) is
155: begin
156: update JTF_STATE_RESPONSIBILITIES set
157: RESPONSIBILITY_ID = X_RESPONSIBILITY_ID,
158: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
159: RULE_ID = X_RULE_ID,
160: ATTRIBUTE1 = X_ATTRIBUTE1,
186: procedure DELETE_ROW (
187: X_STATE_RESPONSIBILITY_ID in NUMBER
188: ) is
189: begin
190: delete from JTF_STATE_RESPONSIBILITIES
191: where STATE_RESPONSIBILITY_ID = X_STATE_RESPONSIBILITY_ID;
192:
193: if (sql%notfound) then
194: raise no_data_found;
196:
197: end DELETE_ROW;
198:
199:
200: end JTF_STATE_RESPONSIBILITIES_PKG;