DBA Data[Home] [Help]

APPS.BEN_EXT_WRITE dependencies on HR_UTILITY

Line 98: hr_utility.set_location('Entering'||l_proc, 5);

94: l_proc varchar2(72) := g_package||'initialize_globals';
95: --
96: begin
97: --
98: hr_utility.set_location('Entering'||l_proc, 5);
99: --
100: g_last_rcd_processed := null;
101: g_business_group_id := null;
102: g_err_name := null;

Line 126: hr_utility.set_location('Exiting'||l_proc, 15);

122: g_array(i).highest_seq_num := null;
123: end if;
124: end loop; */
125: --
126: hr_utility.set_location('Exiting'||l_proc, 15);
127: --
128: end initialize_globals;
129: -----------------------------------------------------------------------------
130: --

Line 154: hr_utility.set_location('Entering'||l_proc, 5);

150: l_proc varchar2(72) := g_package||'load_strt_pos';
151: --
152: begin
153: --
154: hr_utility.set_location('Entering'||l_proc, 5);
155: --
156: for l_xer in c_xer loop
157: if l_xer.seq_num = 1 then
158: g_array(p_seq_num).strt_pos_01 := l_xer.strt_pos;

Line 1964: hr_utility.set_location('Exiting'||l_proc, 15);

1960: g_array(p_seq_num).highest_seq_num := l_xer.seq_num;
1961: --
1962: end loop;
1963: --
1964: hr_utility.set_location('Exiting'||l_proc, 15);
1965: --
1966: end load_strt_pos;
1967: -----------------------------------------------------------------------------
1968: procedure load_arrays

Line 2276: hr_utility.set_location('Entering'||l_proc, 5);

2272: l_proc varchar2(72) := g_package||'load_arrays';
2273: --
2274: begin
2275: --
2276: hr_utility.set_location('Entering'||l_proc, 5);
2277: --
2278: g_val(01) := p_val_01;
2279: g_val(02) := p_val_02;
2280: g_val(03) := p_val_03;

Line 4098: hr_utility.set_location('Exiting'||l_proc, 15);

4094: g_last_rcd_processed := p_ext_rcd_id;
4095: --
4096: end if;
4097: --
4098: hr_utility.set_location('Exiting'||l_proc, 15);
4099: --
4100: --
4101: end load_arrays;
4102: -----------------------------------------------------------------------------

Line 4113: hr_utility.set_location('Entering'||l_proc, 5);

4109: --
4110: l_err_name varchar2(2000) ;
4111: begin
4112: --
4113: hr_utility.set_location('Entering'||l_proc, 5);
4114: if l_value is not null then
4115: if to_number(substr(p_err_name,5,5)) = 91870 then
4116: l_err_name := ben_ext_fmt.get_error_msg(to_number(substr(p_err_name,5,5)) ,p_err_name ) ;
4117: l_err_name := l_err_name || ' - '|| l_value ;

Line 4132: hr_utility.set_location('Exiting'||l_proc, 15);

4128: p_business_group_id => g_business_group_id);
4129: commit;
4130: end if;
4131: --
4132: hr_utility.set_location('Exiting'||l_proc, 15);
4133: --
4134: --
4135: end write_warning;
4136: -----------------------------------------------------------------------------

Line 4571: hr_Utility.set_location('Entering'||l_proc, 5);

4567: l_prev_person_id Number ;
4568: --
4569: begin
4570: --
4571: hr_Utility.set_location('Entering'||l_proc, 5);
4572: --
4573: initialize_globals;
4574:
4575: --

Line 4631: hr_Utility.set_location('dir '||l_drctry_name, 5);

