1 Package Body hr_who as
2 /* $Header: hrwhopls.pkb 115.1 2002/12/05 17:02:10 apholt ship $ */
3 -- ----------------------------------------------------------------------------
4 -- |-------------------< Global Declarations >--------------------------------|
5 -- ----------------------------------------------------------------------------
6 g_package varchar2(33) := ' hr_who.';
7 -- ----------------------------------------------------------------------------
8 -- |---------------------------------< who >----------------------------------|
9 -- ----------------------------------------------------------------------------
10 Procedure who(p_new_created_by in out nocopy number,
11 p_new_creation_date in out nocopy date) Is
12 --
13 l_proc varchar2(72) := g_package||'who';
14 --
15 Begin
16 hr_utility.set_location('Entering:'||l_proc, 5);
17 --
18 -- Test the p_new_created_by argument
19 --
20 If (p_new_created_by is null) Then
21 p_new_created_by := fnd_global.user_id;
22 End If;
23 --
24 -- Test the p_new_creation_date argument
25 --
26 If (p_new_creation_date is null) Then
27 p_new_creation_date := sysdate;
28 End If;
29 hr_utility.set_location(' Leaving:'||l_proc, 10);
30 End who;
31 -- ----------------------------------------------------------------------------
32 -- |---------------------------------< who >----------------------------------|
33 -- ----------------------------------------------------------------------------
34 Procedure who(p_new_last_update_date in out nocopy date,
35 p_new_last_updated_by in out nocopy number,
36 p_new_last_update_login in out nocopy number,
37 p_old_last_update_date in date,
38 p_old_last_updated_by in number,
39 p_old_last_update_login in number) Is
40 --
41 l_proc varchar2(72) := g_package||'who';
42 --
43 Begin
44 hr_utility.set_location('Entering:'||l_proc, 5);
45 --
46 -- Test the p_new_last_update_date argument
47 --
48 If (p_new_last_update_date is null or
49 p_new_last_update_date = p_old_last_update_date) Then
50 p_new_last_update_date := sysdate;
51 End If;
52 --
53 -- Test the p_new_last_updated_by argument
54 --
55 If (p_new_last_updated_by is null or
56 p_new_last_updated_by = p_old_last_updated_by) Then
57 p_new_last_updated_by := fnd_global.user_id;
58 End If;
59 --
60 -- Test the p_new_last_update_login argument
61 --
62 If (p_new_last_update_login is null or
63 p_new_last_update_login = p_old_last_update_login) Then
64 p_new_last_update_login := fnd_global.login_id;
65 End If;
66 hr_utility.set_location(' Leaving:'||l_proc, 10);
67 End who;
68 end hr_who;