2: --$Header: PAPMUTPB.pls 120.5.12010000.3 2008/11/10 08:53:57 jcgeorge ship $
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_INTERFACE_UTILS_PUB';
4:
5: PROCEDURE get_messages
6: (p_encoded IN VARCHAR2 := FND_API.G_FALSE,
7: p_msg_index IN NUMBER := FND_API.G_MISS_NUM,
8: p_msg_count IN NUMBER := 1,
9: p_msg_data IN VARCHAR2 := FND_API.G_MISS_CHAR,
10: p_data OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_INTERFACE_UTILS_PUB';
4:
5: PROCEDURE get_messages
6: (p_encoded IN VARCHAR2 := FND_API.G_FALSE,
7: p_msg_index IN NUMBER := FND_API.G_MISS_NUM,
8: p_msg_count IN NUMBER := 1,
9: p_msg_data IN VARCHAR2 := FND_API.G_MISS_CHAR,
10: p_data OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
11: p_msg_index_out OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
5: PROCEDURE get_messages
6: (p_encoded IN VARCHAR2 := FND_API.G_FALSE,
7: p_msg_index IN NUMBER := FND_API.G_MISS_NUM,
8: p_msg_count IN NUMBER := 1,
9: p_msg_data IN VARCHAR2 := FND_API.G_MISS_CHAR,
10: p_data OUT NOCOPY VARCHAR2, /*Added the nocopy check for 4537865 */
11: p_msg_index_out OUT NOCOPY NUMBER /*Added the nocopy check for 4537865 */
12: ) IS
13:
16: l_msg_index NUMBER;
17:
18: BEGIN
19:
20: IF p_msg_index = FND_API.G_MISS_NUM THEN
21: l_msg_index := FND_MSG_PUB.G_NEXT;
22: ELSE
23: l_msg_index := p_msg_index;
24: END IF;
122: -- 4363092 end
123:
124: BEGIN
125: -- Standard Api compatibility call
126: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
127: p_api_version_number ,
128: l_api_name ,
129: G_PKG_NAME )
130: THEN
127: p_api_version_number ,
128: l_api_name ,
129: G_PKG_NAME )
130: THEN
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132: END IF;
133:
134: p_return_status := FND_API.G_RET_STS_SUCCESS;
135:
130: THEN
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132: END IF;
133:
134: p_return_status := FND_API.G_RET_STS_SUCCESS;
135:
136:
137: -- Ensure the responsibility id passed is valid
138: IF p_responsibility_id IS NULL or p_responsibility_id =
142: FND_MESSAGE.SET_NAME('PA','PA_RESP_ID_REQD');
143: FND_MSG_PUB.add;
144: END IF;
145:
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148:
149: OPEN l_resp_csr;
150: FETCH l_resp_csr INTO l_dummy;
153: FND_MESSAGE.SET_NAME('PA','PA_RESP_ID_INVALID');
154: FND_MSG_PUB.add;
155: END IF;
156: CLOSE l_resp_csr;
157: RAISE FND_API.G_EXC_ERROR;
158: ELSE
159: CLOSE l_resp_csr;
160: END IF;
161:
167: FND_MESSAGE.SET_NAME('PA','PA_USER_ID_REQD');
168: FND_MSG_PUB.add;
169: END IF;
170:
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173:
174:
175: OPEN l_user_csr ;
179: FND_MESSAGE.SET_NAME('PA','PA_USER_ID_INVALID');
180: FND_MSG_PUB.add;
181: END IF;
182: CLOSE l_user_csr;
183: RAISE FND_API.G_EXC_ERROR;
184: ELSE
185: CLOSE l_user_csr;
186: END IF;
187:
222: , p_msg_data => l_msg_data
223: , p_return_status => l_return_status
224: );
225:
226: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
227: RAISE FND_API.G_EXC_ERROR ;
228: END IF ;
229:
230: -- 4363092 end
223: , p_return_status => l_return_status
224: );
225:
226: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
227: RAISE FND_API.G_EXC_ERROR ;
228: END IF ;
229:
230: -- 4363092 end
231:
257: FND_MESSAGE.SET_NAME('PA','PA_AMG_NOT_LICENSED');
258: FND_MSG_PUB.add;
259: END IF;
260:
261: RAISE FND_API.G_EXC_ERROR;
262: END IF;
263: END IF;
264: */ --End bug 2988747
265:
271: create_amg_mapping_msg;
272:
273: EXCEPTION
274:
275: WHEN FND_API.G_EXC_ERROR
276: THEN
277:
278: p_return_status := FND_API.G_RET_STS_ERROR;
279:
274:
275: WHEN FND_API.G_EXC_ERROR
276: THEN
277:
278: p_return_status := FND_API.G_RET_STS_ERROR;
279:
280: FND_MSG_PUB.Count_And_Get
281: ( p_count => p_msg_count ,
282: p_data => p_msg_data );
280: FND_MSG_PUB.Count_And_Get
281: ( p_count => p_msg_count ,
282: p_data => p_msg_data );
283:
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
285: THEN
286: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287:
288: FND_MSG_PUB.Count_And_Get
282: p_data => p_msg_data );
283:
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
285: THEN
286: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
287:
288: FND_MSG_PUB.Count_And_Get
289: ( p_count => p_msg_count ,
290: p_data => p_msg_data );
291:
292: WHEN OTHERS
293: THEN
294:
295: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296:
297: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
298: THEN
299: FND_MSG_PUB.add_exc_msg
318:
319: l_api_name CONSTANT VARCHAR2(30):= 'Get_Defaults';
320: BEGIN
321:
322: p_return_status := FND_API.G_RET_STS_SUCCESS;
323:
324: p_def_char := G_PA_MISS_CHAR;
325: p_def_num := G_PA_MISS_NUM;
326: p_def_date := G_PA_MISS_DATE;
326: p_def_date := G_PA_MISS_DATE;
327:
328: EXCEPTION
329:
330: WHEN FND_API.G_EXC_ERROR
331: THEN
332:
333: p_return_status := FND_API.G_RET_STS_ERROR;
334:
329:
330: WHEN FND_API.G_EXC_ERROR
331: THEN
332:
333: p_return_status := FND_API.G_RET_STS_ERROR;
334:
335: -- 4537865
336: p_def_char := NULL ;
337: p_def_num:= NULL ;
340: FND_MSG_PUB.Count_And_Get
341: ( p_count => p_msg_count ,
342: p_data => p_msg_data );
343:
344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
345: THEN
346: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347:
348: -- 4537865
342: p_data => p_msg_data );
343:
344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
345: THEN
346: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
347:
348: -- 4537865
349: p_def_char := NULL ;
350: p_def_num:= NULL ;
356:
357: WHEN OTHERS
358: THEN
359:
360: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361:
362: -- 4537865
363: p_def_char := NULL ;
364: p_def_num:= NULL ;
420:
421:
422: BEGIN
423:
424: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
425: p_api_version_number ,
426: l_api_name ,
427: G_PKG_NAME ) THEN
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
424: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
425: p_api_version_number ,
426: l_api_name ,
427: G_PKG_NAME ) THEN
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: END IF;
430:
431: p_return_status := FND_API.G_RET_STS_SUCCESS;
432:
427: G_PKG_NAME ) THEN
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: END IF;
430:
431: p_return_status := FND_API.G_RET_STS_SUCCESS;
432:
433: --
434: -- Get the reporting period type, either 'PA' or 'GL'
435: --
506: );
507:
508: EXCEPTION
509:
510: WHEN FND_API.G_EXC_ERROR THEN
511: p_return_status := FND_API.G_RET_STS_ERROR;
512:
513: -- RESET OUT PARAMS : 4537865
514: p_last_accum_period := NULL ;
507:
508: EXCEPTION
509:
510: WHEN FND_API.G_EXC_ERROR THEN
511: p_return_status := FND_API.G_RET_STS_ERROR;
512:
513: -- RESET OUT PARAMS : 4537865
514: p_last_accum_period := NULL ;
515: p_last_accum_start_date := NULL ;
521: FND_MSG_PUB.Count_And_Get (
522: p_count => p_msg_count,
523: p_data => p_msg_data );
524:
525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527:
528: -- RESET OUT PARAMS : 4537865
529: p_last_accum_period := NULL ;
522: p_count => p_msg_count,
523: p_data => p_msg_data );
524:
525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
527:
528: -- RESET OUT PARAMS : 4537865
529: p_last_accum_period := NULL ;
530: p_last_accum_start_date := NULL ;
537: p_count => p_msg_count,
538: p_data => p_msg_data );
539:
540: WHEN OTHERS THEN
541: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542:
543:
544: -- RESET OUT PARAMS : 4537865
545: p_last_accum_period := NULL ;
589:
590: IF l_ret_val THEN
591: p_current_release := l_rel_name;
592: ELSE
593: RAISE FND_API.G_EXC_ERROR;
594: END IF;
595:
596: p_return_status := FND_API.G_RET_STS_SUCCESS;
597:
592: ELSE
593: RAISE FND_API.G_EXC_ERROR;
594: END IF;
595:
596: p_return_status := FND_API.G_RET_STS_SUCCESS;
597:
598: EXCEPTION
599:
600: WHEN FND_API.G_EXC_ERROR
596: p_return_status := FND_API.G_RET_STS_SUCCESS;
597:
598: EXCEPTION
599:
600: WHEN FND_API.G_EXC_ERROR
601: THEN
602:
603: p_return_status := FND_API.G_RET_STS_ERROR;
604:
599:
600: WHEN FND_API.G_EXC_ERROR
601: THEN
602:
603: p_return_status := FND_API.G_RET_STS_ERROR;
604:
605: -- RESET OUT PARAMS : 4537865
606: p_current_release := NULL ;
607:
608: FND_MSG_PUB.Count_And_Get
609: ( p_count => p_msg_count ,
610: p_data => p_msg_data );
611:
612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
613: THEN
614: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
615:
616: -- RESET OUT PARAMS : 4537865
610: p_data => p_msg_data );
611:
612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
613: THEN
614: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
615:
616: -- RESET OUT PARAMS : 4537865
617: p_current_release := NULL ;
618:
622:
623: WHEN OTHERS
624: THEN
625:
626: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
627:
628: -- RESET OUT PARAMS : 4537865
629: p_current_release := NULL ;
630:
1179: -- Message format : get_new_message_code()
1180: -----------------------------------------------------------
1181:
1182: FUNCTION get_new_message_code
1183: ( p_message_code IN VARCHAR2 :=FND_API.G_FALSE
1184: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1185: ) RETURN VARCHAR2
1186: IS
1187: p_new_message_code VARCHAR2(50);
1180: -----------------------------------------------------------
1181:
1182: FUNCTION get_new_message_code
1183: ( p_message_code IN VARCHAR2 :=FND_API.G_FALSE
1184: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1185: ) RETURN VARCHAR2
1186: IS
1187: p_new_message_code VARCHAR2(50);
1188: i NUMBER :=1;
1239: -- '','','','','');
1240: ------------------------------------------------------------------
1241:
1242: PROCEDURE map_new_amg_msg
1243: ( p_old_message_code IN VARCHAR2 :=FND_API.G_FALSE
1244: ,p_msg_attribute IN VARCHAR2 := FND_API.G_FALSE
1245: ,p_resize_flag IN VARCHAR2 := FND_API.G_FALSE
1246: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1247: ,p_attribute1 IN VARCHAR2 := FND_API.G_FALSE
1240: ------------------------------------------------------------------
1241:
1242: PROCEDURE map_new_amg_msg
1243: ( p_old_message_code IN VARCHAR2 :=FND_API.G_FALSE
1244: ,p_msg_attribute IN VARCHAR2 := FND_API.G_FALSE
1245: ,p_resize_flag IN VARCHAR2 := FND_API.G_FALSE
1246: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1247: ,p_attribute1 IN VARCHAR2 := FND_API.G_FALSE
1248: ,p_attribute2 IN VARCHAR2 := FND_API.G_FALSE
1241:
1242: PROCEDURE map_new_amg_msg
1243: ( p_old_message_code IN VARCHAR2 :=FND_API.G_FALSE
1244: ,p_msg_attribute IN VARCHAR2 := FND_API.G_FALSE
1245: ,p_resize_flag IN VARCHAR2 := FND_API.G_FALSE
1246: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1247: ,p_attribute1 IN VARCHAR2 := FND_API.G_FALSE
1248: ,p_attribute2 IN VARCHAR2 := FND_API.G_FALSE
1249: ,p_attribute3 IN VARCHAR2 := FND_API.G_FALSE
1242: PROCEDURE map_new_amg_msg
1243: ( p_old_message_code IN VARCHAR2 :=FND_API.G_FALSE
1244: ,p_msg_attribute IN VARCHAR2 := FND_API.G_FALSE
1245: ,p_resize_flag IN VARCHAR2 := FND_API.G_FALSE
1246: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1247: ,p_attribute1 IN VARCHAR2 := FND_API.G_FALSE
1248: ,p_attribute2 IN VARCHAR2 := FND_API.G_FALSE
1249: ,p_attribute3 IN VARCHAR2 := FND_API.G_FALSE
1250: ,p_attribute4 IN VARCHAR2 := FND_API.G_FALSE
1243: ( p_old_message_code IN VARCHAR2 :=FND_API.G_FALSE
1244: ,p_msg_attribute IN VARCHAR2 := FND_API.G_FALSE
1245: ,p_resize_flag IN VARCHAR2 := FND_API.G_FALSE
1246: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1247: ,p_attribute1 IN VARCHAR2 := FND_API.G_FALSE
1248: ,p_attribute2 IN VARCHAR2 := FND_API.G_FALSE
1249: ,p_attribute3 IN VARCHAR2 := FND_API.G_FALSE
1250: ,p_attribute4 IN VARCHAR2 := FND_API.G_FALSE
1251: ,p_attribute5 IN VARCHAR2 := FND_API.G_FALSE
1244: ,p_msg_attribute IN VARCHAR2 := FND_API.G_FALSE
1245: ,p_resize_flag IN VARCHAR2 := FND_API.G_FALSE
1246: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1247: ,p_attribute1 IN VARCHAR2 := FND_API.G_FALSE
1248: ,p_attribute2 IN VARCHAR2 := FND_API.G_FALSE
1249: ,p_attribute3 IN VARCHAR2 := FND_API.G_FALSE
1250: ,p_attribute4 IN VARCHAR2 := FND_API.G_FALSE
1251: ,p_attribute5 IN VARCHAR2 := FND_API.G_FALSE
1252: )
1245: ,p_resize_flag IN VARCHAR2 := FND_API.G_FALSE
1246: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1247: ,p_attribute1 IN VARCHAR2 := FND_API.G_FALSE
1248: ,p_attribute2 IN VARCHAR2 := FND_API.G_FALSE
1249: ,p_attribute3 IN VARCHAR2 := FND_API.G_FALSE
1250: ,p_attribute4 IN VARCHAR2 := FND_API.G_FALSE
1251: ,p_attribute5 IN VARCHAR2 := FND_API.G_FALSE
1252: )
1253: IS
1246: ,p_msg_context IN VARCHAR2 := FND_API.G_FALSE
1247: ,p_attribute1 IN VARCHAR2 := FND_API.G_FALSE
1248: ,p_attribute2 IN VARCHAR2 := FND_API.G_FALSE
1249: ,p_attribute3 IN VARCHAR2 := FND_API.G_FALSE
1250: ,p_attribute4 IN VARCHAR2 := FND_API.G_FALSE
1251: ,p_attribute5 IN VARCHAR2 := FND_API.G_FALSE
1252: )
1253: IS
1254: p_new_message_code VARCHAR2(50);
1247: ,p_attribute1 IN VARCHAR2 := FND_API.G_FALSE
1248: ,p_attribute2 IN VARCHAR2 := FND_API.G_FALSE
1249: ,p_attribute3 IN VARCHAR2 := FND_API.G_FALSE
1250: ,p_attribute4 IN VARCHAR2 := FND_API.G_FALSE
1251: ,p_attribute5 IN VARCHAR2 := FND_API.G_FALSE
1252: )
1253: IS
1254: p_new_message_code VARCHAR2(50);
1255: i BINARY_INTEGER := 1000;
1381: --
1382: ------------------------------------------------------------------
1383:
1384: FUNCTION get_task_number_amg
1385: ( p_task_number IN VARCHAR2 := FND_API.G_MISS_CHAR
1386: ,p_task_reference IN VARCHAR2 := FND_API.G_MISS_CHAR
1387: ,p_task_id IN VARCHAR2 := FND_API.G_MISS_CHAR
1388: )
1389: RETURN VARCHAR2 IS
1382: ------------------------------------------------------------------
1383:
1384: FUNCTION get_task_number_amg
1385: ( p_task_number IN VARCHAR2 := FND_API.G_MISS_CHAR
1386: ,p_task_reference IN VARCHAR2 := FND_API.G_MISS_CHAR
1387: ,p_task_id IN VARCHAR2 := FND_API.G_MISS_CHAR
1388: )
1389: RETURN VARCHAR2 IS
1390:
1383:
1384: FUNCTION get_task_number_amg
1385: ( p_task_number IN VARCHAR2 := FND_API.G_MISS_CHAR
1386: ,p_task_reference IN VARCHAR2 := FND_API.G_MISS_CHAR
1387: ,p_task_id IN VARCHAR2 := FND_API.G_MISS_CHAR
1388: )
1389: RETURN VARCHAR2 IS
1390:
1391: p_result_task_number VARCHAR2(50);