eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FV_CCR_BPN_LOAD_PKG dependencies on FND_LOG

Line 19: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module, 'Flag String: ' || l_flags_str);

15: l_errbuff varchar2(2000);
16:
17:
18: begin
19: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module, 'Flag String: ' || l_flags_str);
20: if p_no_flags <> l_flags_counter then
21: fv_utility.log_mesg(FND_LOG.LEVEL_STATEMENT,l_module,'Count mismatch between flags present in string and counter passed.');
22: return false;
23: end if;

Line 21: fv_utility.log_mesg(FND_LOG.LEVEL_STATEMENT,l_module,'Count mismatch between flags present in string and counter passed.');

17:
18: begin
19: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module, 'Flag String: ' || l_flags_str);
20: if p_no_flags <> l_flags_counter then
21: fv_utility.log_mesg(FND_LOG.LEVEL_STATEMENT,l_module,'Count mismatch between flags present in string and counter passed.');
22: return false;
23: end if;
24:
25: for i in 1..l_flags_counter loop

Line 30: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module, 'Flag: ' || l_flag || '. Value : '|| l_flag_val);

26: l_flag := substr(l_flags_str,l_from_ind, l_length);
27: l_flag_val := substr(l_flags_str,l_from_ind +l_length,1);
28: l_from_ind := i*4+1;
29: --dbms_output.put_line('Flag: ' || l_flag || '. Value : '|| l_flag_val);
30: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,l_module, 'Flag: ' || l_flag || '. Value : '|| l_flag_val);
31: insert into fv_ccr_flags(duns, flagtype, flagval) values(p_duns,
32: l_flag,
33: l_flag_val);
34: end loop;

Line 70: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);

66: l_code_delim varchar2(1) := '.';
67: begin
68: l_module_name := 'Insert CCR Codes';
69: l_errbuf := 'Start. DUNS Number: '|| duns_num;
70: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);
71: --codeType(1) := 'BUS TYPE';
72: --codeType(2) := 'SIC CODE';
73: --codeType(3) := 'NAICS CODE';
74: --codeType(4) := 'FSC CODE';

Line 89: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','BEGIN.');

85: codeType(9) := 'CCR Numerics';
86: codeType(10) := 'Disaster Response';
87: --select ccr_info into clob_buff from junk_tab where rownum < 2;
88: --clob_length := dbms_lob.getlength(clob_buff);
89: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','BEGIN.');
90: for field_counter in field_count_low..field_count_high
91: loop
92: --insert into fv_ccr_bpn_log_messages values('Inside CCR_CODES','Looking from occurrence no: '||2*(field_counter+count_offset)+1);commit;
93: ext_from := dbms_lob.instr(clob_buff, delimiter, from_index, 2*(field_counter+count_offset)+1);--count_offset)+1); --(txt, delim, from (1), 2*(field_counter+count_offset)+1 is the nth occurrence of delimiter)

Line 95: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Entering for loop. DUNS received is ' || duns_num);

91: loop
92: --insert into fv_ccr_bpn_log_messages values('Inside CCR_CODES','Looking from occurrence no: '||2*(field_counter+count_offset)+1);commit;
93: ext_from := dbms_lob.instr(clob_buff, delimiter, from_index, 2*(field_counter+count_offset)+1);--count_offset)+1); --(txt, delim, from (1), 2*(field_counter+count_offset)+1 is the nth occurrence of delimiter)
94: ext_to := dbms_lob.instr(clob_buff, delimiter, from_index, 2*(field_counter+count_offset)+2);--count_offset)+2);
95: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Entering for loop. DUNS received is ' || duns_num);
96: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Looking for counter b/w ' || ext_from || ' &' || ext_to);
97: if (ext_from is NULL or ext_to is NULL) then
98: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','ext_from or ext_to is NULL');
99: return;

Line 96: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Looking for counter b/w ' || ext_from || ' &' || ext_to);

