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;