4627: g_err_name := 'BEN_91875_EXT_INVLD_STAT';
4628: raise job_failure;
4629: end if;
4630: --
4631: hr_Utility.set_location('dir '||l_drctry_name, 5);
4632: /*
4633: -- 4143619 - Dont need this SQL for validating the directory
4634: -- if utl_file.fopen fails to find the directory, it will
4635: -- raise invalid path exception where this message will now be displayed.

Line 4762: hr_utility.set_location(' writing last person Record ' || l_prev_person_id, 99 ) ;

4758: -- and reintialise the variable
4759:
4760: if g_person_id <> l_prev_person_id and l_prev_elmt_short_name = 'RECLINKS' and l_val_all is not null then
4761:
4762: hr_utility.set_location(' writing last person Record ' || l_prev_person_id, 99 ) ;
4763:
4764: if nvl(l_spcl_hndl_flag,'x') = 'Y' and l_delimiter is not null then
4765: if l_val_all is not null and length(l_val_all) > 1 then
4766: l_val_all := rtrim(substr(l_val_all,1, (length(l_val_all)-1)),l_delimiter)

Line 4768: hr_utility.set_location(' triming ' , 428 );

4764: if nvl(l_spcl_hndl_flag,'x') = 'Y' and l_delimiter is not null then
4765: if l_val_all is not null and length(l_val_all) > 1 then
4766: l_val_all := rtrim(substr(l_val_all,1, (length(l_val_all)-1)),l_delimiter)
4767: || substr(l_val_all,-1) ;
4768: hr_utility.set_location(' triming ' , 428 );
4769: end if ;
4770:
4771: end if ;
4772: if l_cm_display_flag = 'Y' then

Line 5089: hr_utility.set_location( 'high seq ' || g_array(l_xrd.seq_num).highest_seq_num , 70) ;

5085: --
5086: l_delimiter := null ;
5087: l_last_elmt_short_name := null ;
5088: l_prev_seq_num := null ;
5089: hr_utility.set_location( 'high seq ' || g_array(l_xrd.seq_num).highest_seq_num , 70) ;
5090: hr_utility.set_location( 'seq ' || l_xrd.seq_num, 70) ;
5091:
5092: for k in 1..g_array(l_xrd.seq_num).highest_seq_num loop
5093: --

Line 5090: hr_utility.set_location( 'seq ' || l_xrd.seq_num, 70) ;

5086: l_delimiter := null ;
5087: l_last_elmt_short_name := null ;
5088: l_prev_seq_num := null ;
5089: hr_utility.set_location( 'high seq ' || g_array(l_xrd.seq_num).highest_seq_num , 70) ;
5090: hr_utility.set_location( 'seq ' || l_xrd.seq_num, 70) ;
5091:
5092: for k in 1..g_array(l_xrd.seq_num).highest_seq_num loop
5093: --
5094: -- added condition for 4242821

Line 5099: hr_utility.set_location( ' before length ', 99);

5095: --
5096: if g_hide_flag(k) = 'N' then
5097: if l_val is not null and g_strt_pos(k) is not null then
5098: --
5099: hr_utility.set_location( ' before length ', 99);
5100: -- determine number of characters that need to be written.
5101: l_length := g_strt_pos(k) - 1 - l_accum_length;
5102:
5103: hr_utility.set_location( ' length ' || l_length , 99);

Line 5103: hr_utility.set_location( ' length ' || l_length , 99);

5099: hr_utility.set_location( ' before length ', 99);
5100: -- determine number of characters that need to be written.
5101: l_length := g_strt_pos(k) - 1 - l_accum_length;
5102:
5103: hr_utility.set_location( ' length ' || l_length , 99);
5104: hr_utility.set_location( ' length val ' || length(l_val) , 99);
5105: -- validate whether l_val length is more then the max line sixe
5106: -- if the size more then 32700 then the variable may error so validate
5107: if length(l_val) > l_max_ext_line_size then

Line 5104: hr_utility.set_location( ' length val ' || length(l_val) , 99);

5100: -- determine number of characters that need to be written.
5101: l_length := g_strt_pos(k) - 1 - l_accum_length;
5102:
5103: hr_utility.set_location( ' length ' || l_length , 99);
5104: hr_utility.set_location( ' length val ' || length(l_val) , 99);
5105: -- validate whether l_val length is more then the max line sixe
5106: -- if the size more then 32700 then the variable may error so validate
5107: if length(l_val) > l_max_ext_line_size then
5108: raise utl_file.invalid_maxlinesize ;

Line 5118: hr_utility.set_location( ' element ' || l_ext_data_elmt_name || ' - '|| l_prev_seq_num , 99);

5114: l_ext_data_elmt_name := null ;
5115: open c_xel_name (l_xrd.ext_rcd_id,l_prev_seq_num) ;
5116: fetch c_xel_name into l_ext_data_elmt_name ;
5117: close c_xel_name ;
5118: hr_utility.set_location( ' element ' || l_ext_data_elmt_name || ' - '|| l_prev_seq_num , 99);
5119: write_warning('BEN_91870_EXT_TRUNC_WARN' , p_ext_rslt_id ,l_ext_data_elmt_name );
5120: end if;
5121: -- if l_val exceeds l_length we must truncate.
5122: l_val := substr(l_val,1,l_length);

Line 5135: hr_utility.set_location( ' length l_val_all ' || length(l_val_all||l_val) , 99);

5131: -- assignment and moved to final put_line.
5132:
5133: -- when the lenght exceeds the max length then throw the error with
5134: -- dont let the system erroes with ORA error
5135: hr_utility.set_location( ' length l_val_all ' || length(l_val_all||l_val) , 99);
5136: if length(l_val_all||l_val) > l_max_ext_line_size then -- variable defined to 32700
5137: hr_utility.set_location( ' raise warning ' || length(l_val_all||l_val) , 99);
5138: raise utl_file.invalid_maxlinesize ;
5139: end if ;

Line 5137: hr_utility.set_location( ' raise warning ' || length(l_val_all||l_val) , 99);

5133: -- when the lenght exceeds the max length then throw the error with
5134: -- dont let the system erroes with ORA error
5135: hr_utility.set_location( ' length l_val_all ' || length(l_val_all||l_val) , 99);
5136: if length(l_val_all||l_val) > l_max_ext_line_size then -- variable defined to 32700
5137: hr_utility.set_location( ' raise warning ' || length(l_val_all||l_val) , 99);
5138: raise utl_file.invalid_maxlinesize ;
5139: end if ;
5140:
5141: l_val_all:=l_val_all||l_val;

Line 5162: hr_utility.set_location( ' raise warning ' || length(l_val || l_tmp || g_dlmtr_val(k)) , 99);

5158: end if;
5159:
5160: -- build the record.
5161: if length(l_val || l_tmp || g_dlmtr_val(k)) > l_max_ext_line_size then -- variable defined to 32700
5162: hr_utility.set_location( ' raise warning ' || length(l_val || l_tmp || g_dlmtr_val(k)) , 99);
5163: raise utl_file.invalid_maxlinesize ;
5164: end if ;
5165:
5166: l_val := l_val || l_tmp || g_dlmtr_val(k);

Line 5190: hr_utility.set_location( ' length l_val_all ' || length(l_val_all||l_val) , 99);

5186: l_last_elmt_short_name := nvl( g_short_name(k) , '-1') ;
5187: end loop;
5188:
5189:
5190: hr_utility.set_location( ' length l_val_all ' || length(l_val_all||l_val) , 99);
5191: -- when the lenght exceeds the max length then throw the error with
5192: -- dont let the system erroes with ORA error
5193: if length(l_val_all||l_val) > l_max_ext_line_size then -- variable defined to 32700
5194: hr_utility.set_location( ' raise warning ' || length(l_val_all||l_val) , 99);

Line 5194: hr_utility.set_location( ' raise warning ' || length(l_val_all||l_val) , 99);

5190: hr_utility.set_location( ' length l_val_all ' || length(l_val_all||l_val) , 99);
5191: -- when the lenght exceeds the max length then throw the error with
5192: -- dont let the system erroes with ORA error
5193: if length(l_val_all||l_val) > l_max_ext_line_size then -- variable defined to 32700
5194: hr_utility.set_location( ' raise warning ' || length(l_val_all||l_val) , 99);
5195: raise utl_file.invalid_maxlinesize ;
5196: end if ;
5197:
5198: l_val_all := l_val_all||l_val ;

Line 5203: hr_utility.set_location(' last_elmt_short_name ' || l_last_elmt_short_name, 428 );

5199:
5200:
5201: --- whne the last element is 'RECLINKS' then dont write to the file
5202: -- continue with next record
5203: hr_utility.set_location(' last_elmt_short_name ' || l_last_elmt_short_name, 428 );
5204: if l_last_elmt_short_name <> 'RECLINKS' then
5205: -- when the last coulmns are null the delimiter appear in record
5206: -- as per ansi std the last deliter should not apper without data in the column
5207: -- the reciord end with data then the endof record delimiter , there should not be

Line 5214: hr_utility.set_location(' triming ' , 428 );

5210: if nvl(l_spcl_hndl_flag,'x') = 'Y' and l_delimiter is not null then
5211: if l_val_all is not null and length(l_val_all) > 1 then
5212: l_val_all := rtrim(substr(l_val_all,1, (length(l_val_all)-1)),l_delimiter)
5213: || substr(l_val_all,-1) ;
5214: hr_utility.set_location(' triming ' , 428 );
5215: end if ;
5216:
5217: end if ;
5218: --

Line 5246: hr_utility.set_location(' triming ' , 428 );

5242: if nvl(l_spcl_hndl_flag,'x') = 'Y' and l_delimiter is not null then
5243: if l_val_all is not null and length(l_val_all) > 1 then
5244: l_val_all := rtrim(substr(l_val_all,1, (length(l_val_all)-1)),l_delimiter)
5245: || substr(l_val_all,-1) ;
5246: hr_utility.set_location(' triming ' , 428 );
5247: end if ;
5248: end if ;
5249: if l_cm_display_flag = 'Y' then
5250: fnd_file.put_line(FND_FILE.OUTPUT, l_val_all ) ;

Line 5292: hr_utility.set_location('Exiting'||l_proc, 15);

5288: fnd_message.set_name('BEN','BEN_91878_EXT_TTL_RCRDS');
5289: fnd_file.put_line(fnd_file.log, to_char(l_rcd_count)||' '||fnd_message.get || ' ' || l_drctry_name||'/'||l_output_name);
5290: --
5291: --
5292: hr_utility.set_location('Exiting'||l_proc, 15);
5293: --
5294: --
5295: EXCEPTION
5296: --

Line 5350: hr_utility.set_location ( ' other excep ' || substr(sqlerrm,1,70) , 99 ) ;

5346: -- End - Bug : 2066883
5347: -- -----------------------------------------------------------------------
5348:
5349: WHEN others THEN
5350: hr_utility.set_location ( ' other excep ' || substr(sqlerrm,1,70) , 99 ) ;
5351: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
5352: fnd_message.set_token('2',substr(sqlerrm,1,200));
5353: fnd_file.put_line(fnd_file.log, fnd_message.get);
5354: fnd_message.raise_error;