[Home] [Help]
272:
273: ----------------------------------------------------------------------------------
274: -- API Name : Insert_SubLedgerLines
275: -- Type : Private
276: -- Function : The API inserts an entry in RCV_RECEIVING_SUB_LEDGER
277: -- depending on information passed in P_RCV_AE_LINE and
278: -- P_GLINFO structures
279: -- Parameters :
280: -- IN : P_RCV_AE_LINE : Structure containing the accounting information
379: -- Insert Debit Entry
380: BEGIN
381: l_stmt_num := 30;
382:
383: INSERT INTO RCV_RECEIVING_SUB_LEDGER (
384: RCV_SUB_LEDGER_ID,
385: ACCOUNTING_EVENT_ID,
386: ACCOUNTING_LINE_TYPE,
387: LAST_UPDATE_DATE,
423: REQUEST_ID,
424: PROGRAM_APPLICATION_ID,
425: PROGRAM_ID )
426: VALUES (
427: DECODE(p_rcv_ae_line.actual_flag,'E',-1,1) * RCV_RECEIVING_SUB_LEDGER_S.NEXTVAL,
428: P_RCV_AE_LINE.ACCOUNTING_EVENT_ID,
429: P_RCV_AE_LINE.DEBIT_LINE_TYPE,
430: SYSDATE,
431: P_RCV_AE_LINE.LAST_UPDATED_BY,
480: l_stmt_num := 50;
481:
482: BEGIN
483: -- Insert Credit Entry
484: INSERT INTO RCV_RECEIVING_SUB_LEDGER (
485: RCV_SUB_LEDGER_ID,
486: ACCOUNTING_EVENT_ID,
487: ACCOUNTING_LINE_TYPE,
488: LAST_UPDATE_DATE,
524: REQUEST_ID,
525: PROGRAM_APPLICATION_ID,
526: PROGRAM_ID )
527: VALUES (
528: DECODE(p_rcv_ae_line.actual_flag,'E',-1,1) * RCV_RECEIVING_SUB_LEDGER_S.NEXTVAL,
529: P_RCV_AE_LINE.ACCOUNTING_EVENT_ID,
530: P_RCV_AE_LINE.CREDIT_LINE_TYPE,
531: SYSDATE,
532: P_RCV_AE_LINE.LAST_UPDATED_BY,
593: L_ACT_CR := ABS(NVL(P_RCV_AE_LINE.LDD_COST_ABS_ACCOUNTED,0));
594: END IF;
595:
596: BEGIN
597: INSERT INTO RCV_RECEIVING_SUB_LEDGER (
598: RCV_SUB_LEDGER_ID,
599: ACCOUNTING_EVENT_ID,
600: ACCOUNTING_LINE_TYPE,
601: LAST_UPDATE_DATE,
637: REQUEST_ID,
638: PROGRAM_APPLICATION_ID,
639: PROGRAM_ID )
640: VALUES (
641: DECODE(p_rcv_ae_line.actual_flag,'E',-1,1) * RCV_RECEIVING_SUB_LEDGER_S.NEXTVAL,
642: P_RCV_AE_LINE.ACCOUNTING_EVENT_ID,
643: LC_ABSORPTION,
644: SYSDATE,
645: P_RCV_AE_LINE.LAST_UPDATED_BY,
702: EXCEPTION
703: WHEN INSERT_RRSL_ERROR THEN
704: IF G_DEBUG = 'Y' THEN
705: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
706: l_api_message := 'Error inserting into RCV_RECEIVING_SUB_LEDGER ';
707: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
708: ,'Insert_SubLedgerLines : '||l_stmt_num||' : '||l_api_message);
709: END IF;
710: END IF;
715: p_pkg_name => G_PKG_NAME,
716: p_procedure_name => l_api_name,
717: p_error_text => 'Error at: '||
718: to_char(l_stmt_num) || ' '||
719: 'Error inserting into RCV_RECEIVING_SUB_LEDGER '||
720: SQLERRM
721: );
722:
723: END IF;
1032: -- Function : This API, called by the API's that seed accounting events, is
1033: -- responsible for creating accounting entries for the event
1034: -- that has been seeded in RCV_ACCOUNTING_EVENTS and passed to
1035: -- it. The API creates entries in the subledger,
1036: -- RCV_RECEIVING_SUB_LEDGER and also creates lines in GL_INTERFACE.
1037: -- Parameters :
1038: -- IN : p_accounting_event_id : Accounting_Event_ID of the Event
1039: -- in RCV_ACCOUNTING_EVENTS for which
1040: -- entries are to be created in RRS and
1745: p_glinfo => l_glinfo
1746: );
1747:
1748: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1749: l_api_message := 'Error inserting into RCV_RECEIVING_SUB_LEDGER';
1750: IF G_DEBUG = 'Y' THEN
1751: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1752: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||
1753: '.'||l_api_name||l_stmt_num ,'Create_AccountingEntry: '||l_stmt_num||' : '||l_api_message);