777: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
778: raise FND_API.G_EXC_ERROR;
779: end if;
780: --
781: PSB_MESSAGE_S.Print_Success;
782: retcode := 0 ;
783: --
784: COMMIT WORK;
785: --
796: p_concurrency_class => 'WORKSHEET_CREATION',
797: p_concurrency_entity_name => 'WORKSHEET',
798: p_concurrency_entity_id => p_worksheet_id);
799:
800: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
801: p_print_header => FND_API.G_TRUE );
802: retcode := 2 ;
803: COMMIT WORK ;
804: --
812: p_concurrency_class => 'WORKSHEET_CREATION',
813: p_concurrency_entity_name => 'WORKSHEET',
814: p_concurrency_entity_id => p_worksheet_id);
815:
816: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
817: p_print_header => FND_API.G_TRUE );
818: retcode := 2 ;
819: COMMIT WORK ;
820: --
837: END IF ;
838: --
839: l_return_status := FND_API.G_RET_STS_ERROR;
840:
841: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
842: p_print_header => FND_API.G_TRUE );
843: --
844: retcode := 2 ;
845: COMMIT WORK ;
922: NULL;
923:
924: END IF;
925:
926: PSB_MESSAGE_S.Print_Success;
927: retcode := 0 ;
928: --
929: COMMIT WORK;
930: --
940: p_concurrency_class => 'WORKSHEET_CREATION',
941: p_concurrency_entity_name => 'WORKSHEET',
942: p_concurrency_entity_id => p_worksheet_id);
943:
944: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
945: p_print_header => FND_API.G_TRUE );
946: retcode := 2 ;
947: COMMIT WORK ;
948:
956: p_concurrency_class => 'WORKSHEET_CREATION',
957: p_concurrency_entity_name => 'WORKSHEET',
958: p_concurrency_entity_id => p_worksheet_id);
959:
960: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
961: p_print_header => FND_API.G_TRUE );
962: retcode := 2 ;
963: COMMIT WORK ;
964:
978: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
979: l_api_name ) ;
980: END IF ;
981: --
982: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
983: p_print_header => FND_API.G_TRUE );
984: --
985: retcode := 2 ;
986: COMMIT WORK ;
1041: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1042: raise FND_API.G_EXC_ERROR;
1043: end if;
1044:
1045: PSB_MESSAGE_S.Print_Success;
1046: retcode := 0 ;
1047: --
1048: COMMIT WORK;
1049: --
1050: EXCEPTION
1051:
1052: WHEN FND_API.G_EXC_ERROR THEN
1053:
1054: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1055: p_print_header => FND_API.G_TRUE );
1056: retcode := 2 ;
1057: COMMIT WORK ;
1058:
1057: COMMIT WORK ;
1058:
1059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1060:
1061: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1062: p_print_header => FND_API.G_TRUE );
1063: retcode := 2 ;
1064: COMMIT WORK ;
1065:
1070: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1071: l_api_name ) ;
1072: END IF ;
1073: --
1074: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1075: p_print_header => FND_API.G_TRUE );
1076: --
1077: retcode := 2 ;
1078: COMMIT WORK ;