1: PACKAGE BODY JTF_DAC_CRITERIA_PKG AS
2: /* $Header: jtfaacb.pls 120.2 2005/10/25 05:09:52 psanyal ship $ */
3:
4: procedure INSERT_ROW(
5: X_ROWID IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
16: X_LAST_UPDATED_BY in NUMBER,
17: X_LAST_UPDATE_LOGIN in NUMBER
18: ) IS
19:
20: cursor C is select ROWID from JTF_DAC_CRITERIA
21: where CRITERIA_ID = X_CRITERIA_ID;
22: BEGIN
23:
24: insert into JTF_DAC_CRITERIA(
20: cursor C is select ROWID from JTF_DAC_CRITERIA
21: where CRITERIA_ID = X_CRITERIA_ID;
22: BEGIN
23:
24: insert into JTF_DAC_CRITERIA(
25: CRITERIA_ID,
26: ROLE_PERM_ID,
27: PROPERTY_NAME,
28: OPERATOR,
75: X_LAST_UPDATE_LOGIN in NUMBER
76: ) is
77: begin
78:
79: update JTF_DAC_CRITERIA set
80: CRITERIA_ID = X_CRITERIA_ID,
81: ROLE_PERM_ID = X_ROLE_PERM_ID,
82: PROPERTY_NAME = X_PROPERTY_NAME,
83: OPERATOR = X_OPERATOR,
117: else
118: l_user_id := 0;
119: end if;
120:
121: JTF_DAC_CRITERIA_PKG.Update_Row(
122: X_CRITERIA_ID => X_CRITERIA_ID,
123: X_ROLE_PERM_ID => X_ROLE_PERM_ID,
124: X_PROPERTY_NAME => X_PROPERTY_NAME,
125: X_OPERATOR => X_OPERATOR,
155: else
156: l_user_id := 0;
157: end if;
158:
159: JTF_DAC_CRITERIA_PKG.Update_Row(
160: X_CRITERIA_ID => X_CRITERIA_ID,
161: X_ROLE_PERM_ID => X_ROLE_PERM_ID,
162: X_PROPERTY_NAME => X_PROPERTY_NAME,
163: X_OPERATOR => X_OPERATOR,
169: X_Last_Update_Login => 0);
170:
171: exception
172: when no_data_found then
173: JTF_DAC_CRITERIA_PKG.Insert_Row(
174: X_Rowid => l_rowid,
175: X_CRITERIA_ID => X_CRITERIA_ID,
176: X_ROLE_PERM_ID => X_ROLE_PERM_ID,
177: X_PROPERTY_NAME => X_PROPERTY_NAME,
188: end;
189:
190:
191:
192: end JTF_DAC_CRITERIA_PKG;