[Home] [Help]
PACKAGE BODY: APPS.BSC_SYS_IMAGES_PKG
Source
1 PACKAGE BODY BSC_SYS_IMAGES_PKG AS
2 /* $Header: BSCSYSIB.pls 120.0 2005/06/01 16:33:57 appldev noship $ */
3
4 PROCEDURE UPDATE_ROW
5 (
6 X_FILE_NAME IN VARCHAR2,
7 X_DESCRIPTION IN VARCHAR2,
8 X_WIDTH IN NUMBER,
9 X_HEIGHT IN NUMBER,
10 X_LAST_UPDATE_DATE IN VARCHAR2,
11 X_LAST_UPDATED_BY IN NUMBER,
12 X_LAST_UPDATE_LOGIN IN NUMBER
13 ) IS
14 -- L_BLOB BLOB;
15 -- L_BFILE BFILE;
16 BEGIN
17 UPDATE_ROW(
18 X_FILE_NAME => X_FILE_NAME,
19 X_DESCRIPTION => X_DESCRIPTION,
20 X_WIDTH => X_WIDTH,
21 X_HEIGHT => X_HEIGHT,
22 X_MIME_TYPE => '',
23 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
24 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
25 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
26 );
27 END UPDATE_ROW;
28
29
30
31 --sawu: bug#4028672: overloaded UPDATE_ROW to take in MIME_TYPE
32 PROCEDURE UPDATE_ROW
33 (
34 X_FILE_NAME IN VARCHAR2,
35 X_DESCRIPTION IN VARCHAR2,
36 X_WIDTH IN NUMBER,
37 X_HEIGHT IN NUMBER,
38 X_MIME_TYPE IN VARCHAR2,
39 X_LAST_UPDATE_DATE IN VARCHAR2,
40 X_LAST_UPDATED_BY IN NUMBER,
41 X_LAST_UPDATE_LOGIN IN NUMBER
42 ) IS
43 -- L_BLOB BLOB;
44 -- L_BFILE BFILE;
45 BEGIN
46 UPDATE BSC_SYS_IMAGES
47 SET DESCRIPTION = X_DESCRIPTION,
48 WIDTH = X_WIDTH,
49 HEIGHT = X_HEIGHT,
50 MIME_TYPE = X_MIME_TYPE,
51 LAST_UPDATE_DATE = NVL(TO_DATE(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), SYSDATE),
52 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
53 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
54 FILE_BODY = EMPTY_BLOB()
55 WHERE FILE_NAME = X_FILE_NAME
56 AND LAST_UPDATE_DATE <= TO_DATE(X_LAST_UPDATE_DATE, 'YYYY/MM/DD');
57 -- RETURNING FILE_BODY INTO L_BLOB;
58 -- IF (NOT SQL%NOTFOUND) THEN
59 -- L_BFILE := BFILENAME( 'OA_MEDIA', X_FILE_NAME);
60 -- DBMS_LOB.FILEOPEN( L_BFILE );
61 -- DBMS_LOB.LOADFROMFILE(L_BLOB, L_BFILE, DBMS_LOB.GETLENGTH( L_BFILE));
62 -- DBMS_LOB.FILECLOSE( L_BFILE );
63 -- END IF;
64 END UPDATE_ROW;
65
66
67
68 PROCEDURE INSERT_ROW
69 (
70 X_IMAGE_ID IN NUMBER,
71 X_FILE_NAME IN VARCHAR2,
72 X_DESCRIPTION IN VARCHAR2,
73 X_WIDTH IN NUMBER,
74 X_HEIGHT IN NUMBER,
75 X_CREATED_BY IN NUMBER,
76 X_LAST_UPDATED_BY IN NUMBER,
77 X_LAST_UPDATE_LOGIN IN NUMBER
78 ) IS
79 BEGIN
80 INSERT_ROW(
81 X_IMAGE_ID => X_IMAGE_ID,
82 X_FILE_NAME => X_FILE_NAME,
83 X_DESCRIPTION => X_DESCRIPTION,
84 X_WIDTH => X_WIDTH,
85 X_HEIGHT => X_HEIGHT,
86 X_MIME_TYPE => '',
87 X_CREATED_BY => X_CREATED_BY,
88 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
89 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN
90 );
91 END INSERT_ROW;
92
93
94
95 --sawu: bug#4028672: overloaded INSERT_ROW to take in MIME_TYPE
96 PROCEDURE INSERT_ROW
97 (
98 X_IMAGE_ID IN NUMBER,
99 X_FILE_NAME IN VARCHAR2,
100 X_DESCRIPTION IN VARCHAR2,
101 X_WIDTH IN NUMBER,
102 X_HEIGHT IN NUMBER,
103 X_MIME_TYPE IN VARCHAR2,
104 X_CREATED_BY IN NUMBER,
105 X_LAST_UPDATED_BY IN NUMBER,
106 X_LAST_UPDATE_LOGIN IN NUMBER
107 ) IS
108 CURSOR C IS SELECT ROWID FROM BSC_SYS_IMAGES WHERE IMAGE_ID = X_IMAGE_ID;
109 L_ROWID VARCHAR2(100);
110 -- L_BLOB BLOB;
111 -- L_BFILE BFILE;
112 BEGIN
113 INSERT INTO BSC_SYS_IMAGES
114 (
115 IMAGE_ID,
116 FILE_NAME,
117 DESCRIPTION,
118 FILE_BODY,
119 WIDTH,
120 HEIGHT,
121 MIME_TYPE,
122 CREATION_DATE,
123 CREATED_BY,
124 LAST_UPDATE_DATE,
125 LAST_UPDATED_BY,
126 LAST_UPDATE_LOGIN
127 )
128 VALUES
129 (
130 X_IMAGE_ID,
131 X_FILE_NAME,
132 X_DESCRIPTION,
133 EMPTY_BLOB(),
134 X_WIDTH,
135 X_HEIGHT,
136 X_MIME_TYPE,
137 SYSDATE,
138 X_CREATED_BY,
139 SYSDATE,
140 X_LAST_UPDATED_BY,
141 0
142 );
143 -- RETURNING FILE_BODY INTO L_BLOB;
144
145 -- L_BFILE := BFILENAME( 'OA_MEDIA', X_FILE_NAME);
146 -- DBMS_LOB.FILEOPEN( L_BFILE );
147 -- DBMS_LOB.LOADFROMFILE(L_BLOB, L_BFILE, DBMS_LOB.GETLENGTH( L_BFILE));
148 -- DBMS_LOB.FILECLOSE( L_BFILE );
149
150 OPEN C;
151 FETCH C INTO L_ROWID;
152 IF (C%NOTFOUND) THEN
153 CLOSE C;
154 RAISE NO_DATA_FOUND;
155 END IF;
156 CLOSE C;
157 END INSERT_ROW;
158
159 END BSC_SYS_IMAGES_PKG;