92: --insert into fv_ccr_bpn_log_messages values('Inside CCR_CODES','Looking from occurrence no: '||2*(field_counter+count_offset)+1);commit;
93: ext_from := dbms_lob.instr(clob_buff, delimiter, from_index, 2*(field_counter+count_offset)+1);--count_offset)+1); --(txt, delim, from (1), 2*(field_counter+count_offset)+1 is the nth occurrence of delimiter)
94: ext_to := dbms_lob.instr(clob_buff, delimiter, from_index, 2*(field_counter+count_offset)+2);--count_offset)+2);
95: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Entering for loop. DUNS received is ' || duns_num);
96: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Looking for counter b/w ' || ext_from || ' &' || ext_to);
97: if (ext_from is NULL or ext_to is NULL) then
98: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','ext_from or ext_to is NULL');
99: return;
100: end if;

Line 98: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','ext_from or ext_to is NULL');

94: ext_to := dbms_lob.instr(clob_buff, delimiter, from_index, 2*(field_counter+count_offset)+2);--count_offset)+2);
95: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Entering for loop. DUNS received is ' || duns_num);
96: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Looking for counter b/w ' || ext_from || ' &' || ext_to);
97: if (ext_from is NULL or ext_to is NULL) then
98: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','ext_from or ext_to is NULL');
99: return;
100: end if;
101: if(ext_to-ext_from > 1) then
102: code_count := dbms_lob.substr(clob_buff,ext_to-ext_from-1,ext_from+1);

Line 103: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted counter is ' || code_count);

99: return;
100: end if;
101: if(ext_to-ext_from > 1) then
102: code_count := dbms_lob.substr(clob_buff,ext_to-ext_from-1,ext_from+1);
103: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted counter is ' || code_count);
104: else
105: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted counter is NULL');
106: end if;
107:

Line 105: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted counter is NULL');

101: if(ext_to-ext_from > 1) then
102: code_count := dbms_lob.substr(clob_buff,ext_to-ext_from-1,ext_from+1);
103: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted counter is ' || code_count);
104: else
105: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted counter is NULL');
106: end if;
107:
108: select to_number(nvl(code_count,0)) into countmax from dual;
109: if countmax > 0 then

Line 113: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','from_index, field_counter, count_offset, code_counter: ' || from_index || ' , ' || field_counter || ' , ' || count_offset || ' , ' || code_counter);

109: if countmax > 0 then
110: ext_from := ext_to +3;
111: end if;
112: for code_counter in 1..countmax loop
113: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','from_index, field_counter, count_offset, code_counter: ' || from_index || ' , ' || field_counter || ' , ' || count_offset || ' , ' || code_counter);
114: --ext_from := dbms_lob.instr(clob_buff, l_code_delim, from_index, 2*(field_counter+count_offset+code_counter)+1); --From_index in place of 1
115:
116: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','from_index, field_counter, count_offset, code_counter: ' || from_index || ' , ' || field_counter|| ' , ' || count_offset|| ' , ' ||code_counter);
117: -- ext_to := dbms_lob.instr(clob_buff,l_code_delim,from_index,code_counter);--2*(field_counter+count_offset+code_counter)+2);--From_index in place of 1

Line 116: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','from_index, field_counter, count_offset, code_counter: ' || from_index || ' , ' || field_counter|| ' , ' || count_offset|| ' , ' ||code_counter);

112: for code_counter in 1..countmax loop
113: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','from_index, field_counter, count_offset, code_counter: ' || from_index || ' , ' || field_counter || ' , ' || count_offset || ' , ' || code_counter);
114: --ext_from := dbms_lob.instr(clob_buff, l_code_delim, from_index, 2*(field_counter+count_offset+code_counter)+1); --From_index in place of 1
115:
116: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','from_index, field_counter, count_offset, code_counter: ' || from_index || ' , ' || field_counter|| ' , ' || count_offset|| ' , ' ||code_counter);
117: -- ext_to := dbms_lob.instr(clob_buff,l_code_delim,from_index,code_counter);--2*(field_counter+count_offset+code_counter)+2);--From_index in place of 1
118: ext_to := dbms_lob.instr(clob_buff,l_code_delim,ext_from,1);--code_counter);
119: if code_counter = countmax then
120: ext_to := dbms_lob.instr(clob_buff,delimiter,ext_from,1);--2*(field_counter+count_offset+code_counter)+2);--From_index in place of 1

