112: ,P_LINE_NUM IN VARCHAR2
113: ,P_CCID IN NUMBER
114: ,P_CASH_RELATED_ITEM IN VARCHAR2
115: ) RETURN VARCHAR2 IS
116: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
117: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
118: l_proc_name VARCHAR2(100) :='Line_Check';
119:
120: l_coa_id number := P_COA_ID;
113: ,P_CCID IN NUMBER
114: ,P_CASH_RELATED_ITEM IN VARCHAR2
115: ) RETURN VARCHAR2 IS
116: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
117: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
118: l_proc_name VARCHAR2(100) :='Line_Check';
119:
120: l_coa_id number := P_COA_ID;
121: l_ledger_id NUMBER := P_LEDGER_ID;
176: BEGIN
177: --log for debug
178: IF (l_proc_level >= l_dbg_level)
179: THEN
180: FND_LOG.String( l_proc_level
181: ,l_module_prefix||'.'||l_proc_name||'.begin'
182: ,'Enter procedure for Journal/Transaction '||TO_CHAR(l_jt_id)
183: || '''s Line ' || l_line_num
184: );
328:
329: --log for debug
330: IF (l_proc_level >= l_dbg_level)
331: THEN
332: FND_LOG.String( l_proc_level
333: ,l_module_prefix||'.'||l_proc_name||'.end'
334: ,'Exit procedure for Journal/Transaction '||TO_CHAR(l_jt_id)
335: || '''s Line ' || l_line_num
336: ||' and its l_line_chk is ' || l_line_chk
341: EXCEPTION
342: WHEN OTHERS THEN
343: IF (l_proc_level >= l_dbg_level)
344: THEN
345: FND_LOG.String( l_proc_level
346: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
347: ,SQLCODE||':'||SQLERRM
348: );
349: FND_LOG.String( l_proc_level
345: FND_LOG.String( l_proc_level
346: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
347: ,SQLCODE||':'||SQLERRM
348: );
349: FND_LOG.String( l_proc_level
350: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
351: ,'For Journal/Transaction '||TO_CHAR(l_jt_id)
352: || '''s Line ' || l_line_num
353: || ', So set the check as ''EXCLUDED'', meaning excluded the line.'
380: ,P_CCID IN NUMBER
381: ,P_ACCOUNT OUT NOCOPY VARCHAR2
382: ,P_ACCOUNT_DESC OUT NOCOPY VARCHAR2
383: ) IS
384: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
385: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
386: l_proc_name VARCHAR2(100) :='Get_Account_Combo_and_Desc';
387:
388: l_ledger_id number := P_LEDGER_ID;
381: ,P_ACCOUNT OUT NOCOPY VARCHAR2
382: ,P_ACCOUNT_DESC OUT NOCOPY VARCHAR2
383: ) IS
384: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
385: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
386: l_proc_name VARCHAR2(100) :='Get_Account_Combo_and_Desc';
387:
388: l_ledger_id number := P_LEDGER_ID;
389: l_cc_id number := P_CCID;
568: EXCEPTION
569: WHEN OTHERS THEN
570: IF (l_proc_level >= l_dbg_level)
571: THEN
572: FND_LOG.String( l_proc_level
573: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
574: ,SQLCODE||':'||SQLERRM);
575: END IF; --(l_proc_level >= l_dbg_level)
576: P_ACCOUNT := '';
619: ,P_JOURNAL_CTG IN VARCHAR2
620: ,P_STATUS IN VARCHAR2
621: ,P_COM_SEG IN VARCHAR2 --Added for CNAO Enhancement
622: ) IS
623: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
624: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
625: l_proc_name VARCHAR2(100) :='GL_Validation';
626:
627: l_le_id NUMBER := P_LE_ID;
620: ,P_STATUS IN VARCHAR2
621: ,P_COM_SEG IN VARCHAR2 --Added for CNAO Enhancement
622: ) IS
623: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
624: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
625: l_proc_name VARCHAR2(100) :='GL_Validation';
626:
627: l_le_id NUMBER := P_LE_ID;
628: l_coa_id NUMBER := P_COA_ID;
820:
821: --log for debug
822: IF (l_proc_level >= l_dbg_level)
823: THEN
824: FND_LOG.String( l_proc_level
825: ,l_module_prefix||'.'||l_proc_name||'.begin'
826: ,'Enter procedure'
827: );
828: FND_LOG.String( l_proc_level
824: FND_LOG.String( l_proc_level
825: ,l_module_prefix||'.'||l_proc_name||'.begin'
826: ,'Enter procedure'
827: );
828: FND_LOG.String( l_proc_level
829: ,l_module_prefix||'.'||l_proc_name||'.parameters'
830: ,'P_LE_ID '||P_LE_ID
831: );
832: FND_LOG.String( l_proc_level
828: FND_LOG.String( l_proc_level
829: ,l_module_prefix||'.'||l_proc_name||'.parameters'
830: ,'P_LE_ID '||P_LE_ID
831: );
832: FND_LOG.String( l_proc_level
833: ,l_module_prefix||'.'||l_proc_name||'.parameters'
834: ,'P_START_PERIOD '||P_START_PERIOD
835: );
836: FND_LOG.String( l_proc_level
832: FND_LOG.String( l_proc_level
833: ,l_module_prefix||'.'||l_proc_name||'.parameters'
834: ,'P_START_PERIOD '||P_START_PERIOD
835: );
836: FND_LOG.String( l_proc_level
837: ,l_module_prefix||'.'||l_proc_name||'.parameters'
838: ,'P_END_PERIOD '||P_END_PERIOD
839: );
840: FND_LOG.String( l_proc_level
836: FND_LOG.String( l_proc_level
837: ,l_module_prefix||'.'||l_proc_name||'.parameters'
838: ,'P_END_PERIOD '||P_END_PERIOD
839: );
840: FND_LOG.String( l_proc_level
841: ,l_module_prefix||'.'||l_proc_name||'.parameters'
842: ,'P_SOURCE '||P_SOURCE
843: );
844: FND_LOG.String( l_proc_level
840: FND_LOG.String( l_proc_level
841: ,l_module_prefix||'.'||l_proc_name||'.parameters'
842: ,'P_SOURCE '||P_SOURCE
843: );
844: FND_LOG.String( l_proc_level
845: ,l_module_prefix||'.'||l_proc_name||'.parameters'
846: ,'P_JOURNAL_CTG '||P_JOURNAL_CTG
847: );
848: FND_LOG.String( l_proc_level --Added for CNAO Enhancement
844: FND_LOG.String( l_proc_level
845: ,l_module_prefix||'.'||l_proc_name||'.parameters'
846: ,'P_JOURNAL_CTG '||P_JOURNAL_CTG
847: );
848: FND_LOG.String( l_proc_level --Added for CNAO Enhancement
849: ,l_module_prefix||'.'||l_proc_name||'.parameters'
850: ,'P_COM_SEG '||P_COM_SEG
851: );
852: END IF; --(l_proc_level >= l_dbg_level)
1181:
1182: --log for debug
1183: IF (l_proc_level >= l_dbg_level)
1184: THEN
1185: FND_LOG.String( l_proc_level
1186: ,l_module_prefix||'.'||l_proc_name||'.end'
1187: ,'Exit procedure'
1188: );
1189: END IF; --(l_proc_level >= l_dbg_level)
1191: EXCEPTION
1192: WHEN JA_CN_INCOMPLETE_DFF_ASSIGN THEN
1193: IF (l_proc_level >= l_dbg_level)
1194: THEN
1195: FND_LOG.String( l_proc_level
1196: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1197: ,l_msg_incomplete_dff_assign);
1198: END IF; --(l_proc_level >= l_dbg_level)
1199: /*FND_FILE.put_line(FND_FILE.output, '
1215: Report it with l_msg_no_cashflow_item;*/
1216: WHEN OTHERS THEN
1217: IF (l_proc_level >= l_dbg_level)
1218: THEN
1219: FND_LOG.String( l_proc_level
1220: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
1221: ,SQLCODE||':'||SQLERRM);
1222: END IF; --(l_proc_level >= l_dbg_level)
1223: /*FND_FILE.put_line(FND_FILE.output, '
1276: ,P_END_PERIOD IN VARCHAR2
1277: ,P_STATUS IN VARCHAR2
1278: ,P_COM_SEG IN VARCHAR2 --Added for CNAO Enhancement
1279: ) IS
1280: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
1281: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
1282: l_proc_name VARCHAR2(100) :='Intercompany_Validation';
1283:
1284: l_coa_id NUMBER := P_COA_ID;
1277: ,P_STATUS IN VARCHAR2
1278: ,P_COM_SEG IN VARCHAR2 --Added for CNAO Enhancement
1279: ) IS
1280: l_dbg_level NUMBER :=FND_LOG.G_Current_Runtime_Level;
1281: l_proc_level NUMBER :=FND_LOG.Level_Procedure;
1282: l_proc_name VARCHAR2(100) :='Intercompany_Validation';
1283:
1284: l_coa_id NUMBER := P_COA_ID;
1285: l_le_id NUMBER := P_LE_ID;
1545:
1546: --log for debug
1547: IF (l_proc_level >= l_dbg_level)
1548: THEN
1549: FND_LOG.String( l_proc_level
1550: ,l_module_prefix||'.'||l_proc_name||'.begin'
1551: ,'Enter procedure'
1552: );
1553: FND_LOG.String( l_proc_level
1549: FND_LOG.String( l_proc_level
1550: ,l_module_prefix||'.'||l_proc_name||'.begin'
1551: ,'Enter procedure'
1552: );
1553: FND_LOG.String( l_proc_level
1554: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1555: ,'P_LE_ID '||P_LE_ID
1556: );
1557: FND_LOG.String( l_proc_level
1553: FND_LOG.String( l_proc_level
1554: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1555: ,'P_LE_ID '||P_LE_ID
1556: );
1557: FND_LOG.String( l_proc_level
1558: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1559: ,'P_START_PERIOD '||l_period_from
1560: );
1561: FND_LOG.String( l_proc_level
1557: FND_LOG.String( l_proc_level
1558: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1559: ,'P_START_PERIOD '||l_period_from
1560: );
1561: FND_LOG.String( l_proc_level
1562: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1563: ,'P_END_PERIOD '||l_period_to
1564: );
1565: FND_LOG.String( l_proc_level --Added for CNAO Enhancement
1561: FND_LOG.String( l_proc_level
1562: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1563: ,'P_END_PERIOD '||l_period_to
1564: );
1565: FND_LOG.String( l_proc_level --Added for CNAO Enhancement
1566: ,l_module_prefix||'.'||l_proc_name||'.parameters'
1567: ,'P_COM_SEG '||l_com_seg
1568: );
1569: END IF; --(l_proc_level >= l_dbg_level)
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
1930: ,l_module_prefix||'.'||l_proc_name||'.end'
1931: ,'Exit procedure'
1932: );
1933: END IF; --(l_proc_level >= l_dbg_level)
1934:
1935: EXCEPTION
1936: WHEN JA_CN_INCOMPLETE_DFF_ASSIGN THEN
1937: IF (l_proc_level >= l_dbg_level) THEN
1938: FND_LOG.String( l_proc_level
1939: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1940: ,l_msg_incomplete_dff_assign);
1941: END IF; --(l_proc_level >= l_dbg_level)
1942: /*FND_FILE.put_line(FND_FILE.output, '
1957: WHEN JA_CN_NO_CASHFLOWITEM THEN
1958: Report it with l_msg_no_cashflow_item;*/
1959: WHEN OTHERS THEN
1960: IF (l_proc_level >= l_dbg_level) THEN
1961: FND_LOG.String( l_proc_level
1962: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
1963: ,SQLCODE||':'||SQLERRM);
1964: END IF; --(l_proc_level >= l_dbg_level)
1965: /*FND_FILE.put_line(FND_FILE.output, '