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;