[Home] [Help]
PACKAGE BODY: APPS.JTF_TASK_MASS_PUB
Source
1 PACKAGE BODY jtf_task_mass_pub AS
2 /* $Header: jtfptkbb.pls 115.6 2002/12/05 18:39:41 sachoudh ship $ */
3
4 ----------------------------------------------------------------------------------------------------
5 -- Start of comments
6 -- Procedure Name : create_mass_tasks
7 -- Type : Public
8 -- Function : Create tasks for all the members of a group or a team.
9 -- Pre reqs : None
10 -- Parameters :
11 -- name direction type required
12 -- ------ --------- ---- --------
13 -- p_api_version IN NUMBER required
14 -- p_init_msg_list IN VARCHAR2 optional
15 -- p_commit IN VARCHAR2 optional
16 -- x_msg_count OUT NUMBER required
17 -- x_msg_data OUT VARCHAR2 required
18 -- x_return_status OUT VARCHAR2 required
19 -- p_resource_type IN VARCHAR2 required
20 -- p_resource_id IN NUMBER required
21 -- p_task_id IN NUMBER required
22 -- p_task_number IN VARCHAR2 required
23 -- p_keep_record IN VARCHAR2 optional
24 -- p_keep_resource_id IN NUMBER optional
25 -- p_copy_notes IN VARCHAR2 optional
26 -- p_copy_task_assignments IN VARCHAR2 optional
27 -- p_copy_task_rsc_reqs IN VARCHAR2 optional
28 -- p_copy_task_depends IN VARCHAR2 optional
29 -- p_create_recurrences IN VARCHAR2 optional
30 -- p_copy_task_references IN VARCHAR2 optional
31 -- p_copy_task_dates IN VARCHAR2 optional
32
33 -----------------------------------------------------------------------------------------------------
34
35 PROCEDURE create_mass_tasks( p_api_version IN NUMBER,
36 p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false,
37 p_commit IN VARCHAR2 DEFAULT fnd_api.g_true,
38 x_msg_count OUT NOCOPY NUMBER,
39 x_msg_data OUT NOCOPY VARCHAR2,
40 x_return_status OUT NOCOPY VARCHAR2,
41 p_resource_type IN VARCHAR2,
42 p_resource_id IN NUMBER,
43 p_task_id IN NUMBER,
44 p_task_number IN VARCHAR2,
45 p_keep_record IN VARCHAR2 DEFAULT NULL,
46 p_keep_resource_id IN NUMBER DEFAULT NULL,
47 p_copy_notes IN VARCHAR2 DEFAULT fnd_api.g_false,
48 p_copy_task_assignments IN VARCHAR2 DEFAULT fnd_api.g_false,
49 p_copy_task_rsc_reqs IN VARCHAR2 DEFAULT fnd_api.g_false,
50 p_copy_task_depends IN VARCHAR2 DEFAULT fnd_api.g_false,
51 p_create_recurrences IN VARCHAR2 DEFAULT fnd_api.g_false,
52 p_copy_task_references IN VARCHAR2 DEFAULT fnd_api.g_false,
53 p_copy_task_dates IN VARCHAR2 DEFAULT fnd_api.g_false) IS
54
55 l_api_version CONSTANT NUMBER := 1.0;
56 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TASK';
57 BEGIN
58 --
59 -- Standard start of API savepoint
60 --
61 SAVEPOINT create_mass_task_pub;
62
63 --
64 -- initialize API return status to success
65 --
66 x_return_status := fnd_api.g_ret_sts_success;
67
68 --
69 -- Standard call to check for call compatibility
70 --
71 IF NOT fnd_api.compatible_api_call (
72 l_api_version,
73 p_api_version,
74 l_api_name,
75 g_pkg_name
76 )
77 THEN
78 RAISE fnd_api.g_exc_unexpected_error;
79 END IF;
80
81 --
82 -- Initialize message list if p_init_msg_list is set to TRUE
83 --
84 IF fnd_api.to_boolean (p_init_msg_list)
85 THEN
86 fnd_msg_pub.initialize;
87 END IF;
88
89 --
90 --Call the private package JTF_TASK_MASS_CREATE_PVT to create tasks
91 --
92 jtf_task_mass_pvt.create_mass_tasks( p_api_version => 1.0,
93 p_init_msg_list => fnd_api.g_false,
94 x_msg_count => x_msg_count,
95 x_msg_data => x_msg_data,
96 x_return_status => x_return_status,
97 p_resource_type => p_resource_type,
98 p_resource_id => p_resource_id,
99 p_task_id => p_task_id,
100 p_task_number => p_task_number,
101 p_keep_record => p_keep_record,
102 p_keep_resource_id => p_keep_resource_id,
103 p_copy_notes => p_copy_notes,
104 p_copy_task_references => 'T');
105
106 IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
107 x_return_status := fnd_api.g_ret_sts_unexp_error;
108 RAISE fnd_api.g_exc_unexpected_error;
109 ELSIF (x_return_status = fnd_api.g_ret_sts_success) THEN
110 If p_commit = 'T' then
111 commit;
112 end if;
113 END IF;
114
115
116 EXCEPTION
117 WHEN fnd_api.g_exc_unexpected_error
118 THEN
119 ROLLBACK TO create_mass_task_pub;
120 x_return_status := fnd_api.g_ret_sts_unexp_error;
121 fnd_msg_pub.count_and_get (
122 p_count => x_msg_count,
123 p_data => x_msg_data
124 );
125 WHEN OTHERS
126 THEN
127 ROLLBACK TO create_mass_task_pub;
128 fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
129 fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
130 x_return_status := fnd_api.g_ret_sts_unexp_error;
131 fnd_msg_pub.count_and_get (
132 p_count => x_msg_count,
133 p_data => x_msg_data
134 );
135 END create_mass_tasks;
136
137 END jtf_task_mass_pub;