PACKAGE BODY: APPS.GMF_GL_INSERT_JE

Source

1 PACKAGE BODY GMF_GL_INSERT_JE AS
2 /* $Header: gmfjcatb.pls 115.0 99/07/16 04:20:38 porting shi $ */
3   PROCEDURE GMF_GL_INSERT_JE_CATEGORY(categoryname in varchar2,
4                               descrip in varchar2,
5                               createdby in number,
6                               statuscode out number) AS
7   BEGIN
8 
9       INSERT INTO GL_JE_CATEGORIES
10           (  je_category_name,
11             user_je_category_name,
12             last_update_date,
13             last_updated_by,
14             description,
15             creation_date,
16                 created_by)
17 
18       SELECT
19             categoryname,
20             categoryname,
21             sysdate,
22             nvl(user_id,0),
23             descrip,
24             sysdate,
25             nvl(user_id,0)
26 
27       FROM    FND_USER
28       WHERE    user_id=nvl(createdby,0);
29       EXCEPTION
30         WHEN others THEN
31             statuscode := SQLCODE;
32   END GMF_GL_INSERT_JE_CATEGORY;
33 
34   PROCEDURE GMF_GL_INSERT_JE_SOURCE(sourcename in varchar2,
35                   descrip    in varchar2,
36                   createdby  in number,
37                   statuscode out number) AS
38   BEGIN
39     INSERT INTO GL_JE_SOURCES    (
40           je_source_name,
41           user_je_source_name,
42           last_update_date,
43           last_updated_by,
44           override_edits_flag,
45           journal_reference_flag,
46 	  effective_date_rule_code,
47 	  journal_approval_flag,
48           description,
49           creation_date,
50           created_by)
51 
52     SELECT sourcename,
53           sourcename,
54           sysdate,
55           nvl(user_id,0),
56           'N',
57           'N',
58 	  'R',
59 	  'N',
60           descrip,
61           sysdate,
62           nvl(user_id,0)
63     FROM  FND_USER
64     WHERE user_id = nvl(createdby,0);
65 
66   EXCEPTION
67     WHEN others THEN
68          statuscode := SQLCODE;
69   END GMF_GL_INSERT_JE_SOURCE;
70 END GMF_GL_INSERT_JE;