APPS.JA_CN_GL_INTER_VALID_PKG dependencies on JA_CN_UTILITY

Line 855: IF NOT(JA_CN_UTILITY.Check_Profile)

851: );
852: END IF; --(l_proc_level >= l_dbg_level)
853:
854: --Check Profile
855: IF NOT(JA_CN_UTILITY.Check_Profile)
856: THEN
857: retcode := 1;
858: errbuf := '';
859: RETURN;

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

864: FROM JA_CN_LEDGER_LE_BSV_GT
865: ;
866: COMMIT ;
867: --
868: IF ja_cn_utility.populate_ledger_le_bsv_gt( P_LEDGER_ID,P_LE_ID) <> 'S' THEN
869: RETURN;
870: END IF;
871:
872: --Start the XML file

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

1176: --To add root node for the xml output and then output it
1177: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1178: --FND_FILE.put_line(FND_FILE.output,l_xml_root.getclobval());
1179:
1180: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1181:
1182: --log for debug
1183: IF (l_proc_level >= l_dbg_level)
1184: THEN

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

1204: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1205: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1206: --To add root node for the xml output and then output it
1207: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1208: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1209:
1210: retcode := 1;
1211: errbuf := l_msg_incomplete_dff_assign;
1212: /*WHEN JA_CN_NO_CASHACCOUNT THEN

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

1228: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
1229: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1230: --To add root node for the xml output and then output it
1231: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1232: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1233:
1234: retcode := 2;
1235: errbuf := SQLCODE||':'||SQLERRM;
1236: END GL_Validation;

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

1574: FROM JA_CN_LEDGER_LE_BSV_GT
1575: ;
1576: COMMIT ;
1577: --
1578: IF ja_cn_utility.populate_ledger_le_bsv_gt( P_LEDGER_ID,P_LE_ID) <> 'S' THEN
1579: RETURN;
1580: END IF;
1581:
1582: --Check Profile

Line 1583: IF NOT(JA_CN_UTILITY.Check_Profile)

1579: RETURN;
1580: END IF;
1581:
1582: --Check Profile
1583: IF NOT(JA_CN_UTILITY.Check_Profile)
1584: THEN
1585: retcode := 1;
1586: errbuf := '';
1587: RETURN;

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

1921:
1922: --To add root node for the xml output and then output it
1923: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1924: --FND_FILE.put_line(FND_FILE.output,l_xml_root.getclobval());
1925: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1926:
1927: --log for debug
1928: IF (l_proc_level >= l_dbg_level) THEN
1929: FND_LOG.String(l_proc_level

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

1947: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1948: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1949: --To add root node for the xml output and then output it
1950: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1951: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1952:
1953: retcode := 1;
1954: errbuf := l_msg_incomplete_dff_assign;
1955: /*WHEN JA_CN_NO_CASHACCOUNT THEN

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

1970: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
1971: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1972: --To add root node for the xml output and then output it
1973: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1974: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1975:
1976: retcode := 2;
1977: errbuf := SQLCODE||':'||SQLERRM;
1978: END Intercompany_Validation;