1: package body PRP_GROUP_TOKENS_PKG as
2: /* $Header: PRPTGTKB.pls 120.1 2005/10/21 17:39:08 hekkiral noship $ */
3:
4: --
5: -- Should be called only from lct file
16: l_user_id NUMBER := 0;
17: l_login_id NUMBER := 0;
18: l_rowid VARCHAR2(256);
19:
20: CURSOR c(c_group_token_id NUMBER) IS SELECT rowid FROM prp_group_tokens
21: WHERE group_token_id = c_group_token_id;
22:
23: begin
24:
23: begin
24:
25: l_user_id := fnd_load_util.owner_id(p_owner);
26:
27: UPDATE prp_group_tokens SET
28: object_version_number = p_object_version_number,
29: group_id = p_group_id,
30: token_id = p_token_id,
31: last_update_date = sysdate,
34: WHERE group_token_id = p_group_token_id;
35:
36: IF (sql%NOTFOUND) THEN
37:
38: INSERT INTO prp_group_tokens
39: (
40: group_token_id,
41: object_version_number,
42: group_id,
71: END IF;
72:
73: end LOAD_ROW;
74:
75: end PRP_GROUP_TOKENS_PKG;