PACKAGE BODY: APPS.GL_GLPPOS_ACCTSEQ_PKG

Source

1 PACKAGE BODY GL_GLPPOS_ACCTSEQ_PKG as
2 /* $Header: gluposqb.pls 120.4 2011/06/02 05:49:15 skotakar ship $ */
3 
4 PROCEDURE Batch_Init(
5             p_request_id            IN  NUMBER,
6             p_coa_id                IN  NUMBER,
7             p_prun_id               IN  NUMBER,
8             p_ledgers_locked       OUT  NOCOPY NUMBER) IS
9 
10   l_ldr_tbl           FUN_SEQ_BATCH.num15_tbl_type;
11   l_ldr_locked_tbl    FUN_SEQ_BATCH.num15_tbl_type;
12   l_ldr_locked_count  NUMBER;
13 
14 BEGIN
15 
16    SELECT distinct JEH.ledger_id BULK COLLECT
17    INTO   l_ldr_tbl
18    FROM   GL_JE_BATCHES JEB,
19           GL_JE_HEADERS JEH
20    WHERE  JEB.posting_run_id = p_prun_id
21    AND    JEB.chart_of_accounts_id = p_coa_id
22    AND    JEB.status = 'I'
23    AND    JEH.je_batch_id = JEB.je_batch_id;
24 
25    IF l_ldr_tbl.COUNT > 0 THEN
26       FUN_SEQ_BATCH.batch_init(p_request_id, l_ldr_tbl,
27                                l_ldr_locked_tbl, l_ldr_locked_count);
28 
29       IF l_ldr_locked_tbl.COUNT > 0 THEN
30          /* Bug8581442 modified FORALL statement */
31          FORALL i IN INDICES OF l_ldr_locked_tbl
32             INSERT INTO GL_POSTING_ACCT_SEQ_GT(ledger_id)
33                         VALUES (l_ldr_locked_tbl(i));
34          p_ledgers_locked := l_ldr_locked_tbl.COUNT;
35       ELSE
36          p_ledgers_locked := 0;
37       END IF;
38    ELSE
39       p_ledgers_locked := 0;
40    END IF;
41 
42 EXCEPTION
43   WHEN app_exceptions.application_exception THEN
44     RAISE;
45   WHEN OTHERS THEN
46     fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
47     fnd_message.set_token('PROCEDURE', 'GL_GLPPOS_ACCTSEQ_PKG.batch_init');
48     RAISE;
49 END Batch_Init;
50 
51 END GL_GLPPOS_ACCTSEQ_PKG;