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,
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,
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,
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:
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,
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;
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
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,
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,
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,
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:
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: --
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.
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
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,
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
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,
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
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:
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;
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: