1: PACKAGE body PA_FP_GEN_FCST_AMT_PUB5 as
2: /* $Header: PAFPFG5B.pls 120.2 2007/02/06 09:52:14 dthakker ship $ */
3:
4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:
17: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
18: X_MSG_COUNT OUT NOCOPY NUMBER,
19: X_MSG_DATA OUT NOCOPY VARCHAR2)
20: IS
21: l_module_name VARCHAR2(200) := 'pa.plsql.PA_FP_GEN_FCST_AMT_PUB5.GET_ETC_EARNED_VALUE_AMTS';
22:
23: l_structure_type VARCHAR2(30):= null;
24: l_structure_status VARCHAR2(30):= null;
25: l_structure_status_flag VARCHAR2(1):= null;
489: x_msg_count := 1;
490: x_msg_data := substr(sqlerrm,1,240);
491: -- dbms_output.put_line('error msg :'||x_msg_data);
492: FND_MSG_PUB.add_exc_msg
493: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB5',
494: p_procedure_name => 'GEN_ETC_EARNED_VALUE_AMTS',
495: p_error_text => substr(sqlerrm,1,240));
496:
497: IF P_PA_DEBUG_MODE = 'Y' THEN
520: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
521: X_MSG_COUNT OUT NOCOPY NUMBER,
522: X_MSG_DATA OUT NOCOPY VARCHAR2)
523: IS
524: l_module_name VARCHAR2(200) := 'pa.plsql.PA_FP_GEN_FCST_AMT_PUB5.GET_ETC_EARNED_VALUE_AMTS_BLK';
525:
526: l_structure_type VARCHAR2(30):= null;
527: l_structure_status VARCHAR2(30):= null;
528: l_structure_status_flag VARCHAR2(1):= null;
1077: x_msg_count := 1;
1078: x_msg_data := substr(sqlerrm,1,240);
1079: -- dbms_output.put_line('error msg :'||x_msg_data);
1080: FND_MSG_PUB.add_exc_msg
1081: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB5',
1082: p_procedure_name => 'GEN_ETC_EARNED_VALUE_AMTS_BLK',
1083: p_error_text => substr(sqlerrm,1,240));
1084:
1085: IF P_PA_DEBUG_MODE = 'Y' THEN
1091: END IF;
1092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1093: END GET_ETC_EARNED_VALUE_AMTS_BLK;
1094:
1095: END PA_FP_GEN_FCST_AMT_PUB5;