11: := gcs_utility_pkg.g_dimension_attr_info;
12: g_gcs_dimension_info gcs_utility_pkg.t_hash_gcs_dimension_info
13: := gcs_utility_pkg.g_gcs_dimension_info;
14: g_fnd_user_id NUMBER := fnd_global.user_id;
15: g_fnd_login_id NUMBER := fnd_global.login_id;
16: -- Action types for writing module information to the log file.
17:
18: -- A newline character. Included for convenience when writing long
19: -- strings.
143:
144:
145: BEGIN
146:
147: --dbms_output.Put_line('Log Level: '||FND_LOG.LEVEL_PROCEDURE);
148: --dbms_output.Put_line('G Level: '||FND_LOG.G_CURRENT_RUNTIME_LEVEL);
149:
150: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: fnd_log.STRING (fnd_log.level_procedure,
144:
145: BEGIN
146:
147: --dbms_output.Put_line('Log Level: '||FND_LOG.LEVEL_PROCEDURE);
148: --dbms_output.Put_line('G Level: '||FND_LOG.G_CURRENT_RUNTIME_LEVEL);
149:
150: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: fnd_log.STRING (fnd_log.level_procedure,
152: g_pkg_name || '.' || l_api_name,
146:
147: --dbms_output.Put_line('Log Level: '||FND_LOG.LEVEL_PROCEDURE);
148: --dbms_output.Put_line('G Level: '||FND_LOG.G_CURRENT_RUNTIME_LEVEL);
149:
150: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: fnd_log.STRING (fnd_log.level_procedure,
152: g_pkg_name || '.' || l_api_name,
153: gcs_utility_pkg.g_module_enter
154: || ' '
147: --dbms_output.Put_line('Log Level: '||FND_LOG.LEVEL_PROCEDURE);
148: --dbms_output.Put_line('G Level: '||FND_LOG.G_CURRENT_RUNTIME_LEVEL);
149:
150: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151: fnd_log.STRING (fnd_log.level_procedure,
152: g_pkg_name || '.' || l_api_name,
153: gcs_utility_pkg.g_module_enter
154: || ' '
155: || l_api_name
172: g_stop_processing := FALSE;
173:
174:
175: --Get the period start date and end date information
176: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
177: fnd_log.STRING (fnd_log.level_procedure,
178: g_pkg_name || '.' || l_api_name,
179: 'Get the period start date and end date info..,'
180: );
173:
174:
175: --Get the period start date and end date information
176: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
177: fnd_log.STRING (fnd_log.level_procedure,
178: g_pkg_name || '.' || l_api_name,
179: 'Get the period start date and end date info..,'
180: );
181: END IF;
211: -- Get the consolidation entity currency and matching rule
212: -- for matching intercompany eliminations such as by organization,
213: -- by company or by cost center.
214:
215: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
216: fnd_log.STRING (fnd_log.level_procedure,
217: g_pkg_name || '.' || l_api_name,
218: 'Get currency and matching rule information'
219: );
212: -- for matching intercompany eliminations such as by organization,
213: -- by company or by cost center.
214:
215: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
216: fnd_log.STRING (fnd_log.level_procedure,
217: g_pkg_name || '.' || l_api_name,
218: 'Get currency and matching rule information'
219: );
220: END IF;
244: WHEN NO_DATA_FOUND Then
245: Raise NO_CURRENCY_OR_MATCH_CODE;
246: END;
247:
248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
249: fnd_log.STRING (fnd_log.level_procedure,
250: g_pkg_name || '.' || l_api_name,
251: 'Get the elimination entity id for the '
252: ||' given consolidation entity'
245: Raise NO_CURRENCY_OR_MATCH_CODE;
246: END;
247:
248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
249: fnd_log.STRING (fnd_log.level_procedure,
250: g_pkg_name || '.' || l_api_name,
251: 'Get the elimination entity id for the '
252: ||' given consolidation entity'
253: );
301: AND entity_id = g_elim_entity_id;
302: END IF;
303:
304:
305: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
306: fnd_log.STRING (fnd_log.level_procedure,
307: g_pkg_name || '.' || l_api_name,
308: 'Insert parent child entity relationships into'
309: ||'GCS_INTERCO_SUBS_GT'
302: END IF;
303:
304:
305: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
306: fnd_log.STRING (fnd_log.level_procedure,
307: g_pkg_name || '.' || l_api_name,
308: 'Insert parent child entity relationships into'
309: ||'GCS_INTERCO_SUBS_GT'
310: );
335: l_elim_mode := p_elim_mode;
336: g_elim_code := p_elim_mode;
337: l_Currency_code := p_currency_code;
338:
339: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
340:
341: SELECT count(*) into g_no_rows
342: from GCS_INTERCO_HDR_GT;
343: FND_LOG.String (fnd_log.level_procedure,
339: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
340:
341: SELECT count(*) into g_no_rows
342: from GCS_INTERCO_HDR_GT;
343: FND_LOG.String (fnd_log.level_procedure,
344: g_pkg_name || '.' || l_api_name,
345: 'Number of rows in GCS_INTERCO_HDR_GT: '||g_no_rows);
346:
347: g_no_rows :=0;
347: g_no_rows :=0;
348:
349: SELECT count(*) into g_no_rows
350: from GCS_INTERCO_SUBS_GT;
351: FND_LOG.String (fnd_log.level_procedure,
352: g_pkg_name || '.' || l_api_name,
353: 'Number of rows in GCS_INTERCO_SUBS_GT: '||g_no_rows);
354:
355: g_no_rows :=0;
359:
360:
361:
362:
363: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
364: fnd_log.STRING (fnd_log.level_procedure,
365: g_pkg_name || '.' || l_api_name,
366: ' Arguments l_hierarchy_id :'||p_hierarchy_id
367: ||' l_cal_period_id: '||p_cal_period_id
360:
361:
362:
363: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
364: fnd_log.STRING (fnd_log.level_procedure,
365: g_pkg_name || '.' || l_api_name,
366: ' Arguments l_hierarchy_id :'||p_hierarchy_id
367: ||' l_cal_period_id: '||p_cal_period_id
368: ||' l_entity_id: '||p_entity_id
384:
385:
386:
387:
388: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
389: fnd_log.STRING (fnd_log.level_procedure,
390: g_pkg_name || '.' || l_api_name,
391: 'Call insert_interco_hdrs() routine'
392: );
385:
386:
387:
388: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
389: fnd_log.STRING (fnd_log.level_procedure,
390: g_pkg_name || '.' || l_api_name,
391: 'Call insert_interco_hdrs() routine'
392: );
393: END IF;
402: p_currency_code => l_currency_code)) = FALSE)
403: THEN
404:
405:
406: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
407:
408: fnd_log.STRING (fnd_log.level_procedure,
409: g_pkg_name || '.' || l_api_name,
410: 'Error in inserting rows into temporary table '
404:
405:
406: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
407:
408: fnd_log.STRING (fnd_log.level_procedure,
409: g_pkg_name || '.' || l_api_name,
410: 'Error in inserting rows into temporary table '
411: ||' SQL error message: '||SUBSTR(SQLERRM, 1, 255));
412: RAISE INTERCO_HDR_GT_ERR;
418:
419: If (g_stop_processing) THEN
420:
421: g_stop_processing := FALSE;
422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
423: fnd_log.STRING (fnd_log.level_procedure,
424: g_pkg_name || '.' || l_api_name,
425: ' No rows to process');
426: fnd_log.STRING (fnd_log.level_procedure,
419: If (g_stop_processing) THEN
420:
421: g_stop_processing := FALSE;
422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
423: fnd_log.STRING (fnd_log.level_procedure,
424: g_pkg_name || '.' || l_api_name,
425: ' No rows to process');
426: fnd_log.STRING (fnd_log.level_procedure,
427: g_pkg_name || '.' || l_api_name,
422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
423: fnd_log.STRING (fnd_log.level_procedure,
424: g_pkg_name || '.' || l_api_name,
425: ' No rows to process');
426: fnd_log.STRING (fnd_log.level_procedure,
427: g_pkg_name || '.' || l_api_name,
428: gcs_utility_pkg.g_module_success
429: || ' '
430: || l_api_name
434: END IF;
435: RETURN;
436: END IF;
437:
438: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
439: fnd_log.STRING (fnd_log.level_procedure,
440: g_pkg_name || '.' || l_api_name,
441: ' Call GCS_INTERCO_DYNAMIC_PKG.INSR_INTERCO_LINES()'
442: || ' routine to insert intercompany eliminations'
435: RETURN;
436: END IF;
437:
438: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
439: fnd_log.STRING (fnd_log.level_procedure,
440: g_pkg_name || '.' || l_api_name,
441: ' Call GCS_INTERCO_DYNAMIC_PKG.INSR_INTERCO_LINES()'
442: || ' routine to insert intercompany eliminations'
443: );
465: p_period_end_date => g_period_end_date,
466: p_fem_ledger_id => l_fem_ledger_id))
467: = FALSE) THEN
468:
469: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
470:
471: fnd_log.STRING (fnd_log.level_procedure,
472: g_pkg_name || '.' || l_api_name,
473: 'Error in inserting intercompany lines into '
467: = FALSE) THEN
468:
469: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
470:
471: fnd_log.STRING (fnd_log.level_procedure,
472: g_pkg_name || '.' || l_api_name,
473: 'Error in inserting intercompany lines into '
474: ||' GCS_ENTRY_LINES '
475: ||' SQL error message: '||SUBSTR(SQLERRM, 1, 255));
479:
480:
481: End If;
482:
483: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
484: fnd_log.STRING (fnd_log.level_procedure,
485: g_pkg_name || '.' || l_api_name,
486: ' Call GCS_INTERCO_DYNAMIC_PKG.INSR_INTERCO_LINES()'
487: || ' routine to insert suspense elimination'
480:
481: End If;
482:
483: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
484: fnd_log.STRING (fnd_log.level_procedure,
485: g_pkg_name || '.' || l_api_name,
486: ' Call GCS_INTERCO_DYNAMIC_PKG.INSR_INTERCO_LINES()'
487: || ' routine to insert suspense elimination'
488: || ' lines.');
532:
533: End If;
534:
535:
536: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
537: fnd_log.STRING (fnd_log.level_procedure,
538: g_pkg_name || '.' || l_api_name,
539: ' Call GCS_INTERCO_DYNAMIC_PKG.INSR_INTERCO_LINES()'
540: || ' routine to insert suspense elimination'
533: End If;
534:
535:
536: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
537: fnd_log.STRING (fnd_log.level_procedure,
538: g_pkg_name || '.' || l_api_name,
539: ' Call GCS_INTERCO_DYNAMIC_PKG.INSR_INTERCO_LINES()'
540: || ' routine to insert suspense elimination'
541: || ' lines.');
548: p_entity_id => l_entity_id,
549: p_balance_type => l_balance_type,
550: p_currency_code => l_Currency_code)) = FALSE)
551: THEN
552: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
553:
554: fnd_log.STRING (fnd_log.level_procedure,
555: g_pkg_name || '.' || l_api_name,
556: 'Error in inserting elimination headers '
550: p_currency_code => l_Currency_code)) = FALSE)
551: THEN
552: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
553:
554: fnd_log.STRING (fnd_log.level_procedure,
555: g_pkg_name || '.' || l_api_name,
556: 'Error in inserting elimination headers '
557: ||' GCS_ENTRY_LINES '
558: ||' SQL error message: '||SUBSTR(SQLERRM, 1, 255));
571: If ((l_lob_rpt_enabled_flag = 'Y') AND
572: (l_lob_dim_col_name IS NOT NULL)) THEN
573:
574:
575: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
576: fnd_log.STRING (fnd_log.level_procedure,
577: g_pkg_name || '.' || l_api_name,
578: ' Entered into LE_LOB support block');
579:
572: (l_lob_dim_col_name IS NOT NULL)) THEN
573:
574:
575: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
576: fnd_log.STRING (fnd_log.level_procedure,
577: g_pkg_name || '.' || l_api_name,
578: ' Entered into LE_LOB support block');
579:
580: END IF;
580: END IF;
581:
582: BEGIN
583:
584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
585: fnd_log.STRING (fnd_log.level_procedure,
586: g_pkg_name || '.' || l_api_name,
587: ' Checking Hierarchy Date effectivity');
588:
581:
582: BEGIN
583:
584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
585: fnd_log.STRING (fnd_log.level_procedure,
586: g_pkg_name || '.' || l_api_name,
587: ' Checking Hierarchy Date effectivity');
588:
589: END IF;
604: null;
605: --Raise Hierarchy_date_Check_Failed;
606:
607: WHEN OTHERS THEN
608: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
609: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
610: g_pkg_name || '.' || l_api_name
611: ||' Hierarchy_Check ',
612: SUBSTR(SQLERRM, 1, 255));
605: --Raise Hierarchy_date_Check_Failed;
606:
607: WHEN OTHERS THEN
608: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
609: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
610: g_pkg_name || '.' || l_api_name
611: ||' Hierarchy_Check ',
612: SUBSTR(SQLERRM, 1, 255));
613:
614: END IF;
615:
616: END;
617:
618: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: fnd_log.STRING (fnd_log.level_procedure,
620: g_pkg_name || '.' || l_api_name,
621: ' Finding required dimensions');
622:
615:
616: END;
617:
618: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
619: fnd_log.STRING (fnd_log.level_procedure,
620: g_pkg_name || '.' || l_api_name,
621: ' Finding required dimensions');
622:
623: END IF;
634: ||' = gel1.'
635: ||l_dims_list(i);
636: END LOOP;
637:
638: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
639: fnd_log.STRING (fnd_log.level_procedure,
640: g_pkg_name || '.' || l_api_name,
641: 'Required dimensions statement is : '
642: ||l_text
635: ||l_dims_list(i);
636: END LOOP;
637:
638: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
639: fnd_log.STRING (fnd_log.level_procedure,
640: g_pkg_name || '.' || l_api_name,
641: 'Required dimensions statement is : '
642: ||l_text
643: ||' Lob_Dim_Col_Name is: '
708: AND fcca.version_id = :version_id)
709: WHERE ENTRY_ID IN ( SELECT ENTRY_ID FROM GCS_INTERCO_HDR_GT)
710: AND description = ''SUSPENSE_LINE''';
711:
712: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
713:
714: fnd_log.STRING (fnd_log.level_procedure,
715: g_pkg_name || '.' || l_api_name,
716: 'Updating '|| l_lob_dim_col_name
710: AND description = ''SUSPENSE_LINE''';
711:
712: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
713:
714: fnd_log.STRING (fnd_log.level_procedure,
715: g_pkg_name || '.' || l_api_name,
716: 'Updating '|| l_lob_dim_col_name
717: ||' in GCS_ENTRY_LINES with elimination LOB'
718: );
718: );
719:
720: END IF;
721:
722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
723:
724: fnd_log.STRING (fnd_log.level_procedure,
725: g_pkg_name || '.' || l_api_name,
726: l_sql_stmt
720: END IF;
721:
722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
723:
724: fnd_log.STRING (fnd_log.level_procedure,
725: g_pkg_name || '.' || l_api_name,
726: l_sql_stmt
727: );
728: fnd_log.STRING (fnd_log.level_procedure,
724: fnd_log.STRING (fnd_log.level_procedure,
725: g_pkg_name || '.' || l_api_name,
726: l_sql_stmt
727: );
728: fnd_log.STRING (fnd_log.level_procedure,
729: g_pkg_name || '.' || l_api_name,
730: l_sql_stmt1
731: );
732: END IF;
746:
747:
748: g_no_rows := NVL(SQL%ROWCOUNT,0);
749:
750: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
751: FND_MESSAGE.Set_Name('SQLGL','SHRD0118');
752: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
753: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_LINES');
754:
752: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
753: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_LINES');
754:
755:
756: FND_LOG.String (fnd_log.level_procedure,
757: g_pkg_name || '.' || l_api_name,
758: 'SHRD0117: '||FND_MESSAGE.get);
759: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0118: '||FND_MESSAGE.get);
760: END IF;
775: END IF;
776:
777:
778: --Success:
779: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
780:
781: fnd_log.STRING (fnd_log.level_procedure,
782: g_pkg_name || '.' || l_api_name,
783: gcs_utility_pkg.g_module_success
777:
778: --Success:
779: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
780:
781: fnd_log.STRING (fnd_log.level_procedure,
782: g_pkg_name || '.' || l_api_name,
783: gcs_utility_pkg.g_module_success
784: || ' '
785: || l_api_name
790:
791: EXCEPTION
792:
793: WHEN no_period_dates THEN
794: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
795:
796: fnd_log.STRING (fnd_log.level_unexpected,
797: g_pkg_name || '.' || l_api_name,
798: ' No valid period information available '
792:
793: WHEN no_period_dates THEN
794: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
795:
796: fnd_log.STRING (fnd_log.level_unexpected,
797: g_pkg_name || '.' || l_api_name,
798: ' No valid period information available '
799: );
800:
797: g_pkg_name || '.' || l_api_name,
798: ' No valid period information available '
799: );
800:
801: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
802: g_pkg_name || '.' || l_api_name,
803: SUBSTR(SQLERRM, 1, 255));
804:
805: fnd_log.STRING (fnd_log.level_unexpected,
801: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
802: g_pkg_name || '.' || l_api_name,
803: SUBSTR(SQLERRM, 1, 255));
804:
805: fnd_log.STRING (fnd_log.level_unexpected,
806: g_pkg_name || '.' || l_api_name,
807: gcs_utility_pkg.g_module_failure
808: || ' '
809: || l_api_name
818:
819:
820:
821: WHEN no_currency_or_match_code THEN
822: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
823:
824: fnd_log.STRING (fnd_log.level_unexpected,
825: g_pkg_name || '.' || l_api_name,
826: ' No currency or matching rule'
820:
821: WHEN no_currency_or_match_code THEN
822: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
823:
824: fnd_log.STRING (fnd_log.level_unexpected,
825: g_pkg_name || '.' || l_api_name,
826: ' No currency or matching rule'
827: );
828:
825: g_pkg_name || '.' || l_api_name,
826: ' No currency or matching rule'
827: );
828:
829: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
830: g_pkg_name || '.' || l_api_name,
831: SUBSTR(SQLERRM, 1, 255));
832:
833: fnd_log.STRING (fnd_log.level_unexpected,
829: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
830: g_pkg_name || '.' || l_api_name,
831: SUBSTR(SQLERRM, 1, 255));
832:
833: fnd_log.STRING (fnd_log.level_unexpected,
834: g_pkg_name || '.' || l_api_name,
835: gcs_utility_pkg.g_module_failure
836: || ' '
837: || l_api_name
841: END IF;
842: RAISE;
843:
844: WHEN no_elim_entity THEN
845: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
846:
847: fnd_log.STRING (fnd_log.level_unexpected,
848: g_pkg_name || '.' || l_api_name,
849: ' No elimination entity associated '
843:
844: WHEN no_elim_entity THEN
845: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
846:
847: fnd_log.STRING (fnd_log.level_unexpected,
848: g_pkg_name || '.' || l_api_name,
849: ' No elimination entity associated '
850: );
851:
848: g_pkg_name || '.' || l_api_name,
849: ' No elimination entity associated '
850: );
851:
852: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
853: g_pkg_name || '.' || l_api_name,
854: SUBSTR(SQLERRM, 1, 255));
855:
856: fnd_log.STRING (fnd_log.level_unexpected,
852: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
853: g_pkg_name || '.' || l_api_name,
854: SUBSTR(SQLERRM, 1, 255));
855:
856: fnd_log.STRING (fnd_log.level_unexpected,
857: g_pkg_name || '.' || l_api_name,
858: gcs_utility_pkg.g_module_failure
859: || ' '
860: || l_api_name
864: END IF;
865: RAISE;
866:
867: WHEN no_data_set_code THEN
868: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
869:
870: fnd_log.STRING (fnd_log.level_unexpected,
871: g_pkg_name || '.' || l_api_name,
872: ' No valid dataset code available '
866:
867: WHEN no_data_set_code THEN
868: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
869:
870: fnd_log.STRING (fnd_log.level_unexpected,
871: g_pkg_name || '.' || l_api_name,
872: ' No valid dataset code available '
873: );
874:
871: g_pkg_name || '.' || l_api_name,
872: ' No valid dataset code available '
873: );
874:
875: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
876: g_pkg_name || '.' || l_api_name,
877: SUBSTR(SQLERRM, 1, 255));
878:
879: fnd_log.STRING (fnd_log.level_unexpected,
875: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
876: g_pkg_name || '.' || l_api_name,
877: SUBSTR(SQLERRM, 1, 255));
878:
879: fnd_log.STRING (fnd_log.level_unexpected,
880: g_pkg_name || '.' || l_api_name,
881: gcs_utility_pkg.g_module_failure
882: || ' '
883: || l_api_name
890:
891: RAISE;
892:
893: WHEN INTERCO_SUS_LINE_ERR THEN
894: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
895:
896: fnd_log.STRING (fnd_log.level_unexpected,
897: g_pkg_name || '.' || l_api_name,
898: ' Error In Insert_Suspense_lines() '
892:
893: WHEN INTERCO_SUS_LINE_ERR THEN
894: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
895:
896: fnd_log.STRING (fnd_log.level_unexpected,
897: g_pkg_name || '.' || l_api_name,
898: ' Error In Insert_Suspense_lines() '
899: || SUBSTR(l_err_msg, 1, 255));
900:
897: g_pkg_name || '.' || l_api_name,
898: ' Error In Insert_Suspense_lines() '
899: || SUBSTR(l_err_msg, 1, 255));
900:
901: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
902: g_pkg_name || '.' || l_api_name,
903: SUBSTR(l_err_msg, 1, 255));
904:
905: fnd_log.STRING (fnd_log.level_unexpected,
901: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
902: g_pkg_name || '.' || l_api_name,
903: SUBSTR(l_err_msg, 1, 255));
904:
905: fnd_log.STRING (fnd_log.level_unexpected,
906: g_pkg_name || '.' || l_api_name,
907: gcs_utility_pkg.g_module_failure
908: || ' '
909: || l_api_name
921:
922:
923: WHEN INTERCO_LINE_ERR THEN
924:
925: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
926:
927: fnd_log.STRING (fnd_log.level_unexpected,
928: g_pkg_name || '.' || l_api_name,
929: ' Error In Insert_Interco_lines() '
923: WHEN INTERCO_LINE_ERR THEN
924:
925: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
926:
927: fnd_log.STRING (fnd_log.level_unexpected,
928: g_pkg_name || '.' || l_api_name,
929: ' Error In Insert_Interco_lines() '
930: || SUBSTR(SQLERRM, 1, 255));
931:
928: g_pkg_name || '.' || l_api_name,
929: ' Error In Insert_Interco_lines() '
930: || SUBSTR(SQLERRM, 1, 255));
931:
932: fnd_log.STRING (fnd_log.level_unexpected,
933: g_pkg_name || '.' || l_api_name,
934: gcs_utility_pkg.g_module_failure
935: || ' '
936: || l_api_name
948:
949:
950: WHEN INTERCO_HDR_GT_ERR THEN
951:
952: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
953:
954: fnd_log.STRING (fnd_log.level_unexpected,
955: g_pkg_name || '.' || l_api_name,
956: ' Error In Insert_Interco_Hdrs() '
950: WHEN INTERCO_HDR_GT_ERR THEN
951:
952: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
953:
954: fnd_log.STRING (fnd_log.level_unexpected,
955: g_pkg_name || '.' || l_api_name,
956: ' Error In Insert_Interco_Hdrs() '
957: || SUBSTR(SQLERRM, 1, 255));
958:
955: g_pkg_name || '.' || l_api_name,
956: ' Error In Insert_Interco_Hdrs() '
957: || SUBSTR(SQLERRM, 1, 255));
958:
959: fnd_log.STRING (fnd_log.level_unexpected,
960: g_pkg_name || '.' || l_api_name,
961: gcs_utility_pkg.g_module_failure
962: || ' '
963: || l_api_name
975:
976:
977: WHEN INTERCO_ELIM_HDR_ERR THEN
978:
979: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
980:
981: fnd_log.STRING (fnd_log.level_unexpected,
982: g_pkg_name || '.' || l_api_name,
983: ' Error In Insert_Elimination_Hdrs() '
977: WHEN INTERCO_ELIM_HDR_ERR THEN
978:
979: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
980:
981: fnd_log.STRING (fnd_log.level_unexpected,
982: g_pkg_name || '.' || l_api_name,
983: ' Error In Insert_Elimination_Hdrs() '
984: || SUBSTR(SQLERRM, 1, 255));
985:
982: g_pkg_name || '.' || l_api_name,
983: ' Error In Insert_Elimination_Hdrs() '
984: || SUBSTR(SQLERRM, 1, 255));
985:
986: fnd_log.STRING (fnd_log.level_unexpected,
987: g_pkg_name || '.' || l_api_name,
988: gcs_utility_pkg.g_module_failure
989: || ' '
990: || l_api_name
1003: WHEN Hierarchy_Date_Check_Failed THEN
1004:
1005: x_errbuf := SQLERRM;
1006:
1007: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED)
1008: THEN
1009: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1010: g_pkg_name || '.' || l_api_name
1011: || ' Hierarchy_Check_Failed',
1005: x_errbuf := SQLERRM;
1006:
1007: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED)
1008: THEN
1009: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1010: g_pkg_name || '.' || l_api_name
1011: || ' Hierarchy_Check_Failed',
1012: 'Either hierarchy does not exist or the '
1013: ||' hierarchy date affectivity has not been '
1015:
1016:
1017: END IF;
1018:
1019: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1020: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1021: g_pkg_name || '.' || l_api_name,
1022: SUBSTR(SQLERRM, 1, 255));
1023:
1016:
1017: END IF;
1018:
1019: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1020: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1021: g_pkg_name || '.' || l_api_name,
1022: SUBSTR(SQLERRM, 1, 255));
1023:
1024:
1026:
1027:
1028: WHEN NO_DATA_FOUND THEN
1029:
1030: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1031:
1032: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1033: g_pkg_name || '.' || l_api_name,
1034: SUBSTR(SQLERRM, 1, 255));
1028: WHEN NO_DATA_FOUND THEN
1029:
1030: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1031:
1032: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1033: g_pkg_name || '.' || l_api_name,
1034: SUBSTR(SQLERRM, 1, 255));
1035:
1036: fnd_log.STRING (fnd_log.level_unexpected,
1032: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1033: g_pkg_name || '.' || l_api_name,
1034: SUBSTR(SQLERRM, 1, 255));
1035:
1036: fnd_log.STRING (fnd_log.level_unexpected,
1037: g_pkg_name || '.' || l_api_name,
1038: gcs_utility_pkg.g_module_failure
1039: || ' '
1040: || l_api_name
1047:
1048: WHEN OTHERS THEN
1049:
1050:
1051: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1052:
1053:
1054: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1055: g_pkg_name || '.' || l_api_name,
1050:
1051: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1052:
1053:
1054: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1055: g_pkg_name || '.' || l_api_name,
1056: SUBSTR(SQLERRM, 1, 255));
1057:
1058: fnd_log.STRING (fnd_log.level_unexpected,
1054: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1055: g_pkg_name || '.' || l_api_name,
1056: SUBSTR(SQLERRM, 1, 255));
1057:
1058: fnd_log.STRING (fnd_log.level_unexpected,
1059: g_pkg_name || '.' || l_api_name,
1060: gcs_utility_pkg.g_module_failure
1061: || ' '
1062: || l_api_name
1093: l_api_name VARCHAR2(30) := 'INSR_INTERCO_HDRS';
1094:
1095: BEGIN
1096:
1097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1098: fnd_log.STRING (fnd_log.level_procedure,
1099: g_pkg_name || '.' || l_api_name,
1100: gcs_utility_pkg.g_module_enter
1101: || ' '
1094:
1095: BEGIN
1096:
1097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1098: fnd_log.STRING (fnd_log.level_procedure,
1099: g_pkg_name || '.' || l_api_name,
1100: gcs_utility_pkg.g_module_enter
1101: || ' '
1102: || l_api_name
1104: || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH:MI:SS')
1105: );
1106: END IF;
1107:
1108: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1109: fnd_log.STRING (fnd_log.level_procedure,
1110: g_pkg_name || '.' || l_api_name,
1111: ' Arguments passed to Insr_Interco_Hdr() '
1112: ||' Hierarchy_Id :'||p_hierarchy_id
1105: );
1106: END IF;
1107:
1108: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1109: fnd_log.STRING (fnd_log.level_procedure,
1110: g_pkg_name || '.' || l_api_name,
1111: ' Arguments passed to Insr_Interco_Hdr() '
1112: ||' Hierarchy_Id :'||p_hierarchy_id
1113: ||' Cal_Period_Id: '||p_cal_period_id
1119: END IF;
1120:
1121:
1122: IF (p_elim_mode = 'IE') THEN
1123: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1124: fnd_log.STRING (fnd_log.level_procedure,
1125: g_pkg_name || '.' || l_api_name,
1126: 'Insert distinct pairs of entities for each rule '
1127: || 'into GCS_INTERCO_HDR_GT in full '
1120:
1121:
1122: IF (p_elim_mode = 'IE') THEN
1123: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1124: fnd_log.STRING (fnd_log.level_procedure,
1125: g_pkg_name || '.' || l_api_name,
1126: 'Insert distinct pairs of entities for each rule '
1127: || 'into GCS_INTERCO_HDR_GT in full '
1128: || 'consolidation run mode and elim-mode=''IE'''
1159: git.sus_user_dim4_id, git.sus_user_dim5_id,
1160: git.sus_user_dim6_id, git.sus_user_dim7_id,
1161: git.sus_user_dim8_id, git.sus_user_dim9_id,
1162: git.sus_user_dim10_id,SYSDATE,g_fnd_user_id,sysdate,
1163: g_fnd_user_id,g_fnd_login_id, git.currency_code
1164: FROM (SELECT giet.src_entity_id
1165: src_id,
1166: giet.target_entity_id
1167: tar_id,
1241:
1242: g_no_rows := NVL(SQL%ROWCOUNT,0);
1243:
1244:
1245: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1246: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1247: FND_MESSAGE.Set_Token('NUM',TO_CHAR(NVL(SQL%ROWCOUNT,0)));
1248: FND_MESSAGE.Set_Token('TABLE','GCS_INTERCO_HDR_GT');
1249:
1248: FND_MESSAGE.Set_Token('TABLE','GCS_INTERCO_HDR_GT');
1249:
1250:
1251:
1252: FND_LOG.String (fnd_log.level_procedure,
1253: g_pkg_name || '.' || l_api_name,
1254: 'SHRD0117: '||FND_MESSAGE.get);
1255: END IF;
1256:
1253: g_pkg_name || '.' || l_api_name,
1254: 'SHRD0117: '||FND_MESSAGE.get);
1255: END IF;
1256:
1257: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1258: fnd_log.STRING (fnd_log.level_procedure,
1259: g_pkg_name || '.' || l_api_name,
1260: 'Insert distinct pairs of entities for each rule '
1261: || 'into GCS_INTERCO_HDR_GT in full '
1254: 'SHRD0117: '||FND_MESSAGE.get);
1255: END IF;
1256:
1257: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1258: fnd_log.STRING (fnd_log.level_procedure,
1259: g_pkg_name || '.' || l_api_name,
1260: 'Insert distinct pairs of entities for each rule '
1261: || 'into GCS_INTERCO_HDR_GT in full '
1262: || 'consolidation run mode and elim-mode=''IE'''
1292: git.sus_user_dim4_id, git.sus_user_dim5_id,
1293: git.sus_user_dim6_id, git.sus_user_dim7_id,
1294: git.sus_user_dim8_id, git.sus_user_dim9_id,
1295: git.sus_user_dim10_id,SYSDATE,g_fnd_user_id,sysdate,
1296: g_fnd_user_id,g_fnd_login_id, git.currency_code
1297: FROM (SELECT giet.target_entity_id
1298: src_id,
1299: giet.src_entity_id
1300: tar_id,
1376: IF (NVL(SQL%ROWCOUNT,0) <> 0) THEN
1377: g_no_rows := NVL(SQL%ROWCOUNT,0);
1378: END IF;
1379:
1380: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1381: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1382: FND_MESSAGE.Set_Token('NUM',TO_CHAR(NVL(SQL%ROWCOUNT,0)));
1383: FND_MESSAGE.Set_Token('TABLE','GCS_INTERCO_HDR_GT');
1384:
1383: FND_MESSAGE.Set_Token('TABLE','GCS_INTERCO_HDR_GT');
1384:
1385:
1386:
1387: FND_LOG.String (fnd_log.level_procedure,
1388: g_pkg_name || '.' || l_api_name,
1389: 'SHRD0117: '||FND_MESSAGE.get);
1390: END IF;
1391: -- Start Bugfix 5974635
1389: 'SHRD0117: '||FND_MESSAGE.get);
1390: END IF;
1391: -- Start Bugfix 5974635
1392:
1393: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1394: fnd_log.STRING (fnd_log.level_procedure,
1395: g_pkg_name || '.' || l_api_name,
1396: 'Delete pair(s) of entities that are already'
1397: || ' eliminated, for e.g. at a mid level parent'
1390: END IF;
1391: -- Start Bugfix 5974635
1392:
1393: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1394: fnd_log.STRING (fnd_log.level_procedure,
1395: g_pkg_name || '.' || l_api_name,
1396: 'Delete pair(s) of entities that are already'
1397: || ' eliminated, for e.g. at a mid level parent'
1398: );
1411: g_entity_id);
1412:
1413: l_no_rows := NVL(SQL%ROWCOUNT,0);
1414:
1415: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1416: FND_MESSAGE.Set_Name('SQLGL','SHRD0119');
1417: FND_MESSAGE.Set_Token('NUM',TO_CHAR(l_no_rows));
1418: FND_MESSAGE.Set_Token('TABLE','GCS_INTERCO_HDR_GT');
1419:
1417: FND_MESSAGE.Set_Token('NUM',TO_CHAR(l_no_rows));
1418: FND_MESSAGE.Set_Token('TABLE','GCS_INTERCO_HDR_GT');
1419:
1420:
1421: FND_LOG.String (fnd_log.level_procedure,
1422: g_pkg_name || '.' || l_api_name,
1423: 'SHRD0117: '||FND_MESSAGE.get);
1424:
1425: END IF;
1427: -- End Bugfix 5974635
1428:
1429: ELSIF (p_elim_mode = 'IA') THEN
1430:
1431: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1432: fnd_log.STRING (fnd_log.level_procedure,
1433: g_pkg_name || '.' || l_api_name,
1434: 'Insert distinct pairs of entities for each rule '
1435: || 'into GCS_INTERCO_HDR_GT in full '
1428:
1429: ELSIF (p_elim_mode = 'IA') THEN
1430:
1431: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1432: fnd_log.STRING (fnd_log.level_procedure,
1433: g_pkg_name || '.' || l_api_name,
1434: 'Insert distinct pairs of entities for each rule '
1435: || 'into GCS_INTERCO_HDR_GT in full '
1436: || 'consolidation run mode and elim-mode=''IA'''
1460: git.sus_user_dim4_id, git.sus_user_dim5_id,
1461: git.sus_user_dim6_id, git.sus_user_dim7_id,
1462: git.sus_user_dim8_id, git.sus_user_dim9_id,
1463: git.sus_user_dim10_id,SYSDATE,g_fnd_user_id,SYSDATE,
1464: g_fnd_user_id,g_fnd_login_id, git.currency_code
1465: FROM (SELECT giet.src_entity_id,giet.target_entity_id,
1466: gib.rule_id, gib.threshold_currency,
1467: gib.threshold_amount, gib.sus_financial_elem_id,
1468: gib.sus_product_id, gib.sus_natural_account_id,
1501: gib.sus_user_dim10_id , fc.currency_code) git;
1502:
1503: g_no_rows := NVL(SQL%ROWCOUNT,0);
1504:
1505: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1507: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1508: FND_MESSAGE.Set_Token('TABLE','GCS_INTERCO_HDR_GT');
1509:
1507: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1508: FND_MESSAGE.Set_Token('TABLE','GCS_INTERCO_HDR_GT');
1509:
1510:
1511: FND_LOG.String (fnd_log.level_procedure,
1512: g_pkg_name || '.' || l_api_name,
1513: 'SHRD0117: '||FND_MESSAGE.get);
1514: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0117: '||FND_MESSAGE.get);
1515: END IF;
1524: RETURN TRUE;
1525: END IF;
1526:
1527:
1528: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: fnd_log.STRING (fnd_log.level_procedure,
1530: g_pkg_name || '.' || l_api_name,
1531: 'Insert avialable information '
1532: || 'into GCS_CONS_ENG_RUN_DTLS '
1525: END IF;
1526:
1527:
1528: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1529: fnd_log.STRING (fnd_log.level_procedure,
1530: g_pkg_name || '.' || l_api_name,
1531: 'Insert avialable information '
1532: || 'into GCS_CONS_ENG_RUN_DTLS '
1533: || ' if there is an error the information will be'
1549: 'WARNING', 'WARNING',
1550: DECODE(g_elim_code, 'IE', 'INTERCOMPANY', 'IA', 'INTRACOMPANY'),
1551: SYSDATE, g_fnd_user_id,
1552: SYSDATE, g_fnd_user_id,
1553: g_fnd_login_id
1554: FROM GCS_INTERCO_HDR_GT gehg
1555: WHERE gehg.currency_code <> 'STAT';
1556:
1557:
1556:
1557:
1558: g_no_rows := NVL(SQL%ROWCOUNT,0);
1559:
1560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1561: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1562: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1563: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
1564:
1561: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1562: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1563: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
1564:
1565: FND_LOG.String (fnd_log.level_procedure,
1566: g_pkg_name || '.' || l_api_name,
1567: 'SHRD0117: '||FND_MESSAGE.get);
1568: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0117: '||FND_MESSAGE.get);
1569: END IF;
1569: END IF;
1570:
1571: /* ------------------------------------------------------------------------+
1572:
1573: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1574: fnd_log.STRING (fnd_log.level_procedure,
1575: g_pkg_name || '.' || l_api_name,
1576: 'STAT rows- with serate rule'
1577: ||' Insert avialable information '
1570:
1571: /* ------------------------------------------------------------------------+
1572:
1573: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1574: fnd_log.STRING (fnd_log.level_procedure,
1575: g_pkg_name || '.' || l_api_name,
1576: 'STAT rows- with serate rule'
1577: ||' Insert avialable information '
1578: || 'into GCS_CONS_ENG_RUN_DTLS '
1602: DECODE( p_xlation_required,'Y',
1603: 'NOT_STARTED','N','NOT_APPLICABLE'),NULL),
1604: SYSDATE, g_fnd_user_id,
1605: SYSDATE, g_fnd_user_id,
1606: g_fnd_login_id
1607: FROM GCS_INTERCO_HDR_GT gehg
1608: WHERE gehg.currency_code = 'STAT'
1609: AND NOT EXISTS ( SELECT 1 FROM gcs_cons_eng_run_dtls gcr1
1610: WHERE gehg.source_entity_id = gcr1.child_entity_id
1614:
1615:
1616: g_no_rows := NVL(SQL%ROWCOUNT,0);
1617:
1618: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1619: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1620: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1621: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
1622:
1619: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1620: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1621: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
1622:
1623: FND_LOG.String (fnd_log.level_procedure,
1624: g_pkg_name || '.' || l_api_name,
1625: 'SHRD0117: '||FND_MESSAGE.get);
1626: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0117: '||FND_MESSAGE.get);
1627: END IF;
1630: -- In case of an error, we will roll back to this point in time.
1631: SAVEPOINT gcs_cons_eng_insr_warning;
1632:
1633:
1634: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1635:
1636: fnd_log.STRING (fnd_log.level_procedure,
1637: g_pkg_name || '.' || l_api_name,
1638: gcs_utility_pkg.g_module_success
1632:
1633:
1634: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1635:
1636: fnd_log.STRING (fnd_log.level_procedure,
1637: g_pkg_name || '.' || l_api_name,
1638: gcs_utility_pkg.g_module_success
1639: || ' '
1640: || l_api_name
1650:
1651: WHEN NO_DATA_FOUND THEN
1652:
1653:
1654: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1655:
1656: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1657: g_pkg_name || '.' || l_api_name,
1658: 'Error in inserting intercompany headers'
1652:
1653:
1654: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1655:
1656: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1657: g_pkg_name || '.' || l_api_name,
1658: 'Error in inserting intercompany headers'
1659: ||' into the GCS_INTERCO_HDR_GT' );
1660:
1657: g_pkg_name || '.' || l_api_name,
1658: 'Error in inserting intercompany headers'
1659: ||' into the GCS_INTERCO_HDR_GT' );
1660:
1661: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1662: g_pkg_name || '.' || l_api_name,
1663: SUBSTR(SQLERRM, 1, 255));
1664:
1665: fnd_log.STRING (fnd_log.level_unexpected,
1661: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1662: g_pkg_name || '.' || l_api_name,
1663: SUBSTR(SQLERRM, 1, 255));
1664:
1665: fnd_log.STRING (fnd_log.level_unexpected,
1666: g_pkg_name || '.' || l_api_name,
1667: gcs_utility_pkg.g_module_failure
1668: || ' '
1669: || l_api_name
1676:
1677: WHEN OTHERS THEN
1678:
1679:
1680: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1681:
1682: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1683: g_pkg_name || '.' || l_api_name,
1684: SUBSTR(SQLERRM, 1, 255));
1678:
1679:
1680: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1681:
1682: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1683: g_pkg_name || '.' || l_api_name,
1684: SUBSTR(SQLERRM, 1, 255));
1685:
1686: fnd_log.STRING (fnd_log.level_unexpected,
1682: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1683: g_pkg_name || '.' || l_api_name,
1684: SUBSTR(SQLERRM, 1, 255));
1685:
1686: fnd_log.STRING (fnd_log.level_unexpected,
1687: g_pkg_name || '.' || l_api_name,
1688: gcs_utility_pkg.g_module_failure
1689: || ' '
1690: || l_api_name
1707: 'WARNING','WARNING',
1708: DECODE(g_elim_code, 'IE', 'INTERCOMPANY', 'IA', 'INTRACOMPANY'),
1709: SYSDATE, g_fnd_user_id,
1710: SYSDATE, g_fnd_user_id,
1711: g_fnd_login_id
1712: FROM DUAL;
1713:
1714:
1715: g_no_rows := NVL(SQL%ROWCOUNT,0);
1713:
1714:
1715: g_no_rows := NVL(SQL%ROWCOUNT,0);
1716:
1717: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1718: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1719: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1720: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
1721:
1718: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1719: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1720: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
1721:
1722: FND_LOG.String (fnd_log.level_procedure,
1723: g_pkg_name || '.' || l_api_name,
1724: 'SHRD0117: '||FND_MESSAGE.get);
1725: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0117: '||FND_MESSAGE.get);
1726: END IF;
1798: WHERE currency_code = c_ccy;
1799: */
1800: BEGIN
1801:
1802: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1803: fnd_log.STRING (fnd_log.level_procedure,
1804: g_pkg_name || '.' || l_api_name,
1805: gcs_utility_pkg.g_module_enter
1806: || ' '
1799: */
1800: BEGIN
1801:
1802: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1803: fnd_log.STRING (fnd_log.level_procedure,
1804: g_pkg_name || '.' || l_api_name,
1805: gcs_utility_pkg.g_module_enter
1806: || ' '
1807: || l_api_name
1809: || TO_CHAR (SYSDATE, 'DD-MON-YYYY HH:MI:SS')
1810: );
1811: END IF;
1812:
1813: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1814: fnd_log.STRING (fnd_log.level_procedure,
1815: g_pkg_name || '.' || l_api_name,
1816: ' Arguments passed to Insr_Interco_Hdr() '
1817: ||' Hierarchy_Id :'||p_hierarchy_id
1810: );
1811: END IF;
1812:
1813: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1814: fnd_log.STRING (fnd_log.level_procedure,
1815: g_pkg_name || '.' || l_api_name,
1816: ' Arguments passed to Insr_Interco_Hdr() '
1817: ||' Hierarchy_Id :'||p_hierarchy_id
1818: ||' Cal_Period_Id: '||p_cal_period_id
1825: g_no_rows := 0;
1826:
1827: l_period_end_date := g_period_end_date;
1828:
1829: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1830: fnd_log.STRING (fnd_log.level_procedure,
1831: g_pkg_name || '.' || l_api_name,
1832: ' Intercompany- Getting conversion rate');
1833: END IF;
1826:
1827: l_period_end_date := g_period_end_date;
1828:
1829: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1830: fnd_log.STRING (fnd_log.level_procedure,
1831: g_pkg_name || '.' || l_api_name,
1832: ' Intercompany- Getting conversion rate');
1833: END IF;
1834:
1835:
1836: for entries in threshold_conv_rate loop
1837: -- for conv_rate in ccy_mau_c(entries.threshold_currency) loop
1838:
1839: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1840: fnd_log.STRING (fnd_log.level_procedure,
1841: g_pkg_name || '.' || l_api_name,
1842: 'Intercompany- Inside Loop'
1843: || ' in GCS_INTERCO_HDR_GT'
1836: for entries in threshold_conv_rate loop
1837: -- for conv_rate in ccy_mau_c(entries.threshold_currency) loop
1838:
1839: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1840: fnd_log.STRING (fnd_log.level_procedure,
1841: g_pkg_name || '.' || l_api_name,
1842: 'Intercompany- Inside Loop'
1843: || ' in GCS_INTERCO_HDR_GT'
1844: );
1872: -- For stat currency this flag is always 'N'
1873:
1874: -- Now Insert elimination entry headers into GCS_ENTRY_HEADERS.
1875:
1876: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1877: fnd_log.STRING (fnd_log.level_procedure,
1878: g_pkg_name || '.' || l_api_name,
1879: 'Intercompany- Inserting consolidation currency '
1880: ||' entity entry '
1873:
1874: -- Now Insert elimination entry headers into GCS_ENTRY_HEADERS.
1875:
1876: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1877: fnd_log.STRING (fnd_log.level_procedure,
1878: g_pkg_name || '.' || l_api_name,
1879: 'Intercompany- Inserting consolidation currency '
1880: ||' entity entry '
1881: ||' headers into GCS_ENTRY_HEADERS '
1915: NVL(x_corp_rate,1))/entries.mau),
1916: NVL(entries.pres,2))* entries.mau, 'N', 'Y'),
1917: MAX(SYSDATE), MAX(g_fnd_user_id),
1918: MAX(SYSDATE), MAX(g_fnd_user_id),
1919: MAX(g_fnd_login_id), 'N'
1920: FROM GCS_INTERCO_HDR_GT gehg,
1921: GCS_INTERCO_RULES_TL girt,
1922: GCS_ENTRY_LINES giet
1923: WHERE gehg.entry_id = entries.entry_id
1929: GROUP BY gehg.ENTRY_ID, gehg.currency_code;
1930:
1931: g_no_rows := SQL%ROWCOUNT;
1932:
1933: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1934: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
1935: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1936: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
1937:
1935: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
1936: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
1937:
1938:
1939: FND_LOG.String (fnd_log.level_procedure,
1940: g_pkg_name || '.' || l_api_name,
1941: 'SHRD0117: '||FND_MESSAGE.get);
1942: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0117: '||FND_MESSAGE.get);
1943: END IF;
1947: -- convert the threshold amount.
1948:
1949: -- Insert elimination entry headers into GCS_ENTRY_HEADERS.
1950:
1951: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1952: fnd_log.STRING (fnd_log.level_procedure,
1953: g_pkg_name || '.' || l_api_name,
1954: 'Intercompany- Inserting consolidation currency '
1955: ||' entity entry '
1948:
1949: -- Insert elimination entry headers into GCS_ENTRY_HEADERS.
1950:
1951: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1952: fnd_log.STRING (fnd_log.level_procedure,
1953: g_pkg_name || '.' || l_api_name,
1954: 'Intercompany- Inserting consolidation currency '
1955: ||' entity entry '
1956: ||' headers into GCS_ENTRY_HEADERS '
1984: 'SINGLE_RUN_FOR_PERIOD',
1985: 'X',
1986: SYSDATE, g_fnd_user_id,
1987: SYSDATE, g_fnd_user_id,
1988: g_fnd_login_id, 'N'
1989: FROM GCS_INTERCO_HDR_GT gehg,
1990: GCS_INTERCO_RULES_TL girt
1991: WHERE gehg.entry_id = entries.entry_id
1992: AND gehg.rule_id = girt.rule_id
1994:
1995:
1996: g_no_rows := SQL%ROWCOUNT;
1997:
1998: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1999: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
2000: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2001: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2002:
2000: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2001: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2002:
2003:
2004: FND_LOG.String (fnd_log.level_procedure,
2005: g_pkg_name || '.' || l_api_name,
2006: 'SHRD0117: '||FND_MESSAGE.get);
2007: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0117: '||FND_MESSAGE.get);
2008: END IF;
2011: END IF;
2012:
2013: EXCEPTION
2014: WHEN OTHERS THEN
2015: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2016: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2017: g_pkg_name || '.' || l_api_name,
2018: SUBSTR(SQLERRM, 1, 255));
2019: END IF;
2012:
2013: EXCEPTION
2014: WHEN OTHERS THEN
2015: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2016: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2017: g_pkg_name || '.' || l_api_name,
2018: SUBSTR(SQLERRM, 1, 255));
2019: END IF;
2020:
2018: SUBSTR(SQLERRM, 1, 255));
2019: END IF;
2020:
2021:
2022: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2023: fnd_log.STRING (fnd_log.level_procedure,
2024: g_pkg_name || '.' || l_api_name,
2025: 'Intercompany- Corporate rate is not available'
2026: || ' from from_currency:'
2019: END IF;
2020:
2021:
2022: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2023: fnd_log.STRING (fnd_log.level_procedure,
2024: g_pkg_name || '.' || l_api_name,
2025: 'Intercompany- Corporate rate is not available'
2026: || ' from from_currency:'
2027: || entries.threshold_currency
2058: 'SINGLE_RUN_FOR_PERIOD',
2059: 'X',
2060: SYSDATE, g_fnd_user_id,
2061: SYSDATE, g_fnd_user_id,
2062: g_fnd_login_id, 'N'
2063: FROM GCS_INTERCO_HDR_GT gehg,
2064: GCS_INTERCO_RULES_TL girt
2065: WHERE gehg.entry_id = entries.entry_id
2066: AND gehg.rule_id = girt.rule_id
2069:
2070:
2071: g_no_rows := SQL%ROWCOUNT;
2072:
2073: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2074: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
2075: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2076: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2077:
2075: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2076: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2077:
2078:
2079: FND_LOG.String (fnd_log.level_procedure,
2080: g_pkg_name || '.' || l_api_name,
2081: 'SHRD0117: '||FND_MESSAGE.get);
2082: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0117: '||FND_MESSAGE.get);
2083: END IF;
2093:
2094: -- Insert elimination entry headers into GCS_ENTRY_HEADERS for same
2095: -- currency.
2096:
2097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2098: fnd_log.STRING (fnd_log.level_procedure,
2099: g_pkg_name || '.' || l_api_name,
2100: 'Intercompany- Inserting same currency '
2101: || ' entry headers into GCS_ENTRY_HEADERS'
2094: -- Insert elimination entry headers into GCS_ENTRY_HEADERS for same
2095: -- currency.
2096:
2097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2098: fnd_log.STRING (fnd_log.level_procedure,
2099: g_pkg_name || '.' || l_api_name,
2100: 'Intercompany- Inserting same currency '
2101: || ' entry headers into GCS_ENTRY_HEADERS'
2102: );
2133: MAX(gehg.threshold_amount)),
2134: MAX(gehg.threshold_amount), 'N', 'Y'),
2135: MAX(SYSDATE), MAX(g_fnd_user_id),
2136: MAX(SYSDATE), MAX(g_fnd_user_id),
2137: MAX(g_fnd_login_id), 'N'
2138: FROM GCS_INTERCO_HDR_GT gehg,
2139: GCS_INTERCO_RULES_TL girt,
2140: GCS_ENTRY_LINES giet
2141: WHERE (gehg.currency_code = P_currency_code
2148: GROUP BY gehg.ENTRY_ID, gehg.currency_code;
2149:
2150: g_no_rows := SQL%ROWCOUNT;
2151:
2152: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2153: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
2154: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2155: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2156:
2154: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2155: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2156:
2157:
2158: FND_LOG.String (fnd_log.level_procedure,
2159: g_pkg_name || '.' || l_api_name,
2160: 'SHRD0117: '||FND_MESSAGE.get);
2161: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0117: '||FND_MESSAGE.get);
2162: END IF;
2163:
2164:
2165: -- Insert elimination entry headers into GCS_ENTRY_HEADERS.
2166:
2167: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2168: fnd_log.STRING (fnd_log.level_procedure,
2169: g_pkg_name || '.' || l_api_name,
2170: 'Intercompany- Inserting stat currency entry '
2171: || ' headers into GCS_ENTRY_HEADERS'
2164:
2165: -- Insert elimination entry headers into GCS_ENTRY_HEADERS.
2166:
2167: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2168: fnd_log.STRING (fnd_log.level_procedure,
2169: g_pkg_name || '.' || l_api_name,
2170: 'Intercompany- Inserting stat currency entry '
2171: || ' headers into GCS_ENTRY_HEADERS'
2172: );
2199: 'SINGLE_RUN_FOR_PERIOD',
2200: 'N',
2201: SYSDATE, g_fnd_user_id,
2202: SYSDATE, g_fnd_user_id,
2203: g_fnd_login_id, 'N'
2204: FROM GCS_INTERCO_HDR_GT gehg,
2205: GCS_ENTRY_LINES gel,
2206: GCS_INTERCO_RULES_TL girt
2207: WHERE gehg.entry_id = gel.entry_id
2211: GROUP BY gehg.entry_id, girt.rule_name, gehg.currency_code;
2212:
2213: g_no_rows := SQL%ROWCOUNT;
2214:
2215: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2216: FND_MESSAGE.Set_Name('SQLGL','SHRD0117');
2217: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2218: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2219:
2217: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2218: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2219:
2220:
2221: FND_LOG.String (fnd_log.level_procedure,
2222: g_pkg_name || '.' || l_api_name,
2223: 'SHRD0117: '||FND_MESSAGE.get);
2224: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0117: '||FND_MESSAGE.get);
2225: END IF;
2227: -- Fix Bug #3682104
2228:
2229: g_no_rows := 0;
2230:
2231: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2232: fnd_log.STRING (fnd_log.level_procedure,
2233: g_pkg_name || '.' || l_api_name,
2234: 'Intercompany- Deleting entry headers '
2235: || ' from gcs_entry_headers'
2228:
2229: g_no_rows := 0;
2230:
2231: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2232: fnd_log.STRING (fnd_log.level_procedure,
2233: g_pkg_name || '.' || l_api_name,
2234: 'Intercompany- Deleting entry headers '
2235: || ' from gcs_entry_headers'
2236: || ' where there are no entry lines '
2247:
2248:
2249: g_no_rows := NVL(SQL%ROWCOUNT,0);
2250:
2251: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2252: FND_MESSAGE.Set_Name('SQLGL','SHRD0119');
2253: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2254: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2255:
2253: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2254: FND_MESSAGE.Set_Token('TABLE','GCS_ENTRY_HEADERS');
2255:
2256:
2257: FND_LOG.String (fnd_log.level_procedure,
2258: g_pkg_name || '.' || l_api_name,
2259: 'SHRD0117: '||FND_MESSAGE.get);
2260: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0119: '||FND_MESSAGE.get);
2261: END IF;
2265: -- Process Run details in gcs_cons_eng_run_dtls for the entered headers.
2266:
2267: g_no_rows := 0;
2268:
2269: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2270: fnd_log.STRING (fnd_log.level_procedure,
2271: g_pkg_name || '.' || l_api_name,
2272: 'Intercompany- Deleting run details'
2273: || ' from gcs_cons_eng_run_dtls'
2266:
2267: g_no_rows := 0;
2268:
2269: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2270: fnd_log.STRING (fnd_log.level_procedure,
2271: g_pkg_name || '.' || l_api_name,
2272: 'Intercompany- Deleting run details'
2273: || ' from gcs_cons_eng_run_dtls'
2274: || ' which are not ended up into entry headers table'
2285:
2286:
2287: g_no_rows := NVL(SQL%ROWCOUNT,0);
2288:
2289: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2290: FND_MESSAGE.Set_Name('SQLGL','SHRD0119');
2291: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2292: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
2293:
2291: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2292: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
2293:
2294:
2295: FND_LOG.String (fnd_log.level_procedure,
2296: g_pkg_name || '.' || l_api_name,
2297: 'SHRD0117: '||FND_MESSAGE.get);
2298: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0119: '||FND_MESSAGE.get);
2299: END IF;
2300:
2301:
2302: g_no_rows := 0;
2303:
2304: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2305: fnd_log.STRING (fnd_log.level_procedure,
2306: g_pkg_name || '.' || l_api_name,
2307: 'Intercompany- Merge run details'
2308: || ' for STAT rows in gcs_cons_eng_run_dtls'
2301:
2302: g_no_rows := 0;
2303:
2304: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2305: fnd_log.STRING (fnd_log.level_procedure,
2306: g_pkg_name || '.' || l_api_name,
2307: 'Intercompany- Merge run details'
2308: || ' for STAT rows in gcs_cons_eng_run_dtls'
2309: );
2356: stat_result.bp_req_err_code,
2357: stat_result.category_code,
2358: SYSDATE, g_fnd_user_id,
2359: SYSDATE, g_fnd_user_id,
2360: g_fnd_login_id);
2361:
2362: g_no_rows := NVL(SQL%ROWCOUNT,0);
2363:
2364: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2360: g_fnd_login_id);
2361:
2362: g_no_rows := NVL(SQL%ROWCOUNT,0);
2363:
2364: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2365: FND_MESSAGE.Set_Name('SQLGL','SHRD0118');
2366: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2367: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
2368:
2366: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2367: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
2368:
2369:
2370: FND_LOG.String (fnd_log.level_procedure,
2371: g_pkg_name || '.' || l_api_name,
2372: 'SHRD0117: '||FND_MESSAGE.get);
2373: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0118: '||FND_MESSAGE.get);
2374: END IF;
2376: -----##########-----
2377:
2378: g_no_rows := 0;
2379:
2380: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2381: fnd_log.STRING (fnd_log.level_procedure,
2382: g_pkg_name || '.' || l_api_name,
2383: 'Intercompany- Updating run details'
2384: || ' for non STAT rows in gcs_cons_eng_run_dtls'
2377:
2378: g_no_rows := 0;
2379:
2380: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2381: fnd_log.STRING (fnd_log.level_procedure,
2382: g_pkg_name || '.' || l_api_name,
2383: 'Intercompany- Updating run details'
2384: || ' for non STAT rows in gcs_cons_eng_run_dtls'
2385: );
2413:
2414:
2415: g_no_rows := NVL(SQL%ROWCOUNT,0);
2416:
2417: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2418: FND_MESSAGE.Set_Name('SQLGL','SHRD0118');
2419: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2420: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
2421:
2419: FND_MESSAGE.Set_Token('NUM',TO_CHAR(g_no_rows));
2420: FND_MESSAGE.Set_Token('TABLE','GCS_CONS_ENG_RUN_DTLS');
2421:
2422:
2423: FND_LOG.String (fnd_log.level_procedure,
2424: g_pkg_name || '.' || l_api_name,
2425: 'SHRD0117: '||FND_MESSAGE.get);
2426: --FND_FILE.Put_Line(FND_FILE.Log,'SHRD0118: '||FND_MESSAGE.get);
2427: END IF;
2450: NULL;
2451:
2452: END;
2453:
2454: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2455:
2456: fnd_log.STRING (fnd_log.level_procedure,
2457: g_pkg_name || '.' || l_api_name,
2458: gcs_utility_pkg.g_module_success
2452: END;
2453:
2454: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2455:
2456: fnd_log.STRING (fnd_log.level_procedure,
2457: g_pkg_name || '.' || l_api_name,
2458: gcs_utility_pkg.g_module_success
2459: || ' '
2460: || l_api_name
2467: RETURN TRUE;
2468: EXCEPTION
2469: WHEN OTHERS THEN
2470:
2471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2472: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2473: g_pkg_name || '.' || l_api_name,
2474: SUBSTR(SQLERRM, 1, 255));
2475: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2468: EXCEPTION
2469: WHEN OTHERS THEN
2470:
2471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2472: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2473: g_pkg_name || '.' || l_api_name,
2474: SUBSTR(SQLERRM, 1, 255));
2475: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2476: g_pkg_name || '.' || l_api_name,
2471: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2472: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2473: g_pkg_name || '.' || l_api_name,
2474: SUBSTR(SQLERRM, 1, 255));
2475: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2476: g_pkg_name || '.' || l_api_name,
2477: GCS_UTILITY_PKG.g_module_failure || l_api_name ||
2478: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
2479: END IF;