1: PACKAGE body PA_RES_ASG_CURRENCY_PUB as
2: /* $Header: PAFPRBCB.pls 120.1.12010000.2 2008/12/05 10:13:01 rthumma ship $ */
3: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4:
5: -- Private P_CALLING_MODULE values
136: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
137: X_MSG_COUNT OUT NOCOPY NUMBER,
138: X_MSG_DATA OUT NOCOPY VARCHAR2 )
139: IS
140: l_module_name VARCHAR2(100) := 'pa.plsql.PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
141: l_log_level NUMBER := 5;
142:
143: l_msg_count NUMBER;
144: l_data VARCHAR2(2000);
158: ( p_function => 'MAINTAIN_DATA',
159: p_debug_mode => p_pa_debug_mode );
160: END IF;
161:
162: PA_RES_ASG_CURRENCY_PUB.PRINT_INPUT_PARAMS
163: ( P_CALLING_API => G_PVT_MAINTAIN,
164: P_FP_COLS_REC => p_fp_cols_rec,
165: P_CALLING_MODULE => p_calling_module,
166: P_DELETE_FLAG => p_delete_flag,
285: IF p_delete_flag = 'Y' THEN
286:
287: IF p_pa_debug_mode = 'Y' THEN
288: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
289: P_MSG => 'Before calling PA_RES_ASG_CURRENCY_PUB.' ||
290: 'DELETE_TABLE_RECORDS',
291: P_CALLED_MODE => p_called_mode,
292: P_MODULE_NAME => l_module_name);
293: END IF;
290: 'DELETE_TABLE_RECORDS',
291: P_CALLED_MODE => p_called_mode,
292: P_MODULE_NAME => l_module_name);
293: END IF;
294: PA_RES_ASG_CURRENCY_PUB.DELETE_TABLE_RECORDS
295: ( P_FP_COLS_REC => p_fp_cols_rec,
296: P_CALLING_MODULE => p_calling_module,
297: P_VERSION_LEVEL_FLAG => p_version_level_flag,
298: P_CALLED_MODE => p_called_mode,
300: X_MSG_COUNT => x_msg_count,
301: X_MSG_DATA => x_msg_data );
302: IF p_pa_debug_mode = 'Y' THEN
303: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
304: P_MSG => 'After calling PA_RES_ASG_CURRENCY_PUB.' ||
305: 'DELETE_TABLE_RECORDS: '||x_return_status,
306: P_CALLED_MODE => p_called_mode,
307: P_MODULE_NAME => l_module_name);
308: END IF;
447: IF p_copy_flag = 'Y' THEN
448:
449: IF p_pa_debug_mode = 'Y' THEN
450: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
451: P_MSG => 'Before calling PA_RES_ASG_CURRENCY_PUB.' ||
452: 'COPY_TABLE_RECORDS',
453: P_CALLED_MODE => p_called_mode,
454: P_MODULE_NAME => l_module_name);
455: END IF;
452: 'COPY_TABLE_RECORDS',
453: P_CALLED_MODE => p_called_mode,
454: P_MODULE_NAME => l_module_name);
455: END IF;
456: PA_RES_ASG_CURRENCY_PUB.COPY_TABLE_RECORDS
457: ( P_FP_COLS_REC => p_fp_cols_rec,
458: P_SRC_VERSION_ID => p_src_version_id,
459: P_COPY_MODE => p_copy_mode,
460: P_CALLING_MODULE => p_calling_module,
464: X_MSG_COUNT => x_msg_count,
465: X_MSG_DATA => x_msg_data );
466: IF p_pa_debug_mode = 'Y' THEN
467: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
468: P_MSG => 'After calling PA_RES_ASG_CURRENCY_PUB.' ||
469: 'COPY_TABLE_RECORDS: '||x_return_status,
470: P_CALLED_MODE => p_called_mode,
471: P_MODULE_NAME => l_module_name);
472: END IF;
487: IF p_rollup_flag = 'N' THEN
488:
489: IF p_pa_debug_mode = 'Y' THEN
490: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
491: P_MSG => 'Before calling PA_RES_ASG_CURRENCY_PUB.' ||
492: 'INSERT_TABLE_RECORDS',
493: P_CALLED_MODE => p_called_mode,
494: P_MODULE_NAME => l_module_name);
495: END IF;
492: 'INSERT_TABLE_RECORDS',
493: P_CALLED_MODE => p_called_mode,
494: P_MODULE_NAME => l_module_name);
495: END IF;
496: PA_RES_ASG_CURRENCY_PUB.INSERT_TABLE_RECORDS
497: ( P_FP_COLS_REC => p_fp_cols_rec,
498: P_CALLING_MODULE => p_calling_module,
499: P_VERSION_LEVEL_FLAG => p_version_level_flag,
500: P_CALLED_MODE => p_called_mode,
502: X_MSG_COUNT => x_msg_count,
503: X_MSG_DATA => x_msg_data );
504: IF p_pa_debug_mode = 'Y' THEN
505: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
506: P_MSG => 'After calling PA_RES_ASG_CURRENCY_PUB.' ||
507: 'INSERT_TABLE_RECORDS: '||x_return_status,
508: P_CALLED_MODE => p_called_mode,
509: P_MODULE_NAME => l_module_name);
510: END IF;
516: ELSIF p_rollup_flag = 'Y' THEN
517:
518: IF p_pa_debug_mode = 'Y' THEN
519: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
520: P_MSG => 'Before calling PA_RES_ASG_CURRENCY_PUB.' ||
521: 'ROLLUP_AMOUNTS',
522: P_CALLED_MODE => p_called_mode,
523: P_MODULE_NAME => l_module_name);
524: END IF;
521: 'ROLLUP_AMOUNTS',
522: P_CALLED_MODE => p_called_mode,
523: P_MODULE_NAME => l_module_name);
524: END IF;
525: PA_RES_ASG_CURRENCY_PUB.ROLLUP_AMOUNTS
526: ( P_FP_COLS_REC => p_fp_cols_rec,
527: P_CALLING_MODULE => p_calling_module,
528: P_VERSION_LEVEL_FLAG => p_version_level_flag,
529: P_CALLED_MODE => p_called_mode,
531: X_MSG_COUNT => x_msg_count,
532: X_MSG_DATA => x_msg_data );
533: IF p_pa_debug_mode = 'Y' THEN
534: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG(
535: P_MSG => 'After calling PA_RES_ASG_CURRENCY_PUB.' ||
536: 'ROLLUP_AMOUNTS: '||x_return_status,
537: P_CALLED_MODE => p_called_mode,
538: P_MODULE_NAME => l_module_name);
539: END IF;
587: x_msg_count := 1;
588: x_msg_data := substr(sqlerrm,1,240);
589: -- dbms_output.put_line('error msg :'||x_msg_data);
590: FND_MSG_PUB.add_exc_msg
591: ( p_pkg_name => 'PA_RES_ASG_CURRENCY_PUB',
592: p_procedure_name => 'MAINTAIN_DATA',
593: p_error_text => substr(sqlerrm,1,240));
594: IF P_PA_DEBUG_MODE = 'Y' THEN
595: pa_fp_gen_amount_utils.fp_debug
619: P_ROLLUP_FLAG IN VARCHAR2,
620: P_VERSION_LEVEL_FLAG IN VARCHAR2,
621: P_CALLED_MODE IN VARCHAR2 )
622: IS
623: l_module_name VARCHAR2(100) := 'pa.plsql.PA_RES_ASG_CURRENCY_PUB.PRINT_INPUT_PARAMS';
624: l_log_level NUMBER := 5;
625: BEGIN
626: IF p_pa_debug_mode = 'N' THEN
627: RETURN;
762: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
763: X_MSG_COUNT OUT NOCOPY NUMBER,
764: X_MSG_DATA OUT NOCOPY VARCHAR2)
765: IS
766: l_module_name VARCHAR2(100) := 'pa.plsql.PA_RES_ASG_CURRENCY_PUB.DELETE_TABLE_RECORDS';
767: l_log_level NUMBER := 5;
768:
769: l_msg_count NUMBER;
770: l_data VARCHAR2(2000);
777: ( p_function => 'DELETE_TABLE_RECORDS',
778: p_debug_mode => p_pa_debug_mode );
779: END IF;
780:
781: PA_RES_ASG_CURRENCY_PUB.PRINT_INPUT_PARAMS
782: ( P_CALLING_API => G_PVT_DELETE,
783: P_FP_COLS_REC => p_fp_cols_rec,
784: P_CALLING_MODULE => p_calling_module,
785: P_VERSION_LEVEL_FLAG => p_version_level_flag,
874: x_msg_count := 1;
875: x_msg_data := substr(sqlerrm,1,240);
876: -- dbms_output.put_line('error msg :'||x_msg_data);
877: FND_MSG_PUB.add_exc_msg
878: ( p_pkg_name => 'PA_RES_ASG_CURRENCY_PUB',
879: p_procedure_name => 'DELETE_TABLE_RECORDS',
880: p_error_text => substr(sqlerrm,1,240));
881: IF P_PA_DEBUG_MODE = 'Y' THEN
882: pa_fp_gen_amount_utils.fp_debug
901: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
902: X_MSG_COUNT OUT NOCOPY NUMBER,
903: X_MSG_DATA OUT NOCOPY VARCHAR2)
904: IS
905: l_module_name VARCHAR2(100) := 'pa.plsql.PA_RES_ASG_CURRENCY_PUB.COPY_TABLE_RECORDS';
906: l_log_level NUMBER := 5;
907:
908: l_msg_count NUMBER;
909: l_data VARCHAR2(2000);
1061: ( p_function => 'COPY_TABLE_RECORDS',
1062: p_debug_mode => p_pa_debug_mode );
1063: END IF;
1064:
1065: PA_RES_ASG_CURRENCY_PUB.PRINT_INPUT_PARAMS
1066: ( P_CALLING_API => G_PVT_COPY,
1067: P_FP_COLS_REC => p_fp_cols_rec,
1068: P_CALLING_MODULE => p_calling_module,
1069: P_SRC_VERSION_ID => p_src_version_id,
1284: l_txn_currency_code_tab(i) );
1285:
1286: IF p_pa_debug_mode = 'Y' THEN
1287: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
1288: ( P_MSG => 'Before calling PA_RES_ASG_CURRENCY_PUB.'
1289: || 'DELETE_TABLE_RECORDS',
1290: P_CALLED_MODE => p_called_mode,
1291: P_MODULE_NAME => l_module_name,
1292: P_LOG_LEVEL => l_log_level );
1290: P_CALLED_MODE => p_called_mode,
1291: P_MODULE_NAME => l_module_name,
1292: P_LOG_LEVEL => l_log_level );
1293: END IF;
1294: PA_RES_ASG_CURRENCY_PUB.DELETE_TABLE_RECORDS
1295: ( P_FP_COLS_REC => p_fp_cols_rec,
1296: P_CALLING_MODULE => G_PVT_COPY,
1297: P_VERSION_LEVEL_FLAG => 'N',
1298: P_CALLED_MODE => p_called_mode,
1300: X_MSG_COUNT => x_msg_count,
1301: X_MSG_DATA => x_msg_data );
1302: IF p_pa_debug_mode = 'Y' THEN
1303: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
1304: ( P_MSG => 'After calling PA_RES_ASG_CURRENCY_PUB.'
1305: || 'DELETE_TABLE_RECORDS: ' || x_return_status,
1306: P_CALLED_MODE => p_called_mode,
1307: P_MODULE_NAME => l_module_name,
1308: P_LOG_LEVEL => l_log_level );
1472: x_msg_count := 1;
1473: x_msg_data := substr(sqlerrm,1,240);
1474: -- dbms_output.put_line('error msg :'||x_msg_data);
1475: FND_MSG_PUB.add_exc_msg
1476: ( p_pkg_name => 'PA_RES_ASG_CURRENCY_PUB',
1477: p_procedure_name => 'COPY_TABLE_RECORDS',
1478: p_error_text => substr(sqlerrm,1,240));
1479: IF P_PA_DEBUG_MODE = 'Y' THEN
1480: pa_fp_gen_amount_utils.fp_debug
1497: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1498: X_MSG_COUNT OUT NOCOPY NUMBER,
1499: X_MSG_DATA OUT NOCOPY VARCHAR2)
1500: IS
1501: l_module_name VARCHAR2(100) := 'pa.plsql.PA_RES_ASG_CURRENCY_PUB.INSERT_TABLE_RECORDS';
1502: l_log_level NUMBER := 5;
1503:
1504: l_msg_count NUMBER;
1505: l_data VARCHAR2(2000);
1524: ( p_function => 'INSERT_TABLE_RECORDS',
1525: p_debug_mode => p_pa_debug_mode );
1526: END IF;
1527:
1528: PA_RES_ASG_CURRENCY_PUB.PRINT_INPUT_PARAMS
1529: ( P_CALLING_API => G_PVT_INSERT,
1530: P_FP_COLS_REC => p_fp_cols_rec,
1531: P_CALLING_MODULE => p_calling_module,
1532: P_VERSION_LEVEL_FLAG => p_version_level_flag,
1594: -- into the PA_RESOURCE_ASGN_CURR table.
1595:
1596: IF p_pa_debug_mode = 'Y' THEN
1597: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
1598: ( P_MSG => 'Before calling PA_RES_ASG_CURRENCY_PUB.'
1599: || 'DELETE_TABLE_RECORDS',
1600: P_CALLED_MODE => p_called_mode,
1601: P_MODULE_NAME => l_module_name,
1602: P_LOG_LEVEL => l_log_level );
1600: P_CALLED_MODE => p_called_mode,
1601: P_MODULE_NAME => l_module_name,
1602: P_LOG_LEVEL => l_log_level );
1603: END IF;
1604: PA_RES_ASG_CURRENCY_PUB.DELETE_TABLE_RECORDS
1605: ( P_FP_COLS_REC => p_fp_cols_rec,
1606: P_CALLING_MODULE => G_PVT_INSERT,
1607: P_VERSION_LEVEL_FLAG => p_version_level_flag,
1608: P_CALLED_MODE => p_called_mode,
1610: X_MSG_COUNT => x_msg_count,
1611: X_MSG_DATA => x_msg_data );
1612: IF p_pa_debug_mode = 'Y' THEN
1613: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
1614: ( P_MSG => 'After calling PA_RES_ASG_CURRENCY_PUB.'
1615: || 'DELETE_TABLE_RECORDS: ' || x_return_status,
1616: P_CALLED_MODE => p_called_mode,
1617: P_MODULE_NAME => l_module_name,
1618: P_LOG_LEVEL => l_log_level );
1695: x_msg_count := 1;
1696: x_msg_data := substr(sqlerrm,1,240);
1697: -- dbms_output.put_line('error msg :'||x_msg_data);
1698: FND_MSG_PUB.add_exc_msg
1699: ( p_pkg_name => 'PA_RES_ASG_CURRENCY_PUB',
1700: p_procedure_name => 'INSERT_TABLE_RECORDS',
1701: p_error_text => substr(sqlerrm,1,240));
1702: IF P_PA_DEBUG_MODE = 'Y' THEN
1703: pa_fp_gen_amount_utils.fp_debug
1720: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1721: X_MSG_COUNT OUT NOCOPY NUMBER,
1722: X_MSG_DATA OUT NOCOPY VARCHAR2)
1723: IS
1724: l_module_name VARCHAR2(100) := 'pa.plsql.PA_RES_ASG_CURRENCY_PUB.ROLLUP_AMOUNTS';
1725: l_log_level NUMBER := 5;
1726:
1727: l_msg_count NUMBER;
1728: l_data VARCHAR2(2000);
2063: ( p_function => 'ROLLUP_AMOUNTS',
2064: p_debug_mode => p_pa_debug_mode );
2065: END IF;
2066:
2067: PA_RES_ASG_CURRENCY_PUB.PRINT_INPUT_PARAMS
2068: ( P_CALLING_API => G_PVT_ROLLUP,
2069: P_FP_COLS_REC => p_fp_cols_rec,
2070: P_CALLING_MODULE => p_calling_module,
2071: P_VERSION_LEVEL_FLAG => p_version_level_flag,
2251: -- Step 3: Delete records from the PA_RESOURCE_ASGN_CURR table.
2252:
2253: IF p_pa_debug_mode = 'Y' THEN
2254: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
2255: ( P_MSG => 'Before calling PA_RES_ASG_CURRENCY_PUB.'
2256: || 'DELETE_TABLE_RECORDS',
2257: P_CALLED_MODE => p_called_mode,
2258: P_MODULE_NAME => l_module_name,
2259: P_LOG_LEVEL => l_log_level );
2257: P_CALLED_MODE => p_called_mode,
2258: P_MODULE_NAME => l_module_name,
2259: P_LOG_LEVEL => l_log_level );
2260: END IF;
2261: PA_RES_ASG_CURRENCY_PUB.DELETE_TABLE_RECORDS
2262: ( P_FP_COLS_REC => p_fp_cols_rec,
2263: P_CALLING_MODULE => G_PVT_ROLLUP,
2264: P_VERSION_LEVEL_FLAG => p_version_level_flag,
2265: P_CALLED_MODE => p_called_mode,
2267: X_MSG_COUNT => x_msg_count,
2268: X_MSG_DATA => x_msg_data );
2269: IF p_pa_debug_mode = 'Y' THEN
2270: PA_FP_GEN_AMOUNT_UTILS.FP_DEBUG
2271: ( P_MSG => 'After calling PA_RES_ASG_CURRENCY_PUB.'
2272: || 'DELETE_TABLE_RECORDS: ' || x_return_status,
2273: P_CALLED_MODE => p_called_mode,
2274: P_MODULE_NAME => l_module_name,
2275: P_LOG_LEVEL => l_log_level );
2405: x_msg_count := 1;
2406: x_msg_data := substr(sqlerrm,1,240);
2407: -- dbms_output.put_line('error msg :'||x_msg_data);
2408: FND_MSG_PUB.add_exc_msg
2409: ( p_pkg_name => 'PA_RES_ASG_CURRENCY_PUB',
2410: p_procedure_name => 'ROLLUP_AMOUNTS',
2411: p_error_text => substr(sqlerrm,1,240));
2412: IF P_PA_DEBUG_MODE = 'Y' THEN
2413: pa_fp_gen_amount_utils.fp_debug
2421:
2422: END ROLLUP_AMOUNTS;
2423:
2424:
2425: END PA_RES_ASG_CURRENCY_PUB;