108:
109: --enable_debug;
110: -- Debug info.
111: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
112: hz_utility_v2pub.debug(p_message=>'FR:load_finreports()+',
113: p_prefix=>l_debug_prefix,
114: p_msg_level=>fnd_log.level_procedure);
115: END IF;
116:
123: END IF;
124:
125: -- Debug info.
126: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
127: hz_utility_v2pub.debug(p_message=>'FR:load_finreports()-',
128: p_prefix=>l_debug_prefix,
129: p_msg_level=>fnd_log.level_procedure);
130: END IF;
131: --disable_debug;
162: WHEN OTHERS THEN
163: --dbms_output.put_line('load finreport exception ' || SQLERRM);
164:
165: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
166: hz_utility_v2pub.debug(p_message=>'load_finreports Exception:',
167: p_prefix=>'SQL ERROR',
168: p_msg_level=>fnd_log.level_error);
169: hz_utility_v2pub.debug(p_message=>SQLERRM,
170: p_prefix=>'SQL ERROR',
165: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
166: hz_utility_v2pub.debug(p_message=>'load_finreports Exception:',
167: p_prefix=>'SQL ERROR',
168: p_msg_level=>fnd_log.level_error);
169: hz_utility_v2pub.debug(p_message=>SQLERRM,
170: p_prefix=>'SQL ERROR',
171: p_msg_level=>fnd_log.level_error);
172: END IF;
173:
481: BEGIN
482: -- Debug info.
483:
484: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
485: hz_utility_v2pub.debug(p_message=>'FR:process_insert_reports()+',
486: p_prefix=>l_debug_prefix,
487: p_msg_level=>fnd_log.level_procedure);
488: END IF;
489:
520: P_DML_RECORD.OS, P_DML_RECORD.FROM_OSR, P_DML_RECORD.TO_OSR,
521: P_DML_RECORD.BATCH_MODE_FLAG;
522:
523: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
524: hz_utility_v2pub.debug(p_message=>'FR:process_insert_reports()-',
525: p_prefix=>l_debug_prefix,
526: p_msg_level=>fnd_log.level_procedure);
527: END IF;
528:
564: l_debug_prefix VARCHAR2(30) := '';
565: BEGIN
566:
567: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
568: hz_utility_v2pub.debug(p_message=>'FR:populate_error_table()+',
569: p_prefix=>l_debug_prefix,
570: p_msg_level=>fnd_log.level_procedure);
571: END IF;
572:
633: between P_DML_RECORD.FROM_OSR and P_DML_RECORD.TO_OSR
634: );
635:
636: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
637: hz_utility_v2pub.debug(p_message=>'FR:populate_error_table()-',
638: p_prefix=>l_debug_prefix,
639: p_msg_level=>fnd_log.level_procedure);
640: END IF;
641:
651: l_dml_exception varchar2(1) := 'N';
652: l_debug_prefix VARCHAR2(30) := '';
653: BEGIN
654: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
655: hz_utility_v2pub.debug(p_message=>'process_update_reports()+',
656: p_prefix=>l_debug_prefix,
657: p_msg_level=>fnd_log.level_procedure);
658: END IF;
659: savepoint process_update_reports_pvt;
758:
759: report_errors(P_DML_RECORD, l_dml_exception);
760:
761: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
762: hz_utility_v2pub.debug(p_message=>'process_update_reports()-',
763: p_prefix=>l_debug_prefix,
764: p_msg_level=>fnd_log.level_procedure);
765: END IF;
766:
847: l_debug_prefix VARCHAR2(30) := '';
848: BEGIN
849:
850: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
851: hz_utility_v2pub.debug(p_message=>'FR:open_update_cursor()+',
852: p_prefix=>l_debug_prefix,
853: p_msg_level=>fnd_log.level_procedure);
854: END IF;
855:
871: P_DML_RECORD.OS, P_DML_RECORD.FROM_OSR, P_DML_RECORD.TO_OSR;
872: end if;
873:
874: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
875: hz_utility_v2pub.debug(p_message=>'FR:open_update_cursor()-',
876: p_prefix=>l_debug_prefix,
877: p_msg_level=>fnd_log.level_procedure);
878: END IF;
879:
889: exp_ind NUMBER := 1;
890: l_debug_prefix VARCHAR2(30) := '';
891: BEGIN
892: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
893: hz_utility_v2pub.debug(p_message=>'FR:report_errors()+',
894: p_prefix=>l_debug_prefix,
895: p_msg_level=>fnd_log.level_procedure);
896: END IF;
897:
913: FOR k IN 1..l_fr_id.count LOOP
914:
915: IF SQL%BULK_ROWCOUNT(k) = 0 THEN
916: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
917: hz_utility_v2pub.debug(p_message=>'DML fails at ' || k,
918: p_prefix=>'ERROR',
919: p_msg_level=>fnd_log.level_error);
920: END IF;
921: l_num_row_processed(k) := 0;
1002: where l_num_row_processed(j) = 0
1003: );
1004:
1005: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1006: hz_utility_v2pub.debug(p_message=>'FR:report_errors()-',
1007: p_prefix=>l_debug_prefix,
1008: p_msg_level=>fnd_log.level_procedure);
1009: END IF;
1010:
1021: IF g_debug_count = 1 THEN
1022: IF fnd_profile.value('HZ_API_FILE_DEBUG_ON') = 'Y' OR
1023: fnd_profile.value('HZ_API_DBMS_DEBUG_ON') = 'Y'
1024: THEN
1025: hz_utility_v2pub.enable_debug;
1026: g_debug := TRUE;
1027: END IF;
1028: END IF;
1029: END enable_debug; -- end procedure
1035:
1036: IF g_debug THEN
1037: g_debug_count := g_debug_count - 1;
1038: IF g_debug_count = 0 THEN
1039: hz_utility_v2pub.disable_debug;
1040: g_debug := FALSE;
1041: END IF;
1042: END IF;
1043: