[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
276: commit;
277:
278: EXCEPTION
279: WHEN OTHERS THEN
280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
281: END write_log;
282:
283: /*PROCEDURE log1(p_err_msg IN VARCHAR2
284: )
299: commit;
300:
301: EXCEPTION
302: WHEN OTHERS THEN
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
304: END log1;
305: */
306:
307: PROCEDURE delete_xface
325: l_nothing_delete_flag VARCHAR2(1);
326:
327: BEGIN
328: x_msg_count := 0;
329: x_return_status := FND_API.G_RET_STS_SUCCESS;
330: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
331:
332: IF l_debug_mode = 'Y' THEN
333: pa_debug.set_curr_function( p_function => 'DELETE_XFACE'
400: l_msg_count := FND_MSG_PUB.count_msg;
401:
402: IF l_msg_count = 1 and x_msg_data IS NULL THEN
403: PA_INTERFACE_UTILS_PUB.get_messages
404: (p_encoded => FND_API.G_TRUE
405: ,p_msg_index => 1
406: ,p_msg_count => l_msg_count
407: ,p_msg_data => l_msg_data
408: ,p_data => l_data
411: x_msg_count := l_msg_count;
412: ELSE
413: x_msg_count := l_msg_count;
414: END IF;
415: x_return_status := FND_API.G_RET_STS_ERROR;
416:
417: IF l_debug_mode = 'Y' THEN
418: pa_debug.reset_curr_function;
419: END IF;
418: pa_debug.reset_curr_function;
419: END IF;
420: RETURN;
421: WHEN OTHERS THEN
422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: x_msg_count := 1;
424: x_msg_data := SQLERRM;
425: FND_MSG_PUB.add_exc_msg
426: ( p_pkg_name => 'pa_fp_webadi_pkg'
430: pa_debug.write('DELETE_XFACE' || g_module_name,pa_debug.G_Err_Stack,4);
431: pa_debug.reset_curr_function;
432: END IF;
433:
434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
435:
436: END DELETE_XFACE;
437:
438: -- Bug 3986129: FP.M Web ADI Dev changes. Added the followings:
512: BEGIN
513:
514: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
515: x_msg_count := 0;
516: x_return_status := FND_API.G_RET_STS_SUCCESS;
517: IF l_debug_mode = 'Y' THEN
518: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
519: p_debug_mode => l_debug_mode );
520: END IF;
658: x_return_status => l_return_status,
659: x_ret_code => l_sec_ret_code);
660: END IF;
661:
662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
663: IF l_debug_mode = 'Y' THEN
664: pa_debug.g_err_stage := 'Function security not present';
665: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
666: END IF;
686: x_return_status => l_return_status,
687: x_msg_count => l_msg_count,
688: x_msg_data => l_msg_data);
689:
690: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
691: IF l_val_err_code IS NOT NULL THEN
692: IF l_debug_mode = 'Y' THEN
693: pa_debug.g_err_stage := 'The version can not be edited';
694: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
771: p_version_type => l_version_type,
772: x_return_status => l_return_status,
773: x_ret_code => l_sec_ret_code);
774:
775: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
776: IF l_debug_mode = 'Y' THEN
777: pa_debug.g_err_stage := 'No submit previlege';
778: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
779: END IF;
811: err_amount_type_code = nvl(amount_type_code,'-98')
812: WHERE run_id=p_run_id
813: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
814:
815: x_return_status := FND_API.G_RET_STS_ERROR;
816: IF l_debug_mode = 'Y' THEN
817: pa_debug.reset_curr_function;
818: END IF;
819:
833: err_amount_type_code = nvl(amount_type_code,'-98')
834: WHERE run_id=p_run_id
835: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
836:
837: x_return_status := FND_API.G_RET_STS_ERROR;
838: IF l_debug_mode = 'Y' THEN
839: pa_debug.reset_curr_function;
840: END IF;
841:
855: err_amount_type_code = nvl(amount_type_code,'-98')
856: WHERE run_id=p_run_id
857: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
858:
859: x_return_status := FND_API.G_RET_STS_ERROR;
860: IF l_debug_mode = 'Y' THEN
861: pa_debug.reset_curr_function;
862: END IF;
863:
877: err_amount_type_code = nvl(amount_type_code,'-98')
878: WHERE run_id=p_run_id
879: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
880:
881: x_return_status := FND_API.G_RET_STS_ERROR;
882: IF l_debug_mode = 'Y' THEN
883: pa_debug.reset_curr_function;
884: END IF;
885:
899: err_amount_type_code = nvl(amount_type_code,'-98')
900: WHERE run_id=p_run_id
901: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
902:
903: x_return_status := FND_API.G_RET_STS_ERROR;
904: IF l_debug_mode = 'Y' THEN
905: pa_debug.reset_curr_function;
906: END IF;
907:
921: err_amount_type_code = nvl(amount_type_code,'-98')
922: WHERE run_id=p_run_id
923: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
924:
925: x_return_status := FND_API.G_RET_STS_ERROR;
926: IF l_debug_mode = 'Y' THEN
927: pa_debug.reset_curr_function;
928: END IF;
929:
943: err_amount_type_code = nvl(amount_type_code,'-98')
944: WHERE run_id=p_run_id
945: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
946:
947: x_return_status := FND_API.G_RET_STS_ERROR;
948: IF l_debug_mode = 'Y' THEN
949: pa_debug.reset_curr_function;
950: END IF;
951:
955: l_msg_count := FND_MSG_PUB.count_msg;
956:
957: IF l_msg_count = 1 and x_msg_data IS NULL THEN
958: PA_INTERFACE_UTILS_PUB.get_messages
959: (p_encoded => FND_API.G_TRUE
960: ,p_msg_index => 1
961: ,p_msg_count => l_msg_count
962: ,p_msg_data => l_msg_data
963: ,p_data => l_data
966: x_msg_count := l_msg_count;
967: ELSE
968: x_msg_count := l_msg_count;
969: END IF;
970: x_return_status := FND_API.G_RET_STS_ERROR;
971:
972: IF l_debug_mode = 'Y' THEN
973: pa_debug.reset_curr_function;
974: END IF;
974: END IF;
975: RETURN;
976:
977: WHEN OTHERS THEN
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
979: x_msg_count := 1;
980: x_msg_data := SQLERRM;
981:
982: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1035:
1036: BEGIN
1037: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1038: x_msg_count := 0;
1039: x_return_status := FND_API.G_RET_STS_SUCCESS;
1040: IF l_debug_mode = 'Y' THEN
1041: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1042: p_debug_mode => l_debug_mode );
1043: END IF;
1221: l_msg_count := FND_MSG_PUB.count_msg;
1222:
1223: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1224: PA_INTERFACE_UTILS_PUB.get_messages
1225: (p_encoded => FND_API.G_TRUE
1226: ,p_msg_index => 1
1227: ,p_msg_count => l_msg_count
1228: ,p_msg_data => l_msg_data
1229: ,p_data => l_data
1232: x_msg_count := l_msg_count;
1233: ELSE
1234: x_msg_count := l_msg_count;
1235: END IF;
1236: x_return_status := FND_API.G_RET_STS_ERROR;
1237:
1238: IF l_debug_mode = 'Y' THEN
1239: pa_debug.reset_curr_function;
1240: END IF;
1240: END IF;
1241: RETURN;
1242:
1243: WHEN OTHERS THEN
1244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1245: x_msg_count := 1;
1246: x_msg_data := SQLERRM;
1247:
1248: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1289:
1290: BEGIN
1291: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1292: x_msg_count := 0;
1293: x_return_status := FND_API.G_RET_STS_SUCCESS;
1294: IF l_debug_mode = 'Y' THEN
1295: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1296: p_debug_mode => l_debug_mode );
1297: END IF;
1327: p_txn_curr_tbl => l_err_txn_curr_tbl,
1328: x_return_status => l_return_status,
1329: x_msg_data => l_msg_data,
1330: x_msg_count => l_msg_count);
1331: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1332: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1333: END IF;
1334:
1335: -- clearing the table of rec type
1366: l_msg_count := FND_MSG_PUB.count_msg;
1367:
1368: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1369: PA_INTERFACE_UTILS_PUB.get_messages
1370: (p_encoded => FND_API.G_TRUE
1371: ,p_msg_index => 1
1372: ,p_msg_count => l_msg_count
1373: ,p_msg_data => l_msg_data
1374: ,p_data => l_data
1377: x_msg_count := l_msg_count;
1378: ELSE
1379: x_msg_count := l_msg_count;
1380: END IF;
1381: x_return_status := FND_API.G_RET_STS_ERROR;
1382:
1383: IF l_debug_mode = 'Y' THEN
1384: pa_debug.reset_curr_function;
1385: END IF;
1390: IF g_fp_webadi_rec_tbl.COUNT > 0 THEN
1391: g_fp_webadi_rec_tbl.DELETE;
1392: END IF;
1393:
1394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1395: x_msg_count := 1;
1396: x_msg_data := SQLERRM;
1397:
1398: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1439:
1440: BEGIN
1441: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1442: x_msg_count := 0;
1443: x_return_status := FND_API.G_RET_STS_SUCCESS;
1444: IF l_debug_mode = 'Y' THEN
1445: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1446: p_debug_mode => l_debug_mode );
1447: END IF;
1492: l_msg_count := FND_MSG_PUB.count_msg;
1493:
1494: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1495: PA_INTERFACE_UTILS_PUB.get_messages
1496: (p_encoded => FND_API.G_TRUE
1497: ,p_msg_index => 1
1498: ,p_msg_count => l_msg_count
1499: ,p_msg_data => l_msg_data
1500: ,p_data => l_data
1503: x_msg_count := l_msg_count;
1504: ELSE
1505: x_msg_count := l_msg_count;
1506: END IF;
1507: x_return_status := FND_API.G_RET_STS_ERROR;
1508:
1509: IF l_debug_mode = 'Y' THEN
1510: pa_debug.reset_curr_function;
1511: END IF;
1511: END IF;
1512: RETURN;
1513:
1514: WHEN OTHERS THEN
1515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1516: x_msg_count := 1;
1517: x_msg_data := SQLERRM;
1518:
1519: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
1991: BEGIN
1992:
1993: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1994: x_msg_count := 0;
1995: x_return_status := FND_API.G_RET_STS_SUCCESS;
1996:
1997: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1998: p_debug_mode => l_debug_mode );
1999:
5784: p_request_id => p_request_id,
5785: x_return_status => l_return_status,
5786: x_msg_data => l_msg_data,
5787: x_msg_count => l_msg_count);
5788: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5789: IF l_debug_mode = 'Y' THEN
5790: pa_debug.g_err_stage := 'Call to process_errors returned with error';
5791: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
5792: END IF;
5844: l_msg_count := FND_MSG_PUB.count_msg;
5845:
5846: IF l_msg_count = 1 and x_msg_data IS NULL THEN
5847: PA_INTERFACE_UTILS_PUB.get_messages
5848: (p_encoded => FND_API.G_TRUE
5849: ,p_msg_index => 1
5850: ,p_msg_count => l_msg_count
5851: ,p_msg_data => l_msg_data
5852: ,p_data => l_data
5855: x_msg_count := l_msg_count;
5856: ELSE
5857: x_msg_count := l_msg_count;
5858: END IF;
5859: x_return_status := FND_API.G_RET_STS_ERROR;
5860:
5861: pa_debug.reset_curr_function;
5862:
5863: RETURN;
5862:
5863: RETURN;
5864:
5865: WHEN OTHERS THEN
5866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5867: x_msg_count := 1;
5868: x_msg_data := SQLERRM;
5869:
5870: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6134: l_start_date_tbl pa_plsql_datatypes.dateTabTyp;
6135: l_end_date_tbl pa_plsql_datatypes.dateTabTyp;
6136: BEGIN
6137: x_msg_count := 0;
6138: x_return_status := FND_API.G_RET_STS_SUCCESS;
6139:
6140: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6141: l_debug_mode := NVL(l_debug_mode, 'Y');
6142:
6610: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6611: l_msg_count := FND_MSG_PUB.count_msg;
6612: IF l_msg_count = 1 THEN
6613: PA_INTERFACE_UTILS_PUB.get_messages
6614: (p_encoded => FND_API.G_TRUE
6615: ,p_msg_index => 1
6616: ,p_msg_count => l_msg_count
6617: ,p_msg_data => l_msg_data
6618: ,p_data => l_data
6622: x_msg_count := l_msg_count;
6623: ELSE
6624: x_msg_count := l_msg_count;
6625: END IF;
6626: x_return_status := FND_API.G_RET_STS_ERROR;
6627:
6628: IF l_debug_mode = 'Y' THEN
6629: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
6630: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
6634: END IF;
6635:
6636: RETURN;
6637: WHEN OTHERS THEN
6638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6639: x_msg_count := 1;
6640: x_msg_data := SQLERRM;
6641:
6642: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
6772: l_tmp_index NUMBER;
6773: l_plan_txn_attrs_copied_flag VARCHAR2(1);
6774:
6775: kk NUMBER;
6776: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
6777: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
6778: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
6779:
6780: l_curr_rec inf_tbl_data_csr%ROWTYPE;
6773: l_plan_txn_attrs_copied_flag VARCHAR2(1);
6774:
6775: kk NUMBER;
6776: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
6777: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
6778: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
6779:
6780: l_curr_rec inf_tbl_data_csr%ROWTYPE;
6781:
6774:
6775: kk NUMBER;
6776: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
6777: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
6778: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
6779:
6780: l_curr_rec inf_tbl_data_csr%ROWTYPE;
6781:
6782: l_cached_fcst_qty_tbl varchar_70_indexed_num_tbl_typ;
6807:
6808: BEGIN
6809: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
6810:
6811: x_return_status := FND_API.G_RET_STS_SUCCESS;
6812: x_msg_count := 0;
6813:
6814: IF l_debug_mode = 'Y' THEN
6815: pa_debug.Set_Curr_Function
7456: x_return_status =>x_return_status,
7457: x_msg_count =>x_msg_count,
7458: x_msg_data =>x_msg_data );
7459:
7460: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7461: IF l_debug_mode = 'Y' THEN
7462: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7463: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7464: END IF;
7512: x_return_status =>x_return_status,
7513: x_msg_count =>x_msg_count,
7514: x_msg_data =>x_msg_data );
7515:
7516: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7517: IF l_debug_mode = 'Y' THEN
7518: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7519: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7520: END IF;
7568: x_return_status =>x_return_status,
7569: x_msg_count =>x_msg_count,
7570: x_msg_data =>x_msg_data );
7571:
7572: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7573: IF l_debug_mode = 'Y' THEN
7574: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7575: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7576: END IF;
7624: x_return_status =>x_return_status,
7625: x_msg_count =>x_msg_count,
7626: x_msg_data =>x_msg_data );
7627:
7628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7629: IF l_debug_mode = 'Y' THEN
7630: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7631: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7632: END IF;
7899: x_return_status =>x_return_status,
7900: x_msg_count =>x_msg_count,
7901: x_msg_data =>x_msg_data );
7902:
7903: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7904: IF l_debug_mode = 'Y' THEN
7905: pa_debug.g_err_stage := 'Call to get_total_fcst_amounts returned with error';
7906: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7907: END IF;
7928: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7929: l_msg_count := FND_MSG_PUB.count_msg;
7930: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7931: PA_INTERFACE_UTILS_PUB.get_messages
7932: (p_encoded => FND_API.G_TRUE
7933: ,p_msg_index => 1
7934: ,p_msg_count => l_msg_count
7935: ,p_msg_data => l_msg_data
7936: ,p_data => l_data
7939: x_msg_count := l_msg_count;
7940: ELSE
7941: x_msg_count := l_msg_count;
7942: END IF;
7943: x_return_status := FND_API.G_RET_STS_ERROR;
7944:
7945: IF l_debug_mode = 'Y' THEN
7946: pa_debug.reset_curr_function;
7947: END IF;
7947: END IF;
7948: RETURN;
7949:
7950: WHEN OTHERS THEN
7951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7952: x_msg_count := 1;
7953: x_msg_data := SQLERRM;
7954:
7955: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
8207: l_new_res_asg_rbs_elem_id pa_resource_assignments.rbs_element_id%TYPE;
8208: l_new_res_asg_res_class_code pa_resource_assignments.resource_class_code%TYPE;
8209: l_new_res_asg_rate_based_flag pa_resource_assignments.rate_based_flag%TYPE;
8210:
8211: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
8212: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
8213: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
8214:
8215: l_debug_st_dt DATE;
8208: l_new_res_asg_res_class_code pa_resource_assignments.resource_class_code%TYPE;
8209: l_new_res_asg_rate_based_flag pa_resource_assignments.rate_based_flag%TYPE;
8210:
8211: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
8212: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
8213: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
8214:
8215: l_debug_st_dt DATE;
8216: l_debug_en_dt DATE;
8209: l_new_res_asg_rate_based_flag pa_resource_assignments.rate_based_flag%TYPE;
8210:
8211: l_g_miss_char CONSTANT VARCHAR(1) := FND_API.G_MISS_CHAR;
8212: l_g_miss_num CONSTANT NUMBER := FND_API.G_MISS_NUM;
8213: l_g_miss_date CONSTANT DATE := FND_API.G_MISS_DATE;
8214:
8215: l_debug_st_dt DATE;
8216: l_debug_en_dt DATE;
8217: l_debug_st_dt_tbl SYSTEM.pa_date_tbl_type := SYSTEM.pa_date_tbl_type();
8272: BEGIN
8273: --log1('PBL Begin '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
8274: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
8275:
8276: x_return_status := FND_API.G_RET_STS_SUCCESS;
8277: x_msg_count := 0;
8278: --log1('----- STAGE PBL1.0-------');
8279:
8280: IF l_debug_mode = 'Y' THEN
8773: ,x_return_status => x_return_status
8774: ,x_msg_data => l_msg_data
8775: ,x_msg_count => l_msg_count);
8776:
8777: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8778: IF l_debug_mode = 'Y' THEN
8779: pa_debug.g_err_stage:='Called API pa_fp_planning_transaction_pub.add_planning_transaction api returned error';
8780: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
8781: END IF;
8984: ,p_currency_code_tbl => l_df_txn_currency_code_tbl
8985: ,x_return_status => x_return_status
8986: ,x_msg_count => l_msg_count
8987: ,x_msg_data => l_msg_data);
8988: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8989: IF l_debug_mode = 'Y' THEN
8990: pa_debug.g_err_stage:='Called API pa_fp_planning_transactions_pub.delete_planning_transactions returned error';
8991: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
8992: END IF;
9091: ,x_return_status => x_return_status
9092: ,x_msg_count => l_msg_count
9093: ,x_msg_data => l_msg_data);
9094: --log1('PBL 10 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9095: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9096:
9097: IF l_debug_mode = 'Y' THEN
9098: pa_debug.g_err_stage:='Called API PA_FP_CALC_PLAN_PKG.calculate returned error';
9099: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
9454: ,x_return_status => x_return_status
9455: ,x_msg_count => l_msg_count
9456: ,x_msg_data => l_msg_data );
9457: --log1('PBL 27 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
9458: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9459: IF l_debug_mode = 'Y' THEN
9460: pa_debug.g_err_stage:='convert_txn_currency returned error';
9461: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9462: END IF;
9812: PA_BUDGET_LINES_UTILS.populate_display_qty
9813: ( p_budget_version_id => p_budget_version_id
9814: ,p_context => 'FINANCIAL'
9815: ,x_return_status => x_return_status);
9816: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9817: IF l_debug_mode = 'Y' THEN
9818: pa_debug.g_err_stage := 'The API PA_BUDGET_LINES_UTILS.populate_display_qty returned error';
9819: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9820: END IF;
9836: ,p_version_level_flag => 'Y'
9837: ,x_return_status => x_return_status
9838: ,x_msg_count => l_msg_count
9839: ,x_msg_data => l_msg_data);
9840: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9841: IF l_debug_mode = 'Y' THEN
9842: pa_debug.g_err_stage := 'The API PA_RES_ASG_CURRENCY_PUB.maintain_data returned error';
9843: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9844: END IF;
9863: ,x_return_status => x_return_status
9864: ,x_msg_count => l_msg_count
9865: ,x_msg_data => l_msg_data);
9866:
9867: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9868: IF l_debug_mode = 'Y' THEN
9869: pa_debug.g_err_stage:='The API PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION returned error';
9870: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9871: END IF;
9885: (x_return_status => x_return_status,
9886: x_msg_count => l_msg_count,
9887: x_msg_data => l_msg_data);
9888:
9889: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9890: IF l_debug_mode = 'Y' THEN
9891: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.check_mrc_installed returned error';
9892: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9893: END IF;
9908: p_entire_version => 'N',
9909: x_return_status => x_return_status,
9910: x_msg_count => l_msg_count,
9911: x_msg_data => l_msg_data);
9912: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9913: IF l_debug_mode = 'Y' THEN
9914: pa_debug.g_err_stage:='The API PA_MRC_FINPLAN.maintain_all_mc_budget_lines returned error';
9915: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9916: END IF;
9940: p_fp_version_ids => l_dest_ver_id_tbl,
9941: x_return_status => x_return_status,
9942: x_msg_code => l_error_msg_code);
9943:
9944: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
9945: IF l_debug_mode = 'Y' THEN
9946: pa_debug.g_err_stage := 'API PJI_FM_XBS_ACCUM_MAINT.PLAN_DELETE returned ERROR 1 '|| l_error_msg_code;
9947: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
9948: END IF;
9955: PJI_FM_XBS_ACCUM_MAINT.PLAN_CREATE(p_fp_version_ids => l_dest_ver_id_tbl
9956: ,x_return_status => l_return_status
9957: ,x_msg_code => l_error_msg_code);
9958:
9959: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9960: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9961: END IF;
9962:
9963: --log1('PBL 38 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10031: l_msg_count := FND_MSG_PUB.count_msg;
10032:
10033: IF l_msg_count = 1 and x_msg_data IS NULL THEN
10034: PA_INTERFACE_UTILS_PUB.get_messages
10035: (p_encoded => FND_API.G_TRUE
10036: ,p_msg_index => 1
10037: ,p_msg_count => l_msg_count
10038: ,p_msg_data => l_msg_data
10039: ,p_data => l_data
10042: x_msg_count := l_msg_count;
10043: ELSE
10044: x_msg_count := l_msg_count;
10045: END IF;
10046: x_return_status := FND_API.G_RET_STS_ERROR;
10047: IF l_debug_mode = 'Y' THEN
10048: pa_debug.reset_curr_function;
10049: END IF;
10050: RETURN;
10049: END IF;
10050: RETURN;
10051:
10052: WHEN OTHERS THEN
10053: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10054: x_msg_count := 1;
10055: x_msg_data := SQLERRM;
10056:
10057: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
10329: */
10330:
10331: fnd_profile.get('PA_DEBUG_MODE', l_debug_mode);
10332:
10333: x_return_status := FND_API.G_RET_STS_SUCCESS;
10334: x_msg_count := 0;
10335:
10336: -- initializing the translated out message string
10337: x_success_msg := FND_MESSAGE.GET_STRING
10465: err_amount_type_code = nvl(amount_type_code,'-98')
10466: WHERE run_id=p_run_id
10467: AND Nvl(p_request_id, -99) = Nvl(request_id, -99);
10468:
10469: x_return_status := FND_API.G_RET_STS_ERROR;
10470: IF l_debug_mode = 'Y' THEN
10471: pa_debug.reset_curr_function;
10472: END IF;
10473:
10491: x_return_status => x_return_status,
10492: x_msg_count => l_msg_count,
10493: x_msg_data => l_msg_data);
10494:
10495: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10496: IF l_debug_mode = 'Y' THEN
10497: pa_debug.g_err_stage := 'Call to get_plan_version_dtls returned with error';
10498: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10499: END IF;
10521: x_msg_data => l_msg_count,
10522: x_msg_count => l_msg_data);
10523: --log1('2 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10524:
10525: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10526: IF l_debug_mode = 'Y' THEN
10527: pa_debug.g_err_stage := 'Call to validate_header_info returned with error';
10528: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10529: END IF;
10615: x_return_status => x_return_status,
10616: x_msg_count => l_msg_count,
10617: x_msg_data => l_msg_data);
10618:
10619: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10620: IF l_debug_mode = 'Y' THEN
10621: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10622: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10623: END IF;
10660: x_return_status => x_return_status,
10661: x_msg_count => l_msg_count,
10662: x_msg_data => l_msg_data);
10663:
10664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10665: IF l_debug_mode = 'Y' THEN
10666: pa_debug.g_err_stage := 'Call to prepare_val_input returned with error';
10667: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10668: END IF;
10746: ,x_msg_count => l_msg_count
10747: ,x_msg_data => l_msg_data
10748: ,x_return_status => x_return_status);
10749: --log1('5 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
10750: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10751: IF l_debug_mode = 'Y' THEN
10752: pa_debug.g_err_stage := 'Call to validate_budget_lines returned with error';
10753: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10754: 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 check_and_update_txn_curr_code returned with error';
10810: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
10811: END IF;
11023: x_return_status => x_return_status,
11024: x_msg_count => l_msg_count,
11025: x_msg_data => l_msg_data);
11026:
11027: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11028: IF l_debug_mode = 'Y' THEN
11029: pa_debug.g_err_stage := 'Call to prepare_pbl_input returned with error';
11030: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11031: END IF;
11103: x_return_status => x_return_status,
11104: x_msg_count => l_msg_count,
11105: x_msg_data => l_msg_data);
11106: --log1('9 '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
11107: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11108: IF l_debug_mode = 'Y' THEN
11109: pa_debug.g_err_stage := 'Call to process_budget_lines returned with error';
11110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11111: END IF;
11134: x_return_status => x_return_status,
11135: x_msg_count => l_msg_count,
11136: x_msg_data => l_msg_data);
11137:
11138: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11139: IF l_debug_mode = 'Y' THEN
11140: pa_debug.g_err_stage := 'Call to pa_fin_plan_pub.Submit_Current_Working returned with error';
11141: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
11142: END IF;
11221: l_msg_count := FND_MSG_PUB.count_msg;
11222:
11223: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11224: PA_INTERFACE_UTILS_PUB.get_messages
11225: (p_encoded => FND_API.G_TRUE
11226: ,p_msg_index => 1
11227: ,p_msg_count => l_msg_count
11228: ,p_msg_data => l_msg_data
11229: ,p_data => l_data
11235: x_msg_count := l_msg_count;
11236: x_success_msg :='Error In Upload';
11237: END IF;
11238:
11239: x_return_status := FND_API.G_RET_STS_ERROR;
11240:
11241: IF l_debug_mode = 'Y' THEN
11242: pa_debug.reset_curr_function;
11243: END IF;
11272: p_null_out_cols => 'N');
11273:
11274: END IF;
11275: COMMIT;
11276: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11277: x_msg_count := 1;
11278: x_msg_data := SQLERRM;
11279:
11280: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11430: x_return_status => l_return_status,
11431: x_msg_count => l_msg_count,
11432: x_msg_data => l_msg_data);
11433: --log1('----- STAGE CR8-------');
11434: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11435: --log1('----- STAGE CR9-------');
11436: IF l_debug_mode = 'Y' THEN
11437: pa_debug.g_err_stage:='pa_fp_webadi_pkg.switcher returned error';
11438: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
11460: ROLLBACK;
11461: l_msg_count := FND_MSG_PUB.count_msg;
11462: IF l_msg_count = 1 THEN
11463: PA_INTERFACE_UTILS_PUB.get_messages
11464: (p_encoded => FND_API.G_TRUE
11465: ,p_msg_index => 1
11466: ,p_msg_count => l_msg_count
11467: ,p_msg_data => l_msg_data
11468: ,p_data => l_data
11644: end_date gl_periods.end_date%TYPE;
11645: x NUMBER := 1;
11646: BEGIN
11647: x_msg_count := 0;
11648: x_return_status := FND_API.G_RET_STS_SUCCESS;
11649: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'Y');
11650:
11651: IF l_debug_mode = 'Y' THEN
11652: pa_debug.set_curr_function(p_function => 'GET_PERIOD_INFORMATION',
11791: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11792: l_msg_count := FND_MSG_PUB.count_msg;
11793: IF l_msg_count = 1 AND x_msg_data IS NULL THEN
11794: PA_INTERFACE_UTILS_PUB.get_messages
11795: (p_encoded => FND_API.G_TRUE
11796: ,p_msg_index => 1
11797: ,p_msg_count => l_msg_count
11798: ,p_msg_data => l_msg_data
11799: ,p_data => l_data
11802: x_msg_count := l_msg_count;
11803: ELSE
11804: x_msg_count := l_msg_count;
11805: END IF;
11806: x_return_status := FND_API.G_RET_STS_ERROR;
11807: IF l_debug_mode = 'Y' THEN
11808: pa_debug.reset_curr_function;
11809: END IF;
11810: RETURN;
11809: END IF;
11810: RETURN;
11811:
11812: WHEN OTHERS THEN
11813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11814: x_msg_count := 1;
11815: x_msg_data := SQLERRM;
11816: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
11817: ,p_procedure_name => 'get_period_information');
11819: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11820: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
11821: pa_debug.reset_curr_function;
11822: END IF;
11823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11824: END GET_PERIOD_INFORMATION;
11825:
11826: --Bug 4584865.
11827: --This API is called to insert records into pa_fp_webadi_xface_tmp
12076: l_return NUMBER := 0; -- Bug 5284640.
12077:
12078: BEGIN
12079: x_msg_count := 0;
12080: x_return_status := FND_API.G_RET_STS_SUCCESS;
12081: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
12082:
12083:
12084: IF l_debug_mode = 'Y' THEN
12148: x_return_status => l_return_status,
12149: x_msg_count => l_msg_count,
12150: x_msg_data => l_msg_data);
12151:
12152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12153: IF l_debug_mode = 'Y' THEN
12154: pa_debug.g_err_stage := 'Budget Version Details not found';
12155: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12156: END IF;
12221: p_calling_mode => 'WA_DOWNLOAD',
12222: x_agr_curr_code => l_agr_curr_code,
12223: x_agr_conv_reqd_flag => l_agr_conv_reqd_flag,
12224: x_return_status => l_return_status);
12225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12226: IF l_debug_mode = 'Y' THEN
12227: pa_debug.g_err_stage := 'Error in Getting Agreement Details of the budget version';
12228: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12229: END IF;
12327: x_return_status => l_return_status,
12328: x_msg_count => l_msg_count,
12329: x_msg_data => l_msg_data);
12330:
12331: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12332: IF l_debug_mode = 'Y' THEN
12333: pa_debug.g_err_stage := 'Error in getting Group Period information of the budget version';
12334: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12335: END IF;
12747: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12748: l_msg_count := FND_MSG_PUB.count_msg;
12749: IF l_msg_count = 1 and x_msg_data IS NULL THEN
12750: PA_INTERFACE_UTILS_PUB.get_messages
12751: (p_encoded => FND_API.G_TRUE
12752: ,p_msg_index => 1
12753: ,p_msg_count => l_msg_count
12754: ,p_msg_data => l_msg_data
12755: ,p_data => l_data
12758: x_msg_count := l_msg_count;
12759: ELSE
12760: x_msg_count := l_msg_count;
12761: END IF;
12762: x_return_status := FND_API.G_RET_STS_ERROR;
12763: IF l_debug_mode = 'Y' THEN
12764: pa_debug.reset_curr_function;
12765: END IF;
12766: RETURN;
12766: RETURN;
12767:
12768: -- Bug 5360205: Added NO_RA_EXC block.
12769: WHEN NO_RA_EXC THEN
12770: x_return_status := FND_API.G_RET_STS_SUCCESS;
12771: IF l_debug_mode = 'Y' THEN
12772: pa_debug.reset_curr_function;
12773: END IF;
12774: RETURN;
12773: END IF;
12774: RETURN;
12775:
12776: WHEN OTHERS THEN
12777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12778: x_msg_count := 1;
12779: x_msg_data := SQLERRM;
12780: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_webadi_pkg'
12781: ,p_procedure_name => 'insert_periodic_tmp_table');
12783: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12784: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
12785: pa_debug.reset_curr_function;
12786: END IF;
12787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12788:
12789:
12790: END insert_periodic_tmp_table;
12791: