DBA Data[Home] [Help]

APPS.FV_CCR_BPN_LOAD_PKG dependencies on DBMS_LOB

Line 88: --clob_length := dbms_lob.getlength(clob_buff);

84: codeType(8) := 'SBA Certification';
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;

Line 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)

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)
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

Line 94: ext_to := dbms_lob.instr(clob_buff, delimiter, from_index, 2*(field_counter+count_offset)+2);--count_offset)+2);

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)
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');

Line 102: code_count := dbms_lob.substr(clob_buff,ext_to-ext_from-1,ext_from+1);

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);
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;

Line 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

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
118: ext_to := dbms_lob.instr(clob_buff,l_code_delim,ext_from,1);--code_counter);

Line 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

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
121: end if;

Line 118: ext_to := dbms_lob.instr(clob_buff,l_code_delim,ext_from,1);--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
121: end if;
122: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT,'Inside CCR_CODES','Looking for code b/w ' || ext_from || ' &' || ext_to);

Line 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

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
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);

Line 124: code := dbms_lob.substr(clob_buff,ext_to-ext_from,ext_from);

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);
127: insert into fv_ccr_class_codes(duns, codetype, code) values(duns_num,
128: codeType(field_counter+proc_count+1),

Line 177: ext_from := dbms_lob.instr(clob_buff, delimiter, from_index, 2*field_counter+1);

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');
181: return;

Line 178: ext_to := dbms_lob.instr(clob_buff,delimiter,from_index,2*field_counter+2);

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');
181: return;
182: end if;

Line 186: ccr_data(proc_count+field_counter+1) := dbms_lob.substr(clob_buff,ext_to-ext_from-1,ext_from+1);

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;
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

Line 242: --insert into fv_ccr_bpn_log_messages values('Clob text is', dbms_lob.substr(clob_buff,25,1));

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.');
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);

Line 279: to_index :=dbms_lob.instr(clob_buff,'"',from_index+1,1);

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);
282: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, 'Inside Main','No of flags ' ||l_no_flags);
283: if l_no_flags > 0 then

Line 281: l_no_flags := dbms_lob.substr(clob_buff,to_index-from_index-1,from_index+1);

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;
285: to_index :=dbms_lob.instr(clob_buff,'"',from_index+1,1);

Line 285: to_index :=dbms_lob.instr(clob_buff,'"',from_index+1,1);

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));
287: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_PROCEDURE,'Inside Main','Finished parsing. Inserting record with DUNS' || ccr_data(1));
288: end if;
289:

Line 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));

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));
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.