Line 122: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Looking for code b/w ' || ext_from || ' &' || ext_to);

118: ext_to := dbms_lob.instr(clob_buff,l_code_delim,ext_from,1);--code_counter);
119: if code_counter = countmax then
120: ext_to := dbms_lob.instr(clob_buff,delimiter,ext_from,1);--2*(field_counter+count_offset+code_counter)+2);--From_index in place of 1
121: end if;
122: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Looking for code b/w ' || ext_from || ' &' || ext_to);
123: if(ext_to-ext_from > 1) then
124: code := dbms_lob.substr(clob_buff,ext_to-ext_from,ext_from);
125: --field := dbsm_lob.substr(clob_buff,
126: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted code is ' || code);

Line 126: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted code is ' || code);

122: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Looking for code b/w ' || ext_from || ' &' || ext_to);
123: if(ext_to-ext_from > 1) then
124: code := dbms_lob.substr(clob_buff,ext_to-ext_from,ext_from);
125: --field := dbsm_lob.substr(clob_buff,
126: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted code is ' || code);
127: insert into fv_ccr_class_codes(duns, codetype, code) values(duns_num,
128: codeType(field_counter+proc_count+1),
129: code);
130: else

Line 131: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted code is NULL');

127: insert into fv_ccr_class_codes(duns, codetype, code) values(duns_num,
128: codeType(field_counter+proc_count+1),
129: code);
130: else
131: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Extracted code is NULL');
132: end if;
133: ext_from :=ext_to +1;
134: end loop;
135: -- if countmax > 0 then

Line 144: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);

140: ext_to := ext_to+3;
141: end if;
142: retpos := ext_to+2;
143: l_errbuf := 'End. DUNS Number: '|| duns_num;
144: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);
145: exception
146: when others then
147: l_errbuf := ' Exception: '||l_module_name||'->'||SQLERRM;
148: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside CCR_CODES',l_errbuf);

Line 148: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside CCR_CODES',l_errbuf);

144: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);
145: exception
146: when others then
147: l_errbuf := ' Exception: '||l_module_name||'->'||SQLERRM;
148: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside CCR_CODES',l_errbuf);
149: raise_application_error(-20100, l_errbuf);
150: end insert_ccr_codes;
151:
152: procedure insert_ccr_data(clob_buff in clob,

Line 172: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);

168: l_errbuf varchar2(1000);
169: begin
170: l_module_name := 'CCR_DATA';
171: l_errbuf := 'Start';
172: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
173:
174: for field_counter in field_count_low..field_count_high
175: loop
176: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Entering for loop.');

Line 176: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Entering for loop.');

172: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
173:
174: for field_counter in field_count_low..field_count_high
175: loop
176: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Entering for loop.');
177: ext_from := dbms_lob.instr(clob_buff, delimiter, from_index, 2*field_counter+1);
178: ext_to := dbms_lob.instr(clob_buff,delimiter,from_index,2*field_counter+2);
179: if (ext_from is NULL or ext_to is NULL) then
180: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','ext_from or ext_to is NULL');

Line 180: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','ext_from or ext_to is NULL');

176: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Entering for loop.');
177: ext_from := dbms_lob.instr(clob_buff, delimiter, from_index, 2*field_counter+1);
178: ext_to := dbms_lob.instr(clob_buff,delimiter,from_index,2*field_counter+2);
179: if (ext_from is NULL or ext_to is NULL) then
180: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','ext_from or ext_to is NULL');
181: return;
182: end if;
183: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extract from ' ||ext_from);
184: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extract till ' ||ext_to);

Line 183: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extract from ' ||ext_from);

