[Home] [Help]
25: l_idx1 number := range_arr.count + 1;
26: l_idx2 number := range_arr.count + p_buckets;
27: l_bucket_width integer;
28: begin
29: FND_FILE.PUT_LINE (FND_FILE.LOG, 'p_lo = '||p_lo );
30: FND_FILE.PUT_LINE (FND_FILE.LOG, 'p_hi = '||p_hi );
31: FND_FILE.PUT_LINE (FND_FILE.LOG, 'p_buckets = '||p_buckets );
32:
33: If p_buckets = 0 then
26: l_idx2 number := range_arr.count + p_buckets;
27: l_bucket_width integer;
28: begin
29: FND_FILE.PUT_LINE (FND_FILE.LOG, 'p_lo = '||p_lo );
30: FND_FILE.PUT_LINE (FND_FILE.LOG, 'p_hi = '||p_hi );
31: FND_FILE.PUT_LINE (FND_FILE.LOG, 'p_buckets = '||p_buckets );
32:
33: If p_buckets = 0 then
34: return;
27: l_bucket_width integer;
28: begin
29: FND_FILE.PUT_LINE (FND_FILE.LOG, 'p_lo = '||p_lo );
30: FND_FILE.PUT_LINE (FND_FILE.LOG, 'p_hi = '||p_hi );
31: FND_FILE.PUT_LINE (FND_FILE.LOG, 'p_buckets = '||p_buckets );
32:
33: If p_buckets = 0 then
34: return;
35: End if;
207: l_ret number;
208:
209: BEGIN
210:
211: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Start of migrate_cc'||P_SUB_REQUESTS||p_batch_size);
212:
213: IF P_SUB_REQUESTS IS NULL OR P_SUB_REQUESTS > 30 OR P_SUB_REQUESTS = 0 then
214: l_sub_requests := 30 ;
215: ELSE
229: open l_hdr_agg_csr2;
230: fetch l_hdr_agg_csr2 into l_agg_rec;
231: close l_hdr_agg_csr2;
232:
233: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_agg_csr2' );
234: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
235: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
236: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
237:
230: fetch l_hdr_agg_csr2 into l_agg_rec;
231: close l_hdr_agg_csr2;
232:
233: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_agg_csr2' );
234: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
235: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
236: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
237:
238:
231: close l_hdr_agg_csr2;
232:
233: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_agg_csr2' );
234: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
235: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
236: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
237:
238:
239:
232:
233: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_agg_csr2' );
234: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
235: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
236: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
237:
238:
239:
240: l_ret := FND_REQUEST.submit_request('OKS',
247:
248: IF (l_ret = 0) then
249: errbuf := fnd_message.get;
250: retcode := 2;
251: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
252: return;
253: ELSE
254: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
255: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
250: retcode := 2;
251: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
252: return;
253: ELSE
254: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
255: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
256: END IF;
257:
258:
251: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
252: return;
253: ELSE
254: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
255: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
256: END IF;
257:
258:
259:
261: open l_line_agg_csr2;
262: fetch l_line_agg_csr2 into l_agg_rec;
263: close l_line_agg_csr2;
264:
265: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_agg_csr2' );
266: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
267: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
268: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
269:
262: fetch l_line_agg_csr2 into l_agg_rec;
263: close l_line_agg_csr2;
264:
265: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_agg_csr2' );
266: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
267: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
268: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
269:
270:
263: close l_line_agg_csr2;
264:
265: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_agg_csr2' );
266: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
267: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
268: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
269:
270:
271:
264:
265: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_agg_csr2' );
266: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
267: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
268: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
269:
270:
271:
272: l_ret := FND_REQUEST.submit_request ('OKS',
279:
280: IF (l_ret = 0) then
281: errbuf := fnd_message.get;
282: retcode := 2;
283: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request Line History failed to submit: ' || errbuf);
284: return;
285: ELSE
286: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
287: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
282: retcode := 2;
283: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request Line History failed to submit: ' || errbuf);
284: return;
285: ELSE
286: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
287: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
288: END IF;
289:
290:
283: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request Line History failed to submit: ' || errbuf);
284: return;
285: ELSE
286: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
287: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
288: END IF;
289:
290:
291: /* --now process the oks_k_hdr
292: open l_hdr_agg_csr1;
293: fetch l_hdr_agg_csr1 into l_agg_rec;
294: close l_hdr_agg_csr1;
295:
296: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_agg_csr1' );
297: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
298: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
299: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
300: l_sub_req := generate_ranges(l_agg_rec.minid,
293: fetch l_hdr_agg_csr1 into l_agg_rec;
294: close l_hdr_agg_csr1;
295:
296: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_agg_csr1' );
297: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
298: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
299: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
300: l_sub_req := generate_ranges(l_agg_rec.minid,
301: l_agg_rec.maxid,
294: close l_hdr_agg_csr1;
295:
296: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_agg_csr1' );
297: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
298: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
299: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
300: l_sub_req := generate_ranges(l_agg_rec.minid,
301: l_agg_rec.maxid,
302: l_agg_rec.avgid,
295:
296: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_agg_csr1' );
297: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
298: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
299: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
300: l_sub_req := generate_ranges(l_agg_rec.minid,
301: l_agg_rec.maxid,
302: l_agg_rec.avgid,
303: l_agg_rec.stdid,
302: l_agg_rec.avgid,
303: l_agg_rec.stdid,
304: l_agg_rec.total,
305: nvl(l_sub_requests-1,30));
306: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_sub_requests = '|| l_sub_req );
307:
308: */
309:
310: FOR range_rec in l_hdr_ranges(l_batch_size)
320:
321: IF (l_ret = 0) then
322: errbuf := fnd_message.get;
323: retcode := 2;
324: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
325: return;
326: ELSE
327: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
328: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
323: retcode := 2;
324: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
325: return;
326: ELSE
327: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
328: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
329: END IF;
330: END LOOP;
331:
324: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
325: return;
326: ELSE
327: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
328: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
329: END IF;
330: END LOOP;
331:
332: --- now process the lines
334: /* open l_line_agg_csr1;
335: fetch l_line_agg_csr1 into l_agg_rec;
336: close l_line_agg_csr1;
337:
338: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_agg_csr1' );
339: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
340: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
341: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
342: l_sub_req := generate_ranges(l_agg_rec.minid,
335: fetch l_line_agg_csr1 into l_agg_rec;
336: close l_line_agg_csr1;
337:
338: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_agg_csr1' );
339: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
340: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
341: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
342: l_sub_req := generate_ranges(l_agg_rec.minid,
343: l_agg_rec.maxid,
336: close l_line_agg_csr1;
337:
338: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_agg_csr1' );
339: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
340: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
341: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
342: l_sub_req := generate_ranges(l_agg_rec.minid,
343: l_agg_rec.maxid,
344: l_agg_rec.avgid,
337:
338: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_agg_csr1' );
339: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
340: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
341: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
342: l_sub_req := generate_ranges(l_agg_rec.minid,
343: l_agg_rec.maxid,
344: l_agg_rec.avgid,
345: l_agg_rec.stdid,
344: l_agg_rec.avgid,
345: l_agg_rec.stdid,
346: l_agg_rec.total,
347: nvl(l_sub_requests-1,30));
348: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_sub_requests = '|| l_sub_req );
349: */
350:
351: FOR range_rec in l_line_ranges(l_batch_size)
352: LOOP
361:
362: IF (l_ret = 0) then
363: errbuf := fnd_message.get;
364: retcode := 2;
365: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
366: return;
367: ELSE
368: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
369: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
364: retcode := 2;
365: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
366: return;
367: ELSE
368: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
369: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
370: END IF;
371: END LOOP;
372:
365: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
366: return;
367: ELSE
368: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
369: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
370: END IF;
371: END LOOP;
372:
373:
577: EXIT WHEN c_trxn_entity_id.count = 0 ;
578:
579: IF c_trxn_entity_id.count > 0 Then
580:
581: FND_FILE.PUT_LINE (FND_FILE.LOG, 'count = '||c_trxn_entity_id.count );
582: -- create new credit cards with single use only
583: Begin
584:
585: FORALL i IN c_trxn_entity_id.first..c_trxn_entity_id.last
720: AND major_version = oksline_major_version(i);
721:
722: Exception
723: WHEN OTHERS THEN
724: FND_FILE.PUT_LINE (FND_FILE.LOG, 'error in line history '||sqlerrm );
725: For i IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
726: insert into oks_rule_error( chr_id,
727: cle_id , attribute_name, attribute_value,
728: major_version, rule_information_category )
770: COMMIT;
771: ----
772: Exception
773: when others Then
774: FND_FILE.PUT_LINE (FND_FILE.LOG, 'main error line history'||sqlerrm );
775: null;
776:
777: END MIGRATE_CC_LINEH;
778:
966: EXIT WHEN c_trxn_entity_id.count = 0 ;
967:
968: IF c_trxn_entity_id.count > 0 Then
969:
970: FND_FILE.PUT_LINE (FND_FILE.LOG, 'count = '||c_trxn_entity_id.count );
971: -- create new credit cards with single use only
972: Begin
973:
974: FORALL i IN c_trxn_entity_id.first..c_trxn_entity_id.last
1108: WHERE id = oksline_id(i);
1109:
1110: Exception
1111: WHEN OTHERS THEN
1112: FND_FILE.PUT_LINE (FND_FILE.LOG, 'error in insert lines '||sqlerrm );
1113: For i IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
1114: insert into oks_rule_error( chr_id,
1115: cle_id , attribute_name, attribute_value,
1116: major_version, rule_information_category )
1158: COMMIT;
1159: ----
1160: Exception
1161: when others Then
1162: FND_FILE.PUT_LINE (FND_FILE.LOG, 'main error in lines '||sqlerrm );
1163: null;
1164:
1165: END MIGRATE_CC_LINE;
1166:
1361: EXIT WHEN c_trxn_entity_id.count = 0 ;
1362:
1363: IF c_trxn_entity_id.count > 0 Then
1364:
1365: FND_FILE.PUT_LINE (FND_FILE.LOG, 'count = '||c_trxn_entity_id.count );
1366: -- create new credit cards with single use only
1367: Begin
1368:
1369: FORALL i IN c_trxn_entity_id.first..c_trxn_entity_id.last
1504: AND major_version = oksline_major_version(i);
1505:
1506: Exception
1507: WHEN OTHERS THEN
1508: FND_FILE.PUT_LINE (FND_FILE.LOG, 'error in hdr history '||sqlerrm );
1509: For i IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
1510: insert into oks_rule_error( chr_id,
1511: cle_id , attribute_name, attribute_value,
1512: major_version, rule_information_category )
1554: COMMIT;
1555: ----
1556: Exception
1557: when others Then
1558: FND_FILE.PUT_LINE (FND_FILE.LOG, 'main error hdr history'||sqlerrm );
1559: null;
1560:
1561: END MIGRATE_CC_HDRH;
1562:
1753: EXIT WHEN c_trxn_entity_id.count = 0 ;
1754:
1755: IF c_trxn_entity_id.count > 0 Then
1756:
1757: FND_FILE.PUT_LINE (FND_FILE.LOG, 'count = '||c_trxn_entity_id.count );
1758: -- create new credit cards with single use only
1759: Begin
1760:
1761: FORALL i IN c_trxn_entity_id.first..c_trxn_entity_id.last
1895: WHERE id = okshdr_id(i);
1896:
1897: Exception
1898: WHEN OTHERS THEN
1899: FND_FILE.PUT_LINE (FND_FILE.LOG, 'error in insert hdr '||sqlerrm );
1900: For i IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
1901: insert into oks_rule_error( chr_id,
1902: cle_id , attribute_name, attribute_value,
1903: major_version, rule_information_category )
1945: COMMIT;
1946: ----
1947: Exception
1948: when others Then
1949: FND_FILE.PUT_LINE (FND_FILE.LOG, 'main error in hdr '||sqlerrm );
1950: null;
1951:
1952: END MIGRATE_CC_HDR;
1953:
2127:
2128: --DBMS_OUTPUT.put_line('release = '|| l_rel_name);
2129: --DBMS_OUTPUT.put_line(substr('Value of l_other='||l_other,1,255));
2130:
2131: FND_FILE.put_line(FND_FILE.OUTPUT,' Credit Card Migration Error Report ');
2132: FND_FILE.put_line(FND_FILE.OUTPUT,' ********************************** ');
2133: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2134: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers');
2135: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_HDR'));
2128: --DBMS_OUTPUT.put_line('release = '|| l_rel_name);
2129: --DBMS_OUTPUT.put_line(substr('Value of l_other='||l_other,1,255));
2130:
2131: FND_FILE.put_line(FND_FILE.OUTPUT,' Credit Card Migration Error Report ');
2132: FND_FILE.put_line(FND_FILE.OUTPUT,' ********************************** ');
2133: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2134: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers');
2135: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_HDR'));
2136: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string
2129: --DBMS_OUTPUT.put_line(substr('Value of l_other='||l_other,1,255));
2130:
2131: FND_FILE.put_line(FND_FILE.OUTPUT,' Credit Card Migration Error Report ');
2132: FND_FILE.put_line(FND_FILE.OUTPUT,' ********************************** ');
2133: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2134: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers');
2135: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_HDR'));
2136: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string
2137: || SUBSTR(l_dash_string,1,6));
2130:
2131: FND_FILE.put_line(FND_FILE.OUTPUT,' Credit Card Migration Error Report ');
2132: FND_FILE.put_line(FND_FILE.OUTPUT,' ********************************** ');
2133: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2134: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers');
2135: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_HDR'));
2136: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string
2137: || SUBSTR(l_dash_string,1,6));
2138:
2131: FND_FILE.put_line(FND_FILE.OUTPUT,' Credit Card Migration Error Report ');
2132: FND_FILE.put_line(FND_FILE.OUTPUT,' ********************************** ');
2133: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2134: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers');
2135: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_HDR'));
2136: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string
2137: || SUBSTR(l_dash_string,1,6));
2138:
2139: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2132: FND_FILE.put_line(FND_FILE.OUTPUT,' ********************************** ');
2133: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2134: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers');
2135: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_HDR'));
2136: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string
2137: || SUBSTR(l_dash_string,1,6));
2138:
2139: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2140: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Billto Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2135: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_HDR'));
2136: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string
2137: || SUBSTR(l_dash_string,1,6));
2138:
2139: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2140: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Billto Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2141: FND_FILE.put_line(FND_FILE.OUTPUT,
2142: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2143: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_BILL_TO'),25)
2136: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string
2137: || SUBSTR(l_dash_string,1,6));
2138:
2139: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2140: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Billto Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2141: FND_FILE.put_line(FND_FILE.OUTPUT,
2142: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2143: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_BILL_TO'),25)
2144: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_STATUS'),10)
2137: || SUBSTR(l_dash_string,1,6));
2138:
2139: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2140: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Billto Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2141: FND_FILE.put_line(FND_FILE.OUTPUT,
2142: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2143: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_BILL_TO'),25)
2144: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_STATUS'),10)
2145: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_START_DATE'),14)
2146: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_END_DATE'),13)
2147: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_DATE_TERM'),18)
2148: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CCR_NUM'),20)
2149: ||FND_MESSAGE.get_string('OKS','OKS_RR_EXP_DATE'));
2150: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string||l_dash_string
2151: ||l_dash_string||l_dash_string||l_dash_string
2152: ||l_dash_string||l_dash_string||l_dash_string
2153: ||l_dash_string||l_dash_string||l_dash_string
2154: ||l_dash_string||l_dash_string);
2171: IF contract_id.COUNT > 0
2172: THEN
2173: FOR i IN 1 .. contract_id.COUNT
2174: LOOP
2175: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1, 20),25,' ' ));
2176: IF party_name (i) IS NOT NULL
2177: THEN
2178: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2179: ELSE
2174: LOOP
2175: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1, 20),25,' ' ));
2176: IF party_name (i) IS NOT NULL
2177: THEN
2178: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2179: ELSE
2180:
2181: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2182: ||SUBSTR(l_empty_string,1,5));
2177: THEN
2178: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2179: ELSE
2180:
2181: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2182: ||SUBSTR(l_empty_string,1,5));
2183: END IF;
2184: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_status (i),10, ' '));
2185: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2180:
2181: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2182: ||SUBSTR(l_empty_string,1,5));
2183: END IF;
2184: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_status (i),10, ' '));
2185: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2186: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_edate (i), 13, ' '));
2187: IF date_terminated(i) IS NOT NULL
2188: THEN
2181: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2182: ||SUBSTR(l_empty_string,1,5));
2183: END IF;
2184: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_status (i),10, ' '));
2185: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2186: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_edate (i), 13, ' '));
2187: IF date_terminated(i) IS NOT NULL
2188: THEN
2189: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2182: ||SUBSTR(l_empty_string,1,5));
2183: END IF;
2184: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_status (i),10, ' '));
2185: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2186: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_edate (i), 13, ' '));
2187: IF date_terminated(i) IS NOT NULL
2188: THEN
2189: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2190: ELSE
2185: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2186: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_edate (i), 13, ' '));
2187: IF date_terminated(i) IS NOT NULL
2188: THEN
2189: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2190: ELSE
2191: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,8));
2192: END IF;
2193: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2187: IF date_terminated(i) IS NOT NULL
2188: THEN
2189: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2190: ELSE
2191: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,8));
2192: END IF;
2193: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2194: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2195:
2189: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2190: ELSE
2191: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,8));
2192: END IF;
2193: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2194: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2195:
2196: l_cont_length := LENGTH (contract_number(i));
2197: l_party_length := NVL(LENGTH (party_name(i)),0);
2190: ELSE
2191: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,8));
2192: END IF;
2193: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2194: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2195:
2196: l_cont_length := LENGTH (contract_number(i));
2197: l_party_length := NVL(LENGTH (party_name(i)),0);
2198:
2204: END IF;
2205:
2206: FOR j IN 1 ..FLOOR (l_max_length / 20)
2207: LOOP
2208: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2209: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2210: THEN
2211: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2212: ELSE
2207: LOOP
2208: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2209: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2210: THEN
2211: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2212: ELSE
2213: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2214: ||SUBSTR(l_empty_string,1,5));
2215: END IF;
2209: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2210: THEN
2211: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2212: ELSE
2213: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2214: ||SUBSTR(l_empty_string,1,5));
2215: END IF;
2216: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2217: THEN
2214: ||SUBSTR(l_empty_string,1,5));
2215: END IF;
2216: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2217: THEN
2218: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2219: ELSE
2220: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2221: ||SUBSTR(l_empty_string,1,5));
2222: END IF;
2216: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2217: THEN
2218: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2219: ELSE
2220: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2221: ||SUBSTR(l_empty_string,1,5));
2222: END IF;
2223: END LOOP;
2224: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2220: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2221: ||SUBSTR(l_empty_string,1,5));
2222: END IF;
2223: END LOOP;
2224: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2225: END LOOP;
2226: ELSE
2227: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2228: END IF;
2223: END LOOP;
2224: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2225: END LOOP;
2226: ELSE
2227: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2228: END IF;
2229:
2230: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2231: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers History');
2226: ELSE
2227: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2228: END IF;
2229:
2230: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2231: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers History');
2232: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_HDR_HIST'));
2233: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2234: ||SUBSTR(l_dash_string,1,4));
2227: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2228: END IF;
2229:
2230: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2231: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers History');
2232: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_HDR_HIST'));
2233: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2234: ||SUBSTR(l_dash_string,1,4));
2235: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2228: END IF;
2229:
2230: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2231: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers History');
2232: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_HDR_HIST'));
2233: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2234: ||SUBSTR(l_dash_string,1,4));
2235: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2236: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Billto Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2229:
2230: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2231: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers History');
2232: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_HDR_HIST'));
2233: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2234: ||SUBSTR(l_dash_string,1,4));
2235: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2236: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Billto Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2237: FND_FILE.put_line(FND_FILE.OUTPUT,
2231: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Headers History');
2232: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_HDR_HIST'));
2233: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2234: ||SUBSTR(l_dash_string,1,4));
2235: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2236: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Billto Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2237: FND_FILE.put_line(FND_FILE.OUTPUT,
2238: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2239: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_MAJOR_VER'),17)
2232: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_HDR_HIST'));
2233: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2234: ||SUBSTR(l_dash_string,1,4));
2235: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2236: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Billto Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2237: FND_FILE.put_line(FND_FILE.OUTPUT,
2238: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2239: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_MAJOR_VER'),17)
2240: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_BILL_TO'),25)
2233: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2234: ||SUBSTR(l_dash_string,1,4));
2235: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2236: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Billto Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2237: FND_FILE.put_line(FND_FILE.OUTPUT,
2238: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2239: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_MAJOR_VER'),17)
2240: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_BILL_TO'),25)
2241: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_STATUS'),10)
2243: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_END_DATE'),13)
2244: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_DATE_TERM'),18)
2245: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CCR_NUM'),20)
2246: ||FND_MESSAGE.get_string('OKS','OKS_RR_EXP_DATE'));
2247: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string||l_dash_string
2248: ||l_dash_string||l_dash_string||l_dash_string
2249: ||l_dash_string||l_dash_string||l_dash_string
2250: ||l_dash_string||l_dash_string||l_dash_string
2251: ||l_dash_string||l_dash_string||l_dash_string
2249: ||l_dash_string||l_dash_string||l_dash_string
2250: ||l_dash_string||l_dash_string||l_dash_string
2251: ||l_dash_string||l_dash_string||l_dash_string
2252: ||SUBSTR(l_dash_string,1,7));
2253: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2254:
2255: OPEN get_hdr_hist_csr;
2256: FETCH get_hdr_hist_csr
2257: BULK COLLECT INTO contract_id,
2270: IF contract_id.COUNT > 0
2271: THEN
2272: FOR i IN 1 .. contract_id.COUNT
2273: LOOP
2274: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1, 20),25,' ' ));
2275: FND_FILE.put(FND_FILE.OUTPUT,RPAD (contract_version (i),17, ' '));
2276: IF party_name (i) IS NOT NULL
2277: THEN
2278: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2271: THEN
2272: FOR i IN 1 .. contract_id.COUNT
2273: LOOP
2274: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1, 20),25,' ' ));
2275: FND_FILE.put(FND_FILE.OUTPUT,RPAD (contract_version (i),17, ' '));
2276: IF party_name (i) IS NOT NULL
2277: THEN
2278: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2279: ELSE
2274: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1, 20),25,' ' ));
2275: FND_FILE.put(FND_FILE.OUTPUT,RPAD (contract_version (i),17, ' '));
2276: IF party_name (i) IS NOT NULL
2277: THEN
2278: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2279: ELSE
2280: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2281: ||SUBSTR(l_empty_string,1,5));
2282: END IF;
2276: IF party_name (i) IS NOT NULL
2277: THEN
2278: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2279: ELSE
2280: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2281: ||SUBSTR(l_empty_string,1,5));
2282: END IF;
2283: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_status (i),10, ' '));
2284: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2279: ELSE
2280: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2281: ||SUBSTR(l_empty_string,1,5));
2282: END IF;
2283: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_status (i),10, ' '));
2284: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2285: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_edate (i), 13, ' '));
2286: IF date_terminated(i) IS NOT NULL
2287: THEN
2280: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2281: ||SUBSTR(l_empty_string,1,5));
2282: END IF;
2283: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_status (i),10, ' '));
2284: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2285: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_edate (i), 13, ' '));
2286: IF date_terminated(i) IS NOT NULL
2287: THEN
2288: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2281: ||SUBSTR(l_empty_string,1,5));
2282: END IF;
2283: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_status (i),10, ' '));
2284: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2285: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_edate (i), 13, ' '));
2286: IF date_terminated(i) IS NOT NULL
2287: THEN
2288: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2289: ELSE
2284: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_sdate (i), 14, ' '));
2285: FND_FILE.put(FND_FILE.OUTPUT,RPAD(contract_edate (i), 13, ' '));
2286: IF date_terminated(i) IS NOT NULL
2287: THEN
2288: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2289: ELSE
2290: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,8));
2291: END IF;
2292: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2286: IF date_terminated(i) IS NOT NULL
2287: THEN
2288: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2289: ELSE
2290: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,8));
2291: END IF;
2292: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2293: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2294:
2288: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2289: ELSE
2290: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,8));
2291: END IF;
2292: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2293: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2294:
2295: l_cont_length := LENGTH (contract_number(i));
2296: l_party_length := NVL(LENGTH (party_name(i)),0);
2289: ELSE
2290: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,8));
2291: END IF;
2292: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2293: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2294:
2295: l_cont_length := LENGTH (contract_number(i));
2296: l_party_length := NVL(LENGTH (party_name(i)),0);
2297:
2303: END IF;
2304:
2305: FOR j IN 1 ..FLOOR (l_max_length / 20)
2306: LOOP
2307: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2308: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2309: THEN
2310: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2311: ELSE
2306: LOOP
2307: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2308: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2309: THEN
2310: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2311: ELSE
2312: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2313: ||SUBSTR(l_empty_string,1,5));
2314: END IF;
2308: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2309: THEN
2310: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2311: ELSE
2312: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2313: ||SUBSTR(l_empty_string,1,5));
2314: END IF;
2315: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,7));
2316: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2311: ELSE
2312: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2313: ||SUBSTR(l_empty_string,1,5));
2314: END IF;
2315: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,7));
2316: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2317: THEN
2318: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2319: ELSE
2314: END IF;
2315: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,7));
2316: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2317: THEN
2318: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2319: ELSE
2320: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2321: ||SUBSTR(l_empty_string,1,5));
2322: END IF;
2316: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2317: THEN
2318: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2319: ELSE
2320: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2321: ||SUBSTR(l_empty_string,1,5));
2322: END IF;
2323: END LOOP;
2324: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2320: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2321: ||SUBSTR(l_empty_string,1,5));
2322: END IF;
2323: END LOOP;
2324: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2325: END LOOP;
2326: ELSE
2327: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2328: END IF;
2323: END LOOP;
2324: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2325: END LOOP;
2326: ELSE
2327: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2328: END IF;
2329:
2330: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines');
2331: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_LINES'));
2326: ELSE
2327: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2328: END IF;
2329:
2330: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines');
2331: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_LINES'));
2332: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string|| SUBSTR(l_dash_string,1,4));
2333: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2334: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date ');
2327: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2328: END IF;
2329:
2330: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines');
2331: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_LINES'));
2332: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string|| SUBSTR(l_dash_string,1,4));
2333: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2334: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date ');
2335: FND_FILE.put_line(FND_FILE.OUTPUT,
2328: END IF;
2329:
2330: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines');
2331: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_LINES'));
2332: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string|| SUBSTR(l_dash_string,1,4));
2333: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2334: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date ');
2335: FND_FILE.put_line(FND_FILE.OUTPUT,
2336: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2329:
2330: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines');
2331: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_LINES'));
2332: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string|| SUBSTR(l_dash_string,1,4));
2333: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2334: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date ');
2335: FND_FILE.put_line(FND_FILE.OUTPUT,
2336: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2337: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_LINE_NUMBER'),14)
2330: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines');
2331: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_LINES'));
2332: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string|| SUBSTR(l_dash_string,1,4));
2333: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2334: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date ');
2335: FND_FILE.put_line(FND_FILE.OUTPUT,
2336: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2337: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_LINE_NUMBER'),14)
2338: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_BILL_TO'),25)
2331: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_LINES'));
2332: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string|| SUBSTR(l_dash_string,1,4));
2333: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2334: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date ');
2335: FND_FILE.put_line(FND_FILE.OUTPUT,
2336: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2337: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_LINE_NUMBER'),14)
2338: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_BILL_TO'),25)
2339: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_SRV_NAME'),25)
2342: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_END_DATE'),13)
2343: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_DATE_TERM'),18)
2344: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CCR_NUM'),20)
2345: ||FND_MESSAGE.get_string('OKS','OKS_RR_EXP_DATE'));
2346: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string||l_dash_string
2347: ||l_dash_string||l_dash_string||l_dash_string
2348: ||l_dash_string||l_dash_string||l_dash_string
2349: ||l_dash_string||l_dash_string||l_dash_string
2350: ||l_dash_string||l_dash_string||l_dash_string
2348: ||l_dash_string||l_dash_string||l_dash_string
2349: ||l_dash_string||l_dash_string||l_dash_string
2350: ||l_dash_string||l_dash_string||l_dash_string
2351: ||l_dash_string||l_dash_string||SUBSTR(l_dash_string,1,9));
2352: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2353:
2354: line_id.DELETE;
2355: contract_number.DELETE;
2356: line_number.DELETE;
2382: IF line_id.COUNT > 0
2383: THEN
2384: FOR i IN 1 .. line_id.COUNT
2385: LOOP
2386: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1,20), 25,' ' ));
2387: FND_FILE.put(FND_FILE.OUTPUT,RPAD (line_number (i),14, ' '));
2388: IF party_name (i) IS NOT NULL
2389: THEN
2390: IF LENGTH(party_name(i)) > 20 THEN
2383: THEN
2384: FOR i IN 1 .. line_id.COUNT
2385: LOOP
2386: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1,20), 25,' ' ));
2387: FND_FILE.put(FND_FILE.OUTPUT,RPAD (line_number (i),14, ' '));
2388: IF party_name (i) IS NOT NULL
2389: THEN
2390: IF LENGTH(party_name(i)) > 20 THEN
2391: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2387: FND_FILE.put(FND_FILE.OUTPUT,RPAD (line_number (i),14, ' '));
2388: IF party_name (i) IS NOT NULL
2389: THEN
2390: IF LENGTH(party_name(i)) > 20 THEN
2391: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2392: ELSE
2393: FND_FILE.put(FND_FILE.OUTPUT,RPAD(party_name (i), 25, ' ' ));
2394: END IF;
2395: ELSE
2389: THEN
2390: IF LENGTH(party_name(i)) > 20 THEN
2391: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2392: ELSE
2393: FND_FILE.put(FND_FILE.OUTPUT,RPAD(party_name (i), 25, ' ' ));
2394: END IF;
2395: ELSE
2396: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2397: ||SUBSTR(l_empty_string,1,5));
2392: ELSE
2393: FND_FILE.put(FND_FILE.OUTPUT,RPAD(party_name (i), 25, ' ' ));
2394: END IF;
2395: ELSE
2396: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2397: ||SUBSTR(l_empty_string,1,5));
2398: END IF;
2399:
2400: IF Service_name (i) IS NOT NULL
2399:
2400: IF Service_name (i) IS NOT NULL
2401: THEN
2402: IF LENGTH(Service_name(i)) > 20 THEN
2403: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (Service_name (i), 1, 20),25, ' '));
2404: ELSE
2405: FND_FILE.put(FND_FILE.OUTPUT,RPAD(service_name (i), 25, ' ' ));
2406: END IF;
2407: ELSE
2401: THEN
2402: IF LENGTH(Service_name(i)) > 20 THEN
2403: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (Service_name (i), 1, 20),25, ' '));
2404: ELSE
2405: FND_FILE.put(FND_FILE.OUTPUT,RPAD(service_name (i), 25, ' ' ));
2406: END IF;
2407: ELSE
2408: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2409: ||SUBSTR(l_empty_string,1,5));
2404: ELSE
2405: FND_FILE.put(FND_FILE.OUTPUT,RPAD(service_name (i), 25, ' ' ));
2406: END IF;
2407: ELSE
2408: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2409: ||SUBSTR(l_empty_string,1,5));
2410: END IF;
2411:
2412: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_status (i),10, ' '));
2408: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2409: ||SUBSTR(l_empty_string,1,5));
2410: END IF;
2411:
2412: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_status (i),10, ' '));
2413: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_sdate (i), 14, ' '));
2414: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_edate (i), 13, ' '));
2415: IF date_terminated(i) IS NOT NULL
2416: THEN
2409: ||SUBSTR(l_empty_string,1,5));
2410: END IF;
2411:
2412: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_status (i),10, ' '));
2413: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_sdate (i), 14, ' '));
2414: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_edate (i), 13, ' '));
2415: IF date_terminated(i) IS NOT NULL
2416: THEN
2417: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2410: END IF;
2411:
2412: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_status (i),10, ' '));
2413: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_sdate (i), 14, ' '));
2414: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_edate (i), 13, ' '));
2415: IF date_terminated(i) IS NOT NULL
2416: THEN
2417: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2418: ELSE
2413: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_sdate (i), 14, ' '));
2414: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_edate (i), 13, ' '));
2415: IF date_terminated(i) IS NOT NULL
2416: THEN
2417: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2418: ELSE
2419: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2420: ||SUBSTR(l_empty_string,1,8));
2421: END IF;
2415: IF date_terminated(i) IS NOT NULL
2416: THEN
2417: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2418: ELSE
2419: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2420: ||SUBSTR(l_empty_string,1,8));
2421: END IF;
2422: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2423: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2418: ELSE
2419: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2420: ||SUBSTR(l_empty_string,1,8));
2421: END IF;
2422: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2423: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2424:
2425: l_cont_length := LENGTH (contract_number(i));
2426: l_party_length := LENGTH (party_name(i));
2419: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2420: ||SUBSTR(l_empty_string,1,8));
2421: END IF;
2422: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2423: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2424:
2425: l_cont_length := LENGTH (contract_number(i));
2426: l_party_length := LENGTH (party_name(i));
2427: l_service_length := LENGTH (service_name(i));
2441: END IF;
2442:
2443: FOR j IN 1 ..FLOOR (l_max_length / 20)
2444: LOOP
2445: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2446: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2447: THEN
2448: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2449: ELSE
2444: LOOP
2445: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2446: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2447: THEN
2448: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2449: ELSE
2450: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2451: ||SUBSTR(l_empty_string,1,5));
2452: END IF;
2446: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2447: THEN
2448: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2449: ELSE
2450: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2451: ||SUBSTR(l_empty_string,1,5));
2452: END IF;
2453: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,4));
2454: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2449: ELSE
2450: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2451: ||SUBSTR(l_empty_string,1,5));
2452: END IF;
2453: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,4));
2454: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2455: THEN
2456: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2457: ELSE
2452: END IF;
2453: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||SUBSTR(l_empty_string,1,4));
2454: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2455: THEN
2456: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2457: ELSE
2458: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2459: ||SUBSTR(l_empty_string,1,5));
2460: END IF;
2454: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2455: THEN
2456: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2457: ELSE
2458: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2459: ||SUBSTR(l_empty_string,1,5));
2460: END IF;
2461: IF service_name(i) IS NOT NULL AND (SUBSTR (service_name (i), (j*20+1),20)) IS NOT null
2462: THEN
2459: ||SUBSTR(l_empty_string,1,5));
2460: END IF;
2461: IF service_name(i) IS NOT NULL AND (SUBSTR (service_name (i), (j*20+1),20)) IS NOT null
2462: THEN
2463: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (service_name (i), (j*20+1),20),25, ' '));
2464: ELSE
2465: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2466: ||SUBSTR(l_empty_string,1,5));
2467: END IF;
2461: IF service_name(i) IS NOT NULL AND (SUBSTR (service_name (i), (j*20+1),20)) IS NOT null
2462: THEN
2463: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (service_name (i), (j*20+1),20),25, ' '));
2464: ELSE
2465: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2466: ||SUBSTR(l_empty_string,1,5));
2467: END IF;
2468: END LOOP;
2469: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2465: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2466: ||SUBSTR(l_empty_string,1,5));
2467: END IF;
2468: END LOOP;
2469: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2470: END LOOP;
2471: ELSE
2472: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2473: END IF;
2468: END LOOP;
2469: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2470: END LOOP;
2471: ELSE
2472: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2473: END IF;
2474:
2475: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2476: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines History');
2471: ELSE
2472: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2473: END IF;
2474:
2475: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2476: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines History');
2477: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_LINE_HIST'));
2478: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2479: ||SUBSTR(l_dash_string,1,2));
2472: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2473: END IF;
2474:
2475: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2476: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines History');
2477: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_LINE_HIST'));
2478: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2479: ||SUBSTR(l_dash_string,1,2));
2480: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2473: END IF;
2474:
2475: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2476: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines History');
2477: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_LINE_HIST'));
2478: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2479: ||SUBSTR(l_dash_string,1,2));
2480: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2481: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2474:
2475: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2476: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines History');
2477: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_LINE_HIST'));
2478: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2479: ||SUBSTR(l_dash_string,1,2));
2480: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2481: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2482: FND_FILE.put_line(FND_FILE.OUTPUT,
2476: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Lines History');
2477: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_LINE_HIST'));
2478: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2479: ||SUBSTR(l_dash_string,1,2));
2480: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2481: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2482: FND_FILE.put_line(FND_FILE.OUTPUT,
2483: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2484: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_MAJOR_VER'),16)
2477: FND_FILE.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_LINE_HIST'));
2478: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2479: ||SUBSTR(l_dash_string,1,2));
2480: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2481: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2482: FND_FILE.put_line(FND_FILE.OUTPUT,
2483: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2484: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_MAJOR_VER'),16)
2485: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_LINE_NUMBER'),14)
2478: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string
2479: ||SUBSTR(l_dash_string,1,2));
2480: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2481: -- FND_FILE.put_line(FND_FILE.OUTPUT,'Contract Number Major Version Line Number Billto Service Name Status Start Date End Date Date Terminated Credit Card Number Expiration Date');
2482: FND_FILE.put_line(FND_FILE.OUTPUT,
2483: RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CONTRACT_NUM'),25)
2484: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_MAJOR_VER'),16)
2485: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_LINE_NUMBER'),14)
2486: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_BILL_TO'),25)
2490: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_END_DATE'),13)
2491: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_DATE_TERM'),18)
2492: ||RPAD(FND_MESSAGE.get_string('OKS','OKS_RR_CCR_NUM'),20)
2493: ||FND_MESSAGE.get_string('OKS','OKS_RR_EXP_DATE'));
2494: FND_FILE.put_line(FND_FILE.OUTPUT,l_dash_string||l_dash_string||l_dash_string
2495: ||l_dash_string||l_dash_string||l_dash_string
2496: ||l_dash_string||l_dash_string||l_dash_string
2497: ||l_dash_string||l_dash_string||l_dash_string
2498: ||l_dash_string||l_dash_string||l_dash_string
2497: ||l_dash_string||l_dash_string||l_dash_string
2498: ||l_dash_string||l_dash_string||l_dash_string
2499: ||l_dash_string||l_dash_string||l_dash_string
2500: ||l_dash_string||SUBSTR(l_dash_string,1,5));
2501: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2502:
2503: line_id.DELETE;
2504: contract_number.DELETE;
2505: line_number.DELETE;
2532: IF line_id.COUNT > 0
2533: THEN
2534: FOR i IN 1 .. line_id.COUNT
2535: LOOP
2536: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1,20), 25,' ' ));
2537: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_version(i),16));
2538: FND_FILE.put(FND_FILE.OUTPUT,RPAD (line_number (i),14, ' '));
2539: IF party_name (i) IS NOT NULL
2540: THEN
2533: THEN
2534: FOR i IN 1 .. line_id.COUNT
2535: LOOP
2536: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1,20), 25,' ' ));
2537: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_version(i),16));
2538: FND_FILE.put(FND_FILE.OUTPUT,RPAD (line_number (i),14, ' '));
2539: IF party_name (i) IS NOT NULL
2540: THEN
2541: IF LENGTH(party_name(i)) > 20 THEN
2534: FOR i IN 1 .. line_id.COUNT
2535: LOOP
2536: FND_FILE.put(FND_FILE.OUTPUT,RPAD (SUBSTR(contract_number (i),1,20), 25,' ' ));
2537: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_version(i),16));
2538: FND_FILE.put(FND_FILE.OUTPUT,RPAD (line_number (i),14, ' '));
2539: IF party_name (i) IS NOT NULL
2540: THEN
2541: IF LENGTH(party_name(i)) > 20 THEN
2542: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2538: FND_FILE.put(FND_FILE.OUTPUT,RPAD (line_number (i),14, ' '));
2539: IF party_name (i) IS NOT NULL
2540: THEN
2541: IF LENGTH(party_name(i)) > 20 THEN
2542: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2543: ELSE
2544: FND_FILE.put(FND_FILE.OUTPUT,RPAD(party_name (i), 25, ' ' ));
2545: END IF;
2546: ELSE
2540: THEN
2541: IF LENGTH(party_name(i)) > 20 THEN
2542: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), 1, 20),25, ' '));
2543: ELSE
2544: FND_FILE.put(FND_FILE.OUTPUT,RPAD(party_name (i), 25, ' ' ));
2545: END IF;
2546: ELSE
2547: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2548: ||l_empty_string ||SUBSTR(l_empty_string,1,5));
2543: ELSE
2544: FND_FILE.put(FND_FILE.OUTPUT,RPAD(party_name (i), 25, ' ' ));
2545: END IF;
2546: ELSE
2547: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2548: ||l_empty_string ||SUBSTR(l_empty_string,1,5));
2549: END IF;
2550:
2551: IF Service_name (i) IS NOT NULL
2550:
2551: IF Service_name (i) IS NOT NULL
2552: THEN
2553: IF LENGTH(Service_name(i)) > 20 THEN
2554: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (Service_name (i), 1, 20),25, ' '));
2555: ELSE
2556: FND_FILE.put(FND_FILE.OUTPUT,RPAD(service_name (i), 25, ' ' ));
2557: END IF;
2558: ELSE
2552: THEN
2553: IF LENGTH(Service_name(i)) > 20 THEN
2554: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (Service_name (i), 1, 20),25, ' '));
2555: ELSE
2556: FND_FILE.put(FND_FILE.OUTPUT,RPAD(service_name (i), 25, ' ' ));
2557: END IF;
2558: ELSE
2559: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2560: ||SUBSTR(l_empty_string,1,5));
2555: ELSE
2556: FND_FILE.put(FND_FILE.OUTPUT,RPAD(service_name (i), 25, ' ' ));
2557: END IF;
2558: ELSE
2559: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2560: ||SUBSTR(l_empty_string,1,5));
2561: END IF;
2562:
2563: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_status (i),10, ' '));
2559: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2560: ||SUBSTR(l_empty_string,1,5));
2561: END IF;
2562:
2563: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_status (i),10, ' '));
2564: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_sdate (i), 14, ' '));
2565: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_edate (i), 13, ' '));
2566: IF date_terminated(i) IS NOT NULL
2567: THEN
2560: ||SUBSTR(l_empty_string,1,5));
2561: END IF;
2562:
2563: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_status (i),10, ' '));
2564: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_sdate (i), 14, ' '));
2565: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_edate (i), 13, ' '));
2566: IF date_terminated(i) IS NOT NULL
2567: THEN
2568: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2561: END IF;
2562:
2563: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_status (i),10, ' '));
2564: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_sdate (i), 14, ' '));
2565: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_edate (i), 13, ' '));
2566: IF date_terminated(i) IS NOT NULL
2567: THEN
2568: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2569: ELSE
2564: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_sdate (i), 14, ' '));
2565: FND_FILE.put(FND_FILE.OUTPUT,RPAD(line_edate (i), 13, ' '));
2566: IF date_terminated(i) IS NOT NULL
2567: THEN
2568: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2569: ELSE
2570: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2571: ||SUBSTR(l_empty_string,1,8));
2572: END IF;
2566: IF date_terminated(i) IS NOT NULL
2567: THEN
2568: FND_FILE.put(FND_FILE.OUTPUT,RPAD(date_terminated(i),18, ' '));
2569: ELSE
2570: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2571: ||SUBSTR(l_empty_string,1,8));
2572: END IF;
2573: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2574: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2569: ELSE
2570: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2571: ||SUBSTR(l_empty_string,1,8));
2572: END IF;
2573: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2574: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2575:
2576: l_cont_length := LENGTH (contract_number(i));
2577: l_party_length := LENGTH (party_name(i));
2570: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string
2571: ||SUBSTR(l_empty_string,1,8));
2572: END IF;
2573: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_number(i), 20,' '));
2574: FND_FILE.put(FND_FILE.OUTPUT,RPAD(cc_exp_date(i), 15, ' '));
2575:
2576: l_cont_length := LENGTH (contract_number(i));
2577: l_party_length := LENGTH (party_name(i));
2578: l_service_length := LENGTH (service_name(i));
2592: END IF;
2593:
2594: FOR j IN 1 ..FLOOR (l_max_length / 20)
2595: LOOP
2596: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2597: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2598: THEN
2599: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2600: ELSE
2595: LOOP
2596: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2597: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2598: THEN
2599: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2600: ELSE
2601: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2602: ||SUBSTR(l_empty_string,1,5));
2603: END IF;
2597: IF contract_number(i) IS NOT NULL AND (SUBSTR (contract_number (i), (j*20+1),20)) IS NOT NULL
2598: THEN
2599: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (contract_number (i), (j*20+1),20),25, ' '));
2600: ELSE
2601: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2602: ||SUBSTR(l_empty_string,1,5));
2603: END IF;
2604: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string ||l_empty_string);
2605: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2600: ELSE
2601: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2602: ||SUBSTR(l_empty_string,1,5));
2603: END IF;
2604: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string ||l_empty_string);
2605: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2606: THEN
2607: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2608: ELSE
2603: END IF;
2604: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string ||l_empty_string);
2605: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2606: THEN
2607: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2608: ELSE
2609: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2610: ||SUBSTR(l_empty_string,1,5));
2611: END IF;
2605: IF party_name(i) IS NOT NULL AND (SUBSTR (party_name (i), (j*20+1),20)) IS NOT NULL
2606: THEN
2607: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (party_name (i), (j*20+1),20),25, ' '));
2608: ELSE
2609: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2610: ||SUBSTR(l_empty_string,1,5));
2611: END IF;
2612: IF service_name(i) IS NOT NULL AND (SUBSTR (service_name (i), (j*20+1),20)) IS NOT null
2613: THEN
2610: ||SUBSTR(l_empty_string,1,5));
2611: END IF;
2612: IF service_name(i) IS NOT NULL AND (SUBSTR (service_name (i), (j*20+1),20)) IS NOT null
2613: THEN
2614: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (service_name (i), (j*20+1),20),25, ' '));
2615: ELSE
2616: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2617: ||SUBSTR(l_empty_string,1,5));
2618: END IF;
2612: IF service_name(i) IS NOT NULL AND (SUBSTR (service_name (i), (j*20+1),20)) IS NOT null
2613: THEN
2614: FND_FILE.put(FND_FILE.OUTPUT,RPAD(SUBSTR (service_name (i), (j*20+1),20),25, ' '));
2615: ELSE
2616: FND_FILE.put(FND_FILE.OUTPUT,l_empty_string||l_empty_string
2617: ||SUBSTR(l_empty_string,1,5));
2618: END IF;
2619:
2620: END LOOP;
2617: ||SUBSTR(l_empty_string,1,5));
2618: END IF;
2619:
2620: END LOOP;
2621: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2622: END LOOP;
2623: ELSE
2624: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2625: END IF;
2620: END LOOP;
2621: FND_FILE.put_line(FND_FILE.OUTPUT,' ');
2622: END LOOP;
2623: ELSE
2624: fnd_file.put_line(FND_FILE.OUTPUT,FND_MESSAGE.get_string('OKS','OKS_RR_MIG_SUCCESS'));
2625: END IF;
2626: END;
2627:
2628:
2732:
2733:
2734: Begin
2735:
2736: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Start of OKS_CREDIT_CARD_PURGE ');
2737:
2738:
2739: IF (FND_CONC_GLOBAL.request_data is null) THEN
2740: -- The following csr gets records from Header history table
2741: Open l_hdr_hist_agg_csr;
2742: Fetch l_hdr_hist_agg_csr into l_agg_rec;
2743: Close l_hdr_hist_agg_csr;
2744:
2745: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_hist_agg_csr');
2746: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
2747: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
2748: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
2749:
2742: Fetch l_hdr_hist_agg_csr into l_agg_rec;
2743: Close l_hdr_hist_agg_csr;
2744:
2745: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_hist_agg_csr');
2746: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
2747: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
2748: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
2749:
2750:
2743: Close l_hdr_hist_agg_csr;
2744:
2745: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_hist_agg_csr');
2746: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
2747: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
2748: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
2749:
2750:
2751:
2744:
2745: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_hdr_hist_agg_csr');
2746: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
2747: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
2748: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
2749:
2750:
2751:
2752: l_ret := FND_REQUEST.submit_request('OKS',
2759:
2760: IF (l_ret = 0) then
2761: errbuf := fnd_message.get;
2762: retcode := 2;
2763: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
2764: return;
2765: ELSE
2766: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2767: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
2762: retcode := 2;
2763: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
2764: return;
2765: ELSE
2766: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2767: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
2768: END IF;
2769:
2770:
2763: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
2764: return;
2765: ELSE
2766: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2767: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
2768: END IF;
2769:
2770:
2771:
2773: open l_line_hist_agg_csr;
2774: fetch l_line_hist_agg_csr into l_agg_rec;
2775: close l_line_hist_agg_csr;
2776:
2777: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_hist_agg_csr' );
2778: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
2779: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
2780: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
2781:
2774: fetch l_line_hist_agg_csr into l_agg_rec;
2775: close l_line_hist_agg_csr;
2776:
2777: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_hist_agg_csr' );
2778: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
2779: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
2780: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
2781:
2782:
2775: close l_line_hist_agg_csr;
2776:
2777: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_hist_agg_csr' );
2778: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
2779: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
2780: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
2781:
2782:
2783:
2776:
2777: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Cursor opened is l_line_hist_agg_csr' );
2778: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.minid = '|| l_agg_rec.minid );
2779: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.maxid = '|| l_agg_rec.maxid );
2780: FND_FILE.PUT_LINE (FND_FILE.LOG, 'l_agg_rec.total = '|| l_agg_rec.total );
2781:
2782:
2783:
2784: l_ret := FND_REQUEST.submit_request ('OKS',
2791:
2792: IF (l_ret = 0) then
2793: errbuf := fnd_message.get;
2794: retcode := 2;
2795: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request Line History failed to submit: ' || errbuf);
2796: return;
2797: ELSE
2798: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2799: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
2794: retcode := 2;
2795: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request Line History failed to submit: ' || errbuf);
2796: return;
2797: ELSE
2798: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2799: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
2800: END IF;
2801:
2802: -- Process the header records
2795: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request Line History failed to submit: ' || errbuf);
2796: return;
2797: ELSE
2798: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2799: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| l_agg_rec.minid || ' l_hig_id ==> '||l_agg_rec.maxid );
2800: END IF;
2801:
2802: -- Process the header records
2803: ---errorout_n(p_batch_size);
2802: -- Process the header records
2803: ---errorout_n(p_batch_size);
2804: FOR range_rec in l_hdr_ranges(p_batch_size)
2805: LOOP
2806: --FND_FILE.PUT_LINE (FND_FILE.LOG, 'Submitting Header CC no request');
2807: ---errorout_n('in hdr range');
2808: l_ret := FND_REQUEST.submit_request('OKS',
2809: 'OKS_UPDCC_HDR',
2810: to_char(range_rec.num), -- UI job display
2816:
2817: IF (l_ret = 0) then
2818: errbuf := fnd_message.get;
2819: retcode := 2;
2820: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
2821: return;
2822: ELSE
2823: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2824: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
2819: retcode := 2;
2820: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
2821: return;
2822: ELSE
2823: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2824: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
2825: END IF;
2826:
2827: END LOOP;
2820: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
2821: return;
2822: ELSE
2823: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2824: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
2825: END IF;
2826:
2827: END LOOP;
2828:
2830: FOR range_rec in l_line_ranges(l_batch_size)
2831: LOOP
2832: ---errorout_n('in line range');
2833:
2834: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Submitting Header CC no request');
2835: l_ret := FND_REQUEST.submit_request('OKS',
2836: 'OKS_UPDCC_LINE',
2837: range_rec.num, -- UI job display
2838: null,
2843:
2844: IF (l_ret = 0) then
2845: errbuf := fnd_message.get;
2846: retcode := 2;
2847: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
2848: return;
2849: ELSE
2850: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2851: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
2846: retcode := 2;
2847: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
2848: return;
2849: ELSE
2850: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2851: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
2852: END IF;
2853:
2854: END LOOP;
2847: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request failed to submit: ' || errbuf);
2848: return;
2849: ELSE
2850: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' submitted');
2851: FND_FILE.PUT_LINE (FND_FILE.LOG, 'Sub-request '||to_char(l_ret)||' p_low_id ==> '|| range_rec.wb_low || ' l_hig_id ==> '||range_rec.wb_high );
2852: END IF;
2853:
2854: END LOOP;
2855: