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 ;