179: if (ext_from is NULL or ext_to is NULL) then
180: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','ext_from or ext_to is NULL');
181: return;
182: end if;
183: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extract from ' ||ext_from);
184: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extract till ' ||ext_to);
185: if(ext_to-ext_from > 1) then
186: ccr_data(proc_count+field_counter+1) := dbms_lob.substr(clob_buff,ext_to-ext_from-1,ext_from+1);
187: --field := dbsm_lob.substr(clob_buff,

Line 184: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extract till ' ||ext_to);

180: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','ext_from or ext_to is NULL');
181: return;
182: end if;
183: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extract from ' ||ext_from);
184: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extract till ' ||ext_to);
185: if(ext_to-ext_from > 1) then
186: ccr_data(proc_count+field_counter+1) := dbms_lob.substr(clob_buff,ext_to-ext_from-1,ext_from+1);
187: --field := dbsm_lob.substr(clob_buff,
188: if(ccr_data(proc_count+field_counter+1)='!end')then return; end if;

Line 189: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extracted field ccr_data( ' || to_char(proc_count+field_counter+1) || ') is ' || ccr_data(proc_count+field_counter+1));

185: if(ext_to-ext_from > 1) then
186: ccr_data(proc_count+field_counter+1) := dbms_lob.substr(clob_buff,ext_to-ext_from-1,ext_from+1);
187: --field := dbsm_lob.substr(clob_buff,
188: if(ccr_data(proc_count+field_counter+1)='!end')then return; end if;
189: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extracted field ccr_data( ' || to_char(proc_count+field_counter+1) || ') is ' || ccr_data(proc_count+field_counter+1));
190: else
191: ccr_data(proc_count+field_counter+1) := null;
192: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extracted field is NULL');
193: end if;

Line 192: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extracted field is NULL');

188: if(ccr_data(proc_count+field_counter+1)='!end')then return; end if;
189: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extracted field ccr_data( ' || to_char(proc_count+field_counter+1) || ') is ' || ccr_data(proc_count+field_counter+1));
190: else
191: ccr_data(proc_count+field_counter+1) := null;
192: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA','Extracted field is NULL');
193: end if;
194: ext_from := ext_to;
195: --dbms_output.put_line(substr(buff,1,10));
196: end loop;

Line 197: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA', 'End');

193: end if;
194: ext_from := ext_to;
195: --dbms_output.put_line(substr(buff,1,10));
196: end loop;
197: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_DATA', 'End');
198: retpos := ext_to + 2;
199: exception
200: when others then
201: l_errbuf := ' Exception: Inside CCR_DATA ->'||SQLERRM;

Line 202: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside CCR_DATA',l_errbuf);

198: retpos := ext_to + 2;
199: exception
200: when others then
201: l_errbuf := ' Exception: Inside CCR_DATA ->'||SQLERRM;
202: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside CCR_DATA',l_errbuf);
203: raise_application_error(-20200, l_errbuf);
204:
205: /*l_errbuf := 'Exception occurred '||SQLERRM;
206: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside CCR_DATA','Unexpected exception: ' ||l_errbuf);

Line 206: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside CCR_DATA','Unexpected exception: ' ||l_errbuf);

202: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside CCR_DATA',l_errbuf);
203: raise_application_error(-20200, l_errbuf);
204:
205: /*l_errbuf := 'Exception occurred '||SQLERRM;
206: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside CCR_DATA','Unexpected exception: ' ||l_errbuf);
207: */
208: end insert_ccr_data;
209:
210:

Line 238: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, l_module_name,l_errbuf);

234: --ccr_codes.EXTEND(235);
235: delete from fv_ccr_file_temp;
236: -- delete from fv_ccr_class_codes;
237: -- delete from fv_ccr_flags;
238: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, l_module_name,l_errbuf);
239: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Entering for loop');
240: for rec in c_clob_data loop
241: clob_buff := rec.ccr_info;
242: --insert into fv_ccr_bpn_log_messages values('Clob text is', dbms_lob.substr(clob_buff,25,1));

Line 239: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Entering for loop');

235: delete from fv_ccr_file_temp;
236: -- delete from fv_ccr_class_codes;
237: -- delete from fv_ccr_flags;
238: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, l_module_name,l_errbuf);
239: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Entering for loop');
240: for rec in c_clob_data loop
241: clob_buff := rec.ccr_info;
242: --insert into fv_ccr_bpn_log_messages values('Clob text is', dbms_lob.substr(clob_buff,25,1));
243: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data. Identifying DUNS number.');

