PACKAGE BODY: APPS.IEM_INTENT_DOCS_PVT

Source

1 PACKAGE BODY IEM_INTENT_DOCS_PVT as
2 /* $Header: iemvdocb.pls 115.3 2002/12/05 23:49:45 sboorela shipped $*/
3 G_PKG_NAME CONSTANT varchar2(30) :='IEM_INTENT_DOCS_PVT ';
4 
5 PROCEDURE create_item (p_classification_id         IN NUMBER,
6 			p_email_account_id            IN  NUMBER,
7 			p_query_response               IN  VARCHAR2,
8 			x_doc_seq_no		 OUT NOCOPY NUMBER,
9 		      x_return_status OUT NOCOPY VARCHAR2
10 			 ) is
11 	l_seq_id				NUMBER;
12 	l_CREATED_BY    		NUMBER:=-1;
13      l_LAST_UPDATED_BY    	NUMBER:=-1 ;
14      l_LAST_UPDATE_LOGIN      NUMBER:=-1 ;
15 
16 BEGIN
17    x_return_status := 'S';
18 select iem_account_intent_docs_s1.nextval into l_seq_id
19 from dual;
20 INSERT INTO IEM_ACCOUNT_INTENT_DOCS (
21 ACCOUNT_INTENT_DOC_ID,
22 CLASSIFICATION_ID    ,
23 EMAIL_ACCOUNT_ID     ,
24 QUERY_RESPONSE       ,
25 CREATED_BY           ,
26 CREATION_DATE        ,
27 LAST_UPDATED_BY      ,
28 LAST_UPDATE_DATE     ,
29 LAST_UPDATE_LOGIN
30 )
31 VALUES
32 (
33 l_seq_id   ,
34 p_classification_id,
35 p_EMAIL_ACCOUNT_ID   ,
36 p_query_response     ,
37 decode(l_CREATED_BY,null,-1,l_CREATED_BY),
38 sysdate,
39 decode(l_LAST_UPDATED_BY,null,-1,l_LAST_UPDATED_BY),
40 sysdate,
41 decode(l_LAST_UPDATE_LOGIN,null,-1,l_LAST_UPDATE_LOGIN)
42  );
43 
44 	x_doc_seq_no:=l_seq_id;
45 EXCEPTION
46    WHEN OTHERS THEN
47        x_return_status := 'E' ;
48 END	create_item;
49 
50 PROCEDURE delete_item (p_account_intent_doc_id	in number,
51 			      x_return_status OUT NOCOPY VARCHAR2
52 			 ) is
53 
54 BEGIN
55    x_return_status := 'E';
56 
57    delete from IEM_ACCOUNT_INTENT_DOCS
58    where account_intent_doc_id=p_account_intent_doc_id;
59 
60 EXCEPTION
61    WHEN OTHERS THEN
62       x_return_status := 'E';
63  END	delete_item;
64 END IEM_INTENT_DOCS_PVT ;