[Home] [Help]
1: package body hr_tips_dml as
2: /* $Header: hrtipdml.pkb 115.1 99/10/05 17:58:53 porting ship $ */
3: --
4: procedure addTip(p_filename varchar2
5: ,p_screen varchar2
11: ) is
12: --
13: cursor csr_exists_tip is
14: select 'Y'
15: from hr_tips t
16: where upper(t.screen) = upper(p_screen)
17: and upper(t.field) = upper(p_field)
18: and upper(t.language_code) = upper(p_language)
19: and nvl(t.business_group_id, 0) = nvl(p_business_group_id, 0);
29: if p_mode = 'UPDATE' then
30: -- if the tip already exists in the database then update it
31: if csr_exists_tip%found then
32: -- update it
33: update hr_tips
34: set text = p_text
35: where upper(screen) = upper(p_screen)
36: and upper(field) = upper(p_field)
37: and upper(language_code) = upper(p_language)
37: and upper(language_code) = upper(p_language)
38: and nvl(business_group_id, 0) = nvl(p_business_group_id, 0);
39: else
40: -- insert it
41: insert into hr_tips
42: (tip_id
43: ,filename
44: ,screen
45: ,field
48: ,text
49: ,enabled_flag
50: )
51: values
52: (hr_tips_s.nextval
53: ,upper(p_filename)
54: ,upper(p_screen)
55: ,upper(p_field)
56: ,upper(p_language)
63: null;
64: -- only insert tips into the database if they are not already there
65: if csr_exists_tip%notfound then
66: -- insert it
67: insert into hr_tips
68: (tip_id
69: ,filename
70: ,screen
71: ,field
74: ,text
75: ,enabled_flag
76: )
77: values
78: (hr_tips_s.nextval
79: ,upper(p_filename)
80: ,upper(p_screen)
81: ,upper(p_field)
82: ,upper(p_language)
93: ,p_business_group_id number default null) is
94: begin
95: -- clear out the tips for the specified filename, language and
96: -- business group id
97: delete from hr_tips
98: where upper(filename) = upper(p_filename)
99: and upper(language_code) = upper(p_language)
100: and nvl(business_group_id, 0) = nvl(p_business_group_id, 0);
101: end;
100: and nvl(business_group_id, 0) = nvl(p_business_group_id, 0);
101: end;
102: --
103: --
104: end hr_tips_dml;