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 :
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:
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:
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;
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);
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:
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;
63: RETURN Batch_Return;
64:
65: END New_JE_Batch;
66:
67: END CN_LEDGER_JE_BATCHES_API;