[Home] [Help]
PACKAGE BODY: APPS.AHL_VWP_VISIT_MR_PVT
Source
1 PACKAGE BODY AHL_VWP_VISIT_MR_PVT AS
2 /* $Header: AHLVVMRB.pls 120.0 2005/05/26 00:09:34 appldev noship $ */
3
4 -----------------------------------------------------------
5 -- PACKAGE
6 -- Ahl_VWP_Visit_MR_Pvt
7 --
8 -- PROCEDURES
9 --
10 -- NOTES
11 --
12 -- HISTORY
13 -- 06-MAY-2003 SHBHANDA Created.
14 -- 21-AUGUST-2003 Calling procedure was added with due logic
15 -- By Rajanath Tadikonda
16 --
17 -----------------------------------------------------------------
18 -- Global CONSTANTS
19 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AHL_VWP_VISIT_MR_PVT';
20 G_DEBUG VARCHAR2(1) := AHL_DEBUG_PUB.is_log_enabled;
21 -----------------------------------------------------------------
22
23 ---------------------------------------------------------------------
24 -- PROCEDURE
25 -- Process_Visit_MRs
26 --
27 ---------------------------------------------------------------------
28 PROCEDURE Process_Visit_MRs (
29 p_api_version IN NUMBER,
30 p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
31 p_commit IN VARCHAR2 := Fnd_Api.g_false,
32 p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
33 p_module_type IN VARCHAR2 := 'JSP',
34 p_Visit_MR_Tbl IN Visit_MR_Tbl_Type,
35 x_return_status OUT NOCOPY VARCHAR2,
36 x_msg_count OUT NOCOPY NUMBER,
37 x_msg_data OUT NOCOPY VARCHAR2
38 )
39 IS
40 L_API_VERSION CONSTANT NUMBER := 1.0;
41 -- Added be amagrawa beased on review comments
42 l_return_status VARCHAR2(1);
43 l_msg_count NUMBER;
44 -- Modified be amagrawa beased on review comments
45 L_API_NAME CONSTANT VARCHAR2(30) := 'Process_Visit_MRs';
46 L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
47
48 BEGIN
49 --------------------- initialize -----------------------
50 SAVEPOINT Process_Visit_MRs;
51 IF G_DEBUG='Y' THEN
52 Ahl_Debug_Pub.enable_debug;
53 END IF;
54
55 -- Debug info.
56 IF G_DEBUG='Y' THEN
57 Ahl_Debug_Pub.debug( l_full_name ||':Start');
58 END IF;
59
60 -- Initialize message list if p_init_msg_list is set to TRUE.
61 IF Fnd_Api.to_boolean(p_init_msg_list)
62 THEN
63 Fnd_Msg_Pub.initialize;
64 END IF;
65
66 -- Initialize API return status to success
67 x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
68
69 -- Standard call to check for call compatibility.
70 IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
71 p_api_version,
72 l_api_name,G_PKG_NAME)
73 THEN
74 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
75 END IF;
76
77 IF p_Visit_MR_Tbl.COUNT=0
78 THEN
79 RETURN;
80 ELSIF p_Visit_MR_Tbl.COUNT>0
81 THEN
82
83 FOR i in p_Visit_MR_Tbl.first.. p_Visit_MR_Tbl.last
84 LOOP
85 AHL_VWP_TASKS_PVT.Delete_Task (
86 p_api_version => p_api_version,
87 p_init_msg_list => Fnd_Api.g_false,
88 p_commit => Fnd_Api.g_false,
89 p_validation_level =>Fnd_Api.g_valid_level_full,
90 p_module_type => p_module_type,
91 p_Visit_Task_Id =>p_Visit_MR_Tbl(i).visit_task_id,
92 x_return_status =>x_return_status,
93 x_msg_count =>x_msg_count,
94 x_msg_data =>x_msg_data);
95 -- Added be amagrawa beased on review comments
96 IF l_return_status <> 'S' THEN
97 RAISE Fnd_Api.G_EXC_ERROR;
98 END IF;
99 END LOOP;
100 END IF;
101
102
103
104 ---------------------------End of Body-------------------------------------
105 --
106 -- END of API body.
107
108 -- Added be amagrawa beased on review comments
109 --Standard check to count messages
110 l_msg_count := Fnd_Msg_Pub.count_msg;
111
112 IF l_msg_count > 0 THEN
113 X_msg_count := l_msg_count;
114 X_return_status := Fnd_Api.G_RET_STS_ERROR;
115 RAISE Fnd_Api.G_EXC_ERROR;
116 END IF;
117
118 --
119 -- Standard check of p_commit.
120 IF Fnd_Api.To_Boolean ( p_commit ) THEN
121 COMMIT WORK;
122 END IF;
123
124 IF G_DEBUG='Y' THEN
125 Ahl_Debug_Pub.debug( l_full_name ||':End');
126 END IF;
127
128 -- Check if API is called in debug mode. If yes, disable debug.
129 IF G_DEBUG='Y' THEN
130 Ahl_Debug_Pub.disable_debug;
131 END IF;
132
133 EXCEPTION
134 WHEN Fnd_Api.g_exc_error THEN
135 ROLLBACK TO Process_Visit_MRs;
136 x_return_status := Fnd_Api.g_ret_sts_error;
137 Fnd_Msg_Pub.count_and_get (
138 p_encoded => Fnd_Api.g_false,
139 p_count => x_msg_count,
140 p_data => x_msg_data
141 );
142
143 IF G_DEBUG='Y' THEN
144 Ahl_Debug_Pub.disable_debug;
145 END IF;
146
147 WHEN Fnd_Api.g_exc_unexpected_error THEN
148 ROLLBACK TO Process_Visit_MRs;
149 x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
150 Fnd_Msg_Pub.count_and_get (
151 p_encoded => Fnd_Api.g_false,
152 p_count => x_msg_count,
153 p_data => x_msg_data
154 );
155
156 IF G_DEBUG='Y' THEN
157 Ahl_Debug_Pub.disable_debug;
158 END IF;
159
160 WHEN OTHERS THEN
161 ROLLBACK TO Process_Visit_MRs;
162 x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
163 IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
164 THEN
165 Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
166 END IF;
167 Fnd_Msg_Pub.count_and_get (
168 p_encoded => Fnd_Api.g_false,
169 p_count => x_msg_count,
170 p_data => x_msg_data
171 );
172
173 IF G_DEBUG='Y' THEN
174 Ahl_Debug_Pub.disable_debug;
175 END IF;
176 END Process_Visit_MRs;
177
178 END AHL_VWP_VISIT_MR_PVT;