Line 243: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data. Identifying DUNS number.');

239: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Entering for loop');
240: for rec in c_clob_data loop
241: clob_buff := rec.ccr_info;
242: --insert into fv_ccr_bpn_log_messages values('Clob text is', dbms_lob.substr(clob_buff,25,1));
243: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data. Identifying DUNS number.');
244: insert_ccr_data(clob_buff,0,23,'"',0,from_index,ccr_data,to_index); -- 0 to 23 for BPN. 0 to 26 for BSD.
245: from_index := to_index;
246: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Returned from first call. Continue processing from '|| to_index);
247: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling ccr_codes to process DUNS ' || ccr_data(1));

Line 246: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Returned from first call. Continue processing from '|| to_index);

242: --insert into fv_ccr_bpn_log_messages values('Clob text is', dbms_lob.substr(clob_buff,25,1));
243: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data. Identifying DUNS number.');
244: insert_ccr_data(clob_buff,0,23,'"',0,from_index,ccr_data,to_index); -- 0 to 23 for BPN. 0 to 26 for BSD.
245: from_index := to_index;
246: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Returned from first call. Continue processing from '|| to_index);
247: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling ccr_codes to process DUNS ' || ccr_data(1));
248:
249: begin
250: select 1

Line 247: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling ccr_codes to process DUNS ' || ccr_data(1));

243: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data. Identifying DUNS number.');
244: insert_ccr_data(clob_buff,0,23,'"',0,from_index,ccr_data,to_index); -- 0 to 23 for BPN. 0 to 26 for BSD.
245: from_index := to_index;
246: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Returned from first call. Continue processing from '|| to_index);
247: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling ccr_codes to process DUNS ' || ccr_data(1));
248:
249: begin
250: select 1
251: into l_dummy

Line 256: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'duns: '||ccr_data(1)||' not found,

252: from fv_ccr_vendors
253: where duns = ccr_data(1)
254: and rownum = 1;
255: exception when no_data_found then
256: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'duns: '||ccr_data(1)||' not found,
257: skipping to next duns');
258: end;
259: if l_dummy = 1 then
260:

Line 261: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Calling delete_ccr_codes, delete_ccr_flags for DUNS '||ccr_data(1));

257: skipping to next duns');
258: end;
259: if l_dummy = 1 then
260:
261: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Calling delete_ccr_codes, delete_ccr_flags for DUNS '||ccr_data(1));
262: delete_ccr_codes(ccr_data(1));
263: delete_ccr_flags(ccr_data(1));
264:
265: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling CCR_CODES with 24|28|"|'||from_index || '|'|| ccr_data(1));

Line 265: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling CCR_CODES with 24|28|"|'||from_index || '|'|| ccr_data(1));

261: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Calling delete_ccr_codes, delete_ccr_flags for DUNS '||ccr_data(1));
262: delete_ccr_codes(ccr_data(1));
263: delete_ccr_flags(ccr_data(1));
264:
265: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling CCR_CODES with 24|28|"|'||from_index || '|'|| ccr_data(1));
266: --insert_ccr_codes(clob_buff,24,28,'"',from_index,ccr_data(1),ccr_codes,to_index); Correct for BPN. 27 to 31 for BSD Layout
267:
268: insert_ccr_codes(clob_buff,0,4,'"',proc_count,from_index,ccr_data(1),to_index);
269: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Continue processing from '||to_index);commit;

Line 269: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Continue processing from '||to_index);commit;

