61: , p_name => 'Calendar: Appointment Access'
62: , p_description => 'This is used for delgating calendar access'
63: );
64:
65: IF (l_return_status <> FND_API.G_TRUE)
66: THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69: END IF;
63: );
64:
65: IF (l_return_status <> FND_API.G_TRUE)
66: THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69: END IF;
70:
71: IF (p_booking_access IS NOT NULL)
89: , p_name => 'Calendar: Booking Access'
90: , p_description => 'This is used for delgating calendar access'
91: );
92:
93: IF (l_return_status <> FND_API.G_TRUE)
94: THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97: END IF;
91: );
92:
93: IF (l_return_status <> FND_API.G_TRUE)
94: THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: END IF;
97: END IF;
98:
99: IF (p_task_access IS NOT NULL)
117: , p_name => 'Calendar: Task Access'
118: , p_description => 'This is used for delgating calendar access'
119: );
120:
121: IF (l_return_status <> FND_API.G_TRUE)
122: THEN
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124: END IF;
125:
119: );
120:
121: IF (l_return_status <> FND_API.G_TRUE)
122: THEN
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124: END IF;
125:
126: fnd_grants_pkg.grant_function
127: ( p_api_version => 1.0
142: , p_name => 'Calendar: Task Data Access'
143: , p_description => 'This is used for delgating calendar access'
144: );
145:
146: IF (l_return_status <> FND_API.G_TRUE)
147: THEN
148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
149: END IF;
150:
144: );
145:
146: IF (l_return_status <> FND_API.G_TRUE)
147: THEN
148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
149: END IF;
150:
151: END IF;
152:
172: l_instance_set_id NUMBER;
173:
174: BEGIN
175:
176: x_return_status := FND_API.G_RET_STS_SUCCESS;
177:
178: OPEN C_LOGGEDIN_RESOURCE;
179: FETCH C_LOGGEDIN_RESOURCE
180: INTO l_resource_id,l_resource_type;
204: , p_data => x_msg_data
205: );
206:
207: EXCEPTION
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
209: THEN
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
212: , p_data => x_msg_data
206:
207: EXCEPTION
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
209: THEN
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
212: , p_data => x_msg_data
213: );
214: WHEN OTHERS
212: , p_data => x_msg_data
213: );
214: WHEN OTHERS
215: THEN
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
218: THEN
219: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
220: , l_api_name
293: l_error NUMBER;
294:
295: BEGIN
296:
297: x_return_status := FND_API.G_RET_STS_SUCCESS;
298:
299: OPEN C_LOGGEDIN_RESOURCE;
300: FETCH C_LOGGEDIN_RESOURCE
301: INTO l_resource_id,l_resource_type;
314: , x_success => l_return_status
315: , x_errorcode => l_error
316: );
317:
318: IF (l_return_status <> FND_API.G_TRUE)
319: THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
322: END LOOP;
316: );
317:
318: IF (l_return_status <> FND_API.G_TRUE)
319: THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
322: END LOOP;
323:
324: INSERT_GRANTS
340: , p_data => x_msg_data
341: );
342:
343: EXCEPTION
344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
345: THEN
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
348: , p_data => x_msg_data
342:
343: EXCEPTION
344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
345: THEN
346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
348: , p_data => x_msg_data
349: );
350: WHEN OTHERS
348: , p_data => x_msg_data
349: );
350: WHEN OTHERS
351: THEN
352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
354: THEN
355: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME
356: , l_api_name