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