74:
75: l_module_prefix VARCHAR2(100) :='JA_CN_CFS_DATA_CLT_PKG';
76:
77: G_MODULE_PREFIX VARCHAR2(30):='JA_CN_CFS_DATA_CLT_PKG.';
78: G_PROC_LEVEL INT :=fnd_log.LEVEL_PROCEDURE;
79: G_STATEMENT_LEVEL INT :=fnd_log.LEVEL_STATEMENT;
80: g_debug_devel INT;
81: -- G_PERIOD_TYPE VARCHAR2(30):='Month';
82:
75: l_module_prefix VARCHAR2(100) :='JA_CN_CFS_DATA_CLT_PKG';
76:
77: G_MODULE_PREFIX VARCHAR2(30):='JA_CN_CFS_DATA_CLT_PKG.';
78: G_PROC_LEVEL INT :=fnd_log.LEVEL_PROCEDURE;
79: G_STATEMENT_LEVEL INT :=fnd_log.LEVEL_STATEMENT;
80: g_debug_devel INT;
81: -- G_PERIOD_TYPE VARCHAR2(30):='Month';
82:
83: --==========================================================================
121: ,P_CCID IN NUMBER
122: ,P_CASH_RELATED_ITEM IN VARCHAR2
123: ,P_GIS_JNL_CRI OUT NOCOPY VARCHAR2
124: ) RETURN VARCHAR2 IS
125: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
126: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
127: l_proc_name VARCHAR2(100) :='GL_InterCom_Line_Check';
128:
129: l_ledger_id NUMBER := P_LEDGER_ID; --
122: ,P_CASH_RELATED_ITEM IN VARCHAR2
123: ,P_GIS_JNL_CRI OUT NOCOPY VARCHAR2
124: ) RETURN VARCHAR2 IS
125: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
126: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
127: l_proc_name VARCHAR2(100) :='GL_InterCom_Line_Check';
128:
129: l_ledger_id NUMBER := P_LEDGER_ID; --
130: l_le_id NUMBER := P_LE_ID;
184: BEGIN
185: --log for debug
186: IF (l_proc_level >= l_dbg_level)
187: THEN
188: FND_LOG.String( l_proc_level
189: ,l_module_prefix||'.'||l_proc_name||'.begin'
190: ,'Enter procedure for Journal/Transaction '||TO_CHAR(l_jt_id)
191: || '''s Line ' || l_line_num
192: );
360:
361: --log for debug
362: IF (l_proc_level >= l_dbg_level)
363: THEN
364: FND_LOG.String( l_proc_level
365: ,l_module_prefix||'.'||l_proc_name||'.end'
366: ,'Exit procedure for Journal/Transaction '||TO_CHAR(l_jt_id)
367: || '''s Line ' || l_line_num
368: ||' and its l_line_check is ' || l_line_check
373: EXCEPTION
374: WHEN OTHERS THEN
375: IF (l_proc_level >= l_dbg_level)
376: THEN
377: FND_LOG.String( l_proc_level
378: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
379: ,SQLCODE||':'||SQLERRM
380: );
381: FND_LOG.String( l_proc_level
377: FND_LOG.String( l_proc_level
378: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
379: ,SQLCODE||':'||SQLERRM
380: );
381: FND_LOG.String( l_proc_level
382: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
383: ,'For Journal/Transaction '||TO_CHAR(l_jt_id)
384: || '''s Line ' || l_line_num
385: || ', So set the check as ''N'', meaning fall the check.'
427: ,P_AGIS_CURR_RATE OUT NOCOPY NUMBER
428:
429: ) RETURN boolean IS
430:
431: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
432: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
433: l_proc_name VARCHAR2(100) :='GL_InterCom_Line_Check';
434:
435: --l_trx_curr_cov_type GL_DAILY_RATES.CONVERSION_TYPE%TYPE;
428:
429: ) RETURN boolean IS
430:
431: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
432: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
433: l_proc_name VARCHAR2(100) :='GL_InterCom_Line_Check';
434:
435: --l_trx_curr_cov_type GL_DAILY_RATES.CONVERSION_TYPE%TYPE;
436: --l_trx_curr_cov_rate GL_DAILY_RATES.CONVERSION_RATE%TYPE;
439: BEGIN
440: --log for debug
441: IF (l_proc_level >= l_dbg_level)
442: THEN
443: FND_LOG.String( l_proc_level
444: ,l_module_prefix||'.'||l_proc_name||'.begin'
445: ,'Enter procedure for Journal/Transaction '
446: --||TO_CHAR(l_jt_id) || '''s Line ' || l_line_num
447: );
484: EXCEPTION
485: WHEN OTHERS THEN
486: IF (l_proc_level >= l_dbg_level)
487: THEN
488: FND_LOG.String( l_proc_level
489: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
490: ,SQLCODE||':'||SQLERRM
491: );
492: FND_LOG.String( l_proc_level
488: FND_LOG.String( l_proc_level
489: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
490: ,SQLCODE||':'||SQLERRM
491: );
492: FND_LOG.String( l_proc_level
493: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
494: ,--'For Journal/Transaction '||TO_CHAR(l_jt_id)
495: --|| '''s Line ' || l_line_num
496: ''|| ', So set the check as ''N'', meaning fall the check.'
523: ,P_AMOUNT IN NUMBER
524: ,P_CURRENCY_CODE IN VARCHAR2
525: ,P_AMOUNT_ROUNDED OUT NOCOPY NUMBER
526: ) IS
527: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
528: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
529: l_proc_name VARCHAR2(100) :='Process_GL_Rounding';
530:
531: l_amount NUMBER := P_AMOUNT;
524: ,P_CURRENCY_CODE IN VARCHAR2
525: ,P_AMOUNT_ROUNDED OUT NOCOPY NUMBER
526: ) IS
527: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
528: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
529: l_proc_name VARCHAR2(100) :='Process_GL_Rounding';
530:
531: l_amount NUMBER := P_AMOUNT;
532: l_currency_code VARCHAR2(15) := P_CURRENCY_CODE;
537: BEGIN
538: --log for debug
539: IF (l_proc_level >= l_dbg_level)
540: THEN
541: FND_LOG.String( l_proc_level
542: ,l_module_prefix||'.'||l_proc_name||'.begin'
543: ,'Enter procedure'
544: );
545: END IF; --(l_proc_level >= l_dbg_level)
553: EXCEPTION
554: WHEN NO_DATA_FOUND THEN
555: IF(l_proc_level >= l_dbg_level)
556: THEN
557: FND_LOG.string( l_proc_level
558: ,l_module_prefix||'.'||l_proc_name||'.NO_DATA_FOUND'
559: ,'The legal entity has no system parameters defined'
560: );
561: END IF;
583:
584: --log for debug
585: IF (l_proc_level >= l_dbg_level)
586: THEN
587: FND_LOG.String( l_proc_level
588: ,l_module_prefix||'.'||l_proc_name||'.end'
589: ,'Exit procedure'
590: );
591: END IF; --(l_proc_level >= l_dbg_level)
593: EXCEPTION
594: WHEN OTHERS THEN
595: IF (l_proc_level >= l_dbg_level)
596: THEN
597: FND_LOG.String( l_proc_level
598: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
599: ,SQLCODE||':'||SQLERRM
600: );
601: END IF; --(l_proc_level >= l_dbg_level)
639: ,P_GL_PERIOD_TO IN VARCHAR2
640: ,P_SOURCE_APP_ID IN NUMBER
641: ) IS
642: --variables
643: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
644: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
645: l_proc_name VARCHAR2(100) :='Collect_GL_InterCom_Data';
646:
647: l_le_id NUMBER :=P_LE_ID;
640: ,P_SOURCE_APP_ID IN NUMBER
641: ) IS
642: --variables
643: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
644: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
645: l_proc_name VARCHAR2(100) :='Collect_GL_InterCom_Data';
646:
647: l_le_id NUMBER :=P_LE_ID;
648: l_ledger_id NUMBER :=P_LEDGER_ID;
942: BEGIN
943: --log for debug
944: IF (l_proc_level >= l_dbg_level)
945: THEN
946: FND_LOG.String( l_proc_level
947: ,l_module_prefix||'.'||l_proc_name||'.begin'
948: ,'Enter procedure'
949: );
950: FND_LOG.String( l_proc_level
946: FND_LOG.String( l_proc_level
947: ,l_module_prefix||'.'||l_proc_name||'.begin'
948: ,'Enter procedure'
949: );
950: FND_LOG.String( l_proc_level
951: ,l_module_prefix||'.'||l_proc_name||'.P_SOURCE'
952: ,P_SOURCE_APP_ID
953: );
954: END IF; --(l_proc_level >= l_dbg_level)
1555: )
1556: IS
1557: BEGIN
1558: --fnd_file.PUT_LINE(fnd_file.LOG,p_module||':'||p_message);
1559: IF( fnd_log.LEVEL_STATEMENT >= g_debug_devel )
1560: THEN
1561: fnd_log.STRING( LOG_LEVEL => fnd_log.LEVEL_STATEMENT
1562: , MODULE => p_module
1563: , MESSAGE => p_message
1557: BEGIN
1558: --fnd_file.PUT_LINE(fnd_file.LOG,p_module||':'||p_message);
1559: IF( fnd_log.LEVEL_STATEMENT >= g_debug_devel )
1560: THEN
1561: fnd_log.STRING( LOG_LEVEL => fnd_log.LEVEL_STATEMENT
1562: , MODULE => p_module
1563: , MESSAGE => p_message
1564: );
1565: END IF;
1616: put_log(G_MODULE_PREFIX||l_procedure_name||'.period rowcount'
1617: ,l_row_count);
1618: END IF; --( G_PROC_LEVEL >= g_debug_devel)*/
1619: BEGIN
1620: g_debug_devel:=fnd_log.G_CURRENT_RUNTIME_LEVEL;
1621:
1622: -- Initialization
1623: --l_resp_id := FND_PROFILE.VALUE('RESP_ID');
1624: --l_org_id := FND_PROFILE.VALUE('ORG_ID')