PACKAGE BODY: APPS.CSF_GANTT_ICONS_PVT

Source

1 package body CSF_GANTT_ICONS_PVT as
2 /* $Header: CSFGTICB.pls 120.0 2005/05/24 17:42:38 appldev noship $ */
3   procedure update_row
4   ( p_seq_id                IN OUT NOCOPY number
5   , p_object_version_number IN OUT NOCOPY number
6   , p_RANKING               IN number
7   , p_ACTIVE                IN VARCHAR2
8   , p_last_updated_by       IN  number
9   , p_last_update_date      IN   date
10   , p_last_update_login     IN   number
11   )
12   is
13     l_last_updated_by   number;
14   l_last_update_date        date;
15   l_last_update_login       number	;
16   begin
17 
18     if p_last_updated_by is null then
19       l_last_updated_by   := fnd_global.user_id;
20     end if;
21 
22     if p_last_update_login is null then
23       l_last_update_login := fnd_global.login_id;
24     end if;
25 
26     if p_last_update_date is null then
27       l_last_update_date  := sysdate;
28     end if;
29 
30     update csf_gnticons_setup_b
31     set
32         last_updated_by        = l_last_updated_by
33     ,   last_update_date       = l_last_update_date
34     ,   last_update_login      = l_last_update_login
35     ,   object_version_number  = object_version_number + 1
36     ,   ranking                = p_ranking
37     ,   active                 = p_active
38     where seq_id = p_seq_id;
39 
40     if sql%notfound
41     then
42       raise NO_DATA_FOUND;
43     end if;
44   end update_row;
45 end CSF_GANTT_ICONS_PVT;