1 PACKAGE GL_JOURNALS_AUTOCOPY AS
2 /* $Header: glujecps.pls 120.1 2005/05/05 01:39:21 kvora ship $ */
3
4 -- ********************************************************************
5 -- Procedure
6 -- do_autocopy
7 -- Purpose
8 -- This routine autocopies journal batches.
9 -- History
10 -- 21-OCT-03 D J Ogg Created
11 -- Arguments
12 -- Jeb_id Id of Journal entry batch to be copied
13 -- New_Name Name of new journal entry batch
14 -- New_Period_name Period of new journal entry batch
15 -- X_Debug Indicate if program is running in debug mode,
16 -- type VARCHAR2. Default value is NULL.
17 -- Example
18 -- GL_JOURNALS_AUTOCOPY.do_autocopy('SH', 1002714, 'Y');
19 --
20
21 PROCEDURE do_autocopy(Jeb_id NUMBER,
22 New_Name VARCHAR2,
23 New_Period_Name VARCHAR2,
24 New_Eff_Date DATE,
25 X_Debug VARCHAR2 DEFAULT NULL);
26
27 -- ********************************************************************
28 -- Procedure
29 -- do_autocopy
30 -- Purpose
31 -- This is the concurrent job version of do_autocopy. This will be used
32 -- when submitting the program through SRS.
33 -- History
34 -- 21-OCT-03 D J Ogg Created
35 -- Arguments
36 -- errbuf Standard error buffer
37 -- retcode Standard return code
38 -- Jeb_id Id of Journal entry batch to be copied
39 -- New_Name Name of new journal entry batch
40 -- New_Period_name Period of new journal entry batch
41 -- New_Eff_Date Effective Date of new journal entry batch
42 -- X_Debug Indicate if program is running in debug mode,
43 -- type VARCHAR2. Default value is NULL.
44 -- Example
45 -- GL_JOURNALS_AUTOCOPY.do_autocopy('SH', 1002714, 'Y');
46 --
47
48 PROCEDURE do_autocopy(errbuf OUT NOCOPY VARCHAR2,
49 retcode OUT NOCOPY VARCHAR2,
50 Jeb_id NUMBER,
51 New_Name VARCHAR2,
52 New_Period_Name VARCHAR2,
53 New_Eff_Date VARCHAR2,
54 X_Debug VARCHAR2 DEFAULT NULL);
55
56 END GL_JOURNALS_AUTOCOPY;