265: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling CCR_CODES with 24|28|"|'||from_index || '|'|| ccr_data(1));
266: --insert_ccr_codes(clob_buff,24,28,'"',from_index,ccr_data(1),ccr_codes,to_index); Correct for BPN. 27 to 31 for BSD Layout
267:
268: insert_ccr_codes(clob_buff,0,4,'"',proc_count,from_index,ccr_data(1),to_index);
269: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Continue processing from '||to_index);commit;
270: from_index :=to_index;
271: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data for DUNS ' || ccr_data(1));
272: insert_ccr_data(clob_buff,0,195,'"',29,from_index,ccr_data,to_index); --From field 29 for BPN Layout. 32 to 236 for BSD.
273: from_index :=to_index;

Line 271: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data for DUNS ' || ccr_data(1));

267:
268: insert_ccr_codes(clob_buff,0,4,'"',proc_count,from_index,ccr_data(1),to_index);
269: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Continue processing from '||to_index);commit;
270: from_index :=to_index;
271: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data for DUNS ' || ccr_data(1));
272: insert_ccr_data(clob_buff,0,195,'"',29,from_index,ccr_data,to_index); --From field 29 for BPN Layout. 32 to 236 for BSD.
273: from_index :=to_index;
274: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from 3rd call');
275: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling ccr_codes for DUNS ' || ccr_data(1));

Line 274: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from 3rd call');

270: from_index :=to_index;
271: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data for DUNS ' || ccr_data(1));
272: insert_ccr_data(clob_buff,0,195,'"',29,from_index,ccr_data,to_index); --From field 29 for BPN Layout. 32 to 236 for BSD.
273: from_index :=to_index;
274: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from 3rd call');
275: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling ccr_codes for DUNS ' || ccr_data(1));
276: insert_ccr_codes(clob_buff,0,3,'"',5,from_index,ccr_data(1),to_index);
277: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from last call. Processed till '|| to_index);
278: from_index :=to_index;

Line 275: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling ccr_codes for DUNS ' || ccr_data(1));

271: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE, 'Inside Main','Calling ccr_data for DUNS ' || ccr_data(1));
272: insert_ccr_data(clob_buff,0,195,'"',29,from_index,ccr_data,to_index); --From field 29 for BPN Layout. 32 to 236 for BSD.
273: from_index :=to_index;
274: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from 3rd call');
275: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling ccr_codes for DUNS ' || ccr_data(1));
276: insert_ccr_codes(clob_buff,0,3,'"',5,from_index,ccr_data(1),to_index);
277: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from last call. Processed till '|| to_index);
278: from_index :=to_index;
279: to_index :=dbms_lob.instr(clob_buff,'"',from_index+1,1);

Line 277: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from last call. Processed till '|| to_index);

273: from_index :=to_index;
274: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from 3rd call');
275: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Calling ccr_codes for DUNS ' || ccr_data(1));
276: insert_ccr_codes(clob_buff,0,3,'"',5,from_index,ccr_data(1),to_index);
277: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from last call. Processed till '|| to_index);
278: from_index :=to_index;
279: to_index :=dbms_lob.instr(clob_buff,'"',from_index+1,1);
280: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','From_index:To_index ' ||from_index||':'||to_index);
281: l_no_flags := dbms_lob.substr(clob_buff,to_index-from_index-1,from_index+1);

Line 280: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','From_index:To_index ' ||from_index||':'||to_index);

276: insert_ccr_codes(clob_buff,0,3,'"',5,from_index,ccr_data(1),to_index);
277: --FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside Main','Returned from last call. Processed till '|| to_index);
278: from_index :=to_index;
279: to_index :=dbms_lob.instr(clob_buff,'"',from_index+1,1);
280: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','From_index:To_index ' ||from_index||':'||to_index);
281: l_no_flags := dbms_lob.substr(clob_buff,to_index-from_index-1,from_index+1);
282: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','No of flags ' ||l_no_flags);
283: if l_no_flags > 0 then
284: from_index :=to_index+2;

