131: END IF;
132: --
133:
134: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
135: FND_MSG_PUB.initialize ;
136: END IF;
137: --
138: p_return_status := FND_API.G_RET_STS_SUCCESS ;
139: --
216: pd('Final Commiting');
217: COMMIT WORK;
218: END IF;
219: --
220: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
221: p_data => p_msg_data );
222: --
223:
224: EXCEPTION
226: WHEN FND_API.G_EXC_ERROR THEN
227: --
228: ROLLBACK TO Populate_Budget_Accounts_Pvt ;
229: p_return_status := FND_API.G_RET_STS_ERROR;
230: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
231: p_data => p_msg_data );
232: --
233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
234: --
233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
234: --
235: ROLLBACK TO Populate_Budget_Accounts_Pvt ;
236: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
238: p_data => p_msg_data );
239: --
240: WHEN OTHERS THEN
241: --
241: --
242: ROLLBACK TO Populate_Budget_Accounts_Pvt ;
243: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
244: --
245: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
246: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
247: l_api_name);
248: END if;
249: --
242: ROLLBACK TO Populate_Budget_Accounts_Pvt ;
243: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
244: --
245: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
246: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
247: l_api_name);
248: END if;
249: --
250: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
246: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
247: l_api_name);
248: END if;
249: --
250: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
251: p_data => p_msg_data );
252: --
253: END Populate_Budget_Accounts;
254: /*---------------------------------------------------------------------------*/
395:
396: EXCEPTION
397: WHEN OTHERS THEN
398: --
399: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
400: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
401: 'Populate_Budget_Account_Set' );
402: END if;
403: --
396: EXCEPTION
397: WHEN OTHERS THEN
398: --
399: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
400: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
401: 'Populate_Budget_Account_Set' );
402: END if;
403: --
404: RETURN (FALSE);
468: --
469: EXCEPTION
470: WHEN OTHERS THEN
471: --
472: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
473: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
474: 'Get_Active_Segments' );
475: END if;
476: --
469: EXCEPTION
470: WHEN OTHERS THEN
471: --
472: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
473: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
474: 'Get_Active_Segments' );
475: END if;
476: --
477: RETURN (FALSE);
670: IF dbms_sql.is_open(l_cursor_id) THEN
671: dbms_sql.close_cursor(l_cursor_id);
672: END IF;
673: --
674: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
675: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
676: 'Make_Account_Assignments' );
677: END if;
678: --
671: dbms_sql.close_cursor(l_cursor_id);
672: END IF;
673: --
674: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
675: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
676: 'Make_Account_Assignments' );
677: END if;
678: --
679: RETURN (FALSE);
793: --
794: WHEN OTHERS THEN
795: --
796: -- ROLLBACK TO Populate_Budget_Acct_CP_Pvt ;
797: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
798: --
799: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
800: l_api_name ) ;
801: END IF ;
795: --
796: -- ROLLBACK TO Populate_Budget_Acct_CP_Pvt ;
797: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
798: --
799: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
800: l_api_name ) ;
801: END IF ;
802: --
803: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
892: COMMIT WORK ;
893:
894: WHEN OTHERS THEN
895:
896: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
897: --
898: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
899: l_api_name ) ;
900: END IF ;
894: WHEN OTHERS THEN
895:
896: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
897: --
898: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
899: l_api_name ) ;
900: END IF ;
901: --
902: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
960: END IF;
961:
962: -- Initialize message list if p_init_msg_list is set to TRUE
963: IF FND_API.to_Boolean (p_init_msg_list) THEN
964: FND_MSG_PUB.initialize;
965: END IF;
966:
967: FOR c_ws_rec in(SELECT NVL(budget_by_position,'N') budget_by_position,
968: data_extract_id
986: p_data_extract_id => l_data_extract_id
987: );
988:
989: FND_MESSAGE.SET_NAME('PSB', 'PSB_VAL_LINE');
990: FND_MSG_PUB.ADD;
991: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_VALIDATIONS_DUMMY');
992: FND_MSG_PUB.ADD;
993: FND_MESSAGE.SET_NAME('PSB', 'PSB_VAL_LINE');
994: FND_MSG_PUB.ADD;
988:
989: FND_MESSAGE.SET_NAME('PSB', 'PSB_VAL_LINE');
990: FND_MSG_PUB.ADD;
991: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_VALIDATIONS_DUMMY');
992: FND_MSG_PUB.ADD;
993: FND_MESSAGE.SET_NAME('PSB', 'PSB_VAL_LINE');
994: FND_MSG_PUB.ADD;
995:
996: -- position validations
990: FND_MSG_PUB.ADD;
991: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_VALIDATIONS_DUMMY');
992: FND_MSG_PUB.ADD;
993: FND_MESSAGE.SET_NAME('PSB', 'PSB_VAL_LINE');
994: FND_MSG_PUB.ADD;
995:
996: -- position validations
997: PSB_POSITIONS_PVT.Position_WS_Validation
998: (p_api_version => 1.0,
1024:
1025: IF l_rep_req_id = 0 THEN
1026:
1027: FND_MESSAGE.SET_NAME('PSB', 'PSB_FAIL_TO_SUBMIT_REQUEST');
1028: FND_MSG_PUB.ADD;
1029: RAISE FND_API.G_EXC_ERROR;
1030:
1031: END IF;
1032:
1034:
1035: WHEN FND_API.G_EXC_ERROR THEN
1036: ROLLBACK TO Validate_Worksheet_Pvt;
1037: p_return_status := FND_API.G_RET_STS_ERROR ;
1038: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1039: p_data => p_msg_data);
1040:
1041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1042: ROLLBACK TO Validate_Worksheet_Pvt;
1040:
1041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1042: ROLLBACK TO Validate_Worksheet_Pvt;
1043: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1044: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1045: p_data => p_msg_data);
1046:
1047: WHEN OTHERS THEN
1048: ROLLBACK TO Validate_Worksheet_Pvt;
1047: WHEN OTHERS THEN
1048: ROLLBACK TO Validate_Worksheet_Pvt;
1049: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1050:
1051: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1052: p_data => p_msg_data);
1053:
1054:
1055: END Validate_Worksheet;