143: FETCH csr_get_ext_rslt_id INTO l_ext_rslt_id;
144:
145: IF csr_get_ext_rslt_id%NOTFOUND THEN
146: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
147: fnd_file.put_line(fnd_file.log, 'Error: '
148: || fnd_message.get);
149: fnd_file.put_line(fnd_file.log, ' ');
150: CLOSE csr_get_ext_rslt_id;
151: fnd_message.raise_error;
145: IF csr_get_ext_rslt_id%NOTFOUND THEN
146: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
147: fnd_file.put_line(fnd_file.log, 'Error: '
148: || fnd_message.get);
149: fnd_file.put_line(fnd_file.log, ' ');
150: CLOSE csr_get_ext_rslt_id;
151: fnd_message.raise_error;
152: END IF; -- End if of row not found check ...
153: CLOSE csr_get_ext_rslt_id;
328: l_proc_step := 60;
329: DEBUG (l_proc_name, l_proc_step);
330: END IF;
331:
332: fnd_file.put_line(fnd_file.log, 'Total Count for extract result ID: '
333: || TO_CHAR(p_ext_rslt_id));
334: fnd_file.put_line(fnd_file.log, ' ');
335: fnd_file.put_line(fnd_file.log, 'Header Record Count: '
336: || TO_CHAR(l_hdr_count));
330: END IF;
331:
332: fnd_file.put_line(fnd_file.log, 'Total Count for extract result ID: '
333: || TO_CHAR(p_ext_rslt_id));
334: fnd_file.put_line(fnd_file.log, ' ');
335: fnd_file.put_line(fnd_file.log, 'Header Record Count: '
336: || TO_CHAR(l_hdr_count));
337: fnd_file.put_line(fnd_file.log, ' ');
338: fnd_file.put_line(fnd_file.log, 'Detail Record Count: '
331:
332: fnd_file.put_line(fnd_file.log, 'Total Count for extract result ID: '
333: || TO_CHAR(p_ext_rslt_id));
334: fnd_file.put_line(fnd_file.log, ' ');
335: fnd_file.put_line(fnd_file.log, 'Header Record Count: '
336: || TO_CHAR(l_hdr_count));
337: fnd_file.put_line(fnd_file.log, ' ');
338: fnd_file.put_line(fnd_file.log, 'Detail Record Count: '
339: || TO_CHAR(l_dtl_count));
333: || TO_CHAR(p_ext_rslt_id));
334: fnd_file.put_line(fnd_file.log, ' ');
335: fnd_file.put_line(fnd_file.log, 'Header Record Count: '
336: || TO_CHAR(l_hdr_count));
337: fnd_file.put_line(fnd_file.log, ' ');
338: fnd_file.put_line(fnd_file.log, 'Detail Record Count: '
339: || TO_CHAR(l_dtl_count));
340: fnd_file.put_line(fnd_file.log, ' ');
341: fnd_file.put_line(fnd_file.log, 'Trailer Record Count: '
334: fnd_file.put_line(fnd_file.log, ' ');
335: fnd_file.put_line(fnd_file.log, 'Header Record Count: '
336: || TO_CHAR(l_hdr_count));
337: fnd_file.put_line(fnd_file.log, ' ');
338: fnd_file.put_line(fnd_file.log, 'Detail Record Count: '
339: || TO_CHAR(l_dtl_count));
340: fnd_file.put_line(fnd_file.log, ' ');
341: fnd_file.put_line(fnd_file.log, 'Trailer Record Count: '
342: || TO_CHAR(l_trl_count));
336: || TO_CHAR(l_hdr_count));
337: fnd_file.put_line(fnd_file.log, ' ');
338: fnd_file.put_line(fnd_file.log, 'Detail Record Count: '
339: || TO_CHAR(l_dtl_count));
340: fnd_file.put_line(fnd_file.log, ' ');
341: fnd_file.put_line(fnd_file.log, 'Trailer Record Count: '
342: || TO_CHAR(l_trl_count));
343: fnd_file.put_line(fnd_file.log, ' ');
344: fnd_file.put_line(fnd_file.log, 'Person Record Count: '
337: fnd_file.put_line(fnd_file.log, ' ');
338: fnd_file.put_line(fnd_file.log, 'Detail Record Count: '
339: || TO_CHAR(l_dtl_count));
340: fnd_file.put_line(fnd_file.log, ' ');
341: fnd_file.put_line(fnd_file.log, 'Trailer Record Count: '
342: || TO_CHAR(l_trl_count));
343: fnd_file.put_line(fnd_file.log, ' ');
344: fnd_file.put_line(fnd_file.log, 'Person Record Count: '
345: || TO_CHAR(l_per_count));
339: || TO_CHAR(l_dtl_count));
340: fnd_file.put_line(fnd_file.log, ' ');
341: fnd_file.put_line(fnd_file.log, 'Trailer Record Count: '
342: || TO_CHAR(l_trl_count));
343: fnd_file.put_line(fnd_file.log, ' ');
344: fnd_file.put_line(fnd_file.log, 'Person Record Count: '
345: || TO_CHAR(l_per_count));
346: fnd_file.put_line(fnd_file.log, ' ');
347: fnd_file.put_line(fnd_file.log, 'Error Record Count: '
340: fnd_file.put_line(fnd_file.log, ' ');
341: fnd_file.put_line(fnd_file.log, 'Trailer Record Count: '
342: || TO_CHAR(l_trl_count));
343: fnd_file.put_line(fnd_file.log, ' ');
344: fnd_file.put_line(fnd_file.log, 'Person Record Count: '
345: || TO_CHAR(l_per_count));
346: fnd_file.put_line(fnd_file.log, ' ');
347: fnd_file.put_line(fnd_file.log, 'Error Record Count: '
348: || TO_CHAR(l_err_count));
342: || TO_CHAR(l_trl_count));
343: fnd_file.put_line(fnd_file.log, ' ');
344: fnd_file.put_line(fnd_file.log, 'Person Record Count: '
345: || TO_CHAR(l_per_count));
346: fnd_file.put_line(fnd_file.log, ' ');
347: fnd_file.put_line(fnd_file.log, 'Error Record Count: '
348: || TO_CHAR(l_err_count));
349: fnd_file.put_line(fnd_file.log, ' ');
350: fnd_file.put_line(fnd_file.log, 'Total Detail Record Count: '
343: fnd_file.put_line(fnd_file.log, ' ');
344: fnd_file.put_line(fnd_file.log, 'Person Record Count: '
345: || TO_CHAR(l_per_count));
346: fnd_file.put_line(fnd_file.log, ' ');
347: fnd_file.put_line(fnd_file.log, 'Error Record Count: '
348: || TO_CHAR(l_err_count));
349: fnd_file.put_line(fnd_file.log, ' ');
350: fnd_file.put_line(fnd_file.log, 'Total Detail Record Count: '
351: || TO_CHAR(l_tot_count));
345: || TO_CHAR(l_per_count));
346: fnd_file.put_line(fnd_file.log, ' ');
347: fnd_file.put_line(fnd_file.log, 'Error Record Count: '
348: || TO_CHAR(l_err_count));
349: fnd_file.put_line(fnd_file.log, ' ');
350: fnd_file.put_line(fnd_file.log, 'Total Detail Record Count: '
351: || TO_CHAR(l_tot_count));
352: fnd_file.new_line(fnd_file.log, 1);
353:
346: fnd_file.put_line(fnd_file.log, ' ');
347: fnd_file.put_line(fnd_file.log, 'Error Record Count: '
348: || TO_CHAR(l_err_count));
349: fnd_file.put_line(fnd_file.log, ' ');
350: fnd_file.put_line(fnd_file.log, 'Total Detail Record Count: '
351: || TO_CHAR(l_tot_count));
352: fnd_file.new_line(fnd_file.log, 1);
353:
354:
348: || TO_CHAR(l_err_count));
349: fnd_file.put_line(fnd_file.log, ' ');
350: fnd_file.put_line(fnd_file.log, 'Total Detail Record Count: '
351: || TO_CHAR(l_tot_count));
352: fnd_file.new_line(fnd_file.log, 1);
353:
354:
355: p_hdr_count := l_hdr_count;
356: p_dtl_count := l_dtl_count;
552: DEBUG ( 'Entering: '
553: || l_proc_name, l_proc_step);
554: END IF;
555:
556: fnd_file.put_line(fnd_file.log, 'Processing Request ID: '
557: || TO_CHAR(p_request_id));
558: fnd_file.put_line(fnd_file.log, ' ');
559:
560: l_ext_rslt_id := get_ext_rslt_frm_req
554: END IF;
555:
556: fnd_file.put_line(fnd_file.log, 'Processing Request ID: '
557: || TO_CHAR(p_request_id));
558: fnd_file.put_line(fnd_file.log, ' ');
559:
560: l_ext_rslt_id := get_ext_rslt_frm_req
561: (p_request_id => p_request_id
562: ,p_ext_dfn_id => p_ext_dfn_id
574: l_proc_step := 20;
575: DEBUG (l_proc_name, l_proc_step);
576: END IF;
577:
578: fnd_file.put_line(fnd_file.log, 'Extract Result ID: '
579: || TO_CHAR(l_ext_rslt_id));
580: fnd_file.put_line(fnd_file.log, ' ');
581:
582: OPEN csr_get_ext_rslt_dtl (l_ext_rslt_id);
576: END IF;
577:
578: fnd_file.put_line(fnd_file.log, 'Extract Result ID: '
579: || TO_CHAR(l_ext_rslt_id));
580: fnd_file.put_line(fnd_file.log, ' ');
581:
582: OPEN csr_get_ext_rslt_dtl (l_ext_rslt_id);
583: LOOP
584:
773: DEBUG ('Total Error Records Created: '
774: || TO_CHAR(l_count_err));
775: END IF;
776:
777: fnd_file.put_line(fnd_file.log, 'Total Detail Records Created: '
778: || TO_CHAR(l_count_dtl));
779: fnd_file.put_line(fnd_file.log, ' ');
780: fnd_file.put_line(fnd_file.log, 'Total Error Records Created: '
781: || TO_CHAR(l_count_err));
775: END IF;
776:
777: fnd_file.put_line(fnd_file.log, 'Total Detail Records Created: '
778: || TO_CHAR(l_count_dtl));
779: fnd_file.put_line(fnd_file.log, ' ');
780: fnd_file.put_line(fnd_file.log, 'Total Error Records Created: '
781: || TO_CHAR(l_count_err));
782: fnd_file.put_line(fnd_file.log, ' ');
783: fnd_file.put_line(fnd_file.log, 'Finished Processing Request ID: '
776:
777: fnd_file.put_line(fnd_file.log, 'Total Detail Records Created: '
778: || TO_CHAR(l_count_dtl));
779: fnd_file.put_line(fnd_file.log, ' ');
780: fnd_file.put_line(fnd_file.log, 'Total Error Records Created: '
781: || TO_CHAR(l_count_err));
782: fnd_file.put_line(fnd_file.log, ' ');
783: fnd_file.put_line(fnd_file.log, 'Finished Processing Request ID: '
784: || TO_CHAR(p_request_id));
778: || TO_CHAR(l_count_dtl));
779: fnd_file.put_line(fnd_file.log, ' ');
780: fnd_file.put_line(fnd_file.log, 'Total Error Records Created: '
781: || TO_CHAR(l_count_err));
782: fnd_file.put_line(fnd_file.log, ' ');
783: fnd_file.put_line(fnd_file.log, 'Finished Processing Request ID: '
784: || TO_CHAR(p_request_id));
785: fnd_file.new_line(fnd_file.log, 1);
786:
779: fnd_file.put_line(fnd_file.log, ' ');
780: fnd_file.put_line(fnd_file.log, 'Total Error Records Created: '
781: || TO_CHAR(l_count_err));
782: fnd_file.put_line(fnd_file.log, ' ');
783: fnd_file.put_line(fnd_file.log, 'Finished Processing Request ID: '
784: || TO_CHAR(p_request_id));
785: fnd_file.new_line(fnd_file.log, 1);
786:
787: IF g_debug
781: || TO_CHAR(l_count_err));
782: fnd_file.put_line(fnd_file.log, ' ');
783: fnd_file.put_line(fnd_file.log, 'Finished Processing Request ID: '
784: || TO_CHAR(p_request_id));
785: fnd_file.new_line(fnd_file.log, 1);
786:
787: IF g_debug
788: THEN
789: l_proc_step := 70;
888: DEBUG ('Master Business Group Request ID: '
889: || TO_CHAR(l_tab_request_ids(i)));
890: END IF;
891:
892: fnd_file.put_line(fnd_file.log, 'Master Business Group Request ID: '
893: || TO_CHAR(l_tab_request_ids(i)));
894: fnd_file.put_line(fnd_file.log, ' ');
895: CLOSE csr_get_ext_rslt_info;
896: EXIT;
890: END IF;
891:
892: fnd_file.put_line(fnd_file.log, 'Master Business Group Request ID: '
893: || TO_CHAR(l_tab_request_ids(i)));
894: fnd_file.put_line(fnd_file.log, ' ');
895: CLOSE csr_get_ext_rslt_info;
896: EXIT;
897: END IF; -- End if of ext result found check ...
898: CLOSE csr_get_ext_rslt_info;
903: IF l_ext_rslt_info_rec.ext_rslt_id IS NULL THEN
904: -- Error
905: -- There is no result for master business group
906: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
907: fnd_file.put_line(fnd_file.log, 'Error: '
908: || fnd_message.get);
909: fnd_file.put_line(fnd_file.log, ' ');
910: fnd_message.raise_error;
911: END IF; -- End if of ext rslt id null check ...
905: -- There is no result for master business group
906: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
907: fnd_file.put_line(fnd_file.log, 'Error: '
908: || fnd_message.get);
909: fnd_file.put_line(fnd_file.log, ' ');
910: fnd_message.raise_error;
911: END IF; -- End if of ext rslt id null check ...
912:
913: --
923: FETCH csr_get_ext_param INTO l_ext_param_rec;
924:
925: IF csr_get_ext_param%NOTFOUND THEN
926: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
927: fnd_file.put_line(fnd_file.log, 'Error: '
928: || fnd_message.get);
929: fnd_file.put_line(fnd_file.log, ' ');
930: CLOSE csr_get_ext_param;
931: fnd_message.raise_error;
925: IF csr_get_ext_param%NOTFOUND THEN
926: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
927: fnd_file.put_line(fnd_file.log, 'Error: '
928: || fnd_message.get);
929: fnd_file.put_line(fnd_file.log, ' ');
930: CLOSE csr_get_ext_param;
931: fnd_message.raise_error;
932: END IF; -- End if of row not found check ...
933: CLOSE csr_get_ext_param;
958: l_proc_step := 40;
959: DEBUG (l_proc_name, l_proc_step);
960: END IF;
961:
962: fnd_file.put_line(fnd_file.log, 'Master Request ID: '
963: || TO_CHAR(l_master_request_id));
964: fnd_file.put_line(fnd_file.log, ' ');
965:
966: ben_ext_rslt_api.create_ext_rslt
960: END IF;
961:
962: fnd_file.put_line(fnd_file.log, 'Master Request ID: '
963: || TO_CHAR(l_master_request_id));
964: fnd_file.put_line(fnd_file.log, ' ');
965:
966: ben_ext_rslt_api.create_ext_rslt
967: (p_validate => FALSE
968: ,p_ext_rslt_id => l_master_ext_rslt_id
990: l_proc_step := 50;
991: DEBUG (l_proc_name, l_proc_step);
992: END IF;
993:
994: fnd_file.put_line(fnd_file.log, 'Master Result ID: '
995: || TO_CHAR(l_master_ext_rslt_id));
996: fnd_file.put_line(fnd_file.log, ' ');
997:
998: i := l_tab_request_ids.FIRST;
992: END IF;
993:
994: fnd_file.put_line(fnd_file.log, 'Master Result ID: '
995: || TO_CHAR(l_master_ext_rslt_id));
996: fnd_file.put_line(fnd_file.log, ' ');
997:
998: i := l_tab_request_ids.FIRST;
999:
1000: WHILE i IS NOT NULL
1526: CLOSE pqp_gb_t1_pension_extracts.csr_multiproc_data;
1527:
1528: -- Exiting because another process is running and you can not submit twice
1529: fnd_message.set_name('PQP', 'PQP_230036_MULTIPLE_TP_EXT_ERR');
1530: fnd_file.put_line(fnd_file.log, fnd_message.get);
1531: fnd_message.raise_error;
1532: RETURN;
1533:
1534: END IF;
1810: fnd_message.set_name('PQP', 'PQP_230037_CURR_BG_NOT_LEA_ERR');
1811: l_err_msg := fnd_message.get;
1812: errbuf := l_err_msg;
1813: retcode := PROGRAM_FAILURE;
1814: fnd_file.put_line(fnd_file.log, l_err_msg);
1815:
1816: fnd_message.raise_error;
1817:
1818: RETURN;
1885: fnd_message.set_name('PQP', 'PQP_230037_CURR_BG_NOT_LEA_ERR');
1886: l_err_msg := fnd_message.get;
1887: errbuf := l_err_msg;
1888: retcode := PROGRAM_FAILURE;
1889: fnd_file.put_line(fnd_file.log, l_err_msg);
1890:
1891: fnd_message.raise_error;
1892:
1893: RETURN;
1978: fnd_message.set_name('PQP', 'PQP_230038_EXT_PROC_SUBMIT_ERR');
1979: fnd_message.set_token('BGNAME', l_bg_name);
1980: l_err_msg := fnd_message.get;
1981: errbuf := l_err_msg;
1982: fnd_file.put_line(fnd_file.log, l_err_msg);
1983: l_retcode := PROGRAM_FAILURE ;
1984: l_err_msg := NULL;
1985: EXIT;
1986: END IF;
2013: OR
2014: (l_dev_phase = 'COMPLETE' AND l_dev_status <> 'NORMAL'
2015: ) THEN
2016:
2017: fnd_file.put_line(fnd_file.log, l_message);
2018:
2019: l_bg_name := NULL;
2020: OPEN csr_bg_name(l_curr_bg_id);
2021: FETCH csr_bg_name INTO l_bg_name;
2024: fnd_message.set_name('PQP', 'PQP_230039_EXT_PROC_EXEC_ERR');
2025: fnd_message.set_token('BGNAME', l_bg_name);
2026: l_err_msg := fnd_message.get;
2027: errbuf := l_err_msg;
2028: fnd_file.put_line(fnd_file.log, l_err_msg);
2029: l_retcode := PROGRAM_FAILURE ;
2030: l_err_msg := NULL;
2031: EXIT;
2032:
2107: OR
2108: (l_dev_phase = 'COMPLETE' AND l_dev_status <> 'NORMAL'
2109: ) THEN
2110:
2111: fnd_file.put_line(fnd_file.log, l_message);
2112:
2113: l_bg_name := NULL;
2114: OPEN csr_bg_name(l_curr_bg_id);
2115: FETCH csr_bg_name INTO l_bg_name;
2118: fnd_message.set_name('PQP', 'PQP_230039_EXT_PROC_EXEC_ERR');
2119: fnd_message.set_token('BGNAME', l_bg_name);
2120: l_err_msg := fnd_message.get;
2121: errbuf := l_err_msg;
2122: fnd_file.put_line(fnd_file.log, l_err_msg);
2123: l_retcode := PROGRAM_FAILURE ;
2124: l_err_msg:= NULL;
2125: EXIT;
2126:
2203:
2204: COMMIT;
2205:
2206: -- Write a summary in the log file
2207: fnd_file.put_line(fnd_file.log, 'Teachers Pension Extract Process completed successfully.');
2208: fnd_file.put_line(fnd_file.log, ' ');
2209: fnd_file.put_line(fnd_file.log, 'Total business groups processed :'
2210: ||to_char(g_lea_business_groups.COUNT));
2211: fnd_file.put_line(fnd_file.log, ' ');
2204: COMMIT;
2205:
2206: -- Write a summary in the log file
2207: fnd_file.put_line(fnd_file.log, 'Teachers Pension Extract Process completed successfully.');
2208: fnd_file.put_line(fnd_file.log, ' ');
2209: fnd_file.put_line(fnd_file.log, 'Total business groups processed :'
2210: ||to_char(g_lea_business_groups.COUNT));
2211: fnd_file.put_line(fnd_file.log, ' ');
2212: fnd_file.put_line(fnd_file.log, 'Business Group Id Request Id ');
2205:
2206: -- Write a summary in the log file
2207: fnd_file.put_line(fnd_file.log, 'Teachers Pension Extract Process completed successfully.');
2208: fnd_file.put_line(fnd_file.log, ' ');
2209: fnd_file.put_line(fnd_file.log, 'Total business groups processed :'
2210: ||to_char(g_lea_business_groups.COUNT));
2211: fnd_file.put_line(fnd_file.log, ' ');
2212: fnd_file.put_line(fnd_file.log, 'Business Group Id Request Id ');
2213: fnd_file.put_line(fnd_file.log, '----------------- ---------------');
2207: fnd_file.put_line(fnd_file.log, 'Teachers Pension Extract Process completed successfully.');
2208: fnd_file.put_line(fnd_file.log, ' ');
2209: fnd_file.put_line(fnd_file.log, 'Total business groups processed :'
2210: ||to_char(g_lea_business_groups.COUNT));
2211: fnd_file.put_line(fnd_file.log, ' ');
2212: fnd_file.put_line(fnd_file.log, 'Business Group Id Request Id ');
2213: fnd_file.put_line(fnd_file.log, '----------------- ---------------');
2214:
2215: l_curr_bg_id := g_lea_business_groups.FIRST;
2208: fnd_file.put_line(fnd_file.log, ' ');
2209: fnd_file.put_line(fnd_file.log, 'Total business groups processed :'
2210: ||to_char(g_lea_business_groups.COUNT));
2211: fnd_file.put_line(fnd_file.log, ' ');
2212: fnd_file.put_line(fnd_file.log, 'Business Group Id Request Id ');
2213: fnd_file.put_line(fnd_file.log, '----------------- ---------------');
2214:
2215: l_curr_bg_id := g_lea_business_groups.FIRST;
2216:
2209: fnd_file.put_line(fnd_file.log, 'Total business groups processed :'
2210: ||to_char(g_lea_business_groups.COUNT));
2211: fnd_file.put_line(fnd_file.log, ' ');
2212: fnd_file.put_line(fnd_file.log, 'Business Group Id Request Id ');
2213: fnd_file.put_line(fnd_file.log, '----------------- ---------------');
2214:
2215: l_curr_bg_id := g_lea_business_groups.FIRST;
2216:
2217: WHILE l_curr_bg_id IS NOT NULL
2216:
2217: WHILE l_curr_bg_id IS NOT NULL
2218: LOOP
2219:
2220: fnd_file.put(fnd_file.log, rpad(to_char(l_curr_bg_id), 20));
2221: fnd_file.put_line
2222: (fnd_file.log
2223: ,rpad(to_char(g_lea_business_groups(l_curr_bg_id).request_id), 15)
2224: );
2217: WHILE l_curr_bg_id IS NOT NULL
2218: LOOP
2219:
2220: fnd_file.put(fnd_file.log, rpad(to_char(l_curr_bg_id), 20));
2221: fnd_file.put_line
2222: (fnd_file.log
2223: ,rpad(to_char(g_lea_business_groups(l_curr_bg_id).request_id), 15)
2224: );
2225:
2218: LOOP
2219:
2220: fnd_file.put(fnd_file.log, rpad(to_char(l_curr_bg_id), 20));
2221: fnd_file.put_line
2222: (fnd_file.log
2223: ,rpad(to_char(g_lea_business_groups(l_curr_bg_id).request_id), 15)
2224: );
2225:
2226: l_curr_bg_id := g_lea_business_groups.NEXT(l_curr_bg_id);