[Home] [Help]
719: -- SAVEPOINT Populate_Budget_Acct_CP_Pvt ;
720: --
721: IF ( p_set_of_books_id = FND_API.G_MISS_NUM ) OR ( p_set_of_books_id IS NULL)
722: THEN
723: FND_FILE.Put_Line( FND_FILE.OUTPUT,
724: 'Set of books Name : ALL');
725: ELSE
726: --
727: SELECT name INTO l_set_of_books_name
727: SELECT name INTO l_set_of_books_name
728: FROM gl_sets_of_books
729: WHERE set_of_books_id = p_set_of_books_id ;
730: --
731: FND_FILE.Put_Line( FND_FILE.OUTPUT,
732: 'Set of books name : ' || l_set_of_books_name );
733: --
734: END IF;
735: --
736:
737: --
738: IF ( p_account_set_id = FND_API.G_MISS_NUM ) OR ( p_account_set_id IS NULL)
739: THEN
740: FND_FILE.Put_Line( FND_FILE.OUTPUT, 'Account set name : ALL');
741: ELSE
742: --
743: SELECT name INTO l_account_set_name
744: FROM psb_account_position_sets
743: SELECT name INTO l_account_set_name
744: FROM psb_account_position_sets
745: WHERE account_position_set_id = p_account_set_id ;
746: --
747: FND_FILE.Put_Line( FND_FILE.OUTPUT,
748: 'Account set name : ' || l_account_set_name );
749: --
750: END IF;
751: --
779: --
780: WHEN FND_API.G_EXC_ERROR THEN
781: --
782: -- ROLLBACK TO Populate_Budget_Acct_CP_Pvt ;
783: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
784: p_print_header => FND_API.G_TRUE ) ;
785: retcode := 2 ;
786: --
787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
786: --
787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
788: --
789: -- ROLLBACK TO Populate_Budget_Acct_CP_Pvt ;
790: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
791: p_print_header => FND_API.G_TRUE ) ;
792: retcode := 2 ;
793: --
794: WHEN OTHERS THEN
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 ,
804: p_print_header => FND_API.G_TRUE ) ;
805: retcode := 2 ;
806: --
807: END Populate_Budget_Accounts_CP ;
878: EXCEPTION
879:
880: WHEN FND_API.G_EXC_ERROR THEN
881:
882: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
883: p_print_header => FND_API.G_TRUE );
884: retcode := 2 ;
885: COMMIT WORK ;
886:
885: COMMIT WORK ;
886:
887: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
888:
889: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
890: p_print_header => FND_API.G_TRUE );
891: retcode := 2 ;
892: COMMIT WORK ;
893:
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 ,
903: p_print_header => FND_API.G_TRUE );
904: --
905: retcode := 2 ;
906: COMMIT WORK ;