[Home] [Help]
152: FETCH c_Approver_Name
153: INTO l_Approver_Name;
154:
155: IF c_Approver_Name%FOUND THEN
156: UPDATE Ja_Cn_Journal_Lines_Req t
157: SET t.Journal_Approver = l_Approver_Name
158: WHERE t.Je_Header_Id = l_Je_Header_Id;
159: END IF; --c_approver_name%found
160:
773: FROM (SELECT SUM(Nvl(Req.Accounted_Dr, 0) - Nvl(Req.Accounted_Cr, 0)) Accounted_Amount,
774: SUM(Nvl(Req.Entered_Dr, 0) - Nvl(Req.Entered_Cr, 0)) Entered_Amount,
775: Req.Je_Header_Id,
776: Req.Je_Line_Num
777: FROM Ja_Cn_Journal_Lines_Req Req
778: WHERE Req.Request_Id = l_Request_Id
779: GROUP BY Req.Je_Header_Id, Req.Je_Line_Num) Req,
780: Gl_Je_Lines Jel
781: WHERE (Nvl(Jel.Accounted_Dr, 0) - Nvl(Jel.Accounted_Cr, 0) <>
817: l_Module_Prefix || '.' || l_Proc_Name,
818: l_Error_Msg);
819: END IF; --(l_proc_level >= l_dbg_level)
820:
821: DELETE FROM Ja_Cn_Journal_Lines_Req
822: WHERE Je_Header_Id = l_Je_Header_Id
823: AND Je_Line_Num = l_Je_Line_Num;
824:
825: END LOOP;
890: END IF; --(l_proc_level >= l_dbg_level)
891:
892: l_Request_Id := p_Request_Id;
893: l_Project_Option := p_Project_Option;
894: INSERT INTO Ja_Cn_Journal_Lines_Req
895: (Je_Header_Id,
896: Ledger_Id,
897: Legal_Entity_Id,
898: Journal_Number,
985: AND Jel.Je_Line_Num = Jop.Je_Line_Num
986: AND Jop.Request_Id = l_Request_Id
987: AND Jel.Je_Line_Num NOT IN
988: (SELECT Je_Line_Num
989: FROM Ja_Cn_Journal_Lines_Req
990: WHERE Je_Header_Id = Jeh.Je_Header_Id)
991: AND Jeb.Je_Batch_Id=Jeh.Je_Batch_Id;--added by lyb, for bug 6654734
992:
993: -- log for debug
1197: -- FROM Xla_Analytical_Dtls_b Dtl
1198: -- WHERE Dtl.Analytical_Criterion_Code = l_Project_Ac_Code
1199: -- AND Dtl.Analytical_Detail_Code = l_Project_Ac_Detail_Code;
1200:
1201: l_sql:='INSERT INTO Ja_Cn_Journal_Lines_Req';
1202: l_sql:=l_sql||' (Je_Header_Id,';
1203: l_sql:=l_sql||' Ledger_Id,';
1204: l_sql:=l_sql||' Legal_Entity_Id,';
1205: l_sql:=l_sql||' Journal_Number,';
1332: l_sql:=l_sql||' AND Acs.analytical_criterion_code(+)='''||l_Project_Ac_Code||''' ';
1333:
1334: execute immediate l_sql;
1335: else
1336: INSERT INTO Ja_Cn_Journal_Lines_Req
1337: (Je_Header_Id,
1338: Ledger_Id,
1339: Legal_Entity_Id,
1340: Journal_Number,
1623:
1624: CLOSE c_Project_Option;
1625:
1626: --generate current session identifier
1627: SELECT Ja_Cn_Journal_Lines_Req_s.NEXTVAL INTO l_Request_Id FROM Dual;
1628:
1629: --generate code combination view
1630: Generate_Code_Combination_View(p_ledger_id => l_ledger_id);
1631:
1655: --get approver of journals that have been approved in General Ledger
1656: Get_Journal_Approver(p_Request_Id => l_Request_Id);
1657:
1658: --get creator's name of journal
1659: UPDATE JA_CN_JOURNAL_LINES_REQ REQ
1660: SET REQ.JOURNAL_CREATOR = (SELECT LAST_NAME || FIRST_NAME FULL_NAME
1661: FROM PER_ALL_PEOPLE_F
1662: WHERE PERSON_ID =
1663: (SELECT EMPLOYEE_ID
1669: EFFECTIVE_END_DATE)
1670: WHERE REQ.REQUEST_ID = L_REQUEST_ID
1671: AND REQ.JE_HEADER_ID > 0;
1672: --get poster's name of journals
1673: UPDATE JA_CN_JOURNAL_LINES_REQ REQ
1674: SET REQ.JOURNAL_POSTER = (SELECT LAST_NAME || FIRST_NAME FULL_NAME
1675: FROM PER_ALL_PEOPLE_F
1676: WHERE PERSON_ID =
1677: (SELECT EMPLOYEE_ID
1773: Populate_Code,
1774: Journal_Creator,
1775: Journal_Approver,
1776: Journal_Poster
1777: FROM Ja_Cn_Journal_Lines_Req
1778: WHERE Request_Id = l_Request_Id
1779: AND Je_Header_Id > 0;
1780:
1781: --get journal approver for itemized journal lines
1804: /* DELETE FROM Ja_Cn_Journals_Of_Period
1805: WHERE Request_Id = l_Request_Id
1806: AND Je_Header_Id > 0;*/
1807:
1808: DELETE FROM Ja_Cn_Journal_Lines_Req
1809: WHERE Request_Id = l_Request_Id
1810: AND Je_Header_Id > 0;
1811: COMMIT;
1812: Fnd_File.Put_Line(Fnd_File.Log, 'l_period_name:' || l_Period_Name);
1884: DELETE FROM Ja_Cn_Journals_Of_Period
1885: WHERE Request_Id = l_Request_Id
1886: AND Je_Header_Id > 0;
1887:
1888: DELETE FROM Ja_Cn_Journal_Lines_Req
1889: WHERE Request_Id = l_Request_Id
1890: AND Je_Header_Id > 0;
1891: COMMIT;
1892: Fnd_File.Put_Line(Fnd_File.Log, SQLCODE || ':' || SQLERRM);