207: l_message VARCHAR2(1000);
208: BEGIN
209: -- FND_PROFILE.GET('CONC_REQUEST_ID', str_request_id);
210: -- if str_request_id is not null then -- call is via a conc program
211: IF FND_GLOBAL.CONC_REQUEST_ID > 0 THEN -- call is via a conc program
212: request_from :='C'; -- set request type C for CONC
213: request_id_l := FND_GLOBAL.CONC_REQUEST_ID; -- set request id to conc request id
214: elsif ( FND_GLOBAL.USER_ID > 0) THEN -- check if call from apps program
215: request_from :='P'; -- P for PROG , cal by program
209: -- FND_PROFILE.GET('CONC_REQUEST_ID', str_request_id);
210: -- if str_request_id is not null then -- call is via a conc program
211: IF FND_GLOBAL.CONC_REQUEST_ID > 0 THEN -- call is via a conc program
212: request_from :='C'; -- set request type C for CONC
213: request_id_l := FND_GLOBAL.CONC_REQUEST_ID; -- set request id to conc request id
214: elsif ( FND_GLOBAL.USER_ID > 0) THEN -- check if call from apps program
215: request_from :='P'; -- P for PROG , cal by program
216: -- generate it from sequence
217: SELECT fnd_stats_hist_s.nextval
210: -- if str_request_id is not null then -- call is via a conc program
211: IF FND_GLOBAL.CONC_REQUEST_ID > 0 THEN -- call is via a conc program
212: request_from :='C'; -- set request type C for CONC
213: request_id_l := FND_GLOBAL.CONC_REQUEST_ID; -- set request id to conc request id
214: elsif ( FND_GLOBAL.USER_ID > 0) THEN -- check if call from apps program
215: request_from :='P'; -- P for PROG , cal by program
216: -- generate it from sequence
217: SELECT fnd_stats_hist_s.nextval
218: INTO request_id_l