[Home] [Help]
PACKAGE BODY: APPS.IEM_ARCH_REQUESTS_PVT
Source
1 PACKAGE BODY IEM_ARCH_REQUESTS_PVT as
2 /* $Header: iemarqvb.pls 115.0 2003/08/20 21:37:35 sboorela noship $ */
3
4 G_PKG_NAME CONSTANT varchar2(30) :='IEM_ARCH_REQUESTS_PVT ';
5
6 PROCEDURE create_item (p_api_version_number IN NUMBER,
7 p_init_msg_list IN VARCHAR2 ,
8 p_commit IN VARCHAR2 ,
9 p_request_id in number,
10 p_arch_criteria IN VARCHAR2,
11 p_email_account_id IN NUMBER,
12 p_folder_name IN VARCHAR2,
13 p_request IN VARCHAR2,
14 p_arch_folder_id IN NUMBER,
15 p_arch_count IN NUMBER,
16 p_CREATED_BY IN NUMBER,
17 p_CREATION_DATE IN DATE,
18 p_LAST_UPDATED_BY IN NUMBER ,
19 p_LAST_UPDATE_DATE IN DATE,
20 p_LAST_UPDATE_LOGIN IN NUMBER ,
21 x_return_status OUT NOCOPY VARCHAR2,
22 x_msg_count OUT NOCOPY NUMBER,
23 x_msg_data OUT NOCOPY VARCHAR2
24 ) is
25 l_api_name VARCHAR2(255):='create_item';
26 l_api_version_number NUMBER:=1.0;
27
28 BEGIN
29 -- Standard call to check for call compatibility.
30 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
31 p_api_version_number,
32 l_api_name,
33 G_PKG_NAME)
34 THEN
35 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36 END IF;
37 x_return_status := FND_API.G_RET_STS_SUCCESS;
38 INSERT INTO IEM_ARCH_REQUESTS
39 (REQUEST_ID,
40 ARCH_CRITERIA,
41 EMAIL_ACCOUNT_ID,
42 FOLDER_NAME,
43 ARCH_FOLDER_ID,
44 ARCH_COUNT,
45 STATUS,
46 REQUEST_TYPE,
47 CREATED_BY,
48 CREATION_DATE,
49 LAST_UPDATED_BY,
50 LAST_UPDATE_DATE,
51 LAST_UPDATE_LOGIN)
52 VALUES
53 (p_request_id,
54 p_arch_criteria,
55 p_email_account_id,
56 p_folder_name,
57 p_arch_folder_id,
58 p_arch_count,
59 'S',
60 p_request,
61 decode(p_CREATED_BY,null,-1,p_CREATED_BY),
62 sysdate,
63 decode(p_LAST_UPDATED_BY,null,-1,p_LAST_UPDATED_BY),
64 sysdate,
65 decode(p_LAST_UPDATE_LOGIN,null,-1,p_LAST_UPDATE_LOGIN));
66 -- Standard Check Of p_commit.
67 IF p_commit='T' THEN
68 COMMIT WORK;
69 END IF;
70 -- Standard callto get message count and if count is 1, get message info.
71 FND_MSG_PUB.Count_And_Get
72 ( p_count => x_msg_count,
73 p_data => x_msg_data
74 );
75 EXCEPTION
76 WHEN FND_API.G_EXC_ERROR THEN
77 x_return_status := FND_API.G_RET_STS_ERROR ;
78 FND_MSG_PUB.Count_And_Get
79 ( p_count => x_msg_count,
80 p_data => x_msg_data
81 );
82 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
84 FND_MSG_PUB.Count_And_Get
85 ( p_count => x_msg_count,
86 p_data => x_msg_data
87 );
88 WHEN OTHERS THEN
89 x_return_status := FND_API.G_RET_STS_ERROR;
90 IF FND_MSG_PUB.Check_Msg_Level
91 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
92 THEN
93 FND_MSG_PUB.Add_Exc_Msg
94 ( G_PKG_NAME ,
95 l_api_name
96 );
97 END IF;
98 FND_MSG_PUB.Count_And_Get
99 ( p_count => x_msg_count ,
100 p_data => x_msg_data
101 );
102
103 END create_item;
104
105 PROCEDURE update_item(p_api_version_number IN NUMBER,
106 p_init_msg_list IN VARCHAR2 ,
107 p_commit IN VARCHAR2 ,
108 p_request_id in number,
109 p_arch_folder_id in number,
110 p_arch_count in number,
111 p_arch_size in number,
112 p_status in varchar2,
113 p_comment in varchar2,
114 x_return_status OUT NOCOPY VARCHAR2,
115 x_msg_count OUT NOCOPY NUMBER,
116 x_msg_data OUT NOCOPY VARCHAR2) IS
117
118 l_api_name VARCHAR2(255):='update_item';
119 l_api_version_number NUMBER:=1.0;
120
121 BEGIN
122 -- Standard call to check for call compatibility.
123 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
124 p_api_version_number,
125 l_api_name,
126 G_PKG_NAME)
127 THEN
128 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129 END IF;
130 x_return_status := FND_API.G_RET_STS_SUCCESS;
131 update iem_arch_requests
132 set arch_count=decode(p_arch_count,null,arch_count,p_arch_count),
133 arch_size=decode(p_arch_size,null,arch_size,p_arch_size),
134 status=p_status,
135 arch_comment=decode(p_comment,null,arch_comment,p_comment)
136 where request_id=p_request_id and arch_folder_id=p_arch_folder_id;
137
138 -- Standard Check Of p_commit.
139 IF p_commit='T' THEN
140 COMMIT WORK;
141 END IF;
142 -- Standard callto get message count and if count is 1, get message info.
143 FND_MSG_PUB.Count_And_Get
144 ( p_count => x_msg_count,
145 p_data => x_msg_data
146 );
147 EXCEPTION
148 WHEN FND_API.G_EXC_ERROR THEN
149 x_return_status := FND_API.G_RET_STS_ERROR ;
150 FND_MSG_PUB.Count_And_Get
151 ( p_count => x_msg_count,
152 p_data => x_msg_data
153 );
154 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
155 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
156 FND_MSG_PUB.Count_And_Get
157 ( p_count => x_msg_count,
158 p_data => x_msg_data
159 );
160 WHEN OTHERS THEN
161 x_return_status := FND_API.G_RET_STS_ERROR;
162 IF FND_MSG_PUB.Check_Msg_Level
163 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
164 THEN
165 FND_MSG_PUB.Add_Exc_Msg
166 ( G_PKG_NAME ,
167 l_api_name
168 );
169 END IF;
170 FND_MSG_PUB.Count_And_Get
171 ( p_count => x_msg_count ,
172 p_data => x_msg_data
173 );
174
175 END update_item;
176
177 END IEM_ARCH_REQUESTS_PVT ;