[Home] [Help]
22:
23: TYPE varchar_70_indexed_num_tbl_typ IS TABLE OF NUMBER INDEX BY VARCHAR2(70);
24: TYPE varchar_32_indexed_num_tbl_typ IS TABLE OF NUMBER INDEX BY VARCHAR2(32);
25:
26: -- local variables to simulate fnd_api.g_miss_xxx
27: l_fnd_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
28: l_fnd_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
29: l_fnd_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
30:
23: TYPE varchar_70_indexed_num_tbl_typ IS TABLE OF NUMBER INDEX BY VARCHAR2(70);
24: TYPE varchar_32_indexed_num_tbl_typ IS TABLE OF NUMBER INDEX BY VARCHAR2(32);
25:
26: -- local variables to simulate fnd_api.g_miss_xxx
27: l_fnd_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
28: l_fnd_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
29: l_fnd_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
30:
31: --These variables will contain the values that will be inserted into the interface table when the
24: TYPE varchar_32_indexed_num_tbl_typ IS TABLE OF NUMBER INDEX BY VARCHAR2(32);
25:
26: -- local variables to simulate fnd_api.g_miss_xxx
27: l_fnd_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
28: l_fnd_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
29: l_fnd_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
30:
31: --These variables will contain the values that will be inserted into the interface table when the
32: --corresponding columns in the layout are hidden. These values are default values given in table
25:
26: -- local variables to simulate fnd_api.g_miss_xxx
27: l_fnd_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
28: l_fnd_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
29: l_fnd_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
30:
31: --These variables will contain the values that will be inserted into the interface table when the
32: --corresponding columns in the layout are hidden. These values are default values given in table
33: --creation script
277: commit;
278:
279: EXCEPTION
280: WHEN OTHERS THEN
281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
282: END write_log;
283:
284: /*PROCEDURE log1(p_err_msg IN VARCHAR2
285: )
300: commit;
301:
302: EXCEPTION
303: WHEN OTHERS THEN
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
305: END log1;
306: */
307:
308: PROCEDURE delete_xface
326: l_nothing_delete_flag VARCHAR2(1);
327:
328: BEGIN
329: x_msg_count := 0;
330: x_return_status := FND_API.G_RET_STS_SUCCESS;
331: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
332:
333: IF l_debug_mode = 'Y' THEN
334: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
401: l_msg_count := FND_MSG_PUB.count_msg;
402:
403: IF l_msg_count = 1 and x_msg_data IS NULL THEN
404: PA_INTERFACE_UTILS_PUB.get_messages
405: (p_encoded => FND_API.G_TRUE
406: ,p_msg_index => 1
407: ,p_msg_count => l_msg_count
408: ,p_msg_data => l_msg_data
409: ,p_data => l_data
412: x_msg_count := l_msg_count;
413: ELSE
414: x_msg_count := l_msg_count;
415: END IF;
416: x_return_status := FND_API.G_RET_STS_ERROR;
417:
418: IF l_debug_mode = 'Y' THEN
419: pa_debug.reset_curr_function;
420: END IF;
419: pa_debug.reset_curr_function;
420: END IF;
421: RETURN;
422: WHEN OTHERS THEN
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
424: x_msg_count := 1;
425: x_msg_data := SQLERRM;
426: FND_MSG_PUB.add_exc_msg
427: ( p_pkg_name => 'pa_fp_webadi_pkg'
431: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
432: pa_debug.reset_curr_function;
433: END IF;
434:
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
436:
437: END DELETE_XFACE;
438:
439: -- Bug 3986129: FP.M Web ADI Dev changes. Added the followings:
513: BEGIN
514:
515: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
516: x_msg_count := 0;
517: x_return_status := FND_API.G_RET_STS_SUCCESS;
518: IF l_debug_mode = 'Y' THEN
519: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
520: p_debug_mode => l_debug_mode );
521: END IF;
659: x_return_status => l_return_status,
660: x_ret_code => l_sec_ret_code);
661: END IF;
662:
663: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
664: IF l_debug_mode = 'Y' THEN
665: pa_debug.g_err_stage := 'Function security not present';
666: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
667: END IF;
687: x_return_status => l_return_status,
688: x_msg_count => l_msg_count,
689: x_msg_data => l_msg_data);
690:
691: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
692: IF l_val_err_code IS NOT NULL THEN
693: IF l_debug_mode = 'Y' THEN
694: pa_debug.g_err_stage := 'The version can not be edited';
695: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
772: p_version_type => l_version_type,
773: x_return_status => l_return_status,
774: x_ret_code => l_sec_ret_code);
775:
776: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
777: IF l_debug_mode = 'Y' THEN
778: pa_debug.g_err_stage := 'No submit previlege';
779: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
780: END IF;
812: err_amount_type_code = nvl(amount_type_code,'-98')
813: WHERE run_id=p_run_id
814: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
815:
816: x_return_status := FND_API.G_RET_STS_ERROR;
817: IF l_debug_mode = 'Y' THEN
818: pa_debug.reset_curr_function;
819: END IF;
820:
834: err_amount_type_code = nvl(amount_type_code,'-98')
835: WHERE run_id=p_run_id
836: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
837:
838: x_return_status := FND_API.G_RET_STS_ERROR;
839: IF l_debug_mode = 'Y' THEN
840: pa_debug.reset_curr_function;
841: END IF;
842:
856: err_amount_type_code = nvl(amount_type_code,'-98')
857: WHERE run_id=p_run_id
858: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
859:
860: x_return_status := FND_API.G_RET_STS_ERROR;
861: IF l_debug_mode = 'Y' THEN
862: pa_debug.reset_curr_function;
863: END IF;
864:
878: err_amount_type_code = nvl(amount_type_code,'-98')
879: WHERE run_id=p_run_id
880: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
881:
882: x_return_status := FND_API.G_RET_STS_ERROR;
883: IF l_debug_mode = 'Y' THEN
884: pa_debug.reset_curr_function;
885: END IF;
886:
900: err_amount_type_code = nvl(amount_type_code,'-98')
901: WHERE run_id=p_run_id
902: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
903:
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: IF l_debug_mode = 'Y' THEN
906: pa_debug.reset_curr_function;
907: END IF;
908:
922: err_amount_type_code = nvl(amount_type_code,'-98')
923: WHERE run_id=p_run_id
924: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
925:
926: x_return_status := FND_API.G_RET_STS_ERROR;
927: IF l_debug_mode = 'Y' THEN
928: pa_debug.reset_curr_function;
929: END IF;
930:
944: err_amount_type_code = nvl(amount_type_code,'-98')
945: WHERE run_id=p_run_id
946: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
947:
948: x_return_status := FND_API.G_RET_STS_ERROR;
949: IF l_debug_mode = 'Y' THEN
950: pa_debug.reset_curr_function;
951: END IF;
952:
956: l_msg_count := FND_MSG_PUB.count_msg;
957:
958: IF l_msg_count = 1 and x_msg_data IS NULL THEN
959: PA_INTERFACE_UTILS_PUB.get_messages
960: (p_encoded => FND_API.G_TRUE
961: ,p_msg_index => 1
962: ,p_msg_count => l_msg_count
963: ,p_msg_data => l_msg_data
964: ,p_data => l_data
967: x_msg_count := l_msg_count;
968: ELSE
969: x_msg_count := l_msg_count;
970: END IF;
971: x_return_status := FND_API.G_RET_STS_ERROR;
972:
973: IF l_debug_mode = 'Y' THEN
974: pa_debug.reset_curr_function;
975: END IF;
975: END IF;
976: RETURN;
977:
978: WHEN OTHERS THEN
979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
980: x_msg_count := 1;
981: x_msg_data := SQLERRM;
982:
983: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1036:
1037: BEGIN
1038: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1039: x_msg_count := 0;
1040: x_return_status := FND_API.G_RET_STS_SUCCESS;
1041: IF l_debug_mode = 'Y' THEN
1042: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1043: p_debug_mode => l_debug_mode );
1044: END IF;
1222: l_msg_count := FND_MSG_PUB.count_msg;
1223:
1224: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1225: PA_INTERFACE_UTILS_PUB.get_messages
1226: (p_encoded => FND_API.G_TRUE
1227: ,p_msg_index => 1
1228: ,p_msg_count => l_msg_count
1229: ,p_msg_data => l_msg_data
1230: ,p_data => l_data
1233: x_msg_count := l_msg_count;
1234: ELSE
1235: x_msg_count := l_msg_count;
1236: END IF;
1237: x_return_status := FND_API.G_RET_STS_ERROR;
1238:
1239: IF l_debug_mode = 'Y' THEN
1240: pa_debug.reset_curr_function;
1241: END IF;
1241: END IF;
1242: RETURN;
1243:
1244: WHEN OTHERS THEN
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: x_msg_count := 1;
1247: x_msg_data := SQLERRM;
1248:
1249: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1290:
1291: BEGIN
1292: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1293: x_msg_count := 0;
1294: x_return_status := FND_API.G_RET_STS_SUCCESS;
1295: IF l_debug_mode = 'Y' THEN
1296: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1297: p_debug_mode => l_debug_mode );
1298: END IF;
1328: p_txn_curr_tbl => l_err_txn_curr_tbl,
1329: x_return_status => l_return_status,
1330: x_msg_data => l_msg_data,
1331: x_msg_count => l_msg_count);
1332: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1333: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1334: END IF;
1335:
1336: -- clearing the table of rec type
1367: l_msg_count := FND_MSG_PUB.count_msg;
1368:
1369: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1370: PA_INTERFACE_UTILS_PUB.get_messages
1371: (p_encoded => FND_API.G_TRUE
1372: ,p_msg_index => 1
1373: ,p_msg_count => l_msg_count
1374: ,p_msg_data => l_msg_data
1375: ,p_data => l_data
1378: x_msg_count := l_msg_count;
1379: ELSE
1380: x_msg_count := l_msg_count;
1381: END IF;
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383:
1384: IF l_debug_mode = 'Y' THEN
1385: pa_debug.reset_curr_function;
1386: END IF;
1391: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1392: g_fp_webadi_rec_tbl.DELETE;
1393: END IF;
1394:
1395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1396: x_msg_count := 1;
1397: x_msg_data := SQLERRM;
1398:
1399: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1440:
1441: BEGIN
1442: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1443: x_msg_count := 0;
1444: x_return_status := FND_API.G_RET_STS_SUCCESS;
1445: IF l_debug_mode = 'Y' THEN
1446: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1447: p_debug_mode => l_debug_mode );
1448: END IF;
1493: l_msg_count := FND_MSG_PUB.count_msg;
1494:
1495: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1496: PA_INTERFACE_UTILS_PUB.get_messages
1497: (p_encoded => FND_API.G_TRUE
1498: ,p_msg_index => 1
1499: ,p_msg_count => l_msg_count
1500: ,p_msg_data => l_msg_data
1501: ,p_data => l_data
1504: x_msg_count := l_msg_count;
1505: ELSE
1506: x_msg_count := l_msg_count;
1507: END IF;
1508: x_return_status := FND_API.G_RET_STS_ERROR;
1509:
1510: IF l_debug_mode = 'Y' THEN
1511: pa_debug.reset_curr_function;
1512: END IF;
1512: END IF;
1513: RETURN;
1514:
1515: WHEN OTHERS THEN
1516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1517: x_msg_count := 1;
1518: x_msg_data := SQLERRM;
1519:
1520: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
2000: BEGIN
2001:
2002: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2003: x_msg_count := 0;
2004: x_return_status := FND_API.G_RET_STS_SUCCESS;
2005:
2006: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
2007: p_debug_mode => l_debug_mode );
2008:
5876: p_request_id => p_request_id,
5877: x_return_status => l_return_status,
5878: x_msg_data => l_msg_data,
5879: x_msg_count => l_msg_count);
5880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5881: IF l_debug_mode = 'Y' THEN
5882: pa_debug.g_err_stage := 'Call to process_errors returned with error';
5883: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5884: END IF;
5937: l_msg_count := FND_MSG_PUB.count_msg;
5938:
5939: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5940: PA_INTERFACE_UTILS_PUB.get_messages
5941: (p_encoded => FND_API.G_TRUE
5942: ,p_msg_index => 1
5943: ,p_msg_count => l_msg_count
5944: ,p_msg_data => l_msg_data
5945: ,p_data => l_data
5948: x_msg_count := l_msg_count;
5949: ELSE
5950: x_msg_count := l_msg_count;
5951: END IF;
5952: x_return_status := FND_API.G_RET_STS_ERROR;
5953:
5954: pa_debug.reset_curr_function;
5955:
5956: RETURN;
5955:
5956: RETURN;
5957:
5958: WHEN OTHERS THEN
5959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5960: x_msg_count := 1;
5961: x_msg_data := SQLERRM;
5962:
5963: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6229: l_end_date_tbl pa_plsql_datatypes.dateTabTyp;
6230: l_Cbs_Enabled VARCHAR2(1) := 'N'; -- cbs enhancement changes bug#16445106
6231: BEGIN
6232: x_msg_count := 0;
6233: x_return_status := FND_API.G_RET_STS_SUCCESS;
6234:
6235: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6236: l_debug_mode := NVL(l_debug_mode, 'Y');
6237:
6717: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6718: l_msg_count := FND_MSG_PUB.count_msg;
6719: IF l_msg_count = 1 THEN
6720: PA_INTERFACE_UTILS_PUB.get_messages
6721: (p_encoded => FND_API.G_TRUE
6722: ,p_msg_index => 1
6723: ,p_msg_count => l_msg_count
6724: ,p_msg_data => l_msg_data
6725: ,p_data => l_data
6729: x_msg_count := l_msg_count;
6730: ELSE
6731: x_msg_count := l_msg_count;
6732: END IF;
6733: x_return_status := FND_API.G_RET_STS_ERROR;
6734:
6735: IF l_debug_mode = 'Y' THEN
6736: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
6737: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6741: END IF;
6742:
6743: RETURN;
6744: WHEN OTHERS THEN
6745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6746: x_msg_count := 1;
6747: x_msg_data := SQLERRM;
6748:
6749: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6882: l_tmp_index NUMBER;
6883: l_plan_txn_attrs_copied_flag VARCHAR2(1);
6884:
6885: kk NUMBER;
6886: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
6887: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
6888: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
6889:
6890: l_curr_rec inf_tbl_data_csr%ROWTYPE;
6883: l_plan_txn_attrs_copied_flag VARCHAR2(1);
6884:
6885: kk NUMBER;
6886: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
6887: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
6888: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
6889:
6890: l_curr_rec inf_tbl_data_csr%ROWTYPE;
6891:
6884:
6885: kk NUMBER;
6886: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
6887: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
6888: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
6889:
6890: l_curr_rec inf_tbl_data_csr%ROWTYPE;
6891:
6892: l_cached_fcst_qty_tbl varchar_70_indexed_num_tbl_typ;
6920:
6921: BEGIN
6922: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
6923:
6924: x_return_status := FND_API.G_RET_STS_SUCCESS;
6925: x_msg_count := 0;
6926:
6927: IF l_debug_mode = 'Y' THEN
6928: pa_debug.Set_Curr_Function
7591: x_return_status =>x_return_status,
7592: x_msg_count =>x_msg_count,
7593: x_msg_data =>x_msg_data );
7594:
7595: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7596: IF l_debug_mode = 'Y' THEN
7597: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7598: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7599: END IF;
7648: x_return_status =>x_return_status,
7649: x_msg_count =>x_msg_count,
7650: x_msg_data =>x_msg_data );
7651:
7652: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7653: IF l_debug_mode = 'Y' THEN
7654: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7655: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7656: END IF;
7705: x_return_status =>x_return_status,
7706: x_msg_count =>x_msg_count,
7707: x_msg_data =>x_msg_data );
7708:
7709: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7710: IF l_debug_mode = 'Y' THEN
7711: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7712: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7713: END IF;
7762: x_return_status =>x_return_status,
7763: x_msg_count =>x_msg_count,
7764: x_msg_data =>x_msg_data );
7765:
7766: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7767: IF l_debug_mode = 'Y' THEN
7768: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7769: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7770: END IF;
8048: x_return_status =>x_return_status,
8049: x_msg_count =>x_msg_count,
8050: x_msg_data =>x_msg_data );
8051:
8052: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8053: IF l_debug_mode = 'Y' THEN
8054: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
8055: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
8056: END IF;
8077: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8078: l_msg_count := FND_MSG_PUB.count_msg;
8079: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8080: PA_INTERFACE_UTILS_PUB.get_messages
8081: (p_encoded => FND_API.G_TRUE
8082: ,p_msg_index => 1
8083: ,p_msg_count => l_msg_count
8084: ,p_msg_data => l_msg_data
8085: ,p_data => l_data
8088: x_msg_count := l_msg_count;
8089: ELSE
8090: x_msg_count := l_msg_count;
8091: END IF;
8092: x_return_status := FND_API.G_RET_STS_ERROR;
8093:
8094: IF l_debug_mode = 'Y' THEN
8095: pa_debug.reset_curr_function;
8096: END IF;
8096: END IF;
8097: RETURN;
8098:
8099: WHEN OTHERS THEN
8100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8101: x_msg_count := 1;
8102: x_msg_data := SQLERRM;
8103:
8104: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
8360: l_new_res_asg_rbs_elem_id pa_resource_assignments.rbs_element_id%TYPE;
8361: l_new_res_asg_res_class_code pa_resource_assignments.resource_class_code%TYPE;
8362: l_new_res_asg_rate_based_flag pa_resource_assignments.rate_based_flag%TYPE;
8363:
8364: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
8365: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
8366: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
8367:
8368: l_debug_st_dt DATE;
8361: l_new_res_asg_res_class_code pa_resource_assignments.resource_class_code%TYPE;
8362: l_new_res_asg_rate_based_flag pa_resource_assignments.rate_based_flag%TYPE;
8363:
8364: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
8365: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
8366: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
8367:
8368: l_debug_st_dt DATE;
8369: l_debug_en_dt DATE;
8362: l_new_res_asg_rate_based_flag pa_resource_assignments.rate_based_flag%TYPE;
8363:
8364: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
8365: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
8366: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
8367:
8368: l_debug_st_dt DATE;
8369: l_debug_en_dt DATE;
8370: l_debug_st_dt_tbl SYSTEM.pa_date_tbl_type := SYSTEM.pa_date_tbl_type();
8425: BEGIN
8426: --log1('PBL Begin '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8427: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
8428:
8429: x_return_status := FND_API.G_RET_STS_SUCCESS;
8430: x_msg_count := 0;
8431: --log1('----- STAGE PBL1.0-------');
8432:
8433: IF l_debug_mode = 'Y' THEN
8940: ,x_return_status => x_return_status
8941: ,x_msg_data => l_msg_data
8942: ,x_msg_count => l_msg_count);
8943:
8944: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8945: IF l_debug_mode = 'Y' THEN
8946: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
8947: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8948: END IF;
9152: ,p_currency_code_tbl => l_df_txn_currency_code_tbl
9153: ,x_return_status => x_return_status
9154: ,x_msg_count => l_msg_count
9155: ,x_msg_data => l_msg_data);
9156: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9157: IF l_debug_mode = 'Y' THEN
9158: pa_debug.g_err_stage:='Called API pa_fp_planning_transactions_pub.delete_planning_transactions returned error';
9159: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9160: END IF;
9259: ,x_return_status => x_return_status
9260: ,x_msg_count => l_msg_count
9261: ,x_msg_data => l_msg_data);
9262: --log1('PBL 10 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9263: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9264:
9265: IF l_debug_mode = 'Y' THEN
9266: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
9267: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9625: ,x_return_status => x_return_status
9626: ,x_msg_count => l_msg_count
9627: ,x_msg_data => l_msg_data );
9628: --log1('PBL 27 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9630: IF l_debug_mode = 'Y' THEN
9631: pa_debug.g_err_stage:='convert_txn_currency returned error';
9632: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9633: END IF;
9990: PA_BUDGET_LINES_UTILS.populate_display_qty
9991: ( p_budget_version_id => p_budget_version_id
9992: ,p_context => 'FINANCIAL'
9993: ,x_return_status => x_return_status);
9994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9995: IF l_debug_mode = 'Y' THEN
9996: pa_debug.g_err_stage := 'The API PA_BUDGET_LINES_UTILS.populate_display_qty returned error';
9997: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9998: END IF;
10014: ,p_version_level_flag => 'Y'
10015: ,x_return_status => x_return_status
10016: ,x_msg_count => l_msg_count
10017: ,x_msg_data => l_msg_data);
10018: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10019: IF l_debug_mode = 'Y' THEN
10020: pa_debug.g_err_stage := 'The API PA_RES_ASG_CURRENCY_PUB.maintain_data returned error';
10021: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10022: END IF;
10041: ,x_return_status => x_return_status
10042: ,x_msg_count => l_msg_count
10043: ,x_msg_data => l_msg_data);
10044:
10045: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10046: IF l_debug_mode = 'Y' THEN
10047: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
10048: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10049: END IF;
10063: (x_return_status => x_return_status,
10064: x_msg_count => l_msg_count,
10065: x_msg_data => l_msg_data);
10066:
10067: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10068: IF l_debug_mode = 'Y' THEN
10069: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.check_mrc_installed returned error';
10070: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10071: END IF;
10086: p_entire_version => 'N',
10087: x_return_status => x_return_status,
10088: x_msg_count => l_msg_count,
10089: x_msg_data => l_msg_data);
10090: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10091: IF l_debug_mode = 'Y' THEN
10092: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.maintain_all_mc_budget_lines returned error';
10093: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10094: END IF;
10118: p_fp_version_ids => l_dest_ver_id_tbl,
10119: x_return_status => x_return_status,
10120: x_msg_code => l_error_msg_code);
10121:
10122: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
10123: IF l_debug_mode = 'Y' THEN
10124: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
10125: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
10126: END IF;
10133: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE(p_fp_version_ids => l_dest_ver_id_tbl
10134: ,x_return_status => l_return_status
10135: ,x_msg_code => l_error_msg_code);
10136:
10137: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10138: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10139: END IF;
10140:
10141: --log1('PBL 38 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10209: l_msg_count := FND_MSG_PUB.count_msg;
10210:
10211: IF l_msg_count = 1 and x_msg_data IS NULL THEN
10212: PA_INTERFACE_UTILS_PUB.get_messages
10213: (p_encoded => FND_API.G_TRUE
10214: ,p_msg_index => 1
10215: ,p_msg_count => l_msg_count
10216: ,p_msg_data => l_msg_data
10217: ,p_data => l_data
10220: x_msg_count := l_msg_count;
10221: ELSE
10222: x_msg_count := l_msg_count;
10223: END IF;
10224: x_return_status := FND_API.G_RET_STS_ERROR;
10225: IF l_debug_mode = 'Y' THEN
10226: pa_debug.reset_curr_function;
10227: END IF;
10228: RETURN;
10227: END IF;
10228: RETURN;
10229:
10230: WHEN OTHERS THEN
10231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10232: x_msg_count := 1;
10233: x_msg_data := SQLERRM;
10234:
10235: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
10511:
10512: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
10513:
10514:
10515: x_return_status := FND_API.G_RET_STS_SUCCESS;
10516: x_msg_count := 0;
10517:
10518: -- initializing the translated out message string
10519: x_success_msg := FND_MESSAGE.GET_STRING
10649: err_amount_type_code = nvl(amount_type_code,'-98')
10650: WHERE run_id=p_run_id
10651: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
10652:
10653: x_return_status := FND_API.G_RET_STS_ERROR;
10654: IF l_debug_mode = 'Y' THEN
10655: pa_debug.reset_curr_function;
10656: END IF;
10657:
10675: x_return_status => x_return_status,
10676: x_msg_count => l_msg_count,
10677: x_msg_data => l_msg_data);
10678:
10679: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10680: IF l_debug_mode = 'Y' THEN
10681: pa_debug.g_err_stage := 'Call to get_plan_version_dtls returned with error';
10682: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10683: END IF;
10706: x_msg_data => l_msg_count,
10707: x_msg_count => l_msg_data);
10708: --log1('2 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10709:
10710: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10711: IF l_debug_mode = 'Y' THEN
10712: pa_debug.g_err_stage := 'Call to validate_header_info returned with error';
10713: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10714: END IF;
10803: x_return_status => x_return_status,
10804: x_msg_count => l_msg_count,
10805: x_msg_data => l_msg_data);
10806:
10807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10808: IF l_debug_mode = 'Y' THEN
10809: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10810: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10811: END IF;
10850: x_return_status => x_return_status,
10851: x_msg_count => l_msg_count,
10852: x_msg_data => l_msg_data);
10853:
10854: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10855: IF l_debug_mode = 'Y' THEN
10856: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10857: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10858: END IF;
10942: ,x_msg_count => l_msg_count
10943: ,x_msg_data => l_msg_data
10944: ,x_return_status => x_return_status);
10945: --log1('5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10946: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10947: IF l_debug_mode = 'Y' THEN
10948: pa_debug.g_err_stage := 'Call to validate_budget_lines returned with error';
10949: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10950: END IF;
11022: x_return_status => x_return_status,
11023: x_msg_count => l_msg_count,
11024: x_msg_data => l_msg_data);
11025:
11026: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11027: IF l_debug_mode = 'Y' THEN
11028: pa_debug.g_err_stage := 'Call to check_and_update_txn_curr_code returned with error';
11029: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11030: END IF;
11248: x_return_status => x_return_status,
11249: x_msg_count => l_msg_count,
11250: x_msg_data => l_msg_data);
11251:
11252: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11253: IF l_debug_mode = 'Y' THEN
11254: pa_debug.g_err_stage := 'Call to prepare_pbl_input returned with error';
11255: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11256: END IF;
11333: x_return_status => x_return_status,
11334: x_msg_count => l_msg_count,
11335: x_msg_data => l_msg_data);
11336: --log1('9 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11338: IF l_debug_mode = 'Y' THEN
11339: pa_debug.g_err_stage := 'Call to process_budget_lines returned with error';
11340: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11341: END IF;
11364: x_return_status => x_return_status,
11365: x_msg_count => l_msg_count,
11366: x_msg_data => l_msg_data);
11367:
11368: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11369: IF l_debug_mode = 'Y' THEN
11370: pa_debug.g_err_stage := 'Call to pa_fin_plan_pub.Submit_Current_Working returned with error';
11371: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11372: END IF;
11451: l_msg_count := FND_MSG_PUB.count_msg;
11452:
11453: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11454: PA_INTERFACE_UTILS_PUB.get_messages
11455: (p_encoded => FND_API.G_TRUE
11456: ,p_msg_index => 1
11457: ,p_msg_count => l_msg_count
11458: ,p_msg_data => l_msg_data
11459: ,p_data => l_data
11465: x_msg_count := l_msg_count;
11466: x_success_msg :='Error In Upload';
11467: END IF;
11468:
11469: x_return_status := FND_API.G_RET_STS_ERROR;
11470:
11471: IF l_debug_mode = 'Y' THEN
11472: pa_debug.reset_curr_function;
11473: END IF;
11502: p_null_out_cols => 'N');
11503:
11504: END IF;
11505: COMMIT;
11506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11507: x_msg_count := 1;
11508: x_msg_data := SQLERRM;
11509:
11510: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11660: x_return_status => l_return_status,
11661: x_msg_count => l_msg_count,
11662: x_msg_data => l_msg_data);
11663: --log1('----- STAGE CR8-------');
11664: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11665: --log1('----- STAGE CR9-------');
11666: IF l_debug_mode = 'Y' THEN
11667: pa_debug.g_err_stage:='pa_fp_webadi_pkg.switcher returned error';
11668: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11690: ROLLBACK;
11691: l_msg_count := FND_MSG_PUB.count_msg;
11692: IF l_msg_count = 1 THEN
11693: PA_INTERFACE_UTILS_PUB.get_messages
11694: (p_encoded => FND_API.G_TRUE
11695: ,p_msg_index => 1
11696: ,p_msg_count => l_msg_count
11697: ,p_msg_data => l_msg_data
11698: ,p_data => l_data
11875: end_date gl_periods.end_date%TYPE;
11876: x NUMBER := 1;
11877: BEGIN
11878: x_msg_count := 0;
11879: x_return_status := FND_API.G_RET_STS_SUCCESS;
11880: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'Y');
11881:
11882: IF l_debug_mode = 'Y' THEN
11883: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
12022: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12023: l_msg_count := FND_MSG_PUB.count_msg;
12024: IF l_msg_count = 1 AND x_msg_data IS NULL THEN
12025: PA_INTERFACE_UTILS_PUB.get_messages
12026: (p_encoded => FND_API.G_TRUE
12027: ,p_msg_index => 1
12028: ,p_msg_count => l_msg_count
12029: ,p_msg_data => l_msg_data
12030: ,p_data => l_data
12033: x_msg_count := l_msg_count;
12034: ELSE
12035: x_msg_count := l_msg_count;
12036: END IF;
12037: x_return_status := FND_API.G_RET_STS_ERROR;
12038: IF l_debug_mode = 'Y' THEN
12039: pa_debug.reset_curr_function;
12040: END IF;
12041: RETURN;
12040: END IF;
12041: RETURN;
12042:
12043: WHEN OTHERS THEN
12044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12045: x_msg_count := 1;
12046: x_msg_data := SQLERRM;
12047: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
12048: ,p_procedure_name => 'get_period_information');
12050: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12051: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12052: pa_debug.reset_curr_function;
12053: END IF;
12054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12055: END GET_PERIOD_INFORMATION;
12056:
12057: --Bug 4584865.
12058: --This API is called to insert records into pa_fp_webadi_xface_tmp
12311: l_rec_version_number NUMBER :=0; --Bug 7863205
12312:
12313: BEGIN
12314: x_msg_count := 0;
12315: x_return_status := FND_API.G_RET_STS_SUCCESS;
12316: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
12317:
12318:
12319: IF l_debug_mode = 'Y' THEN
12388: x_return_status => l_return_status,
12389: x_msg_count => l_msg_count,
12390: x_msg_data => l_msg_data);
12391:
12392: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12393: IF l_debug_mode = 'Y' THEN
12394: pa_debug.g_err_stage := 'Budget Version Details not found';
12395: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12396: END IF;
12461: p_calling_mode => 'WA_DOWNLOAD',
12462: x_agr_curr_code => l_agr_curr_code,
12463: x_agr_conv_reqd_flag => l_agr_conv_reqd_flag,
12464: x_return_status => l_return_status);
12465: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12466: IF l_debug_mode = 'Y' THEN
12467: pa_debug.g_err_stage := 'Error in Getting Agreement Details of the budget version';
12468: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12469: END IF;
12567: x_return_status => l_return_status,
12568: x_msg_count => l_msg_count,
12569: x_msg_data => l_msg_data);
12570:
12571: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12572: IF l_debug_mode = 'Y' THEN
12573: pa_debug.g_err_stage := 'Error in getting Group Period information of the budget version';
12574: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12575: END IF;
12992: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12993: l_msg_count := FND_MSG_PUB.count_msg;
12994: IF l_msg_count = 1 and x_msg_data IS NULL THEN
12995: PA_INTERFACE_UTILS_PUB.get_messages
12996: (p_encoded => FND_API.G_TRUE
12997: ,p_msg_index => 1
12998: ,p_msg_count => l_msg_count
12999: ,p_msg_data => l_msg_data
13000: ,p_data => l_data
13003: x_msg_count := l_msg_count;
13004: ELSE
13005: x_msg_count := l_msg_count;
13006: END IF;
13007: x_return_status := FND_API.G_RET_STS_ERROR;
13008: IF l_debug_mode = 'Y' THEN
13009: pa_debug.reset_curr_function;
13010: END IF;
13011: RETURN;
13011: RETURN;
13012:
13013: -- Bug 5360205: Added NO_RA_EXC block.
13014: WHEN NO_RA_EXC THEN
13015: x_return_status := FND_API.G_RET_STS_SUCCESS;
13016: --bug#12703175
13017: INSERT INTO pa_fp_webadi_xface_tmp (BUDGET_VERSION_ID, PROJECT_ID, PROJECT_NAME, PROJECT_NUMBER, RECORD_VERSION_NUMBER)
13018: VALUES (l_budget_version_id, l_project_id, l_project_name, l_project_number, l_rec_version_number);
13019: IF l_debug_mode = 'Y' THEN
13021: END IF;
13022: RETURN;
13023:
13024: WHEN OTHERS THEN
13025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13026: x_msg_count := 1;
13027: x_msg_data := SQLERRM;
13028: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
13029: ,p_procedure_name => 'insert_periodic_tmp_table');
13031: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
13032: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
13033: pa_debug.reset_curr_function;
13034: END IF;
13035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13036:
13037:
13038: END insert_periodic_tmp_table;
13039: