275: p_legal_entity => pn_legal_entity_id,
276: p_bsv => pv_bsv);
277: IF l_bsv_le <> true THEN
278: pv_retcode :=1;
279: FND_MESSAGE.SET_NAME('JA','JA_CN_BSV_VALIDATION') ;
280: l_mes := FND_MESSAGE.GET;
281: FND_FILE.PUT_LINE(FND_FILE.LOG,GV_MODULE_PREFIX || '.' || lv_procedure_name||':'||l_mes);
282: --APP_EXCEPTION.RAISE_EXCEPTION ;
283: RETURN;
276: p_bsv => pv_bsv);
277: IF l_bsv_le <> true THEN
278: pv_retcode :=1;
279: FND_MESSAGE.SET_NAME('JA','JA_CN_BSV_VALIDATION') ;
280: l_mes := FND_MESSAGE.GET;
281: FND_FILE.PUT_LINE(FND_FILE.LOG,GV_MODULE_PREFIX || '.' || lv_procedure_name||':'||l_mes);
282: --APP_EXCEPTION.RAISE_EXCEPTION ;
283: RETURN;
284: ELSE
286: p_das => l_access_set,
287: p_bsv => pv_bsv);
288:
289: IF l_das_bsv =-2 THEN
290: FND_MESSAGE.SET_NAME('FND','FLEX-EXCLUDED BY SEC. RULE') ;
291: FND_MESSAGE.SET_TOKEN ('MESSAGE',pv_bsv);
292: l_mes := FND_MESSAGE.GET;
293: FND_FILE.PUT_LINE(FND_FILE.LOG,'Waring:'||l_mes);
294: pv_retcode :=1;
287: p_bsv => pv_bsv);
288:
289: IF l_das_bsv =-2 THEN
290: FND_MESSAGE.SET_NAME('FND','FLEX-EXCLUDED BY SEC. RULE') ;
291: FND_MESSAGE.SET_TOKEN ('MESSAGE',pv_bsv);
292: l_mes := FND_MESSAGE.GET;
293: FND_FILE.PUT_LINE(FND_FILE.LOG,'Waring:'||l_mes);
294: pv_retcode :=1;
295: RETURN;
288:
289: IF l_das_bsv =-2 THEN
290: FND_MESSAGE.SET_NAME('FND','FLEX-EXCLUDED BY SEC. RULE') ;
291: FND_MESSAGE.SET_TOKEN ('MESSAGE',pv_bsv);
292: l_mes := FND_MESSAGE.GET;
293: FND_FILE.PUT_LINE(FND_FILE.LOG,'Waring:'||l_mes);
294: pv_retcode :=1;
295: RETURN;
296: ELSIF l_das_bsv =-1 THEN
293: FND_FILE.PUT_LINE(FND_FILE.LOG,'Waring:'||l_mes);
294: pv_retcode :=1;
295: RETURN;
296: ELSIF l_das_bsv =-1 THEN
297: FND_MESSAGE.SET_NAME('SQLGL','GLCORE_NO_ACCESS') ;
298: l_mes := FND_MESSAGE.GET;
299: FND_FILE.PUT_LINE(FND_FILE.LOG,'Waring:'||l_mes);
300: pv_retcode :=1;
301: RETURN;
294: pv_retcode :=1;
295: RETURN;
296: ELSIF l_das_bsv =-1 THEN
297: FND_MESSAGE.SET_NAME('SQLGL','GLCORE_NO_ACCESS') ;
298: l_mes := FND_MESSAGE.GET;
299: FND_FILE.PUT_LINE(FND_FILE.LOG,'Waring:'||l_mes);
300: pv_retcode :=1;
301: RETURN;
302: END IF;