PACKAGE BODY: APPS.GL_GLPPOS_ACCTSEQ_PKG

Source

1 PACKAGE BODY GL_GLPPOS_ACCTSEQ_PKG as
2 /* $Header: gluposqb.pls 120.2 2005/05/05 01:42:23 kvora 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          FORALL i IN l_ldr_locked_tbl.FIRST .. l_ldr_locked_tbl.LAST
31             INSERT INTO GL_POSTING_ACCT_SEQ_GT(ledger_id)
32                         VALUES (l_ldr_locked_tbl(i));
33          p_ledgers_locked := l_ldr_locked_tbl.COUNT;
34       ELSE
35          p_ledgers_locked := 0;
36       END IF;
37    ELSE
38       p_ledgers_locked := 0;
39    END IF;
40 
41 EXCEPTION
42   WHEN app_exceptions.application_exception THEN
43     RAISE;
44   WHEN OTHERS THEN
45     fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
46     fnd_message.set_token('PROCEDURE', 'GL_GLPPOS_ACCTSEQ_PKG.batch_init');
47     RAISE;
48 END Batch_Init;
49 
50 END GL_GLPPOS_ACCTSEQ_PKG;