PACKAGE BODY: APPS.ASF_REC_VIEW_HIS_PUB

Source

1 PACKAGE BODY ASF_REC_VIEW_HIS_PUB AS
2 /* $Header: asffrvhb.pls 115.2 2002/03/25 17:16:57 pkm ship  $ */
3 
4   procedure Update_Entry(p_object_code  IN  varchar2,
5                          p_object_id    IN  number,
6                          x_return_status OUT varchar2,
7                          x_error_message OUT varchar2) IS
8     l_exist   number;
9     l_date    date;
10     g_user_id number;
11   BEGIN
12     g_user_id := FND_GLOBAL.USER_ID;
13     l_date := SYSDATE;
14 
15     select count(1) into l_exist
16       from ASF_RECORD_VIEW_HISTORY
17      where OBJECT_CODE = p_object_code
18        and OBJECT_ID = p_object_id
19        and LAST_UPDATED_BY = g_user_id;
20 
21     if (l_exist > 0) then
22       update ASF_RECORD_VIEW_HISTORY
23          set LAST_UPDATE_DATE = l_date
24        where OBJECT_CODE = p_object_code
25          and OBJECT_ID = p_object_id
26          and LAST_UPDATED_BY = g_user_id;
27     else
28       select count(1) into l_exist
29         from JTF_OBJECTS_B
30        where OBJECT_CODE = p_object_code
31          and nvl(START_DATE_ACTIVE, l_date) <= l_date
32          and nvl(END_DATE_ACTIVE, l_date) >= l_date;
33       if (l_exist > 0) then
34         begin
35           insert into ASF_RECORD_VIEW_HISTORY (
36              OBJECT_CODE,
37              OBJECT_ID,
38              CREATED_BY,
39              CREATION_DATE,
40              LAST_UPDATED_BY,
41              LAST_UPDATE_DATE)
42           values (
43              p_object_code,
44              p_object_id,
45              g_user_id,
46              l_date,
47              g_user_id,
48              l_date);
49         exception
50           when DUP_VAL_ON_INDEX then null;
51         end;
52 
53       else
54         x_return_status := 'E';
55         x_error_message := 'Invalid OBJECT_CODE ' || p_object_code;
56         return;
57       end if;
58     end if;
59 
60     x_return_status := 'S';
61     x_error_message := NULL;
62 
63   EXCEPTION
64     WHEN OTHERS THEN
65       x_return_status := 'U';
66       x_error_message := 'Unexpected error.  Please verify ASF_RECORD_VIEW_HISTORY table.';
67       RETURN;
68   END Update_Entry;
69 
70 end ASF_REC_VIEW_HIS_PUB;