[Home] [Help]
PACKAGE BODY: APPS.PA_STATUSES_PUB
Source
1 PACKAGE BODY PA_STATUSES_PUB as
2 /* $Header: PARSTAPB.pls 120.2 2005/08/19 17:00:35 mwasowic noship $ */
3 -- Start of Comments
4 -- Package name : PA_STATUSES_PUB
5 -- Purpose : Public Package for table PA_PROJECT_STATUSES
6 -- History : 07-JUL-2000 Mohnish Created
7 -- 11-OCT-2000 Partha serveroutput is removed
8 -- NOTE :
9 -- : Subprogram Name Type
10 -- : ------------------ -----------------------
11 -- : delete_status PL/SQL procedure
12 -- End of Comments
13
14 PROCEDURE delete_status
15 ( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
16 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE -- 1851096 changed for TRUE to FALSE
17 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
18 ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
19 ,p_max_msg_count IN NUMBER
20 ,p_pa_project_status_code IN VARCHAR2
21 ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
22 ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
23 ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
24 ,x_allow_deletion_flag OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
25 )
26 IS
27 v_status_type VARCHAR2(30);
28 x_status_code VARCHAR2(30);
29 x_error_message_code VARCHAR2(255);
30 unknown_action_exc EXCEPTION;
31
32 BEGIN
33
34 x_return_status := FND_API.G_RET_STS_SUCCESS ;
35
36 select status_type
37 into v_status_type
38 from pa_project_statuses
39 where project_status_code = p_pa_project_status_code;
40
41
42 PA_PROJECT_STUS_UTILS.Check_Status_Name_or_Code(
43 p_status_code => p_pa_project_status_code
44 ,p_status_name => NULL
45 ,p_status_type => v_status_type
46 ,p_check_id_flag => 'Y'
47 ,x_status_code => x_status_code
48 ,x_return_status => x_return_status
49 ,x_error_message_code => x_error_message_code
50 );
51 IF NOT (x_status_code=p_pa_project_status_code) THEN
52 raise unknown_action_exc;
53 END IF;
54
55 pa_statuses_pvt.delete_status_pvt
56 (p_api_version_number => p_api_version_number
57 ,p_init_msg_list => p_init_msg_list
58 ,p_commit => p_commit
59 ,p_validate_only => p_validate_only
60 ,p_max_msg_count => p_max_msg_count
61 ,p_pa_project_status_code => p_pa_project_status_code
62 ,x_return_status => x_return_status
63 ,x_msg_count => x_msg_count
64 ,x_msg_data => x_msg_data
65 ,x_allow_deletion_flag => x_allow_deletion_flag
66 );
67 EXCEPTION
68 WHEN unknown_action_exc THEN
69 rollback;
70 x_return_status := FND_API.G_RET_STS_ERROR;
71 fnd_message.set_name('PA','PA_UNKNOWN_ACTION');
72 fnd_message.set_token('PKG_NAME','PA_STATUSES_PUB');
73 fnd_message.set_token('PROCEDURE_NAME','delete_status');
74 fnd_msg_pub.add();
75 fnd_msg_pub.count_and_get(p_count => x_msg_count,
76 p_data => x_msg_data);
77 raise;
78 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79 rollback;
80 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81 fnd_message.set_name('PA','PA_UNEXPECTED_ERROR');
82 fnd_message.set_token('PKG_NAME','PA_STATUSES_PUB');
83 fnd_message.set_token('PROCEDURE_NAME','delete_status');
84 fnd_msg_pub.add();
85 fnd_msg_pub.count_and_get(p_count => x_msg_count,
86 p_data => x_msg_data);
87 raise;
88 WHEN OTHERS THEN
89 rollback;
90 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91 fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STATUSES_PUB',
92 p_procedure_name => 'delete_status',
93 p_error_text => SUBSTRB(SQLERRM,1,240));
94 fnd_msg_pub.count_and_get(p_count => x_msg_count,
95 p_data => x_msg_data);
96 raise;
97
98
99 END delete_status;
100
101 --------------------------------------------------------------------------------
102 end PA_STATUSES_PUB;