[Home] [Help]
PACKAGE BODY: APPS.QP_UPDATE_MOBILE_DOWNLOAD
Source
1 PACKAGE BODY QP_Update_Mobile_Download AS
2 /* $Header: QPXMOBDB.pls 120.1 2005/06/10 02:35:31 appldev $ */
3
4 PROCEDURE update_mobile_download
5 (err_buff out NOCOPY /* file.sql.39 change */ VARCHAR2,
6 retcode out NOCOPY /* file.sql.39 change */ NUMBER,
7 x_list_header_id in NUMBER,
8 x_update_value in VARCHAR2) IS
9
10 BEGIN
11
12 IF upper(x_update_value) = 'Y' THEN
13 UPDATE QP_LIST_HEADERS_B
14 SET MOBILE_DOWNLOAD = 'Y'
15 WHERE LIST_HEADER_ID = x_list_header_id;
16
17 ELSIF upper(x_update_value) = 'N' THEN
18 UPDATE QP_LIST_HEADERS_B
19 SET MOBILE_DOWNLOAD = 'N'
20 WHERE LIST_HEADER_ID = x_list_header_id;
21 END IF;
22
23 COMMIT;
24 fnd_file.put_line(FND_FILE.LOG,'Mobile Download Flag Updated Successfully');
25 retcode := 0;
26
27
28 EXCEPTION
29 WHEN OTHERS THEN
30 retcode := 2;
31 fnd_file.put_line(FND_FILE.LOG,substr(sqlerrm,1,300));
32 fnd_file.put_line(FND_FILE.LOG,sqlcode);
33 RAISE;
34
35 END update_mobile_download;
36
37 END QP_Update_Mobile_Download;