252: l_module_prefix || '.' || l_proc_name || '.parameters',
253: 'p_destination_filename ' || p_destination_filename);
254: END IF; --(l_proc_level >= l_dbg_level)
255:
256: --Call the functon JA_CN_UTILITY.Check_Profile to check if all required profiles has been
257: -- properly set for current responsibility. If No, the function will raise corresponding error
258: --messages, and the concurrent program will not continue performing next logics,these required
259: --profiles include ' JG: Product', which should be set to 'Asia/Pacific Localizations',
260: --'JG: Territory', which should be set to 'China' and 'JA: CNAO Legal Entity', which should be
258: --messages, and the concurrent program will not continue performing next logics,these required
259: --profiles include ' JG: Product', which should be set to 'Asia/Pacific Localizations',
260: --'JG: Territory', which should be set to 'China' and 'JA: CNAO Legal Entity', which should be
261: --NOT NULL
262: IF JA_CN_UTILITY.Check_Profile THEN
263:
264: JA_CN_CFS_GENERATE_PKG.Submit_Requests(p_legal_entity_id,
265: p_ledger_id,
266: P_DATA_ACCESS_SET_ID,
301: p_destination_filename);
302:
303: ELSE
304: l_error_flag := 'Y';
305: END IF; --JA_CN_UTILITY.Check_Profile
306:
307: --If above check failed, then set status of concurrent program as warning
308:
309: IF l_error_flag = 'Y' THEN
309: IF l_error_flag = 'Y' THEN
310: l_error_status := FND_CONCURRENT.Set_Completion_Status(status => 'WARNING',
311: message => '');
312:
313: END IF; --JA_CN_UTILITY.Check_Profile
314: --log for debug
315: IF (l_proc_level >= l_dbg_level) THEN
316: FND_LOG.STRING(l_proc_level,
317: l_module_prefix || '.' || l_proc_name || '.end',
432: --messages, and the concurrent program will not continue performing next logics,these required
433: --profiles include ' JG: Product', which should be set to 'Asia/Pacific Localizations',
434: --'JG: Territory', which should be set to 'China' and 'JA: CNAO Legal Entity', which should be
435: --NOT NULL
436: IF JA_CN_UTILITY.Check_Profile THEN
437: JA_CN_CFS_CALCULATE_PKG.Generate_Cfs_Xml(p_legal_entity_id => p_legal_entity_id,
438: p_ledger_id => p_ledger_id,
439: p_period_name => p_period_name,
440: p_axis_set_id => p_axis_set_id,
447: ELSE
448: --If above check failed, then set status of concurrent program as warning
449: l_error_status := FND_CONCURRENT.Set_Completion_Status(status => 'WARNING',
450: message => '');
451: END IF; --JA_CN_UTILITY.Check_Profile
452:
453: --log for debug
454: IF (l_proc_level >= l_dbg_level) THEN
455: FND_LOG.STRING(l_proc_level,
668: l_module_prefix || '.' || l_proc_name || '.parameters',
669: 'p_destination_filename ' || p_destination_filename);
670: END IF; --(l_proc_level >= l_dbg_level)
671:
672: IF JA_CN_UTILITY.Check_Profile
673: THEN
674:
675: --To get gl set of book and chart of account for current legal entity
676: /* JA_CN_UTILITY.Get_SOB_And_COA(p_legal_entity_id => p_legal_entity_id,
672: IF JA_CN_UTILITY.Check_Profile
673: THEN
674:
675: --To get gl set of book and chart of account for current legal entity
676: /* JA_CN_UTILITY.Get_SOB_And_COA(p_legal_entity_id => p_legal_entity_id,
677: x_sob_id => l_sets_of_bks_id,
678: x_coa_id => l_coa_id,
679: x_flag => l_flag);
680: IF l_flag = 0
734: FND_MESSAGE.Get);
735: END IF; --l_flag=0*/
736: ELSE
737: l_error_flag := 'Y';
738: END IF; --JA_CN_UTILITY.Check_Profile
739:
740: --If above check failed, then set status of concurrent program as warning
741:
742: IF l_error_flag = 'Y'
846: l_module_prefix || '.' || l_proc_name || '.parameters',
847: 'p_internal_trx_flag ' || p_internal_trx_flag) ;*/
848: END IF; --(l_proc_level >= l_dbg_level)
849:
850: IF JA_CN_UTILITY.Check_Profile
851: THEN
852:
853: --To get gl set of book and chart of account for current legal entity
854: /* JA_CN_UTILITY.Get_SOB_And_COA(p_legal_entity_id => p_legal_entity_id,
850: IF JA_CN_UTILITY.Check_Profile
851: THEN
852:
853: --To get gl set of book and chart of account for current legal entity
854: /* JA_CN_UTILITY.Get_SOB_And_COA(p_legal_entity_id => p_legal_entity_id,
855: x_sob_id => l_sob_id,
856: x_coa_id => l_coa_id,
857: x_flag => l_flag);
858: IF l_flag = 0
885: FND_MESSAGE.Get);
886: END IF; --l_flag=0*/
887: ELSE
888: l_error_flag := 'Y';
889: END IF; --JA_CN_UTILITY.Check_Profile
890:
891: --If above check failed, then set status of concurrent program as warning
892:
893: IF l_error_flag = 'Y'
984: 'P_SOURCE ' || P_SOURCE);
985: END IF; --(l_proc_level >= l_dbg_level)
986:
987: --Check Profile
988: IF NOT(JA_CN_UTILITY.Check_Profile)
989: THEN
990: retcode := 1;
991: errbuf := '';
992: RETURN;
990: retcode := 1;
991: errbuf := '';
992: RETURN;
993: END IF;
994: l_flag := Ja_Cn_Utility.Populate_Ledger_Le_Bsv_Gt(p_LEDGER_ID,
995: P_LE_ID);
996:
997: IF l_flag = 'S' THEN
998:
1137: 'P_STATUS ' || P_STATUS);
1138: END IF; --(l_proc_level >= l_dbg_level)
1139:
1140: --Check Profile
1141: IF NOT(JA_CN_UTILITY.Check_Profile)
1142: THEN
1143: retcode := 1;
1144: errbuf := '';
1145: RETURN;
1240: 'P_STATUS ' || P_STATUS);
1241: END IF; --(l_proc_level >= l_dbg_level)
1242:
1243: --Check Profile
1244: IF NOT(JA_CN_UTILITY.Check_Profile)
1245: THEN
1246: retcode := 1;
1247: errbuf := '';
1248: RETURN;
1416: --messages, and the concurrent program will not continue performing next logics,these required
1417: --profiles include ' JG: Product', which should be set to 'Asia/Pacific Localizations',
1418: --'JG: Territory', which should be set to 'China' and 'JA: CNAO Legal Entity', which should be
1419: --NOT NULL
1420: IF JA_CN_UTILITY.Check_Profile THEN
1421: JA_CN_CFS_REPORT_PKG.Cfs_Detail_Report(errbuf => errbuf,
1422: retcode => retcode,
1423: P_LEGAL_ENTITY_ID => P_LEGAL_ENTITY_ID,
1424: P_ledger_ID => p_ledger_id,
1436: ELSE
1437: --If above check failed, then set status of concurrent program as warning
1438: l_error_status := FND_CONCURRENT.Set_Completion_Status(status => 'WARNING',
1439: message => '');
1440: END IF; --JA_CN_UTILITY.Check_Profile
1441:
1442: --log for debug
1443: IF (l_proc_level >= l_dbg_level) THEN
1444: FND_LOG.STRING(l_proc_level,