APPS.JA_CN_GL_INTER_VALID_PKG dependencies on JA_CN_UTILITY

Line 892: IF NOT(JA_CN_UTILITY.Check_Profile)

888: );
889: END IF; --(l_proc_level >= l_dbg_level)
890:
891: --Check Profile
892: IF NOT(JA_CN_UTILITY.Check_Profile)
893: THEN
894: retcode := 1;
895: errbuf := '';
896: RETURN;

Line 905: IF ja_cn_utility.populate_ledger_le_bsv_gt( P_LEDGER_ID,P_LE_ID) <> 'S' THEN

901: FROM JA_CN_LEDGER_LE_BSV_GT
902: ;
903: COMMIT ;
904: --
905: IF ja_cn_utility.populate_ledger_le_bsv_gt( P_LEDGER_ID,P_LE_ID) <> 'S' THEN
906: RETURN;
907: END IF;
908:
909: --Start the XML file

Line 1217: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());

1213: --To add root node for the xml output and then output it
1214: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1215: --FND_FILE.put_line(FND_FILE.output,l_xml_root.getclobval());
1216:
1217: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1218:
1219: --log for debug
1220: IF (l_proc_level >= l_dbg_level)
1221: THEN

Line 1245: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());

1241: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1242: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1243: --To add root node for the xml output and then output it
1244: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1245: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1246:
1247: retcode := 1;
1248: errbuf := l_msg_incomplete_dff_assign;
1249: /*WHEN JA_CN_NO_CASHACCOUNT THEN

Line 1269: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());

1265: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
1266: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1267: --To add root node for the xml output and then output it
1268: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1269: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1270:
1271: retcode := 2;
1272: errbuf := SQLCODE||':'||SQLERRM;
1273: END GL_Validation;

Line 1615: IF ja_cn_utility.populate_ledger_le_bsv_gt( P_LEDGER_ID,P_LE_ID) <> 'S' THEN

1611: FROM JA_CN_LEDGER_LE_BSV_GT
1612: ;
1613: COMMIT ;
1614: --
1615: IF ja_cn_utility.populate_ledger_le_bsv_gt( P_LEDGER_ID,P_LE_ID) <> 'S' THEN
1616: RETURN;
1617: END IF;
1618:
1619: --Check Profile

Line 1620: IF NOT(JA_CN_UTILITY.Check_Profile)

1616: RETURN;
1617: END IF;
1618:
1619: --Check Profile
1620: IF NOT(JA_CN_UTILITY.Check_Profile)
1621: THEN
1622: retcode := 1;
1623: errbuf := '';
1624: RETURN;

Line 1962: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());

1958:
1959: --To add root node for the xml output and then output it
1960: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1961: --FND_FILE.put_line(FND_FILE.output,l_xml_root.getclobval());
1962: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1963:
1964: --log for debug
1965: IF (l_proc_level >= l_dbg_level) THEN
1966: FND_LOG.String(l_proc_level

Line 1988: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());

1984: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1985: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1986: --To add root node for the xml output and then output it
1987: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1988: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1989:
1990: retcode := 1;
1991: errbuf := l_msg_incomplete_dff_assign;
1992: /*WHEN JA_CN_NO_CASHACCOUNT THEN

Line 2011: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());

2007: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
2008: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
2009: --To add root node for the xml output and then output it
2010: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
2011: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
2012:
2013: retcode := 2;
2014: errbuf := SQLCODE||':'||SQLERRM;
2015: END Intercompany_Validation;