[Home] [Help]
PACKAGE BODY: APPS.PRP_GROUP_TOKENS_PKG
Source
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
6 --+
7 procedure LOAD_ROW
8 (
9 p_owner IN VARCHAR2,
10 p_group_token_id IN NUMBER,
11 p_object_version_number IN NUMBER,
12 p_group_id IN NUMBER,
13 p_token_id IN NUMBER
14 )
15 is
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
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,
32 last_updated_by = l_user_id,
33 last_update_login = l_login_id
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,
43 token_id,
44 creation_date,
45 created_by,
46 last_update_date,
47 last_updated_by,
48 last_update_login
49 )
50 VALUES
51 (
52 p_group_token_id,
53 p_object_version_number,
54 p_group_id,
55 p_token_id,
56 sysdate,
57 l_user_id,
58 sysdate,
59 l_user_id,
60 l_login_id
61 );
62
63 OPEN c(p_group_token_id);
64 FETCH c INTO l_rowid;
65 IF (c%NOTFOUND) THEN
66 CLOSE c;
67 RAISE NO_DATA_FOUND;
68 END IF;
69 CLOSE c;
70
71 END IF;
72
73 end LOAD_ROW;
74
75 end PRP_GROUP_TOKENS_PKG;