1: PACKAGE BODY JTF_DAC_ROLE_PERM_CRIT_PKG AS
2: /* $Header: jtfapcb.pls 120.2 2005/10/25 05:14:19 psanyal ship $ */
3:
4: procedure INSERT_ROW(
5: X_ROWID IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
171: else
172: l_user_id := 0;
173: end if;
174:
175: JTF_DAC_ROLE_PERM_CRIT_PKG.Update_Row(
176: x_role_perm_crit_id => x_role_perm_crit_id,
177: x_role_perm_id => x_role_perm_id,
178: x_criteria_id => x_criteria_id,
179: x_jtf_auth_principal_id => x_jtf_auth_principal_id,
227: else
228: l_user_id := 0;
229: end if;
230:
231: JTF_DAC_ROLE_PERM_CRIT_PKG.Update_Row(
232: x_role_perm_crit_id => x_role_perm_crit_id,
233: x_role_perm_id => x_role_perm_id,
234: x_criteria_id => x_criteria_id,
235: x_jtf_auth_principal_id => x_jtf_auth_principal_id,
249: X_Last_Updated_By => l_user_id,
250: X_Last_Update_Login => 0);
251: exception
252: when no_data_found then
253: JTF_DAC_ROLE_PERM_CRIT_PKG.Insert_Row(
254: X_Rowid => l_rowid,
255: x_role_perm_crit_id => x_role_perm_crit_id,
256: x_role_perm_id => x_role_perm_id,
257: x_criteria_id => x_criteria_id,
277: end;
278:
279:
280:
281: end JTF_DAC_ROLE_PERM_CRIT_PKG;