1: PACKAGE body PA_FP_GEN_FCST_AMT_PUB4 as
2: /* $Header: PAFPFG4B.pls 120.5 2007/02/06 09:51:54 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_PUB4.GEN_ETC_BDGT_COMPLETE_AMTS';
22:
23: l_structure_type VARCHAR2(30):= null;
24: l_structure_status VARCHAR2(30):= null;
25: l_structure_status_flag VARCHAR2(1):= null;
365: x_msg_count := 1;
366: x_msg_data := substr(sqlerrm,1,240);
367: -- dbms_output.put_line('error msg :'||x_msg_data);
368: FND_MSG_PUB.add_exc_msg
369: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB4',
370: p_procedure_name => 'GEN_ETC_BDGT_COMPLETE_AMTS',
371: p_error_text => substr(sqlerrm,1,240));
372:
373: IF P_PA_DEBUG_MODE = 'Y' THEN
395: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
396: X_MSG_COUNT OUT NOCOPY NUMBER,
397: X_MSG_DATA OUT NOCOPY VARCHAR2)
398: IS
399: l_module_name VARCHAR2(200) := 'pa.plsql.PA_FP_GEN_FCST_AMT_PUB4.GEN_ETC_BDGT_COMPLETE_AMTS_BLK';
400:
401: l_structure_type VARCHAR2(30):= null;
402: l_structure_status VARCHAR2(30):= null;
403: l_structure_status_flag VARCHAR2(1):= null;
861: x_msg_count := 1;
862: x_msg_data := substr(sqlerrm,1,240);
863: -- dbms_output.put_line('error msg :'||x_msg_data);
864: FND_MSG_PUB.add_exc_msg
865: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB4',
866: p_procedure_name => 'GEN_ETC_BDGT_COMPLETE_AMTS_BLK',
867: p_error_text => substr(sqlerrm,1,240));
868:
869: IF P_PA_DEBUG_MODE = 'Y' THEN
875: END IF;
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END GET_ETC_BDGT_COMPLETE_AMTS_BLK;
878:
879: END PA_FP_GEN_FCST_AMT_PUB4;