[Home] [Help]
PACKAGE BODY: APPS.IEM_THEME_DOCS_PVT
Source
1 PACKAGE BODY IEM_THEME_DOCS_PVT as
2 /* $Header: iemvthdb.pls 115.3 2002/12/06 00:07:57 sboorela shipped $*/
3 G_PKG_NAME CONSTANT varchar2(30) :='IEM_THEME_DOCS_PVT ';
4
5 PROCEDURE create_item (p_account_intent_doc_id IN NUMBER,
6 p_theme_id IN NUMBER,
7 x_return_status OUT NOCOPY VARCHAR2
8 ) is
9 l_CREATED_BY NUMBER:=-1;
10 l_LAST_UPDATED_BY NUMBER:=-1 ;
11 l_LAST_UPDATE_LOGIN NUMBER:=-1 ;
12
13 BEGIN
14 x_return_status := 'S';
15 INSERT INTO IEM_THEME_DOCS (
16 ACCOUNT_INTENT_DOC_ID,
17 THEME_ID ,
18 CREATED_BY ,
19 CREATION_DATE ,
20 LAST_UPDATED_BY ,
21 LAST_UPDATE_DATE ,
22 LAST_UPDATE_LOGIN
23 )
24 VALUES
25 (
26 p_account_intent_doc_id ,
27 p_theme_id,
28 decode(l_CREATED_BY,null,-1,l_CREATED_BY),
29 sysdate,
30 decode(l_LAST_UPDATED_BY,null,-1,l_LAST_UPDATED_BY),
31 sysdate,
32 decode(l_LAST_UPDATE_LOGIN,null,-1,l_LAST_UPDATE_LOGIN)
33 );
34
35 EXCEPTION
36 WHEN OTHERS THEN
37 x_return_status := 'E' ;
38 END create_item;
39
40 END IEM_THEME_DOCS_PVT ;