Line 282: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','No of flags ' ||l_no_flags);

278: from_index :=to_index;
279: to_index :=dbms_lob.instr(clob_buff,'"',from_index+1,1);
280: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','From_index:To_index ' ||from_index||':'||to_index);
281: l_no_flags := dbms_lob.substr(clob_buff,to_index-from_index-1,from_index+1);
282: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','No of flags ' ||l_no_flags);
283: if l_no_flags > 0 then
284: from_index :=to_index+2;
285: to_index :=dbms_lob.instr(clob_buff,'"',from_index+1,1);
286: l_success := insert_ccr_flags(ccr_data(1),l_no_flags, dbms_lob.substr(clob_buff,to_index-from_index-1,from_index+1));

Line 287: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE,'Inside Main','Finished parsing. Inserting record with DUNS' || ccr_data(1));

283: if l_no_flags > 0 then
284: from_index :=to_index+2;
285: to_index :=dbms_lob.instr(clob_buff,'"',from_index+1,1);
286: l_success := insert_ccr_flags(ccr_data(1),l_no_flags, dbms_lob.substr(clob_buff,to_index-from_index-1,from_index+1));
287: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE,'Inside Main','Finished parsing. Inserting record with DUNS' || ccr_data(1));
288: end if;
289:
290: --Adding call to parse Disaster Response String.
291: if l_no_flags > 0 then

Line 751: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Committed changes. End of Transfer');

747: from_index :=1;
748: to_index :=0;
749: end loop;
750: commit;
751: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Committed changes. End of Transfer');
752: exception
753: when others then
754: l_errbuf := ' Exception: Inside BPN MAIN ->'|| SQLERRM;
755: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside BPN MAIN',l_errbuf);

Line 755: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside BPN MAIN',l_errbuf);

751: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','Committed changes. End of Transfer');
752: exception
753: when others then
754: l_errbuf := ' Exception: Inside BPN MAIN ->'|| SQLERRM;
755: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside BPN MAIN',l_errbuf);
756: raise_application_error(-20300, l_errbuf);
757: /* l_errbuf := 'Exception occurred '||SQLERRM;
758: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
759: rollback;*/

Line 758: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);

754: l_errbuf := ' Exception: Inside BPN MAIN ->'|| SQLERRM;
755: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside BPN MAIN',l_errbuf);
756: raise_application_error(-20300, l_errbuf);
757: /* l_errbuf := 'Exception occurred '||SQLERRM;
758: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_errbuf);
759: rollback;*/
760:
761: end main;
762:

Line 771: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);

767: begin
768: l_module_name := 'delete_ccr_codes';
769: l_errbuf := 'Deleting the entries from fv_ccr_codes for Duns '||p_duns;
770:
771: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);
772: begin
773: delete from fv_ccr_class_codes where duns = p_duns;
774: exception when others then
775: l_errbuf := 'Following exception encountered during deletion of codes and is ignored:'||SQLERRM;

Line 776: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);

772: begin
773: delete from fv_ccr_class_codes where duns = p_duns;
774: exception when others then
775: l_errbuf := 'Following exception encountered during deletion of codes and is ignored:'||SQLERRM;
776: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);
777: null;
778: end;
779: end delete_ccr_codes;
780:

Line 790: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);

786: begin
787: l_module_name := 'delete_ccr_flags';
788: l_errbuf := 'Deleting the entries from fv_ccr_flags for Duns '||p_duns;
789:
790: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);
791: begin
792: delete from fv_ccr_flags where duns = p_duns;
793: exception when others then
794: l_errbuf := 'Following exception encountered during deletion of flags and is ignored:'||SQLERRM;

Line 795: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);

791: begin
792: delete from fv_ccr_flags where duns = p_duns;
793: exception when others then
794: l_errbuf := 'Following exception encountered during deletion of flags and is ignored:'||SQLERRM;
795: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, l_errbuf);
796: null;
797: end;
798: end delete_ccr_flags;
799: