1 PACKAGE BODY CN_LEDGER_JE_BATCHES_API as
2 /* $Header: cnsbjbb.pls 115.0 99/07/16 07:15:47 porting ship $ */
3
4 /*
5 Date Name Description
6 ---------------------------------------------------------------------------
7 28-DEC-94 A. Lower Created package
8
9
10 Name : CN_LEDGER_JE_BATCHES_API
11 Purpose : Provide functionality for creating journal batches and accessing
12 their properties.
13
14 Notes :
15
16 */
17
18 --
19 -- Procedure Name
20 -- New_JE_Batch
21 -- Purpose
22 -- An API function which returns the batch ID of a newly created batch.
23 --
24
25 FUNCTION New_JE_Batch (X_reason VARCHAR2,
26 X_who VARCHAR2) return NUMBER IS
27 Batch_Return NUMBER;
28 BEGIN
29
30 INSERT INTO cn_ledger_je_batches
31 (batch_id, reason, who, status, total)
32 VALUES (cn_ledger_je_batches_s.nextval, X_reason, X_who,
33 'UNPOSTED', 0);
34
35 SELECT cn_ledger_je_batches_s.currval INTO Batch_Return FROM dual;
36
37 RETURN Batch_Return;
38
39 END New_JE_Batch;
40
41 --
42 -- Procedure Name
43 -- New_JE_Batch
44 -- Purpose
45 -- An API function which returns the batch ID of a newly created batch.
46 --
47
48 FUNCTION New_JE_Batch (X_reason VARCHAR2,
49 X_who VARCHAR2,
50 X_name VARCHAR2,
51 X_date DATE) return NUMBER IS
52 Batch_Return NUMBER;
53 BEGIN
54
55 INSERT INTO cn_ledger_je_batches
56 (batch_id, reason, who, status, total,
57 batch_name, batch_date)
58 VALUES (cn_ledger_je_batches_s.nextval, X_reason, X_who,
59 'UNPOSTED', 0, X_name, X_date);
60
61 SELECT cn_ledger_je_batches_s.currval INTO Batch_Return FROM dual;
62
63 RETURN Batch_Return;
64
65 END New_JE_Batch;
66
67 END CN_LEDGER_JE_BATCHES_API;